paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Improve layout of Console In/Output window. align splitter right. Issue #39452, patch by bald zhang.

Browse Source
This commit is contained in:
Juha 2021-11-04 12:41:31 +02:00
parent 6b24a4e57c
commit 87927fa1ed
2 changed files with 126 additions and 151 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

269
debugger/pseudoterminaldlg.lfm
View File

@ -1,17 +1,17 @@
object PseudoConsoleDlg: TPseudoConsoleDlg object PseudoConsoleDlg: TPseudoConsoleDlg
Left = 438 Left = 226
Height = 480 Height = 480
Top = 321 Top = 118
Width = 800 Width = 800
Caption = 'Console' Caption = 'Console'
ClientHeight = 480 ClientHeight = 480
ClientWidth = 800 ClientWidth = 800
DockSite = True DockSite = True
OnResize = FormResize OnResize = FormResize
LCLVersion = '1.9.0.0' LCLVersion = '2.2.0.3'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 460 Height = 458
Top = 0 Top = 0
Width = 800 Width = 800
ActivePage = TabSheetRaw ActivePage = TabSheetRaw
@ -20,12 +20,12 @@ object PseudoConsoleDlg: TPseudoConsoleDlg
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Formatted' Caption = 'Formatted'
ClientHeight = 430 ClientHeight = 426
ClientWidth = 790 ClientWidth = 796
TabVisible = False TabVisible = False
object Panel1: TPanel object Panel1: TPanel
Left = 470 Left = 636
Height = 430 Height = 426
Top = 0 Top = 0
Width = 160 Width = 160
Align = alRight Align = alRight
@ -35,160 +35,137 @@ object PseudoConsoleDlg: TPseudoConsoleDlg
end end
object TabSheetRaw: TTabSheet object TabSheetRaw: TTabSheet
Caption = 'Raw Output' Caption = 'Raw Output'
ClientHeight = 430 ClientHeight = 426
ClientWidth = 790 ClientWidth = 796
object PairSplitterRaw: TPairSplitter object PanelRawOptions: TPanel
Left = 0 Left = 596
Height = 430 Height = 426
Top = 0 Top = 0
Width = 790 Width = 200
Align = alClient Align = alRight
Position = 600 ClientHeight = 426
object PairSplitterRawLeft: TPairSplitterSide ClientWidth = 200
Cursor = crArrow TabOrder = 1
Left = 0 object RadioGroupRight: TRadioGroup
Height = 430 Left = 1
Top = 0 Height = 108
Width = 600 Top = 79
ClientWidth = 600 Width = 198
ClientHeight = 430 Align = alTop
Constraints.MinWidth = 200 AutoFill = True
object Memo1: TMemo AutoSize = True
Left = 4 Caption = 'Output Style'
Height = 422 ChildSizing.LeftRightSpacing = 6
Top = 4 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
Width = 592 ChildSizing.EnlargeVertical = crsHomogenousChildResize
Align = alClient ChildSizing.ShrinkHorizontal = crsScaleChilds
BorderSpacing.Around = 4 ChildSizing.ShrinkVertical = crsScaleChilds
Font.Name = 'Monospace' ChildSizing.Layout = cclLeftToRightThenTopToBottom
OnUTF8KeyPress = Memo1UTF8KeyPress ChildSizing.ControlsPerLine = 1
ParentFont = False ClientHeight = 84
ReadOnly = True ClientWidth = 192
ScrollBars = ssAutoBoth ItemIndex = 0
TabOrder = 0 Items.Strings = (
WantTabs = True 'Unformatted'
end 'C0 as Control Pictures'
'C0 as ISO 2047'
'Hex + ASCII'
)
OnSelectionChanged = RadioGroupRightSelectionChanged
TabOrder = 1
end end
object PairSplitterRawRight: TPairSplitterSide object CheckGroupRight: TCheckGroup
Cursor = crArrow Left = 1
Left = 605 Height = 78
Height = 430 Top = 1
Top = 0 Width = 198
Width = 200 Align = alTop
ClientWidth = 200 AutoFill = True
ClientHeight = 430 AutoSize = True
Constraints.MinWidth = 200 Caption = 'Decorations'
OnResize = PairSplitterRawRightResize ChildSizing.LeftRightSpacing = 6
object RadioGroupRight: TRadioGroup ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 54
ClientWidth = 192
Enabled = False
Items.Strings = (
'Line numbers'
'C1 as C0 + Underbar'
)
TabOrder = 0
Data = {
020000000202
}
end
object PanelRightBelowCG: TPanel
Left = 1
Height = 238
Top = 187
Width = 198
Align = alClient
BevelOuter = bvNone
ClientHeight = 238
ClientWidth = 198
TabOrder = 2
object GroupBoxRight: TGroupBox
Left = 0 Left = 0
Height = 103 Height = 64
Top = 0 Top = 0
Width = 200 Width = 198
Align = alTop Align = alTop
AutoFill = True Caption = 'Line limit'
AutoSize = True ClientHeight = 40
Caption = 'Output Style' ClientWidth = 192
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 84
ClientWidth = 198
ItemIndex = 0
Items.Strings = (
'Unformatted'
'C0 as Control Pictures'
'C0 as ISO 2047'
'Hex + ASCII'
)
OnSelectionChanged = RadioGroupRightSelectionChanged
TabOrder = 1
end
object PanelRightBelowRG: TPanel
Left = 0
Height = 327
Top = 103
Width = 200
Align = alClient
BevelOuter = bvNone
ClientHeight = 327
ClientWidth = 200
TabOrder = 0 TabOrder = 0
object CheckGroupRight: TCheckGroup object MaskEdit1: TMaskEdit
Left = 0 Left = 9
Height = 73 Height = 23
Top = 0 Top = 0
Width = 200 Width = 128
Align = alTop MaxLength = 7
AutoFill = True
AutoSize = True
Caption = 'Decorations'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 54
ClientWidth = 198
Enabled = False
Items.Strings = (
'Line numbers'
'C1 as C0 + Underbar'
)
TabOrder = 1
Data = {
020000000202
}
end
object PanelRightBelowCG: TPanel
Left = 0
Height = 254
Top = 73
Width = 200
Align = alClient
BevelOuter = bvNone
ClientHeight = 254
ClientWidth = 200
TabOrder = 0 TabOrder = 0
object GroupBoxRight: TGroupBox EditMask = '#######'
Left = 0 Text = '5000 '
Height = 64 SpaceChar = '_'
Top = 0
Width = 200
Align = alTop
Caption = 'Line limit'
ClientHeight = 45
ClientWidth = 198
TabOrder = 0
object MaskEdit1: TMaskEdit
Left = 9
Height = 30
Top = 0
Width = 128
CharCase = ecNormal
MaxLength = 7
TabOrder = 0
EditMask = '#######'
Text = '5000 '
SpaceChar = '_'
end
end
end end
end end
end end
end end
object Splitter1: TSplitter
Left = 591
Height = 426
Top = 0
Width = 5
Align = alRight
ResizeAnchor = akRight
end
object Memo1: TMemo
Left = 4
Height = 418
Top = 4
Width = 583
Align = alClient
BorderSpacing.Around = 4
Font.Name = 'Monospace'
OnUTF8KeyPress = Memo1UTF8KeyPress
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
WantTabs = True
end
end end
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 20 Height = 22
Top = 460 Top = 458
Width = 800 Width = 800
Panels = < Panels = <
item item

8
debugger/pseudoterminaldlg.pp
View File

@ -36,7 +36,7 @@ interface
uses uses
Classes, SysUtils, StrUtils, Classes, SysUtils, StrUtils,
// LCL // LCL
Graphics, Forms, StdCtrls, LCLType, ComCtrls, ExtCtrls, MaskEdit, PairSplitter, Graphics, Forms, StdCtrls, LCLType, ComCtrls, ExtCtrls, MaskEdit,
// LazUtils // LazUtils
LazStringUtils, LazLoggerBase, LazStringUtils, LazLoggerBase,
// IdeIntf // IdeIntf
@ -54,13 +54,11 @@ type
MaskEdit1: TMaskEdit; MaskEdit1: TMaskEdit;
Memo1: TMemo; Memo1: TMemo;
PageControl1: TPageControl; PageControl1: TPageControl;
PairSplitterRaw: TPairSplitter;
PairSplitterRawLeft: TPairSplitterSide;
PairSplitterRawRight: TPairSplitterSide;
Panel1: TPanel; Panel1: TPanel;
PanelRightBelowRG: TPanel; PanelRawOptions: TPanel;
PanelRightBelowCG: TPanel; PanelRightBelowCG: TPanel;
RadioGroupRight: TRadioGroup; RadioGroupRight: TRadioGroup;
Splitter1: TSplitter;
StatusBar1: TStatusBar; StatusBar1: TStatusBar;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
TabSheetRaw: TTabSheet; TabSheetRaw: TTabSheet;