home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / manual / sampler / objects.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  4.8 KB  |  105 lines
  1. '***********************************************************************
  2. '    Objects.rlz                      
  3. '
  4. '    Realizer User's Guide Tutorial
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. PROC formprocObjects(params)
  12.     LOCAL s
  13.  
  14.     FormSelect(formObjects)
  15.     SELECT CASE params[_ItemNum]
  16.         CASE 21    'Normal Button
  17.             s = "When you click on a button, usually some action occurs. Often you will"
  18.             s = s + " need to click an OK button to register changes is a form, while a"
  19.              s = s + " CANCEL button will throw out any changes you have made."
  20.             FormModifyObject(200, _Normal, s)
  21.         CASE 22    'DefButton
  22.             s = "A default button has a thicker border than a normal button, and it" 
  23.             s = s + " usually indicates what will happen if you hit ENTER on the keyboard."
  24.             FormModifyObject(200, _Normal, s)
  25.         CASE 41, 42, 43    'Check Boxes
  26.             s = "Check boxes indicate a set of options that are either on or off. In this"
  27.             s = s + " example, you can select any, all, or none of the options: bold, italics, or underline."
  28.             FormModifyObject(200, _Normal, s)
  29.         CASE 51, 52, 53    'Option Buttons
  30.             s = "Option buttons indicate a set of options you must choose from."
  31.             s = s + " In many cases only one of the choices may be selected at a"
  32.             s = s + " time, such as temperature in this example."
  33.             FormModifyObject(200, _Normal, s)
  34.         CASE 60    'List Box
  35.             s = "A list box contains a set of choices to choose from. You can scroll"
  36.             s = s + " through them, click on a choice to highlight it, or double click"
  37.             s = s + " a choice to select it."
  38.             FormModifyObject(200, _Normal, s)
  39.         CASE 65    'More list boxes
  40.             FormControl(_Hide)
  41.             FormSelect(formListbox)
  42.             FormControl(_Show)
  43.         CASE 70    'Frame
  44.             s = "Frames work just like sizeable windows. You can move them or change"
  45.             s = s + " their shape."
  46.             FormModifyObject(200, _Normal, s)
  47.         CASE 91    'Bitmap
  48.             s = "Bitmaps are graphic pictures that can be placed anywhere in a form.  They "
  49.             s = s + "are created with any drawing or paint program."
  50.             FormModifyObject(200, _Normal, s)
  51.         CASE 92    'Bitmap button
  52.             s = "Bitmap buttons invert when they are pressed.  The user can cancel the "
  53.             s = s + "mouse click by moving off of the bitmap before releasing the mouse button."
  54.             FormModifyObject(200, _Normal, s)
  55.         CASE 190    'Main menu...
  56.             FormControl(_Hide)
  57.             FormSelect(formMain)
  58.             FormControl(_Show)
  59.         END SELECT
  60. END PROC
  61.  
  62. names = {"Aquarius", "Aries", "Cancer", "Capricorn", "Gemini", "Libra"}
  63. names = {names, "Leo", "Pisces", "Sagitarius", "Scorpio", "Taurus", "Virgo"}
  64.  
  65. formObjects = FormQUnique
  66. FormNew(formObjects; "Interface Controls", _Title + _Minimize + _ContextEnter + _HotClick)
  67. FormControl(_Size; 1 pct, 1 pct, 98 pct, 98 pct)
  68. FormSetObject(10, _CaptionCenter, "Interface Controls", fontTitle, 0 pct, 2 pct, 100 pct, _Default)
  69.  
  70. FormSetObject(20, _GroupBox, "Buttons", 3 pct, 10 pct, 22 pct, 28 pct)
  71. FormSetObject(21, _Button, "Normal Button", 5 pct, 16 pct, 18 pct, 8 pct)
  72. FormSetObject(22, _DefButton, "Default Button", 5 pct, 27 pct, 18 pct, 8 pct)
  73.  
  74. FormSetObject(40, _GroupBox, "Check Boxes", 28 pct, 10 pct, 20 pct, 28 pct)
  75. FormSetObject(41, _CheckBox, "Bold", 30 pct, 16 pct; _Notify, 0, 1)
  76. FormSetObject(42, _CheckBox, "Italics", 30 pct, 22 pct; _Notify, 0, 1)
  77. FormSetObject(43, _CheckBox, "Underline", 30 pct, 28 pct; _Notify, 0, 1)
  78.  
  79. FormSetObject(50, _GroupBox, "Option Buttons", 51 pct, 10 pct, 20 pct, 28 pct)
  80. FormSetObject(51, _OptionButton, "Cold", 53 pct, 16 pct; _Notify, 1, 2)
  81. FormSetObject(52, _OptionButton, "Warm", 53 pct, 22 pct; _Notify, 0, 2)
  82. FormSetObject(53, _OptionButton, "Hot", 53 pct, 28 pct; _Notify, 0, 2)
  83.  
  84. FormSetObject(70, _Frame, "Frame", 74 pct, 12 pct, 23 pct, 26 pct)
  85.  
  86. FormSetObject(61, _GroupBox, "List Boxes", 3 pct, 41 pct, 22 pct, 42 pct)
  87. FormSetObject(60, _ListBox, "listbox", 5 pct, 47 pct, 18 pct, 25 pct; names)
  88. FormSetObject(65, _Button, "More List Boxes", 4 pct, 74 pct, 20 pct, _Default)
  89.  
  90. FormSetObject(80, _GroupBox, "Text Boxes", 28 pct, 41 pct, 43 pct, 32 pct)
  91. FormSetObject(81, _TextBox, "Type in me", 32 pct, 47 pct, 35 pct, _Default)
  92. FormSetObject(82, _TextBox, "I have multiple lines", 32 pct, 55 pct, 35 pct, 15 pct; _MultiLine)
  93.  
  94. 'Bitmaps are 100 pxl x 60 pxl
  95. FormSetObject(90, _GroupBox, "Bitmaps", 74 pct, 41 pct, 23 pct, 42 pct)
  96. sz[1:4] = FormQObject(90)[3:6]
  97. bmLeft = sz[1] + (sz[3] - 80)/2 
  98. FormSetObject(91, _Bitmap, "Bitmap.bmp",  bmLeft pxl, 47 pct)
  99. FormSetObject(92, _BitmapButton, "Bitmap.bmp", bmLeft pxl, 65 pct) 
  100.  
  101. FormSetObject(190, _Button, "Main Menu...", _Center, 76 pct, 18 pct, 7 pct)
  102.  
  103. FormSetObject(200, _CaptionCenter, "Try manipulating these interface controls.", 5 pct, 85 pct, 90 pct, 14 pct; _Brick)
  104. FormSetProc(formprocObjects)
  105.