home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / manual / sampler / winstyle.rlz < prev   
Encoding:
Text File  |  1992-09-30  |  2.9 KB  |  77 lines
  1. '***********************************************************************
  2. '    WinStyle.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 formprocExamples(params)
  12.     FormSelect(params[_FormNum])
  13.     SELECT CASE params[_Invoke] 
  14.         CASE _Close 
  15.             FormControl(_Hide)
  16.             params[_UseRealizer] = 0
  17.     END SELECT
  18. END PROC
  19.     
  20. PROC formprocWinstyle(params)
  21.     LOCAL i
  22.  
  23.     SELECT CASE params[_ItemNum]
  24.         CASE 11 TO 15
  25.             FormSelect(formWinSamples[params[_ItemNum] - 10])
  26.             FormControl(_Show)
  27.         CASE 20, 30        'Clear, Done
  28.             FOR i = 1 to 5
  29.                 FormSelect(formWinSamples[i])
  30.                 FormControl(_Hide)
  31.             NEXT i 
  32.             IF params[_ItemNum] = 30 THEN
  33.                 FormSelect(formWinstyle)
  34.                 FormControl(_Hide)
  35.                 FormSelect(formMain)
  36.                 FormControl(_Show)
  37.             END IF
  38.     END SELECT
  39. END PROC
  40.  
  41. formWinstyle = FormQUnique
  42. FormNew(formWinstyle; "Window Styles", _Title + _Minimize + _Close + _HotClick)
  43. FormControl(_Size; 50 pct, 5 pct, 45 pct, 90 pct)
  44. FormSetObject(10, _CaptionCenter, "Let's see some examples of the various window styles.", 5 pct, 10 pct, 90 pct, 20 pct)
  45. FormSetObject(11, _Button, "Fixed Window", 20 pct, 35 pct, 60 pct, 8 pct)
  46. FormSetObject(12, _Button, "Moveable Window", 20 pct, 45 pct, 60 pct, 8 pct)
  47. FormSetObject(13, _Button, "Sizeable Window", 20 pct, 55 pct, 60 pct, 8 pct)
  48. FormSetObject(14, _Button, "Framed Window", 20 pct, 65 pct, 60 pct, 8 pct)
  49. FormSetObject(15, _Button, "Complete Window", 20 pct, 75 pct, 60 pct, 8 pct)
  50.  
  51. FormSetObject(20, _Button, "Clear", 5 pct, 90 pct, 20 pct, 8 pct)
  52. FormSetObject(30, _Button, "Main Menu...", 30 pct, 90 pct, 65 pct, 8 pct)
  53. FormModifyObject(10, _Gray)
  54. FormSetProc(formprocWinstyle)
  55.  
  56. s[1] = "This window is fixed. It has no title bar and cannot be resized."
  57. s[2] = "This window has a title bar, so you can move it around the screen.  Point to the title"
  58. s[2] = s[2] + " bar, hold down the mouse button, and drag the window around."
  59. s[3] = "This window can be resized.  Point to an edge or a corner, hold down the"
  60. s[3] = s[3] + " mouse button, and move the mouse."
  61. s[4] = "This window has a thick frame around it, and cannot be resized."
  62. s[5] = "This window can be resized, moved, closed, minimized and maximized."
  63.  
  64. style ={0, _Title, _Size, _Frame, _Title + _Close + _Minimize + _Size}
  65. title = {"Fixed window", "Window with a title bar","Sizeable window", "Framed window", "Complete window"}
  66. color ={_Blue, _Evergreen, _Brick, _Magenta, _Brown}
  67. top = {38, 15, 25, 35, 30}
  68.  
  69. FOR i = 1 to 5
  70.     formWinSamples[i] = FormQUnique
  71.     FormNew(formWinSamples[i]; title[i], style[i])
  72.     FormControl(_Size; 5 + 3 * i pct, 10 + 7 * i pct, 30 pct, 40 pct)
  73.     FormSetObject(10, _CaptionCenter, s[i], 0 pct, top[i] pct, 100 pct, 100 pct; color[i])
  74.     FormModifyObject(10, _Gray)
  75.     FormSetProc(formprocExamples)
  76. NEXT i
  77.