PureBasic Forums - English

Code: Select all

;TODO hope BindEvent() supported more Event

Procedure wm_systimer()
 Debug 1
EndProcedure

OpenWindow(0, 100, 100, 200, 200, "BindEventEx", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
EditorGadget(0, 10, 10, 180, 180)
#wm_systimer=280
BindEvent(#wm_systimer, @wm_systimer())
SetActiveGadget(0)
Repeat
 Event = WaitWindowEvent()
 If Event = #wm_systimer
  Debug 0
 EndIf
Until Event = #PB_Event_CloseWindow

Code: Select all

;TODO hope BindEvent() supported more Event

Enumeration CustomEvents #PB_Event_FirstCustomValue
  #MyEvent_SysTimer
EndEnumeration

; ----

#wm_systimer = $118

Procedure WinCB(hWnd, uMsg, wParam, lParam)
  
  Select uMsg
    Case #wm_systimer
      PostEvent(#MyEvent_SysTimer)
  EndSelect
  
  ProcedureReturn #PB_ProcessPureBasicEvents 
  
EndProcedure

; ----

Procedure wm_systimer()
 Debug "MyEvent_SysTimer"
EndProcedure

SetWindowCallback(@WinCB())

OpenWindow(0, 100, 100, 200, 200, "BindEventEx", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
EditorGadget(0, 10, 10, 180, 180)
BindEvent(#MyEvent_SysTimer, @wm_systimer())
SetActiveGadget(0)

Repeat
 Event = WaitWindowEvent()
 If Event = #wm_systimer
  Debug 0
 EndIf
Until Event = #PB_Event_CloseWindow