
Does anyone have an idea what to do about it?
Code: Select all
#SPI_GETFLATMENU = $1022
SystemParametersInfo_(#SPI_GETFLATMENU, 0, @myBool, 0)
MessageRequester("Info", Str(myBool))
Code: Select all
#SPI_GETFLATMENU = $1022
SystemParametersInfo_(#SPI_GETFLATMENU, 0, @myBool, 0)
MessageRequester("Info", Str(myBool))
InitSprite()
WindowID = OpenWindow(PB_ANY, 0, 0, 300, 200, #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered, "Bug in menu refresh routine")
If OpenWindowedScreen(WindowID, 0, 0, 300, 200,0,0,0) <> 0
If CreateMenu(0, WindowID )
MenuTitle("One")
MenuItem(PB_ANY, "111")
MenuTitle("Two")
MenuItem(PB_ANY, "222")
MenuTitle("Three")
MenuItem(PB_ANY, "333")
MenuTitle("Four")
MenuItem(PB_ANY, "444")
MenuTitle("Settings")
OpenSubMenu("SubMenu1")
MenuItem( PB_ANY, "Sub_Menu1")
CloseSubMenu()
MenuTitle("Help")
MenuItem(PB_ANY, "About...")
EndIf
EndIf
Repeat
FlipBuffers()
ClearScreen(0,0,0)
event = WaitWindowEvent()
Delay(10)
Until event = #PB_EventCloseWindow