home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev / menus.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  2.9 KB  |  102 lines
  1. '***********************************************************************
  2. '    FormDev: Menus.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. PROC InitMenus
  10.     ' Setup FormDev menus.  Hide the File, Edit, and Run menus.
  11.     MenuSelect(_FileMenu)
  12.     MenuControl(_Hide)
  13.     MenuSelect(_EditMenu)
  14.     MenuControl(_Hide)
  15.     MenuSelect(_RunMenu)
  16.     MenuControl(_Hide)
  17.  
  18.     ' FormDev FILE menu.
  19.     fdFileMenu = MenuQUnique
  20.     MenuNew(fdFileMenu; "&File")
  21.     MenuSetCmd(100,"&New")
  22.     MenuSetCmd(110,"&Open...    F3", 3)
  23.     MenuSetCmd(_Separator)
  24.     MenuSetCmd(130,"&Save...")
  25.     MenuSetCmd(140, "Save &As...")
  26.     MenuSetCmd(_Separator)
  27.     MenuSetCmd(190,"E&xit")
  28.     MenuSetProc(menuprocFile)
  29.     MenuControl(_Show; 0)
  30.  
  31.     ' FormDev EDIT menu.
  32.     fdEditMenu = MenuQUnique
  33.     MenuNew(fdEditMenu; "&Edit")
  34.     MenuSetCmd(210,"&Add item...    F5", 5)
  35.     MenuSetCmd(220,"&Modify item...    F6", 6)
  36.     MenuSetCmd(230,"Mo&ve item    F7", 7)
  37.     MenuSetCmd(240,"&Size item    F8", 8)
  38.     MenuSetCmd(245,"Act&ion item...    F9", 9)
  39.     MenuSetCmd(_Separator)
  40.     MenuSetCmd(255, "Apply &Color    Shift+F6", 16)
  41.     MenuSetCmd(260, "Apply &Font    Shift+F7", 17)
  42.     MenuSetCmd(265, "Apply &Both    Shift+F8", 18)
  43.     MenuSetCmd(_Separator)
  44.     MenuSetCmd(250, "&Reorder items...")
  45.     MenuSetProc(menuprocEdit)
  46.     MenuControl(_Show; fdFileMenu)
  47.  
  48.     ' FormDev FORM Menu
  49.     fdFormMenu = MenuQUnique
  50.     MenuNew(fdFormMenu; "Fo&rm")
  51.     MenuSetCmd(270, "&Size Form")
  52.     MenuSetCmd(260, "&Modify Form")
  53.     MenuSetCmd(275, "&Rescale Form")
  54.     MenuSetCmd(_Separator)
  55.     viewForm = TRUE                                    ' View is on by default.
  56.     MenuSetCmd(280, "&View Form    F11", 11; _Check)
  57.     MenuSetCmd(281, "&Unview Form    F12", 12; _Uncheck)
  58.     MenuSetProc(menuprocForm)
  59.     MenuControl(_Show; fdEditMenu)
  60.  
  61.     ' FormDev ALIGN Menu
  62.     fdAlignMenu = MenuQUnique
  63.     MenuNew(fdAlignMenu;"&Align")
  64.     MenuSetCmd(410, "Align &Left")
  65.     MenuSetCmd(420, "Align &Right")
  66.     MenuSetCmd(430, "Align &Top")
  67.     MenuSetCmd(440, "Align &Bottom")
  68.     MenuSetCmd(_Separator)
  69.     MenuSetCmd(450, "Align &Width")
  70.     MenuSetCmd(460, "Align &Height")
  71.     MenuSetProc(menuprocAlign)
  72.     MenuControl(_Show; fdFormMenu)
  73. END PROC
  74.  
  75. PROC MenuEnable ()
  76.     LOCAL style
  77.  
  78.     ' Enable "Modify/Move/Size/Action Item" if there are any items
  79.     MenuSelect(fdEditMenu)
  80.     style = IF fdNumItems THEN _Normal ELSE _Gray
  81.     MenuSetCmd(220; style)
  82.     MenuSetCmd(230; style)
  83.     MenuSetCmd(240; style)
  84.     MenuSetCmd(245; style)
  85.     MenuSetCmd(255; style)
  86.     MenuSetCmd(260; style)
  87.     MenuSetCmd(265; style)
  88.  
  89.     ' Enable "Reorder Items" if there are at least two items
  90.     style = IF fdNumItems > 1 THEN _Normal ELSE _Gray
  91.     MenuSetCmd(250; style)
  92.  
  93.     ' Enable alignment menu items if there are at least two items
  94.     MenuSelect(fdAlignMenu)
  95.     MenuSetCmd(410; style)
  96.     MenuSetCmd(420; style)
  97.     MenuSetCmd(430; style)
  98.     MenuSetCmd(440; style)
  99.     MenuSetCmd(450; style)
  100.     MenuSetCmd(460; style)
  101. END PROC
  102.