Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Remove Menu
Message
 
 
To
29/10/2001 16:11:58
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Title:
Miscellaneous
Thread ID:
00574717
Message ID:
00574792
Views:
29
>I remember once I saw on UT nice routine that would allow to remove menu but I forgot where. Does anybody remember it?
>Thanks.

To disable system menu
push menu _msysmenu
SET SYSMENU OFF 
...
pop menu _msysmenu
To hide system toollbars
DIMENSION laToolbars[11]
laToolbars[1] = 'Form Designer'
laToolbars[2] = 'Standard'
laToolbars[3] = 'Layout'
laToolbars[4] = 'Query Designer'
laToolbars[5] = 'View Designer'
laToolbars[6] = 'Color'
laToolbars[7] = 'Form Designer'
laToolbars[8] = 'Database Designer'
laToolbars[9] = 'Report Designer'
laToolbars[10] = 'Report Controls'
laToolbars[11] = 'Print Preview'

FOR lnCount = 1 TO ALEN(laToolbars, 1)
    IF WVISIBLE(laToolbars[lnCount])
       HIDE WINDOW (laToolbars[lnCount])
    ENDIF
ENDFOR
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform