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

LCL, grids, fixed right side border when incresing column size, issue# 10401

Browse Source 
git-svn-id: trunk@13322 -
This commit is contained in:
jesus 2007-12-13 22:12:58 +00:00
parent fe0bc605b6
commit 34b575a4a9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/grids.pas
View File

@ -2808,9 +2808,9 @@ begin
EndUpdate(uoNone);
R := CellRect(aCol, 0);
R.Bottom := FGCache.MaxClientXY.Y+1;
R.Bottom := FGCache.MaxClientXY.Y+GetBorderWidth+1;
if bigger then
R.Right := FGCache.MaxClientXY.X+1
R.Right := FGCache.MaxClientXY.X+GetBorderWidth+1
else
R.Right := FGCache.ClientWidth;
if aCol=FTopLeft.x then
@ -2831,9 +2831,9 @@ begin
EndUpdate(uoNone);
R := CellRect(0, aRow);
R.Right := FGCache.MaxClientXY.X+1;
R.Right := FGCache.MaxClientXY.X+GetBorderWidth+1;
if bigger then
R.Bottom := FGCache.MaxClientXY.Y+1
R.Bottom := FGCache.MaxClientXY.Y+GetBorderWidth+1
else
R.Bottom := FGCache.ClientHeight;
if aRow=FTopLeft.y then