General information
Category:
Forms & Form designer
>BTW, how can I make mytoolbar.vcx be THE default and not foxpro's toolbar?
*Hide toolbars
DO RELEASETOOLBARS
* Show main form
DO FORM < name >
READ EVENTS
DO CLEANUP
RETURN
PROCEDURE CLEANUP
SET HELP TO
SET EXCLUSIVE ON
set delete &xDELETE
*set talk on
set sysmenu on
set sysmenu to default
set status bar on
set century &xCENTURY
PROCEDURE releasetoolbars
*-- Releases all Visual FoxPro toolbars
LOCAL i
DIMENSION aToolBars[11,2]
atoolBars[1,1] = "Form Designer"
aToolBars[2,1] = "Standard"
aToolBars[3,1] = "Layout"
aToolBars[4,1] = "Query Designer"
aToolBars[5,1] = "View Designer"
aToolBars[6,1] = "Color Palette"
aToolBars[7,1] = "Form Controls"
aToolBars[8,1] = "Database Designer"
aToolBars[9,1] = "Report Designer"
aToolBars[10,1] = "Report Controls"
aToolBars[11,1] = "Print Preview"
FOR i = 1 TO ALEN(aToolBars, 1)
aToolBars[i,2] = WVISIBLE(aToolBars[i,1])
IF aToolBars[i,2]
HIDE WINDOW (aToolBars[i,1])
ENDIF
ENDFOR
*Try this code.
Dan
Previous
Next
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