From 37436b5e47709449ccde5949ceb4997d1630d9bb Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 23 Apr 2010 11:09:14 +0000
Subject: [PATCH] lcl: set canvas.font.color if treeview item is selected
 otherwise we cannot see text anymore (qt,gtk,gtk2)

git-svn-id: trunk@24849 -
---
 lcl/include/treeview.inc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 893a3f6543..9deb503991 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4527,6 +4527,11 @@ var
     end
     else
       Details := ThemeServices.GetElementDetails(ttItemNormal);
+
+    if ((tvoThemedDraw in Options) or
+      (tvoRowSelect in Options)) and IsSelected then
+        Canvas.Font.Color := InvertColor(Brush.Color);
+
     ThemeServices.DrawText(Canvas, Details, AText, NodeRect, DT_CENTER or DT_VCENTER, 0);
   end;