From 3ffeb708c1ea3448447b90de1d16cf0aed1fbc7e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 25 Jul 2009 12:40:25 +0000
Subject: [PATCH] Disable hottracking in non-Vista mode, looks ugly in XP but
 nice in Vista. Fixes issue #1263 .

---
 source/helpers.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/source/helpers.pas b/source/helpers.pas
index 9fd96adf..6819abbe 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -188,7 +188,7 @@ var
 
 implementation
 
-uses main;
+uses main, uVistaFuncs;
 
 type
   CharacterSet = record
@@ -2790,6 +2790,11 @@ begin
     VT.DefaultNodeHeight := ReadOnlyNodeHeight;
   // The header needs slightly more height than the normal nodes
   VT.Header.Height := Trunc(ReadOnlyNodeHeight * 1.2);
+  // Disable hottracking in non-Vista mode, looks ugly in XP, but nice in Vista 
+  if (toUseExplorerTheme in VT.TreeOptions.PaintOptions) and IsWindowsVista then
+    VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions + [toHotTrack]
+  else
+    VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions - [toHotTrack];
 end;