![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlgsamp.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / pmsdk / samples / dlgsamp|
Return to dlgsamp.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / dlgsamp |
1.1 ! root 1: /*************************************************************************** ! 2: * ! 3: * MODULE NAME: DLGSAMP ! 4: * ! 5: * Presentation Manager Dialog Sample Application ! 6: * ! 7: * Created by Microsoft Corp., 1988 ! 8: * ! 9: **************************************************************************** ! 10: ! 11: /*************************************************************************** ! 12: * ! 13: * CALL NAME COUNT ! 14: * ========= ===== ! 15: * ! 16: * GpiCharStringAt 4 ! 17: * GpiSetColor 1 ! 18: * WinBeginPaint 1 ! 19: * WinCreateMsgQueue 1 ! 20: * WinCreateStdWindow 1 ! 21: * WinDefDlgProc 6 ! 22: * WinDefWindowProc 1 ! 23: * WinDestroyMsgQueue 1 ! 24: * WinDestroyWindow 3 ! 25: * WinDismissDlg 4 ! 26: * WinDispatchMsg 1 ! 27: * WinDlgBox 1 ! 28: * WinEndPaint 1 ! 29: * WinFillRect 1 ! 30: * WinGetMsg 1 ! 31: * WinInitialize 1 ! 32: * WinInvalidateRect 6 ! 33: * WinIsWindow 1 ! 34: * WinLoadDlg 1 ! 35: * WinLoadString 2 ! 36: * WinMessageBox 2 ! 37: * WinPostMsg 20 ! 38: * WinQueryDlgItemShort 1 ! 39: * WinQuerySysValue 2 ! 40: * WinQueryWindow 1 ! 41: * WinQueryWindowPos 1 ! 42: * WinQueryWindowText 4 ! 43: * WinRegisterClass 1 ! 44: * WinSendDlgItemMsg 5 ! 45: * WinSendMsg 1 ! 46: * WinSetFocus 1 ! 47: * WinSetWindowPos 1 ! 48: * WinTerminate 1 ! 49: * WinWindowFromID 16 ! 50: * ! 51: * Number of unique calls = 34 ! 52: * ! 53: ***************************************************************************/ ! 54: ! 55: /*************************************************************************** ! 56: * ! 57: * Include relevant sections of the PM header file. ! 58: * ! 59: ***************************************************************************/ ! 60: ! 61: #define INCL_WINBUTTONS ! 62: #define INCL_WINDIALOGS ! 63: #define INCL_WINERRORS ! 64: #define INCL_WINFRAMEMGR ! 65: #define INCL_WININPUT ! 66: #define INCL_WINLISTBOXES ! 67: #define INCL_WINMENUS ! 68: #define INCL_WINMESSAGEMGR ! 69: #define INCL_WINRECTANGLES ! 70: #define INCL_WINSWITCHLIST ! 71: #define INCL_WINSYS ! 72: #define INCL_WINWINDOWMGR ! 73: #define M_I86L ! 74: #include <os2.h> ! 75: ! 76: /*************************************************************************** ! 77: * ! 78: * Include C library routine header files ! 79: * ! 80: ***************************************************************************/ ! 81: ! 82: #include <string.h> ! 83: #include <stdlib.h> ! 84: ! 85: /*************************************************************************** ! 86: * ! 87: * Include application header files ! 88: * ! 89: * dlgsamp.h is header for dialog editor ids ! 90: * dlgsamp.h1 is standard application header for everything not in .h ! 91: * ! 92: ***************************************************************************/ ! 93: ! 94: #include "dlgsamp.h" ! 95: #include "dlgsamp1.h" ! 96: ! 97: /*************************************************************************** ! 98: * ! 99: * Function prototypes for private C functions ! 100: * ! 101: ***************************************************************************/ ! 102: ! 103: VOID NEAR cdecl main( VOID ); ! 104: ! 105: VOID cdecl CentreDlgBox( HWND hwnd ); ! 106: VOID cdecl CheckColor( HWND hwndDlg, SHORT iDlgItem, COLOR *colorClient ); ! 107: VOID cdecl EnableModality( HWND hwnd, BOOL bModal ); ! 108: BOOL cdecl IsIntInRange( HWND hwndDlg, SHORT idEntryField, ! 109: SHORT iLoRange, SHORT iHiRange, ! 110: SHORT idErrMsg, SHORT idMessageBox ); ! 111: VOID cdecl LoadDialog( HWND hwndParent, HWND hwndOwner, ! 112: SHORT idDlg, PFNWP fnwpDlgProc, ! 113: BOOL bModality ); ! 114: VOID cdecl MainWndCommand( HWND hwnd, USHORT command, BOOL *bModality ); ! 115: VOID cdecl MainWndPaint( HWND hwnd ); ! 116: VOID cdecl SetModality( HWND hwnd, BOOL bModal ); ! 117: VOID cdecl Trace( PSZ szCaption, PSZ szMessage ); ! 118: ! 119: /************************************************************************** ! 120: * ! 121: * Function protypes for private WinProcs. ! 122: * ! 123: **************************************************************************/ ! 124: ! 125: MRESULT EXPENTRY fnwpMainWnd( HWND hwnd, USHORT message, ! 126: MPARAM mp1, MPARAM mp2 ); ! 127: MRESULT EXPENTRY fnwpEntryFieldDlg( HWND hwnd, USHORT message, ! 128: MPARAM mp1, MPARAM mp2 ); ! 129: MRESULT EXPENTRY fnwpAutoRadioButtonDlg( HWND hwnd, USHORT message, ! 130: MPARAM mp1, MPARAM mp2 ); ! 131: MRESULT EXPENTRY fnwpCheckBoxDlg( HWND hwnd, USHORT message, ! 132: MPARAM mp1, MPARAM mp2 ); ! 133: MRESULT EXPENTRY fnwpListBoxDlg( HWND hwnd, USHORT message, ! 134: MPARAM mp1, MPARAM mp2 ); ! 135: ! 136: /************************************************************************* ! 137: * ! 138: * Global variables ! 139: * ! 140: *************************************************************************/ ! 141: ! 142: COLOR colorClient = CLR_RED | CLR_BLUE; /* Color of client area */ ! 143: ! 144: CHAR szEntryField1[10] = ""; /* Used to pass back info */ ! 145: CHAR szEntryField2[10] = ""; /* from entry fields */ ! 146: /* in EntryFieldDlg */ ! 147: ! 148: BOOL bModality = TRUE; /* Does the user want modal*/ ! 149: /* or modeless dialogs? */ ! 150: COLOR colorSave; ! 151: CHAR szSelection[LEN_LISTBOXENTRY] = ""; /* Used to pass back */ ! 152: /* list box item selected */ ! 153: /* in ListBoxDlg */ ! 154: ! 155: HAB hab; /* Anchor block handle */ ! 156: HWND hwndClient; /* Client Window handle */ ! 157: HWND hwndFrame; /* Frame Window handle */ ! 158: HWND hwndModelessDlg; /* Modeless Dialog handle */ ! 159: ! 160: /************************************************************************** ! 161: * ! 162: * FUNCTION: main ! 163: * ! 164: * Typical PM main function which initialises PM, creates a message queue, ! 165: * registers a window class, creates a window, gets and dispatches ! 166: * messages to its winproc until its time to quit, and then tidies up ! 167: * before terminating. ! 168: * ! 169: * Side effects: ! 170: * ! 171: * Sets the values of the following globals:- ! 172: * ! 173: * hab, hwndClient, hwndFrame. ! 174: * ! 175: **************************************************************************/ ! 176: ! 177: VOID NEAR cdecl main( ) ! 178: { ! 179: HMQ hmq; /* Message Queue handle */ ! 180: QMSG qmsg; /* Message */ ! 181: ULONG flCreate; ! 182: ! 183: hab = WinInitialize( NULL ); /* Initialise PM */ ! 184: hmq = WinCreateMsgQueue( hab, 0 );/* Create application msg queue */ ! 185: ! 186: WinRegisterClass( /* Register Window Class */ ! 187: hab, /* Anchor block handle */ ! 188: "DlgSamp Class", /* Window Class name */ ! 189: fnwpMainWnd, /* Address of Window Procedure */ ! 190: NULL, /* No special class style */ ! 191: 0 /* No extra window words */ ! 192: ); ! 193: ! 194: flCreate = FCF_STANDARD; ! 195: ! 196: hwndFrame = WinCreateStdWindow( ! 197: HWND_DESKTOP, /* Desktop Window is parent */ ! 198: WS_VISIBLE | ! 199: FS_TASKLIST | ! 200: FS_ICON, /* Window styles */ ! 201: (PVOID)&flCreate, /* Window creation parameters */ ! 202: "DlgSamp Class", /* Window Class name */ ! 203: "", /* Window Text */ ! 204: 0L, /* Client style */ ! 205: NULL, /* Module handle */ ! 206: ID_MAINWND, /* Window ID */ ! 207: (HWND FAR *)&hwndClient /* Client Window handle */ ! 208: ); ! 209: ! 210: ! 211: while( WinGetMsg( hab, (PQMSG)&qmsg, (HWND)NULL, 0, 0 ) ) ! 212: WinDispatchMsg( hab, (PQMSG)&qmsg ); ! 213: ! 214: WinDestroyWindow( hwndFrame ); ! 215: WinDestroyMsgQueue( hmq ); ! 216: WinTerminate( hab ); ! 217: } ! 218: ! 219: /*********************************************************************** ! 220: * ! 221: * WinProc: fnwpMainWnd ! 222: * ! 223: * Controls the state of the menu, and loads various dialogs. The ! 224: * dialogs will be modal or modeless depending on the setting of the ! 225: * Modality menuitem. ! 226: * ! 227: * Side Effects. ! 228: * ! 229: * Modifies the values of the following globals:- ! 230: * ! 231: * szEntryField1, szEntryField2, szSelection ! 232: * ! 233: ***********************************************************************/ ! 234: ! 235: MRESULT EXPENTRY fnwpMainWnd( hwnd, message, mp1, mp2 ) ! 236: HWND hwnd; ! 237: USHORT message; ! 238: MPARAM mp1; ! 239: MPARAM mp2; ! 240: { ! 241: USHORT Command; /* Command passed by WM_COMMAND */ ! 242: SHORT id; /* ID of item selected from the list box */ ! 243: ! 244: switch(message) ! 245: { ! 246: case WM_PAINT: ! 247: MainWndPaint( hwnd ); /* Invoke window painting routine */ ! 248: break; ! 249: case WM_HELP: ! 250: /********************************************************************* ! 251: * ! 252: * This will be received when either:- ! 253: * ! 254: * 1. The user depresses F1 ! 255: * 2. The user clicks on the action bar item F1=Help ! 256: * ! 257: *********************************************************************/ ! 258: WinMessageBox( HWND_DESKTOP, ! 259: hwndFrame, ! 260: (PSZ)"Dialog Sample Application: Help", ! 261: (PSZ)"Try out the pulldown menus, or Alt+selection", ! 262: ID_MB, ! 263: MB_OK ); ! 264: break; ! 265: case WM_COMMAND: ! 266: Command = SHORT1FROMMP( mp1 ); ! 267: MainWndCommand( hwnd, Command, &bModality ); ! 268: break; ! 269: case DLGSAMP_EFCOMPLETE: ! 270: WinQueryWindowText( WinWindowFromID( hwndModelessDlg, EF_1 ), ! 271: sizeof( szEntryField1 ), szEntryField1 ); ! 272: WinQueryWindowText( WinWindowFromID( hwndModelessDlg, EF_2 ), ! 273: sizeof( szEntryField2 ), szEntryField2 ); ! 274: WinInvalidateRect( hwnd, NULL, FALSE );/* Request whole window repaint */ ! 275: break; ! 276: case DLGSAMP_LBCOMPLETE: ! 277: id = SHORT1FROMMR( WinSendDlgItemMsg( hwndModelessDlg, ! 278: LB_1, ! 279: LM_QUERYSELECTION, ! 280: 0L, ! 281: 0L ) ); ! 282: if( id == LIT_NONE ) ! 283: strcpy( szSelection, "" ); ! 284: else ! 285: WinSendDlgItemMsg( hwndModelessDlg, ! 286: LB_1, ! 287: LM_QUERYITEMTEXT, ! 288: MPFROM2SHORT( id, sizeof( szSelection ) ), ! 289: MPFROMP( szSelection ) ); ! 290: break; ! 291: case DLGSAMP_RBCOMPLETE: ! 292: case DLGSAMP_CBCOMPLETE: ! 293: break; ! 294: case DLGSAMP_DESTROYDLG: ! 295: WinDestroyWindow( hwndModelessDlg ); ! 296: EnableModality( hwndFrame, TRUE ); ! 297: WinInvalidateRect( hwnd, NULL, FALSE );/* Request whole window repaint */ ! 298: break; ! 299: case WM_CLOSE: ! 300: WinPostMsg( hwnd, WM_QUIT, 0L, 0L ); /* Cause termination */ ! 301: break; ! 302: default: ! 303: return WinDefWindowProc( hwnd, message, mp1, mp2 ); ! 304: } ! 305: return FALSE; ! 306: } ! 307: ! 308: /*********************************************************************** ! 309: * ! 310: * DlgProc: fnwpEntryFieldDlg ! 311: * ! 312: * A dialog proc which captures and validates the contents of two ! 313: * entry fields. ! 314: * ! 315: * Side effects. ! 316: * ! 317: * Modifies the globals szEntryField1, szEntryField2. ! 318: * ! 319: ***********************************************************************/ ! 320: ! 321: MRESULT EXPENTRY fnwpEntryFieldDlg( hwndDlg, message, mp1, mp2 ) ! 322: HWND hwndDlg; ! 323: USHORT message; ! 324: MPARAM mp1; ! 325: MPARAM mp2; ! 326: { ! 327: switch (message) ! 328: { ! 329: case WM_INITDLG: ! 330: CentreDlgBox( hwndDlg ); ! 331: break; ! 332: case WM_COMMAND: ! 333: switch( SHORT1FROMMP( mp1 ) ) ! 334: { ! 335: case DID_OK: /* Enter key or pushbutton pressed/ selected */ ! 336: ! 337: /*************************************************************************** ! 338: * ! 339: * Validate the contents of the two entry fields ! 340: * ! 341: ***************************************************************************/ ! 342: ! 343: if( !IsIntInRange( hwndDlg, EF_1, 1, 100, ERR_EFINVALID, ID_MB ) ) ! 344: return FALSE; ! 345: if( !IsIntInRange( hwndDlg, EF_2, 1, 100, ERR_EFINVALID, ID_MB ) ) ! 346: return FALSE; ! 347: ! 348: /*************************************************************************** ! 349: * ! 350: * A modal dialog is destroyed before control is returned to the ! 351: * invoking winproc, so it must pass the contents of its Entry Fields etc. ! 352: * back to the invoking window before it returns. ! 353: * ! 354: * When a modeless dialog box returns it still continues to exist. It ! 355: * could pass the contents of its Entry Fields etc. back to the ! 356: * invoking window in several ways. ! 357: * ! 358: * Here a user message is posted to the invoking window to say that the ! 359: * dialog has completed. The invoking window then has an opportunity ! 360: * to extract the contents of the Entry Fields etc. ! 361: * ! 362: ***************************************************************************/ ! 363: ! 364: if( bModality ) ! 365: { ! 366: WinQueryWindowText( WinWindowFromID( hwndDlg, EF_1 ), ! 367: sizeof( szEntryField1), ! 368: szEntryField1 ); ! 369: WinQueryWindowText( WinWindowFromID( hwndDlg, EF_2 ), ! 370: sizeof( szEntryField2), ! 371: szEntryField2 ); ! 372: } ! 373: else ! 374: WinPostMsg( hwndClient, DLGSAMP_EFCOMPLETE, 0L, 0L ); ! 375: ! 376: case DID_CANCEL:/* Escape key or CANCEL pushbutton pressed/selected */ ! 377: if( bModality ) ! 378: WinDismissDlg( hwndDlg,TRUE ); ! 379: else ! 380: WinPostMsg( hwndClient, DLGSAMP_DESTROYDLG, 0L, 0L ); ! 381: return FALSE; ! 382: default: ! 383: break; ! 384: } ! 385: break; ! 386: ! 387: default: /* Pass all other messages to the default dialog proc */ ! 388: return WinDefDlgProc( hwndDlg, message, mp1, mp2 ); ! 389: } ! 390: return FALSE; ! 391: } ! 392: ! 393: /*********************************************************************** ! 394: * ! 395: * DlgProc: fnwpAutoRadioButtonDlg ! 396: * ! 397: * A dialog procedure which uses auto radio buttons to change the ! 398: * color of the Client Area window. ! 399: * ! 400: * Side effects. ! 401: * ! 402: * Modifies the Client Area color and the global colorClient ! 403: * ! 404: ***********************************************************************/ ! 405: ! 406: MRESULT EXPENTRY fnwpAutoRadioButtonDlg( hwndDlg, message, mp1, mp2 ) ! 407: HWND hwndDlg; ! 408: USHORT message; ! 409: MPARAM mp1; ! 410: MPARAM mp2; ! 411: { ! 412: switch (message) ! 413: { ! 414: case WM_INITDLG: ! 415: colorSave = colorClient; ! 416: CentreDlgBox( hwndDlg ); ! 417: break; ! 418: case WM_CONTROL: ! 419: if( SHORT2FROMMP( mp1 ) == BN_CLICKED ) ! 420: switch( SHORT1FROMMP( mp1 ) ) ! 421: { ! 422: case RB_RED: ! 423: colorClient = CLR_RED; ! 424: break; ! 425: case RB_GREEN: ! 426: colorClient = CLR_GREEN; ! 427: break; ! 428: case RB_BLUE: ! 429: colorClient = CLR_BLUE; ! 430: break; ! 431: default: ! 432: return FALSE; ! 433: } ! 434: WinInvalidateRect( hwndClient, NULL, FALSE ); ! 435: break; ! 436: case WM_COMMAND: ! 437: switch( SHORT1FROMMP( mp1 ) ) ! 438: { ! 439: case DID_OK: /* Enter key or pushbutton pressed/ selected */ ! 440: if( !bModality ) ! 441: WinPostMsg( hwndClient, DLGSAMP_RBCOMPLETE, 0L, 0L ); ! 442: break; ! 443: case DID_CANCEL: /* Escape key or CANCEL pushbutton pressed/selected */ ! 444: colorClient = colorSave; ! 445: break; ! 446: default: ! 447: return WinDefDlgProc( hwndDlg, message, mp1, mp2 ); ! 448: } ! 449: if( bModality ) ! 450: WinDismissDlg( hwndDlg, TRUE ); ! 451: else ! 452: WinPostMsg( hwndClient, DLGSAMP_DESTROYDLG, 0L, 0L ); ! 453: break; ! 454: ! 455: default: /* Pass all other messages to the default dialog proc */ ! 456: return WinDefDlgProc( hwndDlg, message, mp1, mp2 ); ! 457: } ! 458: return FALSE; ! 459: } ! 460: ! 461: ! 462: /*********************************************************************** ! 463: * ! 464: * DlgProc: fnwpCheckBoxDlg ! 465: * ! 466: * A dialog procedure to which use checkboxes to change the color ! 467: * of the Client Area Window. ! 468: * ! 469: * Side effects ! 470: * ! 471: * Modifies the Client Area color and the global colorClient ! 472: * ! 473: ***********************************************************************/ ! 474: ! 475: MRESULT EXPENTRY fnwpCheckBoxDlg( hwndDlg, message, mp1, mp2 ) ! 476: HWND hwndDlg; ! 477: USHORT message; ! 478: MPARAM mp1; ! 479: MPARAM mp2; ! 480: { ! 481: switch (message) ! 482: { ! 483: case WM_INITDLG: ! 484: CentreDlgBox( hwndDlg ); ! 485: colorSave = colorClient; ! 486: if( (colorClient & CLR_RED) == CLR_RED ) ! 487: WinPostMsg( WinWindowFromID( hwndDlg, CB_RED ), ! 488: BM_SETCHECK, ! 489: MPFROM2SHORT( TRUE,0 ), ! 490: 0L ); ! 491: if( (colorClient & CLR_GREEN) == CLR_GREEN ) ! 492: WinPostMsg( WinWindowFromID( hwndDlg, CB_GREEN ), ! 493: BM_SETCHECK, ! 494: MPFROM2SHORT( TRUE,0 ), ! 495: 0L ); ! 496: if( (colorClient & CLR_BLUE) == CLR_BLUE ) ! 497: WinPostMsg( WinWindowFromID( hwndDlg, CB_BLUE ), ! 498: BM_SETCHECK, ! 499: MPFROM2SHORT( TRUE,0 ), ! 500: 0L ); ! 501: break; ! 502: case WM_CONTROL: /* User has clicked on a checkbox */ ! 503: if( SHORT2FROMMP( mp1 ) == BN_CLICKED ) ! 504: CheckColor( hwndDlg, SHORT1FROMMP( mp1 ), &colorClient ); ! 505: WinInvalidateRect( hwndClient, NULL, FALSE ); ! 506: break; ! 507: case WM_COMMAND: ! 508: switch( SHORT1FROMMP( mp1 ) ) ! 509: { ! 510: case DID_OK: /* Enter key or pushbutton pressed/ selected */ ! 511: if( !bModality ) ! 512: WinPostMsg( hwndClient, DLGSAMP_CBCOMPLETE, 0L, 0L ); ! 513: break; ! 514: case DID_CANCEL: /* Escape key or CANCEL pushbutton pressed/selected */ ! 515: colorClient = colorSave; ! 516: break; ! 517: default: ! 518: return WinDefDlgProc( hwndDlg, message, mp1, mp2 ); ! 519: } ! 520: if( bModality ) ! 521: WinDismissDlg( hwndDlg, TRUE ); ! 522: else ! 523: WinPostMsg( hwndClient, DLGSAMP_DESTROYDLG, 0L, 0L ); ! 524: return FALSE; ! 525: ! 526: default: /* Pass all other messages to the default dialog proc */ ! 527: return WinDefDlgProc( hwndDlg, message, mp1, mp2 ); ! 528: } ! 529: return FALSE; ! 530: } ! 531: ! 532: /*********************************************************************** ! 533: * ! 534: * DlgProc: fnwpListBoxDlg ! 535: * ! 536: * Side effects ! 537: * ! 538: * Modifies the global szSelection ! 539: * ! 540: ***********************************************************************/ ! 541: ! 542: MRESULT EXPENTRY fnwpListBoxDlg( hwndDlg, message, mp1, mp2 ) ! 543: HWND hwndDlg; ! 544: USHORT message; ! 545: MPARAM mp1; ! 546: MPARAM mp2; ! 547: { ! 548: CHAR szBuffer[LEN_LISTBOXENTRY]; ! 549: SHORT i; ! 550: SHORT id; ! 551: ! 552: switch (message) ! 553: { ! 554: case WM_INITDLG: ! 555: CentreDlgBox( hwndDlg ); ! 556: ! 557: /************************************************************************* ! 558: * ! 559: * Initialise the listbox with a set of strings loaded from a ! 560: * resource file. ! 561: * ! 562: *************************************************************************/ ! 563: ! 564: for ( i = 0; i < NUM_LISTBOXENTRIES; i++ ) ! 565: { ! 566: WinLoadString( hab, ! 567: NULL, ! 568: LBI_1 + i, /****** WARNING *********/ ! 569: LEN_LISTBOXENTRY, /* Differs */ ! 570: (PSZ)szBuffer /* from spec */ ! 571: ); ! 572: WinSendDlgItemMsg( hwndDlg, ! 573: LB_1, ! 574: LM_INSERTITEM, ! 575: MPFROM2SHORT( LIT_END, 0 ), ! 576: MPFROMP( szBuffer ) ! 577: ); ! 578: } ! 579: break; ! 580: case WM_COMMAND: ! 581: switch( SHORT1FROMMP( mp1 ) ) ! 582: { ! 583: case DID_OK: /* Enter key or pushbutton pressed/ selected */ ! 584: if( bModality ) ! 585: { ! 586: ! 587: /*********************************************************************** ! 588: * ! 589: * Find out which item if any was selected and return the selected ! 590: * item text. ! 591: * ! 592: ***********************************************************************/ ! 593: ! 594: id = SHORT1FROMMR( WinSendDlgItemMsg( hwndDlg, ! 595: LB_1, ! 596: LM_QUERYSELECTION, ! 597: 0L, ! 598: 0L ) ); ! 599: if( id == LIT_NONE ) ! 600: strcpy( szSelection, "" ); ! 601: else ! 602: WinSendDlgItemMsg( hwndDlg, ! 603: LB_1, ! 604: LM_QUERYITEMTEXT, ! 605: MPFROM2SHORT( id, LEN_LISTBOXENTRY ), ! 606: MPFROMP( szSelection ) ); ! 607: } ! 608: else ! 609: WinPostMsg( hwndClient, DLGSAMP_LBCOMPLETE, 0L, 0L ); ! 610: case DID_CANCEL: /* Escape key or CANCEL pushbutton pressed/selected */ ! 611: if( bModality ) ! 612: WinDismissDlg( hwndDlg, TRUE ); ! 613: else ! 614: WinPostMsg( hwndClient, DLGSAMP_DESTROYDLG, 0L, 0L ); ! 615: return FALSE; ! 616: default: ! 617: break; ! 618: } ! 619: break; ! 620: ! 621: default: /* Pass all other messages to the default dialog proc */ ! 622: return WinDefDlgProc( hwndDlg, message, mp1, mp2 ); ! 623: } ! 624: return FALSE; ! 625: } ! 626: ! 627: /************************************************************************* ! 628: * ! 629: * PRIVATE FUNCTION : CentreDlgBox ! 630: * ! 631: * Positions the dialog box in the centre of the screen ! 632: * ! 633: *************************************************************************/ ! 634: ! 635: VOID cdecl CentreDlgBox( hwnd ) ! 636: HWND hwnd; ! 637: { ! 638: SHORT ix, iy; ! 639: SHORT iwidth, idepth; ! 640: SWP swp; ! 641: ! 642: iwidth = (SHORT)WinQuerySysValue( HWND_DESKTOP, SV_CXSCREEN ); ! 643: idepth = (SHORT)WinQuerySysValue( HWND_DESKTOP, SV_CYSCREEN ); ! 644: WinQueryWindowPos( hwnd, (PSWP)&swp ); ! 645: ix = ( iwidth - swp.cx ) / 2; ! 646: iy = ( idepth - swp.cy ) / 2; ! 647: WinSetWindowPos( hwnd, HWND_TOP, ix, iy, 0, 0, SWP_MOVE ); ! 648: } ! 649: ! 650: /*************************************************************************** ! 651: * ! 652: * PRIVATE FUNCTION: CheckColor ! 653: * ! 654: * Toggle the Checked/UnChecked state of a checkbox and add/remove ! 655: * the corresponding CLR color component of the Client Area Color. ! 656: * ! 657: ***************************************************************************/ ! 658: ! 659: VOID cdecl CheckColor( hwndDlg, iDlgItem, colorClient ) ! 660: HWND hwndDlg; ! 661: SHORT iDlgItem; ! 662: COLOR *colorClient; ! 663: { ! 664: BOOL bChecked; ! 665: COLOR color; ! 666: ! 667: switch( iDlgItem ) ! 668: { ! 669: case CB_RED: ! 670: color = CLR_RED; ! 671: break; ! 672: case CB_GREEN: ! 673: color = CLR_GREEN; ! 674: break; ! 675: case CB_BLUE: ! 676: color = CLR_BLUE; ! 677: break; ! 678: default: ! 679: return; ! 680: } ! 681: ! 682: bChecked = SHORT1FROMMR( WinSendMsg( WinWindowFromID( hwndDlg , iDlgItem ), ! 683: BM_QUERYCHECK, ! 684: 0L, ! 685: 0L ) ); ! 686: WinPostMsg( WinWindowFromID( hwndDlg, iDlgItem ), ! 687: BM_SETCHECK, ! 688: MPFROM2SHORT( !bChecked, 0 ), ! 689: 0L ); ! 690: if( bChecked ) /* If color previously checked */ ! 691: *colorClient -= color; /* subtract it ... else */ ! 692: else ! 693: *colorClient += color; /* ... add it. */ ! 694: } ! 695: ! 696: /************************************************************************** ! 697: * ! 698: * PRIVATE FUNCTION: EnableModality ! 699: * ! 700: * Enable or disable the Modality menuitems depending on the value ! 701: * of modal. This is done to prevent the user from altering the ! 702: * modality setting while a modeless dialog is active. ! 703: * ! 704: **************************************************************************/ ! 705: ! 706: VOID cdecl EnableModality( hwnd, bModal ) ! 707: HWND hwnd; ! 708: BOOL bModal; ! 709: { ! 710: if( bModal ) ! 711: { ! 712: WinPostMsg( WinWindowFromID( hwnd, FID_MENU ), ! 713: MM_SETITEMATTR, ! 714: MPFROM2SHORT( MI_MODAL, TRUE ), ! 715: MPFROM2SHORT( MIA_DISABLED, ~MIA_DISABLED ) ); ! 716: WinPostMsg( WinWindowFromID( hwnd, FID_MENU ), ! 717: MM_SETITEMATTR, ! 718: MPFROM2SHORT( MI_MODELESS, TRUE ), ! 719: MPFROM2SHORT( MIA_DISABLED, ~MIA_DISABLED ) ); ! 720: } ! 721: else ! 722: { ! 723: WinPostMsg( WinWindowFromID( hwnd, FID_MENU ), ! 724: MM_SETITEMATTR, ! 725: MPFROM2SHORT( MI_MODAL, TRUE ), ! 726: MPFROM2SHORT( MIA_DISABLED, MIA_DISABLED ) ); ! 727: WinPostMsg( WinWindowFromID( hwnd, FID_MENU ), ! 728: MM_SETITEMATTR, ! 729: MPFROM2SHORT( MI_MODELESS, TRUE ), ! 730: MPFROM2SHORT( MIA_DISABLED, MIA_DISABLED ) ); ! 731: } ! 732: } ! 733: ! 734: /*************************************************************************** ! 735: * ! 736: * PRIVATE FUNCTION: IsIntInRange. ! 737: * ! 738: * Checks whether the value of a dialog item is in an integer in ! 739: * a given range. ! 740: * ! 741: ***************************************************************************/ ! 742: ! 743: BOOL cdecl IsIntInRange( hwndDlg, idEntryField, ! 744: iLoRange, iHiRange, ! 745: idErrMsg, idMessageBox ) ! 746: HWND hwndDlg; ! 747: SHORT idEntryField; ! 748: SHORT iLoRange; ! 749: SHORT iHiRange; ! 750: SHORT idErrMsg; ! 751: SHORT idMessageBox; ! 752: { ! 753: SHORT ivalue; ! 754: CHAR szErrMsg[80]; ! 755: ! 756: /**************************************************************************** ! 757: * ! 758: * Validate an entry field. ! 759: * ! 760: * If validation fails leave the dialog visible, issue an error message ! 761: * using a messagebox, and when the user dismisses the messagebox, ! 762: * set the input focus to the entry field containing the error. Leave ! 763: * the contents of the entry field unchanged, and return FALSE. ! 764: * ! 765: * If validation is successful return the value in ivalue and return ! 766: * TRUE. ! 767: * ! 768: ****************************************************************************/ ! 769: ! 770: if( !WinQueryDlgItemShort( hwndDlg, idEntryField, &ivalue, TRUE ) || ! 771: ( ivalue < iLoRange ) || ! 772: ( ivalue > iHiRange ) ) ! 773: { ! 774: WinLoadString( hab, NULL, idErrMsg, sizeof( szErrMsg ), szErrMsg ); ! 775: WinMessageBox( HWND_DESKTOP, ! 776: hwndFrame, ! 777: (PSZ)szErrMsg, ! 778: NULL, ! 779: idMessageBox, ! 780: MB_OK ); ! 781: WinSetFocus( HWND_DESKTOP, WinWindowFromID( hwndDlg, idEntryField ) ); ! 782: return FALSE; ! 783: } ! 784: else ! 785: return TRUE; ! 786: } ! 787: ! 788: /*********************************************************************** ! 789: * ! 790: * PRIVATE FUNCTION: LoadDialog ! 791: * ! 792: * Use the appropriate functions to put up a modal or modeless ! 793: * dialog box depending on the setting of the bModality parameter. ! 794: * ! 795: * Side Effects ! 796: * ! 797: * Stes the value of the global hwndModelessDlg ! 798: * ! 799: ***********************************************************************/ ! 800: ! 801: VOID cdecl LoadDialog( hwndParent, hwndOwner, idDlg, fnwpDlgProc, bModality ) ! 802: HWND hwndParent; ! 803: HWND hwndOwner; ! 804: SHORT idDlg; ! 805: PFNWP fnwpDlgProc; ! 806: BOOL bModality; ! 807: { ! 808: EnableModality( hwndOwner, FALSE ); /* Disable the Modality menu item */ ! 809: ! 810: if( bModality ) ! 811: { ! 812: WinDlgBox( hwndParent, /* Parent */ ! 813: hwndOwner, /* Owner */ ! 814: fnwpDlgProc, /* Address of dialog proc */ ! 815: NULL, /* Module handle */ ! 816: idDlg, /* Id of dialog in resource */ ! 817: NULL ); /* Initialisation data */ ! 818: EnableModality( hwndOwner, TRUE ); /* Enable the Modality menu item */ ! 819: } ! 820: else ! 821: { ! 822: /******************************************************************* ! 823: * ! 824: * Check to see if a modeless dialog is already running: if ! 825: * so destroy it before for loading the requested dialog. Save ! 826: * the handle of the new dialog in a global variable so that in ! 827: * can be accessed by the WinProc that issued LoadDialog. ! 828: * ! 829: *******************************************************************/ ! 830: ! 831: if( WinIsWindow( hab, hwndModelessDlg ) ) ! 832: WinDestroyWindow( hwndModelessDlg ); ! 833: hwndModelessDlg = WinLoadDlg( hwndParent, ! 834: hwndOwner, ! 835: fnwpDlgProc, ! 836: NULL, ! 837: idDlg, ! 838: NULL ); ! 839: } ! 840: } ! 841: ! 842: /************************************************************************* ! 843: * ! 844: * PRIVATE FUNCTION: MainWndCommand ! 845: * ! 846: * Take the appropriate action when a WM_COMMAND message is received by ! 847: * MainWndProc. Issues calls which load dialogs in the prevailing state ! 848: * of modality. ! 849: * ! 850: *************************************************************************/ ! 851: ! 852: VOID cdecl MainWndCommand( hwnd, Command, bModality ) ! 853: HWND hwnd; ! 854: USHORT Command; ! 855: BOOL *bModality; ! 856: { ! 857: USHORT idDlg; ! 858: PFNWP pfnDlgProc; ! 859: ! 860: switch( Command ) ! 861: { ! 862: case MI_MODAL: ! 863: case MI_MODELESS: ! 864: *bModality = ( Command == MI_MODAL ) ? TRUE ! 865: : FALSE; ! 866: SetModality( WinQueryWindow( hwnd, QW_PARENT, FALSE ), *bModality ); ! 867: WinInvalidateRect( hwnd, NULL, FALSE ); ! 868: return; ! 869: case MI_EXIT: ! 870: WinPostMsg( hwnd, WM_QUIT, 0L, 0L ); ! 871: return; ! 872: case MI_RESUME: ! 873: return; ! 874: case MI_ENTRYFIELDEXAMPLE: ! 875: idDlg = DLG_ENTRYFIELDEXAMPLE; ! 876: pfnDlgProc = (PFNWP)fnwpEntryFieldDlg; ! 877: break; ! 878: case MI_AUTORADIOBUTTONEXAMPLE: ! 879: idDlg = DLG_AUTORADIOBUTTONEXAMPLE; ! 880: pfnDlgProc = (PFNWP)fnwpAutoRadioButtonDlg; ! 881: break; ! 882: case MI_CHECKBOXEXAMPLE: ! 883: idDlg = DLG_CHECKBOXEXAMPLE; ! 884: pfnDlgProc = (PFNWP)fnwpCheckBoxDlg; ! 885: break; ! 886: case MI_LISTBOXEXAMPLE: ! 887: idDlg = DLG_LISTBOXEXAMPLE; ! 888: pfnDlgProc = (PFNWP)fnwpListBoxDlg; ! 889: break; ! 890: default: ! 891: return; ! 892: } ! 893: LoadDialog( HWND_DESKTOP, ! 894: hwndFrame, ! 895: idDlg, ! 896: pfnDlgProc, ! 897: *bModality ); ! 898: if( *bModality ) ! 899: WinInvalidateRect( hwnd, NULL, FALSE ); /* Request whole window repaint */ ! 900: } ! 901: ! 902: /************************************************************************ ! 903: * ! 904: * PRIVATE FUNCTION: MainWndPaint ! 905: * ! 906: * An unsophisticated window painting routine which simply repaints the ! 907: * entire window when a WM_PAINT message is received. In a real ! 908: * application more sophisticated techniques could be used to determine ! 909: * the minimum region needing repainting, and to paint only that ! 910: * region ! 911: * ! 912: ************************************************************************/ ! 913: ! 914: VOID cdecl MainWndPaint( hwnd ) ! 915: HWND hwnd; ! 916: { ! 917: POINTL pointl; ! 918: HPS hps; /* Presentation space handle */ ! 919: RECTL rcl; /* Window rectangle */ ! 920: CHAR string[50]; ! 921: ! 922: hps = WinBeginPaint( hwnd, (HPS)NULL, (PRECTL)&rcl ); ! 923: WinFillRect( hps, (PRECTL)&rcl, colorClient ); ! 924: GpiSetColor( hps, (colorClient == 0L) ? CLR_WHITE ! 925: : CLR_BLACK ); ! 926: pointl.x = 10L; pointl.y = 70L; ! 927: strcpy( string, "Dialog modality = " ); ! 928: strcat( string, (bModality) ? "Modal" ! 929: : "Modeless" ); ! 930: GpiCharStringAt( hps, &pointl, (LONG)strlen( string ), (PSZ)string ); ! 931: pointl.y = 50L; ! 932: strcpy( string, "Entry Field 1 = " ); ! 933: strcat( string, szEntryField1 ); ! 934: GpiCharStringAt( hps, &pointl, (LONG)strlen( string ), (PSZ)string ); ! 935: pointl.y = 30L; ! 936: strcpy( string, "Entry Field 2 = " ); ! 937: strcat( string, szEntryField2 ); ! 938: GpiCharStringAt( hps, &pointl, (LONG)strlen( string ), (PSZ)string ); ! 939: pointl.y = 10L; ! 940: strcpy( string, "List Box Selection = " ); ! 941: strcat( string, szSelection ); ! 942: GpiCharStringAt( hps, &pointl, (LONG)strlen( string ), (PSZ)string ); ! 943: WinEndPaint( hps ); ! 944: } ! 945: ! 946: /************************************************************************** ! 947: * ! 948: * PRIVATE FUNCTION: SetModality ! 949: * ! 950: * Check or uncheck Modal and Modeless menu items as appropriate. ! 951: * ! 952: **************************************************************************/ ! 953: ! 954: VOID cdecl SetModality( hwnd, bModal ) ! 955: HWND hwnd; ! 956: BOOL bModal; ! 957: { ! 958: WinPostMsg( WinWindowFromID( hwnd, FID_MENU ), ! 959: MM_SETITEMATTR, ! 960: MPFROM2SHORT( MI_MODAL, TRUE ), ! 961: MPFROM2SHORT( MIA_CHECKED, (bModal) ? ( MIA_CHECKED) ! 962: : (~MIA_CHECKED) ) ); ! 963: ! 964: WinPostMsg( WinWindowFromID( hwnd, FID_MENU ), ! 965: MM_SETITEMATTR, ! 966: MPFROM2SHORT( MI_MODELESS, TRUE ), ! 967: MPFROM2SHORT( MIA_CHECKED, (bModal) ? (~MIA_CHECKED) ! 968: : ( MIA_CHECKED) ) ); ! 969: ! 970: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.