Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
LABEL on a form
Message
From
04/11/1997 16:38:08
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00058218
Message ID:
00058231
Views:
25
>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
Map
View

Click here to load this message in the networking platform