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 - ]]>