From c42a0a175111a12add988072031012854baf1d4f Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 12 Apr 2008 19:02:31 +0000
Subject: [PATCH] * Fix draw glitch when using animated toggle

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

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 01daca074..e7f18e7ca 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -18654,7 +18654,7 @@ begin
             Logger.Send([lcScroll], 'Rect to Scroll', R);
             ScrollWindowEx(Handle, DeltaX, DeltaY, @R, @R,0, nil, SW_INVALIDATE or SW_SCROLLCHILDREN);
             //todo: temporary hack to avoid some drawing problems. Will be removed when the header is properly implemented
-            InvalidateRect(Handle, nil, True);
+            //InvalidateRect(Handle, nil, True);
           end;
         end;
       end;
@@ -28081,7 +28081,8 @@ begin
           begin
             Expand := False;
             R := GetDisplayRect(Node, NoColumn, False);
-            R.Bottom := ClientHeight;
+            //lclheader
+            R.Bottom := inherited GetClientRect.Bottom;
             Inc(R.Top, NodeHeight[Node]);
 
             // No animation necessary if the node is below the current client height.
@@ -28152,7 +28153,8 @@ begin
               with ToggleData do
               begin
                 Inc(R.Top, NodeHeight[Node]);
-                R.Bottom := ClientHeight;
+                //lclheader
+                R.Bottom := inherited GetClientRect.Bottom;
                 if R.Bottom > R.Top then
                 begin
                   Expand := True;