Code: Select all
@BRUSH 300, "Amiga500.jpg", {Loader="inbuilt"} ;Here you can test with other picture.
@MENU 1,
{
{"Menu Test",
{
{"Empezar...", ID = "start"},
{"Parar...", ID = "stop", Flags = #MENUITEM_DISABLED},
{""},
{"Salir...", ID = "quit", Hotkey = "ESC"}
}
},
{"?",
{
{"Sobre..", ID = "about"}
}
}
}
@DISPLAY {Title="Example Menu Bug ", Width=320, Height=208, Color=#WHITE, Borderless = False, NoClose=False,
KeepProportions=True, Sizeable = False, NoModeSwitch=True, Menu=1
}
Function p_MenuFunc(msg)
Switch msg.action
Case "OnMenuSelect":
Local r$ = ""
Local doreq = True
Switch msg.item
Case "start":
doreq = False
Case "stop":
doreq = False
Case "start":
doreq = False
Case "about":
doreq = False
Case "quit":
End()
Default:
r$ = msg.item
EndSwitch
If doreq
If r$ = "" Then r$ = "Requester cancelled"
SystemRequest("", "Your selection: " .. r$, "OK", #REQICON_INFORMATION)
EndIf
EndSwitch
EndFunction
DisplayBrush(300, 0, 0)
InstallEventHandler({OnMenuSelect = p_MenuFunc})
EscapeQuit(True)
Repeat
WaitEvent
Forever