From af528322810cb246cca772fe973fce720527c160 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 26 Oct 2011 17:33:03 +0000
Subject: [PATCH] Compilation fix

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2096 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview/virtualtrees.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/virtualtreeview/virtualtrees.pas b/components/virtualtreeview/virtualtrees.pas
index 28812ee7d..a7cdd02ff 100644
--- a/components/virtualtreeview/virtualtrees.pas
+++ b/components/virtualtreeview/virtualtrees.pas
@@ -13321,10 +13321,12 @@ const
 var
   ScrollCount: Integer;
   ScrollLines: Integer;
-
+  State: TShiftState;
 begin
   StopWheelPanning;
 
+  State := KeysToShiftState(Message.Button);
+
   //inherited;
 
 //  if Message.Result = 0  then