Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Setting Default Pad
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Title:
Setting Default Pad
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01369365
Message ID:
01369365
Views:
60
Hi Gang...

I am reworking an old project, which was written in FoxPro for DOS.... it has since been retouched for Windows... BUT...

it had an old style DOS Menu system, and had some problems running under Windows XP in certain situations... so I am redoing it using the System Menu.

With the old DOS style Menu, the first PAD was already depressed, and you could press ENTER to pick it and enter the menu selection for that PAD... good.

But with the newer System Menu, the first PAD is not already depressed. I have to press ALT, then ENTER to select the first selection.

Here is the code for it...
CLEAR

*main_menu = "Main_Menu"
SET SYSMENU TO 
SET SYSMENU automatic
main_menu = "_mSysMenu"

DEFINE MENU &Main_Menu BAR AT LINE 1
*DEFINE MENU &Main_Menu

DEFINE PAD _Cash_Reg  OF &Main_Menu PROMPT "\<Cash Register"
DEFINE PAD _Inventory OF &Main_Menu PROMPT "\<Inventory"    
DEFINE PAD _Utilities OF &Main_Menu PROMPT "\<Utilities"    
DEFINE PAD _Exit      OF &Main_Menu PROMPT "E\<xit"         

*!*   DEFINE PAD _Cash_Reg  OF &Main_Menu PROMPT "Cash Register  "  AT 0,0;
   	COLOR SCHEME 3 KEY ALT+C, "" FONT 'Fixedsys', 10
*!*   DEFINE PAD _Inventory OF &Main_Menu PROMPT "Inventory  "     AT 0,18;
   	COLOR SCHEME 3 KEY ALT+I, "" FONT 'Fixedsys', 10
*!*   DEFINE PAD _Utilities OF &Main_Menu PROMPT "\<Utilities  "     AT 0,32;
   	COLOR SCHEME 3 KEY ALT+U, "" FONT 'Fixedsys', 10
*!*   DEFINE PAD _Exit      OF &Main_Menu PROMPT "E\<xit  "          AT 0,46;
   	COLOR SCHEME 3 KEY ALT+X, "" FONT 'Fixedsys', 10

ON SELECTION PAD _Cash_Reg  OF &Main_Menu DO Regtemp
ON PAD _Inventory OF &Main_Menu ACTIVATE POPUP Inventory
ON PAD _Utilities OF &Main_Menu ACTIVATE POPUP Utilities
ON SELECTION PAD _Exit      OF &Main_Menu DO myRETURN
Is there some way to get the System Menu first PAD to be already depressed upon startup?

Thanks!
Tommy Tillman A+ NetWork+ MCP
Next
Reply
Map
View

Click here to load this message in the networking platform