nodigits.rc

这一系列是我平时收集的pascal深入核心编程

// Define 
 #define IDD_NODIGITS 104
 #define IDD_SUBCLASS 104
 #define IDI_NODIGITS 105
 #define IDI_SUBCLASS 105
 #define IDC_EDIT 1000
 #define IDC_NODIGITS1 1004
 #define IDC_NODIGITS2 1005
 #define IDC_STATIC -1

// Icon
 IDI_SUBCLASS ICON DISCARDABLE "NoDigits.Ico"

// Dialog
 IDD_SUBCLASS DIALOG DISCARDABLE -32768, 5, 192, 79
   STYLE WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
   CAPTION "No Digits"
   FONT 8, "MS Sans Serif"
 BEGIN
   LTEXT "&Edit:", IDC_STATIC, 7, 8, 15, 8
   EDITTEXT IDC_EDIT,43, 8, 140, 13, ES_AUTOHSCROLL
   LTEXT "NoDigit &1:", IDC_STATIC, 7, 24, 34, 8
   EDITTEXT IDC_NODIGITS1, 43, 24, 140, 13, ES_AUTOHSCROLL
   LTEXT "NoDigit &2:", IDC_STATIC, 7, 40, 34, 8
   EDITTEXT IDC_NODIGITS2, 43, 40, 140, 13, ES_AUTOHSCROLL
   DEFPUSHBUTTON "OK", 1, 36, 60, 50, 14
   PUSHBUTTON "Cancel", 2, 104, 60, 50, 14
 END