tabstops.rc

来自「这一系列是我平时收集的pascal深入核心变成」· RC 代码 · 共 40 行

// Define 
 #define IDC_STATIC -1
 #define IDC_CTRLPRNT 101
 #define IDD_TABSTOPS 102
 #define IDD_CTRLPRNT 103
 #define IDI_TABSTOPS 104
 #define IDC_CHECK1 1000
 #define IDC_CHECK2 1001
 #define IDC_CHECK3 1002
 #define IDC_LIST1 1004
 #define IDC_EDIT1 1005
 #define IDC_ADDDLGCNTL 1006

// Dialog
 IDD_TABSTOPS DIALOG DISCARDABLE -32768, 5, 248, 106
   STYLE WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
   CAPTION "Tabstops"
   FONT 8, "MS Sans Serif"
 BEGIN
   CONTROL "Checkbox &1", IDC_CHECK1, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 8, 8, 56, 10
   CONTROL "Checkbox &2", IDC_CHECK2, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 8, 20, 56, 10
   CONTROL "Checkbox &3", IDC_CHECK3, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 8, 32, 56, 10
   PUSHBUTTON "&Add dialog control", IDC_ADDDLGCNTL, 8, 60, 64, 14
   LTEXT "Placeholder for control parent dialog box\n\nThis window is destroyed when the ""Add dialog control"" button is pressed.", IDC_CTRLPRNT, 80, 8, 104, 92
   DEFPUSHBUTTON "OK", IDOK, 192, 4, 50, 14
   PUSHBUTTON "Cancel", IDCANCEL, 192, 21, 50, 14
 END

 IDD_CTRLPRNT DIALOG DISCARDABLE 0, 0, 104, 92
   STYLE WS_CHILD | WS_VISIBLE
   FONT 8, "MS Sans Serif"
 BEGIN
   LTEXT "&Listbox:", IDC_STATIC, 0, 0, 29, 8
   LISTBOX IDC_LIST1, 0, 12, 100, 28, LBS_SORT | LBS_NOINTEGRALHEIGHT | WS_VSCROLL | WS_TABSTOP
   LTEXT "&Edit:", IDC_STATIC, 0, 48, 16, 8
   EDITTEXT IDC_EDIT1, 0, 60, 100, 32, ES_MULTILINE | ES_AUTOHSCROLL
 END

// Icon
 IDI_TABSTOPS ICON DISCARDABLE "TabStops.ico"