paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 23:19:08 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: improved mousewheel scroll by Mattias. fixes #16560

Browse Source 
git-svn-id: trunk@25687 -
This commit is contained in:
zeljko 2010-05-27 12:01:09 +00:00
parent ef82ad9e79
commit b35fff5bcc
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwinapi.inc
View File

@ -5144,6 +5144,8 @@ var
var var
iReCountMax: Integer; iReCountMax: Integer;
SBUpdatesCount: Integer; SBUpdatesCount: Integer;
i: Integer;
WheelLines: Integer;
begin begin
Result := 0; Result := 0;
SBUpdatesCount := 0; SBUpdatesCount := 0;
@ -5168,6 +5170,12 @@ var
begin begin
inc(SBUpdatesCount); inc(SBUpdatesCount);
ScrollBar.setPageStep(ScrollInfo.nPage); ScrollBar.setPageStep(ScrollInfo.nPage);
WheelLines := QApplication_wheelScrollLines();
with Scrollbar do
begin
i := Max(1, floor((GetPageStep / WheelLines) / 6));
setSingleStep(i);
end;
end; end;
end; end;