From 9bbc3015a27f00bc13951a7db707f4f9dde28b89 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 28 Oct 2011 03:54:17 +0000
Subject: [PATCH] Fixes compiling

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

diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index d0798715d..ae9f649f0 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -15120,14 +15120,11 @@ var
   ScrollLines: DWORD;
   RTLFactor: Integer;
   WheelFactor: Double;
-  State: TShiftState;
 begin
   //todo: rename to WM*
   {$ifdef DEBUG_VTV}Logger.EnterMethod([lcScroll],'CMMouseWheel');{$endif}
   StopWheelPanning;
 
-  State := KeysToShiftState(Message.Button);
-
   inherited WMMouseWheel(Message);
 
   if Message.Result = 0  then