PureBasic Forums - English

Posted: **Fri Mar 02, 2007 10:41 am**

I see codes for setting callback function to window.
Is it possible to set callback function for gadget

Posted: **Fri Mar 02, 2007 12:00 pm**

Global Gadget

Procedure GadgetCallback(hWnd, uMsg, wParam, lParam)
  If uMsg = #WM_LBUTTONDBLCLK
    Debug "Double Clicked!"
  EndIf
  ProcedureReturn CallWindowProc_(Gadget, hWnd, uMsg, wParam, lParam)
EndProcedure

If OpenWindow(0, 0, 0, 150, 75, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  ButtonGadget(0, 5, 5, 125, 25, "Double Click Me!")
  Gadget = SetWindowLong_(GadgetID(0), #GWL_WNDPROC, @GadgetCallback())
  Repeat
    WinEvent = WaitWindowEvent()
  Until WinEvent = #PB_Event_CloseWindow
EndIf : End

hope this helps.

c ya,
nco2k

Posted: **Fri Mar 02, 2007 12:53 pm**

Great, it helps me a lot.

PureBasic Forums - English

Is it possible to set callback function for gadget [SOLVED]

Is it possible to set callback function for gadget [SOLVED]