can you tell me what I'm doing wrong? Or is it a bug?
This code works:
Code: Select all
If CreatePopupImageMenu(#TrayMenu,#PB_Menu_ModernLook)
MenuItem(3, "Set Applications", CatchImage(2, ?Prefs))
MenuItem(2, "Help/About", CatchImage(1, ?Help))
MenuBar()
MenuItem(1,"Exit", CatchImage(0, ?Exit))
SetMenuItemState(#TrayMenu,5,1)
EndIf
Code: Select all
If CreatePopupImageMenu(#TrayMenu,#PB_Menu_ModernLook)
MenuItem(3, "Set Applications", CatchImage(#PB_Any, ?Prefs))
MenuItem(2, "Help/About", CatchImage(#PB_Any, ?Help))
MenuBar()
MenuItem(1,"Exit", CatchImage(#PB_Any, ?Exit))
SetMenuItemState(#TrayMenu,5,1)
EndIf