new event types for BindGadgetEvent
Posted: Wed Jul 31, 2013 9:39 pm
Is it possible to have some new event types like: #PB_EventType_SizeGadget and #PB_EventType_FreeGadget ?
Code: Select all
Procedure CustomGadget(Gadget, x, y, w, h, scrollbarThickness=15)
Protected *mygadget.CUSTOM_GADGET=AllocateMemory(SizeOf(CUSTOM_GADGET))
With *mygadget
Protected result=ContainerGadget(Gadget, 0, 0, 0, 0, #PB_Container_BorderLess)
If Gadget=#PB_Any
\gadget=result
Else
\gadget=Gadget
EndIf
; YOUR CODE HERE
CloseGadgetList()
SetGadgetData(\container, *mygadget)
BindGadgetEvent(\container, @CustomGadget_Drawing(), #PB_EventType_SizeGadget )
BindGadgetEvent(\container, @CustomGadget_FreeResourceAndMemory(), #PB_EventType_FreeGadget )
ResizeGadget(\container, x, y, w, h)
ProcedureReturn result
EndWith
EndProcedure