From fd11231a539e77c552858159b2a3073e0a92112f Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 6 Jul 2007 07:56:44 +0000
Subject: [PATCH] LCL: cleanup unnecessary local variable (bug #9218)

git-svn-id: trunk@11432 -
---
 lcl/include/wincontrol.inc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index d40383dbb1..44abd86bce 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5067,15 +5067,13 @@ end;
 procedure TWinControl.WMMouseWheel(var Message: TLMMouseEvent);
 Var
   MousePos : TPoint;
-  Shift : TShiftState;
 begin
   Assert(False, Format('Trace: [TWinControl.LMMouseWheel] %s', [ClassName]));
 
   MousePos.X := Message.X;
   MousePos.Y := Message.Y;
-  Shift := Message.State;
 
-  if DoMouseWheel(Shift, Message.WheelDelta, MousePos) then
+  if DoMouseWheel(Message.State, Message.WheelDelta, MousePos) then
     Message.Result := 1
   else
     inherited;