Index: UI/Debug/OutputWin/MainForm.cls.xml =================================================================== diff -u -r1074 -r4397 --- UI/Debug/OutputWin/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1074) +++ UI/Debug/OutputWin/MainForm.cls.xml (.../MainForm.cls.xml) (revision 4397) @@ -425,8 +425,8 @@ ;object DesignForm: TDesignForm ; Left = 14 ; Top = 18 - ; Width = 322 - ; Height = 205 + ; Width = 335 + ; Height = 237 ; Anchors = [akRight, akBottom] ; Caption = 'DEBUG - Output' ; Color = clBtnFace @@ -448,7 +448,7 @@ ; TextHeight = 13 ; object lblStatus: CLabel ; Left = 89 - ; Top = 149 + ; Top = 172 ; Width = 45 ; Height = 16 ; Alignment = taCenter @@ -476,7 +476,7 @@ ; end ; object btnStartSMWrap: CButton ; Left = 2 - ; Top = 145 + ; Top = 168 ; Width = 75 ; Height = 25 ; Hint = 'Ctrl-M' @@ -494,8 +494,8 @@ ; OnClick = btnStartSMWrapClick ; end ; object btnClearMsgs: CButton - ; Left = 169 - ; Top = 145 + ; Left = 178 + ; Top = 168 ; Width = 67 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -504,7 +504,7 @@ ; OnClick = btnClearMsgsClick ; end ; object pnlCommands: CPanel - ; Left = 155 + ; Left = 164 ; Top = 1 ; Width = 153 ; Height = 30 @@ -529,8 +529,8 @@ ; end ; end ; object btnClose: CButton - ; Left = 241 - ; Top = 145 + ; Left = 250 + ; Top = 168 ; Width = 67 ; Height = 25 ; Anchors = [akRight, akBottom] @@ -542,8 +542,8 @@ ; object pnlResizeOutput: CPanel ; Left = 1 ; Top = 34 - ; Width = 308 - ; Height = 109 + ; Width = 317 + ; Height = 132 ; Anchors = [akLeft, akTop, akRight, akBottom] ; BevelOuter = bvNone ; Caption = 'pnlResizeOutput' @@ -554,8 +554,8 @@ ; object reOutput: CRichEdit ; Left = 0 ; Top = 0 - ; Width = 308 - ; Height = 109 + ; Width = 317 + ; Height = 132 ; Align = alClient ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText @@ -572,8 +572,8 @@ ; end ; object pnlMoreMsgs: CPanel ; Left = 3 - ; Top = 83 - ; Width = 302 + ; Top = 106 + ; Width = 311 ; Height = 23 ; Anchors = [akLeft, akRight, akBottom] ; BevelOuter = bvNone @@ -1036,29 +1036,29 @@ s %this.pmiTlExit=##class(%TMMenuItem).%New($lb(%this.Form.Address,0)) d %this.pmuTools.Items.Add(%this.pmiTlExit) s MApplication.ClientState="NoWait" - d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Color","FormStyle","KeyPreview","OldCreateOrder"),$lb(14,18,322,205,$lb("akRight","akBottom"),"DEBUG - Output",$$$clBtnFace,"fsStayOnTop","True","False")) + d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Color","FormStyle","KeyPreview","OldCreateOrder"),$lb(14,18,335,237,$lb("akRight","akBottom"),"DEBUG - Output",$$$clBtnFace,"fsStayOnTop","True","False")) d %this.Form.Constraints.SetMultiProperty($lb("MinHeight","MinWidth"),$lb(110,200)) d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) s %this.Form.PopupMenu=%this.pmuTools d %this.Form.SetMultiProperty($lb("OnClose","OnCloseQuery","OnShow","PixelsPerInch"),$lb($lb(%this,"DesignFormClose"),$lb(%this,"DesignFormCloseQuery"),$lb(%this,"DesignFormShow"),96)) - d %this.lblStatus.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","Anchors","AutoSize","Caption","Color","ParentColor","ParentFont","Layout"),$lb(89,149,45,16,"taCenter",$lb("akLeft","akBottom"),"False","Active",$$$clLime,"False","False","tlCenter")) + d %this.lblStatus.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","Anchors","AutoSize","Caption","Color","ParentColor","ParentFont","Layout"),$lb(89,172,45,16,"taCenter",$lb("akLeft","akBottom"),"False","Active",$$$clLime,"False","False","tlCenter")) d %this.lblStatus.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold"))) d %this.btnMenuFont.SetMultiProperty($lb("Left","Top","Width","Height"),$lb(3,5,50,22)) s %this.btnMenuFont.DropdownMenu=%this.pmnuFont d %this.btnMenuFont.SetMultiProperty($lb("Caption","Flat"),$lb("Font","False")) - d %this.btnStartSMWrap.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","ParentShowHint","ShowHint","TabOrder","OnClick"),$lb(2,145,75,25,"Ctrl-M",$lb("akLeft","akBottom"),"Start SMWrap","False","False","True",2,$lb(%this,"btnStartSMWrapClick"))) + d %this.btnStartSMWrap.SetMultiProperty($lb("Left","Top","Width","Height","Hint","Anchors","Caption","ParentFont","ParentShowHint","ShowHint","TabOrder","OnClick"),$lb(2,168,75,25,"Ctrl-M",$lb("akLeft","akBottom"),"Start SMWrap","False","False","True",2,$lb(%this,"btnStartSMWrapClick"))) d %this.btnStartSMWrap.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb())) - d %this.btnClearMsgs.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(169,145,67,25,$lb("akRight","akBottom"),"Alles wissen",3,$lb(%this,"btnClearMsgsClick"))) - d %this.pnlCommands.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder"),$lb(155,1,153,30,$lb("akTop","akRight"),1)) + d %this.btnClearMsgs.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(178,168,67,25,$lb("akRight","akBottom"),"Alles wissen",3,$lb(%this,"btnClearMsgsClick"))) + d %this.pnlCommands.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","TabOrder"),$lb(164,1,153,30,$lb("akTop","akRight"),1)) d %this.btnMenuCmds.SetMultiProperty($lb("Left","Top","Width","Height"),$lb(79,4,71,22)) s %this.btnMenuCmds.DropdownMenu=%this.pmnuCmds d %this.btnMenuCmds.SetMultiProperty($lb("Caption","Flat"),$lb("CMDs","False")) d %this.chkClipboard.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(5,8,68,17,"Clipboard",0)) - d %this.btnClose.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(241,145,67,25,$lb("akRight","akBottom"),"True","Sluiten",4,$lb(%this,"btnCloseClick"))) - d %this.pnlResizeOutput.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","Caption","Color","Ctl3D","ParentCtl3D","TabOrder"),$lb(1,34,308,109,$lb("akLeft","akTop","akRight","akBottom"),"bvNone","pnlResizeOutput",8421440,"False","False",0)) - d %this.reOutput.SetMultiProperty($lb("Left","Top","Width","Height","Align","HideSelection","ParentFont","ParentShowHint","ScrollBars","ShowHint","TabOrder","WordWrap"),$lb(0,0,308,109,"alClient","False","False","False","ssBoth","False",0,"False")) + d %this.btnClose.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(250,168,67,25,$lb("akRight","akBottom"),"True","Sluiten",4,$lb(%this,"btnCloseClick"))) + d %this.pnlResizeOutput.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","Caption","Color","Ctl3D","ParentCtl3D","TabOrder"),$lb(1,34,317,132,$lb("akLeft","akTop","akRight","akBottom"),"bvNone","pnlResizeOutput",8421440,"False","False",0)) + d %this.reOutput.SetMultiProperty($lb("Left","Top","Width","Height","Align","HideSelection","ParentFont","ParentShowHint","ScrollBars","ShowHint","TabOrder","WordWrap"),$lb(0,0,317,132,"alClient","False","False","False","ssBoth","False",0,"False")) d %this.reOutput.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clWindowText,-11,"Courier New",$lb())) - d %this.pnlMoreMsgs.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","BorderStyle","Color","TabOrder","Visible"),$lb(3,83,302,23,$lb("akLeft","akRight","akBottom"),"bvNone","bsSingle",$$$clGreen,1,"False")) + d %this.pnlMoreMsgs.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","BevelOuter","BorderStyle","Color","TabOrder","Visible"),$lb(3,106,311,23,$lb("akLeft","akRight","akBottom"),"bvNone","bsSingle",$$$clGreen,1,"False")) d %this.Label1.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","Transparent"),$lb(4,4,66,13,"More Msgs:","False","True")) d %this.Label1.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWhite,-11,"MS Sans Serif",$lb("fsBold"))) d %this.btnContinu.SetMultiProperty($lb("Left","Top","Width","Height","Color","Caption","Opaque","ParentFont","OnClick"),$lb(188,3,63,15,$$$clGreen,"Continu","False","False",$lb(%this,"btnContinuClick")))