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

LCL, grids: fix last cell not scrollble, from Michl, issue #28889

Browse Source 
git-svn-id: trunk@52063 -
This commit is contained in:
jesus 2016-03-26 17:27:54 +00:00
parent ef066ef583
commit 1a9f949c1f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -4421,7 +4421,7 @@ begin
aPos := Message.Pos;
with FGCache do begin
TL:= integer(PtrUInt(AccumWidth[ MaxTopLeft.X ])) - FixedWidth;
TL:= Max(integer(PtrUInt(AccumWidth[ MaxTopLeft.X ])) - FixedWidth, GridWidth - ClientWidth);
CTL:= integer(PtrUInt(AccumWidth[ FTopLeft.X ])) - FixedWidth + TLColOff;
end;
@ -4539,7 +4539,7 @@ begin
exit;
with FGCache do begin
TL:= integer(PtrUInt(AccumHeight[ MaxTopLeft.Y ])) - FixedHeight;
TL:= Max(integer(PtrUInt(AccumHeight[ MaxTopLeft.Y ])) - FixedHeight, GridHeight - ClientHeight);
CTL:= integer(PtrUInt(AccumHeight[ FTopLeft.Y ])) - FixedHeight + TLRowOff;
end;