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

Qt: unify scrollbar behaviour with win32.Let position pass max - lcl will decide about new pos. issue #20127

Browse Source 
git-svn-id: trunk@52155 -
This commit is contained in:
zeljko 2016-04-10 17:10:08 +00:00
parent 39279083c5
commit 441c5e04fb
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwidgets.pas
View File

@ -9142,8 +9142,6 @@ begin
LMScroll.ScrollCode := SB_LINERIGHT
else
LMScroll.ScrollCode := SB_LINEDOWN;
if (FOwner = nil) and (getSliderPosition + 1 >= getMax) then
LMScroll.ScrollCode := SB_ENDSCROLL;
end;
QAbstractSliderSliderSingleStepSub:
begin
@ -9158,8 +9156,6 @@ begin
LMScroll.ScrollCode := SB_PAGERIGHT
else
LMScroll.ScrollCode := SB_PAGEDOWN;
if (FOwner = nil) and (getSliderPosition + 1 >= getMax) then
LMScroll.ScrollCode := SB_ENDSCROLL;
end;
QAbstractSliderSliderPageStepSub:
begin
@ -9190,8 +9186,6 @@ begin
LMScroll.ScrollCode := SB_RIGHT
else
LMScroll.ScrollCode := SB_BOTTOM;
if (FOwner = nil) and (getSliderPosition + 1 >= getMax) then
LMScroll.ScrollCode := SB_ENDSCROLL;
end;
QAbstractSliderSliderMove:
begin
@ -9200,8 +9194,6 @@ begin
else
if not getSliderDown then
LMScroll.ScrollCode := SB_THUMBPOSITION;
if (FOwner = nil) and (getSliderPosition + 1 >= getMax) then
LMScroll.ScrollCode := SB_ENDSCROLL;
end;
end;