Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to hide standard toolbar... I know we've discussed
Message
From
30/01/1997 13:09:11
 
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00018841
Message ID:
00018842
Views:
37
>How do you hide the toolbar in runtime program? It was gone adn now its back. ugh!!

This code come from the Search. Michel Poiré explains a solution.

*-- Releases all Visual FoxPro toolbars
LOCAL i

DIMENSION this.aToolBars[11,2]
this.aToolBars[1,1] = "Form Designer"
this.aToolBars[2,1] = "Standard"
this.aToolBars[3,1] = "Layout"
this.aToolBars[4,1] = "Query Designer"
this.aToolBars[5,1] = "View Designer"
this.aToolBars[6,1] = "Color Palette"
this.aToolBars[7,1] = "Form Controls"
this.aToolBars[8,1] = "Database Designer"
this.aToolBars[9,1] = "Report Designer"
this.aToolBars[10,1] = "Report Controls"
this.aToolBars[11,1] = "Print Preview"

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

*****************************************************

LOCAL i

*-- Show all VFP toolbars that were previously hidden
FOR i = 1 TO ALEN(this.aToolBars, 1)
IF this.aToolBars[i,2]
SHOW WINDOW (this.aToolBars[i,1])
ENDIF
ENDFOR
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform