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

LCL: grids: add smooth scrolling when resizing. Sub-Issue #31475

Browse Source 
git-svn-id: trunk@54380 -
This commit is contained in:
ondrej 2017-03-10 11:25:18 +00:00
parent b1b01dd4c3
commit 3cbd802990
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -4784,6 +4784,7 @@ begin
if fTopLeft.y > FGCache.MaxTopLeft.y then
begin
fTopLeft.y := FGCache.MaxTopLeft.y;
FGCache.TLRowOff := FGCache.MaxTLOffset.y;
TLChanged := True;
end else
if FTopLeft.y < FixedRows then
@ -4794,6 +4795,7 @@ begin
if fTopLeft.x > FGCache.MaxTopLeft.x then
begin
fTopLeft.x := FGCache.MaxTopLeft.x;
FGCache.TLColOff := FGCache.MaxTLOffset.x;
TLChanged := True;
end else
if FTopLeft.x < FixedCols then