func init() include("init_win_ctrl") fvar(old) old = block.select(BLK_BODY) //---------------------- CREATE ---------------------------------------------- println(ctrl, ' := NewRadioBox(' + PARENT_CTRL + ', ', Caption, ');') //---------------------- PROPERTYS ------------------------------------------- include("property_win_ctrl") if(isndef(Selected)) println(ctrl + '.SetRadioCheckedOld;') end //---------------------- EVENTS ---------------------------------------------- if(linked(onSelect)) println(ctrl, '.onClick := ' + ctrl + '_onClick;') lng.begin_proc(ctrl + '_onClick(obj:PObj)') event(onSelect) lng.end_proc(BLK_MTD_HEAD) end block.select(old) end func doCaption(_data) println(ctrl + '.Caption := ', e_str(_data), ';') end func doSelect(_data) if(_data='') println(ctrl + '.Checked := False') else println(ctrl + '.SetRadioChecked;') end // println(ctrl + '.Checked := (', e_int(_data), ' <> 0);') end func Selected() return('byte(' + ctrl + '.Checked)') end include("methods_win_ctrl")