home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / tastrade / menus / intro.mpr < prev    next >
Encoding:
Text File  |  1996-08-21  |  4.8 KB  |  111 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/31/95              INTRO.MPR               16:38:34  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Microsoft Corporation                                   
  8. *       *                                                         
  9. *       * Copyright (C) 1995 Microsoft Corporation                
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98052                                      
  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 TO
  27.  
  28. SET SYSMENU AUTOMATIC
  29.  
  30. DEFINE PAD Pad OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
  31.     KEY ALT+F, "ALT+F"
  32. DEFINE PAD Help OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
  33.     KEY ALT+H, "ALT+H"
  34. ON PAD Pad OF _MSYSMENU ACTIVATE POPUP file
  35. ON PAD Help OF _MSYSMENU ACTIVATE POPUP help
  36.  
  37. DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4
  38. DEFINE BAR 1 OF file PROMPT "Return to Visual Fo\<xPro"
  39. ON SELECTION BAR 1 OF file _screen.activeform.Close()
  40.  
  41. DEFINE POPUP help MARGIN RELATIVE SHADOW COLOR SCHEME 4
  42. DEFINE BAR _mst_help OF help PROMPT "\<Contents" ;
  43.     KEY F1, "F1" ;
  44.     MESSAGE "Displays Help table of contents"
  45. DEFINE BAR _mst_hpsch OF help PROMPT "\<Search for Help on..." ;
  46.     MESSAGE "Searches for Help topics by keyword"
  47. DEFINE BAR 3 OF help PROMPT "\-"
  48. DEFINE BAR 4 OF help PROMPT "\<About Tasmanian Traders..." ;
  49.     MESSAGE "Displays information about this application and the system configuration"
  50. ON SELECTION BAR 4 OF help ;
  51.     DO _r0o0zo6eh ;
  52.     IN LOCFILE("MAINSAMP\MENUS\INTRO" ,"MPX;MPR|FXP;PRG" ,"WHERE is INTRO?")
  53.  
  54. ON SELECTION MENU _MSYSMENU *-- (c) Microsoft Corporation 1995
  55. ON SELECTION POPUP file ;
  56.     DO _r0o0zo6gz ;
  57.     IN LOCFILE("MAINSAMP\MENUS\INTRO" ,"MPX;MPR|FXP;PRG" ,"WHERE is INTRO?")
  58.  
  59. *       *********************************************************
  60. *       *                                                         
  61. *       * _R0O0ZO6EH  ON SELECTION BAR 4 OF POPUP help            
  62. *       *                                                         
  63. *       * Procedure Origin:                                       
  64. *       *                                                         
  65. *       * From Menu:  INTRO.MPR,            Record:   12          
  66. *       * Called By:  ON SELECTION BAR 4 OF POPUP help            
  67. *       * Prompt:     About Tasmanian Traders...                  
  68. *       * Snippet:    1                                           
  69. *       *                                                         
  70. *       *********************************************************
  71. *
  72. PROCEDURE _r0o0zo6eh
  73. LOCAL loAboutBox
  74.  
  75. SET CLASSLIB TO libs\about.vcx ADDITIVE
  76. loAboutBox = CREATEOBJECT("AboutBox", ;
  77.               "Tasmanian Traders", ;
  78.               "1.0", ;
  79.               "Copyright 1994 Microsoft Corporation", ;
  80.               "All rights reserved", ;
  81.               "BITMAPS\SMSWIRLT.BMP")
  82.  
  83. loAboutBox.Show
  84. RELEASE CLASSLIB about.vcx
  85.  
  86.  
  87. *       *********************************************************
  88. *       *                                                         
  89. *       * _R0O0ZO6GZ  ON SELECTION POPUP file                     
  90. *       *                                                         
  91. *       * Procedure Origin:                                       
  92. *       *                                                         
  93. *       * From Menu:  INTRO.MPR,            Record:    4          
  94. *       * Called By:  ON SELECTION POPUP file                     
  95. *       * Snippet:    2                                           
  96. *       *                                                         
  97. *       *********************************************************
  98. *
  99. PROCEDURE _r0o0zo6gz
  100. LOCAL lcCmd
  101. lcCmd = Prompt()
  102.  
  103. *? There was a bug with adding a method called "New" to a form,
  104. *? so we were forced to change it to AddNew at the last minute.
  105. IF UPPER(lcCmd) = "NEW"
  106.   lcCmd = "AddNew"
  107. ENDIF
  108.  
  109. lcCmd = "_screen.activeform." + lcCmd
  110. &lcCmd
  111.