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

fixed autofillcolumns scroll columns (issue )

Browse Source 
git-svn-id: trunk@9225 -
This commit is contained in:
jesus 2006-05-02 00:55:57 +00:00
parent 9dfd319771
commit 30d3c8ded5
1 changed files with 2 additions and 2 deletions

4
lcl/grids.pas
View File

@ -2316,12 +2316,12 @@ begin
Xinc:=0;
if Rnew.Left + FGCache.TLColOff < FGCache.FixedWidth then Xinc:=-1
else if (RNew.Right + FGCache.TLColOff > FGCache.ClientWidth)
else if (RNew.Right + FGCache.TLColOff > (FGCache.ClientWidth + GetBorderWidth))
and (RNew.Left + FGCache.TLColOff - GetColWidths(aCol) >= FGCache.FixedWidth) then XInc:=1;
// Only scroll left if the left edge of the cell does not become invisible as a result
Yinc:=0;
if RNew.Top + FGCache.TLRowOff < FGCache.FixedHeight then Yinc:=-1
else if (RNew.Bottom + FGCache.TLRowOff > FGCache.ClientHeight)
else if (RNew.Bottom + FGCache.TLRowOff > (FGCache.ClientHeight + GetBorderWidth))
and (RNew.Top + FGCache.TLRowOff - GetRowHeights(aRow) >= FGCache.FixedHeight) then YInc:=1;
// Only scroll up if the top edge of the cell does not become invisible as a result