new event types for BindGadgetEvent

[eddy]

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

[Bisonte]

I support this request. Because : http://purebasic.fr/english/viewtopic.p ... 94#p420194