How to disable menutitle ?
Posted: Mon Jun 09, 2003 12:38 pm
...
http://www.purebasic.com
https://www.purebasic.fr/english/
What ? DisableMenuItem can disable menuTitle and menuItemGPI wrote:RTFM!
DisableMenuItem(MenuItem, Status)
Code: Select all
If OpenWindow(0, 200, 200, 220, 100, #PB_Window_SystemMenu, "SubMenu Example")
If CreateMenu(0, WindowID())
MenuTitle("Project")
MenuItem(1, "Open")
MenuItem(2, "Close")
MenuTitle("2")
OpenSubMenu("Recent files") ; beginne Erstellung des Unter-Menüs
MenuItem( 3, "C:\Autoexec.bat")
MenuItem( 4, "D:\Test.txt")
CloseSubMenu() ; beende Unter-Menü
EndIf
mid=GetMenu_(WindowID())
enablemenuitem_(mid,0,#MF_BYPOSITION|#MF_GRAYED)
DrawMenuBar_(WindowID())
For i=1 To 500
Delay(1)
windowevent()
Next
beep_(1,1)
enablemenuitem_(mid,0,#MF_BYPOSITION|#MF_ENABLED)
enablemenuitem_(mid,1,#MF_BYPOSITION|#MF_Disabled)
DrawMenuBar_(WindowID())
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf