home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev / setup.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.5 KB  |  43 lines
  1. '***********************************************************************
  2. '    FormDev: Setup.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. PROC SetupModal
  10.     LOCAL lfile, fdSetup
  11.  
  12.     fdSetup = FormQUnique
  13.     FormNew(fdSetup; "Form Initialization", _Title + _ContextEnter)    
  14.     FormControl(_Size; _Center, _Center, 60 pct, 85 pct)
  15.     FormSetObject(10, _CaptionCenter, "Startup code:", 5 pct, 2 pct, 90 pct, _Default)
  16.     FormSetObject(20, _Log, "", 2 pct, 10 pct, 96 pct, 40 pct)
  17.     FormSetObject(30, _CaptionCenter, "Search directory paths:", 5 pct, 53 pct, 90 pct, _Default)
  18.     FormSetObject(41, _CaptionLeft, "Bitmaps:", 2 pct, 61 pct)
  19.     FormSetObject(40, _EditText, theform.bitmapdir, 20 pct, 60 pct, 78 pct, _Default)
  20.     FormSetObject(51, _CaptionLeft, "Links:", 2 pct, 71 pct)
  21.     FormSetObject(50, _EditText, theform.linkdir, 20 pct, 70 pct, 78 pct, _Default)
  22.     FormSetObject(1, _Button, "OK", _Left, _Bottom)
  23.     FormSetObject(2, _Button, "Cancel", _Right, _Bottom)
  24.  
  25.     IF theform.init <> "" THEN
  26.         PRINT #20, fdSetup; theform.init
  27.     END IF
  28.     LOOP
  29.         SELECT CASE FormWait
  30.             CASE 1    ' OK
  31.                 LogSelect(20, fdSetup)
  32.                 theform.init = LogQStr
  33.                 theform.bitmapdir = FormQStr(40)
  34.                 theform.linkdir = FormQStr(50)
  35.                 SetupPaths
  36.                 EXIT LOOP
  37.             CASE 2    ' Cancel
  38.                 EXIT LOOP
  39.         END SELECT
  40.     END LOOP
  41.     FormControl(_Close)
  42.     FormSelect(fdFormChar)
  43. END PROC