freepascal bugtracker

Index: VirtualTrees.pas
===================================================================
--- VirtualTrees.pas	(revision 2412)
+++ VirtualTrees.pas	(working copy)
@@ -17942,6 +17942,9 @@
       if (ClientWidth + FEffectiveOffsetX < Integer(FRangeX)) and (X > ClientWidth - Integer(FDefaultNodeHeight)) then
         Include(Result, sdRight);
 
+      if hoVisible in FHeader.FOptions then
+        Dec(Y, FHeader.Height);
+
       if (Y < Integer(FDefaultNodeHeight)) and (FOffsetY <> 0) then
         Include(Result, sdUp);
       if (ClientHeight - FOffsetY < Integer(FRangeY)) and (Y > ClientHeight - Integer(FDefaultNodeHeight)) then
@@ -19421,6 +19424,8 @@
 
 begin
   GetCursorPos(P);
+  if hoVisible in FHeader.FOptions then
+    Dec(P.y, FHeader.Height);
   R := ClientRect;
   ClipRect := R;
   MapWindowPoints(Handle, 0, R, 2);