lazarus/debugger/watchpropertydlg.lfm
marc 616b9a6473 * Fixed anchors and removed bevel
git-svn-id: trunk@18258 -
2009-01-11 17:26:33 +00:00

169 lines
4.0 KiB
Plaintext

object WatchPropertyDlg: TWatchPropertyDlg
Left = 331
Height = 210
Top = 184
Width = 420
ActiveControl = chkAllowFunc
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Watch Properties'
ClientHeight = 210
ClientWidth = 420
Position = poScreenCenter
LCLVersion = '0.9.27'
object lblExpression: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = txtExpression
AnchorSideTop.Side = asrCenter
Left = 6
Height = 13
Top = 11
Width = 65
BorderSpacing.Left = 6
Caption = 'Expression:'
ParentColor = False
end
object lblRepCount: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrCenter
Left = 6
Height = 13
Top = 40
Width = 80
BorderSpacing.Left = 6
Caption = 'Repeat Count:'
ParentColor = False
end
object lblDigits: TLabel
AnchorSideLeft.Control = txtRepCount
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = txtDigits
AnchorSideTop.Side = asrCenter
Left = 171
Height = 13
Top = 40
Width = 35
BorderSpacing.Left = 6
Caption = 'Digits:'
ParentColor = False
end
object txtExpression: TEdit
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 105
Height = 23
Top = 6
Width = 309
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
TabOrder = 1
end
object txtRepCount: TEdit
AnchorSideTop.Control = txtExpression
AnchorSideTop.Side = asrBottom
Left = 105
Height = 23
Top = 35
Width = 60
BorderSpacing.Top = 6
TabOrder = 2
Text = '0'
end
object txtDigits: TEdit
AnchorSideLeft.Control = lblDigits
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = txtExpression
AnchorSideTop.Side = asrBottom
Left = 212
Height = 23
Top = 35
Width = 60
BorderSpacing.Left = 6
BorderSpacing.Top = 6
TabOrder = 4
Text = '0'
end
object chkEnabled: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkAllowFunc
Left = 6
Height = 20
Top = 64
Width = 70
AllowGrayed = True
BorderSpacing.Left = 6
Caption = 'Enabled'
TabOrder = 5
end
object chkAllowFunc: TCheckBox
AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrBottom
Left = 105
Height = 20
Top = 64
Width = 140
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'Allow Function Calls'
TabOrder = 0
end
object rgStyle: TRadioGroup
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkAllowFunc
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 78
Top = 90
Width = 408
Anchors = [akTop, akLeft, akRight]
AutoFill = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Style'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 61
ClientWidth = 404
Columns = 3
ItemIndex = 7
Items.Strings = (
'Character'
'String'
'Decimal'
'Hexadecimal'
'Floating Point'
'Pointer'
'Record/Structure'
'Default'
'Memory Dump'
)
TabOrder = 3
end
object ButtonPanel: TButtonPanel
AnchorSideTop.Control = rgStyle
AnchorSideTop.Side = asrBottom
Left = 6
Height = 30
Top = 174
Width = 408
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
TabOrder = 6
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False
end
end