mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-04 12:38:17 +02:00
ide: add ReadOnly color setting to the object inspector options, draw properties without writer using ReadOnly color setting
git-svn-id: trunk@22127 -
This commit is contained in:
paul
parent
cce715386e
commit
b67d8f48e4
@ -1,9 +1,8 @@
|
||||
inherited OIOptionsFrame: TOIOptionsFrame
|
||||
Height = 484
|
||||
Width = 634
|
||||
ClientHeight = 480
|
||||
ClientWidth = 630
|
||||
TabOrder = 0
|
||||
ClientHeight = 484
|
||||
ClientWidth = 634
|
||||
Visible = False
|
||||
DesignLeft = 403
|
||||
DesignTop = 218
|
||||
@ -13,7 +12,7 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 238
|
||||
Height = 228
|
||||
Top = 0
|
||||
Width = 226
|
||||
AutoSize = True
|
||||
@ -22,7 +21,7 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.HorizontalSpacing = 2
|
||||
ChildSizing.VerticalSpacing = 2
|
||||
ClientHeight = 219
|
||||
ClientHeight = 210
|
||||
ClientWidth = 222
|
||||
TabOrder = 0
|
||||
object ColorsListBox: TColorListBox
|
||||
@ -38,7 +37,6 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
ItemHeight = 0
|
||||
OnSelectionChange = ColorsListBoxSelectionChange
|
||||
TabOrder = 0
|
||||
TopIndex = -1
|
||||
end
|
||||
object ColorBox: TColorBox
|
||||
AnchorSideLeft.Control = ObjectInspectorColorsGroupBox
|
||||
@ -47,14 +45,12 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideRight.Control = ColorsListBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 31
|
||||
Height = 22
|
||||
Top = 182
|
||||
Width = 210
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
|
||||
AutoComplete = False
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 16
|
||||
ItemWidth = 0
|
||||
OnChange = ColorBoxChange
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -66,23 +62,23 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 200
|
||||
Top = 245
|
||||
Width = 630
|
||||
Height = 164
|
||||
Top = 235
|
||||
Width = 634
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 7
|
||||
Caption = 'OIOptionsGroupBox'
|
||||
ClientHeight = 181
|
||||
ClientWidth = 626
|
||||
ClientHeight = 146
|
||||
ClientWidth = 630
|
||||
TabOrder = 1
|
||||
object OIShowHintCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = OIOptionsGroupBox
|
||||
AnchorSideTop.Control = OIOptionsGroupBox
|
||||
Left = 6
|
||||
Height = 22
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 165
|
||||
Width = 122
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'OIShowHintCheckBox'
|
||||
@ -93,9 +89,9 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideTop.Control = OIShowHintCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 31
|
||||
Width = 168
|
||||
Height = 17
|
||||
Top = 26
|
||||
Width = 126
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'OIAutoShowCheckBox'
|
||||
@ -106,9 +102,9 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideTop.Control = OIAutoShowCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 56
|
||||
Width = 206
|
||||
Height = 17
|
||||
Top = 46
|
||||
Width = 151
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'OIBoldNonDefaultCheckBox'
|
||||
@ -119,9 +115,9 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideTop.Control = OIBoldNonDefaultCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 81
|
||||
Width = 198
|
||||
Height = 17
|
||||
Top = 66
|
||||
Width = 145
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'OIDrawGridLinesCheckBox'
|
||||
@ -132,9 +128,9 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideTop.Control = OIDrawGridLinesCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 106
|
||||
Width = 179
|
||||
Height = 17
|
||||
Top = 86
|
||||
Width = 134
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'OIShowGutterCheckBox'
|
||||
@ -145,9 +141,9 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideTop.Control = OIShowGutterCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 131
|
||||
Width = 201
|
||||
Height = 17
|
||||
Top = 106
|
||||
Width = 150
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'OIShowStatusBarCheckBox'
|
||||
@ -158,9 +154,9 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideTop.Control = OIShowStatusBarCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 156
|
||||
Width = 188
|
||||
Height = 17
|
||||
Top = 126
|
||||
Width = 141
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Around = 3
|
||||
Caption = 'OIShowInfoBoxCheckBox'
|
||||
@ -175,23 +171,23 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = OIMiscGroupBox
|
||||
Left = 233
|
||||
Height = 173
|
||||
Height = 170
|
||||
Top = 0
|
||||
Width = 397
|
||||
Width = 401
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 7
|
||||
BorderSpacing.Bottom = 7
|
||||
Caption = 'ObjectInspectorSpeedSettingsGroupBox'
|
||||
ClientHeight = 154
|
||||
ClientWidth = 393
|
||||
ClientHeight = 152
|
||||
ClientWidth = 397
|
||||
TabOrder = 2
|
||||
object BtnUseDefaultLazarusSettings: TButton
|
||||
AnchorSideLeft.Control = ObjectInspectorSpeedSettingsGroupBox
|
||||
AnchorSideTop.Control = ObjectInspectorSpeedSettingsGroupBox
|
||||
Left = 6
|
||||
Height = 29
|
||||
Height = 25
|
||||
Top = 6
|
||||
Width = 210
|
||||
Width = 171
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'BtnUseDefaultLazarusSettings'
|
||||
@ -207,9 +203,9 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideRight.Control = BtnUseDefaultLazarusSettings
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 29
|
||||
Top = 41
|
||||
Width = 210
|
||||
Height = 25
|
||||
Top = 37
|
||||
Width = 171
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -229,24 +225,24 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideBottom.Control = ObjectInspectorColorsGroupBox
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 233
|
||||
Height = 58
|
||||
Top = 180
|
||||
Width = 397
|
||||
Height = 51
|
||||
Top = 177
|
||||
Width = 401
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 7
|
||||
Caption = 'OIMiscGroupBox'
|
||||
ClientHeight = 39
|
||||
ClientWidth = 393
|
||||
ClientHeight = 33
|
||||
ClientWidth = 397
|
||||
TabOrder = 3
|
||||
object OIDefaultItemHeightLabel: TLabel
|
||||
AnchorSideLeft.Control = OIMiscGroupBox
|
||||
AnchorSideTop.Control = OIDefaultItemHeightSpinEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 10
|
||||
Width = 171
|
||||
Height = 14
|
||||
Top = 9
|
||||
Width = 126
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'OIDefaultItemHeightLabel'
|
||||
ParentColor = False
|
||||
@ -255,11 +251,10 @@ inherited OIOptionsFrame: TOIOptionsFrame
|
||||
AnchorSideLeft.Control = OIDefaultItemHeightLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = OIMiscGroupBox
|
||||
Left = 183
|
||||
Height = 27
|
||||
Left = 138
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 53
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 0
|
||||
Value = 1
|
||||
|
||||
@ -1,106 +1,103 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TOIOptionsFrame','FORMDATA',[
|
||||
'TPF0'#241#15'TOIOptionsFrame'#14'OIOptionsFrame'#6'Height'#3#228#1#5'Width'#3
|
||||
+'z'#2#12'ClientHeight'#3#224#1#11'ClientWidth'#3'v'#2#8'TabOrder'#2#0#7'Visi'
|
||||
+'ble'#8#10'DesignLeft'#3#147#1#9'DesignTop'#3#218#0#0#242#2#0#9'TGroupBox'#29
|
||||
+'ObjectInspectorColorsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
|
||||
+'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
|
||||
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#238#0#3'Top'#2#0
|
||||
+#5'Width'#3#226#0#8'AutoSize'#9#7'Caption'#6#29'ObjectInspectorColorsGroupBo'
|
||||
+'x'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6
|
||||
+#29'ChildSizing.HorizontalSpacing'#2#2#27'ChildSizing.VerticalSpacing'#2#2#12
|
||||
+'ClientHeight'#3#219#0#11'ClientWidth'#3#222#0#8'TabOrder'#2#0#0#13'TColorLi'
|
||||
+'stBox'#13'ColorsListBox'#22'AnchorSideLeft.Control'#7#29'ObjectInspectorCol'
|
||||
+'orsGroupBox'#21'AnchorSideTop.Control'#7#29'ObjectInspectorColorsGroupBox'#4
|
||||
+'Left'#2#6#6'Height'#3#170#0#3'Top'#2#6#5'Width'#3#210#0#5'Style'#11#14'cbCu'
|
||||
+'stomColors'#0#11'OnGetColors'#7#22'ColorsListBoxGetColors'#20'BorderSpacing'
|
||||
+'.Around'#2#6#10'ItemHeight'#2#0#17'OnSelectionChange'#7#28'ColorsListBoxSel'
|
||||
+'ectionChange'#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#9'TColorBox'#8'ColorBox'
|
||||
+#22'AnchorSideLeft.Control'#7#29'ObjectInspectorColorsGroupBox'#21'AnchorSid'
|
||||
+'eTop.Control'#7#13'ColorsListBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
|
||||
+'AnchorSideRight.Control'#7#13'ColorsListBox'#20'AnchorSideRight.Side'#7#9'a'
|
||||
+'srBottom'#4'Left'#2#6#6'Height'#2#31#3'Top'#3#182#0#5'Width'#3#210#0#5'Styl'
|
||||
+'e'#11#16'cbStandardColors'#16'cbExtendedColors'#14'cbSystemColors'#13'cbCus'
|
||||
+'tomColor'#13'cbPrettyNames'#0#12'AutoComplete'#8#20'BorderSpacing.Around'#2
|
||||
+#6#10'ItemHeight'#2#16#9'ItemWidth'#2#0#8'OnChange'#7#14'ColorBoxChange'#8'T'
|
||||
+'abOrder'#2#1#0#0#0#242#2#1#9'TGroupBox'#17'OIOptionsGroupBox'#22'AnchorSide'
|
||||
+'Left.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#29'ObjectInspectorColo'
|
||||
+'rsGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro'
|
||||
+'l'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'
|
||||
+#3#200#0#3'Top'#3#245#0#5'Width'#3'v'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
|
||||
+'kRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#7#7'Caption'#6#17'OIOptions'
|
||||
+'GroupBox'#12'ClientHeight'#3#181#0#11'ClientWidth'#3'r'#2#8'TabOrder'#2#1#0
|
||||
+#9'TCheckBox'#18'OIShowHintCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptio'
|
||||
+'nsGroupBox'#21'AnchorSideTop.Control'#7#17'OIOptionsGroupBox'#4'Left'#2#6#6
|
||||
+'Height'#2#22#3'Top'#2#6#5'Width'#3#165#0#18'BorderSpacing.Left'#2#6#17'Bord'
|
||||
+'erSpacing.Top'#2#6#7'Caption'#6#18'OIShowHintCheckBox'#8'TabOrder'#2#0#0#0#9
|
||||
+'TCheckBox'#18'OIAutoShowCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptions'
|
||||
+'GroupBox'#21'AnchorSideTop.Control'#7#18'OIShowHintCheckBox'#18'AnchorSideT'
|
||||
+'op.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#31#5'Width'#3
|
||||
+#168#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#18
|
||||
+'OIAutoShowCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#24'OIBoldNonDefaultChe'
|
||||
+'ckBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.'
|
||||
+'Control'#7#18'OIAutoShowCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
|
||||
+'eft'#2#6#6'Height'#2#22#3'Top'#2'8'#5'Width'#3#206#0#18'BorderSpacing.Left'
|
||||
+#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#24'OIBoldNonDefaultCheckBox'#8'T'
|
||||
+'abOrder'#2#2#0#0#9'TCheckBox'#23'OIDrawGridLinesCheckBox'#22'AnchorSideLeft'
|
||||
+'.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#24'OIBoldNonD'
|
||||
+'efaultCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
|
||||
+#2#22#3'Top'#2'Q'#5'Width'#3#198#0#18'BorderSpacing.Left'#2#6#17'BorderSpaci'
|
||||
+'ng.Top'#2#3#7'Caption'#6#23'OIDrawGridLinesCheckBox'#8'TabOrder'#2#3#0#0#9
|
||||
+'TCheckBox'#20'OIShowGutterCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptio'
|
||||
+'nsGroupBox'#21'AnchorSideTop.Control'#7#23'OIDrawGridLinesCheckBox'#18'Anch'
|
||||
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'j'#5'Wid'
|
||||
+'th'#3#179#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'
|
||||
+#6#20'OIShowGutterCheckBox'#8'TabOrder'#2#4#0#0#9'TCheckBox'#23'OIShowStatus'
|
||||
+'BarCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSi'
|
||||
+'deTop.Control'#7#20'OIShowGutterCheckBox'#18'AnchorSideTop.Side'#7#9'asrBot'
|
||||
+'tom'#4'Left'#2#6#6'Height'#2#22#3'Top'#3#131#0#5'Width'#3#201#0#18'BorderSp'
|
||||
+'acing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#23'OIShowStatusBarCh'
|
||||
+'eckBox'#8'TabOrder'#2#5#0#0#9'TCheckBox'#21'OIShowInfoBoxCheckBox'#22'Ancho'
|
||||
+'rSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#23'O'
|
||||
+'IShowStatusBarCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6
|
||||
+'Height'#2#22#3'Top'#3#156#0#5'Width'#3#188#0#18'BorderSpacing.Left'#2#3#20
|
||||
+'BorderSpacing.Around'#2#3#7'Caption'#6#21'OIShowInfoBoxCheckBox'#8'TabOrder'
|
||||
+#2#6#0#0#0#242#2#2#9'TGroupBox$ObjectInspectorSpeedSettingsGroupBox'#22'Anch'
|
||||
+'orSideLeft.Control'#7#29'ObjectInspectorColorsGroupBox'#19'AnchorSideLeft.S'
|
||||
,'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight'
|
||||
+'.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideB'
|
||||
+'ottom.Control'#7#14'OIMiscGroupBox'#4'Left'#3#233#0#6'Height'#3#173#0#3'Top'
|
||||
+#2#0#5'Width'#3#141#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
|
||||
+#0#18'BorderSpacing.Left'#2#7#20'BorderSpacing.Bottom'#2#7#7'Caption'#6'$Obj'
|
||||
+'ectInspectorSpeedSettingsGroupBox'#12'ClientHeight'#3#154#0#11'ClientWidth'
|
||||
+#3#137#1#8'TabOrder'#2#2#0#7'TButton'#28'BtnUseDefaultLazarusSettings'#22'An'
|
||||
+'chorSideLeft.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorSid'
|
||||
+'eTop.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#4'Left'#2#6#6'Height'
|
||||
+#2#29#3'Top'#2#6#5'Width'#3#210#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
|
||||
+#7'Caption'#6#28'BtnUseDefaultLazarusSettings'#21'Constraints.MinHeight'#2#25
|
||||
+#20'Constraints.MinWidth'#2'K'#7'OnClick'#7'!BtnUseDefaultLazarusSettingsCli'
|
||||
+'ck'#8'TabOrder'#2#0#0#0#7'TButton'#27'BtnUseDefaultDelphiSettings'#22'Ancho'
|
||||
+'rSideLeft.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorSideTo'
|
||||
+'p.Control'#7#28'BtnUseDefaultLazarusSettings'#18'AnchorSideTop.Side'#7#9'as'
|
||||
+'rBottom'#23'AnchorSideRight.Control'#7#28'BtnUseDefaultLazarusSettings'#20
|
||||
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3'Top'#2')'
|
||||
+#5'Width'#3#210#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9
|
||||
+#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#27'BtnUse'
|
||||
+'DefaultDelphiSettings'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWid'
|
||||
+'th'#2'K'#7'OnClick'#7' BtnUseDefaultDelphiSettingsClick'#8'TabOrder'#2#1#0#0
|
||||
+#0#242#2#3#9'TGroupBox'#14'OIMiscGroupBox'#22'AnchorSideLeft.Control'#7#29'O'
|
||||
+'bjectInspectorColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'Anc'
|
||||
+'horSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24
|
||||
+'AnchorSideBottom.Control'#7#29'ObjectInspectorColorsGroupBox'#21'AnchorSide'
|
||||
+'Bottom.Side'#7#9'asrBottom'#4'Left'#3#233#0#6'Height'#2':'#3'Top'#3#180#0#5
|
||||
+'Width'#3#141#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'
|
||||
+#9#18'BorderSpacing.Left'#2#7#7'Caption'#6#14'OIMiscGroupBox'#12'ClientHeigh'
|
||||
+'t'#2''''#11'ClientWidth'#3#137#1#8'TabOrder'#2#3#0#6'TLabel'#24'OIDefaultIt'
|
||||
+'emHeightLabel'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSid'
|
||||
+'eTop.Control'#7#27'OIDefaultItemHeightSpinEdit'#18'AnchorSideTop.Side'#7#9
|
||||
+'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#10#5'Width'#3#171#0#20'Borde'
|
||||
+'rSpacing.Around'#2#6#7'Caption'#6#24'OIDefaultItemHeightLabel'#11'ParentCol'
|
||||
+'or'#8#0#0#9'TSpinEdit'#27'OIDefaultItemHeightSpinEdit'#22'AnchorSideLeft.Co'
|
||||
+'ntrol'#7#24'OIDefaultItemHeightLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'
|
||||
+#21'AnchorSideTop.Control'#7#14'OIMiscGroupBox'#4'Left'#3#183#0#6'Height'#2
|
||||
+#27#3'Top'#2#6#5'Width'#2'5'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#8'Ta'
|
||||
+'bOrder'#2#0#5'Value'#2#1#0#0#0#0
|
||||
+'z'#2#12'ClientHeight'#3#228#1#11'ClientWidth'#3'z'#2#7'Visible'#8#10'Design'
|
||||
+'Left'#3#147#1#9'DesignTop'#3#218#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
|
||||
+#0#8'AutoSize'#9#7'Caption'#6#29'ObjectInspectorColorsGroupBox'#28'ChildSizi'
|
||||
+'ng.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizin'
|
||||
+'g.HorizontalSpacing'#2#2#27'ChildSizing.VerticalSpacing'#2#2#12'ClientHeigh'
|
||||
+'t'#3#210#0#11'ClientWidth'#3#222#0#8'TabOrder'#2#0#0#13'TColorListBox'#13'C'
|
||||
+'olorsListBox'#22'AnchorSideLeft.Control'#7#29'ObjectInspectorColorsGroupBox'
|
||||
+#21'AnchorSideTop.Control'#7#29'ObjectInspectorColorsGroupBox'#4'Left'#2#6#6
|
||||
+'Height'#3#170#0#3'Top'#2#6#5'Width'#3#210#0#5'Style'#11#14'cbCustomColors'#0
|
||||
+#11'OnGetColors'#7#22'ColorsListBoxGetColors'#20'BorderSpacing.Around'#2#6#10
|
||||
+'ItemHeight'#2#0#17'OnSelectionChange'#7#28'ColorsListBoxSelectionChange'#8
|
||||
+'TabOrder'#2#0#0#0#9'TColorBox'#8'ColorBox'#22'AnchorSideLeft.Control'#7#29
|
||||
+'ObjectInspectorColorsGroupBox'#21'AnchorSideTop.Control'#7#13'ColorsListBox'
|
||||
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'Colo'
|
||||
+'rsListBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
|
||||
+#22#3'Top'#3#182#0#5'Width'#3#210#0#5'Style'#11#16'cbStandardColors'#16'cbEx'
|
||||
+'tendedColors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#20'B'
|
||||
+'orderSpacing.Around'#2#6#10'ItemHeight'#2#16#8'OnChange'#7#14'ColorBoxChang'
|
||||
+'e'#8'TabOrder'#2#1#0#0#0#242#2#1#9'TGroupBox'#17'OIOptionsGroupBox'#22'Anch'
|
||||
+'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#29'ObjectInspect'
|
||||
+'orColorsGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
|
||||
+'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'H'
|
||||
+'eight'#3#164#0#3'Top'#3#235#0#5'Width'#3'z'#2#7'Anchors'#11#5'akTop'#6'akLe'
|
||||
+'ft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#7#7'Caption'#6#17'OI'
|
||||
+'OptionsGroupBox'#12'ClientHeight'#3#146#0#11'ClientWidth'#3'v'#2#8'TabOrder'
|
||||
+#2#1#0#9'TCheckBox'#18'OIShowHintCheckBox'#22'AnchorSideLeft.Control'#7#17'O'
|
||||
+'IOptionsGroupBox'#21'AnchorSideTop.Control'#7#17'OIOptionsGroupBox'#4'Left'
|
||||
+#2#6#6'Height'#2#17#3'Top'#2#6#5'Width'#2'z'#18'BorderSpacing.Left'#2#6#17'B'
|
||||
+'orderSpacing.Top'#2#6#7'Caption'#6#18'OIShowHintCheckBox'#8'TabOrder'#2#0#0
|
||||
+#0#9'TCheckBox'#18'OIAutoShowCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOpt'
|
||||
+'ionsGroupBox'#21'AnchorSideTop.Control'#7#18'OIShowHintCheckBox'#18'AnchorS'
|
||||
+'ideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#26#5'Width'
|
||||
+#2'~'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#18'O'
|
||||
+'IAutoShowCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#24'OIBoldNonDefaultChec'
|
||||
+'kBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.C'
|
||||
+'ontrol'#7#18'OIAutoShowCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
|
||||
+'ft'#2#6#6'Height'#2#17#3'Top'#2'.'#5'Width'#3#151#0#18'BorderSpacing.Left'#2
|
||||
+#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#24'OIBoldNonDefaultCheckBox'#8'Tab'
|
||||
+'Order'#2#2#0#0#9'TCheckBox'#23'OIDrawGridLinesCheckBox'#22'AnchorSideLeft.C'
|
||||
+'ontrol'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#24'OIBoldNonDef'
|
||||
+'aultCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
|
||||
+#17#3'Top'#2'B'#5'Width'#3#145#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing'
|
||||
+'.Top'#2#3#7'Caption'#6#23'OIDrawGridLinesCheckBox'#8'TabOrder'#2#3#0#0#9'TC'
|
||||
+'heckBox'#20'OIShowGutterCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptions'
|
||||
+'GroupBox'#21'AnchorSideTop.Control'#7#23'OIDrawGridLinesCheckBox'#18'Anchor'
|
||||
+'SideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'V'#5'Width'
|
||||
+#3#134#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#20
|
||||
+'OIShowGutterCheckBox'#8'TabOrder'#2#4#0#0#9'TCheckBox'#23'OIShowStatusBarCh'
|
||||
+'eckBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop'
|
||||
+'.Control'#7#20'OIShowGutterCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
|
||||
+'Left'#2#6#6'Height'#2#17#3'Top'#2'j'#5'Width'#3#150#0#18'BorderSpacing.Left'
|
||||
+#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#23'OIShowStatusBarCheckBox'#8'Ta'
|
||||
+'bOrder'#2#5#0#0#9'TCheckBox'#21'OIShowInfoBoxCheckBox'#22'AnchorSideLeft.Co'
|
||||
+'ntrol'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#23'OIShowStatusB'
|
||||
+'arCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17
|
||||
+#3'Top'#2'~'#5'Width'#3#141#0#18'BorderSpacing.Left'#2#3#20'BorderSpacing.Ar'
|
||||
+'ound'#2#3#7'Caption'#6#21'OIShowInfoBoxCheckBox'#8'TabOrder'#2#6#0#0#0#242#2
|
||||
+#2#9'TGroupBox$ObjectInspectorSpeedSettingsGroupBox'#22'AnchorSideLeft.Contr'
|
||||
+'ol'#7#29'ObjectInspectorColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBott'
|
||||
+'om'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Ow'
|
||||
,'ner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
|
||||
+#14'OIMiscGroupBox'#4'Left'#3#233#0#6'Height'#3#170#0#3'Top'#2#0#5'Width'#3
|
||||
+#145#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSp'
|
||||
+'acing.Left'#2#7#20'BorderSpacing.Bottom'#2#7#7'Caption'#6'$ObjectInspectorS'
|
||||
+'peedSettingsGroupBox'#12'ClientHeight'#3#152#0#11'ClientWidth'#3#141#1#8'Ta'
|
||||
+'bOrder'#2#2#0#7'TButton'#28'BtnUseDefaultLazarusSettings'#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#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
|
||||
+#28'BtnUseDefaultLazarusSettings'#21'Constraints.MinHeight'#2#25#20'Constrai'
|
||||
+'nts.MinWidth'#2'K'#7'OnClick'#7'!BtnUseDefaultLazarusSettingsClick'#8'TabOr'
|
||||
+'der'#2#0#0#0#7'TButton'#27'BtnUseDefaultDelphiSettings'#22'AnchorSideLeft.C'
|
||||
+'ontrol'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorSideTop.Control'#7
|
||||
+#28'BtnUseDefaultLazarusSettings'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'A'
|
||||
+'nchorSideRight.Control'#7#28'BtnUseDefaultLazarusSettings'#20'AnchorSideRig'
|
||||
+'ht.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#25#3'Top'#2'%'#5'Width'#3
|
||||
+#171#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'Border'
|
||||
+'Spacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#27'BtnUseDefaultDe'
|
||||
+'lphiSettings'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#7
|
||||
+'OnClick'#7' BtnUseDefaultDelphiSettingsClick'#8'TabOrder'#2#1#0#0#0#242#2#3
|
||||
+#9'TGroupBox'#14'OIMiscGroupBox'#22'AnchorSideLeft.Control'#7#29'ObjectInspe'
|
||||
+'ctorColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRig'
|
||||
+'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSid'
|
||||
+'eBottom.Control'#7#29'ObjectInspectorColorsGroupBox'#21'AnchorSideBottom.Si'
|
||||
+'de'#7#9'asrBottom'#4'Left'#3#233#0#6'Height'#2'3'#3'Top'#3#177#0#5'Width'#3
|
||||
+#145#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'#9#18'Bor'
|
||||
+'derSpacing.Left'#2#7#7'Caption'#6#14'OIMiscGroupBox'#12'ClientHeight'#2'!'
|
||||
+#11'ClientWidth'#3#141#1#8'TabOrder'#2#3#0#6'TLabel'#24'OIDefaultItemHeightL'
|
||||
+'abel'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSideTop.Cont'
|
||||
+'rol'#7#27'OIDefaultItemHeightSpinEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'
|
||||
+#4'Left'#2#6#6'Height'#2#14#3'Top'#2#9#5'Width'#2'~'#20'BorderSpacing.Around'
|
||||
+#2#6#7'Caption'#6#24'OIDefaultItemHeightLabel'#11'ParentColor'#8#0#0#9'TSpin'
|
||||
+'Edit'#27'OIDefaultItemHeightSpinEdit'#22'AnchorSideLeft.Control'#7#24'OIDef'
|
||||
+'aultItemHeightLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
|
||||
+'p.Control'#7#14'OIMiscGroupBox'#4'Left'#3#138#0#6'Height'#2#21#3'Top'#2#6#5
|
||||
+'Width'#2'5'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#5'Value'#2#1#0#0#0
|
||||
+#0
|
||||
]);
|
||||
|
||||
@ -45,7 +45,8 @@ type
|
||||
ocValue,
|
||||
ocDefValue,
|
||||
ocSubProp,
|
||||
ocReference
|
||||
ocReference,
|
||||
ocReadOnly
|
||||
);
|
||||
|
||||
TOIOption = (
|
||||
@ -117,7 +118,8 @@ const
|
||||
{ ocValue } DefValueColor,
|
||||
{ ocDefValue } DefDefaultValueColor,
|
||||
{ ocSubProp } DefSubPropertiesColor,
|
||||
{ ocReference } DefReferencesColor
|
||||
{ ocReference } DefReferencesColor,
|
||||
{ ocReadOnly } DefReadOnlyColor
|
||||
);
|
||||
Options: (
|
||||
{ ooShowHints } False,
|
||||
@ -142,7 +144,8 @@ const
|
||||
{ ocValue } clNavy,
|
||||
{ ocDefValue } clNavy,
|
||||
{ ocSubProp } clGreen,
|
||||
{ ocReference } clMaroon
|
||||
{ ocReference } clMaroon,
|
||||
{ ocReadOnly } clGrayText
|
||||
);
|
||||
Options: (
|
||||
{ ooShowHints } False,
|
||||
@ -191,6 +194,7 @@ begin
|
||||
Items.Add(dlgDefValueColor);
|
||||
Items.Add(dlgSubPropColor);
|
||||
Items.Add(dlgReferenceColor);
|
||||
Items.Add(dlfReadOnlyColor)
|
||||
end;
|
||||
|
||||
procedure TOIOptionsFrame.ChangeColor(AIndex: Integer; NewColor: TColor);
|
||||
@ -262,6 +266,7 @@ begin
|
||||
ASettings.Colors[ocDefValue] := ObjectInspectorOptions.DefaultValueColor;
|
||||
ASettings.Colors[ocSubProp] := ObjectInspectorOptions.SubPropertiesColor;
|
||||
ASettings.Colors[ocReference] := ObjectInspectorOptions.ReferencesColor;
|
||||
ASettings.Colors[ocReadOnly] := ObjectInspectorOptions.ReadOnlyColor;
|
||||
|
||||
ASettings.Options[ooShowHints] := ObjectInspectorOptions.ShowHints;
|
||||
ASettings.Options[ooAutoShow] := ObjectInspectorOptions.AutoShow;
|
||||
@ -290,6 +295,7 @@ begin
|
||||
ObjectInspectorOptions.DefaultValueColor := ColorsListBox.Colors[Ord(ocDefValue)];
|
||||
ObjectInspectorOptions.SubPropertiesColor := ColorsListBox.Colors[Ord(ocSubProp)];
|
||||
ObjectInspectorOptions.ReferencesColor := ColorsListBox.Colors[Ord(ocReference)];
|
||||
ObjectInspectorOptions.ReadOnlyColor := ColorsListBox.Colors[Ord(ocReadOnly)];
|
||||
|
||||
ObjectInspectorOptions.ShowHints := OIShowHintCheckBox.Checked;
|
||||
ObjectInspectorOptions.AutoShow := OIAutoShowCheckBox.Checked;
|
||||
|
||||
@ -1058,6 +1058,7 @@ resourcestring
|
||||
dlgSubPropColor = 'SubProperties';
|
||||
dlgReferenceColor = 'Reference';
|
||||
dlgValueColor = 'Value';
|
||||
dlfReadOnlyColor = 'Read Only';
|
||||
dlgHighlightColor = 'Highlight Color';
|
||||
dlgHighlightFontColor = 'Highlight Font Color';
|
||||
dlgDefValueColor = 'Default Value';
|
||||
|
||||
@ -9,7 +9,7 @@ object ObjectInspectorDlg: TObjectInspectorDlg
|
||||
KeyPreview = True
|
||||
OnResize = ObjectInspectorResize
|
||||
PopupMenu = MainPopupMenu
|
||||
LCLVersion = '0.9.27'
|
||||
LCLVersion = '0.9.29'
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Height = 23
|
||||
|
||||
@ -5,7 +5,7 @@ LazarusResources.Add('TObjectInspectorDlg','FORMDATA',[
|
||||
+#3#157#2#3'Top'#3#175#0#5'Width'#3#19#1#7'Caption'#6#18'ObjectInspectorDlg'
|
||||
+#12'ClientHeight'#3#157#2#11'ClientWidth'#3#19#1#10'KeyPreview'#9#8'OnResize'
|
||||
+#7#21'ObjectInspectorResize'#9'PopupMenu'#7#13'MainPopupMenu'#10'LCLVersion'
|
||||
+#6#6'0.9.27'#0#10'TStatusBar'#9'StatusBar'#4'Left'#2#0#6'Height'#2#23#3'Top'
|
||||
+#6#6'0.9.29'#0#10'TStatusBar'#9'StatusBar'#4'Left'#2#0#6'Height'#2#23#3'Top'
|
||||
+#3#134#2#5'Width'#3#19#1#6'Panels'#14#1#5'Width'#2'd'#0#1#5'Width'#2'2'#0#0
|
||||
+#11'SimplePanel'#8#0#0#9'TComboBox'#23'AvailPersistentComboBox'#4'Left'#2#0#6
|
||||
+'Height'#2#21#3'Top'#2#0#5'Width'#3#19#1#5'Align'#7#5'alTop'#10'ItemHeight'#2
|
||||
|
||||
@ -56,6 +56,7 @@ const
|
||||
DefNameColor = clWindowText;
|
||||
DefDefaultValueColor = clWindowText;
|
||||
DefValueColor = clMaroon;
|
||||
DefReadOnlyColor = clGrayText;
|
||||
DefHighlightColor = clHighlight;
|
||||
DefHighlightFontColor = clHighlightText;
|
||||
DefGutterColor = DefBackgroundColor;
|
||||
@ -102,6 +103,7 @@ type
|
||||
FDefaultValueColor: TColor;
|
||||
FSubPropertiesColor: TColor;
|
||||
FValueColor: TColor;
|
||||
FReadOnlyColor: TColor;
|
||||
FReferencesColor: TColor;
|
||||
FGridBackgroundColor: TColor;
|
||||
FHighlightColor: TColor;
|
||||
@ -142,6 +144,7 @@ type
|
||||
property SubPropertiesColor: TColor read FSubPropertiesColor write FSubPropertiesColor;
|
||||
property ReferencesColor: TColor read FReferencesColor write FReferencesColor;
|
||||
property ValueColor: TColor read FValueColor write FValueColor;
|
||||
property ReadOnlyColor: TColor read FReadOnlyColor write FReadOnlyColor;
|
||||
property DefaultValueColor: TColor read FDefaultValueColor write FDefaultValueColor;
|
||||
property PropertyNameColor: TColor read FPropertyNameColor write FPropertyNameColor;
|
||||
property HighlightColor: TColor read FHighlightColor write FHighlightColor;
|
||||
@ -260,6 +263,7 @@ type
|
||||
FOnPropertyHint: TOIPropertyHint;
|
||||
FOnSelectionChange: TNotifyEvent;
|
||||
FReferencesColor: TColor;
|
||||
FReadOnlyColor: TColor;
|
||||
FRowSpacing: integer;
|
||||
FShowGutter: Boolean;
|
||||
FSubPropertiesColor: TColor;
|
||||
@ -390,6 +394,7 @@ type
|
||||
procedure SetBackgroundColor(const AValue: TColor);
|
||||
procedure SetReferences(const AValue: TColor);
|
||||
procedure SetSubPropertiesColor(const AValue: TColor);
|
||||
procedure SetReadOnlyColor(const AValue: TColor);
|
||||
procedure UpdateScrollBar;
|
||||
procedure FillComboboxItems;
|
||||
function EditorFilter(const AEditor: TPropertyEditor): Boolean;
|
||||
@ -449,6 +454,8 @@ type
|
||||
write SetReferences default DefReferencesColor;
|
||||
property SubPropertiesColor: TColor read FSubPropertiesColor
|
||||
write SetSubPropertiesColor default DefSubPropertiesColor;
|
||||
property ReadOnlyColor: TColor read FReadOnlyColor
|
||||
write SetReadOnlyColor default DefReadOnlyColor;
|
||||
property NameFont: TFont read FNameFont write FNameFont;
|
||||
property DefaultValueFont: TFont read FDefaultValueFont write FDefaultValueFont;
|
||||
property ValueFont: TFont read FValueFont write FValueFont;
|
||||
@ -810,6 +817,7 @@ begin
|
||||
FBackgroundColor:=DefBackgroundColor;
|
||||
FReferencesColor:=DefReferencesColor;
|
||||
FSubPropertiesColor:=DefSubPropertiesColor;
|
||||
FReadOnlyColor:=DefReadOnlyColor;
|
||||
FHighlightColor:=DefHighlightColor;
|
||||
FGutterColor:=DefGutterColor;
|
||||
FGutterEdgeColor:=DefGutterEdgeColor;
|
||||
@ -2214,6 +2222,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TOICustomPropertyGrid.SetReadOnlyColor(const AValue: TColor);
|
||||
begin
|
||||
if FReadOnlyColor = AValue then Exit;
|
||||
FReadOnlyColor := AValue;
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
procedure TOICustomPropertyGrid.SetRowSpacing(const AValue: integer);
|
||||
begin
|
||||
if FRowSpacing = AValue then exit;
|
||||
@ -2259,6 +2274,12 @@ begin
|
||||
end;
|
||||
|
||||
function TOICustomPropertyGrid.GetPropNameColor(ARow:TOIPropertyGridRow):TColor;
|
||||
|
||||
function HasWriter(APropInfo: PPropInfo): Boolean; inline;
|
||||
begin
|
||||
Result := Assigned(APropInfo) and Assigned(APropInfo^.SetProc);
|
||||
end;
|
||||
|
||||
var
|
||||
ParentRow:TOIPropertyGridRow;
|
||||
IsObjectSubProperty:Boolean;
|
||||
@ -2276,10 +2297,15 @@ begin
|
||||
|
||||
if (ItemIndex <> -1) and (ItemIndex = ARow.Index) then
|
||||
Result := FHighlightFont.Color
|
||||
else if IsObjectSubProperty then
|
||||
Result := FSubPropertiesColor
|
||||
else if ARow.Editor is TPersistentPropertyEditor then
|
||||
else
|
||||
if not HasWriter(ARow.Editor.GetPropInfo) then
|
||||
Result := FReadOnlyColor
|
||||
else
|
||||
if ARow.Editor is TPersistentPropertyEditor then
|
||||
Result := FReferencesColor
|
||||
else
|
||||
if IsObjectSubProperty then
|
||||
Result := FSubPropertiesColor
|
||||
else
|
||||
Result := FNameFont.Color;
|
||||
end;
|
||||
@ -3435,6 +3461,7 @@ begin
|
||||
FDefaultValueColor := DefDefaultValueColor;
|
||||
FSubPropertiesColor := DefSubPropertiesColor;
|
||||
FValueColor := DefValueColor;
|
||||
FReadOnlyColor := DefReadOnlyColor;
|
||||
FReferencesColor := DefReferencesColor;
|
||||
FPropertyNameColor := DefNameColor;
|
||||
FHighlightColor := DefHighlightColor;
|
||||
@ -3499,6 +3526,8 @@ begin
|
||||
Path+'Color/SubProperties', DefSubPropertiesColor);
|
||||
FValueColor:=ConfigStore.GetValue(
|
||||
Path+'Color/Value', DefValueColor);
|
||||
FReadOnlyColor:=ConfigStore.GetValue(
|
||||
Path+'Color/ReadOnly', DefReadOnlyColor);
|
||||
FReferencesColor:=ConfigStore.GetValue(
|
||||
Path+'Color/References',DefReferencesColor);
|
||||
FPropertyNameColor:=ConfigStore.GetValue(
|
||||
@ -3576,6 +3605,8 @@ begin
|
||||
FSubPropertiesColor,DefSubPropertiesColor);
|
||||
ConfigStore.SetDeleteValue(Path+'Color/Value',
|
||||
FValueColor,DefValueColor);
|
||||
ConfigStore.SetDeleteValue(Path+'Color/ReadOnly',
|
||||
FReadOnlyColor,DefReadOnlyColor);
|
||||
ConfigStore.SetDeleteValue(Path+'Color/References',
|
||||
FReferencesColor,DefReferencesColor);
|
||||
ConfigStore.SetDeleteValue(Path+'Color/PropertyName',
|
||||
@ -3625,6 +3656,7 @@ begin
|
||||
FReferencesColor:=AnObjInspector.PropertyGrid.ReferencesColor;
|
||||
FValueColor:=AnObjInspector.PropertyGrid.ValueFont.Color;
|
||||
FDefaultValueColor:=AnObjInspector.PropertyGrid.DefaultValueFont.Color;
|
||||
FReadOnlyColor:=AnObjInspector.PropertyGrid.ReadOnlyColor;
|
||||
FPropertyNameColor:=AnObjInspector.PropertyGrid.NameFont.Color;
|
||||
FHighlightColor:=AnObjInspector.PropertyGrid.HighlightColor;
|
||||
FHighlightFontColor:=AnObjInspector.PropertyGrid.HighlightFont.Color;
|
||||
@ -3672,6 +3704,7 @@ begin
|
||||
AGrid.BackgroundColor := FGridBackgroundColor;
|
||||
AGrid.SubPropertiesColor := FSubPropertiesColor;
|
||||
AGrid.ReferencesColor := FReferencesColor;
|
||||
AGrid.ReadOnlyColor := FReadOnlyColor;
|
||||
AGrid.ValueFont.Color := FValueColor;
|
||||
if FBoldNonDefaultValues then
|
||||
AGrid.ValueFont.Style := [fsBold]
|
||||
|
||||
Loading…
Reference in New Issue
Block a user