Element CheckBox

BaseElements
  include 'Win.inc'
EndBase

Create
  if Self#.prop.ThreeState
    ws = BS_AUTO3STATE
  else
    ws = BS_AUTOCHECKBOX
  end if

  NewControl Self,Parent,button_class,Self#.prop.Caption,ws

  if Self#.prop.Checked
    invoke  SendMessage,[Self#.hwnd],BM_SETCHECK,Self#.prop.Checked,0
  end if

Events
  Event Self,onCheck
    invoke  SendMessage,[Self#.hwnd],BM_GETCHECK,0,0
    Self#.onCheck eax,data_int,Parent#.finish
    jmp  Parent#.finish
  EndEvent

PointVar Checked,data_int
  invoke SendMessage,[Self#.hwnd],BM_GETCHECK,0,0
  result equ eax
EndPoint

PointWork doCheck
  \local res
  ToInteger res,data,data.type
  invoke SendMessage,[Self#.hwnd],BM_SETCHECK,res,0
EndPoint

EndElement