paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 06:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: display format, improve layout for array and options. Fix calculating min-constraints

Browse Source
This commit is contained in:
Martin 2024-09-26 18:51:40 +02:00
parent f613a7acf6
commit 4ed0529400
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/packages/idedebugger/frames/displayformatconfigframe.lfm
View File

@ -597,6 +597,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 21
Width = 89
Caption = 'lbNumSepGroup'
Constraints.MinWidth = 1
end
object PanelNumSepGroup: TPanel
AnchorSideLeft.Control = lbNumSepGroup
@ -629,6 +630,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Width = 54
Caption = 'rbNumSepNone'
Checked = True
Constraints.MinWidth = 1
TabOrder = 0
TabStop = True
OnChange = FormatNumGroupChanged
@ -639,6 +641,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 0
Width = 50
Caption = 'rbNumSepByte'
Constraints.MinWidth = 1
TabOrder = 1
OnChange = FormatNumGroupChanged
end
@ -648,6 +651,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 0
Width = 54
Caption = 'rbNumSepWord'
Constraints.MinWidth = 1
TabOrder = 2
OnChange = FormatNumGroupChanged
end
@ -657,6 +661,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 0
Width = 53
Caption = 'rbNumSepLong'
Constraints.MinWidth = 1
TabOrder = 3
OnChange = FormatNumGroupChanged
end
@ -1138,6 +1143,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 21
Width = 62
Caption = 'lbSepGroup'
Constraints.MinWidth = 1
end
object PanelNum2SepGroup: TPanel
AnchorSideLeft.Control = lbNum2SepGroup
@ -1169,6 +1175,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Width = 62
Caption = 'rbNumSepNone'
Checked = True
Constraints.MinWidth = 1
TabOrder = 0
TabStop = True
OnChange = FormatNumGroupChanged
@ -1179,6 +1186,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 0
Width = 58
Caption = 'rbNumSepByte'
Constraints.MinWidth = 1
TabOrder = 1
OnChange = FormatNumGroupChanged
end
@ -1188,6 +1196,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 0
Width = 62
Caption = 'rbNumSepWord'
Constraints.MinWidth = 1
TabOrder = 2
OnChange = FormatNumGroupChanged
end
@ -1197,6 +1206,7 @@ object DisplayFormatFrame: TDisplayFormatFrame
Top = 0
Width = 60
Caption = 'rbNumSepLong'
Constraints.MinWidth = 1
TabOrder = 3
OnChange = FormatNumGroupChanged
end

9
ide/packages/idedebugger/frames/displayformatconfigframe.pas
View File

@ -1328,8 +1328,6 @@ begin
lbOverrideAddressFormat.Caption := {DispFormatDlgBtnAdrFormat+ ': ' +} DispFormatDlgBtnStruct + ', ' + DispFormatDlgBtnPointer
else
lbOverrideAddressFormat.Caption := DispFormatDlgBtnAdrFormat;
UpdateConstraints;
end;
procedure TDisplayFormatFrame.UpdateNumDigitPanel;
@ -1715,13 +1713,17 @@ begin
if (not (Components[i] is TControl)) then
Continue;
c := TControl(Components[i]);
if (Trim(c.Caption) = '') or
if (not ((c is TCheckBox) or (c is TRadioButton) or (c is TLabel) or (c is TCustomEdit))) or
(Trim(c.Caption) = '') or
(not c.IsVisible) or
(c.Constraints.MinWidth > 0) or
((c is TLabel) and (TLabel(c).WordWrap))
then
Continue;
px := 0;
py := 0;
c.InvalidatePreferredSize;
c.GetPreferredSize(px, py);
if (px > c.Constraints.MinWidth) and
((c.Constraints.MaxWidth = 0) or (px < c.Constraints.MaxWidth))
@ -2221,6 +2223,7 @@ begin
cbMemDump.State := BoolsetToCBState(FormatIsMemDump, False);
UpdateConstraints;
finally
EnableAutoSizing;