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


Actually I am trying to have mytoolbar be the default when visual foxpro starts up. I been into : tools:options:forms and tried tinkering with it that way but is that the wrong way to go about it?



>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
"Build a man a fire, and he's warm for a day.
Set a man on fire, and he's warm for the rest of his life."
Previous
Reply
Map
View

Click here to load this message in the networking platform