home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PV31-3.ZIP / EXAMPLES / EXAMPLE3 / EXAMPL3A.PVT < prev    next >
Encoding:
Text File  |  1991-02-01  |  1.1 KB  |  25 lines
  1.  
  2. Insure1 DIALOG LOADONCALL MOVEABLE DISCARDABLE 50, 50, 262, 160
  3. STYLE WS_OVERLAPPEDWINDOW | WS_VISIBLE | DS_ABSALIGN
  4. CAPTION "System Logon"
  5. BEGIN
  6.  /* Insure1ViewProc, EXAMPL3A, demonstration */
  7.      CONTROL "", 1, "String", WS_CHILD | WS_BORDER, 111, 55, 45, 11 /*v1UserID,UserIDFieldProc*/
  8.      CONTROL "", 2, "String", WS_CHILD | WS_VISIBLE WS_BORDER, 111, 73, 44, 11 /*v1Password,PasswordFieldProc*/
  9.      CONTROL "", 3, "Static", WS_CHILD | WS_VISIBLE | SS_GRAYRECT, 38, 90, 159, 11  /*,*/
  10.      CONTROL "", 4, "Static", WS_CHILD | WS_VISIBLE | SS_GRAYRECT, 192, 35, 12, 66  /*,*/
  11.      CONTROL "", 5, "Static", WS_CHILD | WS_VISIBLE | SS_GRAYRECT, 33, 35, 171, 11  /*,*/
  12.      CONTROL "", 6, "Static", WS_CHILD | WS_VISIBLE | SS_GRAYRECT, 33, 35, 12, 66  /*,*/
  13.      CONTROL "&OK", 7, "Button", WS_CHILD | BS_DEFPUSHBUTTON | BS_OKAY, 89, 108, 58, 20  /*,*/
  14.      CONTROL "Enter &User ID:", 1, "text", WS_CHILD, 54, 56, 0, 0
  15.      CONTROL "Enter &Password:", 6, "text", WS_CHILD, 48, 74, 0, 0
  16. END
  17.  
  18. /* Color Values and Validation strings */
  19. Insure1 RCDATA LOADONCALL MOVEABLE DISCARDABLE
  20. BEGIN
  21. 1,
  22. 0, -1,0, 255,0, -1,0, 0,
  23. 0,
  24. END
  25.