lazarus/debugger/watchpropertydlg.lfm

201 lines
5.0 KiB
Plaintext

object WatchPropertyDlg: TWatchPropertyDlg
Left = 513
Height = 281
Top = 271
Width = 428
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Watch Properties'
ClientHeight = 281
ClientWidth = 428
Constraints.MinWidth = 400
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object rgStyle: TRadioGroup
Left = 6
Height = 119
Top = 124
Width = 416
Align = alClient
AutoFill = True
AutoSize = True
BorderSpacing.Left = 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 = 99
ClientWidth = 412
Columns = 3
ItemIndex = 7
Items.Strings = (
'Character'
'String'
'Decimal'
'Hexadecimal'
'Unsigned'
'Pointer'
'Record/Structure'
'Default'
'Memory Dump'
'Binary'
)
TabOrder = 1
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 26
Top = 249
Width = 416
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = btnOKClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = btnHelpClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False
end
object PanelTop: TPanel
Left = 0
Height = 124
Top = 0
Width = 428
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 124
ClientWidth = 428
TabOrder = 0
object lblExpression: TLabel
AnchorSideLeft.Control = PanelTop
AnchorSideTop.Control = txtExpression
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 10
Width = 59
BorderSpacing.Left = 6
Caption = 'Expression:'
ParentColor = False
end
object txtExpression: TEdit
AnchorSideLeft.Control = lblExpression
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = PanelTop
AnchorSideRight.Side = asrBottom
Left = 71
Height = 23
Top = 6
Width = 351
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
OnChange = txtExpressionChange
TabOrder = 0
end
object lblRepCount: TLabel
AnchorSideLeft.Control = PanelTop
AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 39
Width = 75
BorderSpacing.Left = 6
Caption = 'Repeat Count:'
ParentColor = False
end
object txtRepCount: TEdit
AnchorSideLeft.Control = lblRepCount
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = txtExpression
AnchorSideTop.Side = asrBottom
Left = 87
Height = 23
Top = 35
Width = 60
BorderSpacing.Left = 6
BorderSpacing.Top = 6
TabOrder = 1
Text = '0'
end
object txtDigits: TEdit
AnchorSideLeft.Control = lblDigits
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrCenter
Left = 198
Height = 23
Top = 35
Width = 60
BorderSpacing.Left = 6
BorderSpacing.Top = 6
TabOrder = 2
Text = '0'
end
object lblDigits: TLabel
AnchorSideLeft.Control = txtRepCount
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblRepCount
AnchorSideTop.Side = asrCenter
Left = 159
Height = 15
Top = 39
Width = 33
BorderSpacing.Left = 12
Caption = 'Digits:'
ParentColor = False
end
object chkEnabled: TCheckBox
AnchorSideTop.Control = txtRepCount
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 61
Width = 62
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = 'Enabled'
TabOrder = 3
end
object chkAllowFunc: TCheckBox
AnchorSideLeft.Control = chkEnabled
AnchorSideTop.Control = chkEnabled
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 80
Width = 128
Caption = 'Allow Function Calls'
TabOrder = 4
end
object chkUseInstanceClass: TCheckBox
AnchorSideLeft.Control = chkEnabled
AnchorSideTop.Control = chkAllowFunc
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 99
Width = 129
BorderSpacing.Bottom = 6
Caption = 'chkUseInstanceClass'
TabOrder = 5
end
end
end