mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 05:59:28 +02:00
ide: add an option to show/hide Object Inspector status bar
git-svn-id: trunk@17469 -
This commit is contained in:
paul
parent
b90ea3d2af
commit
b5f8b6bb2a
@ -107,7 +107,7 @@ const
|
||||
'Highlight all',
|
||||
'Matching Brackets',
|
||||
'Mouse Link',
|
||||
'Line number'
|
||||
'Line Number'
|
||||
);
|
||||
|
||||
type
|
||||
|
||||
@ -4,8 +4,8 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
ClientHeight = 484
|
||||
ClientWidth = 634
|
||||
Visible = False
|
||||
DesignLeft = 493
|
||||
DesignTop = 197
|
||||
DesignLeft = 505
|
||||
DesignTop = 157
|
||||
object ObjectInspectorColorsGroupBox: TGroupBox[0]
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
@ -141,7 +141,7 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 180
|
||||
Height = 205
|
||||
Top = 235
|
||||
Width = 634
|
||||
HelpContext = 0
|
||||
@ -161,7 +161,7 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
ChildSizing.HorizontalSpacing = 0
|
||||
ChildSizing.VerticalSpacing = 0
|
||||
ChildSizing.ControlsPerLine = 0
|
||||
ClientHeight = 162
|
||||
ClientHeight = 187
|
||||
ClientWidth = 630
|
||||
Ctl3D = False
|
||||
DockSite = False
|
||||
@ -183,7 +183,7 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 136
|
||||
Top = 161
|
||||
Width = 126
|
||||
HelpContext = 0
|
||||
Align = alNone
|
||||
@ -248,11 +248,11 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
object OIDefaultItemHeightSpinEdit: TSpinEdit
|
||||
AnchorSideLeft.Control = OIDefaultItemHeightLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = OIShowGutterCheckBox
|
||||
AnchorSideTop.Control = OIShowStatusBarCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 138
|
||||
Height = 25
|
||||
Top = 131
|
||||
Top = 156
|
||||
Width = 53
|
||||
HelpContext = 0
|
||||
Align = alNone
|
||||
@ -417,6 +417,41 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
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
|
||||
end
|
||||
object ObjectInspectorSpeedSettingsGroupBox: TGroupBox[2]
|
||||
AnchorSideLeft.Control = ObjectInspectorColorsGroupBox
|
||||
|
||||
@ -3,7 +3,7 @@
|
||||
LazarusResources.Add('TOIOptionsFrame','FORMDATA',[
|
||||
'TPF0'#241#15'TOIOptionsFrame'#14'OIOptionsFrame'#6'Height'#3#228#1#5'Width'#3
|
||||
+'z'#2#12'ClientHeight'#3#228#1#11'ClientWidth'#3'z'#2#7'Visible'#8#10'Design'
|
||||
+'Left'#3#237#1#9'DesignTop'#3#197#0#0#242#2#0#9'TGroupBox'#29'ObjectInspecto'
|
||||
+'Left'#3#249#1#9'DesignTop'#3#157#0#0#242#2#0#9'TGroupBox'#29'ObjectInspecto'
|
||||
+'rColorsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Con'
|
||||
+'trol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.'
|
||||
+'Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#228#0#3'Top'#2#0#5'Width'#3#226
|
||||
@ -52,7 +52,7 @@ LazarusResources.Add('TOIOptionsFrame','FORMDATA',[
|
||||
+#7'Visible'#9#0#0#0#242#2#1#9'TGroupBox'#14'OIMiscGroupBox'#22'AnchorSideLef'
|
||||
+'t.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#29'ObjectInspectorColorsG'
|
||||
+'roupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
|
||||
+#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#180
|
||||
+#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#205
|
||||
+#0#3'Top'#3#235#0#5'Width'#3'z'#2#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7
|
||||
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.'
|
||||
+'Left'#2#0#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Right'#2#0#20'BorderSp'
|
||||
@ -61,13 +61,13 @@ LazarusResources.Add('TOIOptionsFrame','FORMDATA',[
|
||||
+'tion'#6#14'OIMiscGroupBox'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSiz'
|
||||
+'ing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSiz'
|
||||
+'ing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeigh'
|
||||
+'t'#3#162#0#11'ClientWidth'#3'v'#2#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7
|
||||
+'t'#3#187#0#11'ClientWidth'#3'v'#2#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7
|
||||
+#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14
|
||||
+'ParentBidiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'P'
|
||||
+'arentShowHint'#9#8'TabOrder'#2#1#7'TabStop'#8#7'Visible'#9#0#6'TLabel'#24'O'
|
||||
,'IDefaultItemHeightLabel'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21
|
||||
+'AnchorSideTop.Control'#7#27'OIDefaultItemHeightSpinEdit'#18'AnchorSideTop.S'
|
||||
+'ide'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#136#0#5'Width'#2'~'
|
||||
+'ide'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#161#0#5'Width'#2'~'
|
||||
+#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8
|
||||
+'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#0#19'BorderS'
|
||||
+'pacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
|
||||
@ -89,102 +89,113 @@ LazarusResources.Add('TOIOptionsFrame','FORMDATA',[
|
||||
+'r'#2#0#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'TSpinEdit'#27'OIDe'
|
||||
+'faultItemHeightSpinEdit'#22'AnchorSideLeft.Control'#7#24'OIDefaultItemHeigh'
|
||||
+'tLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
|
||||
+#20'OIShowGutterCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#138
|
||||
+#0#6'Height'#2#25#3'Top'#3#131#0#5'Width'#2'5'#11'HelpContext'#2#0#5'Align'#7
|
||||
+#6'alNone'#10'AutoSelect'#8#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'Bord'
|
||||
+'erSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
|
||||
+#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
|
||||
+'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Enabled'#9#9'Incremen'
|
||||
+'t'#2#1#8'MaxValue'#2'd'#8'MinValue'#2#0#10'ParentFont'#9#14'ParentShowHint'
|
||||
+#9#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#1#5'Value'#2#1#7'Visible'#9#0#0#9
|
||||
+'TCheckBox'#18'OIAutoShowCheckBox'#22'AnchorSideLeft.Control'#7#14'OIMiscGro'
|
||||
+'upBox'#21'AnchorSideTop.Control'#7#18'OIShowHintCheckBox'#18'AnchorSideTop.'
|
||||
+'Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#31#5'Width'#3#134#0
|
||||
+#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'#9#18
|
||||
+'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2
|
||||
+#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.'
|
||||
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
|
||||
+'caFill'#7'Caption'#6#18'OIAutoShowCheckBox'#7'Checked'#8#10'DragCursor'#7#6
|
||||
+'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'P'
|
||||
+'arentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5
|
||||
+'State'#7#11'cbUnchecked'#8'TabOrder'#2#2#7'TabStop'#9#11'UseOnChange'#8#7'V'
|
||||
+'isible'#9#0#0#9'TCheckBox'#24'OIBoldNonDefaultCheckBox'#22'AnchorSideLeft.C'
|
||||
+'ontrol'#7#14'OIMiscGroupBox'#21'AnchorSideTop.Control'#7#18'OIAutoShowCheck'
|
||||
+'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'
|
||||
+#2'8'#5'Width'#3#159#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGray'
|
||||
+'ed'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19
|
||||
+'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
|
||||
+'nd'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
|
||||
+'ellAlignVertical'#7#7'ccaFill'#7'Caption'#6#24'OIBoldNonDefaultCheckBox'#7
|
||||
+'Checked'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7
|
||||
+#8'dmManual'#7'Enabled'#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHi'
|
||||
+'nt'#9#14'ParentBidiMode'#9#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#3#7'Tab'
|
||||
+'Stop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'TCheckBox'#23'OIDrawGridLinesC'
|
||||
+'heckBox'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSideTop.C'
|
||||
+'ontrol'#7#24'OIBoldNonDefaultCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
|
||||
+#4'Left'#2#6#6'Height'#2#19#3'Top'#2'Q'#5'Width'#3#153#0#11'HelpContext'#2#0
|
||||
+#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.Left'
|
||||
+#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.'
|
||||
+'Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'
|
||||
+#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6
|
||||
+#23'OIDrawGridLinesCheckBox'#7'Checked'#8#10'DragCursor'#7#6'crDrag'#8'DragK'
|
||||
+'ind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'ParentColor'#9#10
|
||||
,'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#11'cbUnc'
|
||||
+'hecked'#8'TabOrder'#2#4#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'T'
|
||||
+'CheckBox'#20'OIShowGutterCheckBox'#22'AnchorSideLeft.Control'#7#14'OIMiscGr'
|
||||
+'oupBox'#21'AnchorSideTop.Control'#7#23'OIDrawGridLinesCheckBox'#18'AnchorSi'
|
||||
+'deTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'j'#5'Width'#3
|
||||
+#142#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'
|
||||
+#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Rig'
|
||||
+'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSp'
|
||||
+'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'
|
||||
+#7#7'ccaFill'#7'Caption'#6#20'OIShowGutterCheckBox'#7'Checked'#8#10'DragCurs'
|
||||
+'or'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'
|
||||
+#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'
|
||||
+#9#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#5#7'TabStop'#9#11'UseOnChange'#8
|
||||
+#7'Visible'#9#0#0#0#242#2#2#9'TGroupBox$ObjectInspectorSpeedSettingsGroupBox'
|
||||
+#22'AnchorSideLeft.Control'#7#29'ObjectInspectorColorsGroupBox'#19'AnchorSid'
|
||||
+'eLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSi'
|
||||
+'deRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anch'
|
||||
+'orSideBottom.Control'#7#29'ObjectInspectorColorsGroupBox'#21'AnchorSideBott'
|
||||
+'om.Side'#7#9'asrBottom'#4'Left'#3#233#0#6'Height'#3#228#0#3'Top'#2#0#5'Widt'
|
||||
+'h'#3#145#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6
|
||||
+'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'#8#18'BorderSpacing.Left'#2#7#17
|
||||
+#23'OIShowStatusBarCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3
|
||||
+#138#0#6'Height'#2#25#3'Top'#3#156#0#5'Width'#2'5'#11'HelpContext'#2#0#5'Ali'
|
||||
+'gn'#7#6'alNone'#10'AutoSelect'#8#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17
|
||||
+'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
|
||||
+#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
|
||||
+'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6'$Objec'
|
||||
+'tInspectorSpeedSettingsGroupBox'#28'ChildSizing.LeftRightSpacing'#2#0#28'Ch'
|
||||
+'ildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'Ch'
|
||||
+'ildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'Clien'
|
||||
+'tHeight'#3#210#0#11'ClientWidth'#3#141#1#5'Ctl3D'#8#8'DockSite'#8#10'DragCu'
|
||||
+'rsor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabl'
|
||||
+'ed'#9#14'ParentBidiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFon'
|
||||
+'t'#9#14'ParentShowHint'#9#8'TabOrder'#2#2#7'TabStop'#8#7'Visible'#9#0#7'TBu'
|
||||
+'tton'#28'BtnUseDefaultLazarusSettings'#22'AnchorSideLeft.Control'#7'$Object'
|
||||
+'InspectorSpeedSettingsGroupBox'#21'AnchorSideTop.Control'#7'$ObjectInspecto'
|
||||
+'rSpeedSettingsGroupBox'#4'Left'#2#6#6'Height'#2#25#3'Top'#2#6#5'Width'#3#171
|
||||
+#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#9#18'BorderSpacing.L'
|
||||
+'eft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpa'
|
||||
+'cing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHoriz'
|
||||
+'ontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Canc'
|
||||
+'el'#8#7'Caption'#6#28'BtnUseDefaultLazarusSettings'#21'Constraints.MinHeigh'
|
||||
+'t'#2#25#20'Constraints.MinWidth'#2'K'#7'Default'#8#10'DragCursor'#7#6'crDra'
|
||||
+'g'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResu'
|
||||
+'lt'#2#0#7'OnClick'#7'!BtnUseDefaultLazarusSettingsClick'#10'ParentFont'#9#14
|
||||
+'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'
|
||||
+#27'BtnUseDefaultDelphiSettings'#22'AnchorSideLeft.Control'#7'$ObjectInspect'
|
||||
+'orSpeedSettingsGroupBox'#21'AnchorSideTop.Control'#7#28'BtnUseDefaultLazaru'
|
||||
+'sSettings'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
|
||||
+#7#28'BtnUseDefaultLazarusSettings'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
|
||||
+'Left'#2#6#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#171#0#11'HelpContext'#2#0#5
|
||||
+'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'
|
||||
+#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
|
||||
+'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Enabled'#9#9'Incr'
|
||||
+'ement'#2#1#8'MaxValue'#2'd'#8'MinValue'#2#0#10'ParentFont'#9#14'ParentShowH'
|
||||
+'int'#9#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#1#5'Value'#2#1#7'Visible'#9
|
||||
+#0#0#9'TCheckBox'#18'OIAutoShowCheckBox'#22'AnchorSideLeft.Control'#7#14'OIM'
|
||||
+'iscGroupBox'#21'AnchorSideTop.Control'#7#18'OIShowHintCheckBox'#18'AnchorSi'
|
||||
+'deTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#31#5'Width'#3
|
||||
+#134#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'
|
||||
+#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Rig'
|
||||
+'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSp'
|
||||
+'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'
|
||||
+#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#27'BtnUseDefaultDelphiSettings'#21'Co'
|
||||
+'nstraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#7'Default'#8#10'Dra'
|
||||
+'gCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMo'
|
||||
+'de'#9#11'ModalResult'#2#0#7'OnClick'#7' BtnUseDefaultDelphiSettingsClick'#10
|
||||
+'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9
|
||||
+#0#0#0#0
|
||||
+#7#7'ccaFill'#7'Caption'#6#18'OIAutoShowCheckBox'#7'Checked'#8#10'DragCursor'
|
||||
+#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9
|
||||
+#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9
|
||||
+#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#2#7'TabStop'#9#11'UseOnChange'#8#7
|
||||
+'Visible'#9#0#0#9'TCheckBox'#24'OIBoldNonDefaultCheckBox'#22'AnchorSideLeft.'
|
||||
+'Control'#7#14'OIMiscGroupBox'#21'AnchorSideTop.Control'#7#18'OIAutoShowChec'
|
||||
+'kBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'To'
|
||||
+'p'#2'8'#5'Width'#3#159#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowG'
|
||||
+'rayed'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6
|
||||
+#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
|
||||
+'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
|
||||
+'g.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#24'OIBoldNonDefaultCheckBox'
|
||||
+#7'Checked'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'
|
||||
+#7#8'dmManual'#7'Enabled'#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShow'
|
||||
+'Hint'#9#14'ParentBidiMode'#9#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#3#7'T'
|
||||
+'abStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'TCheckBox'#23'OIDrawGridLine'
|
||||
+'sCheckBox'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSideTop'
|
||||
+'.Control'#7#24'OIBoldNonDefaultCheckBox'#18'AnchorSideTop.Side'#7#9'asrBott'
|
||||
+'om'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'Q'#5'Width'#3#153#0#11'HelpContext'
|
||||
+#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.L'
|
||||
+'eft'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpa'
|
||||
+'cing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHoriz'
|
||||
+'ontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capt'
|
||||
+'ion'#6#23'OIDrawGridLinesCheckBox'#7'Checked'#8#10'DragCursor'#7#6'crDrag'#8
|
||||
+'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'ParentColor'
|
||||
,#9#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#11
|
||||
+'cbUnchecked'#8'TabOrder'#2#4#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0
|
||||
+#9'TCheckBox'#20'OIShowGutterCheckBox'#22'AnchorSideLeft.Control'#7#14'OIMis'
|
||||
+'cGroupBox'#21'AnchorSideTop.Control'#7#23'OIDrawGridLinesCheckBox'#18'Ancho'
|
||||
+'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'j'#5'Widt'
|
||||
+'h'#3#142#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'Aut'
|
||||
+'oSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpac'
|
||||
+'ing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!B'
|
||||
+'orderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVe'
|
||||
+'rtical'#7#7'ccaFill'#7'Caption'#6#20'OIShowGutterCheckBox'#7'Checked'#8#10
|
||||
+'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7
|
||||
+'Enabled'#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#14'Paren'
|
||||
+'tBidiMode'#9#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#5#7'TabStop'#9#11'Use'
|
||||
+'OnChange'#8#7'Visible'#9#0#0#9'TCheckBox'#23'OIShowStatusBarCheckBox'#22'An'
|
||||
+'chorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSideTop.Control'#7#20'O'
|
||||
+'IShowGutterCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'He'
|
||||
+'ight'#2#19#3'Top'#3#131#0#5'Width'#3#158#0#11'HelpContext'#2#0#5'Align'#7#6
|
||||
+'alNone'#11'AllowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Borde'
|
||||
+'rSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
|
||||
+#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
|
||||
+'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#23'OIShowS'
|
||||
+'tatusBarCheckBox'#7'Checked'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'd'
|
||||
+'kDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'ParentColor'#9#10'ParentFo'
|
||||
+'nt'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#11'cbUnchecked'#8
|
||||
+'TabOrder'#2#6#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#0#242#2#2#9'T'
|
||||
+'GroupBox$ObjectInspectorSpeedSettingsGroupBox'#22'AnchorSideLeft.Control'#7
|
||||
+#29'ObjectInspectorColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
|
||||
+'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20
|
||||
+'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#29'Obje'
|
||||
+'ctInspectorColorsGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'
|
||||
+#3#233#0#6'Height'#3#228#0#3'Top'#2#0#5'Width'#3#145#1#11'HelpContext'#2#0#5
|
||||
+'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
|
||||
+#8'AutoSize'#8#18'BorderSpacing.Left'#2#7#17'BorderSpacing.Top'#2#0#19'Borde'
|
||||
+'rSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2
|
||||
+#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli'
|
||||
+'gnVertical'#7#7'ccaFill'#7'Caption'#6'$ObjectInspectorSpeedSettingsGroupBox'
|
||||
+#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29
|
||||
+'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'C'
|
||||
+'hildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#210#0#11'ClientWidth'#3
|
||||
+#141#1#5'Ctl3D'#8#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'd'
|
||||
+'kDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'Paren'
|
||||
+'tColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrde'
|
||||
+'r'#2#2#7'TabStop'#8#7'Visible'#9#0#7'TButton'#28'BtnUseDefaultLazarusSettin'
|
||||
+'gs'#22'AnchorSideLeft.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#21
|
||||
+'AnchorSideTop.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#4'Left'#2#6
|
||||
+#6'Height'#2#25#3'Top'#2#6#5'Width'#3#171#0#11'HelpContext'#2#0#5'Align'#7#6
|
||||
+'alNone'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
|
||||
+#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
|
||||
+'round'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
|
||||
+'g.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#28'BtnUseDefault'
|
||||
+'LazarusSettings'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2
|
||||
+'K'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enab'
|
||||
+'led'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7'!BtnUseDefault'
|
||||
+'LazarusSettingsClick'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#0
|
||||
+#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'#27'BtnUseDefaultDelphiSettings'#22
|
||||
+'AnchorSideLeft.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorS'
|
||||
+'ideTop.Control'#7#28'BtnUseDefaultLazarusSettings'#18'AnchorSideTop.Side'#7
|
||||
+#9'asrBottom'#23'AnchorSideRight.Control'#7#28'BtnUseDefaultLazarusSettings'
|
||||
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#25#3'Top'#2
|
||||
+'%'#5'Width'#3#171#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5
|
||||
+'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'B'
|
||||
+'orderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2
|
||||
+#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaF'
|
||||
+'ill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'
|
||||
,#6#27'BtnUseDefaultDelphiSettings'#21'Constraints.MinHeight'#2#25#20'Constra'
|
||||
+'ints.MinWidth'#2'K'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8
|
||||
+'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7
|
||||
+' BtnUseDefaultDelphiSettingsClick'#10'ParentFont'#9#14'ParentShowHint'#9#8
|
||||
+'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -53,7 +53,8 @@ type
|
||||
ooAutoShow,
|
||||
ooBoldNonDefault,
|
||||
ooDrawGridLines,
|
||||
ooShowGutter
|
||||
ooShowGutter,
|
||||
ooShowStatusBar
|
||||
);
|
||||
|
||||
TSpeedOISettings = record
|
||||
@ -78,6 +79,7 @@ type
|
||||
OIDefaultItemHeightSpinEdit: TSpinEdit;
|
||||
OIDrawGridLinesCheckBox: TCheckBox;
|
||||
OIMiscGroupBox: TGroupBox;
|
||||
OIShowStatusBarCheckBox: TCheckBox;
|
||||
OIShowHintCheckBox: TCheckBox;
|
||||
procedure BtnUseDefaultDelphiSettingsClick(Sender: TObject);
|
||||
procedure BtnUseDefaultLazarusSettingsClick(Sender: TObject);
|
||||
@ -119,7 +121,8 @@ const
|
||||
{ ooAutoShow } True,
|
||||
{ ooBoldNonDefault } True,
|
||||
{ ooDrawGridLines } True,
|
||||
{ ooShowGutter } True
|
||||
{ ooShowGutter } True,
|
||||
{ ooShowStatusBar } True
|
||||
);
|
||||
);
|
||||
|
||||
@ -142,7 +145,8 @@ const
|
||||
{ ooAutoShow } True,
|
||||
{ ooBoldNonDefault } True,
|
||||
{ ooDrawGridLines } False,
|
||||
{ ooShowGutter } True
|
||||
{ ooShowGutter } True,
|
||||
{ ooShowStatusBar } True
|
||||
);
|
||||
);
|
||||
|
||||
@ -159,6 +163,7 @@ begin
|
||||
OIBoldNonDefaultCheckBox.Caption := lisBoldNonDefaultObjectInspector;
|
||||
OIDrawGridLinesCheckBox.Caption := lisDrawGridLinesObjectInspector;
|
||||
OIShowGutterCheckBox.Caption := lisShowGutterInObjectInspector;
|
||||
OIShowStatusBarCheckBox.Caption := lisShowStatusBarInObjectInspector;
|
||||
|
||||
BtnUseDefaultLazarusSettings.Caption := dlgOIUseDefaultLazarusSettings;
|
||||
BtnUseDefaultDelphiSettings.Caption := dlgOIUseDefaultDelphiSettings;
|
||||
@ -207,6 +212,7 @@ begin
|
||||
OIBoldNonDefaultCheckBox.Checked := ASettings.Options[ooBoldNonDefault];
|
||||
OIDrawGridLinesCheckBox.Checked := ASettings.Options[ooDrawGridLines];
|
||||
OIShowGutterCheckBox.Checked := ASettings.Options[ooShowGutter];
|
||||
OIShowStatusBarCheckBox.Checked := ASettings.Options[ooShowStatusBar];
|
||||
end;
|
||||
|
||||
procedure TOIOptionsFrame.ColorBoxChange(Sender: TObject);
|
||||
@ -262,6 +268,7 @@ begin
|
||||
ASettings.Options[ooBoldNonDefault] := ObjectInspectorOptions.BoldNonDefaultValues;
|
||||
ASettings.Options[ooDrawGridLines] := ObjectInspectorOptions.DrawGridLines;
|
||||
ASettings.Options[ooShowGutter] := ObjectInspectorOptions.ShowGutter;
|
||||
ASettings.Options[ooShowStatusBar] := ObjectInspectorOptions.ShowStatusBar;
|
||||
ApplyOISettings(ASettings);
|
||||
OIDefaultItemHeightSpinEdit.Value := ObjectInspectorOptions.DefaultItemHeight;
|
||||
end;
|
||||
@ -288,6 +295,7 @@ begin
|
||||
ObjectInspectorOptions.BoldNonDefaultValues := OIBoldNonDefaultCheckBox.Checked;
|
||||
ObjectInspectorOptions.DrawGridLines := OIDrawGridLinesCheckBox.Checked;
|
||||
ObjectInspectorOptions.ShowGutter := OIShowGutterCheckBox.Checked;
|
||||
ObjectInspectorOptions.ShowStatusBar := OIShowStatusBarCheckBox.Checked;
|
||||
ObjectInspectorOptions.DefaultItemHeight:= RoundToInt(OIDefaultItemHeightSpinEdit.Value);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -1045,6 +1045,7 @@ resourcestring
|
||||
lisBoldNonDefaultObjectInspector = 'Bold non default values';
|
||||
lisDrawGridLinesObjectInspector = 'Draw grid lines';
|
||||
lisShowGutterInObjectInspector = 'Show gutter';
|
||||
lisShowStatusBarInObjectInspector = 'Show status bar';
|
||||
dlgEnvColors = 'Colors';
|
||||
dlgEnvBackupHelpNote =
|
||||
'Notes: Project files are all files in the project directory';
|
||||
|
||||
@ -173,6 +173,7 @@ type
|
||||
FSaveBounds: boolean;
|
||||
FLeft: integer;
|
||||
FShowGutter: boolean;
|
||||
FShowStatusBar: boolean;
|
||||
FTop: integer;
|
||||
FWidth: integer;
|
||||
FHeight: integer;
|
||||
@ -234,6 +235,7 @@ type
|
||||
property BoldNonDefaultValues: boolean read FBoldNonDefaultValues write FBoldNonDefaultValues;
|
||||
property DrawGridLines: boolean read FDrawGridLines write FDrawGridLines;
|
||||
property ShowGutter: boolean read FShowGutter write FShowGutter;
|
||||
property ShowStatusBar: boolean read FShowStatusBar write FShowStatusBar;
|
||||
end;
|
||||
|
||||
TOICustomPropertyGrid = class;
|
||||
@ -700,6 +702,7 @@ type
|
||||
FShowComponentTree: boolean;
|
||||
FShowFavorites: Boolean;
|
||||
FShowRestricted: Boolean;
|
||||
FShowStatusBar: Boolean;
|
||||
FUpdateLock: integer;
|
||||
FUpdatingAvailComboBox: boolean;
|
||||
function GetGridControl(Page: TObjectInspectorPage): TOICustomPropertyGrid;
|
||||
@ -713,6 +716,7 @@ type
|
||||
procedure SetShowComponentTree(const AValue: boolean);
|
||||
procedure SetShowFavorites(const AValue: Boolean);
|
||||
procedure SetShowRestricted(const AValue: Boolean);
|
||||
procedure SetShowStatusBar(const AValue: Boolean);
|
||||
procedure ShowNextPage(Delta: integer);
|
||||
protected
|
||||
function PersistentToString(APersistent: TPersistent): string;
|
||||
@ -767,6 +771,7 @@ type
|
||||
property ShowRestricted: Boolean read FShowRestricted write SetShowRestricted;
|
||||
property ComponentTreeHeight: integer read FComponentTreeHeight
|
||||
write SetComponentTreeHeight;
|
||||
property ShowStatusBar: Boolean read FShowStatusBar write SetShowStatusBar;
|
||||
property GridControl[Page: TObjectInspectorPage]: TOICustomPropertyGrid
|
||||
read GetGridControl;
|
||||
property Favourites: TOIFavouriteProperties read FFavourites write SetFavourites;
|
||||
@ -3393,6 +3398,7 @@ begin
|
||||
FBoldNonDefaultValues := True;
|
||||
FDrawGridLines := True;
|
||||
FShowGutter := True;
|
||||
FShowStatusBar := True;
|
||||
end;
|
||||
|
||||
function TOIOptions.Load: boolean;
|
||||
@ -3468,6 +3474,8 @@ begin
|
||||
Path+'DrawGridLines',true);
|
||||
FShowGutter := ConfigStore.GetValue(
|
||||
Path+'ShowGutter',true);
|
||||
FShowStatusBar := ConfigStore.GetValue(
|
||||
Path+'ShowStatusBar',true);
|
||||
except
|
||||
on E: Exception do begin
|
||||
DebugLn('ERROR: TOIOptions.Load: ',E.Message);
|
||||
@ -3537,6 +3545,7 @@ begin
|
||||
ConfigStore.SetDeleteValue(Path+'BoldNonDefaultValues',FBoldNonDefaultValues, True);
|
||||
ConfigStore.SetDeleteValue(Path+'DrawGridLines',FDrawGridLines, True);
|
||||
ConfigStore.SetDeleteValue(Path+'ShowGutter',FShowGutter, True);
|
||||
ConfigStore.SetDeleteValue(Path+'ShowStatusBar',FShowStatusBar, True);
|
||||
except
|
||||
on E: Exception do begin
|
||||
DebugLn('ERROR: TOIOptions.Save: ',E.Message);
|
||||
@ -3577,6 +3586,7 @@ begin
|
||||
FBoldNonDefaultValues := fsBold in AnObjInspector.PropertyGrid.ValueFont.Style;
|
||||
FDrawGridLines := AnObjInspector.PropertyGrid.DrawHorzGridLines;
|
||||
FShowGutter := AnObjInspector.PropertyGrid.ShowGutter;
|
||||
FShowStatusBar := AnObjInspector.ShowStatusBar;
|
||||
end;
|
||||
|
||||
procedure TOIOptions.AssignTo(AnObjInspector: TObjectInspectorDlg);
|
||||
@ -3618,6 +3628,7 @@ begin
|
||||
AnObjInspector.ShowComponentTree := FShowComponentTree;
|
||||
AnObjInspector.ComponentTreeHeight := FComponentTreeHeight;
|
||||
AnObjInspector.AutoShow := AutoShow;
|
||||
AnObjInspector.ShowStatusBar := ShowStatusBar;
|
||||
end;
|
||||
|
||||
|
||||
@ -3676,12 +3687,13 @@ begin
|
||||
FUpdatingAvailComboBox:=false;
|
||||
FDefaultItemHeight := 22;
|
||||
FComponentTreeHeight:=100;
|
||||
FShowComponentTree:=true;
|
||||
FShowComponentTree := True;
|
||||
FShowFavorites := False;
|
||||
FShowRestricted := False;
|
||||
FShowStatusBar := True;
|
||||
|
||||
Caption := oisObjectInspector;
|
||||
StatusBar.SimpleText:=oisAll;
|
||||
StatusBar.SimpleText := oisAll;
|
||||
|
||||
MainPopupMenu.Images := IDEImages.Images_16;
|
||||
|
||||
@ -4320,6 +4332,13 @@ begin
|
||||
NoteBook.Page[3].TabVisible := AValue;
|
||||
end;
|
||||
|
||||
procedure TObjectInspectorDlg.SetShowStatusBar(const AValue: Boolean);
|
||||
begin
|
||||
if FShowStatusBar = AValue then exit;
|
||||
FShowStatusBar := AValue;
|
||||
StatusBar.Visible := AValue;
|
||||
end;
|
||||
|
||||
procedure TObjectInspectorDlg.ShowNextPage(Delta: integer);
|
||||
var
|
||||
NewPageIndex: Integer;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user