home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / custctrl / ccdemo1.rlz next >
Encoding:
Text File  |  1992-09-30  |  3.0 KB  |  83 lines
  1. '***********************************************************************
  2. '    CCDemo1.rlz                      
  3. '
  4. '    Custom Control Library #1 Demo
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. RUN "CCLib1"
  12.  
  13. PROC formprocCC(params)
  14.     FormSelect(params[_FormNum])
  15.     SELECT CASE params[_ItemNum]
  16.         CASE 31    'Start
  17.             FormModifyObject(35, _Normal, "It's gonna blow...")
  18.             FormModifyObject(33; 20)
  19.         CASE 32    'Stop
  20.             FormModifyObject(35, _Normal, "Don't start the bomb!")
  21.             FormModifyObject(33; 0)
  22.         CASE 33    'Short Timer
  23.             FormModifyObject(35, _Normal, "BOOM!")
  24.             FormModifyObject(33; 0)
  25.         CASE 37    'Long Timer
  26.             FormModifyObject(37; 120)
  27.             FormModifyObject(35, _Normal, "It's gonna blow...")
  28.             FormModifyObject(33; 20)
  29.  
  30.         CASE 43    'TextBox
  31.             n = StrToNum(FormQStr(43))
  32.             n = IF n < 0 THEN 0 ELSE n
  33.             n = IF n > 100 THEN 100 ELSE n
  34.             FormModifyObject(41; n)
  35.             FormModifyObject(43, _Normal, Sprint("P(0)", n))
  36.         CASE 41    'Scroll/TextBox
  37.             FormModifyObject(43, _Normal, Sprint("P(0)", FormQNum(41)))
  38.     END SELECT    
  39. END PROC
  40.  
  41. formCC = FormQUnique
  42. FormNew(formCC; "Custom Control Library #1", _Title + _Close)
  43. FormControl(_Size; _Center, _Center, 80 pct, 80 pct)
  44. FormSetColor(_Yellow; _Background)
  45. FormSetColor(_Yellow; _Field)
  46.  
  47. font1 = FontQUnique
  48. FontNew(font1; "helv", 14)
  49. font2 = FontQUnique
  50. FontNew(font2; "Tms Rmn", 24, _Bold)
  51.  
  52. FormSetObject(10, _GroupBox, "Digital Clocks", 7 pct, 4 pct, 27 pct, 37 pct)
  53. FormSetObject(11, _DigitalClock, "", 8 pct, 12 pct, 25 pct, _Default)
  54. FormSetObject(12, _DigitalClock, "", font1, 8 pct, 18 pct, 25 pct, _Default)
  55. FormSetObject(13, _DigitalClock, "", font2, 8 pct, 26 pct, 25 pct, _Default)
  56.  
  57. FormSetObject(20, _GroupBox, "Lines", 53 pct, 43 pct, 43 pct, 55 pct)
  58. FormSetColor(_White; _Field)
  59. FormSetObject(21, _Lines, "", 54 pct, 51 pct, 41 pct, 45 pct)
  60. FormSetColor(_Yellow; _Field)
  61.  
  62. FormSetObject(30, _GroupBox, "Single Event Timers", 7 pct, 43 pct, 40 pct, 55 pct)
  63. FormSetObject(31, _Button, "Start", 9 pct, 52 pct)
  64. FormSetObject(32, _Button, "Stop", 31 pct, 52 pct)
  65. FormSetObject(33, _EventTimer, "", font2, 16 pct, 63 pct)
  66. FormSetObject(35, _CaptionCenter, "It's gonna blow...", font1, 10 pct, 75 pct, 34 pct, _Default; _Red)
  67. FormSetObject(36, _CaptionLeft, "Time until restart:", 9 pct, 88 pct)
  68. FormSetObject(37, _EventTimer, "", 35 pct, 88 pct; 0, 2)
  69.  
  70. FormSetObject(40, _GroupBox, "Scroll Bars", 40 pct, 4 pct, 57 pct, 37 pct)
  71. FormSetObject(41, _ScrollBar, "", 43 pct, 11 pct, 51 pct, _Default; 0, 0, 100)
  72. FormSetObject(42, _ScrollBar, "", 43 pct, 19 pct, _Default, 20 pct; _CCStyle + 1, 0, 0, 10)
  73. FormSetObject(43, _TextBox, "0", 86 pct, 19 pct, 8 pct, _Default; _Notify)
  74. FormSetObject(44, _ScrollBar, "", 53 pct, 19 pct, _Default, 20 pct; _CCStyle + 1, 0, 0, 10)
  75. FormSetObject(45, _ScrollBar, "", 63 pct, 19 pct, _Default, 20 pct; _CCStyle + 1, 0, 0, 10)
  76.  
  77. FormControl(_Show)
  78. FormSetProc(formprocCC)
  79.  
  80. FormModifyObject(33; 20)
  81. FormModifyObject(37; 120)
  82.  
  83.