home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / formdev / sizevals.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  2.2 KB  |  44 lines
  1. '***********************************************************************
  2. '    FormDev: SizeVals.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. PROC AISizeValues(n)
  10.     FormNew(FormQUnique; "Item Position Within Form", _Title)
  11.     FormControl(_Size; 10 pct, _Center, 50 pct, 70 pct)
  12.  
  13.     FormSetObject(10, _GroupBox, "Horizontal", 3 pct, 3 pct, 43 pct, 48 pct)
  14.     FormSetObject(11, _RadioButton, "Current", 8 pct, 11 pct;  item.leftsv[n] = 0, 1)
  15.     FormSetObject(12, _RadioButton, "Left justified", 8 pct, 20 pct; item.leftsv[n] = _Left, 1)
  16.     FormSetObject(13, _RadioButton, "Right justified", 8 pct, 29 pct; item.leftsv[n] = _Right, 1)
  17.     FormSetObject(14, _RadioButton, "Centered", 8 pct, 38 pct; item.leftsv[n] = _Center, 1)
  18.  
  19.     FormSetObject(20, _GroupBox, "Vertical", 52 pct, 3 pct, 43 pct, 48 pct)
  20.     FormSetObject(21, _RadioButton, "Current", 55 pct, 11 pct; item.topsv[n] = 0, 2)
  21.     FormSetObject(22, _RadioButton, "Top justified", 55 pct, 20 pct; item.topsv[n] = _Top, 2)
  22.     FormSetObject(23, _RadioButton, "Bottom justified", 55 pct, 29 pct; item.topsv[n] = _Bottom, 2)
  23.     FormSetObject(24, _RadioButton, "Centered", 55 pct, 38 pct; item.topsv[n] = _Center, 2)
  24.  
  25.     FormSetObject(30, _GroupBox, "Width", 3 pct, 55 pct, 43 pct, 28 pct)
  26.     FormSetObject(31, _RadioButton, "Current", 8 pct, 63 pct; item.widthsv[n] = 0, 3)
  27.     FormSetObject(32, _RadioButton, "Default", 8 pct, 72 pct; item.widthsv[n] = _Default, 3)
  28.  
  29.     FormSetObject(40, _GroupBox, "Height", 52 pct, 55 pct, 43 pct, 28 pct)
  30.     FormSetObject(41, _RadioButton, "Current", 55 pct, 63 pct; item.heightsv[n] = 0, 4)
  31.     FormSetObject(42, _RadioButton, "Default", 55 pct, 72 pct; item.heightsv[n] = _Default, 4)
  32.  
  33.     FormSetObject(1, _DefButton, "OK", 21 pct, 87 pct, 25 pct, 10 pct)
  34.     FormSetObject(2, _Button, "Cancel", 52 pct, 87 pct, 25 pct, 10 pct)
  35.  
  36.     IF FormWait = 1 THEN    'OK
  37.         item.leftsv[n] = FormQNum(12)*_Left + FormQNum(13)*_Right + FormQNum(14)*_Center
  38.         item.topsv[n] = FormQNum(22)*_Top + FormQNum(23)*_Bottom + FormQNum(24)*_Center
  39.         item.widthsv[n] = FormQNum(32)*_Default
  40.         item.heightsv[n] = FormQNum(42)*_Default
  41.     END IF
  42.     FormControl(_Close)
  43. END PROC
  44.