Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What is name of system toolbar in vfp 5.0?
Message
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00643138
Message ID:
00643176
Views:
9
>>What is name of system toolbar in vfp 5.0?
>>How can i hide the system toolbar?
>
>Seems like it's a popular question. Anyway, here is a solution:
>
>********************************************************************
>*  Description.......:  Hide_Restore_Toolbars
>*  Calling Samples...:
>*  Parameter List....:
>*  Created by........:  Mike Helland
>*  Modified by.......:
>********************************************************************
>dimension aToolbar[13, 2]
>aToolbar[ 1, 1] = 'Color Palette'
>aToolbar[ 2, 1] = 'Database Designer'
>aToolbar[ 3, 1] = 'Form Controls'
>aToolbar[ 4, 1] = 'Form Designer'
>aToolbar[ 5, 1] = 'Layout'
>aToolbar[ 6, 1] = 'Print Preview'
>aToolbar[ 7, 1] = 'Query Designer'
>aToolbar[ 8, 1] = 'Report Controls'
>aToolbar[ 9, 1] = 'Report Designer'
>aToolbar[10, 1] = 'Standard'
>aToolbar[11, 1] = 'View Designer'
>aToolbar[12, 1] = 'Project Manager'
>
>* Hide VFP's toolbars.
>
>for lnI = 1 to alen(aToolbar, 1)
>	aToolbar[lnI, 2] = wvisible(aToolbar [lnI, 1])
>	if aToolbar[lnI, 2]
>		hide window (aToolbar[lnI, 1])
>	endif aToolbar[lnI, 2]
>next lnI
>
>
>******** Rest of the app
>
>* Redisplay VFP's toolbars.
>
>for lnI = 1 to alen(aToolbar, 1)
>	if aToolbar[lnI, 2]
>		show window (aToolbar[lnI, 1])
>	endif aToolbar[lnI, 2]
>next lnI
You can also find such code in VFP Tastrade sample in Application class (releasetoolbars/showtoolbars methods)
Nick Neklioudov
Universal Thread Consultant
3 times Microsoft MVP - Visual FoxPro

"I have not failed. I've just found 10,000 ways that don't work." - Thomas Edison
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform