From 286d9b5de4a82aa223fa295294fa485b3587fa51 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 29 Dec 2015 18:55:55 +0000
Subject: [PATCH] * Handle case when HeaderHotColor is clDefault

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4409 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../virtualtreeview-new/branches/4.8/VirtualTrees.pas    | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index 9412505c3..f680e609d 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -7548,12 +7548,9 @@ begin
     if Hot then
       TextColor := FHeader.Treeview.FColors.HeaderHotColor
     else
-    begin
-      if FHeader.FFont.Color = clDefault then
-        TextColor := clCaptionText
-      else
-        TextColor := FHeader.FFont.Color;
-    end;
+      TextColor := FHeader.FFont.Color;
+    if TextColor = clDefault then
+      TextColor := clCaptionText;
     SetTextColor(DC, ColorToRGB(TextColor));
     DrawText(DC, PChar(Caption), Length(Caption), Bounds, DrawFormat);
   end;