paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 00:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: spin: handle scroll message on arrows

Browse Source 
git-svn-id: trunk@54367 -
This commit is contained in:
ondrej 2017-03-08 14:41:02 +00:00
parent f5089e9ae4
commit 3cc5149bb4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wsspin.pp
View File

@ -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;