
// Constants for dialog box - some may be redundant



#define DS_CENTER           0x0800L
#define DS_3DLOOK           0x0004L
#define DS_MODALFRAME       0x80L

#define ES_AUTOHSCROLL      0x80L
#define ES_LEFT             0

#define IDD_DIALOG1	    101

#define IDC_UPPERX	    1000
#define IDC_UPPERY	    1001
#define IDC_LOWERX	    1002
#define IDC_LOWERY	    1003
#define IDC_TEXT            1004

#define IDC_STATIC	    -1

#define ID_DATA_TEXT 	    40001
#define ID_DATA_INT	    40002
#define ID_HELP_ABOUT	    40003
#define ID_HELP_EXIT	    40004

#define IDOK	            1
#define IDCANCEL            2
#define WS_MINIMIZEBOX      0x00020000L
#define WS_SYSMENU          0x00080000L
#define WS_VISIBLE          0x10000000L
#define WS_OVERLAPPED       0x00000000L
#define WS_POPUP	    0x80000000L
#define WS_CAPTION          0xC00000L
#define WS_GROUP 	    0x00020000L
#define WS_CHILD	    0x40000000L

DataMenu MENU DISCARDABLE
{
 POPUP "&Data"
        {
	 MENUITEM "&Text...", 		ID_DATA_TEXT
         MENUITEM "&Integer...",	ID_DATA_INT
        }
 POPUP "&Help"
	{
	 MENUITEM "&About...",		ID_HELP_ABOUT
	 MENUITEM "&Exit",		ID_HELP_EXIT
        }
}

About DIALOG DISCARDABLE 0, 0, 190, 90
STYLE  DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU 
CAPTION "About Dialog"
FONT 8, "MS Sans Serif"
BEGIN
    DEFPUSHBUTTON   "OK", IDOK, 69,69,50,14
    CTEXT "Text and Integer Data Entry Dialog Box",IDC_STATIC,15,10,151,10
    CTEXT "by",IDC_STATIC, 80,25,30,10
    CTEXT "Ron Thomas", IDC_STATIC, 20,45,155,10
END

TextDlg DIALOG DISCARDABLE 10, 10, 185, 95
STYLE  DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU  
CAPTION "Text Entry Dialog Box"
FONT 8, "MS Sans Serif"
BEGIN
    DEFPUSHBUTTON   "OK", IDOK,  35,65,50,15
    PUSHBUTTON      "Cancel",IDCANCEL,100,65,50,15
    LTEXT	    "Enter a line of text:",IDC_STATIC,17,14,150,15
    EDITTEXT        IDC_TEXT,18,38,151,13,ES_AUTOHSCROLL
END

IntDlg DIALOG DISCARDABLE 0, 0, 185, 135
STYLE  DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU  
CAPTION "Integer Entry Dioalog Box"
FONT 8, "MS Sans Serif"
BEGIN
    CTEXT	    "Enter integer values below:",IDC_STATIC,15,5,155,12

    RTEXT	    "Upper-Left X:",IDC_STATIC,25,30,45,11
    RTEXT	    "Upper-Left Y:",IDC_STATIC,25,45,45,15
    RTEXT	    "Lower-Right X:",IDC_STATIC,20,70,49,12
    RTEXT	    "Lower-Right Y:",IDC_STATIC,20,85,49,11
   
    EDITTEXT        IDC_UPPERX,85,30,50,10,ES_AUTOHSCROLL
    EDITTEXT        IDC_UPPERY,85,45,50,10,ES_AUTOHSCROLL
    EDITTEXT        IDC_LOWERX,85,70,50,10,ES_AUTOHSCROLL
    EDITTEXT        IDC_LOWERY,85,85,50,10,ES_AUTOHSCROLL

    DEFPUSHBUTTON   "OK", IDOK,  35,115,50,15
    PUSHBUTTON      "Cancel",IDCANCEL,105,115,50,15
END
