From 3f34b29aaed6021cfbddb135a12880d0923a3ee2 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sat, 10 Jun 2017 19:22:26 +0000
Subject: [PATCH] IdeIntf: OI: fix font color for selected items in combobox
 [2]

git-svn-id: trunk@55312 -
---
 components/ideintf/objectinspector.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/ideintf/objectinspector.pp b/components/ideintf/objectinspector.pp
index c0f08d926e..9e1b048137 100644
--- a/components/ideintf/objectinspector.pp
+++ b/components/ideintf/objectinspector.pp
@@ -3442,6 +3442,7 @@ var
   CurRow: TOIPropertyGridRow;
   ItemValue: string;
   AState: TPropEditDrawState;
+  FontColor: TColor;
 begin
   if (FItemIndex>=0) and (FItemIndex<FRows.Count) then begin
     CurRow:=Rows[FItemIndex];
@@ -3460,9 +3461,12 @@ begin
     if not(odBackgroundPainted in State) then
       ValueComboBox.Canvas.FillRect(ARect);
 
+    FontColor := ValueComboBox.Canvas.Font.Color;
     ValueComboBox.Canvas.Font.Assign(FDefaultValueFont);
     if odSelected in State then
-      ValueComboBox.Canvas.Font.Color := clHighlightText;
+      ValueComboBox.Canvas.Font.Color := FontColor
+    else
+      ValueComboBox.Canvas.Font.Color := clWindowText;
     if CurRow.Editor.HasDefaultValue and (ItemValue = CurRow.Editor.GetDefaultValue) then
       ValueComboBox.Canvas.Font.Style := ValueComboBox.Canvas.Font.Style + [fsItalic];
     CurRow.Editor.ListDrawValue(ItemValue,Index,ValueComboBox.Canvas,ARect,AState);