From be57e227e9c6941690d4dc7ad306b7f3b1fbde87 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 16 May 2012 01:58:24 +0000
Subject: [PATCH] * Fix position of drag image. Issue21945

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2435 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-new/branches/4.8/VirtualTrees.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index 3f7eef13b..ef07252d9 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -28840,6 +28840,9 @@ begin
     with TreeRect do
     begin
       PaintRect := TreeRect;
+      //lclheader
+      if hoVisible in FHeader.Options then
+        OffsetRect(PaintRect, 0, -FHeader.Height);
       if Left < 0 then
       begin
         PaintTarget.X := -Left;
@@ -28849,7 +28852,7 @@ begin
         PaintTarget.X := 0;
       if Top < 0 then
       begin
-        PaintTarget.Y := -Top;
+        PaintTarget.Y := -PaintRect.Top;
         PaintRect.Top := 0;
       end
       else