From f858cdf15579fbbb832bc3d4a77634335920f55a Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 29 Jan 2009 07:06:20 +0000
Subject: [PATCH] ideintf: more save comparison about current row in the OI
 (possibly fixes bug #0012998)

git-svn-id: trunk@18485 -
---
 ideintf/objectinspector.lfm | 1 -
 ideintf/objectinspector.lrs | 8 ++++----
 ideintf/objectinspector.pp  | 2 +-
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/ideintf/objectinspector.lfm b/ideintf/objectinspector.lfm
index a13c504c07..099392d33a 100644
--- a/ideintf/objectinspector.lfm
+++ b/ideintf/objectinspector.lfm
@@ -31,7 +31,6 @@ object ObjectInspectorDlg: TObjectInspectorDlg
     Width = 275
     Align = alTop
     AutoComplete = False
-    Ctl3D = False
     ItemHeight = 13
     ItemWidth = 0
     OnCloseUp = AvailComboBoxCloseUp
diff --git a/ideintf/objectinspector.lrs b/ideintf/objectinspector.lrs
index c06e526420..f0604abb00 100644
--- a/ideintf/objectinspector.lrs
+++ b/ideintf/objectinspector.lrs
@@ -9,8 +9,8 @@ LazarusResources.Add('TObjectInspectorDlg','FORMDATA',[
   +#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'#12'AutoComplete'
-  +#8#5'Ctl3D'#8#10'ItemHeight'#2#13#9'ItemWidth'#2#0#9'OnCloseUp'#7#20'AvailCo'
-  +'mboBoxCloseUp'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#10'TPopupM'
-  +'enu'#13'MainPopupMenu'#7'OnPopup'#7#20'OnMainPopupMenuPopup'#4'left'#2#9#3
-  +'top'#2#11#0#0#0
+  +#8#10'ItemHeight'#2#13#9'ItemWidth'#2#0#9'OnCloseUp'#7#20'AvailComboBoxClose'
+  +'Up'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#10'TPopupMenu'#13'Mai'
+  +'nPopupMenu'#7'OnPopup'#7#20'OnMainPopupMenuPopup'#4'left'#2#9#3'top'#2#11#0
+  +#0#0
 ]);
diff --git a/ideintf/objectinspector.pp b/ideintf/objectinspector.pp
index fd1eb92c92..c84156da37 100644
--- a/ideintf/objectinspector.pp
+++ b/ideintf/objectinspector.pp
@@ -2223,7 +2223,7 @@ begin
     ParentRow:=ParentRow.Parent;
   end;
 
-  if (ItemIndex <> -1) and (Rows[ItemIndex] = ARow) then
+  if (ItemIndex <> -1) and (ItemIndex = ARow.Index) then
     Result := FHighlightFont.Color
   else if IsObjectSubProperty then
     Result := FSubPropertiesColor