From 3cc5149bb40c58036ad0e6e6c475a2a704ca97e5 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 8 Mar 2017 14:41:02 +0000
Subject: [PATCH] win32: spin: handle scroll message on arrows

git-svn-id: trunk@54367 -
---
 lcl/interfaces/win32/win32wsspin.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lcl/interfaces/win32/win32wsspin.pp b/lcl/interfaces/win32/win32wsspin.pp
index 79705f54f7..0e8a73337f 100644
--- a/lcl/interfaces/win32/win32wsspin.pp
+++ b/lcl/interfaces/win32/win32wsspin.pp
@@ -112,6 +112,7 @@ var
   DC: HDC;
   SRect: TRect;
   Brush: HBRUSH;
+  lWindowInfo: PWin32WindowInfo;
 begin
   case Msg of
     WM_PAINT,
@@ -138,6 +139,12 @@ begin
         Result := 1;
         Exit;
       end;
+    WM_MOUSEWHEEL:
+      begin
+        lWindowInfo := GetWin32WindowInfo(Window);
+        if (lWindowInfo<>nil) and (lWindowInfo^.AWinControl<>nil) then
+          Exit(CallDefaultWindowProc(lWindowInfo^.AWinControl.Handle, Msg, WParam, LParam));
+      end;
   end;
   Result := WindowProc(Window, Msg, WParam, LParam);
 end;