From 441c5e04fbc533878e0acdec84e95182be2e5256 Mon Sep 17 00:00:00 2001 From: zeljko Date: Sun, 10 Apr 2016 17:10:08 +0000 Subject: [PATCH] Qt: unify scrollbar behaviour with win32.Let position pass max - lcl will decide about new pos. issue #20127 git-svn-id: trunk@52155 - --- lcl/interfaces/qt/qtwidgets.pas | 8 -------- 1 file changed, 8 deletions(-) diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas index fc1b05d8a9..7edc38d8d5 100644 --- a/lcl/interfaces/qt/qtwidgets.pas +++ b/lcl/interfaces/qt/qtwidgets.pas @@ -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;