Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Open windows menu
Message
 
To
11/08/1997 13:28:15
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00044025
Message ID:
00044041
Views:
27
>Is there a convenient (or automatic) way to list all open windows in a menu pad, allowing the user to choose and activate a window from the menu? This is a common feature in apps, and one would think that it would easily be provided for (like in VB). Thanks.
>
>Erik

something like this? (i think from taz trader app)
in init of form,

LOCAL lnBar

IF TYPE("oApp") == "O"
*-- Find the next available bar number
IF CNTBAR("Windows") = 0 OR ;
GETBAR("Windows", CNTBAR("Windows")) < 0 && At a Fox system BAR
lnBar = CNTBAR("Windows") + 1
ELSE
lnBar = GETBAR("Windows", CNTBAR("Windows")) + 1
ENDIF

DEFINE BAR lnBar OF Windows PROMPT thisform.caption AFTER _MLAST
lcFormName = thisform.Name
ON SELECTION BAR lnBar OF Windows ACTIVATE Window &lcFormName
ENDIF
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform