Code: Select all
If OpenWindow(0, 200, 200, 200, 100, "MenuItem Example")
If CreateMenu(0, WindowID(0))
MenuTitle("Project")
MenuItem(1, "Open"+Chr(9)+"O") ; I get a grey 'O'
MenuItem(2, "&Save") ; I just get 'Save' (no underline or arrow)
MenuItem(3, "Quit"+Chr(9)+"Esc") ; I get 'Quit E' with the E greyed
EndIf
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf