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

Debugger: improved Evaluate/Modify dialog layout

Browse Source
This commit is contained in:
Maxim Ganetsky 2022-07-01 01:09:45 +03:00
parent bf6baffcfe
commit fedddfc9ba
1 changed files with 79 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

158
debugger/evaluatedlg.lfm
View File

@ -1,30 +1,30 @@
object EvaluateDlg: TEvaluateDlg object EvaluateDlg: TEvaluateDlg
Left = 470 Left = 470
Height = 290 Height = 362
Top = 393 Top = 393
Width = 400 Width = 500
ActiveControl = cmbExpression ActiveControl = cmbExpression
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'Evaluate/Modify' Caption = 'Evaluate/Modify'
ClientHeight = 290 ClientHeight = 362
ClientWidth = 400 ClientWidth = 500
Constraints.MinHeight = 200 Constraints.MinHeight = 250
Constraints.MinWidth = 300 Constraints.MinWidth = 375
DesignTimePPI = 120
KeyPreview = True KeyPreview = True
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
LCLVersion = '2.3.0.0'
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ToolBar1 AnchorSideTop.Control = ToolBar1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 8
Height = 15 Height = 20
Top = 47 Top = 58
Width = 59 Width = 73
BorderSpacing.Left = 6 BorderSpacing.Left = 8
BorderSpacing.Top = 3 BorderSpacing.Top = 4
Caption = '&Expression:' Caption = '&Expression:'
Color = clDefault Color = clDefault
FocusControl = cmbExpression FocusControl = cmbExpression
@ -32,14 +32,14 @@ object EvaluateDlg: TEvaluateDlg
end end
object Label2: TLabel object Label2: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbExpression AnchorSideTop.Control = chkTypeCast
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 8
Height = 15 Height = 20
Top = 94 Top = 146
Width = 35 Width = 43
BorderSpacing.Left = 6 BorderSpacing.Left = 8
BorderSpacing.Top = 6 BorderSpacing.Top = 8
Caption = '&Result:' Caption = '&Result:'
Color = clDefault Color = clDefault
FocusControl = txtResult FocusControl = txtResult
@ -48,13 +48,13 @@ object EvaluateDlg: TEvaluateDlg
object lblNewValue: TLabel object lblNewValue: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = cmbNewValue AnchorSideBottom.Control = cmbNewValue
Left = 6 Left = 8
Height = 15 Height = 20
Top = 243 Top = 302
Width = 58 Width = 72
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 8
BorderSpacing.Bottom = 3 BorderSpacing.Bottom = 4
Caption = '&New value:' Caption = '&New value:'
Color = clDefault Color = clDefault
FocusControl = cmbNewValue FocusControl = cmbNewValue
@ -62,12 +62,12 @@ object EvaluateDlg: TEvaluateDlg
end end
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Height = 44 Height = 54
Top = 0 Top = 0
Width = 400 Width = 500
AutoSize = True AutoSize = True
ButtonHeight = 40 ButtonHeight = 50
ButtonWidth = 50 ButtonWidth = 62
Caption = 'ToolBar1' Caption = 'ToolBar1'
EdgeBorders = [ebTop, ebBottom] EdgeBorders = [ebTop, ebBottom]
Indent = 2 Indent = 2
@ -75,7 +75,7 @@ object EvaluateDlg: TEvaluateDlg
TabOrder = 0 TabOrder = 0
TabStop = True TabStop = True
object tbInspect: TToolButton object tbInspect: TToolButton
Left = 154 Left = 190
Top = 2 Top = 2
Caption = '&Inspect' Caption = '&Inspect'
Enabled = False Enabled = False
@ -83,7 +83,7 @@ object EvaluateDlg: TEvaluateDlg
OnClick = tbInspectClick OnClick = tbInspectClick
end end
object tbWatch: TToolButton object tbWatch: TToolButton
Left = 104 Left = 128
Top = 2 Top = 2
AllowAllUp = True AllowAllUp = True
Caption = '&Watch' Caption = '&Watch'
@ -92,7 +92,7 @@ object EvaluateDlg: TEvaluateDlg
OnClick = tbWatchClick OnClick = tbWatchClick
end end
object tbModify: TToolButton object tbModify: TToolButton
Left = 54 Left = 66
Top = 2 Top = 2
Caption = '&Modify' Caption = '&Modify'
Enabled = False Enabled = False
@ -108,14 +108,14 @@ object EvaluateDlg: TEvaluateDlg
OnClick = tbEvaluateClick OnClick = tbEvaluateClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 204 Left = 252
Height = 40 Height = 50
Top = 2 Top = 2
Caption = 'ToolButton1' Caption = 'ToolButton1'
Style = tbsSeparator Style = tbsSeparator
end end
object tbHistory: TToolButton object tbHistory: TToolButton
Left = 212 Left = 262
Top = 2 Top = 2
Caption = 'History' Caption = 'History'
DropdownMenu = mnuHistory DropdownMenu = mnuHistory
@ -128,15 +128,15 @@ object EvaluateDlg: TEvaluateDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 8
Height = 23 Height = 28
Top = 65 Top = 82
Width = 388 Width = 484
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 8
BorderSpacing.Top = 3 BorderSpacing.Top = 4
BorderSpacing.Right = 6 BorderSpacing.Right = 8
ItemHeight = 15 ItemHeight = 20
OnChange = cmbExpressionChange OnChange = cmbExpressionChange
OnKeyDown = cmbExpressionKeyDown OnKeyDown = cmbExpressionKeyDown
OnKeyUp = cmbExpressionKeyUp OnKeyUp = cmbExpressionKeyUp
@ -150,15 +150,15 @@ object EvaluateDlg: TEvaluateDlg
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lblNewValue AnchorSideBottom.Control = lblNewValue
Left = 6 Left = 8
Height = 125 Height = 124
Top = 112 Top = 170
Width = 388 Width = 484
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 8
BorderSpacing.Top = 3 BorderSpacing.Top = 4
BorderSpacing.Right = 6 BorderSpacing.Right = 8
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 8
ScrollBars = ssAutoVertical ScrollBars = ssAutoVertical
TabOrder = 3 TabOrder = 3
end end
@ -168,52 +168,52 @@ object EvaluateDlg: TEvaluateDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 8
Height = 23 Height = 28
Top = 261 Top = 326
Width = 388 Width = 484
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 8
BorderSpacing.Right = 6 BorderSpacing.Right = 8
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 8
ItemHeight = 15 ItemHeight = 20
OnKeyDown = cmbNewValueKeyDown OnKeyDown = cmbNewValueKeyDown
TabOrder = 4 TabOrder = 4
end end
object chkTypeCast: TCheckBox object chkTypeCast: TCheckBox
AnchorSideTop.Control = Label1 AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrCenter AnchorSideTop.Control = cmbExpression
AnchorSideRight.Control = chkFpDbgConv AnchorSideTop.Side = asrBottom
Left = 203 Left = 8
Height = 19 Height = 24
Top = 45 Top = 114
Width = 85 Width = 103
Anchors = [akTop, akRight] BorderSpacing.Left = 8
BorderSpacing.Right = 6 BorderSpacing.Top = 4
Caption = 'chkTypeCast' Caption = 'chkTypeCast'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 1 TabOrder = 1
end end
object chkFpDbgConv: TCheckBox object chkFpDbgConv: TCheckBox
AnchorSideTop.Control = Label1 AnchorSideLeft.Control = chkTypeCast
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkTypeCast
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 294 Left = 119
Height = 19 Height = 24
Top = 45 Top = 114
Width = 100 Width = 121
Anchors = [akTop, akRight] BorderSpacing.Left = 8
BorderSpacing.Right = 6
Caption = 'chkFpDbgConv' Caption = 'chkFpDbgConv'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 5 TabOrder = 5
end end
object mnuHistory: TPopupMenu object mnuHistory: TPopupMenu
Left = 72 Left = 90
Top = 136 Top = 170
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'None' Caption = 'None'
OnClick = MenuItem1Click OnClick = MenuItem1Click