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

LCL, fix Qt scrolling: using SetScrollInfo to update scrollbar should not produce LM_?SCROLL events (these should only be triggered by scrollbar interaction. This also fix issue #23585

Browse Source 
git-svn-id: trunk@40511 -
This commit is contained in:
jesus 2013-03-08 05:52:03 +00:00
parent 8618e432a9
commit d9e6ef063f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6033,6 +6033,8 @@ var
i: Integer;
WheelLines: Integer;
begin
Scrollbar.BeginUpdate;
Result := 0;
if (ScrollInfo.FMask and SIF_RANGE) <> 0 then
@ -6092,6 +6094,7 @@ var
Result := ScrollBar.getSliderPosition;
ScrollBar.EndUpdate;
end;
begin