Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What is name of system toolbar in vfp 5.0?
Message
 
 
To
10/04/2002 09:42:57
Michale Chen
Shijiazhuang ZhiYuan Crop.
Shijiazhuang, China
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00643138
Message ID:
00643142
Views:
20
This message has been marked as the solution to the initial question of the thread.
>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
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform