Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Adding Calculator
Message
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00562073
Message ID:
00562724
Views:
17
Winn,

This is a snip from my standard VFP menu (.mpr file)
DEFINE POPUP _mtools MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mtools PROMPT "Wizards" ;
	MESSAGE "Runs the selected wizard"
DEFINE BAR _mtl_sp100 OF _mtools PROMPT "\-"
DEFINE BAR _mtl_spell OF _mtools PROMPT "Spelling..." ;
	MESSAGE "Checks spelling"
DEFINE BAR _mst_macro OF _mtools PROMPT "Macros..." ;
	MESSAGE "Creates, deletes, or revises a keyboard macro"
DEFINE BAR _mtl_browser OF _mtools PROMPT "Class Browser" ;
	MESSAGE "Runs the Class Browser"
DEFINE BAR _mtl_gallery OF _mtools PROMPT "Component Gallery" ;
	MESSAGE "Runs the Component Gallery"
DEFINE BAR _mtl_coverage OF _mtools PROMPT "Coverage Profiler" ;
	MESSAGE "Runs the Coverage Profiler"
DEFINE BAR _med_beaut OF _mtools PROMPT "Beautify..." ;
	MESSAGE "Beautify a program"
DEFINE BAR _mti_runactivedoc OF _mtools PROMPT "Run Active Document..." ;
	MESSAGE "Runs an Active Document"
DEFINE BAR 10 OF _mtools PROMPT "\-"
<B>DEFINE BAR 11 OF _mtools PROMPT "Calculator"</B>
DEFINE BAR 12 OF _mtools PROMPT "Calendar"
DEFINE BAR _mtl_sp200 OF _mtools PROMPT "\-"
DEFINE BAR 14 OF _mtools PROMPT "Trace Window"
DEFINE BAR 15 OF _mtools PROMPT "Debug Window"
DEFINE BAR 16 OF _mtools PROMPT "Locals Window"
DEFINE BAR _mtl_sp400 OF _mtools PROMPT "\-"
DEFINE BAR _mtl_optns OF _mtools PROMPT "Options..." ;
	MESSAGE "Changes various categories for Visual FoxPro options"
ON BAR 1 OF _mtools ACTIVATE POPUP _mwizards
<B>ON SELECTION BAR 11 OF _mtools ACTI WIND calculator</B>
ON SELECTION BAR 12 OF _mtools ACTI WIND calendar
ON SELECTION BAR 14 OF _mtools acti wind TRACE
ON SELECTION BAR 15 OF _mtools acti wind DEBUG
ON SELECTION BAR 16 OF _mtools acti wind LOCALS
Of course, I used the menu builder, but this might give you an idea of where to start.

HTH
Thom C>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform