home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev / formchar.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  5.4 KB  |  142 lines
  1. '***********************************************************************
  2. '    FormDev: FormChar.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. PROC FormCharRawVals
  10.     LOCAL fstr
  11.  
  12.     fstr = UnitFormatStr(theform.units)
  13.     FormModifyObject(230, _Normal, Sprint(fstr, theform.rawleft))        
  14.     FormModifyObject(240, _Normal, Sprint(fstr, theform.rawtop))
  15.     FormModifyObject(250, _Normal, Sprint(fstr, theform.rawwidth))
  16.     FormModifyObject(260, _Normal, Sprint(fstr, theform.rawheight))
  17.     FormModifyObject(270 + theform.units; 1)
  18. END PROC
  19.  
  20. FUNC FormCharModal
  21.     LOCAL fdFormChar, sel, c, msg
  22.  
  23.     fdFormChar = FormQUnique
  24.     FormNew(fdFormChar; "Form Characteristics", _Title)
  25.     FormControl(_Size; _Center, _Center, 90 pct, 80 pct)
  26.     
  27.     FormSetObject(21, _CaptionLeft, "Form Name: ", 3 pct, 4 pct)
  28.     FormSetObject(20, _TextBox, theform.name, 20 pct, 3 pct, 20 pct, _Default) 
  29.     FormSetObject(22, _CaptionLeft, "Form Title: ", 43 pct, 4 pct)
  30.     FormSetObject(25, _TextBox, theform.title, 58 pct, 3 pct, 39 pct, _Default)
  31.  
  32.     FormSetObject(220, _GroupBox,"Dimensions", 3 pct, 13 pct, 45 pct, 75 pct)
  33.     FormSetObject(231, _CaptionLeft,"Left", 5 pct, 22 pct)
  34.     FormSetObject(230, _TextBox,"", 13 pct, 21 pct, 9 pct, _Default)
  35.     FormSetObject(241, _CaptionLeft,"Top", 27 pct, 22 pct)
  36.     FormSetObject(240, _TextBox,"",  36 pct, 21 pct, 9 pct, _Default)
  37.     FormSetObject(251, _CaptionLeft,"Width", 5 pct, 33 pct)
  38.     FormSetObject(250, _TextBox,"", 13 pct, 32 pct, 9 pct, _Default)
  39.     FormSetObject(261, _CaptionLeft, "Height", 27 pct, 33 pct)
  40.     FormSetObject(260, _TextBox, "", 36 pct, 32 pct, 9 pct, _Default)
  41.  
  42.     FormSetObject(279, _CaptionLeft, "Units for form:", 5 pct, 47 pct)
  43.     FormSetObject(271, _OptionButton, "pxl", 8 pct, 53 pct; _Notify, 1, 4)
  44.     FormSetObject(272, _OptionButton, "pct", 17 pct, 53 pct; _Notify, 0, 4)
  45.     FormSetObject(273, _OptionButton, "in", 26 pct, 53 pct; _Notify, 0, 4)
  46.     FormSetObject(274, _OptionButton, "mm", 35 pct, 53 pct; _Notify, 0, 4)
  47.     
  48.     FormSetObject(299, _CaptionLeft, "Units for items:", 5 pct, 64 pct)
  49.     FormSetObject(291, _RadioButton, "same unit as form", 10 pct, 70 pct; 1, 2)
  50.     FormSetObject(292, _RadioButton, "percentage of form", 10 pct, 78 pct; 0, 2)
  51.     FormModifyObject(290 + theform.itemunits; 1)            
  52.     FormModifyObject(293 - theform.itemunits; 0)        
  53.  
  54.     FormSetObject(101,_GroupBox, "Style", 50 pct, 13 pct, 23 pct, 75 pct)
  55.     FormSetObject(100,_CheckBox,"Close", 52 pct, 21 pct; bitand(theform.style, _Close))
  56.     FormSetObject(110,_CheckBox,"Frame", 52 pct, 29 pct;  bitand(theform.style, _Frame))
  57.     FormSetObject(120,_CheckBox,"Size", 52 pct, 37 pct; bitand(theform.style, _Size))
  58.     FormSetObject(130,_CheckBox,"Title", 52 pct, 45 pct; bitand(theform.style, _Title))
  59.     FormSetObject(140,_CheckBox,"Minimize", 52 pct, 53 pct; bitand(theform.style, _Minimize))
  60.     FormSetObject(150,_CheckBox,"Context Enter", 52 pct, 67 pct; bitand(theform.style, _ContextEnter))
  61.     FormSetObject(160,_CheckBox,"Hot Click", 52 pct, 75 pct; bitand(theform.style, _HotClick))
  62.  
  63.     FormSetObject(51, _GroupBox, "Type", 75 pct, 13 pct, 22 pct, 26 pct)
  64.     FormSetObject(60, _RadioButton, "Modal", 77 pct, 20 pct; theform.type = 60, 3)
  65.     FormSetObject(50, _RadioButton, "Modeless", 77 pct, 28 pct; theform.type = 50, 3)
  66.  
  67.     FormSetObject(4, _Button, "Color...", 77 pct, 43 pct, 18 pct, 9 pct) 
  68.     FormSetObject(3, _Button,"Setup...", 77 pct, 55 pct, 18 pct, 9 pct)
  69.     FormSetObject(2, _Button,"Cancel", 77 pct, 67 pct, 18 pct, 9 pct)
  70.     FormSetObject(1, _DefButton,"OK", 77 pct, 79 pct, 18 pct, 9 pct)
  71.  
  72.     FormSetColor(_Gray; _Field)
  73.     FormSetObject(290, _GroupBox, "", 7 pct, 61 pct, 37 pct, 1 pct)    
  74.     FormSetObject(102, _GroupBox, "", 52 pct, 64 pct, 19 pct, 1 pct)
  75.     FormSetObject(270, _GroupBox, "", 7 pct, 44 pct, 37 pct, 1 pct)    
  76.     FormSetColor(_White; _Field)
  77.  
  78.     FormCharRawVals
  79.     LOOP
  80.         FormSelect(fdFormChar)
  81.         sel = FormWait
  82.         SELECT CASE sel
  83.             CASE 1    ' Ok
  84.                 IF ValidFormName(FormQStr(20)) THEN
  85.                     EXIT LOOP
  86.                 END IF
  87.                 FormSetFoc(20)
  88.  
  89.             CASE 2    ' Cancel
  90.                 FormControl(_Close)
  91.                 RETURN 0    
  92.  
  93.             CASE 3    'Setup
  94.                 SetupModal
  95.  
  96.             CASE 4    'Color
  97.                 c = StdColor(theform.bgcolor, "Select a color for the form background")
  98.                 IF QVar(c, _Scalar) THEN
  99.                     IF c = 0 THEN
  100.                         EXIT SELECT
  101.                     END IF
  102.                 END IF
  103.                 theform.bgcolor = c
  104.  
  105.             CASE 271 TO 274
  106.                 theform.units = sel - 270
  107.                 RecalcRawFromPixels
  108.                 FormCharRawVals
  109.         END SELECT
  110.     END LOOP
  111.     theform.rawleft = StrToNum(FormQStr(230))
  112.     theform.rawtop = StrToNum(FormQStr(240))
  113.     theform.rawwidth = StrToNum(FormQStr(250))
  114.     theform.rawheight = StrToNum(FormQStr(260))
  115.     RecalcPixelsFromRaw
  116.     theform.name = FormQStr(20)
  117.     theform.title = FormQStr(25)
  118.  
  119.     ' Get the style information.
  120.     theform.style =  FormQNum(120)*_Size + FormQNum(130)*_Title
  121.     IF NOT theform.style THEN    'Cant mix frame and the previous two
  122.         theform.style = FormQNum(110)*_Frame
  123.     END IF
  124.     theform.style = theform.style + FormQNum(100)*_Close
  125.     theform.style = theform.style + FormQNum(140)*_Minimize
  126.     theform.style = theform.style + FormQNum(150)*_ContextEnter
  127.     theform.style = theform.style + FormQNum(160)*_HotClick
  128.  
  129.     ' Pull out the type information.
  130.     theform.type = 50 * FormQNum(50) + 60 * FormQNum(60)
  131.                 
  132.     'Pull out item units
  133.     theform.itemunits = 1 + FormQNum(292)
  134.  
  135.     MainFormCreate
  136.     FormControl(_Show)
  137.     FormSelect(fdFormChar)    
  138.     FormControl(_Close)
  139.     RETURN 1
  140. END FUNC
  141.     
  142.