home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / Samples / BUTONS12.ARJ / EXAMPLE.ZIP / EXAMPLE.DLG < prev    next >
Encoding:
Text File  |  1992-12-21  |  1.4 KB  |  29 lines
  1.  
  2. DIALOG_1 DIALOG 18, 18, 157, 117
  3. STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
  4. CLASS "BORDLG"
  5. CAPTION "-Example-"
  6. FONT 10, "Arial"
  7. BEGIN
  8.     CONTROL "&Ok", IDOK, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 17, 88, 32, 20
  9.     CONTROL "&Cancel", IDCANCEL, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 61, 88, 32, 20
  10.     CONTROL "&Register", idExample, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 105, 88, 32, 20
  11.     CONTROL "", 104, "BorShade", 32769 | WS_CHILD | WS_VISIBLE, 14, 8, 128, 63
  12.     CONTROL "", 105, "BorShade", 2 | WS_CHILD | WS_VISIBLE, 0, 79, 157, 2
  13.     CONTROL "This is an example dialog box", 106, "BorStatic", SS_CENTER | WS_CHILD | WS_VISIBLE, 23, 22, 111, 10
  14.     CONTROL "in the Borland style using BWCC", 107, "BorStatic", SS_LEFT | WS_CHILD | WS_VISIBLE, 26, 36, 105, 8
  15.     CONTROL "bitmap buttons", 108, "BorStatic", SS_CENTER | WS_CHILD | WS_VISIBLE, 27, 48, 103, 9
  16. END
  17.  
  18. DIALOG_2 DIALOG 18, 18, 142, 92
  19. STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
  20. CLASS "BORDLG"
  21. CAPTION "-Register-"
  22. BEGIN
  23.     CONTROL "Ok", IDOK, "BorBtn", BS_DEFPUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 55, 65, 32, 20
  24.     CONTROL "", 101, "BorShade", 2 | WS_CHILD | WS_VISIBLE, 0, 56, 142, 2
  25.     CONTROL "", 102, "BorShade", 32769 | WS_CHILD | WS_VISIBLE, 8, 7, 126, 40
  26.     CONTROL "Phew! That worked...", 103, "BorStatic", SS_CENTER | WS_CHILD | WS_VISIBLE, 19, 22, 104, 8
  27. END
  28.  
  29.