From 03ad773153be373c762af31b6957400e9d64a6cd Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 6 Apr 2008 13:39:04 +0000
Subject: [PATCH] * Fix GetNodeAt when header is visible

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

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 5b7ec7adf..1c0e210d8 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -25161,14 +25161,18 @@ begin
 
   AbsolutePos := Y;
   if Relative then
+  begin
     Inc(AbsolutePos, -FOffsetY);
+    if hoVisible in FHeader.FOptions then
+      Inc(AbsolutePos, FHeader.Height);
+  end;
 
   // CurrentPos tracks a running term of the current position to test for.
   // It corresponds always to the top position of the currently considered node.
 
   //lclheader: adjust position if Header is visible
   if hoVisible in FHeader.FOptions then
-    CurrentPos:=FHeader.Height
+    CurrentPos := FHeader.Height
   else
     CurrentPos := 0;