From 11a4692ad57042f247a937498ae3879e31a6b92e Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 1 Dec 2014 08:11:04 +0000
Subject: [PATCH] LCL: Try a generic solution for "WM_MOUSEWHEEL" handling.
 Issue #25209.

git-svn-id: trunk@47043 -
---
 lcl/interfaces/win32/win32callback.inc | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index ff82bbf0d6..bcc6dbb146 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -272,8 +272,6 @@ var
   TmpSize: TSize; // used by WM_MEASUREITEM
   Info: TComboboxInfo;
   OrgCharCode: word; // used in WM_CHAR handling
-  SynapticsWindow: HWND; // used by WM_MOUSEWHEEL
-  SynapticsClassName: PAnsiChar; // used by WM_MOUSEWHEEL
 
   function GetMenuParent(ASearch, AParent: HMENU): HMENU;
   var
@@ -1865,17 +1863,8 @@ begin
         P.Y := Y;
         TargetWindow := TWin32WidgetSet(WidgetSet).WindowFromPoint(P);
 
-        // For Synaptics and Lenovo (and other?) touchpad driver
-        SynapticsWindow := Windows.WindowFromPoint(P);
-        GetMem(SynapticsClassName, 50);
-        try
-          GetClassNameA(SynapticsWindow, SynapticsClassName, 50);
-          // Not only for Synaptics any more
-          //if SynapticsClassName = 'SynTrackCursorWindowClass' then
-            TargetWindow := Window;
-        finally
-          FreeMem(SynapticsClassName);
-        end;
+        if TargetWindow = 0 then
+          TargetWindow := Window;
 
         if (TargetWindow = 0) or not IsWindowEnabled(TargetWindow) then
           exit;