Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
System Toolbar question???
Message
From
25/09/1998 12:11:17
Bruce Gilmour
Cal-Mour Consultants
Calgary, Alberta, Canada
 
 
To
25/09/1998 10:25:22
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00140810
Message ID:
00140853
Views:
19
>Could anyone tell me how to programmatically remove the standard foxpro toolbars that are open in my current session.
>
>I want to remove all toolbars at the beginning of my program.

Hi Eric;
To add to what Cetin said, you could try setting up a method in your main program similar to what follows (cribbed from Tastrade)

#DEFINE TB_FORMDESIGNER_LOC "Form Designer"
#DEFINE TB_STANDARD_LOC "Standard"
#DEFINE TB_LAYOUT_LOC "Layout"
#DEFINE TB_QUERY_LOC "Query Designer"
#DEFINE TB_VIEWDESIGNER_LOC "View Designer"
#DEFINE TB_COLORPALETTE_LOC "Color Palette"
#DEFINE TB_FORMCONTROLS_LOC "Form Controls"
#DEFINE TB_DATADESIGNER_LOC "Database Designer"
#DEFINE TB_REPODESIGNER_LOC "Report Designer"
#DEFINE TB_REPOCONTROLS_LOC "Report Controls"
#DEFINE TB_PRINTPREVIEW_LOC "Print Preview"

*-- Releases all Visual FoxPro toolbars
LOCAL i

DIMENSION this.aToolBars[12,2]
this.aToolBars[1,1] = TB_FORMDESIGNER_LOC
this.aToolBars[2,1] = TB_STANDARD_LOC
this.aToolBars[3,1] = TB_LAYOUT_LOC
this.aToolBars[4,1] = TB_QUERY_LOC
this.aToolBars[5,1] = TB_VIEWDESIGNER_LOC
this.aToolBars[6,1] = TB_COLORPALETTE_LOC
this.aToolBars[7,1] = TB_FORMCONTROLS_LOC
this.aToolBars[8,1] = TB_DATADESIGNER_LOC
this.aToolBars[9,1] = TB_REPODESIGNER_LOC
this.aToolBars[10,1] = TB_REPOCONTROLS_LOC
this.aToolBars[11,1] = TB_PRINTPREVIEW_LOC
this.aToolBars[12,1] = WIN_COMMAND_LOC

FOR i = 1 TO ALEN(this.aToolBars, 1)
this.aToolBars[i,2] = WVISIBLE(this.aToolBars[i,1])
IF this.aToolBars[i,2]
HIDE WINDOW (this.aToolBars[i,1])
ENDIF
ENDFOR

As usual, this is only one way of approaching it. HTH
***************************
Bruce Gilmour

"Two things are infinite, the Universe and human stupidity. And I am not sure about the Universe."
- Albert Einstein
Previous
Reply
Map
View

Click here to load this message in the networking platform