func init() include("init_win_ctrl") fvar(old) old = block.select(BLK_BODY) //---------------------- CREATE ---------------------------------------------- fvar(fl) fl = 'loNoIntegralHeight' & 'loNoExtendSel' // if(isndef(Password)) // fl = 'eoPassword' // end // if(isndef(ReadOnly)) // fl &= 'eoReadonly' // end println(ctrl, ' := NewListbox(' + PARENT_CTRL + ', [', _arr.join(fl, ','), ']);') //---------------------- PROPERTYS ------------------------------------------- include("property_win_ctrl") if(isndef(Strings)) println(ctrl + '.Text := ', _arr.join(Strings, '#13#10'), ';') end //---------------------- EVENTS ---------------------------------------------- if(linked(onClick)) lng.begin_proc(ctrl + '_OnClick(obj:PObj)') event(onClick, isdef(DataType) ? (ctrl + '.CurIndex')@int : (ctrl + '.Control.Items[' + ctrl + '.CurIndex]')@str) lng.end_proc(BLK_MTD_HEAD) println(ctrl, '.OnSelChange := ' + ctrl + '_OnClick;') end block.select(old) end func doAdd(_data) if(isdef(AddType)) println(ctrl + '.Add(', String, ');') else println(ctrl + '.Insert(0, ', String, ');') end end func doClear(_data) println(ctrl + '.Clear;') end func doText(_data) println(ctrl + '.Text := ', e_str(_Data), ';') end func doLoad(_data) println('LoadControlFromFile(' + ctrl + ',', FileName, ');') end func doSave(_data) println('SaveControlToFile(' + ctrl + ',', FileName, ');') end func doDelete(_data) // TODO end func doSelect(_data) // TODO end func doSelectString(_data) // TODO end func doAddDir(_data) // TODO end func doReplace(_data) // TODO end func doAppend(_data) // TODO end func doEnsureVisible(_data) // TODO end func Text() return(ctrl + '.Text') end func Count() return(ctrl + '.Count') end func Array() // return() end func Row() return(ctrl + '.Control.Items[' + ctrl + '.CurIndex]') end func Index() return(ctrl + '.CurIndex') end