Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Dynamically adding menu options
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
00339109
Message ID:
00339125
Vues:
22
Sorry, something in the generated code os fouling the HTML parser on the UT. Let's try again. I substituted a tilde [~] for the backslash, and a double-tilde [~~] for the backslash + less than sign for the hot keys. I also used the pound sign for not equal sign.
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "~~Window" COLOR SCHEME 3 ;
	KEY ALT+W, "" ;
	MESSAGE "Manipulates windows, displays Command and View windows"

ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow

DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR _mwi_arran OF _mwindow PROMPT "~~Arrange All" ;
	MESSAGE "Arranges windows as non-overlapping tiles"
DEFINE BAR _mwi_sp100 OF _mwindow PROMPT "~-"
DEFINE BAR _mwi_showa OF _mwindow PROMPT "Sh~~ow All" ;
	MESSAGE "Shows all hidden windows"
DEFINE BAR _mwi_clear OF _mwindow PROMPT "Clea~~r" ;
	MESSAGE "Clears text from the application workspace or the current output window"
DEFINE BAR _mwi_rotat OF _mwindow PROMPT "C~~ycle" ;
	KEY CTRL+F1, "Ctrl+F1" ;
	MESSAGE "Cycles through all open windows"
DEFINE BAR _mwi_sp200 OF _mwindow PROMPT "~-"
DEFINE BAR 7 OF _mwindow PROMPT "~~Data Session" ;
	SKIP FOR oApp.App_AuthLevel # 1 ;
	MESSAGE "Displays the Data Session window"
ON SELECTION BAR 7 OF _mwindow activate window view
Mark McCasland
Midlothian, TX USA
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform