Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Removing Toolbars
Message
From
24/10/1996 12:12:29
 
 
To
24/10/1996 10:33:12
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00010857
Message ID:
00010871
Views:
29
>When running a form is it possible to remove all of the
>VFP system toolbars from the screen and then restore
>them when the form is released?
Try this code, aToolbars is an array you have to create in your form. You also can create an global array to replace aToolsBars in this code.

*-- 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
Previous
Reply
Map
View

Click here to load this message in the networking platform