This is a new issue with 9.0, because executables compiled with Hollywood 8.0 don't have this issue.
Here's an example code:
Code: Select all
@MENU 1, {
{"File", {
{"Fullscreen", ID = "fullscreen"},
{"Quit", ID = "quit"}}},
{"?", {
{"About...", ID = "about"}}}
}
@DISPLAY {Menu = 1}
Function p_MenuFunc(msg)
Switch msg.action
Case "OnMenuSelect":
Switch msg.item
Case "fullscreen":
Cls
ChangeDisplayMode(#DISPMODE_FULLSCREEN, #NATIVE, #NATIVE)
NPrint("Please wait...")
Wait(100)
ChangeDisplayMode(#DISPMODE_WINDOWED)
Cls
NPrint("Check menus now.")
Case "quit":
End
EndSwitch
EndSwitch
EndFunction
InstallEventHandler({OnMenuSelect = p_MenuFunc})
NPrint("Select File/Fullscreen menu item.")
Repeat
WaitEvent
Forever