From d5a845d99d1aceceb50dc5ef86af35aa9ea993b0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 23 Aug 2009 12:49:32 +0000
Subject: [PATCH] LCL: grids: fixed result of DoMouseWheelUp/Down

git-svn-id: trunk@21422 -
---
 lcl/grids.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 94daf559f0..0933e9e35b 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -5533,7 +5533,7 @@ begin
   Result:=inherited DoMouseWheelDown(Shift, MousePos);
   if not Result then begin
     GridMouseWheel(Shift, 1);
-    Result := true;
+    // keep Result=false to let the interface scroll
   end;
   {$ifdef dbgScroll}DebugLn('doMouseWheelDown END');{$endif}
 end;
@@ -5545,7 +5545,7 @@ begin
   Result:=inherited DoMouseWheelUp(Shift, MousePos);
   if not Result then begin
     GridMouseWheel(Shift, -1);
-    Result := true;
+    // keep Result=false to let the interface scroll
   end;
   {$ifdef dbgScroll}DebugLn('doMouseWheelUP END');{$endif}
 end;