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

Merged revision(s) 55411 #72686121fa from trunk:

Browse Source 
Debugger: Fix anchoring in WatchPropertyDlg.
........

git-svn-id: branches/fixes_1_8@55416 -
This commit is contained in:
maxim 2017-06-29 22:55:20 +00:00
parent 9f13d8f316
commit 420db578c0
1 changed files with 38 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
debugger/watchpropertydlg.lfm
View File

@ -10,11 +10,11 @@ object WatchPropertyDlg: TWatchPropertyDlg
ClientWidth = 428 ClientWidth = 428
Constraints.MinWidth = 400 Constraints.MinWidth = 400
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
object rgStyle: TRadioGroup object rgStyle: TRadioGroup
Left = 6 Left = 6
Height = 87 Height = 92
Top = 142 Top = 139
Width = 416 Width = 416
Align = alClient Align = alClient
AutoFill = True AutoFill = True
@ -30,7 +30,7 @@ object WatchPropertyDlg: TWatchPropertyDlg
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 68 ClientHeight = 65
ClientWidth = 412 ClientWidth = 412
Columns = 3 Columns = 3
ItemIndex = 7 ItemIndex = 7
@ -49,8 +49,8 @@ object WatchPropertyDlg: TWatchPropertyDlg
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 29 Height = 27
Top = 235 Top = 237
Width = 416 Width = 416
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -69,13 +69,13 @@ object WatchPropertyDlg: TWatchPropertyDlg
end end
object PanelTop: TPanel object PanelTop: TPanel
Left = 0 Left = 0
Height = 142 Height = 139
Top = 0 Top = 0
Width = 428 Width = 428
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 142 ClientHeight = 139
ClientWidth = 428 ClientWidth = 428
TabOrder = 0 TabOrder = 0
object lblExpression: TLabel object lblExpression: TLabel
@ -83,9 +83,9 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideTop.Control = txtExpression AnchorSideTop.Control = txtExpression
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 15
Top = 11 Top = 13
Width = 78 Width = 70
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Expression:' Caption = 'Expression:'
ParentColor = False ParentColor = False
@ -95,10 +95,10 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = PanelTop AnchorSideRight.Control = PanelTop
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 90 Left = 82
Height = 27 Height = 29
Top = 6 Top = 6
Width = 332 Width = 340
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -110,9 +110,9 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideTop.Control = txtRepCount AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 15
Top = 44 Top = 48
Width = 95 Width = 86
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Repeat Count:' Caption = 'Repeat Count:'
ParentColor = False ParentColor = False
@ -122,9 +122,9 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = txtExpression AnchorSideTop.Control = txtExpression
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 107 Left = 98
Height = 27 Height = 29
Top = 39 Top = 41
Width = 60 Width = 60
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -136,9 +136,9 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = txtRepCount AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 228 Left = 215
Height = 27 Height = 29
Top = 39 Top = 41
Width = 60 Width = 60
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -150,22 +150,23 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblRepCount AnchorSideTop.Control = lblRepCount
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 179 Left = 170
Height = 17 Height = 15
Top = 44 Top = 48
Width = 43 Width = 39
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Digits:' Caption = 'Digits:'
ParentColor = False ParentColor = False
end end
object chkEnabled: TCheckBox object chkEnabled: TCheckBox
AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 20
Top = 64 Top = 73
Width = 80 Width = 77
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 3
Caption = 'Enabled' Caption = 'Enabled'
TabOrder = 3 TabOrder = 3
end end
@ -174,9 +175,9 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideTop.Control = chkEnabled AnchorSideTop.Control = chkEnabled
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 20
Top = 88 Top = 93
Width = 160 Width = 147
AllowGrayed = True AllowGrayed = True
Caption = 'Allow Function Calls' Caption = 'Allow Function Calls'
TabOrder = 4 TabOrder = 4
@ -186,9 +187,9 @@ object WatchPropertyDlg: TWatchPropertyDlg
AnchorSideTop.Control = chkAllowFunc AnchorSideTop.Control = chkAllowFunc
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 20
Top = 112 Top = 113
Width = 165 Width = 155
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'chkUseInstanceClass' Caption = 'chkUseInstanceClass'
TabOrder = 5 TabOrder = 5