paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 07:59:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Try a generic solution for "WM_MOUSEWHEEL" handling. Issue #25209.

Browse Source 
git-svn-id: trunk@47043 -
This commit is contained in:
juha 2014-12-01 08:11:04 +00:00
parent 5ae44ab904
commit 11a4692ad5
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/win32/win32callback.inc
View File

@ -272,8 +272,6 @@ var
TmpSize: TSize; // used by WM_MEASUREITEM TmpSize: TSize; // used by WM_MEASUREITEM
Info: TComboboxInfo; Info: TComboboxInfo;
OrgCharCode: word; // used in WM_CHAR handling 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; function GetMenuParent(ASearch, AParent: HMENU): HMENU;
var var
@ -1865,17 +1863,8 @@ begin
P.Y := Y; P.Y := Y;
TargetWindow := TWin32WidgetSet(WidgetSet).WindowFromPoint(P); TargetWindow := TWin32WidgetSet(WidgetSet).WindowFromPoint(P);
// For Synaptics and Lenovo (and other?) touchpad driver if TargetWindow = 0 then
SynapticsWindow := Windows.WindowFromPoint(P); TargetWindow := Window;
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) or not IsWindowEnabled(TargetWindow) then if (TargetWindow = 0) or not IsWindowEnabled(TargetWindow) then
exit; exit;