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

LCL TControlScrollbar.Range: range should be position limit + page size, fixes scrolling behind max

Browse Source 
git-svn-id: trunk@17250 -
This commit is contained in:
tombo 2008-11-06 14:04:24 +00:00
parent 9584f3723f
commit 5a1665f97c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/controlscrollbar.inc
View File

@ -24,7 +24,7 @@ const
procedure TControlScrollBar.SetPosition(const Value: Integer);
var
OldPosition: Integer;
OldPosition, MaxPos: Integer;
ScrollInfo: TScrollInfo;
begin
if Value < 0 then
@ -49,13 +49,14 @@ begin
end;
end;
if Value > Range then
MaxPos := Range - Page;
if (MaxPos >= 0) and (Value > MaxPos) then
begin
{$IFDEF VerboseScrollingWinControl}
if DebugCondition then
DebugLn(['TControlScrollBar.SetPosition Range Value=',Value,' > Range=',Range]);
{$ENDIF}
SetPosition(Range);
SetPosition(MaxPos);
exit;
end;
@ -137,7 +138,7 @@ begin
ScrollInfo.fMask := SIF_Range + SIF_Page;
GetScrollInfo(ControlHandle, IntfBarKind[Kind], ScrollInfo);
InvalidateScrollInfo;
FRange := ScrollInfo.nMax - ScrollInfo.nMin - integer(ScrollInfo.nPage);
FRange := ScrollInfo.nMax - ScrollInfo.nMin;
end;
Result := FRange;
end;