Code: Alles auswählen
Procedure OwnCheckBoxDraw(gadget, state)
Protected rc.rect
SetRect_(@rc, 0, 0, GadgetWidth(gadget), GadgetHeight(gadget))
hdc = StartDrawing(CanvasOutput(gadget))
If state
DrawFrameControl_(hdc, @rc, #DFC_BUTTON, #DFCS_BUTTONCHECK | #DFCS_CHECKED)
Else
DrawFrameControl_(hdc, @rc, #DFC_BUTTON, #DFCS_BUTTONCHECK)
EndIf
StopDrawing()
EndProcedure
Procedure OwnCheckBoxClick()
Protected gadget
Protected state
Protected hdc
gadget = EventGadget()
state = GetGadgetData(gadget)
state ! 1
OwnCheckBoxDraw(gadget, state)
SetGadgetData(gadget, state)
EndProcedure
Procedure OwnCheckBox(id, x, y, cx, cy, flag = 0)
Protected gadget
Protected hdc
gadget = CanvasGadget(id, x, y, cx, cy, flag)
If Not id = #PB_Any
gadget = id
EndIf
BindGadgetEvent(gadget, @OwnCheckBoxClick(), #PB_EventType_LeftClick)
OwnCheckBoxDraw(gadget, 0)
EndProcedure
Procedure Main()
Protected Window
Protected Event
OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, 70, 250, "Test")
OwnCheckBox(#PB_Any, 10, 10, 40, 40)
OwnCheckBox(#PB_Any, 10, 60, 40, 40)
OwnCheckBox(#PB_Any, 10, 110, 40, 40)
OwnCheckBox(#PB_Any, 10, 160, 40, 40)
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
EndProcedure:Main()