home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / solution / forms / sdiform.mpr < prev    next >
Encoding:
Text File  |  1996-08-21  |  4.5 KB  |  113 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 5/12/96             SDIFORM.MPR              20:28:25  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (C) 1996 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This PROGRAM was automatically generated BY GENMENU.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. *       *********************************************************
  20. *       *                                                         
  21. *       *                      Menu Definition                    
  22. *       *                                                         
  23. *       *********************************************************
  24. *
  25.  
  26. * To attach this menu to your Top-Level form, 
  27. * call it from the Init event of the form:
  28.  
  29. * Syntax: DO <mprname> WITH <oFormRef> [,<cMenuname>|<lRename>]
  30.  
  31. *            oFormRef - form object reference (THIS)
  32. *            cMenuname - name for menu
  33. *            lRename - renames Name property of your form
  34.  
  35. * example:
  36.  
  37. *        PROCEDURE Init
  38. *            DO mymenu.mpr WITH THIS,.T.
  39. *        ENDPROC
  40.  
  41. * Use the optional 2nd parameter if you plan on running 
  42. * multiple instances of your Top-Level form. The logical 
  43. * lRename parameter will change the name property of your 
  44. * form to the same name given the menu and may cause conflicts 
  45. * in your code if you directly reference the form by name.
  46.  
  47. * You will also need to remove the menu when the form is 
  48. * destroyed so that it does not remain around in memory 
  49. * unless you wish to reactivate it later in a new form.
  50.  
  51. * If you passed the optional lRename parameter as .T. as in 
  52. * the above example, you can easily remove the menu in the 
  53. * form's Destroy event as shown below. This strategy is ideal 
  54. * when using multiple instances of Top-Level forms.
  55.  
  56. * example:
  57.  
  58. *        PROCEDURE Destroy
  59. *            RELEASE MENU (THIS.Name)
  60. *        ENDPROC
  61.  
  62.  
  63. LPARAMETER oFormRef,getMenuName
  64. LOCAL cMenuName
  65. IF TYPE("m.oFormRef") # "O" OR ;
  66.   LOWER(m.oFormRef.BaseClass) # 'form' OR ;
  67.   m.oFormRef.ShowWindow # 2
  68.     MESSAGEBOX([This menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.])
  69.     RETURN
  70. ENDIF
  71. m.cMenuName = IIF(TYPE("m.getMenuName")="C",m.getMenuName,SYS(2015))
  72. IF TYPE("m.getMenuName")="L" AND m.getMenuName
  73.     m.oFormRef.Name = m.cMenuName 
  74. ENDIF
  75. DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR
  76.  
  77. DEFINE PAD _rad17vtge OF (m.cMenuName) PROMPT "\<Foods" COLOR SCHEME 3 ;
  78.     KEY ALT+F, ""
  79. DEFINE PAD _rad17vtha OF (m.cMenuName) PROMPT "\<Animals" COLOR SCHEME 3 ;
  80.     KEY ALT+A, ""
  81. DEFINE PAD _rad17vthk OF (m.cMenuName) PROMPT "\<Sports" COLOR SCHEME 3 ;
  82.     KEY ALT+S, ""
  83. ON PAD _rad17vtge OF (m.cMenuName) ACTIVATE POPUP foods
  84. ON PAD _rad17vtha OF (m.cMenuName) ACTIVATE POPUP animals
  85. ON PAD _rad17vthk OF (m.cMenuName) ACTIVATE POPUP sports
  86.  
  87. DEFINE POPUP foods MARGIN RELATIVE SHADOW COLOR SCHEME 4
  88. DEFINE BAR 1 OF foods PROMPT "Bananas"
  89. DEFINE BAR 2 OF foods PROMPT "Salsa"
  90. DEFINE BAR 3 OF foods PROMPT "Buffalo WIngs"
  91. DEFINE BAR 4 OF foods PROMPT "\-"
  92. DEFINE BAR 5 OF foods PROMPT "Pizza"
  93. DEFINE BAR 6 OF foods PROMPT "Espresso"
  94. ON BAR 3 OF foods ACTIVATE POPUP buffalowin
  95.  
  96. DEFINE POPUP buffalowin MARGIN RELATIVE SHADOW COLOR SCHEME 4
  97. DEFINE BAR 1 OF buffalowin PROMPT "Hot"
  98. DEFINE BAR 2 OF buffalowin PROMPT "Medium"
  99. DEFINE BAR 3 OF buffalowin PROMPT "Mild"
  100. DEFINE BAR 4 OF buffalowin PROMPT "Garlic"
  101.  
  102. DEFINE POPUP animals MARGIN RELATIVE SHADOW COLOR SCHEME 4
  103. DEFINE BAR 1 OF animals PROMPT "Dogs"
  104. DEFINE BAR 2 OF animals PROMPT "Cats"
  105. DEFINE BAR 3 OF animals PROMPT "Elephants"
  106. DEFINE BAR 4 OF animals PROMPT "Pigs"
  107.  
  108. DEFINE POPUP sports MARGIN RELATIVE SHADOW COLOR SCHEME 4
  109. DEFINE BAR 1 OF sports PROMPT "Football"
  110. DEFINE BAR 2 OF sports PROMPT "Rugby"
  111. DEFINE BAR 3 OF sports PROMPT "Bowling"
  112.  
  113. ACTIVATE MENU (m.cMenuName) NOWAIT