Index: CHUI/FOP/Print/dlgAddendumTmp.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/FOP/Print/dlgAddendumTmp.cls.xml (.../dlgAddendumTmp.cls.xml) (revision 1074) +++ CHUI/FOP/Print/dlgAddendumTmp.cls.xml (.../dlgAddendumTmp.cls.xml) (revision 2578) @@ -2,8 +2,7 @@ 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -56,9 +55,9 @@ . Set TaalInSelectedPos=$LF(lbSelected,Taal) . Set SelectedTraysAsBits=$$IntToBits^vhLib($S(TaalInSelectedPos>0:$LI(lbSelected,TaalInSelectedPos+1),1:0)) . For TrayLoop=1:1:..#cntNrOfTrays Do - .. Do ##class(%CHUI.TLabel).Create(%this,"lblTray"_TrayLoop,"Tray "_TrayLoop,3,10+(TrayLoop*10),,,,,,$LB(,,$$$fsUnderline)) + .. Do ##class(TCHUI.TLabel).Create(%this,"lblTray"_TrayLoop,"Tray "_TrayLoop,3,10+(TrayLoop*10),,,,,,$LB(,,$$$fsUnderline)) .. Set TabNr=TabNr+1 - .. Set CheckBox=##class(%CHUI.TCheckBox).Create(%this,"chkTray"_TrayLoop_Taal,"",Top,11+(TrayLoop*10),,,TabNr,TabNr) + .. Set CheckBox=##class(TCHUI.TCheckBox).Create(%this,"chkTray"_TrayLoop_Taal,"",Top,11+(TrayLoop*10),,,TabNr,TabNr) .. Set CheckBox.Tag=$LB(Taal,$$IntToBits^vhLib(2**(TrayLoop-1))) ;bit selectie tray1=1, tray2=2, tray3=4, tray4=8 .. Set CheckBox.Checked=$BIT(SelectedTraysAsBits,TrayLoop) @@ -83,22 +82,22 @@ Set ..Caption="Addendum toevoegen" //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) Set ..kdrMain.Anchors=$$$aksClient Set ..CaptionControl=..kdrMain //Line - Set ..lnSep=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnSep",..Height-2,1,..Width,,,,$LB($LB(1,$$$lcCenterLeft),$LB(,$$$lcCenterRight))) + Set ..lnSep=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnSep",..Height-2,1,..Width,,,,$LB($LB(1,$$$lcCenterLeft),$LB(,$$$lcCenterRight))) Set ..lnSep.Anchors=$$$aksBottom //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblTaal","Taal",3,3,,,,,,$LB(,,$$$fsUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblTaal","Taal",3,3,,,,,,$LB(,,$$$fsUnderline)) //Buttons - Set ..btnCancel=##class(%CHUI.TButton).Create(%this,"btnCancel","Annuleren",..Height-1,..Width-12,,11,,,,,$$$alCenter) + Set ..btnCancel=##class(TCHUI.TButton).Create(%this,"btnCancel","Annuleren",..Height-1,..Width-12,,11,,,,,$$$alCenter) Set ..btnCancel.ModalResult=$$$mrCancel Set ..btnCancel.Anchors=$LB($$$akRight,$$$akBottom) - Set ..btnOk=##class(%CHUI.TButton).Create(%this,"btnOk","OK",..Height-1,..Width-23,,10,,,,,$$$alCenter) + Set ..btnOk=##class(TCHUI.TButton).Create(%this,"btnOk","OK",..Height-1,..Width-23,,10,,,,,$$$alCenter) Set ..btnOk.ModalResult=$$$mrOk Set ..btnOk.Anchors=$LB($$$akRight,$$$akBottom)