Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Windows List
Message
 
 
To
18/03/2000 11:52:57
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Title:
Miscellaneous
Thread ID:
00347461
Message ID:
00347474
Views:
22
>Hi,
> How could I have Window List in my menu?
>
>Thank you

If you issue create menu test from the command window and click on Menu button, then click on Menu on the menu bar, then click Quick Menu, you will get all the standard menu items in this menu. Next, click on Menu/Generate. The output will go to a file named test.mpr. You can then modi comm test.mpr.

Look for the following codes that you need to do this. Note that these lines are NOT all together in the mpr file.
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "Window" COLOR SCHEME 3 ;
	NEGOTIATE  RIGHT, NONE ;
	KEY ALT+W, "" ;
	MESSAGE "Manipulates windows, displays Command and Data Session 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_clear OF _mwindow PROMPT "Clear" ;
	MESSAGE "Clears text from the application workspace or the current output window"
DEFINE BAR _mwi_rotat OF _mwindow PROMPT "Cycle" ;
	KEY CTRL+F1, "Ctrl+F1" ;
	MESSAGE "Cycles through all open windows"
DEFINE BAR _mwi_sp200 OF _mwindow PROMPT "\-"
DEFINE BAR 6 OF _mwindow PROMPT "Data Session" ;
	SKIP FOR Version(2) <> 2 ;
	MESSAGE "Displays the Data Session window"
ON SELECTION BAR 6 OF _mwindow activate window view
You do not have to keep any of the DEFINE BAR lines. You can pick and choose what you want to keep or add your own.

In fact, this is how I created my app menu. I first did a quick menu in the menu designer and removed what I did not want, added my own stuff, etc. ALl from the menu designer.
Mark McCasland
Midlothian, TX USA
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform