home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / SYSPOPUP / SYSPOPUP.PRG < prev   
Encoding:
Text File  |  1992-10-24  |  3.4 KB  |  92 lines
  1. **************************************************************
  2. *     * 09/22/92          SYSPOPUP.PRG              9:14:11  *
  3. **************************************************************
  4. *     *                                                      *
  5. *     * Description:                                         *
  6. *     *  This program illustrates how to replace the FoxPro  *
  7. *     *  System menu bar with your own "system menu bar"     *
  8. *     *  using the  user-defined menu system commands        *
  9. *     *                                                      *
  10. **************************************************************
  11. *
  12. CLEAR
  13. SET SYSMENU SAVE    && Save the Systems menu bar
  14. SET SYSMENU TO     && Remove the system menu bars 
  15. *
  16. *** Now define a new PAD for the system menu bar
  17.  
  18. DEFINE PAD Bpad OF _MSYSMENU PROMPT '\<Breakfast' COLOR SCHEME 3 ;
  19.     KEY ALT+B, ''  
  20. DEFINE PAD Lpad OF _MSYSMENU PROMPT '\<Lunch' COLOR SCHEME 3 ;
  21.     KEY ALT+L, ''
  22. DEFINE PAD Dpad OF _MSYSMENU PROMPT '\<Dinner' COLOR SCHEME 3 ;
  23.     KEY ALT+D, ''
  24.  
  25. ON PAD Bpad OF _MSYSMENU ACTIVATE POPUP Breakfast
  26. ON PAD Lpad OF _MSYSMENU ACTIVATE POPUP Lunch
  27. ON PAD Dpad OF _MSYSMENU ACTIVATE POPUP Dinner
  28.  
  29. DEFINE POPUP Breakfast MARGIN RELATIVE COLOR SCHEME 4
  30. DEFINE BAR 1 OF Breakfast PROMPT '\<Eggs' 
  31. DEFINE BAR 2 OF Breakfast PROMPT '\<Toast' 
  32. DEFINE BAR 3 OF Breakfast PROMPT '\<Pancakes' 
  33. DEFINE BAR 4 OF Breakfast PROMPT '\-' 
  34. DEFINE BAR 5 OF Breakfast PROMPT '\<Ham' 
  35. DEFINE BAR 6 OF Breakfast PROMPT '\<Bacon' 
  36. DEFINE BAR 7 OF Breakfast PROMPT '\-' 
  37. DEFINE BAR 8 OF Breakfast PROMPT '\<Coffee' 
  38. DEFINE BAR 9 OF Breakfast PROMPT 'Te\<a' 
  39.  
  40. DEFINE POPUP Lunch MARGIN RELATIVE COLOR SCHEME 4
  41. DEFINE BAR 1 OF Lunch PROMPT '\<Caesar Salad' 
  42. DEFINE BAR 2 OF Lunch PROMPT '\<Santa Fe Spinach Salad' 
  43. DEFINE BAR 3 OF Lunch PROMPT 'C\<obb Salad' 
  44. DEFINE BAR 4 OF Lunch PROMPT 'So\<up du Jour' 
  45. DEFINE BAR 5 OF Lunch PROMPT '\-' 
  46. DEFINE BAR 6 OF Lunch PROMPT '\<Hamburger' 
  47. DEFINE BAR 7 OF Lunch PROMPT 'Ch\<eese Burger' 
  48. DEFINE BAR 8 OF Lunch PROMPT '\<Grilled Chicken Sandwich' 
  49. DEFINE BAR 9 OF Lunch PROMPT '\-' 
  50. DEFINE BAR 10 OF Lunch PROMPT 'Co\<la' 
  51. DEFINE BAR 11 OF Lunch PROMPT 'Co\<ffee' 
  52. DEFINE BAR 12 OF Lunch PROMPT '\<Ice Tea' 
  53.  
  54. DEFINE POPUP Dinner MARGIN RELATIVE COLOR SCHEME 4
  55. DEFINE BAR 1 OF Dinner PROMPT '\<Caesar Salad'
  56. DEFINE BAR 2 OF Dinner PROMPT 'C\<obb Salad'
  57. DEFINE BAR 3 OF Dinner PROMPT '\<Soup du Jour'
  58. DEFINE BAR 4 OF Dinner PROMPT '\-' 
  59. DEFINE BAR 5 OF Dinner PROMPT '\<Top Sirloin Steak'
  60. DEFINE BAR 6 OF Dinner PROMPT '\<Fresh Fish'
  61. DEFINE BAR 7 OF Dinner PROMPT 'Chicken \<Barbacoa'
  62. DEFINE BAR 8 OF Dinner PROMPT 'Chicken \<Marsala '
  63. DEFINE BAR 9 OF Dinner PROMPT 'Fett\<ucine Alfredo' 
  64. DEFINE BAR 10 OF Dinner PROMPT '\-' 
  65. DEFINE BAR 11 OF Dinner PROMPT 'Coff\<ee'
  66. DEFINE BAR 12 OF Dinner PROMPT 'Te\<a' 
  67. DEFINE BAR 13 OF Dinner PROMPT '\-' 
  68. DEFINE BAR 14 OF Dinner PROMPT 'E\<xit';
  69.   KEY CTRL+X , "^X"
  70.  
  71. ON SELECTION POPUP ALL;
  72.     DO Action IN syspopup WITH PROMPT(), POPUP(), BAR()
  73.  
  74. **********************************************************
  75. *
  76. *** Procedure Action is called whenever you choose any
  77. *   popup options
  78. *
  79. PROCEDURE Action
  80. PARAMETERS p_prompt, p_popup, p_bar
  81.  
  82. WAIT WINDOW 'You chose ' + p_prompt + ;
  83.         " (Bar Number: "+ LTRIM(STR(p_bar)) +;
  84.            ") from popup " + p_popup NOWAIT
  85.  
  86. IF p_prompt = 'Exit'
  87.     WAIT WINDOW "The Restaurant Menu bar terminates" NOWAIT
  88.     SET SYSMENU TO DEFAULT
  89.     
  90. ENDIF
  91.  
  92.