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

Qt: small optimisation in SetScrollInfo()

Browse Source 
git-svn-id: trunk@24747 -
This commit is contained in:
zeljko 2010-04-20 17:25:41 +00:00
parent cba1730e76
commit 9a52809123
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5068,17 +5068,25 @@ var
begin
inc(SBUpdatesCount);
if (ScrollInfo.nPos < ScrollBar.getMin) then
ScrollInfo.nPos := ScrollBar.getMin
else
if (ScrollInfo.nPos > ScrollBar.getMax) then
ScrollInfo.nPos := ScrollBar.getMax;
if SBUpdatesCount = 1 then
ScrollBar.BeginUpdate;
try
if (ScrollInfo.FMask and SIF_UPDATEPOLICY) = 0 then
ScrollBar.setValue(ScrollInfo.nPos);
begin
{do not setValue() if values are equal, since it calls
signalValueChanged() which sends unneeded LM_SCROLL msgs }
if ScrollBar.getValue = ScrollInfo.nPos then
SBUpdatesCount := 0;
if (ScrollInfo.nPos < ScrollBar.getMin) then
ScrollInfo.nPos := ScrollBar.getMin
else
if (ScrollInfo.nPos > ScrollBar.getMax) then
ScrollInfo.nPos := ScrollBar.getMax;
if SBUpdatesCount > 0 then
ScrollBar.setValue(ScrollInfo.nPos);
end;
finally
if SBUpdatesCount = 1 then
ScrollBar.EndUpdate;