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 / EXAMPL3C.PVT < prev    next >
Encoding:
Text File  |  1991-02-01  |  2.1 KB  |  44 lines
  1.  
  2. insure2 DIALOG LOADONCALL MOVEABLE DISCARDABLE 30, 40, 272, 126
  3. STYLE WS_POPUP | DS_ABSALIGN | WS_VISIBLE | WS_BORDER | WS_CAPTION | WS_DLGFRAME | WS_SYSMENU | WS_SIZEBOX | WS_THICKFRAME | WS_MAXIMIZEBOX
  4. BEGIN
  5.  /* Insure4ViewProc, insure4, demonstration */
  6.      CONTROL "", 1, "String", WS_CHILD | WS_BORDER, 48, 2, 72, 10  /*v2LastName,v2LastNameFieldProc*/
  7.      CONTROL "", 2, "String", WS_CHILD | WS_BORDER, 165, 2, 60, 10  /*v2FirstName,v2FirstNameFieldProc*/
  8.      CONTROL "", 3, "String", WS_CHILD | WS_BORDER, 244, 2, 12, 10  /*v2MidInit,v2MidInitFieldProc*/
  9.      CONTROL "", 4, "String", WS_CHILD | WS_BORDER, 48, 14, 140, 10  /*v2Street,*/
  10.      CONTROL "", 5, "String", WS_CHILD | WS_BORDER, 48, 27, 60, 10  /*v2City,*/
  11.      CONTROL "", 6, "String", WS_CHILD | WS_BORDER, 136, 27, 16, 10  /*v2State,*/
  12.      CONTROL "", 7, "String", WS_CHILD | WS_BORDER, 194, 27, 36, 10  /*v2Zipcode,*/
  13.      CONTROL "", 8, "String", WS_CHILD | WS_BORDER, 132, 40, 62, 11  /*v2Telephone,*/
  14.      CONTROL "  &Okay  ", 9, "Button", WS_CHILD | BS_PUSHBUTTON | BS_OKAY, 60, 59, 52, 16  /*v2Okay,*/
  15.      CONTROL " &Cancel ", 10, "Button", WS_CHILD | BS_PUSHBUTTON | BS_CANCEL, 144, 59, 53, 16  /*v2Cancel,*/
  16.      CONTROL "&Last Name:", 0, "text", WS_CHILD, 3, 3, 0, 0
  17.      CONTROL "&First Name:", 0, "text", WS_CHILD, 121, 3, 0, 0
  18.      CONTROL "&M.I.", 0, "text", WS_CHILD, 228, 3, 0, 0
  19.      CONTROL "S&treet:", 0, "text", WS_CHILD, 14, 16, 0, 0
  20.      CONTROL "&City:", 0, "text", WS_CHILD, 22, 27, 0, 0
  21.      CONTROL "&State:", 0, "text", WS_CHILD, 110, 27, 0, 0
  22.      CONTROL "&Zipcode:", 0, "text", WS_CHILD, 160, 27, 0, 0
  23.      CONTROL "&Telephone:", 0, "text", WS_CHILD, 88, 42, 0, 0
  24. END
  25.  
  26. /* Color Values and Validation strings */
  27. insure2 RCDATA LOADONCALL MOVEABLE DISCARDABLE
  28. BEGIN
  29. 1,
  30. 255, 0,255, -1,255, 0,0, -1,
  31. 4,
  32. 4, "@MND, @MSG(Please enter address)@VSCP", 0,
  33. 6, "@MND, @TBL(state.tab), @DISPLAY(3),@KEY(1)@POS(0, 0, 80, 50)", 0,
  34. 7, "@NUM", 0,
  35. 8, "@NUM, @MASK((***)***-****)", 0
  36. 1, /* Field Fonts */
  37. 8, 15, "System", 0
  38. 0, /* Textfield Fonts */
  39. 0, /* Field Colors */
  40. 0, /* Text Field Colors */
  41. END
  42.  
  43.  
  44.