No Windows CallBack
No SubClassing
Code: Select all
#BST_UNCHECKED = $0000
#BST_CHECKED = $0001
#BST_INDETERMINATE = $0002
#BST_PUSHED = $0004
#BST_FOCUS = $0008
;SendMessage(CheckBox, #BM_SETCHECK, #BST_CHECKED, 0)
;SendMessage(CheckBox, #BM_GETCHECK, 0, 0)
If OpenWindow(0, 0, 0, 280, 100, "CheckBox Demo", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CheckBoxGadget(0, 10, 10, 80,20,"CheckBox #1",#SS_NOTIFY)
CheckBoxGadget(1, 10, 50, 80,20,"CheckBox #2",#SS_NOTIFY)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Debug SendMessage_(GadgetID(0) , #BM_GETCHECK, 0, 0)
Case 1
Debug SendMessage_(GadgetID(1) , #BM_GETCHECK, 0, 0)
EndSelect
EndSelect
Until Quit = 1
EndIf