Index: UI/PR/GA/dlgTBOpties.cls.xml =================================================================== diff -u -r1358 -r1499 --- UI/PR/GA/dlgTBOpties.cls.xml (.../dlgTBOpties.cls.xml) (revision 1358) +++ UI/PR/GA/dlgTBOpties.cls.xml (.../dlgTBOpties.cls.xml) (revision 1499) @@ -144,8 +144,8 @@ ;object DesignForm: TDesignForm ; Left = 0 ; Top = -1 - ; Width = 313 - ; Height = 513 + ; Width = 381 + ; Height = 567 ; BorderIcons = [biSystemMenu] ; Caption = 'Tandem BOX - Opties' ; Color = clBtnFace @@ -160,53 +160,53 @@ ; PixelsPerInch = 96 ; TextHeight = 13 ; object zzLabel1: CLabel - ; Left = 11 - ; Top = 6 + ; Left = 19 + ; Top = 14 ; Width = 104 ; Height = 21 ; AutoSize = False ; Caption = 'Plaatmateriaal klant' ; Layout = tlCenter ; end ; object zzLabel2: CLabel - ; Left = 11 - ; Top = 38 + ; Left = 19 + ; Top = 46 ; Width = 104 ; Height = 21 ; AutoSize = False ; Caption = 'Stalen rug' ; Layout = tlCenter ; end ; object zzLabel3: CLabel - ; Left = 11 - ; Top = 134 + ; Left = 19 + ; Top = 142 ; Width = 104 ; Height = 21 ; AutoSize = False ; Caption = 'Verpakking' ; Layout = tlCenter ; end ; object zzLabel4: CLabel - ; Left = 11 - ; Top = 70 + ; Left = 19 + ; Top = 78 ; Width = 104 ; Height = 21 ; AutoSize = False ; Caption = 'Onderdelen Speciaal' ; Layout = tlCenter ; end ; object zzLabel5: CLabel - ; Left = 11 - ; Top = 102 + ; Left = 19 + ; Top = 110 ; Width = 104 ; Height = 21 ; AutoSize = False ; Caption = 'Rugstuk verlaagd' ; Layout = tlCenter ; end ; object grpBasis: CGroupBox - ; Left = 4 - ; Top = 166 + ; Left = 12 + ; Top = 203 ; Width = 209 ; Height = 308 ; Anchors = [akLeft, akBottom] @@ -309,8 +309,8 @@ ; end ; end ; object cboMatKlant: CComboBox - ; Left = 136 - ; Top = 6 + ; Left = 144 + ; Top = 14 ; Width = 145 ; Height = 21 ; Ctl3D = True @@ -327,8 +327,8 @@ ; ControlClass = 'UI.Lib.Ctrl.TComboBox' ; end ; object cboStalenRug: CComboBox - ; Left = 136 - ; Top = 38 + ; Left = 144 + ; Top = 46 ; Width = 145 ; Height = 21 ; Ctl3D = True @@ -345,8 +345,8 @@ ; ControlClass = 'UI.Lib.Ctrl.TComboBox' ; end ; object cboVerpakking: CComboBox - ; Left = 136 - ; Top = 134 + ; Left = 144 + ; Top = 142 ; Width = 145 ; Height = 21 ; Ctl3D = True @@ -363,8 +363,8 @@ ; ControlClass = 'UI.Lib.Ctrl.TComboBox' ; end ; object btnOK: CButton - ; Left = 224 - ; Top = 416 + ; Left = 232 + ; Top = 453 ; Width = 75 ; Height = 25 ; Anchors = [akLeft, akBottom] @@ -374,8 +374,8 @@ ; OnClick = btnOKClick ; end ; object btnCancel: CButton - ; Left = 224 - ; Top = 448 + ; Left = 232 + ; Top = 485 ; Width = 75 ; Height = 25 ; Anchors = [akLeft, akBottom] @@ -385,8 +385,8 @@ ; OnClick = btnCancelClick ; end ; object cboOndSpecial: CComboBox - ; Left = 136 - ; Top = 70 + ; Left = 144 + ; Top = 78 ; Width = 145 ; Height = 21 ; Ctl3D = True @@ -403,8 +403,8 @@ ; ControlClass = 'UI.Lib.Ctrl.TComboBox' ; end ; object cboRugStukVerlaagd: CComboBox - ; Left = 136 - ; Top = 102 + ; Left = 144 + ; Top = 110 ; Width = 145 ; Height = 21 ; Ctl3D = True @@ -516,14 +516,14 @@ s %this.cboOndSpecial=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0)) s %this.cboRugStukVerlaagd=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderIcons","Caption","Color","OldCreateOrder","Position","OnShow","PixelsPerInch"),$lb(0,-1,313,513,$lb("biSystemMenu"),"Tandem BOX - Opties",$$$clBtnFace,"False","poDesktopCenter",$lb(%this,"DesignFormShow"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderIcons","Caption","Color","OldCreateOrder","Position","OnShow","PixelsPerInch"),$lb(0,-1,381,567,$lb("biSystemMenu"),"Tandem BOX - Opties",$$$clBtnFace,"False","poDesktopCenter",$lb(%this,"DesignFormShow"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,6,104,21,"False","Plaatmateriaal klant","tlCenter")) - d %this.zzLabel2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,38,104,21,"False","Stalen rug","tlCenter")) - d %this.zzLabel3.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,134,104,21,"False","Verpakking","tlCenter")) - d %this.zzLabel4.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,70,104,21,"False","Onderdelen Speciaal","tlCenter")) - d %this.zzLabel5.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,102,104,21,"False","Rugstuk verlaagd","tlCenter")) - d %this.grpBasis.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont","TabOrder","TabStop"),$lb(4,166,209,308,$lb("akLeft","akBottom")," NIET meeleveren ","False",4,"True")) + d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,14,104,21,"False","Plaatmateriaal klant","tlCenter")) + d %this.zzLabel2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,46,104,21,"False","Stalen rug","tlCenter")) + d %this.zzLabel3.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,142,104,21,"False","Verpakking","tlCenter")) + d %this.zzLabel4.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,78,104,21,"False","Onderdelen Speciaal","tlCenter")) + d %this.zzLabel5.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,110,104,21,"False","Rugstuk verlaagd","tlCenter")) + d %this.grpBasis.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont","TabOrder","TabStop"),$lb(12,203,209,308,$lb("akLeft","akBottom")," NIET meeleveren ","False",4,"True")) d %this.grpBasis.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.chkNietMee1.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,19,169,17,"Corpusprofiel",0)) d %this.chkNietMee2.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,43,169,17,"Zijreling",1)) @@ -536,17 +536,17 @@ d %this.chkNietMee10.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,235,169,17,"Opvullijst",9)) d %this.chkNietMee9.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,211,169,17,"Dwarslatjes spoelbak",8)) d %this.chkNietMee11.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,259,169,17,"Antislipmat",10)) - d %this.cboMatKlant.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(136,6,145,21,"True",13,"False","False",0,"cboMatKlant")) + d %this.cboMatKlant.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,14,145,21,"True",13,"False","False",0,"cboMatKlant")) d %this.cboMatKlant.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.cboStalenRug.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(136,38,145,21,"True",13,"False","False",1,"cboStalenRug")) + d %this.cboStalenRug.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,46,145,21,"True",13,"False","False",1,"cboStalenRug")) d %this.cboStalenRug.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.cboVerpakking.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(136,134,145,21,"True",13,"False","False",3,"cboVerpakking")) + d %this.cboVerpakking.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,142,145,21,"True",13,"False","False",3,"cboVerpakking")) d %this.cboVerpakking.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.btnOK.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Default","TabOrder","OnClick"),$lb(224,416,75,25,$lb("akLeft","akBottom"),"OK","True",5,$lb(%this,"btnOKClick"))) - d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(224,448,75,25,$lb("akLeft","akBottom"),"True","Annuleren",6,$lb(%this,"btnCancelClick"))) - d %this.cboOndSpecial.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(136,70,145,21,"True",13,"False","False",2,"cboOndSpecial")) + d %this.btnOK.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Default","TabOrder","OnClick"),$lb(232,453,75,25,$lb("akLeft","akBottom"),"OK","True",5,$lb(%this,"btnOKClick"))) + d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(232,485,75,25,$lb("akLeft","akBottom"),"True","Annuleren",6,$lb(%this,"btnCancelClick"))) + d %this.cboOndSpecial.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,78,145,21,"True",13,"False","False",2,"cboOndSpecial")) d %this.cboOndSpecial.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.cboRugStukVerlaagd.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(136,102,145,21,"True",13,"False","False",7,"cboRugStukVerlaagd")) + d %this.cboRugStukVerlaagd.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,110,145,21,"True",13,"False","False",7,"cboRugStukVerlaagd")) d %this.cboRugStukVerlaagd.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) s MApplication.ClientState="Wait" q Index: UI/Utils/MAppLauncher/MainForm.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/Utils/MAppLauncher/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1210) +++ UI/Utils/MAppLauncher/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1499) @@ -163,8 +163,8 @@ ;object DesignForm: TDesignForm ; Left = 11 ; Top = 9 - ; Width = 352 - ; Height = 395 + ; Width = 360 + ; Height = 399 ; Caption = 'MApp Launcher' ; Color = clBtnFace ; Font.Charset = DEFAULT_CHARSET @@ -177,8 +177,8 @@ ; PixelsPerInch = 96 ; TextHeight = 13 ; object btnOk: CButton - ; Left = 261 - ; Top = 334 + ; Left = 268 + ; Top = 330 ; Width = 75 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -189,8 +189,8 @@ ; OnClick = btnOkClick ; end ; object btnAnnuleren: CButton - ; Left = 181 - ; Top = 334 + ; Left = 188 + ; Top = 330 ; Width = 75 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -202,7 +202,7 @@ ; end ; object btnStartAppl: CButton ; Left = 9 - ; Top = 310 + ; Top = 306 ; Width = 131 ; Height = 49 ; Anchors = [akLeft, akBottom] @@ -472,11 +472,11 @@ s %this.txtKlantNr=##class(%TMEdit).%New($lb(%this.tshTBX.Address,0)) s %this.cboGAProdGroep=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.tshTBX.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","OnShow","PixelsPerInch"),$lb(11,9,352,395,"MApp Launcher",$$$clBtnFace,"False",$lb(%this,"DesignFormShow"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","OnShow","PixelsPerInch"),$lb(11,9,360,399,"MApp Launcher",$$$clBtnFace,"False",$lb(%this,"DesignFormShow"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","ModalResult","TabOrder","OnClick"),$lb(261,334,75,25,$lb("akRight","akBottom"),"True","Sluiten",1,1,$lb(%this,"btnOkClick"))) - d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ModalResult","TabOrder","Visible","OnClick"),$lb(181,334,75,25,$lb("akRight","akBottom"),"&Annuleren",2,2,"False",$lb(%this,"btnAnnulerenClick"))) - d %this.btnStartAppl.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ModalResult","TabOrder","OnClick"),$lb(9,310,131,49,$lb("akLeft","akBottom"),"START APPL",1,0,$lb(%this,"btnStartApplClick"))) + d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","ModalResult","TabOrder","OnClick"),$lb(268,330,75,25,$lb("akRight","akBottom"),"True","Sluiten",1,1,$lb(%this,"btnOkClick"))) + d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ModalResult","TabOrder","Visible","OnClick"),$lb(188,330,75,25,$lb("akRight","akBottom"),"&Annuleren",2,2,"False",$lb(%this,"btnAnnulerenClick"))) + d %this.btnStartAppl.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ModalResult","TabOrder","OnClick"),$lb(9,306,131,49,$lb("akLeft","akBottom"),"START APPL",1,0,$lb(%this,"btnStartApplClick"))) d %this.pgcSettings.SetMultiProperty($lb("Left","Top","Width","Height"),$lb(9,7,329,289)) s %this.pgcSettings.ActivePage=%this.tshTBX d %this.pgcSettings.SetMultiProperty($lb("TabOrder"),$lb(3)) Index: UI/PR/GA/Antislipmat.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/Antislipmat.cls.xml (.../Antislipmat.cls.xml) (revision 1210) +++ UI/PR/GA/Antislipmat.cls.xml (.../Antislipmat.cls.xml) (revision 1499) @@ -1796,7 +1796,7 @@ ;Do ..ProdSetItemValByPL("CB",Sender.Text) - ;End of user code + ;End of user code s Args=$lb(Sender) q ]]> Index: UI/Lib/Dlg/TListView.cls.xml =================================================================== diff -u -r1074 -r1499 --- UI/Lib/Dlg/TListView.cls.xml (.../TListView.cls.xml) (revision 1074) +++ UI/Lib/Dlg/TListView.cls.xml (.../TListView.cls.xml) (revision 1499) @@ -4,6 +4,7 @@ serial Default %Library.TMFormClass +0 %Library.TMForm @@ -37,9 +38,11 @@ i initvalue="" q $$$OK s %SMWOrefs(+%this)=%this d %this.Initialization(initvalue) - d %this.Form.SetContainer(+%this) s result=%this.OnCreate(initvalue) - i result'=$$$OK d ..Destroy() + i result'=$$$OK d + . d %this.Form.%Close() + . k %SMWOrefs(+%this) + e d %this.Form.SetContainer(+%this) q result ]]> @@ -53,8 +56,8 @@ ;object DesignForm: TDesignForm ; Left = 96 ; Top = 100 - ; Width = 329 - ; Height = 302 + ; Width = 358 + ; Height = 307 ; Caption = 'DesignForm' ; Color = clBtnFace ; Font.Charset = DEFAULT_CHARSET @@ -67,17 +70,17 @@ ; PixelsPerInch = 96 ; TextHeight = 13 ; object lblMessage: CLabel - ; Left = 8 - ; Top = 5 + ; Left = 16 + ; Top = 10 ; Width = 67 ; Height = 13 ; Caption = 'Message here' ; end ; object lvItems: CListView - ; Left = 8 - ; Top = 25 - ; Width = 306 - ; Height = 206 + ; Left = 16 + ; Top = 30 + ; Width = 319 + ; Height = 204 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Columns = <> ; HotTrackStyles = [] @@ -86,8 +89,8 @@ ; ControlClass = 'UI.Lib.Ctrl.TSortableListView' ; end ; object btnAnnuleren: CButton - ; Left = 239 - ; Top = 241 + ; Left = 260 + ; Top = 237 ; Width = 75 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -96,8 +99,8 @@ ; OnClick = btnAnnulerenClick ; end ; object btnOk: CButton - ; Left = 159 - ; Top = 241 + ; Left = 180 + ; Top = 237 ; Width = 75 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -140,12 +143,12 @@ s %this.btnAnnuleren=##class(%TMButton).%New($lb(%this.Form.Address,0)) s %this.btnOk=##class(%TMButton).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","Position","PixelsPerInch"),$lb(96,100,329,302,"DesignForm",$$$clBtnFace,"False","poDesktopCenter",96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","Position","PixelsPerInch"),$lb(96,100,358,307,"DesignForm",$$$clBtnFace,"False","poDesktopCenter",96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.lblMessage.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(8,5,67,13,"Message here")) - d %this.lvItems.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","HotTrackStyles","TabOrder","ViewStyle"),$lb(8,25,306,206,$lb("akLeft","akTop","akRight","akBottom"),$lb(),0,"vsReport")) - d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(239,241,75,25,$lb("akRight","akBottom"),"&Annuleren",1,$lb(%this,"btnAnnulerenClick"))) - d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(159,241,75,25,$lb("akRight","akBottom"),"&Ok",2,$lb(%this,"btnOkClick"))) + d %this.lblMessage.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(16,10,67,13,"Message here")) + d %this.lvItems.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","HotTrackStyles","TabOrder","ViewStyle"),$lb(16,30,319,204,$lb("akLeft","akTop","akRight","akBottom"),$lb(),0,"vsReport")) + d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(260,237,75,25,$lb("akRight","akBottom"),"&Annuleren",1,$lb(%this,"btnAnnulerenClick"))) + d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(180,237,75,25,$lb("akRight","akBottom"),"&Ok",2,$lb(%this,"btnOkClick"))) s MApplication.ClientState="Wait" q ]]> Index: UI/Lib/Dlg/ListDataPump.cls.xml =================================================================== diff -u -r1074 -r1499 --- UI/Lib/Dlg/ListDataPump.cls.xml (.../ListDataPump.cls.xml) (revision 1074) +++ UI/Lib/Dlg/ListDataPump.cls.xml (.../ListDataPump.cls.xml) (revision 1499) @@ -5,6 +5,7 @@ KeyCodesCNTs Default %Library.TMFormClass +0 %TMBevel @@ -113,7 +114,6 @@ . Do MApplication.MessageBox("Het aantal elementen in de bestemmingslijst is beperkt tot " _ ..MaxEntriesInDest _ ".","VAN HOECKE",$$$MBICONINFORMATION) Quit tmpResult - ]]> @@ -132,7 +132,6 @@ . Do ..lbSource.Items.Add(Waarde) Quit - ]]> @@ -145,13 +144,13 @@ ;object DesignForm: TDesignForm ; Left = 125 ; Top = 195 - ; Width = 418 - ; Height = 203 + ; Width = 426 + ; Height = 223 ; BorderStyle = bsSizeToolWin ; Caption = 'ListData Pump' ; Color = clBtnFace - ; Constraints.MaxWidth = 418 - ; Constraints.MinWidth = 418 + ; Constraints.MaxWidth = 426 + ; Constraints.MinWidth = 426 ; DockSite = True ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText @@ -167,7 +166,7 @@ ; TextHeight = 13 ; object Bevel1: CBevel ; Left = 216 - ; Top = 130 + ; Top = 142 ; Width = 159 ; Height = 33 ; Anchors = [akLeft, akBottom] @@ -264,7 +263,7 @@ ; end ; object btnAnnuleren: CSpeedButton ; Left = 224 - ; Top = 136 + ; Top = 148 ; Width = 64 ; Height = 22 ; Anchors = [akLeft, akBottom] @@ -275,7 +274,7 @@ ; end ; object btnOk: CSpeedButton ; Left = 302 - ; Top = 136 + ; Top = 148 ; Width = 64 ; Height = 22 ; Anchors = [akLeft, akBottom] @@ -286,7 +285,7 @@ ; end ; object btnExtraToDest: CSpeedButton ; Left = 145 - ; Top = 130 + ; Top = 142 ; Width = 23 ; Height = 22 ; Hint = 'Verplaats het nieuwe element van bron naar bestemming.' @@ -304,7 +303,7 @@ ; Left = 9 ; Top = 12 ; Width = 160 - ; Height = 108 + ; Height = 120 ; Anchors = [akLeft, akTop, akBottom] ; ItemHeight = 13 ; MultiSelect = True @@ -315,7 +314,7 @@ ; Left = 216 ; Top = 12 ; Width = 160 - ; Height = 108 + ; Height = 120 ; Anchors = [akLeft, akTop, akBottom] ; ItemHeight = 13 ; MultiSelect = True @@ -324,7 +323,7 @@ ; end ; object txtExtraListEntry: CEdit ; Left = 9 - ; Top = 130 + ; Top = 142 ; Width = 137 ; Height = 21 ; Anchors = [akLeft, akBottom] @@ -354,7 +353,6 @@ ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]> @@ -400,7 +398,6 @@ . If $zconvert(..lbDest.Items.GetStrings(Loop),"U")=Data Set tmpIndex=Loop Quit tmpIndex - ]]> @@ -422,7 +419,6 @@ .. Set tmpIndex=Loop Quit tmpIndex - ]]> @@ -440,7 +436,6 @@ . Do tmpList.Insert(..lbDest.Items.GetStrings(Loop)) Quit tmpList - ]]> @@ -461,7 +456,6 @@ Set:(tmpStr'="") tmpStr=$E(tmpStr,2,99999) Quit tmpStr - ]]> @@ -489,10 +483,10 @@ s %this.lbDest=##class(%TMListBox).%New($lb(%this.Form.Address,0)) s %this.txtExtraListEntry=##class(%TMEdit).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderStyle","Caption","Color","DockSite","KeyPreview","OldCreateOrder","Position","ShowHint","OnKeyDown","PixelsPerInch"),$lb(125,195,418,203,"bsSizeToolWin","ListData Pump",$$$clBtnFace,"True","True","False","poScreenCenter","True",$lb(%this,"DesignFormKeyDown"),96)) - d %this.Form.Constraints.SetMultiProperty($lb("MaxWidth","MinWidth"),$lb(418,418)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderStyle","Caption","Color","DockSite","KeyPreview","OldCreateOrder","Position","ShowHint","OnKeyDown","PixelsPerInch"),$lb(125,195,426,223,"bsSizeToolWin","ListData Pump",$$$clBtnFace,"True","True","False","poScreenCenter","True",$lb(%this,"DesignFormKeyDown"),96)) + d %this.Form.Constraints.SetMultiProperty($lb("MaxWidth","MinWidth"),$lb(426,426)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.Bevel1.SetMultiProperty($lb("Left","Top","Width","Height","Anchors"),$lb(216,130,159,33,$lb("akLeft","akBottom"))) + d %this.Bevel1.SetMultiProperty($lb("Left","Top","Width","Height","Anchors"),$lb(216,142,159,33,$lb("akLeft","akBottom"))) d %this.btnOneToDest.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Caption","ParentFont","OnClick"),$lb(181,17,23,22,"Verplaats geselecteerde elementen van bron naar bestemming.","4","False",$lb(%this,"btnOneToDestClick"))) d %this.btnOneToDest.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clGreen,-16,"Webdings",$lb())) d %this.btnOneToSource.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Caption","ParentFont","OnClick"),$lb(181,41,23,22,"Verplaats geselecteerde elementen van bestemming naar bron.","3","False",$lb(%this,"btnOneToSourceClick"))) @@ -505,13 +499,13 @@ d %this.btnDestUp.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clBlack,-16,"Webdings",$lb())) d %this.btnDestDown.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Caption","ParentFont","OnClick"),$lb(381,39,23,22,"Plaats het geselecteerde element naar onder.","6","False",$lb(%this,"btnDestDownClick"))) d %this.btnDestDown.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clBlack,-16,"Webdings",$lb())) - d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(224,136,64,22,$lb("akLeft","akBottom"),$$$clWhite,"&Annuleren",2,"True")) - d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(302,136,64,22,$lb("akLeft","akBottom"),$$$clWhite,"&Ok",1,"True")) - d %this.btnExtraToDest.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(145,130,23,22,"Verplaats het nieuwe element van bron naar bestemming.",$lb("akLeft","akBottom"),"ì","False",$lb(%this,"btnExtraToDestClick"))) + d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(224,148,64,22,$lb("akLeft","akBottom"),$$$clWhite,"&Annuleren",2,"True")) + d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(302,148,64,22,$lb("akLeft","akBottom"),$$$clWhite,"&Ok",1,"True")) + d %this.btnExtraToDest.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(145,142,23,22,"Verplaats het nieuwe element van bron naar bestemming.",$lb("akLeft","akBottom"),"ì","False",$lb(%this,"btnExtraToDestClick"))) d %this.btnExtraToDest.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clGreen,-16,"Wingdings",$lb())) - d %this.lbSource.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","ItemHeight","MultiSelect","TabOrder","OnDblClick"),$lb(9,12,160,108,$lb("akLeft","akTop","akBottom"),13,"True",0,$lb(%this,"btnOneToDestClick"))) - d %this.lbDest.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","ItemHeight","MultiSelect","TabOrder","OnDblClick"),$lb(216,12,160,108,$lb("akLeft","akTop","akBottom"),13,"True",1,$lb(%this,"btnOneToSourceClick"))) - d %this.txtExtraListEntry.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder","OnKeyDown"),$lb(9,130,137,21,$lb("akLeft","akBottom"),2,$lb(%this,"txtExtraListEntryKeyDown"))) + d %this.lbSource.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","ItemHeight","MultiSelect","TabOrder","OnDblClick"),$lb(9,12,160,120,$lb("akLeft","akTop","akBottom"),13,"True",0,$lb(%this,"btnOneToDestClick"))) + d %this.lbDest.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","ItemHeight","MultiSelect","TabOrder","OnDblClick"),$lb(216,12,160,120,$lb("akLeft","akTop","akBottom"),13,"True",1,$lb(%this,"btnOneToSourceClick"))) + d %this.txtExtraListEntry.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder","OnKeyDown"),$lb(9,142,137,21,$lb("akLeft","akBottom"),2,$lb(%this,"txtExtraListEntryKeyDown"))) s MApplication.ClientState="Wait" q ]]> @@ -542,7 +536,6 @@ .. Do ..lbSource.Items.Add(Waarde) Quit - ]]> @@ -565,7 +558,6 @@ . Do ..lbDest.Items.Add(Waarde) Quit - ]]> @@ -576,9 +568,7 @@ %Library.Status document literal - @@ -602,7 +592,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -626,7 +615,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -651,7 +639,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -675,7 +662,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -705,7 +691,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -735,7 +720,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -762,7 +746,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -783,7 +766,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -804,7 +786,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -827,7 +808,6 @@ ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]> Index: UI/PR/GA/Greep.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/Greep.cls.xml (.../Greep.cls.xml) (revision 1210) +++ UI/PR/GA/Greep.cls.xml (.../Greep.cls.xml) (revision 1499) @@ -499,8 +499,8 @@ ;object DesignForm: TDesignForm ; Left = 0 ; Top = 0 - ; Width = 410 - ; Height = 188 + ; Width = 420 + ; Height = 202 ; Caption = 'Greep - Ingave' ; Color = clBtnFace ; Font.Charset = DEFAULT_CHARSET @@ -787,7 +787,7 @@ s %this.btnAanmaken=##class(%TMButton).%New($lb(%this.pnlButtons.Address,0)) s %this.btnXMLView=##class(%TMButton).%New($lb(%this.pnlButtons.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","OnClose","PixelsPerInch"),$lb(0,0,410,188,"Greep - Ingave",$$$clBtnFace,"True","False","poDesktopCenter",$lb(%this,"DesignFormClose"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","OnClose","PixelsPerInch"),$lb(0,0,420,202,"Greep - Ingave",$$$clBtnFace,"True","False","poDesktopCenter",$lb(%this,"DesignFormClose"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,12,88,21,"False","Design","tlCenter")) d %this.zzLabel10.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,46,88,21,"False","Lengte (mm)","tlCenter")) Index: UI/Lib/Dlg/TInputBox.cls.xml =================================================================== diff -u -r1074 -r1499 --- UI/Lib/Dlg/TInputBox.cls.xml (.../TInputBox.cls.xml) (revision 1074) +++ UI/Lib/Dlg/TInputBox.cls.xml (.../TInputBox.cls.xml) (revision 1499) @@ -4,6 +4,7 @@ serial KeyCodesCNTs %Library.TMFormClass +0 %Library.TMForm @@ -55,8 +56,8 @@ ; Top = 215 ; BorderStyle = bsDialog ; Caption = 'DesignForm' - ; ClientHeight = 89 - ; ClientWidth = 352 + ; ClientHeight = 101 + ; ClientWidth = 359 ; Color = 11062952 ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText @@ -70,15 +71,15 @@ ; PixelsPerInch = 96 ; TextHeight = 13 ; object lblMessage: CLabel - ; Left = 7 + ; Left = 11 ; Top = 8 ; Width = 53 ; Height = 13 ; Caption = 'lblMessage' ; end ; object btnOk: CSpeedButton - ; Left = 173 - ; Top = 60 + ; Left = 176 + ; Top = 64 ; Width = 79 ; Height = 22 ; Anchors = [akRight, akBottom] @@ -94,8 +95,8 @@ ; OnClick = btnOkClick ; end ; object btnAnnuleren: CSpeedButton - ; Left = 261 - ; Top = 60 + ; Left = 264 + ; Top = 64 ; Width = 79 ; Height = 22 ; Anchors = [akRight, akBottom] @@ -110,7 +111,7 @@ ; OnClick = btnAnnulerenClick ; end ; object cbbValue: CComboBox - ; Left = 7 + ; Left = 11 ; Top = 31 ; Width = 332 ; Height = 21 @@ -120,7 +121,7 @@ ; Visible = False ; end ; object txtValue: CEdit - ; Left = 7 + ; Left = 11 ; Top = 31 ; Width = 332 ; Height = 21 @@ -148,7 +149,6 @@ ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]> @@ -179,15 +179,15 @@ s %this.cbbValue=##class(%TMComboBox).%New($lb(%this.Form.Address,0)) s %this.txtValue=##class(%TMEdit).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","BorderStyle","Caption","ClientHeight","ClientWidth","Color","KeyPreview","OldCreateOrder","Position","OnKeyDown","PixelsPerInch"),$lb(103,215,"bsDialog","DesignForm",89,352,11062952,"True","False","poDesktopCenter",$lb(%this,"DesignFormKeyDown"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","BorderStyle","Caption","ClientHeight","ClientWidth","Color","KeyPreview","OldCreateOrder","Position","OnKeyDown","PixelsPerInch"),$lb(103,215,"bsDialog","DesignForm",101,359,11062952,"True","False","poDesktopCenter",$lb(%this,"DesignFormKeyDown"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.lblMessage.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(7,8,53,13,"lblMessage")) - d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Default","Caption","ParentFont","OnClick"),$lb(173,60,79,22,$lb("akRight","akBottom"),13828050,"True","&Ok","False",$lb(%this,"btnOkClick"))) + d %this.lblMessage.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(11,8,53,13,"lblMessage")) + d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Default","Caption","ParentFont","OnClick"),$lb(176,64,79,22,$lb("akRight","akBottom"),13828050,"True","&Ok","False",$lb(%this,"btnOkClick"))) d %this.btnOk.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clGreen,-11,"MS Sans Serif",$lb("fsBold"))) - d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ParentFont","OnClick"),$lb(261,60,79,22,$lb("akRight","akBottom"),13828050,"&Annuleren","False",$lb(%this,"btnAnnulerenClick"))) + d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ParentFont","OnClick"),$lb(264,64,79,22,$lb("akRight","akBottom"),13828050,"&Annuleren","False",$lb(%this,"btnAnnulerenClick"))) d %this.btnAnnuleren.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb("fsBold"))) - d %this.cbbValue.SetMultiProperty($lb("Left","Top","Width","Height","Color","ItemHeight","TabOrder","Visible"),$lb(7,31,332,21,14281433,13,1,"False")) - d %this.txtValue.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","TabOrder"),$lb(7,31,332,21,$lb("akLeft","akTop","akRight"),14281433,0)) + d %this.cbbValue.SetMultiProperty($lb("Left","Top","Width","Height","Color","ItemHeight","TabOrder","Visible"),$lb(11,31,332,21,14281433,13,1,"False")) + d %this.txtValue.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","TabOrder"),$lb(11,31,332,21,$lb("akLeft","akTop","akRight"),14281433,0)) s MApplication.ClientState="Wait" q ]]> @@ -197,9 +197,7 @@ initvalue:%String 0 %Status - @@ -231,7 +229,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -249,7 +246,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> Index: UI/PR/Kenm/MainForm.cls.xml =================================================================== diff -u -r1217 -r1499 --- UI/PR/Kenm/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1217) +++ UI/PR/Kenm/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1499) @@ -1504,8 +1504,8 @@ ;object DesignForm: TDesignForm ; Left = 3 ; Top = -1 - ; Width = 1036 - ; Height = 771 + ; Width = 1050 + ; Height = 828 ; Caption = 'Product Cataloog' ; Color = clBtnFace ; Font.Charset = DEFAULT_CHARSET @@ -1522,7 +1522,7 @@ ; PixelsPerInch = 96 ; TextHeight = 13 ; object btnOpslaan: CSpeedButton - ; Left = 909 + ; Left = 914 ; Top = 7 ; Width = 111 ; Height = 22 @@ -1533,7 +1533,7 @@ ; OnClick = btnOpslaanClick ; end ; object btnAnnuleren: CSpeedButton - ; Left = 909 + ; Left = 914 ; Top = 73 ; Width = 111 ; Height = 22 @@ -1543,7 +1543,7 @@ ; OnClick = btnAnnulerenClick ; end ; object btnVertaling: CSpeedButton - ; Left = 909 + ; Left = 914 ; Top = 29 ; Width = 111 ; Height = 22 @@ -1553,7 +1553,7 @@ ; OnClick = btnVertalingClick ; end ; object btnVoorbeeld: CSpeedButton - ; Left = 909 + ; Left = 914 ; Top = 51 ; Width = 111 ; Height = 22 @@ -1566,7 +1566,7 @@ ; object Panel1: CPanel ; Left = 6 ; Top = 7 - ; Width = 250 + ; Width = 282 ; Height = 75 ; BevelInner = bvLowered ; TabOrder = 0 @@ -1585,17 +1585,18 @@ ; Caption = 'Hoofdgroep:' ; end ; object btnSearchProduct: CSpeedButton - ; Left = 217 + ; Left = 249 ; Top = 12 ; Width = 21 ; Height = 21 ; Hint = 'Zoek naar product...' + ; Anchors = [akLeft, akTop, akRight] ; OnClick = btnSearchProductClick ; end ; object txtUserInputProduct: CEdit ; Left = 79 ; Top = 12 - ; Width = 139 + ; Width = 171 ; Height = 21 ; Anchors = [akLeft, akTop, akRight] ; TabOrder = 0 @@ -1604,7 +1605,7 @@ ; object cbbHoofdGroep: CComboBox ; Left = 79 ; Top = 42 - ; Width = 161 + ; Width = 193 ; Height = 21 ; Hint = 'Kies een hoofdgroep.' ; Style = csOwnerDrawFixed @@ -1620,15 +1621,15 @@ ; object Panel2: CPanel ; Left = 6 ; Top = 82 - ; Width = 250 - ; Height = 636 + ; Width = 282 + ; Height = 685 ; Anchors = [akLeft, akTop, akBottom] ; BevelInner = bvLowered ; TabOrder = 1 ; object Bevel1: CBevel ; Left = 2 - ; Top = 593 - ; Width = 246 + ; Top = 642 + ; Width = 278 ; Height = 2 ; Align = alTop ; Anchors = [akLeft, akRight, akBottom] @@ -1637,8 +1638,8 @@ ; object tvProducten: CTreeView ; Left = 2 ; Top = 2 - ; Width = 246 - ; Height = 591 + ; Width = 278 + ; Height = 640 ; Align = alTop ; Anchors = [akLeft, akTop, akRight, akBottom] ; BorderStyle = bsNone @@ -1662,7 +1663,7 @@ ; end ; object chkViaProdIngaveEnKlassif: CCheckBox ; Left = 7 - ; Top = 614 + ; Top = 663 ; Width = 241 ; Height = 17 ; Hint = 'Geeft een andere weergave.' @@ -1673,9 +1674,9 @@ ; end ; end ; object Panel3: CPanel - ; Left = 273 + ; Left = 305 ; Top = 7 - ; Width = 628 + ; Width = 601 ; Height = 89 ; Anchors = [akLeft, akTop, akRight] ; BevelInner = bvRaised @@ -1689,7 +1690,7 @@ ; Caption = 'Product:' ; end ; object Label13: CLabel - ; Left = 377 + ; Left = 350 ; Top = 15 ; Width = 75 ; Height = 13 @@ -1705,7 +1706,7 @@ ; object txtProduct: CEdit ; Left = 63 ; Top = 12 - ; Width = 308 + ; Width = 281 ; Height = 21 ; TabStop = False ; Anchors = [akLeft, akTop, akRight] @@ -1716,7 +1717,7 @@ ; TabOrder = 0 ; end ; object cbbMetaGroep: CComboBox - ; Left = 458 + ; Left = 431 ; Top = 12 ; Width = 161 ; Height = 21 @@ -1733,14 +1734,14 @@ ; object Panel5: CPanel ; Left = 63 ; Top = 38 - ; Width = 555 + ; Width = 528 ; Height = 41 ; Anchors = [akLeft, akTop, akRight] ; BevelOuter = bvNone ; Caption = 'Panel5' ; TabOrder = 2 ; object Splitter1: CSplitter - ; Left = 206 + ; Left = 179 ; Top = 0 ; Width = 3 ; Height = 41 @@ -1751,7 +1752,7 @@ ; object mmoLangTekst: CMemo ; Left = 0 ; Top = 0 - ; Width = 206 + ; Width = 179 ; Height = 41 ; TabStop = False ; Align = alClient @@ -1771,7 +1772,7 @@ ; TabOrder = 0 ; end ; object mmoLangTekstFR: CMemo - ; Left = 209 + ; Left = 182 ; Top = 0 ; Width = 346 ; Height = 41 @@ -1801,26 +1802,26 @@ ; end ; end ; object Panel4: CPanel - ; Left = 272 + ; Left = 304 ; Top = 138 - ; Width = 748 - ; Height = 580 + ; Width = 721 + ; Height = 629 ; Anchors = [akLeft, akTop, akRight, akBottom] ; BevelInner = bvRaised ; BevelOuter = bvLowered ; TabOrder = 3 ; object Bevel2: CBevel ; Left = 2 - ; Top = 519 - ; Width = 744 + ; Top = 568 + ; Width = 717 ; Height = 2 ; Anchors = [akLeft, akRight, akBottom] ; Shape = bsTopLine ; Style = bsRaised ; end ; object Label11: CLabel ; Left = 7 - ; Top = 529 + ; Top = 578 ; Width = 108 ; Height = 13 ; Alignment = taRightJustify @@ -1830,7 +1831,7 @@ ; end ; object Label12: CLabel ; Left = 7 - ; Top = 545 + ; Top = 594 ; Width = 108 ; Height = 13 ; Alignment = taRightJustify @@ -1841,8 +1842,8 @@ ; object sbKenmerken: CScrollBox ; Left = 2 ; Top = 2 - ; Width = 744 - ; Height = 445 + ; Width = 717 + ; Height = 550 ; HorzScrollBar.Tracking = True ; VertScrollBar.Tracking = True ; Align = alTop @@ -1872,8 +1873,8 @@ ; end ; object mmoOmschrijving: CMemo ; Left = 120 - ; Top = 527 - ; Width = 621 + ; Top = 576 + ; Width = 594 ; Height = 45 ; TabStop = False ; Anchors = [akLeft, akRight, akBottom] @@ -1884,8 +1885,8 @@ ; end ; object StatusBar: CStatusBar ; Left = 0 - ; Top = 718 - ; Width = 1028 + ; Top = 775 + ; Width = 1042 ; Height = 19 ; Panels = <> ; SimplePanel = False @@ -1923,9 +1924,9 @@ ; WordWrap = False ; end ; object pnlProdMulti: CPanel - ; Left = 271 + ; Left = 303 ; Top = 103 - ; Width = 748 + ; Width = 721 ; Height = 35 ; Anchors = [akLeft, akTop, akRight] ; BevelInner = bvLowered @@ -2066,7 +2067,7 @@ ; OnClick = lblProdMultiUnID1Click ; end ; object btnGenereerAutoVarianten: CSpeedButton - ; Left = 593 + ; Left = 566 ; Top = 6 ; Width = 149 ; Height = 21 @@ -2088,7 +2089,7 @@ ; end ; object pmUtils: CPopupMenu ; Images = ilUtils - ; Left = 280 + ; Left = 320 ; Top = 525 ; object miCopyValues: TMenuItem ; Caption = 'Kopiëren' @@ -2124,7 +2125,7 @@ ; end ; end ; object ilUtils: CImageList - ; Left = 308 + ; Left = 348 ; Top = 525 ; Bitmap = 'EditCopy.bmp,EditPaste.bmp,EditCut.bmp' ; end @@ -2700,61 +2701,61 @@ d %this.pmUtils.Items.Add(%this.pmiDeleteAllKenm) s %this.ilUtils=##class(%TMImageList).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","ShowHint","WindowState","OnClose","OnKeyDown","PixelsPerInch"),$lb(3,-1,1036,771,"Product Cataloog",$$$clBtnFace,"True","False","True","wsMaximized",$lb(%this,"DesignFormClose"),$lb(%this,"DesignFormKeyDown"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","ShowHint","WindowState","OnClose","OnKeyDown","PixelsPerInch"),$lb(3,-1,1050,828,"Product Cataloog",$$$clBtnFace,"True","False","True","wsMaximized",$lb(%this,"DesignFormClose"),$lb(%this,"DesignFormKeyDown"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.btnOpslaan.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","Enabled","OnClick"),$lb(909,7,111,22,"Wijzigingen opslaan.",$lb("akTop","akRight"),"&Opslaan","False",$lb(%this,"btnOpslaanClick"))) - d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","OnClick"),$lb(909,73,111,22,"Programma afsluiten.",$lb("akTop","akRight"),"&Afsluiten",$lb(%this,"btnAnnulerenClick"))) - d %this.btnVertaling.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","OnClick"),$lb(909,29,111,22,"Vertaling bekijken.",$lb("akTop","akRight"),"Ver&taling...",$lb(%this,"btnVertalingClick"))) - d %this.btnVoorbeeld.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","DropdownAlways"),$lb(909,51,111,22,"Voorbeeld bekijken.",$lb("akTop","akRight"),"True")) + d %this.btnOpslaan.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","Enabled","OnClick"),$lb(914,7,111,22,"Wijzigingen opslaan.",$lb("akTop","akRight"),"&Opslaan","False",$lb(%this,"btnOpslaanClick"))) + d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","OnClick"),$lb(914,73,111,22,"Programma afsluiten.",$lb("akTop","akRight"),"&Afsluiten",$lb(%this,"btnAnnulerenClick"))) + d %this.btnVertaling.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","OnClick"),$lb(914,29,111,22,"Vertaling bekijken.",$lb("akTop","akRight"),"Ver&taling...",$lb(%this,"btnVertalingClick"))) + d %this.btnVoorbeeld.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","DropdownAlways"),$lb(914,51,111,22,"Voorbeeld bekijken.",$lb("akTop","akRight"),"True")) s %this.btnVoorbeeld.DropdownMenu=%this.pmVoorbeeldTalen d %this.btnVoorbeeld.SetMultiProperty($lb("Caption"),$lb("&Voorbeeld")) - d %this.Panel1.SetMultiProperty($lb("Left","Top","Width","Height","BevelInner","TabOrder"),$lb(6,7,250,75,"bvLowered",0)) + d %this.Panel1.SetMultiProperty($lb("Left","Top","Width","Height","BevelInner","TabOrder"),$lb(6,7,282,75,"bvLowered",0)) d %this.Label1.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(9,17,40,13,"Product:")) d %this.Label2.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(9,47,59,13,"Hoofdgroep:")) - d %this.btnSearchProduct.SetMultiProperty($lb("Left","Top","Width","Height","Hint","OnClick"),$lb(217,12,21,21,"Zoek naar product...",$lb(%this,"btnSearchProductClick"))) - d %this.txtUserInputProduct.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder","OnKeyDown"),$lb(79,12,139,21,$lb("akLeft","akTop","akRight"),0,$lb(%this,"txtUserInputProductKeyDown"))) - d %this.cbbHoofdGroep.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Style","Anchors","Color","DropDownCount","ItemHeight","TabOrder","OnChange","OnDrawItem"),$lb(79,42,161,21,"Kies een hoofdgroep.","csOwnerDrawFixed",$lb("akLeft","akTop","akRight"),13487565,16,15,1,$lb(%this,"cbbHoofdGroepChange"),$lb(%this,"cbbHoofdGroepDrawItem"))) - d %this.Panel2.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","TabOrder"),$lb(6,82,250,636,$lb("akLeft","akTop","akBottom"),"bvLowered",1)) - d %this.Bevel1.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","Shape"),$lb(2,593,246,2,"alTop",$lb("akLeft","akRight","akBottom"),"bsTopLine")) - d %this.tvProducten.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","BorderStyle","Color","HideSelection"),$lb(2,2,246,591,"alTop",$lb("akLeft","akTop","akRight","akBottom"),"bsNone",15461355,"False")) + d %this.btnSearchProduct.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","OnClick"),$lb(249,12,21,21,"Zoek naar product...",$lb("akLeft","akTop","akRight"),$lb(%this,"btnSearchProductClick"))) + d %this.txtUserInputProduct.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder","OnKeyDown"),$lb(79,12,171,21,$lb("akLeft","akTop","akRight"),0,$lb(%this,"txtUserInputProductKeyDown"))) + d %this.cbbHoofdGroep.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Style","Anchors","Color","DropDownCount","ItemHeight","TabOrder","OnChange","OnDrawItem"),$lb(79,42,193,21,"Kies een hoofdgroep.","csOwnerDrawFixed",$lb("akLeft","akTop","akRight"),13487565,16,15,1,$lb(%this,"cbbHoofdGroepChange"),$lb(%this,"cbbHoofdGroepDrawItem"))) + d %this.Panel2.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","TabOrder"),$lb(6,82,282,685,$lb("akLeft","akTop","akBottom"),"bvLowered",1)) + d %this.Bevel1.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","Shape"),$lb(2,642,278,2,"alTop",$lb("akLeft","akRight","akBottom"),"bsTopLine")) + d %this.tvProducten.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","BorderStyle","Color","HideSelection"),$lb(2,2,278,640,"alTop",$lb("akLeft","akTop","akRight","akBottom"),"bsNone",15461355,"False")) d %this.tvProducten.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Pitch","Style"),$lb($$$ANSICHARSET,$$$clWindowText,-11,"Courier New","fpFixed",$lb())) s %this.tvProducten.Images=%this.ilTreeView d %this.tvProducten.SetMultiProperty($lb("Indent","ParentFont","ReadOnly","TabOrder","OnChange","OnCollapsed","OnExpanding","OnExpanded"),$lb(19,"False","True",0,$lb(%this,"tvProductenChange"),$lb(%this,"tvProductenCollapsed"),$lb(%this,"tvProductenExpanding"),$lb(%this,"tvProductenExpanded"))) - d %this.chkViaProdIngaveEnKlassif.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","Enabled","TabOrder"),$lb(7,614,241,17,"Geeft een andere weergave.",$lb("akLeft","akBottom"),"Via product ingave en klassificatie","False",1)) - d %this.Panel3.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","BevelOuter","TabOrder"),$lb(273,7,628,89,$lb("akLeft","akTop","akRight"),"bvRaised","bvLowered",2)) + d %this.chkViaProdIngaveEnKlassif.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","Enabled","TabOrder"),$lb(7,663,241,17,"Geeft een andere weergave.",$lb("akLeft","akBottom"),"Via product ingave en klassificatie","False",1)) + d %this.Panel3.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","BevelOuter","TabOrder"),$lb(305,7,601,89,$lb("akLeft","akTop","akRight"),"bvRaised","bvLowered",2)) d %this.Label3.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(9,17,40,13,"Product:")) - d %this.Label13.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont"),$lb(377,15,75,13,$lb("akTop","akRight"),"Kenmerk groep:","False")) + d %this.Label13.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont"),$lb(350,15,75,13,$lb("akTop","akRight"),"Kenmerk groep:","False")) d %this.Label13.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb("fsUnderline"))) - d %this.txtProduct.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Color","Ctl3D","ParentCtl3D","ReadOnly","TabOrder"),$lb(63,12,308,21,"False",$lb("akLeft","akTop","akRight"),13487565,"True","False","True",0)) - d %this.cbbMetaGroep.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Style","Anchors","Color","DropDownCount","ItemHeight","TabOrder","OnChange","OnDrawItem"),$lb(458,12,161,21,"Kies een kenmerkgroep.","csOwnerDrawFixed",$lb("akTop","akRight"),13487565,16,15,1,$lb(%this,"cbbMetaGroepChange"),$lb(%this,"cbbMetaGroepDrawItem"))) - d %this.Panel5.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","Caption","TabOrder"),$lb(63,38,555,41,$lb("akLeft","akTop","akRight"),"bvNone","Panel5",2)) - d %this.Splitter1.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Align","ResizeStyle"),$lb(206,0,3,41,$$$crHSplit,"alRight","rsUpdate")) - d %this.mmoLangTekst.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Align","Color"),$lb(0,0,206,41,"False","alClient",15461355)) + d %this.txtProduct.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Color","Ctl3D","ParentCtl3D","ReadOnly","TabOrder"),$lb(63,12,281,21,"False",$lb("akLeft","akTop","akRight"),13487565,"True","False","True",0)) + d %this.cbbMetaGroep.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Style","Anchors","Color","DropDownCount","ItemHeight","TabOrder","OnChange","OnDrawItem"),$lb(431,12,161,21,"Kies een kenmerkgroep.","csOwnerDrawFixed",$lb("akTop","akRight"),13487565,16,15,1,$lb(%this,"cbbMetaGroepChange"),$lb(%this,"cbbMetaGroepDrawItem"))) + d %this.Panel5.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","Caption","TabOrder"),$lb(63,38,528,41,$lb("akLeft","akTop","akRight"),"bvNone","Panel5",2)) + d %this.Splitter1.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Align","ResizeStyle"),$lb(179,0,3,41,$$$crHSplit,"alRight","rsUpdate")) + d %this.mmoLangTekst.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Align","Color"),$lb(0,0,179,41,"False","alClient",15461355)) d %this.mmoLangTekst.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.mmoLangTekst.Lines.SetMultiProperty($lb("Strings"),$lb("mmo"_$C(13,10)_"Lan"_$C(13,10)_"gTe"_$C(13,10)_"kst")) d %this.mmoLangTekst.SetMultiProperty($lb("ParentFont","ReadOnly","TabOrder"),$lb("False","True",0)) - d %this.mmoLangTekstFR.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Align","Color"),$lb(209,0,346,41,"False","alRight",15461355)) + d %this.mmoLangTekstFR.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Align","Color"),$lb(182,0,346,41,"False","alRight",15461355)) d %this.mmoLangTekstFR.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.mmoLangTekstFR.Lines.SetMultiProperty($lb("Strings"),$lb("m"_$C(13,10)_"m"_$C(13,10)_"oL"_$C(13,10)_"an"_$C(13,10)_"g"_$C(13,10)_"T"_$C(13,10)_"ek"_$C(13,10)_"st"_$C(13,10)_"F"_$C(13,10)_"R")) d %this.mmoLangTekstFR.SetMultiProperty($lb("ParentFont","ReadOnly","TabOrder"),$lb("False","True",1)) - d %this.Panel4.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","BevelOuter","TabOrder"),$lb(272,138,748,580,$lb("akLeft","akTop","akRight","akBottom"),"bvRaised","bvLowered",3)) - d %this.Bevel2.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Shape","Style"),$lb(2,519,744,2,$lb("akLeft","akRight","akBottom"),"bsTopLine","bsRaised")) - d %this.Label11.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","Anchors","AutoSize","Caption"),$lb(7,529,108,13,"taRightJustify",$lb("akLeft","akBottom"),"False","Omschrijving")) - d %this.Label12.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","Anchors","AutoSize","Caption"),$lb(7,545,108,13,"taRightJustify",$lb("akLeft","akBottom"),"False","Nederlands")) - d %this.sbKenmerken.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","BorderStyle","Enabled"),$lb(2,2,744,445,"alTop",$lb("akLeft","akTop","akRight","akBottom"),"bsNone","False")) + d %this.Panel4.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","BevelOuter","TabOrder"),$lb(304,138,721,629,$lb("akLeft","akTop","akRight","akBottom"),"bvRaised","bvLowered",3)) + d %this.Bevel2.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Shape","Style"),$lb(2,568,717,2,$lb("akLeft","akRight","akBottom"),"bsTopLine","bsRaised")) + d %this.Label11.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","Anchors","AutoSize","Caption"),$lb(7,578,108,13,"taRightJustify",$lb("akLeft","akBottom"),"False","Omschrijving")) + d %this.Label12.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","Anchors","AutoSize","Caption"),$lb(7,594,108,13,"taRightJustify",$lb("akLeft","akBottom"),"False","Nederlands")) + d %this.sbKenmerken.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","BorderStyle","Enabled"),$lb(2,2,717,550,"alTop",$lb("akLeft","akTop","akRight","akBottom"),"bsNone","False")) d %this.sbKenmerken.HorzScrollBar.SetMultiProperty($lb("Tracking"),$lb("True")) d %this.sbKenmerken.VertScrollBar.SetMultiProperty($lb("Tracking"),$lb("True")) s %this.sbKenmerken.PopupMenu=%this.pmUtils d %this.sbKenmerken.SetMultiProperty($lb("TabOrder"),$lb(0)) d %this.lblReadOnly.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","Color","ParentColor","ParentFont","Visible"),$lb(110,3,250,13,"taCenter","False"," READ ONLY ",$$$clBlack,"False","False","False")) d %this.lblReadOnly.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clYellow,-11,"MS Sans Serif",$lb("fsBold"))) - d %this.mmoOmschrijving.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Color","ReadOnly","TabOrder"),$lb(120,527,621,45,"False",$lb("akLeft","akRight","akBottom"),15461355,"True",1)) - d %this.StatusBar.SetMultiProperty($lb("Left","Top","Width","Height","SimplePanel"),$lb(0,718,1028,19,"False")) + d %this.mmoOmschrijving.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Color","ReadOnly","TabOrder"),$lb(120,576,594,45,"False",$lb("akLeft","akRight","akBottom"),15461355,"True",1)) + d %this.StatusBar.SetMultiProperty($lb("Left","Top","Width","Height","SimplePanel"),$lb(0,775,1042,19,"False")) d %this.btnExpandMsgs.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont","OnClick"),$lb(810,3,16,15,$lb("akRight","akBottom"),"é","False",$lb(%this,"btnExpandMsgsClick"))) d %this.btnExpandMsgs.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clRed,-11,"Wingdings",$lb())) d %this.reLog.SetMultiProperty($lb("Left","Top","Width","Height","Color","ParentFont","ScrollBars","TabOrder","Visible","WordWrap"),$lb(73,459,129,57,$$$clBlack,"False","ssBoth",4,"False","False")) d %this.reLog.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clYellow,-11,"Courier New",$lb())) - d %this.pnlProdMulti.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","TabOrder"),$lb(271,103,748,35,$lb("akLeft","akTop","akRight"),"bvLowered",5)) + d %this.pnlProdMulti.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelInner","TabOrder"),$lb(303,103,721,35,$lb("akLeft","akTop","akRight"),"bvLowered",5)) d %this.lblProdMultiUnID.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","Color","ParentColor","Layout","OnClick"),$lb(113,6,65,21,"taCenter","False","UnID",$$$clSilver,"False","tlCenter",$lb(%this,"lblProdMultiUnID1Click"))) d %this.btnAddMulti.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Caption","OnClick"),$lb(9,6,61,21,"Nieuwe multiple van dit product maken","Add Multi",$lb(%this,"btnAddMultiClick"))) d %this.lblProdMultiUnID1.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","Color","ParentColor","Layout","OnClick"),$lb(185,6,65,21,"taCenter","False","UnID",$$$clSilver,"False","tlCenter",$lb(%this,"lblProdMultiUnID1Click"))) @@ -2766,7 +2767,7 @@ d %this.lblProdMultiUnID6.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","Color","ParentColor","Layout","OnClick"),$lb(545,6,65,21,"taCenter","False","UnID",$$$clSilver,"False","tlCenter",$lb(%this,"lblProdMultiUnID1Click"))) d %this.lblProdMultiUnID7.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","Color","ParentColor","Layout","OnClick"),$lb(617,6,65,21,"taCenter","False","UnID",$$$clSilver,"False","tlCenter",$lb(%this,"lblProdMultiUnID1Click"))) d %this.lblProdMultiUnID8.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","Color","ParentColor","Layout","OnClick"),$lb(689,6,65,21,"taCenter","False","UnID",$$$clSilver,"False","tlCenter",$lb(%this,"lblProdMultiUnID1Click"))) - d %this.btnGenereerAutoVarianten.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","Enabled","OnClick"),$lb(593,6,149,21,"Genereer AUTO varianten voor deze master",$lb("akTop","akRight"),"Genereer AUTO varianten","False",$lb(%this,"btnGenereerAutoVariantenClick"))) + d %this.btnGenereerAutoVarianten.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","Enabled","OnClick"),$lb(566,6,149,21,"Genereer AUTO varianten voor deze master",$lb("akTop","akRight"),"Genereer AUTO varianten","False",$lb(%this,"btnGenereerAutoVariantenClick"))) d %this.ilTreeView.SetMultiProperty($lb("Bitmap"),$lb("CLSDFOLD.ICO,OPENFOLD.ICO,MISC14.ICO,MISC15.ICO,MISC16.ico")) s %this.pmUtils.Images=%this.ilUtils d %this.miCopyValues.SetMultiProperty($lb("Caption","ImageIndex","ShortCut","OnClick"),$lb("Kopiëren",0,112,$lb(%this,"miCopyValuesClick"))) Index: UI/PR/GA/dlgTBSpoelbak.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/dlgTBSpoelbak.cls.xml (.../dlgTBSpoelbak.cls.xml) (revision 1210) +++ UI/PR/GA/dlgTBSpoelbak.cls.xml (.../dlgTBSpoelbak.cls.xml) (revision 1499) @@ -293,8 +293,8 @@ ;object DesignForm: TDesignForm ; Left = 2 ; Top = 1 - ; Width = 347 - ; Height = 277 + ; Width = 351 + ; Height = 285 ; BorderIcons = [biSystemMenu] ; Caption = 'Tandem BOX - Opties' ; Color = clBtnFace @@ -309,126 +309,126 @@ ; PixelsPerInch = 96 ; TextHeight = 13 ; object zzLabel1: CLabel - ; Left = 11 - ; Top = 38 + ; Left = 19 + ; Top = 46 ; Width = 122 ; Height = 21 ; AutoSize = False ; Caption = 'Spoelbak zijkant Links' ; Layout = tlCenter ; end ; object zzLabel3: CLabel - ; Left = 11 - ; Top = 134 + ; Left = 19 + ; Top = 142 ; Width = 122 ; Height = 21 ; AutoSize = False ; Caption = 'Spoelbak zijkant Rechts' ; Layout = tlCenter ; end ; object zzLabel2: CLabel - ; Left = 11 - ; Top = 62 + ; Left = 19 + ; Top = 70 ; Width = 122 ; Height = 21 ; AutoSize = False ; Caption = 'Spoelbak breedte' ; Layout = tlCenter ; end ; object lblSPZLI: CLabel - ; Left = 235 - ; Top = 38 + ; Left = 243 + ; Top = 46 ; Width = 50 ; Height = 21 ; AutoSize = False ; Layout = tlCenter ; end ; object lblSPBR: CLabel - ; Left = 235 - ; Top = 62 + ; Left = 243 + ; Top = 70 ; Width = 50 ; Height = 21 ; AutoSize = False ; Layout = tlCenter ; end ; object lblSPZRE: CLabel - ; Left = 235 - ; Top = 134 + ; Left = 243 + ; Top = 142 ; Width = 50 ; Height = 21 ; AutoSize = False ; Layout = tlCenter ; end ; object zzLabel4: CLabel - ; Left = 11 - ; Top = 6 + ; Left = 19 + ; Top = 14 ; Width = 112 ; Height = 21 ; AutoSize = False ; Caption = 'Inbouwbreedte (corpus)' ; Layout = tlCenter ; end ; object lblNuttigeBreedte: CLabel - ; Left = 155 - ; Top = 6 + ; Left = 163 + ; Top = 14 ; Width = 66 ; Height = 21 ; AutoSize = False ; Layout = tlCenter ; end ; object zzLabel5: CLabel - ; Left = 11 - ; Top = 86 + ; Left = 19 + ; Top = 94 ; Width = 122 ; Height = 21 ; AutoSize = False ; Caption = 'Rug midden dub. sifon' ; Layout = tlCenter ; end ; object lblSPZMI: CLabel - ; Left = 235 - ; Top = 86 + ; Left = 243 + ; Top = 94 ; Width = 50 ; Height = 21 ; AutoSize = False ; Layout = tlCenter ; end ; object zzLabel6: CLabel - ; Left = 11 - ; Top = 110 + ; Left = 19 + ; Top = 118 ; Width = 122 ; Height = 21 ; AutoSize = False ; Caption = 'Spoelbak breedte' ; Layout = tlCenter ; end ; object lblSPBR2: CLabel - ; Left = 235 - ; Top = 110 + ; Left = 243 + ; Top = 118 ; Width = 50 ; Height = 21 ; AutoSize = False ; Layout = tlCenter ; end ; object zzLabel7: CLabel - ; Left = 11 - ; Top = 190 + ; Left = 19 + ; Top = 198 ; Width = 122 ; Height = 21 ; AutoSize = False ; Caption = 'Aantal sifonkappen' ; Layout = tlCenter ; end ; object lblSifonQty: CLabel - ; Left = 155 - ; Top = 190 + ; Left = 163 + ; Top = 198 ; Width = 66 ; Height = 21 ; AutoSize = False ; Layout = tlCenter ; end ; object btnOK: CButton - ; Left = 250 + ; Left = 247 ; Top = 176 ; Width = 75 ; Height = 25 @@ -439,7 +439,7 @@ ; OnClick = btnOKClick ; end ; object btnCancel: CButton - ; Left = 250 + ; Left = 247 ; Top = 208 ; Width = 75 ; Height = 25 @@ -450,8 +450,8 @@ ; OnClick = btnCancelClick ; end ; object txtSPZLI: CEdit - ; Left = 151 - ; Top = 38 + ; Left = 159 + ; Top = 46 ; Width = 73 ; Height = 21 ; Ctl3D = True @@ -466,8 +466,8 @@ ; OnChange = OnChangeItem ; end ; object txtSPBR: CEdit - ; Left = 151 - ; Top = 62 + ; Left = 159 + ; Top = 70 ; Width = 73 ; Height = 21 ; Ctl3D = True @@ -482,8 +482,8 @@ ; OnChange = OnChangeItem ; end ; object txtSPZRE: CEdit - ; Left = 151 - ; Top = 134 + ; Left = 159 + ; Top = 142 ; Width = 73 ; Height = 21 ; Ctl3D = True @@ -498,17 +498,17 @@ ; OnChange = OnChangeItem ; end ; object chkSymm: CCheckBox - ; Left = 14 - ; Top = 167 + ; Left = 22 + ; Top = 175 ; Width = 97 ; Height = 17 ; Caption = 'Symmetrisch' ; TabOrder = 7 ; OnClick = chkSymmClick ; end ; object txtSPZMI: CEdit - ; Left = 151 - ; Top = 86 + ; Left = 159 + ; Top = 94 ; Width = 73 ; Height = 21 ; Ctl3D = True @@ -523,8 +523,8 @@ ; OnChange = OnChangeItem ; end ; object txtSPBR2: CEdit - ; Left = 151 - ; Top = 110 + ; Left = 159 + ; Top = 118 ; Width = 73 ; Height = 21 ; Ctl3D = True @@ -637,34 +637,34 @@ s %this.txtSPZMI=##class(%TMEdit).%New($lb(%this.Form.Address,0)) s %this.txtSPBR2=##class(%TMEdit).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderIcons","Caption","Color","OldCreateOrder","Position","OnShow","PixelsPerInch"),$lb(2,1,347,277,$lb("biSystemMenu"),"Tandem BOX - Opties",$$$clBtnFace,"False","poDesktopCenter",$lb(%this,"DesignFormShow"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderIcons","Caption","Color","OldCreateOrder","Position","OnShow","PixelsPerInch"),$lb(2,1,351,285,$lb("biSystemMenu"),"Tandem BOX - Opties",$$$clBtnFace,"False","poDesktopCenter",$lb(%this,"DesignFormShow"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,38,122,21,"False","Spoelbak zijkant Links","tlCenter")) - d %this.zzLabel3.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,134,122,21,"False","Spoelbak zijkant Rechts","tlCenter")) - d %this.zzLabel2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,62,122,21,"False","Spoelbak breedte","tlCenter")) - d %this.lblSPZLI.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(235,38,50,21,"False","tlCenter")) - d %this.lblSPBR.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(235,62,50,21,"False","tlCenter")) - d %this.lblSPZRE.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(235,134,50,21,"False","tlCenter")) - d %this.zzLabel4.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,6,112,21,"False","Inbouwbreedte (corpus)","tlCenter")) - d %this.lblNuttigeBreedte.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(155,6,66,21,"False","tlCenter")) - d %this.zzLabel5.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,86,122,21,"False","Rug midden dub. sifon","tlCenter")) - d %this.lblSPZMI.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(235,86,50,21,"False","tlCenter")) - d %this.zzLabel6.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,110,122,21,"False","Spoelbak breedte","tlCenter")) - d %this.lblSPBR2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(235,110,50,21,"False","tlCenter")) - d %this.zzLabel7.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,190,122,21,"False","Aantal sifonkappen","tlCenter")) - d %this.lblSifonQty.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(155,190,66,21,"False","tlCenter")) - d %this.btnOK.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Default","TabOrder","OnClick"),$lb(250,176,75,25,$lb("akRight","akBottom"),"OK","True",0,$lb(%this,"btnOKClick"))) - d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(250,208,75,25,$lb("akRight","akBottom"),"True","Annuleren",1,$lb(%this,"btnCancelClick"))) - d %this.txtSPZLI.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(151,38,73,21,"True","False","False",2,$lb(%this,"OnChangeItem"))) + d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,46,122,21,"False","Spoelbak zijkant Links","tlCenter")) + d %this.zzLabel3.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,142,122,21,"False","Spoelbak zijkant Rechts","tlCenter")) + d %this.zzLabel2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,70,122,21,"False","Spoelbak breedte","tlCenter")) + d %this.lblSPZLI.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(243,46,50,21,"False","tlCenter")) + d %this.lblSPBR.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(243,70,50,21,"False","tlCenter")) + d %this.lblSPZRE.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(243,142,50,21,"False","tlCenter")) + d %this.zzLabel4.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,14,112,21,"False","Inbouwbreedte (corpus)","tlCenter")) + d %this.lblNuttigeBreedte.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(163,14,66,21,"False","tlCenter")) + d %this.zzLabel5.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,94,122,21,"False","Rug midden dub. sifon","tlCenter")) + d %this.lblSPZMI.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(243,94,50,21,"False","tlCenter")) + d %this.zzLabel6.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,118,122,21,"False","Spoelbak breedte","tlCenter")) + d %this.lblSPBR2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(243,118,50,21,"False","tlCenter")) + d %this.zzLabel7.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,198,122,21,"False","Aantal sifonkappen","tlCenter")) + d %this.lblSifonQty.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Layout"),$lb(163,198,66,21,"False","tlCenter")) + d %this.btnOK.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Default","TabOrder","OnClick"),$lb(247,176,75,25,$lb("akRight","akBottom"),"OK","True",0,$lb(%this,"btnOKClick"))) + d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(247,208,75,25,$lb("akRight","akBottom"),"True","Annuleren",1,$lb(%this,"btnCancelClick"))) + d %this.txtSPZLI.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(159,46,73,21,"True","False","False",2,$lb(%this,"OnChangeItem"))) d %this.txtSPZLI.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.txtSPBR.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(151,62,73,21,"True","False","False",3,$lb(%this,"OnChangeItem"))) + d %this.txtSPBR.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(159,70,73,21,"True","False","False",3,$lb(%this,"OnChangeItem"))) d %this.txtSPBR.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.txtSPZRE.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(151,134,73,21,"True","False","False",6,$lb(%this,"OnChangeItem"))) + d %this.txtSPZRE.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(159,142,73,21,"True","False","False",6,$lb(%this,"OnChangeItem"))) d %this.txtSPZRE.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.chkSymm.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(14,167,97,17,"Symmetrisch",7,$lb(%this,"chkSymmClick"))) - d %this.txtSPZMI.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(151,86,73,21,"True","False","False",4,$lb(%this,"OnChangeItem"))) + d %this.chkSymm.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(22,175,97,17,"Symmetrisch",7,$lb(%this,"chkSymmClick"))) + d %this.txtSPZMI.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(159,94,73,21,"True","False","False",4,$lb(%this,"OnChangeItem"))) d %this.txtSPZMI.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.txtSPBR2.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(151,110,73,21,"True","False","False",5,$lb(%this,"OnChangeItem"))) + d %this.txtSPBR2.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange"),$lb(159,118,73,21,"True","False","False",5,$lb(%this,"OnChangeItem"))) d %this.txtSPBR2.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) s MApplication.ClientState="Wait" q Index: UI/PR/GA/Verlichting.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/Verlichting.cls.xml (.../Verlichting.cls.xml) (revision 1210) +++ UI/PR/GA/Verlichting.cls.xml (.../Verlichting.cls.xml) (revision 1499) @@ -614,7 +614,7 @@ ; Left = 0 ; Top = 0 ; Width = 810 - ; Height = 628 + ; Height = 666 ; Caption = 'Verlichting op maat - Ingave' ; Color = clBtnFace ; Constraints.MinHeight = 576 @@ -652,13 +652,13 @@ ; Left = 257 ; Top = 6 ; Width = 232 - ; Height = 583 + ; Height = 613 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Caption = ' LAMPEN: manueel' ; TabOrder = 7 ; object btnTest: CButton ; Left = 170 - ; Top = 551 + ; Top = 581 ; Width = 35 ; Height = 25 ; Anchors = [akLeft, akBottom] @@ -669,7 +669,7 @@ ; end ; object btnLPosWisAlles: CButton ; Left = 90 - ; Top = 550 + ; Top = 580 ; Width = 75 ; Height = 25 ; Anchors = [akLeft, akBottom] @@ -679,7 +679,7 @@ ; end ; object btnSwitchToAuto: CButton ; Left = 10 - ; Top = 550 + ; Top = 580 ; Width = 75 ; Height = 25 ; Anchors = [akLeft, akBottom] @@ -691,7 +691,7 @@ ; Left = 2 ; Top = 15 ; Width = 228 - ; Height = 526 + ; Height = 556 ; Anchors = [akLeft, akTop, akRight, akBottom] ; BorderStyle = bsNone ; TabOrder = 0 @@ -752,15 +752,15 @@ ; Left = 480 ; Top = 6 ; Width = 297 - ; Height = 358 + ; Height = 388 ; Anchors = [akTop, akRight, akBottom] ; Caption = ' LAMPEN: overzicht ' ; TabOrder = 8 ; object txtTLSchema: CRichEdit ; Left = 10 ; Top = 15 ; Width = 269 - ; Height = 341 + ; Height = 371 ; TabStop = False ; Anchors = [akLeft, akTop, akRight, akBottom] ; BorderStyle = bsNone @@ -802,7 +802,7 @@ ; end ; object grpSnoerUitgang: CGroupBox ; Left = 9 - ; Top = 484 + ; Top = 514 ; Width = 209 ; Height = 105 ; Anchors = [akLeft, akBottom] @@ -1073,7 +1073,7 @@ ; end ; object rbgSnoerUitgang: CRadioGroup ; Left = 129 - ; Top = 545 + ; Top = 575 ; Width = 97 ; Height = 41 ; Anchors = [akLeft, akBottom] @@ -1094,7 +1094,7 @@ ; end ; object rbgLampBWijze: CRadioGroup ; Left = 496 - ; Top = 484 + ; Top = 514 ; Width = 73 ; Height = 105 ; Anchors = [akRight, akBottom] @@ -1119,7 +1119,7 @@ ; Left = 233 ; Top = 6 ; Width = 232 - ; Height = 583 + ; Height = 613 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Caption = ' LAMPEN: automatisch berekenen ' ; Ctl3D = True @@ -1165,7 +1165,7 @@ ; Left = 5 ; Top = 89 ; Width = 222 - ; Height = 351 + ; Height = 381 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Ctl3D = True ; Font.Charset = ANSI_CHARSET @@ -1183,7 +1183,7 @@ ; end ; object btnSwitchToManueel: CButton ; Left = 10 - ; Top = 543 + ; Top = 573 ; Width = 75 ; Height = 25 ; Anchors = [akLeft, akBottom] @@ -1194,7 +1194,7 @@ ; end ; object grpLampAutoParams: CGroupBox ; Left = 5 - ; Top = 449 + ; Top = 479 ; Width = 223 ; Height = 121 ; Anchors = [akLeft, akBottom] @@ -1364,7 +1364,7 @@ ; end ; object grpOpties: CGroupBox ; Left = 480 - ; Top = 370 + ; Top = 400 ; Width = 297 ; Height = 88 ; Anchors = [akRight, akBottom] @@ -1452,7 +1452,7 @@ ; end ; object pnlButtons: CPanel ; Left = 480 - ; Top = 483 + ; Top = 513 ; Width = 297 ; Height = 105 ; Anchors = [akRight, akBottom] @@ -1930,29 +1930,29 @@ s %this.cboAfdekScherm=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0)) s %this.rbgUitstraling=##class(UI.Lib.Ctrl.TRadioGroup).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","OnClose","PixelsPerInch"),$lb(0,0,810,628,"Verlichting op maat - Ingave",$$$clBtnFace,"True","False","poDesktopCenter",$lb(%this,"DesignFormClose"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","OnClose","PixelsPerInch"),$lb(0,0,810,666,"Verlichting op maat - Ingave",$$$clBtnFace,"True","False","poDesktopCenter",$lb(%this,"DesignFormClose"),96)) d %this.Form.Constraints.SetMultiProperty($lb("MinHeight","MinWidth"),$lb(576,810)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(9,36,120,21,"False","Behuizing Lengte (mm)","tlCenter")) d %this.Label2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(9,12,72,21,"False","Afdekscherm","tlCenter")) - d %this.grpLampPlaatsing.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(257,6,232,583,$lb("akLeft","akTop","akRight","akBottom")," LAMPEN: manueel",7)) - d %this.btnTest.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","Visible","OnClick"),$lb(170,551,35,25,$lb("akLeft","akBottom"),"Fill",2,"False",$lb(%this,"btnTestClick"))) - d %this.btnLPosWisAlles.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(90,550,75,25,$lb("akLeft","akBottom"),"Alles wissen",3,$lb(%this,"btnLPosWisAllesClick"))) - d %this.btnSwitchToAuto.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(10,550,75,25,$lb("akLeft","akBottom"),"--> Auto",1,$lb(%this,"btnSwitchToAutoClick"))) - d %this.sbxLampPlaatsing.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BorderStyle","TabOrder"),$lb(2,15,228,526,$lb("akLeft","akTop","akRight","akBottom"),"bsNone",0)) + d %this.grpLampPlaatsing.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(257,6,232,613,$lb("akLeft","akTop","akRight","akBottom")," LAMPEN: manueel",7)) + d %this.btnTest.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","Visible","OnClick"),$lb(170,581,35,25,$lb("akLeft","akBottom"),"Fill",2,"False",$lb(%this,"btnTestClick"))) + d %this.btnLPosWisAlles.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(90,580,75,25,$lb("akLeft","akBottom"),"Alles wissen",3,$lb(%this,"btnLPosWisAllesClick"))) + d %this.btnSwitchToAuto.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(10,580,75,25,$lb("akLeft","akBottom"),"--> Auto",1,$lb(%this,"btnSwitchToAutoClick"))) + d %this.sbxLampPlaatsing.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BorderStyle","TabOrder"),$lb(2,15,228,556,$lb("akLeft","akTop","akRight","akBottom"),"bsNone",0)) d %this.zzLabel7.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption"),$lb(8,4,105,13,"taCenter","False","TL-lamp")) d %this.zzLabel8.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption"),$lb(128,4,57,13,"taCenter","False","Positie (mm)")) d %this.cboLampPos01.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnChange","OnExit"),$lb(8,24,105,21,"True",13,"False","False",0,"cboLampPos01",$lb(%this,"cboLampPosAllChangeItem"),$lb(%this,"cboLampPosAllExit"))) d %this.cboLampPos01.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.txtLampPos01.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","TabOrder","OnChange","OnExit","OnKeyDown"),$lb(128,24,57,21,"True","False",1,$lb(%this,"txtLampPosAllChange"),$lb(%this,"txtLampPosAllExit"),$lb(%this,"EVENTOnKeyDown"))) - d %this.grpLampSchema.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(480,6,297,358,$lb("akTop","akRight","akBottom")," LAMPEN: overzicht ",8)) - d %this.txtTLSchema.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","BorderStyle","Color","Ctl3D"),$lb(10,15,269,341,"False",$lb("akLeft","akTop","akRight","akBottom"),"bsNone",$$$clBtnFace,"False")) + d %this.grpLampSchema.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(480,6,297,388,$lb("akTop","akRight","akBottom")," LAMPEN: overzicht ",8)) + d %this.txtTLSchema.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","BorderStyle","Color","Ctl3D"),$lb(10,15,269,371,"False",$lb("akLeft","akTop","akRight","akBottom"),"bsNone",$$$clBtnFace,"False")) d %this.txtTLSchema.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clNavy,-11,"Lucida Console",$lb())) d %this.txtTLSchema.Lines.SetMultiProperty($lb("Strings"),$lb("txtTLSchema")) d %this.txtTLSchema.SetMultiProperty($lb("ParentCtl3D","ParentFont","ReadOnly","ScrollBars","TabOrder","WordWrap"),$lb("False","False","True","ssBoth",0,"False")) d %this.txtLengteProf.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnChange","OnExit","OnKeyDown"),$lb(159,36,57,21,"True","False","False",1,$lb(%this,"txtLengteProfChange"),$lb(%this,"txtLengteProfExit"),$lb(%this,"EVENTOnKeyDown"))) d %this.txtLengteProf.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.grpSnoerUitgang.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(9,484,209,105,$lb("akLeft","akBottom")," SNOER UITGANG (bovenaanzicht) ",4)) + d %this.grpSnoerUitgang.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(9,514,209,105,$lb("akLeft","akBottom")," SNOER UITGANG (bovenaanzicht) ",4)) d %this.imgSnoerUitgang.SetMultiProperty($lb("Left","Top","Width","Height","Center"),$lb(32,55,145,20,"True")) d %this.zzLabel16.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption"),$lb(14,67,17,13,"taCenter","False","L1")) d %this.zzLabel17.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption"),$lb(182,67,17,13,"taCenter","False","R1")) @@ -1984,21 +1984,21 @@ d %this.rbgVerstekLi.SetMultiProperty($lb("Left","Top","Width","Height","BiDiMode","Ctl3D"),$lb(5,16,30,257,"bdLeftToRight","True")) d %this.rbgVerstekLi.Items.SetMultiProperty($lb("Strings"),$lb(" "_$C(13,10)_" "_$C(13,10)_" "_$C(13,10)_" "_$C(13,10)_" ")) d %this.rbgVerstekLi.SetMultiProperty($lb("ParentBiDiMode","ParentCtl3D","TabOrder","OnClick"),$lb("False","False",0,$lb(%this,"rbgVerstekLiClick"))) - d %this.rbgSnoerUitgang.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Color","ParentColor","ParentFont","TabOrder","TabStop","Visible","OnClick"),$lb(129,545,97,41,$lb("akLeft","akBottom"),"rbgSnoerUitgang",$$$clBtnFace,"False","False",5,"True","False",$lb(%this,"rbgSnoerUitgangClick"))) + d %this.rbgSnoerUitgang.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Color","ParentColor","ParentFont","TabOrder","TabStop","Visible","OnClick"),$lb(129,575,97,41,$lb("akLeft","akBottom"),"rbgSnoerUitgang",$$$clBtnFace,"False","False",5,"True","False",$lb(%this,"rbgSnoerUitgangClick"))) d %this.rbgSnoerUitgang.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb())) - d %this.rbgLampBWijze.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption"),$lb(496,484,73,105,$lb("akRight","akBottom")," LAMPEN: berekeningswijze ")) + d %this.rbgLampBWijze.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption"),$lb(496,514,73,105,$lb("akRight","akBottom")," LAMPEN: berekeningswijze ")) d %this.rbgLampBWijze.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb())) d %this.rbgLampBWijze.Items.SetMultiProperty($lb("Strings"),$lb(" "_$C(13,10)_" "_$C(13,10)_" "_$C(13,10)_" ")) d %this.rbgLampBWijze.SetMultiProperty($lb("ParentFont","TabOrder","Visible","OnClick"),$lb("False",9,"False",$lb(%this,"rbgLampBWijzeClick"))) - d %this.grpLampAuto.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Ctl3D","ParentCtl3D","TabOrder"),$lb(233,6,232,583,$lb("akLeft","akTop","akRight","akBottom")," LAMPEN: automatisch berekenen ","True","False",6)) + d %this.grpLampAuto.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Ctl3D","ParentCtl3D","TabOrder"),$lb(233,6,232,613,$lb("akLeft","akTop","akRight","akBottom")," LAMPEN: automatisch berekenen ","True","False",6)) d %this.zzLabel18.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(130,17,48,21,"False","--> Max #","tlCenter")) d %this.chkLPosCalc1S.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(12,20,97,17,"1 soort lampen",0,$lb(%this,"chkLPosCalc1SClick"))) d %this.chkLPosCalcCS.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(12,36,177,17,"Combinatie verschillende lampen",3,$lb(%this,"chkLPosCalcCSClick"))) d %this.btnLPosRecalc.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(58,64,75,17,"Vernieuwen",4,$lb(%this,"btnLPosRecalcClick"))) - d %this.lstLampAutos.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","OnClick","OnDblClick"),$lb(5,89,222,351,$lb("akLeft","akTop","akRight","akBottom"),"True",14,"False","False",5,$lb(%this,"lstLampAutosClick"),$lb(%this,"lstLampAutosDblClick"))) + d %this.lstLampAutos.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","OnClick","OnDblClick"),$lb(5,89,222,381,$lb("akLeft","akTop","akRight","akBottom"),"True",14,"False","False",5,$lb(%this,"lstLampAutosClick"),$lb(%this,"lstLampAutosDblClick"))) d %this.lstLampAutos.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clWindowText,-11,"Courier New",$lb())) - d %this.btnSwitchToManueel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","Visible","OnClick"),$lb(10,543,75,25,$lb("akLeft","akBottom"),"--> Manueel",7,"False",$lb(%this,"btnSwitchToManueelClick"))) - d %this.grpLampAutoParams.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(5,449,223,121,$lb("akLeft","akBottom")," Parameters ",6)) + d %this.btnSwitchToManueel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","Visible","OnClick"),$lb(10,573,75,25,$lb("akLeft","akBottom"),"--> Manueel",7,"False",$lb(%this,"btnSwitchToManueelClick"))) + d %this.grpLampAutoParams.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(5,479,223,121,$lb("akLeft","akBottom")," Parameters ",6)) d %this.zzLabel13.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,44,104,21,"False","Aftrek rechts (mm)","tlCenter")) d %this.zzLabel14.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,68,104,21,"False","Tussenafstand (mm)","tlCenter")) d %this.zzLabel15.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,92,104,21,"False","Uitlijning","tlCenter")) @@ -2018,7 +2018,7 @@ d %this.rbgLichtKleur.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb())) d %this.rbgLichtKleur.Items.SetMultiProperty($lb("Strings"),$lb("Warm (830)"_$C(13,10)_"Koud (840)")) d %this.rbgLichtKleur.SetMultiProperty($lb("ParentFont","TabOrder","OnClick"),$lb("False",2,$lb(%this,"rbgLichtKleurClick"))) - d %this.grpOpties.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(480,370,297,88,$lb("akRight","akBottom")," Opties ",10)) + d %this.grpOpties.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(480,400,297,88,$lb("akRight","akBottom")," Opties ",10)) d %this.zzLabel20.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,28,88,21,"False","Extra boringen","tlCenter")) d %this.zzLabel10.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption"),$lb(184,13,57,13,"taCenter","False","in rug")) d %this.zzLabel9.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption"),$lb(128,13,57,13,"taCenter","False","in bodem")) @@ -2028,7 +2028,7 @@ d %this.txtExtraBorRug.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnExit"),$lb(192,28,41,21,"True","False","False",1,$lb(%this,"txtExtraBorRugExit"))) d %this.txtExtraBorRug.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.chkVerpakBulk.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(12,60,97,17,"Bulk verpakt",2,$lb(%this,"chkVerpakBulkClick"))) - d %this.pnlButtons.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","TabOrder"),$lb(480,483,297,105,$lb("akRight","akBottom"),"bvNone",11)) + d %this.pnlButtons.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","TabOrder"),$lb(480,513,297,105,$lb("akRight","akBottom"),"bvNone",11)) d %this.lblAantalTxt.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(15,4,40,21,"False","Aantal","tlCenter")) d %this.btnAllesWissen.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Enabled","ParentFont","TabOrder","Visible","OnClick"),$lb(22,80,83,25,"Alles wissen","False","False",6,"False",$lb(%this,"btnAllesWissenClick"))) d %this.btnAllesWissen.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) Index: UI/Lib/Dlg/ListSort.cls.xml =================================================================== diff -u -r1074 -r1499 --- UI/Lib/Dlg/ListSort.cls.xml (.../ListSort.cls.xml) (revision 1074) +++ UI/Lib/Dlg/ListSort.cls.xml (.../ListSort.cls.xml) (revision 1499) @@ -5,6 +5,7 @@ KeyCodesCNTs Default %Library.TMFormClass +0 %TMSpeedButton @@ -86,8 +87,8 @@ ;object DesignForm: TDesignForm ; Left = 80 ; Top = 108 - ; Width = 216 - ; Height = 457 + ; Width = 241 + ; Height = 463 ; Caption = 'Sorteren' ; Color = clBtnFace ; Constraints.MinWidth = 200 @@ -104,7 +105,7 @@ ; PixelsPerInch = 96 ; TextHeight = 13 ; object btnSortUp: CSpeedButton - ; Left = 171 + ; Left = 188 ; Top = 12 ; Width = 23 ; Height = 22 @@ -122,7 +123,7 @@ ; OnClick = btnSortUpClick ; end ; object btnSortDown: CSpeedButton - ; Left = 171 + ; Left = 188 ; Top = 39 ; Width = 23 ; Height = 22 @@ -140,15 +141,15 @@ ; OnClick = btnSortDownClick ; end ; object Bevel1: CBevel - ; Left = 36 - ; Top = 375 + ; Left = 53 + ; Top = 372 ; Width = 158 ; Height = 34 ; Anchors = [akRight, akBottom] ; end ; object btnAnnuleren: CSpeedButton - ; Left = 43 - ; Top = 381 + ; Left = 68 + ; Top = 386 ; Width = 64 ; Height = 22 ; Anchors = [akRight, akBottom] @@ -158,8 +159,8 @@ ; ShowBorderWhenInactive = True ; end ; object btnOk: CSpeedButton - ; Left = 121 - ; Top = 381 + ; Left = 146 + ; Top = 386 ; Width = 64 ; Height = 22 ; Anchors = [akRight, akBottom] @@ -169,8 +170,8 @@ ; ShowBorderWhenInactive = True ; end ; object btnSortAlpha: CSpeedButton - ; Left = 171 - ; Top = 305 + ; Left = 188 + ; Top = 310 ; Width = 23 ; Height = 22 ; Hint = 'Sorteer de lijst in alfabetische volgorde.' @@ -185,8 +186,8 @@ ; OnClick = btnSortAlphaClick ; end ; object btnDefault: CSpeedButton - ; Left = 171 - ; Top = 273 + ; Left = 188 + ; Top = 278 ; Width = 23 ; Height = 22 ; Hint = 'Verwijder de huidige sortering en sluit af.' @@ -201,8 +202,8 @@ ; OnClick = btnDefaultClick ; end ; object btnAdvancedSort: CSpeedButton - ; Left = 171 - ; Top = 337 + ; Left = 188 + ; Top = 342 ; Width = 23 ; Height = 22 ; Hint = 'Geavanceerde sortering toepassen.' @@ -218,8 +219,8 @@ ; object lbSortList: CListBox ; Left = 12 ; Top = 12 - ; Width = 151 - ; Height = 349 + ; Width = 168 + ; Height = 346 ; Anchors = [akLeft, akTop, akRight, akBottom] ; ItemHeight = 13 ; TabOrder = 0 @@ -252,7 +253,6 @@ ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]> @@ -292,7 +292,6 @@ . Set tmpList=tmpList_$LB(..lbSortList.Items.GetStrings(Loop)) Quit tmpList - ]]> @@ -316,23 +315,23 @@ s %this.btnAdvancedSort=##class(%TMSpeedButton).%New($lb(%this.Form.Address,0)) s %this.lbSortList=##class(%TMListBox).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","ShowHint","OnKeyDown","PixelsPerInch"),$lb(80,108,216,457,"Sorteren",$$$clBtnFace,"True","False","poScreenCenter","True",$lb(%this,"DesignFormKeyDown"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","ShowHint","OnKeyDown","PixelsPerInch"),$lb(80,108,241,463,"Sorteren",$$$clBtnFace,"True","False","poScreenCenter","True",$lb(%this,"DesignFormKeyDown"),96)) d %this.Form.Constraints.SetMultiProperty($lb("MinWidth"),$lb(200)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.btnSortUp.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(171,12,23,22,"Plaats het geselecteerde element naar boven (Shift + Pijl omhoog).",$lb("akTop","akRight"),"5","False",$lb(%this,"btnSortUpClick"))) + d %this.btnSortUp.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(188,12,23,22,"Plaats het geselecteerde element naar boven (Shift + Pijl omhoog).",$lb("akTop","akRight"),"5","False",$lb(%this,"btnSortUpClick"))) d %this.btnSortUp.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clBlack,-16,"Webdings",$lb())) - d %this.btnSortDown.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(171,39,23,22,"Plaats het geselecteerde element naar onder (Shift + Pijl omlaag).",$lb("akTop","akRight"),"6","False",$lb(%this,"btnSortDownClick"))) + d %this.btnSortDown.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(188,39,23,22,"Plaats het geselecteerde element naar onder (Shift + Pijl omlaag).",$lb("akTop","akRight"),"6","False",$lb(%this,"btnSortDownClick"))) d %this.btnSortDown.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clBlack,-16,"Webdings",$lb())) - d %this.Bevel1.SetMultiProperty($lb("Left","Top","Width","Height","Anchors"),$lb(36,375,158,34,$lb("akRight","akBottom"))) - d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(43,381,64,22,$lb("akRight","akBottom"),$$$clWhite,"&Annuleren",2,"True")) - d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(121,381,64,22,$lb("akRight","akBottom"),$$$clWhite,"&Ok",1,"True")) - d %this.btnSortAlpha.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(171,305,23,22,"Sorteer de lijst in alfabetische volgorde.",$lb("akRight","akBottom"),"a","False",$lb(%this,"btnSortAlphaClick"))) + d %this.Bevel1.SetMultiProperty($lb("Left","Top","Width","Height","Anchors"),$lb(53,372,158,34,$lb("akRight","akBottom"))) + d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(68,386,64,22,$lb("akRight","akBottom"),$$$clWhite,"&Annuleren",2,"True")) + d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ModalResult","ShowBorderWhenInactive"),$lb(146,386,64,22,$lb("akRight","akBottom"),$$$clWhite,"&Ok",1,"True")) + d %this.btnSortAlpha.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(188,310,23,22,"Sorteer de lijst in alfabetische volgorde.",$lb("akRight","akBottom"),"a","False",$lb(%this,"btnSortAlphaClick"))) d %this.btnSortAlpha.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clPurple,-16,"Times New Roman MT Extra Bold",$lb("fsBold"))) - d %this.btnDefault.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(171,273,23,22,"Verwijder de huidige sortering en sluit af.",$lb("akRight","akBottom"),"""","False",$lb(%this,"btnDefaultClick"))) + d %this.btnDefault.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","OnClick"),$lb(188,278,23,22,"Verwijder de huidige sortering en sluit af.",$lb("akRight","akBottom"),"""","False",$lb(%this,"btnDefaultClick"))) d %this.btnDefault.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$SYMBOLCHARSET,$$$clRed,-16,"Wingdings",$lb("fsBold"))) - d %this.btnAdvancedSort.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont"),$lb(171,337,23,22,"Geavanceerde sortering toepassen.",$lb("akRight","akBottom"),"...","False")) + d %this.btnAdvancedSort.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont"),$lb(188,342,23,22,"Geavanceerde sortering toepassen.",$lb("akRight","akBottom"),"...","False")) d %this.btnAdvancedSort.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clPurple,-16,"Times New Roman MT Extra Bold",$lb("fsBold"))) - d %this.lbSortList.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","ItemHeight","TabOrder","OnMouseDown","OnMouseMove","OnMouseUp"),$lb(12,12,151,349,$lb("akLeft","akTop","akRight","akBottom"),13,0,$lb(%this,"lbSortListMouseDown"),$lb(%this,"lbSortListMouseMove"),$lb(%this,"lbSortListMouseUp"))) + d %this.lbSortList.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","ItemHeight","TabOrder","OnMouseDown","OnMouseMove","OnMouseUp"),$lb(12,12,168,346,$lb("akLeft","akTop","akRight","akBottom"),13,0,$lb(%this,"lbSortListMouseDown"),$lb(%this,"lbSortListMouseMove"),$lb(%this,"lbSortListMouseUp"))) s MApplication.ClientState="Wait" q ]]> @@ -352,8 +351,6 @@ . Do ..lbSortList.Items.Add($LI(List,Loop)) Quit - - ]]> @@ -364,9 +361,7 @@ %Status document literal - @@ -390,7 +385,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -415,7 +409,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -445,7 +438,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -470,7 +462,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -494,7 +485,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -521,7 +511,6 @@ ;End of user code s Args=$lb(Sender,Button,Shift,X,Y) q - ]]> @@ -551,7 +540,6 @@ ;End of user code s Args=$lb(Sender,Shift,X,Y) q - ]]> @@ -577,7 +565,6 @@ ;End of user code s Args=$lb(Sender,Button,Shift,X,Y) q - ]]> Index: UI/PR/GA/KaderDeur.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 1210) +++ UI/PR/GA/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 1499) @@ -865,8 +865,8 @@ ;object DesignForm: TDesignForm ; Left = 0 ; Top = 0 - ; Width = 410 - ; Height = 401 + ; Width = 424 + ; Height = 411 ; Caption = 'Kaderdeur - Ingave' ; Color = clBtnFace ; Font.Charset = DEFAULT_CHARSET @@ -1485,7 +1485,7 @@ s %this.btnWisGADataID=##class(%TMButton).%New($lb(%this.pnlCompareCalc.Address,0)) s %this.btnRecalcKadPrijs=##class(%TMButton).%New($lb(%this.pnlCompareCalc.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","OnClose","PixelsPerInch"),$lb(0,0,410,401,"Kaderdeur - Ingave",$$$clBtnFace,"True","False","poDesktopCenter",$lb(%this,"DesignFormClose"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","KeyPreview","OldCreateOrder","Position","OnClose","PixelsPerInch"),$lb(0,0,424,411,"Kaderdeur - Ingave",$$$clBtnFace,"True","False","poDesktopCenter",$lb(%this,"DesignFormClose"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,12,88,21,"False","Toepassing","tlCenter")) d %this.zzLabel10.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,78,88,21,"False","Hoogte (mm)","tlCenter")) Index: UI/PR/GA/Viewer.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/Viewer.cls.xml (.../Viewer.cls.xml) (revision 1210) +++ UI/PR/GA/Viewer.cls.xml (.../Viewer.cls.xml) (revision 1499) @@ -189,7 +189,7 @@ ;object DesignForm: TDesignForm ; Left = 4 ; Top = 7 - ; Width = 908 + ; Width = 909 ; Height = 567 ; Caption = 'DesignForm' ; Color = clBtnFace @@ -273,7 +273,7 @@ ; TabOrder = 2 ; end ; object btnSluiten: CButton - ; Left = 817 + ; Left = 810 ; Top = 2 ; Width = 75 ; Height = 25 @@ -301,9 +301,9 @@ ; end ; object pnlTreeData: CPanel ; Left = 0 - ; Top = 108 - ; Width = 900 - ; Height = 425 + ; Top = 139 + ; Width = 901 + ; Height = 394 ; Align = alBottom ; Anchors = [akLeft, akTop, akRight, akBottom] ; Caption = 'pnlTreeData' @@ -312,15 +312,15 @@ ; Left = 730 ; Top = 1 ; Width = 3 - ; Height = 423 + ; Height = 392 ; Cursor = crHSplit ; Align = alLeft ; end ; object tvProduct: CTreeView ; Left = 1 ; Top = 1 ; Width = 729 - ; Height = 423 + ; Height = 392 ; Align = alLeft ; Indent = 19 ; TabOrder = 0 @@ -329,8 +329,8 @@ ; object txtTreeData: CMemo ; Left = 733 ; Top = 1 - ; Width = 166 - ; Height = 423 + ; Width = 167 + ; Height = 392 ; Align = alClient ; Lines.Strings = ( ; 'txtTreeData') @@ -341,7 +341,7 @@ ; end ; end ; object rbgDataTonen: CRadioGroup - ; Left = 714 + ; Left = 707 ; Top = 32 ; Width = 177 ; Height = 73 @@ -355,7 +355,7 @@ ; OnClick = rbgDataTonenClick ; end ; object chkShowOutputData: CCheckBox - ; Left = 553 + ; Left = 545 ; Top = 70 ; Width = 161 ; Height = 17 @@ -367,7 +367,7 @@ ; OnClick = chkShowOutputDataClick ; end ; object chkKenmerken: CCheckBox - ; Left = 553 + ; Left = 545 ; Top = 86 ; Width = 161 ; Height = 17 @@ -377,7 +377,7 @@ ; OnClick = chkKenmerkenClick ; end ; object btnRefreshTree: CButton - ; Left = 633 + ; Left = 626 ; Top = 34 ; Width = 75 ; Height = 25 @@ -602,7 +602,7 @@ s %this.btnRefreshTree=##class(%TMButton).%New($lb(%this.Form.Address,0)) s %this.txtProdPrijs=##class(%TMEdit).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","WindowState","OnActivate","OnClose","OnShow","PixelsPerInch"),$lb(4,7,908,567,"DesignForm",$$$clBtnFace,"False","wsMaximized",$lb(%this,"DesignFormActivate"),$lb(%this,"DesignFormClose"),$lb(%this,"DesignFormShow"),96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","WindowState","OnActivate","OnClose","OnShow","PixelsPerInch"),$lb(4,7,909,567,"DesignForm",$$$clBtnFace,"False","wsMaximized",$lb(%this,"DesignFormActivate"),$lb(%this,"DesignFormClose"),$lb(%this,"DesignFormShow"),96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.lblTemplateCbo.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(72,29,41,13,"Temlate:")) d %this.lblProductIDTxt.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(59,53,54,13,"Product ID:")) @@ -613,21 +613,21 @@ d %this.cboTemplate.SetMultiProperty($lb("Left","Top","Width","Height","ItemHeight","TabOrder","Text"),$lb(121,23,353,21,13,0,"cboTemplate")) d %this.txtProductID.SetMultiProperty($lb("Left","Top","Width","Height","Enabled","TabOrder"),$lb(121,51,57,21,"False",1)) d %this.txtMetaStruct.SetMultiProperty($lb("Left","Top","Width","Height","TabOrder"),$lb(121,83,121,21,2)) - d %this.btnSluiten.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(817,2,75,25,$lb("akTop","akRight"),"True","Sluiten",3,$lb(%this,"btnSluitenClick"))) + d %this.btnSluiten.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(810,2,75,25,$lb("akTop","akRight"),"True","Sluiten",3,$lb(%this,"btnSluitenClick"))) d %this.txtProductOms.SetMultiProperty($lb("Left","Top","Width","Height","TabOrder"),$lb(305,51,169,21,4)) d %this.btnSelectProduct.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(183,49,43,25,"Select",5,$lb(%this,"btnSelectProductClick"))) - d %this.pnlTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","Caption","TabOrder"),$lb(0,108,900,425,"alBottom",$lb("akLeft","akTop","akRight","akBottom"),"pnlTreeData",6)) - d %this.zzSplitter1.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Align"),$lb(730,1,3,423,$$$crHSplit,"alLeft")) - d %this.tvProduct.SetMultiProperty($lb("Left","Top","Width","Height","Align","Indent","TabOrder"),$lb(1,1,729,423,"alLeft",19,0)) - d %this.txtTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align"),$lb(733,1,166,423,"alClient")) + d %this.pnlTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","Caption","TabOrder"),$lb(0,139,901,394,"alBottom",$lb("akLeft","akTop","akRight","akBottom"),"pnlTreeData",6)) + d %this.zzSplitter1.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Align"),$lb(730,1,3,392,$$$crHSplit,"alLeft")) + d %this.tvProduct.SetMultiProperty($lb("Left","Top","Width","Height","Align","Indent","TabOrder"),$lb(1,1,729,392,"alLeft",19,0)) + d %this.txtTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align"),$lb(733,1,167,392,"alClient")) d %this.txtTreeData.Lines.SetMultiProperty($lb("Strings"),$lb("txtTreeData")) d %this.txtTreeData.SetMultiProperty($lb("ScrollBars","TabOrder","Visible","WordWrap"),$lb("ssBoth",1,"False","False")) - d %this.rbgDataTonen.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption"),$lb(714,32,177,73,$lb("akTop","akRight")," Data Tonen ")) + d %this.rbgDataTonen.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption"),$lb(707,32,177,73,$lb("akTop","akRight")," Data Tonen ")) d %this.rbgDataTonen.Items.SetMultiProperty($lb("Strings"),$lb("Alleen Treeview"_$C(13,10)_"Treeview en TreeData"_$C(13,10)_"Treeview en KenmerkData")) d %this.rbgDataTonen.SetMultiProperty($lb("TabOrder","OnClick"),$lb(7,$lb(%this,"rbgDataTonenClick"))) - d %this.chkShowOutputData.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Checked","State","TabOrder","Visible","OnClick"),$lb(553,70,161,17,"OutputData Tonen","True","cbChecked",8,"False",$lb(%this,"chkShowOutputDataClick"))) - d %this.chkKenmerken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","Visible","OnClick"),$lb(553,86,161,17,"Kenmerken in OutputData",9,"False",$lb(%this,"chkKenmerkenClick"))) - d %this.btnRefreshTree.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(633,34,75,25,$lb("akTop","akRight"),"True","Refresh Tree",10,$lb(%this,"btnRefreshTreeClick"))) + d %this.chkShowOutputData.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Checked","State","TabOrder","Visible","OnClick"),$lb(545,70,161,17,"OutputData Tonen","True","cbChecked",8,"False",$lb(%this,"chkShowOutputDataClick"))) + d %this.chkKenmerken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","Visible","OnClick"),$lb(545,86,161,17,"Kenmerken in OutputData",9,"False",$lb(%this,"chkKenmerkenClick"))) + d %this.btnRefreshTree.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(626,34,75,25,$lb("akTop","akRight"),"True","Refresh Tree",10,$lb(%this,"btnRefreshTreeClick"))) d %this.txtProdPrijs.SetMultiProperty($lb("Left","Top","Width","Height","Enabled","TabOrder"),$lb(417,83,57,21,"False",11)) s MApplication.ClientState="Wait" q Index: UI/PR/GA/dlgTBStartNew.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/dlgTBStartNew.cls.xml (.../dlgTBStartNew.cls.xml) (revision 1210) +++ UI/PR/GA/dlgTBStartNew.cls.xml (.../dlgTBStartNew.cls.xml) (revision 1499) @@ -85,8 +85,8 @@ ;object DesignForm: TDesignForm ; Left = -1 ; Top = -1 - ; Width = 353 - ; Height = 156 + ; Width = 359 + ; Height = 170 ; Caption = 'Tandem BOX - Start' ; Color = clBtnFace ; Font.Charset = DEFAULT_CHARSET @@ -208,7 +208,7 @@ s %this.cboTemplateCode=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0)) s %this.chkPRO=##class(%TMCheckBox).%New($lb(%this.Form.Address,0)) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","Position","Visible","PixelsPerInch"),$lb(-1,-1,353,156,"Tandem BOX - Start",$$$clBtnFace,"False","poDesktopCenter","True",96)) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","Position","Visible","PixelsPerInch"),$lb(-1,-1,359,170,"Tandem BOX - Start",$$$clBtnFace,"False","poDesktopCenter","True",96)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(6,9,104,21,"False","Design / ladezijden","tlCenter")) d %this.Label1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(6,41,104,21,"False","Template","tlCenter")) Index: UI/PR/GA/EditItemDtls.cls.xml =================================================================== diff -u -r1210 -r1499 --- UI/PR/GA/EditItemDtls.cls.xml (.../EditItemDtls.cls.xml) (revision 1210) +++ UI/PR/GA/EditItemDtls.cls.xml (.../EditItemDtls.cls.xml) (revision 1499) @@ -150,8 +150,8 @@ ; object lvNodeDtls: CListView ; Left = 10 ; Top = 10 - ; Width = 655 - ; Height = 311 + ; Width = 647 + ; Height = 303 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Columns = < ; item @@ -160,7 +160,7 @@ ; end ; item ; Caption = 'Value' - ; Width = 400 + ; Width = 390 ; end ; item ; Caption = 'ParamVal' @@ -174,8 +174,8 @@ ; OnDblClick = lvNodeDtlsDblClick ; end ; object btnClose: CButton - ; Left = 590 - ; Top = 439 + ; Left = 582 + ; Top = 431 ; Width = 75 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -186,8 +186,8 @@ ; end ; object pnlDItemParams: CPanel ; Left = 10 - ; Top = 328 - ; Width = 655 + ; Top = 320 + ; Width = 647 ; Height = 105 ; Anchors = [akLeft, akRight, akBottom] ; TabOrder = 2 @@ -250,7 +250,7 @@ ; object lblDItemInfo: CLabel ; Left = 114 ; Top = 7 - ; Width = 532 + ; Width = 524 ; Height = 13 ; Anchors = [akLeft, akTop, akRight] ; AutoSize = False @@ -340,8 +340,8 @@ ; end ; end ; object btnUpdateAll: CButton - ; Left = 510 - ; Top = 439 + ; Left = 502 + ; Top = 431 ; Width = 75 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -351,10 +351,10 @@ ; end ; object btnFixedRemoveAll: CButton ; Left = 10 - ; Top = 439 + ; Top = 431 ; Width = 115 ; Height = 25 - ; Anchors = [akRight, akBottom] + ; Anchors = [akLeft, akBottom] ; Caption = 'Remove Fixed All' ; TabOrder = 4 ; OnClick = btnFixedRemoveAllClick @@ -464,13 +464,13 @@ s item.Width=150 s item=%this.lvNodeDtls.Columns.Add() s item.Caption="Value" - s item.Width=400 + s item.Width=390 s item=%this.lvNodeDtls.Columns.Add() s item.Caption="ParamVal" s item.Width=100 - d %this.lvNodeDtls.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","HotTrackStyles","ReadOnly","RowSelect","TabOrder","ViewStyle","OnDblClick"),$lb(10,10,655,311,$lb("akLeft","akTop","akRight","akBottom"),$lb(),"True","True",0,"vsReport",$lb(%this,"lvNodeDtlsDblClick"))) - d %this.btnClose.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(590,439,75,25,$lb("akRight","akBottom"),"True","Close",1,$lb(%this,"btnCloseClick"))) - d %this.pnlDItemParams.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder"),$lb(10,328,655,105,$lb("akLeft","akRight","akBottom"),2)) + d %this.lvNodeDtls.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","HotTrackStyles","ReadOnly","RowSelect","TabOrder","ViewStyle","OnDblClick"),$lb(10,10,647,303,$lb("akLeft","akTop","akRight","akBottom"),$lb(),"True","True",0,"vsReport",$lb(%this,"lvNodeDtlsDblClick"))) + d %this.btnClose.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(582,431,75,25,$lb("akRight","akBottom"),"True","Close",1,$lb(%this,"btnCloseClick"))) + d %this.pnlDItemParams.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder"),$lb(10,320,647,105,$lb("akLeft","akRight","akBottom"),2)) d %this.lblParameter.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Caption","ParentFont","OnClick"),$lb(29,55,51,13,$$$crHandPoint,"Parameter:","False",$lb(%this,"lblParameterClick"))) d %this.lblParameter.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clNavy,-11,"MS Sans Serif",$lb("fsUnderline"))) d %this.Label2.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(232,55,77,13,"Huidige waarde:")) @@ -479,7 +479,7 @@ d %this.lblDataItemPnl.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold"))) d %this.Label5.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(26,31,54,13,"Fixed Keys:")) d %this.Label6.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(50,79,30,13,"Mode:")) - d %this.lblDItemInfo.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","AutoSize","Caption"),$lb(114,7,532,13,$lb("akLeft","akTop","akRight"),"False","Label=")) + d %this.lblDItemInfo.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","AutoSize","Caption"),$lb(114,7,524,13,$lb("akLeft","akTop","akRight"),"False","Label=")) d %this.lblDItemInfoLbl.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Caption","ParentFont","OnClick"),$lb(90,7,21,13,$$$crHandPoint,"Info:","False",$lb(%this,"lblDItemInfoLblClick"))) d %this.lblDItemInfoLbl.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clNavy,-11,"MS Sans Serif",$lb("fsUnderline"))) d %this.txtParamKey.SetMultiProperty($lb("Left","Top","Width","Height","ReadOnly","TabOrder"),$lb(90,53,121,21,"True",0)) @@ -490,8 +490,8 @@ d %this.btnFixedUpdate.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(443,77,91,21,"Update Fixed",5,$lb(%this,"btnFixedUpdateClick"))) d %this.btnFixedRemove.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(443,52,91,21,"Remove Fixed",6,$lb(%this,"btnFixedRemoveClick"))) d %this.btnFixedSet.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(123,76,59,21,"Set Fixed",7,$lb(%this,"btnFixedSetClick"))) - d %this.btnUpdateAll.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(510,439,75,25,$lb("akRight","akBottom"),"Update All",3,$lb(%this,"btnUpdateAllClick"))) - d %this.btnFixedRemoveAll.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(10,439,115,25,$lb("akRight","akBottom"),"Remove Fixed All",4,$lb(%this,"btnFixedRemoveAllClick"))) + d %this.btnUpdateAll.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(502,431,75,25,$lb("akRight","akBottom"),"Update All",3,$lb(%this,"btnUpdateAllClick"))) + d %this.btnFixedRemoveAll.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(10,431,115,25,$lb("akLeft","akBottom"),"Remove Fixed All",4,$lb(%this,"btnFixedRemoveAllClick"))) s MApplication.ClientState="Wait" q ]]>