ide: add ReadOnly color setting to the object inspector options, draw properties without writer using ReadOnly color setting

git-svn-id: trunk@22127 -

ide/frames/oi_options.lfm

@@ -1,9 +1,8 @@
 inherited OIOptionsFrame: TOIOptionsFrame
   Height = 484
   Width = 634
-  ClientHeight = 480
+  ClientHeight = 484
-  ClientWidth = 630
+  ClientWidth = 634
-  TabOrder = 0
   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
+    Height = 164
-    Top = 245
+    Top = 235
-    Width = 630
+    Width = 634
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
     BorderSpacing.Top = 7
     Caption = 'OIOptionsGroupBox'
-    ClientHeight = 181
+    ClientHeight = 146
-    ClientWidth = 626
+    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
+      Height = 17
-      Top = 31
+      Top = 26
-      Width = 168
+      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
+      Height = 17
-      Top = 56
+      Top = 46
-      Width = 206
+      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
+      Height = 17
-      Top = 81
+      Top = 66
-      Width = 198
+      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
+      Height = 17
-      Top = 106
+      Top = 86
-      Width = 179
+      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
+      Height = 17
-      Top = 131
+      Top = 106
-      Width = 201
+      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
+      Height = 17
-      Top = 156
+      Top = 126
-      Width = 188
+      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
+    ClientHeight = 152
-    ClientWidth = 393
+    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
+      Height = 25
-      Top = 41
+      Top = 37
-      Width = 210
+      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
+    Height = 51
-    Top = 180
+    Top = 177
-    Width = 397
+    Width = 401
     Anchors = [akLeft, akRight, akBottom]
     AutoSize = True
     BorderSpacing.Left = 7
     Caption = 'OIMiscGroupBox'
-    ClientHeight = 39
+    ClientHeight = 33
-    ClientWidth = 393
+    ClientWidth = 397
     TabOrder = 3
     object OIDefaultItemHeightLabel: TLabel
       AnchorSideLeft.Control = OIMiscGroupBox
       AnchorSideTop.Control = OIDefaultItemHeightSpinEdit
       AnchorSideTop.Side = asrCenter
       Left = 6
-      Height = 18
+      Height = 14
-      Top = 10
+      Top = 9
-      Width = 171
+      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
+      Left = 138
-      Height = 27
+      Height = 21
       Top = 6
       Width = 53
-      AutoSize = True
       BorderSpacing.Around = 6
       TabOrder = 0
       Value = 1

ide/frames/oi_options.lrs

@@ -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'
+  +'z'#2#12'ClientHeight'#3#228#1#11'ClientWidth'#3'z'#2#7'Visible'#8#10'Design'
-  +'ble'#8#10'DesignLeft'#3#147#1#9'DesignTop'#3#218#0#0#242#2#0#9'TGroupBox'#29
+  +'Left'#3#147#1#9'DesignTop'#3#218#0#0#242#2#0#9'TGroupBox'#29'ObjectInspecto'
-  +'ObjectInspectorColorsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+  +'rColorsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Con'
-  +'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
+  +'trol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.'
-  +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#238#0#3'Top'#2#0
+  +'Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#228#0#3'Top'#2#0#5'Width'#3#226
-  +#5'Width'#3#226#0#8'AutoSize'#9#7'Caption'#6#29'ObjectInspectorColorsGroupBo'
+  +#0#8'AutoSize'#9#7'Caption'#6#29'ObjectInspectorColorsGroupBox'#28'ChildSizi'
-  +'x'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6
+  +'ng.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizin'
-  +#29'ChildSizing.HorizontalSpacing'#2#2#27'ChildSizing.VerticalSpacing'#2#2#12
+  +'g.HorizontalSpacing'#2#2#27'ChildSizing.VerticalSpacing'#2#2#12'ClientHeigh'
-  +'ClientHeight'#3#219#0#11'ClientWidth'#3#222#0#8'TabOrder'#2#0#0#13'TColorLi'
+  +'t'#3#210#0#11'ClientWidth'#3#222#0#8'TabOrder'#2#0#0#13'TColorListBox'#13'C'
-  +'stBox'#13'ColorsListBox'#22'AnchorSideLeft.Control'#7#29'ObjectInspectorCol'
+  +'olorsListBox'#22'AnchorSideLeft.Control'#7#29'ObjectInspectorColorsGroupBox'
-  +'orsGroupBox'#21'AnchorSideTop.Control'#7#29'ObjectInspectorColorsGroupBox'#4
+  +#21'AnchorSideTop.Control'#7#29'ObjectInspectorColorsGroupBox'#4'Left'#2#6#6
-  +'Left'#2#6#6'Height'#3#170#0#3'Top'#2#6#5'Width'#3#210#0#5'Style'#11#14'cbCu'
+  +'Height'#3#170#0#3'Top'#2#6#5'Width'#3#210#0#5'Style'#11#14'cbCustomColors'#0
-  +'stomColors'#0#11'OnGetColors'#7#22'ColorsListBoxGetColors'#20'BorderSpacing'
+  +#11'OnGetColors'#7#22'ColorsListBoxGetColors'#20'BorderSpacing.Around'#2#6#10
-  +'.Around'#2#6#10'ItemHeight'#2#0#17'OnSelectionChange'#7#28'ColorsListBoxSel'
+  +'ItemHeight'#2#0#17'OnSelectionChange'#7#28'ColorsListBoxSelectionChange'#8
-  +'ectionChange'#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#9'TColorBox'#8'ColorBox'
+  +'TabOrder'#2#0#0#0#9'TColorBox'#8'ColorBox'#22'AnchorSideLeft.Control'#7#29
-  +#22'AnchorSideLeft.Control'#7#29'ObjectInspectorColorsGroupBox'#21'AnchorSid'
+  +'ObjectInspectorColorsGroupBox'#21'AnchorSideTop.Control'#7#13'ColorsListBox'
-  +'eTop.Control'#7#13'ColorsListBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
+  +#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'Colo'
-  +'AnchorSideRight.Control'#7#13'ColorsListBox'#20'AnchorSideRight.Side'#7#9'a'
+  +'rsListBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
-  +'srBottom'#4'Left'#2#6#6'Height'#2#31#3'Top'#3#182#0#5'Width'#3#210#0#5'Styl'
+  +#22#3'Top'#3#182#0#5'Width'#3#210#0#5'Style'#11#16'cbStandardColors'#16'cbEx'
-  +'e'#11#16'cbStandardColors'#16'cbExtendedColors'#14'cbSystemColors'#13'cbCus'
+  +'tendedColors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#20'B'
-  +'tomColor'#13'cbPrettyNames'#0#12'AutoComplete'#8#20'BorderSpacing.Around'#2
+  +'orderSpacing.Around'#2#6#10'ItemHeight'#2#16#8'OnChange'#7#14'ColorBoxChang'
-  +#6#10'ItemHeight'#2#16#9'ItemWidth'#2#0#8'OnChange'#7#14'ColorBoxChange'#8'T'
+  +'e'#8'TabOrder'#2#1#0#0#0#242#2#1#9'TGroupBox'#17'OIOptionsGroupBox'#22'Anch'
-  +'abOrder'#2#1#0#0#0#242#2#1#9'TGroupBox'#17'OIOptionsGroupBox'#22'AnchorSide'
+  +'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#29'ObjectInspect'
-  +'Left.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#29'ObjectInspectorColo'
+  +'orColorsGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
-  +'rsGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro'
+  +'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'H'
-  +'l'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'
+  +'eight'#3#164#0#3'Top'#3#235#0#5'Width'#3'z'#2#7'Anchors'#11#5'akTop'#6'akLe'
-  +#3#200#0#3'Top'#3#245#0#5'Width'#3'v'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+  +'ft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#7#7'Caption'#6#17'OI'
-  +'kRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#7#7'Caption'#6#17'OIOptions'
+  +'OptionsGroupBox'#12'ClientHeight'#3#146#0#11'ClientWidth'#3'v'#2#8'TabOrder'
-  +'GroupBox'#12'ClientHeight'#3#181#0#11'ClientWidth'#3'r'#2#8'TabOrder'#2#1#0
+  +#2#1#0#9'TCheckBox'#18'OIShowHintCheckBox'#22'AnchorSideLeft.Control'#7#17'O'
-  +#9'TCheckBox'#18'OIShowHintCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptio'
+  +'IOptionsGroupBox'#21'AnchorSideTop.Control'#7#17'OIOptionsGroupBox'#4'Left'
-  +'nsGroupBox'#21'AnchorSideTop.Control'#7#17'OIOptionsGroupBox'#4'Left'#2#6#6
+  +#2#6#6'Height'#2#17#3'Top'#2#6#5'Width'#2'z'#18'BorderSpacing.Left'#2#6#17'B'
-  +'Height'#2#22#3'Top'#2#6#5'Width'#3#165#0#18'BorderSpacing.Left'#2#6#17'Bord'
+  +'orderSpacing.Top'#2#6#7'Caption'#6#18'OIShowHintCheckBox'#8'TabOrder'#2#0#0
-  +'erSpacing.Top'#2#6#7'Caption'#6#18'OIShowHintCheckBox'#8'TabOrder'#2#0#0#0#9
+  +#0#9'TCheckBox'#18'OIAutoShowCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOpt'
-  +'TCheckBox'#18'OIAutoShowCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptions'
+  +'ionsGroupBox'#21'AnchorSideTop.Control'#7#18'OIShowHintCheckBox'#18'AnchorS'
-  +'GroupBox'#21'AnchorSideTop.Control'#7#18'OIShowHintCheckBox'#18'AnchorSideT'
+  +'ideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#26#5'Width'
-  +'op.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#31#5'Width'#3
+  +#2'~'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#18'O'
-  +#168#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#18
+  +'IAutoShowCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#24'OIBoldNonDefaultChec'
-  +'OIAutoShowCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#24'OIBoldNonDefaultChe'
+  +'kBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.C'
-  +'ckBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.'
+  +'ontrol'#7#18'OIAutoShowCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
-  +'Control'#7#18'OIAutoShowCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
+  +'ft'#2#6#6'Height'#2#17#3'Top'#2'.'#5'Width'#3#151#0#18'BorderSpacing.Left'#2
-  +'eft'#2#6#6'Height'#2#22#3'Top'#2'8'#5'Width'#3#206#0#18'BorderSpacing.Left'
+  +#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#24'OIBoldNonDefaultCheckBox'#8'Tab'
-  +#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#24'OIBoldNonDefaultCheckBox'#8'T'
+  +'Order'#2#2#0#0#9'TCheckBox'#23'OIDrawGridLinesCheckBox'#22'AnchorSideLeft.C'
-  +'abOrder'#2#2#0#0#9'TCheckBox'#23'OIDrawGridLinesCheckBox'#22'AnchorSideLeft'
+  +'ontrol'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#24'OIBoldNonDef'
-  +'.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#24'OIBoldNonD'
+  +'aultCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
-  +'efaultCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
+  +#17#3'Top'#2'B'#5'Width'#3#145#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing'
-  +#2#22#3'Top'#2'Q'#5'Width'#3#198#0#18'BorderSpacing.Left'#2#6#17'BorderSpaci'
+  +'.Top'#2#3#7'Caption'#6#23'OIDrawGridLinesCheckBox'#8'TabOrder'#2#3#0#0#9'TC'
-  +'ng.Top'#2#3#7'Caption'#6#23'OIDrawGridLinesCheckBox'#8'TabOrder'#2#3#0#0#9
+  +'heckBox'#20'OIShowGutterCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptions'
-  +'TCheckBox'#20'OIShowGutterCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptio'
+  +'GroupBox'#21'AnchorSideTop.Control'#7#23'OIDrawGridLinesCheckBox'#18'Anchor'
-  +'nsGroupBox'#21'AnchorSideTop.Control'#7#23'OIDrawGridLinesCheckBox'#18'Anch'
+  +'SideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'V'#5'Width'
-  +'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'j'#5'Wid'
+  +#3#134#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#20
-  +'th'#3#179#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'
+  +'OIShowGutterCheckBox'#8'TabOrder'#2#4#0#0#9'TCheckBox'#23'OIShowStatusBarCh'
-  +#6#20'OIShowGutterCheckBox'#8'TabOrder'#2#4#0#0#9'TCheckBox'#23'OIShowStatus'
+  +'eckBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop'
-  +'BarCheckBox'#22'AnchorSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSi'
+  +'.Control'#7#20'OIShowGutterCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
-  +'deTop.Control'#7#20'OIShowGutterCheckBox'#18'AnchorSideTop.Side'#7#9'asrBot'
+  +'Left'#2#6#6'Height'#2#17#3'Top'#2'j'#5'Width'#3#150#0#18'BorderSpacing.Left'
-  +'tom'#4'Left'#2#6#6'Height'#2#22#3'Top'#3#131#0#5'Width'#3#201#0#18'BorderSp'
+  +#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#23'OIShowStatusBarCheckBox'#8'Ta'
-  +'acing.Left'#2#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#23'OIShowStatusBarCh'
+  +'bOrder'#2#5#0#0#9'TCheckBox'#21'OIShowInfoBoxCheckBox'#22'AnchorSideLeft.Co'
-  +'eckBox'#8'TabOrder'#2#5#0#0#9'TCheckBox'#21'OIShowInfoBoxCheckBox'#22'Ancho'
+  +'ntrol'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#23'OIShowStatusB'
-  +'rSideLeft.Control'#7#17'OIOptionsGroupBox'#21'AnchorSideTop.Control'#7#23'O'
+  +'arCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17
-  +'IShowStatusBarCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6
+  +#3'Top'#2'~'#5'Width'#3#141#0#18'BorderSpacing.Left'#2#3#20'BorderSpacing.Ar'
-  +'Height'#2#22#3'Top'#3#156#0#5'Width'#3#188#0#18'BorderSpacing.Left'#2#3#20
+  +'ound'#2#3#7'Caption'#6#21'OIShowInfoBoxCheckBox'#8'TabOrder'#2#6#0#0#0#242#2
-  +'BorderSpacing.Around'#2#3#7'Caption'#6#21'OIShowInfoBoxCheckBox'#8'TabOrder'
+  +#2#9'TGroupBox$ObjectInspectorSpeedSettingsGroupBox'#22'AnchorSideLeft.Contr'
-  +#2#6#0#0#0#242#2#2#9'TGroupBox$ObjectInspectorSpeedSettingsGroupBox'#22'Anch'
+  +'ol'#7#29'ObjectInspectorColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBott'
-  +'orSideLeft.Control'#7#29'ObjectInspectorColorsGroupBox'#19'AnchorSideLeft.S'
+  +'om'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Ow'
-  ,'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight'
+  ,'ner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
-  +'.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideB'
+  +#14'OIMiscGroupBox'#4'Left'#3#233#0#6'Height'#3#170#0#3'Top'#2#0#5'Width'#3
-  +'ottom.Control'#7#14'OIMiscGroupBox'#4'Left'#3#233#0#6'Height'#3#173#0#3'Top'
+  +#145#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSp'
-  +#2#0#5'Width'#3#141#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
+  +'acing.Left'#2#7#20'BorderSpacing.Bottom'#2#7#7'Caption'#6'$ObjectInspectorS'
-  +#0#18'BorderSpacing.Left'#2#7#20'BorderSpacing.Bottom'#2#7#7'Caption'#6'$Obj'
+  +'peedSettingsGroupBox'#12'ClientHeight'#3#152#0#11'ClientWidth'#3#141#1#8'Ta'
-  +'ectInspectorSpeedSettingsGroupBox'#12'ClientHeight'#3#154#0#11'ClientWidth'
+  +'bOrder'#2#2#0#7'TButton'#28'BtnUseDefaultLazarusSettings'#22'AnchorSideLeft'
-  +#3#137#1#8'TabOrder'#2#2#0#7'TButton'#28'BtnUseDefaultLazarusSettings'#22'An'
+  +'.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorSideTop.Control'
-  +'chorSideLeft.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorSid'
+  +#7'$ObjectInspectorSpeedSettingsGroupBox'#4'Left'#2#6#6'Height'#2#25#3'Top'#2
-  +'eTop.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#4'Left'#2#6#6'Height'
+  +#6#5'Width'#3#171#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
-  +#2#29#3'Top'#2#6#5'Width'#3#210#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
+  +#28'BtnUseDefaultLazarusSettings'#21'Constraints.MinHeight'#2#25#20'Constrai'
-  +#7'Caption'#6#28'BtnUseDefaultLazarusSettings'#21'Constraints.MinHeight'#2#25
+  +'nts.MinWidth'#2'K'#7'OnClick'#7'!BtnUseDefaultLazarusSettingsClick'#8'TabOr'
-  +#20'Constraints.MinWidth'#2'K'#7'OnClick'#7'!BtnUseDefaultLazarusSettingsCli'
+  +'der'#2#0#0#0#7'TButton'#27'BtnUseDefaultDelphiSettings'#22'AnchorSideLeft.C'
-  +'ck'#8'TabOrder'#2#0#0#0#7'TButton'#27'BtnUseDefaultDelphiSettings'#22'Ancho'
+  +'ontrol'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorSideTop.Control'#7
-  +'rSideLeft.Control'#7'$ObjectInspectorSpeedSettingsGroupBox'#21'AnchorSideTo'
+  +#28'BtnUseDefaultLazarusSettings'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'A'
-  +'p.Control'#7#28'BtnUseDefaultLazarusSettings'#18'AnchorSideTop.Side'#7#9'as'
+  +'nchorSideRight.Control'#7#28'BtnUseDefaultLazarusSettings'#20'AnchorSideRig'
-  +'rBottom'#23'AnchorSideRight.Control'#7#28'BtnUseDefaultLazarusSettings'#20
+  +'ht.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#25#3'Top'#2'%'#5'Width'#3
-  +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3'Top'#2')'
+  +#171#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'Border'
-  +#5'Width'#3#210#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9
+  +'Spacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#27'BtnUseDefaultDe'
-  +#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#27'BtnUse'
+  +'lphiSettings'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWidth'#2'K'#7
-  +'DefaultDelphiSettings'#21'Constraints.MinHeight'#2#25#20'Constraints.MinWid'
+  +'OnClick'#7' BtnUseDefaultDelphiSettingsClick'#8'TabOrder'#2#1#0#0#0#242#2#3
-  +'th'#2'K'#7'OnClick'#7' BtnUseDefaultDelphiSettingsClick'#8'TabOrder'#2#1#0#0
+  +#9'TGroupBox'#14'OIMiscGroupBox'#22'AnchorSideLeft.Control'#7#29'ObjectInspe'
-  +#0#242#2#3#9'TGroupBox'#14'OIMiscGroupBox'#22'AnchorSideLeft.Control'#7#29'O'
+  +'ctorColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRig'
-  +'bjectInspectorColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'Anc'
+  +'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSid'
-  +'horSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24
+  +'eBottom.Control'#7#29'ObjectInspectorColorsGroupBox'#21'AnchorSideBottom.Si'
-  +'AnchorSideBottom.Control'#7#29'ObjectInspectorColorsGroupBox'#21'AnchorSide'
+  +'de'#7#9'asrBottom'#4'Left'#3#233#0#6'Height'#2'3'#3'Top'#3#177#0#5'Width'#3
-  +'Bottom.Side'#7#9'asrBottom'#4'Left'#3#233#0#6'Height'#2':'#3'Top'#3#180#0#5
+  +#145#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'#9#18'Bor'
-  +'Width'#3#141#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'
+  +'derSpacing.Left'#2#7#7'Caption'#6#14'OIMiscGroupBox'#12'ClientHeight'#2'!'
-  +#9#18'BorderSpacing.Left'#2#7#7'Caption'#6#14'OIMiscGroupBox'#12'ClientHeigh'
+  +#11'ClientWidth'#3#141#1#8'TabOrder'#2#3#0#6'TLabel'#24'OIDefaultItemHeightL'
-  +'t'#2''''#11'ClientWidth'#3#137#1#8'TabOrder'#2#3#0#6'TLabel'#24'OIDefaultIt'
+  +'abel'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSideTop.Cont'
-  +'emHeightLabel'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSid'
+  +'rol'#7#27'OIDefaultItemHeightSpinEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'
-  +'eTop.Control'#7#27'OIDefaultItemHeightSpinEdit'#18'AnchorSideTop.Side'#7#9
+  +#4'Left'#2#6#6'Height'#2#14#3'Top'#2#9#5'Width'#2'~'#20'BorderSpacing.Around'
-  +'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#10#5'Width'#3#171#0#20'Borde'
+  +#2#6#7'Caption'#6#24'OIDefaultItemHeightLabel'#11'ParentColor'#8#0#0#9'TSpin'
-  +'rSpacing.Around'#2#6#7'Caption'#6#24'OIDefaultItemHeightLabel'#11'ParentCol'
+  +'Edit'#27'OIDefaultItemHeightSpinEdit'#22'AnchorSideLeft.Control'#7#24'OIDef'
-  +'or'#8#0#0#9'TSpinEdit'#27'OIDefaultItemHeightSpinEdit'#22'AnchorSideLeft.Co'
+  +'aultItemHeightLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
-  +'ntrol'#7#24'OIDefaultItemHeightLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+  +'p.Control'#7#14'OIMiscGroupBox'#4'Left'#3#138#0#6'Height'#2#21#3'Top'#2#6#5
-  +#21'AnchorSideTop.Control'#7#14'OIMiscGroupBox'#4'Left'#3#183#0#6'Height'#2
+  +'Width'#2'5'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#5'Value'#2#1#0#0#0
-  +#27#3'Top'#2#6#5'Width'#2'5'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#8'Ta'
+  +#0
-  +'bOrder'#2#0#5'Value'#2#1#0#0#0#0
 ]);

ide/frames/oi_options.pas

@@ -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;

ide/lazarusidestrconsts.pas

@@ -1058,6 +1058,7 @@ resourcestring
   dlgSubPropColor = 'SubProperties';
   dlgReferenceColor = 'Reference';
   dlgValueColor = 'Value';
+  dlfReadOnlyColor = 'Read Only';
   dlgHighlightColor = 'Highlight Color';
   dlgHighlightFontColor = 'Highlight Font Color';
   dlgDefValueColor = 'Default Value';

ideintf/objectinspector.lfm

@@ -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

ideintf/objectinspector.lrs

@@ -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

ideintf/objectinspector.pp

@@ -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
+  else
-    Result := FSubPropertiesColor
+  if not HasWriter(ARow.Editor.GetPropInfo) then
-  else if ARow.Editor is TPersistentPropertyEditor 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]