1 TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TKader TCHUI.TEdit TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TLijst TCHUI.TLijst TCHUI.TDataSetList TCHUI.TDataSetList 1 ========================================================================================================================== METHODs . ========================================================================================================================== ",3,31,,3,,,,,$$$alCenter) Set ..btnSourceToDest.Action=..acSourceToDest Do ##class(TCHUI.TButton).CreateSet(%this,"btnDestToSource","<",5,31,,3,,,,,$$$alCenter) Set ..btnDestToSource.Action=..acDestToSource Do ##class(TCHUI.TButton).CreateSet(%this,"btnAllSourceToDest",">>>",9,31,,3,,,,,$$$alCenter) Set ..btnAllSourceToDest.Action=..acAllSourceToDest Do ##class(TCHUI.TButton).CreateSet(%this,"btnAllDestToSource","<<<",11,31,,3,,,,,$$$alCenter) Set ..btnAllDestToSource.Action=..acAllDestToSource Do ##class(TCHUI.TButton).CreateSet(%this,"btnDestUp","Up",3,63,,4,,,,,$$$alCenter) Set ..btnDestUp.Action=..acDestUp Do ##class(TCHUI.TButton).CreateSet(%this,"btnDestDown","Dn",5,63,,4,,,,,$$$alCenter) Set ..btnDestDown.Action=..acDestDown Do ##class(TCHUI.TButton).CreateSet(%this,"btnAddToDest","Add",13,24,,5,,,,,$$$alCenter) Set ..btnAddToDest.Action=..acAddToDest Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Cancel",13,54,,8,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",13,45,,8,,,,,$$$alCenter) Set ..btnOk.Action=..acOk //Lists Do ##class(TCHUI.TLijst).CreateSet(%this,"lstSource","Source",3,3,9,25) Set rdRowlstSource=..lstSource.CreateRowDef("rdRowlstSource",$$$ftAddLijstRow) Do ..lstSource.AddLabelDBToRowDef(rdRowlstSource,..#colText) Do ##class(TCHUI.TLijst).CreateSet(%this,"lstDest","Dest",3,36,9,25) Set rdRowlstDest=..lstDest.CreateRowDef("rdRowlstDest",$$$ftAddLijstRow) Do ..lstDest.AddLabelDBToRowDef(rdRowlstDest,..#colText) //DataSetLists Set ..dslSource=##class(TCHUI.TDataSetList).Create(..lstSource,"dslSource") Do ..dslSource.AddColDef(..#colText,$$$rsList,1) Set ..dslDest=##class(TCHUI.TDataSetList).Create(..lstDest,"dslDest") Do ..dslDest.AddColDef(..#colText,$$$rsList,1) Do ..lstSource.InitSpec(..dslSource,,rdRowlstSource) Do ..lstDest.InitSpec(..dslDest,,rdRowlstDest) Do ..SetTabAndPaintOrder(..kdrMain,..lstSource,..txtAddToDest,..btnAddToDest,..btnSourceToDest,..btnDestToSource,..btnAllSourceToDest,..btnAllDestToSource,..lstDest,..btnDestUp,..btnDestDown,..btnOk,..btnCancel) ]]> lbSource:%String,SkipIfInDest:%Boolean=1 lbDest:%String %String List:TCHUI.TLijst,lbList:%String,SkipList:TCHUI.TLijst=$$$NULLOREF 1 List:TCHUI.TLijst,Text:%String,Refresh:%Boolean=1 1 %Boolean FromList:TCHUI.TLijst,ToList:TCHUI.TLijst,Refresh:%Boolean=1 1 FromList:TCHUI.TLijst,ToList:TCHUI.TLijst 1 Text:%String,List:TCHUI.TLijst 1 %Boolean ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis,KeyCode:%String