Do ##class(TCHUI.Dlg.TFind).Test() 1 TCHUI.TForm 0 TCHUI.TKader TCHUI.TLabel TCHUI.TLabel TCHUI.TEdit TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TButton TCHUI.TButton TCHUI.TLijn lbSearchCols:%String 1 row; 5 cols -> 3 rows; ...) Set MaxRows=($LL(lbSearchCols)+1)\2 Set ..lblSearchIn=##class(TCHUI.TLabel).Create(%this,"lblSearchIn","Zoeken in:",10,3,1) Set ..Line=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnSearch",8,1,..Width,8,,,$LB($LB(1,$$$lcCenterLeft),$LB(,$$$lcCenterRight))) Set ..Kader.Height=..Height+5+MaxRows Set Pos=11, Left=3, TabCnt=..btnClose.TabVolgNr ;TabVolgorde van laatste cmp opvragen For Loop=1:1:$LL(lbSearchCols) Do . Set SearchCol=$LI(lbSearchCols,Loop) . Set SearchColName=$LI(SearchCol,1) . Set SearchColID=$LI(SearchCol,2) . Set TabCnt=TabCnt+1 . Set Pos=Pos+1 . Set chkSearchCol=##class(TCHUI.TCheckBox).Create(%this,"chkSearchCol"_SearchColName,SearchColName,Pos,Left,,,TabCnt,TabCnt) . Set chkSearchCol.Checked=1 . Set chkSearchCol.Tag=SearchColID . Set:(Loop=MaxRows) Pos=11, Left=(..Width\2)+1 Set ..Height=..Height+5+(($LL(lbSearchCols)+1)\2) Do ..Center() ]]> Sender:TCHUI.TControlBasis %String 1