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

win32: fix scroll offset for TScrollingWinControl after r52045 #e9c686e804

Browse Source 
git-svn-id: trunk@52046 -
This commit is contained in:
ondrej 2016-03-24 19:58:34 +00:00
parent e9c686e804
commit 690840358d
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/interfaces/win32/win32winapi.inc
View File

@ -168,7 +168,6 @@ var
MouseMessage: TLMMouseEvent;
SW: TScrollingWinControl;
SB: TControlScrollBar;
ScrollWheelDelta: LongInt;
begin
if not TWinControl(Sender).HandleAllocated then
exit;
@ -221,21 +220,19 @@ var
// -1 means, scroll one page
ScrollOffset := (MouseMessage.WheelDelta * integer(ScrollInfo.nPage)) div 120
else
if Sender is TScrollingWinControl then // support scrollbar increment
begin
SW := TScrollingWinControl(Sender);
if ScrollBar = SB_Horz then
SB := SW.HorzScrollBar
else
SB := SW.VertScrollBar;
ScrollWheelDelta :=
(Min(High(MouseMessage.WheelDelta), Max(Low(MouseMessage.WheelDelta),
(SB.Increment * MouseMessage.WheelDelta))) div 120) * 120;
end else
ScrollWheelDelta := MouseMessage.WheelDelta;
if Sender is TScrollingWinControl then // support scrollbar increment
begin
ScrollOffset := (ScrollWheelDelta * Mouse.WheelScrollLines) div 120;
end;
SW := TScrollingWinControl(Sender);
if ScrollBar = SB_Horz then
SB := SW.HorzScrollBar
else
SB := SW.VertScrollBar;
ScrollOffset :=
(Min(High(MouseMessage.WheelDelta), Max(Low(MouseMessage.WheelDelta),
(SB.Increment * MouseMessage.WheelDelta))) div 120);
end else
ScrollOffset := (MouseMessage.WheelDelta * Mouse.WheelScrollLines) div 120;
WParam := Windows.WParam(ScrollInfo.nPos - ScrollOffset);
if WParam > ScrollInfo.nMax - integer(ScrollInfo.nPage) + 1 then
WParam := ScrollInfo.nMax - integer(ScrollInfo.nPage) + 1;