From 7db931d3fc0fe7af535f594e579ea9e1abac7b83 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 14 Oct 2012 22:46:25 +0000
Subject: [PATCH] * Offset header height only when resizing header. fixes
 onheaderclick

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

diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index 350f840fa..30d836d90 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -9708,8 +9708,7 @@ begin
   Result := False;
   with Message do
   begin
-    //lclheader
-    P := Point(XPos, YPos - Treeview.FHeader.Height);
+    P := Point(XPos, YPos);
     if hsColumnWidthTrackPending in FStates then
     begin
       FStates := FStates - [hsColumnWidthTrackPending] + [hsColumnWidthTracking];
@@ -9735,6 +9734,9 @@ begin
       end
       else if hsHeightTracking in FStates then
       begin
+        //lclheader
+        //fixes setting height
+        Dec(P.Y, FHeight);
         if DoHeightTracking(P, GetShiftState) then
           SetHeight(Integer(FHeight) + P.Y);
         HandleHeaderMouseMove := True;
@@ -9769,7 +9771,7 @@ begin
         else
           if hsDragging in FStates then
           begin
-            DragTo(Treeview.ClientToScreen(Point(XPos, YPos)));
+            DragTo(Treeview.ClientToScreen(P));
             HandleHeaderMouseMove := True;
             Result := 0;
           end;