Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Setting Default Pad
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01369365
Message ID:
01369405
Vues:
13
This message has been marked as the solution to the initial question of the thread.
Hi Tommy,

Try to activate a pad with ACTIVATE MENU ... PAD ...
Also, you don't need macro substitution in this case. The Name expression works fine where names are involved.
CLEAR

SET SYSMENU TO 
SET SYSMENU automatic
main_menu = "_mSysMenu"

DEFINE MENU (Main_Menu) BAR AT LINE 1

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"         

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

*** 
ACTIVATE MENU (Main_Menu) PAD _Cash_Reg
***
>
>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...
>
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform