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

LCL, fix scrollbar range when goSmoothScroll is not specified, missing from last patch

Browse Source 
git-svn-id: trunk@31743 -
This commit is contained in:
jesus 2011-07-18 23:43:16 +00:00
parent 4bb113358b
commit 7982496a15
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/grids.pas
View File

@ -4471,7 +4471,10 @@ begin
HsbRange := 0;
HsbPos := 0;
if HsbVisible then begin
HsbRange:=GridWidth - GetBorderWidth;
if not (goSmoothScroll in Options) then
HsbRange := integer(PtrUInt(AccumWidth[MaxTopLeft.X]))+ClientWidth-FixedWidth
else
HsbRange:=GridWidth - GetBorderWidth;
if FTopLeft.x<=ColCount-1 then
HsbPos := integer(PtrUInt(AccumWidth[FTopLeft.x]))+TLColOff-FixedWidth;
end;
@ -4479,7 +4482,10 @@ begin
VsbRange := 0;
VsbPos := 0;
if VsbVisible then begin
VSbRange:= GridHeight - GetBorderWidth;
if not (goSmoothScroll in Options) then
VsbRange := integer(PtrUInt(AccumHeight[MaxTopLeft.Y]))+ClientHeight-FixedHeight
else
VSbRange:= GridHeight - GetBorderWidth;
if FTopLeft.Y<=RowCount-1 then
VsbPos := integer(PtrUInt(AccumHeight[FTopLeft.y]))+TLRowOff-FixedHeight;
end;