Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Named menu bars just don't work, do they?
Message
 
 
To
14/03/2000 16:04:22
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00345540
Message ID:
00345579
Views:
19
While this is not a named menu, in the MPRs that the GenMenu always creates, the first lines are:

SET SYSMENU TO
SET SYSMENU AUTOMATIC

Then come all the DEFINESs. Now my custom menu is active. When I no longer want it active, I just issue:

SET SYSMENU TO DEFAULT

Works everytime. When I need another pad that relates to a particular form, I just add another pad to the menu:
DEFINE PAD _PWSEdit OF _MSYSMENU BEFORE VTSHELP ;
   PROMPT "PW*S" COLOR SCHEME 3 KEY ALT+S, ""

ON PAD _PWSEdit OF _MSYSMENU ACTIVATE POPUP pws

DEFINE POPUP pws MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF pws PROMPT "Addresses"
DEFINE BAR 2 OF pws PROMPT "Violations"
DEFINE BAR 3 OF pws PROMPT "Enforcement Actions"
DEFINE BAR 4 OF pws PROMPT "SNC Data"
ON SELECTION BAR 1 OF pws oApp.DoForm("Address", "frmAddress")
ON SELECTION BAR 2 OF pws oApp.DoForm("Viols", "frmViolations")
ON SELECTION BAR 3 OF pws oApp.DoForm("EnfActs", "frmEnfActs")
ON SELECTION BAR 4 OF pws oApp.DoForm("SncData", "frmSncData")
Keep in mind all of this was generated for me, and all I do is cut and paste into a PRG. I first start out by creating a menu and selecting the Quick Menu option. I modify from there.
Mark McCasland
Midlothian, TX USA
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform