mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-04 04:37:35 +01:00
ec062ef3a0
- allow Add watch always - if Add watch is called outside source editor then show the Add Watch dialog - pass expression under the cursor to the Add Watch dialog as a default value git-svn-id: trunk@21974 -
167 lines
3.9 KiB
Plaintext
167 lines
3.9 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.29'
|
|
object lblExpression: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = txtExpression
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 14
|
|
Top = 9
|
|
Width = 57
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Expression:'
|
|
ParentColor = False
|
|
end
|
|
object lblRepCount: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = txtRepCount
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 14
|
|
Top = 36
|
|
Width = 72
|
|
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 = 14
|
|
Top = 36
|
|
Width = 31
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Digits:'
|
|
ParentColor = False
|
|
end
|
|
object txtExpression: TEdit
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 105
|
|
Height = 21
|
|
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 = 21
|
|
Top = 33
|
|
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 = 208
|
|
Height = 21
|
|
Top = 33
|
|
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 = 17
|
|
Top = 60
|
|
Width = 56
|
|
AllowGrayed = True
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Enabled'
|
|
TabOrder = 5
|
|
end
|
|
object chkAllowFunc: TCheckBox
|
|
AnchorSideTop.Control = txtRepCount
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 105
|
|
Height = 17
|
|
Top = 60
|
|
Width = 112
|
|
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 = 83
|
|
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 = 60
|
|
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 = 37
|
|
Top = 167
|
|
Width = 408
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
TabOrder = 6
|
|
ShowButtons = [pbOK, pbCancel, pbHelp]
|
|
ShowBevel = False
|
|
end
|
|
end
|