home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / DEFMENU.PRG < prev    next >
Encoding:
Text File  |  1993-02-04  |  2.2 KB  |  72 lines
  1. *****************************************************************
  2. *     * 09/92               DEFMENU.PRG                         *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates how to define a menu system    *
  8. *     * with a menu bar abd popups                              *
  9. *****************************************************************
  10. CLEAR
  11.  
  12. SET SYSMENU SAVE    
  13. SET SYSMENU TO          
  14.  
  15. ON KEY LABEL ESC KEYBOARD CHR(13)
  16.  
  17. DEFINE MENU example BAR AT LINE 1
  18.  
  19. DEFINE PAD convpad OF example PROMPT '\<Conversions' COLOR SCHEME 3 ;
  20.     KEY ALT+C, ''
  21. DEFINE PAD cardpad OF example PROMPT 'Card \<Info' COLOR SCHEME 3 ;
  22.     KEY ALT+I, ''
  23.  
  24. ON PAD convpad OF example ACTIVATE POPUP conversion
  25. ON PAD cardpad OF example ACTIVATE POPUP cardinfo
  26.  
  27. DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4
  28. DEFINE BAR 1 OF conversion PROMPT 'Ar\<ea' ;
  29.     KEY CTRL+E, '^E'
  30. DEFINE BAR 2 OF conversion PROMPT '\<Length' ;
  31.     KEY CTRL+L, '^L'
  32. DEFINE BAR 3 OF conversion PROMPT 'Ma\<ss' ;
  33.     KEY CTRL+S, '^S'
  34. DEFINE BAR 4 OF conversion PROMPT 'Spee\<d' ;
  35.     KEY CTRL+D, '^D'
  36. DEFINE BAR 5 OF conversion PROMPT '\<Temperature' ;
  37.     KEY CTRL+T, '^T'
  38. DEFINE BAR 6 OF conversion PROMPT 'T\<ime' ;
  39.     KEY CTRL+I, '^I'
  40. DEFINE BAR 7 OF conversion PROMPT 'Volu\<me' ;
  41.     KEY CTRL+M, '^M'
  42.  
  43. ON SELECTION POPUP conversion;
  44.     DO choice IN defmenu WITH PROMPT(), POPUP()
  45.  
  46. DEFINE POPUP cardinfo MARGIN RELATIVE SHADOW COLOR SCHEME 4
  47. DEFINE BAR 1 OF cardinfo PROMPT '\<View Charges' ;
  48.     KEY ALT+V, ''
  49. DEFINE BAR 2 OF cardinfo PROMPT 'View \<Payments' ;
  50.     KEY ALT+P, ''
  51. DEFINE BAR 3 OF cardinfo PROMPT 'Vie\<w Users' ;
  52.     KEY ALT+W, ''
  53. DEFINE BAR 4 OF cardinfo PROMPT '\-'
  54. DEFINE BAR 5 OF cardinfo PROMPT '\<Charges '
  55.  
  56. ON SELECTION POPUP cardinfo;
  57.     DO choice IN defmenu WITH PROMPT(), POPUP()
  58.     
  59. ACTIVATE MENU example 
  60.  
  61. DEACTIVATE MENU example
  62. RELEASE MENU example EXTENDED
  63. SET SYSMENU TO DEFAULT
  64. ON KEY LABEL ESC
  65.  
  66. PROCEDURE choice
  67. PARAMETERS mprompt, mpopup
  68.  
  69. WAIT WINDOW 'You chose ' + mprompt + ;
  70.        ' from popup ' + mpopup NOWAIT
  71.  
  72.