Code: Select all
If OpenWindow(0, 200, 200, 220, 100, "SubMenu Example")
If CreateMenu(0, WindowID(0))
MenuTitle("Project")
MenuItem(1, "Open")
MenuItem(2, "Close")
MenuBar()
OpenSubMenu("Recent files") ; begin submenu
MenuItem( 3, "C:\Autoexec.bat")
MenuItem( 4, "D:\Test.txt")
CloseSubMenu() ; end submenu
CloseSubMenu() ; end first menutitle
MenuItem(5, "Help") ; instead of MenuTitle creating MenuItem
MenuTitle("About us")
MenuItem(6,"Mission")
MenuItem(7,"Corporate Blah, Blah")
EndIf
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu()
Case 5
MessageRequester("Help", " I didn't know you could close the first menu title", #PB_MessageRequester_Ok | #PB_MessageRequester_Info)
EndSelect
EndSelect
Until Event=#PB_Event_CloseWindow
EndIf
I found having one click menu item useful for my tiny program. Should it be in the help? Nice to know you are able to do this.
Norm.