From 5b5452bed2141d348509f556e257d9760202b8f0 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sun, 29 Nov 2015 22:44:46 +0000
Subject: [PATCH] LCL: fix mouse wheel scrolling when cursor is in TControl on
 Windows. Issue #29097

git-svn-id: trunk@50528 -
---
 lcl/include/wincontrol.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 9279662ac2..e13a453613 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -4706,11 +4706,14 @@ begin
       MouseEventMessage.Y := P.Y;
       Control.Dispatch(MouseEventMessage);
       MouseMessage.Result := MouseEventMessage.Result;
+      Result := (MouseMessage.Result <> 0);
     end
     else
+    begin
       MouseMessage.Result := Control.Perform(MouseMessage.Msg, WParam(MouseMessage.Keys),
                              LParam(Integer(PointToSmallPoint(P))));
-    Result := True;
+      Result := True;
+    end;
   end;
 end;