home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / solution / menus / dynamic.mpr < prev    next >
Encoding:
Text File  |  1996-08-21  |  2.3 KB  |  52 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 02/15/96             DYNAMIC.MPR              14:35:36  
  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. SET SYSMENU AUTOMATIC
  27.  
  28. DEFINE PAD dynmenu OF _MSYSMENU PROMPT "Dynamic \<Items" COLOR SCHEME 3 ;
  29.     AFTER _MSYSTEM ;
  30.     KEY ALT+I, ""
  31. ON PAD dynmenu OF _MSYSMENU ACTIVATE POPUP empty_pop
  32.  
  33. DEFINE POPUP empty_pop MARGIN RELATIVE SHADOW COLOR SCHEME 4
  34. DEFINE BAR 1 OF empty_pop PROMPT " "
  35.  
  36. ON SELECTION POPUP empty_pop DO takeaction IN dynamic.mpr WITH PROMPT()
  37.  
  38. *       *********************************************************
  39. *       *                                                         
  40. *       *                 Cleanup Code & Procedures               
  41. *       *                                                         
  42. *       *********************************************************
  43. *
  44.  
  45. PROCEDURE takeaction(cPrompt)
  46. #DEFINE MSG_LOC "You chose " + cPrompt + "."
  47.         
  48. IF cPrompt = "Release this menu"
  49.     RELEASE PAD dynmenu of _MSYSMENU
  50. ELSE
  51.     WAIT WINDOW MSG_LOC TIMEOUT 1
  52. ENDIF