BindEvent et shorcut
Publié : ven. 22/août/2014 11:01
Es-ce normal que ça ne fonctionne pas avec #pb_All ?
Code : Tout sélectionner
Procedure EV_EXIT()
End
EndProcedure
WD_main = OpenWindow(#PB_Any, 0, 0, 200, 100, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
GD_canvas = CanvasGadget(#PB_Any, 0, 0, WindowWidth(WD_main), WindowHeight(WD_main))
AddKeyboardShortcut(WD_main, #PB_Shortcut_Escape, 0)
BindEvent(#PB_Event_Menu, @EV_EXIT(), #PB_All, 0)
; BindEvent(#PB_Event_Menu, @EV_EXIT(), WD_main, 0)
BindEvent(#PB_Event_CloseWindow, @EV_EXIT())
;}
Repeat
event = WaitWindowEvent()
ForEver