home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  3.2 KB  |  127 lines
  1. '***********************************************************************
  2. '    FormDev.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. IF QVar(%%FormDev) THEN
  10.     INPUT "FormDev is already running.", "FormDev";
  11.     EXIT PROGRAM
  12. END IF
  13. %%FormDev = 1
  14. fdRlzDir = QSys(_ProgDir)
  15.  
  16. RUN "StdSys"
  17. SetHourglass
  18.  
  19. TRUE = 1
  20. FALSE = 0
  21.  
  22. scaleToolBmp = IF _HPxlPerInch > 100 THEN 1.5 ELSE 1
  23. scaleSplash = IF _HPxlPerInch > 100 THEN 2 ELSE 1
  24.  
  25. IF TRUE THEN        ' Default to using custom fonts.
  26.     LOCAL    fontSz
  27.     fontSz = IF _HPxlPerInch > 100 THEN 10 ELSE 8
  28.     font_B = FontQUnique()
  29.     FontNew(font_B; "Helv", fontSz, _Bold)
  30.     font_P = FontQUnique()
  31.     FontNew(font_P; "Helv", fontSz)
  32. ELSE
  33.     font_B = 0
  34.     font_P = 0
  35. END IF
  36.  
  37. ' Show the splash screen
  38. LOCAL    fdTitleBox, objInfo, scaleF
  39.  
  40. fdTitleBox = FormQUnique
  41. FormNew(fdTitleBox; "", _Frame)
  42. FormSetObject(1, _BitMap, QSys(_ProgDir) + "FormDev\Splash.BMP", 0, 0)
  43. objInfo = FormQObject(1)
  44. scaleF = IF _HPxlPerInch > 100 THEN 2 ELSE 1
  45. FormControl(_Size; _Center, _Center, objInfo[_FQO_Width] * scaleSplash +17, objInfo[_FQO_Height] * scaleSplash + 17)
  46. FormSetObject(1, _BitMap, QSys(_ProgDir) + "FormDev\Splash.BMP", _Center, _Center, objInfo[_FQO_Width] * scaleSplash, objInfo[_FQO_Height] * scaleSplash)
  47. FormModifyObject(1, _Gray)
  48. FormControl(_Show)
  49.  
  50. RUN "StdBits"
  51. RUN "StdColor"
  52. RUN "StdArray"
  53. RUN "StdMsgBx"
  54. RUN "StdStrng"
  55. RUN "CCLib1"
  56.  
  57. PROC SetupPaths
  58.     SetSys(_LoadDir, fdOpenPath + ";" + theform.bitmapdir)
  59.     SetSys(_MacroDir, fdMacroDir + ";" + theform.linkdir)
  60. END PROC
  61.  
  62. RESET _SysVar
  63. fdMacroDir = fdRlzDir + "lib;" +  fdRlzDir + "FormDev\"
  64. fdOpenPath = fdRlzDir + "Utility\FDSample\"
  65. fdClipArtPath = fdRlzDir + "ClipArt\"
  66. fdOpenBmpPath = fdClipArtPath
  67. fdCurrentBmpPath = ""
  68. fdCurrentBmpFN = ""
  69.  
  70. theform.bitmapdir = ""
  71. theform.linkdir = ""
  72. SetupPaths
  73.  
  74. ItemNames = {"DefButton", "Button", "TextBox", "CheckBox", "OptionButton", "GroupBox"}
  75. ItemNames = {ItemNames, "CaptionLeft", "CaptionCenter", "CaptionRight", "Frame", "Bitmap", "BitmapButton"}
  76. ItemNames = {ItemNames, "ListBox", "ComboBox", "DropDownCombo", "DropDownList", "Log", "Chart", "Sheet", "DigitalClock"}
  77.  
  78. ItemNums = {_DefButton, _Button, _TextBox, _CheckBox, _OptionButton, _GroupBox}
  79. ItemNums = {ItemNums, _CaptionLeft, _CaptionCenter, _CaptionRight, _Frame, _Bitmap, _BitmapButton}
  80. ItemNums = {ItemNums, _ListBox, _ComboBox, _DropDownCombo, _DropDownList, _Log, _Chart, _Sheet, -20}
  81.  
  82. RUN "misc.rlz"
  83. RUN "reorder.rlz"
  84. RUN "modifier.rlz"
  85. RUN "formchar.rlz"
  86. RUN "setup.rlz"
  87. RUN "items.rlz"
  88. RUN "menus.rlz"
  89. RUN "menufile.rlz"
  90. RUN "menuedit.rlz"
  91. RUN "menuform.rlz"
  92. RUN "menualgn.rlz"
  93. RUN "savefile.rlz"
  94. RUN "generate.rlz"
  95. RUN "project.rlz"
  96. RUN "units.rlz"
  97. RUN "mainform.rlz"
  98. RUN "additem.rlz"
  99. RUN "fonts.rlz"
  100. RUN "sizevals.rlz"
  101. RUN "action.rlz"
  102. RUN "forms.rlz"
  103. RUN "Visual.rlz"
  104. RUN "StdBmp.rlz"
  105.  
  106. lastFrameNum = 0
  107. fdMain = FormQUnique
  108. fdChanged = 0
  109. fdFormSaved = 0
  110.  
  111. InitMenus
  112. InitBrowserMenu("&ClipArt", fdAlignMenu)
  113. InitVisualForms
  114. InitTool
  115.  
  116. MainFormNew
  117. MainFormCreate
  118.  
  119. FormSelect(fdTitleBox)
  120. FormControl(_Close)
  121. FormSelect(toolForm)
  122. FormControl(_Show)
  123. FormSelect(fdMain)
  124. FormControl(_Show)
  125.  
  126. ResetHourglass
  127.