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

lcl: grids: scroll to highest possible value if col/row are out of valid bounds. Related to issue #31766

Browse Source 
git-svn-id: trunk@54841 -
This commit is contained in:
ondrej 2017-05-08 21:24:20 +00:00
parent 553d56948a
commit 5fc40612bc
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -4688,6 +4688,7 @@ begin
TryTL:=ScrollGrid(False,aCol, aRow); TryTL:=ScrollGrid(False,aCol, aRow);
TLChange := not PointIgual(TryTL, FTopLeft); TLChange := not PointIgual(TryTL, FTopLeft);
if TLChange if TLChange
or (not PointIgual(TryTL, Point(aCol, aRow)) and (goSmoothScroll in Options))
or (ClearColOff and (FGCache.TLColOff<>0)) or (ClearColOff and (FGCache.TLColOff<>0))
or (ClearRowOff and (FGCache.TLRowOff<>0)) then or (ClearRowOff and (FGCache.TLRowOff<>0)) then
begin begin
@ -4698,6 +4699,10 @@ begin
FGCache.TLColOff := 0; FGCache.TLColOff := 0;
if ClearRowOff then if ClearRowOff then
FGCache.TLRowOff := 0; FGCache.TLRowOff := 0;
if (aCol>TryTL.X) and (goSmoothScroll in Options) then
FGCache.TLColOff := FGCache.MaxTLOffset.X;
if (aRow>TryTL.Y) and (goSmoothScroll in Options) then
FGCache.TLRowOff := FGCache.MaxTLOffset.Y;
{$ifdef dbgscroll} {$ifdef dbgscroll}
DebugLn('TryScrollTo: TopLeft=%s NewCol=%d NewRow=%d', DebugLn('TryScrollTo: TopLeft=%s NewCol=%d NewRow=%d',
[dbgs(FTopLeft), NewCol, NewRow]); [dbgs(FTopLeft), NewCol, NewRow]);