paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 12:29: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

75
debugger/watchpropertydlg.lfm
View File

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