General information
Category:
Forms & Form designer
>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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only