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

Qt: fixed problem with setScrollInfo(), use ScrollBar.BeginUpdate() & ScrollBar.EndUpdate() only when other params aren't setted up

Browse Source 
(range,pagestep).Completely fixes #16255

git-svn-id: trunk@24746 -
This commit is contained in:
zeljko 2010-04-20 17:08:50 +00:00
parent 4b7199fe91
commit cba1730e76
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5035,11 +5035,14 @@ var
function UpdateScrollInfo: Integer;
var
iReCountMax: Integer;
SBUpdatesCount: Integer;
begin
Result := 0;
SBUpdatesCount := 0;
if (ScrollInfo.FMask and SIF_RANGE) <> 0 then
begin
inc(SBUpdatesCount);
ScrollBar.setMinimum(ScrollInfo.nMin);
// we must recount ScrollBar.Max since invalid value raises AV
@ -5055,6 +5058,7 @@ var
// segfaults if we don't check Enabled property
if ScrollBar.getEnabled then
begin
inc(SBUpdatesCount);
ScrollBar.setPageStep(ScrollInfo.nPage);
ScrollBar.setSingleStep((ScrollBar.getPageStep div 6) + 1);
end;
@ -5062,18 +5066,22 @@ var
if (ScrollInfo.FMask and SIF_POS) <> 0 then
begin
ScrollBar.BeginUpdate;
try
if (ScrollInfo.nPos < ScrollBar.getMin) then
ScrollInfo.nPos := ScrollBar.getMin
else
if (ScrollInfo.nPos > ScrollBar.getMax) then
ScrollInfo.nPos := ScrollBar.getMax;
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);
finally
ScrollBar.EndUpdate;
if SBUpdatesCount = 1 then
ScrollBar.EndUpdate;
end;
end;