mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-03 11:58:45 +02:00

- add ShowInfoBox option - add appropriate events and handlers to the object inspector (showing actual help is in todo) git-svn-id: trunk@17471 -
610 lines
17 KiB
Plaintext
610 lines
17 KiB
Plaintext
inherited OIOptionsFrame: TOIOptionsFrame
|
|
Height = 484
|
|
Width = 634
|
|
ClientHeight = 484
|
|
ClientWidth = 634
|
|
Visible = False
|
|
DesignLeft = 466
|
|
DesignTop = 124
|
|
object ObjectInspectorColorsGroupBox: TGroupBox[0]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 228
|
|
Top = 0
|
|
Width = 226
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'ObjectInspectorColorsGroupBox'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.HorizontalSpacing = 2
|
|
ChildSizing.VerticalSpacing = 2
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 210
|
|
ClientWidth = 222
|
|
Ctl3D = False
|
|
DockSite = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ParentColor = True
|
|
ParentCtl3D = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 0
|
|
TabStop = False
|
|
Visible = True
|
|
object ColorsListBox: TColorListBox
|
|
AnchorSideLeft.Control = ObjectInspectorColorsGroupBox
|
|
AnchorSideTop.Control = ObjectInspectorColorsGroupBox
|
|
Left = 6
|
|
Height = 170
|
|
Top = 6
|
|
Width = 210
|
|
HelpContext = 0
|
|
DefaultColorColor = clBlack
|
|
NoneColorColor = clBlack
|
|
Selected = clBlack
|
|
Style = [cbCustomColors]
|
|
OnGetColors = ColorsListBoxGetColors
|
|
Align = alNone
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
BorderStyle = bsSingle
|
|
ClickOnSelChange = True
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
ExtendedSelect = True
|
|
Enabled = True
|
|
IntegralHeight = False
|
|
ItemHeight = 0
|
|
OnSelectionChange = ColorsListBoxSelectionChange
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentShowHint = True
|
|
ParentFont = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
TopIndex = 0
|
|
Visible = True
|
|
end
|
|
object ColorBox: TColorBox
|
|
AnchorSideLeft.Control = ObjectInspectorColorsGroupBox
|
|
AnchorSideTop.Control = ColorsListBox
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = ColorsListBox
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 22
|
|
Top = 182
|
|
Width = 210
|
|
HelpContext = 0
|
|
DefaultColorColor = clBlack
|
|
NoneColorColor = clBlack
|
|
Selected = clBlack
|
|
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
|
|
Align = alNone
|
|
ArrowKeysTraverseList = True
|
|
AutoComplete = False
|
|
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
|
AutoDropDown = False
|
|
AutoSelect = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Ctl3D = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
DropDownCount = 8
|
|
Enabled = True
|
|
ItemHeight = 16
|
|
ItemWidth = 0
|
|
OnChange = ColorBoxChange
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentCtl3D = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 1
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
end
|
|
object OIMiscGroupBox: TGroupBox[1]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = ObjectInspectorColorsGroupBox
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 230
|
|
Top = 235
|
|
Width = 634
|
|
HelpContext = 0
|
|
Align = alNone
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 7
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIMiscGroupBox'
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 212
|
|
ClientWidth = 630
|
|
Ctl3D = False
|
|
DockSite = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ParentColor = True
|
|
ParentCtl3D = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 1
|
|
TabStop = False
|
|
Visible = True
|
|
object OIDefaultItemHeightLabel: TLabel
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIDefaultItemHeightSpinEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 14
|
|
Top = 186
|
|
Width = 126
|
|
HelpContext = 0
|
|
Align = alNone
|
|
Alignment = taLeftJustify
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIDefaultItemHeightLabel'
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
Layout = tlTop
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ShowAccelChar = True
|
|
Transparent = True
|
|
Visible = True
|
|
WordWrap = False
|
|
OptimalFill = False
|
|
end
|
|
object OIShowHintCheckBox: TCheckBox
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIMiscGroupBox
|
|
Left = 6
|
|
Height = 19
|
|
Top = 6
|
|
Width = 130
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIShowHintCheckBox'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 0
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object OIDefaultItemHeightSpinEdit: TSpinEdit
|
|
AnchorSideLeft.Control = OIDefaultItemHeightLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = OIShowInfoBoxCheckBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 138
|
|
Height = 25
|
|
Top = 181
|
|
Width = 53
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSelect = False
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Enabled = True
|
|
Increment = 1
|
|
MaxValue = 100
|
|
MinValue = 0
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ReadOnly = False
|
|
TabStop = True
|
|
TabOrder = 1
|
|
Value = 1
|
|
Visible = True
|
|
end
|
|
object OIAutoShowCheckBox: TCheckBox
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIShowHintCheckBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 31
|
|
Width = 134
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIAutoShowCheckBox'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 2
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object OIBoldNonDefaultCheckBox: TCheckBox
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIAutoShowCheckBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 56
|
|
Width = 159
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIBoldNonDefaultCheckBox'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 3
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object OIDrawGridLinesCheckBox: TCheckBox
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIBoldNonDefaultCheckBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 81
|
|
Width = 153
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIDrawGridLinesCheckBox'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 4
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object OIShowGutterCheckBox: TCheckBox
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIDrawGridLinesCheckBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 106
|
|
Width = 142
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIShowGutterCheckBox'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 5
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object OIShowStatusBarCheckBox: TCheckBox
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIShowGutterCheckBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 131
|
|
Width = 158
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIShowStatusBarCheckBox'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 6
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object OIShowInfoBoxCheckBox: TCheckBox
|
|
AnchorSideLeft.Control = OIMiscGroupBox
|
|
AnchorSideTop.Control = OIShowStatusBarCheckBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 156
|
|
Width = 149
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'OIShowInfoBoxCheckBox'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 7
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
end
|
|
object ObjectInspectorSpeedSettingsGroupBox: TGroupBox[2]
|
|
AnchorSideLeft.Control = ObjectInspectorColorsGroupBox
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ObjectInspectorColorsGroupBox
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 233
|
|
Height = 228
|
|
Top = 0
|
|
Width = 401
|
|
HelpContext = 0
|
|
Align = alNone
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 7
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'ObjectInspectorSpeedSettingsGroupBox'
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 210
|
|
ClientWidth = 397
|
|
Ctl3D = False
|
|
DockSite = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ParentColor = True
|
|
ParentCtl3D = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 2
|
|
TabStop = False
|
|
Visible = True
|
|
object BtnUseDefaultLazarusSettings: TButton
|
|
AnchorSideLeft.Control = ObjectInspectorSpeedSettingsGroupBox
|
|
AnchorSideTop.Control = ObjectInspectorSpeedSettingsGroupBox
|
|
Left = 6
|
|
Height = 25
|
|
Top = 6
|
|
Width = 171
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'BtnUseDefaultLazarusSettings'
|
|
Constraints.MinHeight = 25
|
|
Constraints.MinWidth = 75
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = BtnUseDefaultLazarusSettingsClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object BtnUseDefaultDelphiSettings: TButton
|
|
AnchorSideLeft.Control = ObjectInspectorSpeedSettingsGroupBox
|
|
AnchorSideTop.Control = BtnUseDefaultLazarusSettings
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = BtnUseDefaultLazarusSettings
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 25
|
|
Top = 37
|
|
Width = 171
|
|
HelpContext = 0
|
|
Align = alNone
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'BtnUseDefaultDelphiSettings'
|
|
Constraints.MinHeight = 25
|
|
Constraints.MinWidth = 75
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = BtnUseDefaultDelphiSettingsClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 1
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
end
|
|
end
|