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

lcl: grids: check top left after size change - also for negative values. Issue #30211

Browse Source 
git-svn-id: trunk@52497 -
This commit is contained in:
ondrej 2016-06-12 20:26:01 +00:00
parent dda51d51ec
commit 6eb42f280e
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/grids.pas
View File

@ -4733,11 +4733,21 @@ begin
begin begin
fTopLeft.y := FGCache.MaxTopLeft.y; fTopLeft.y := FGCache.MaxTopLeft.y;
TLChanged := True; TLChanged := True;
end else
if FTopLeft.y < FixedRows then
begin
fTopLeft.y := FixedRows;
TLChanged := True;
end; end;
if fTopLeft.x > FGCache.MaxTopLeft.x then if fTopLeft.x > FGCache.MaxTopLeft.x then
begin begin
fTopLeft.x := FGCache.MaxTopLeft.x; fTopLeft.x := FGCache.MaxTopLeft.x;
TLChanged := True; TLChanged := True;
end else
if FTopLeft.x < FixedCols then
begin
fTopLeft.x := FixedCols;
TLChanged := True;
end; end;
FGCache.TLRowOff := Min(FGCache.TLRowOff, FGCache.MaxTLOffset.y); FGCache.TLRowOff := Min(FGCache.TLRowOff, FGCache.MaxTLOffset.y);
FGCache.TLColOff := Min(FGCache.TLColOff, FGCache.MaxTLOffset.x); FGCache.TLColOff := Min(FGCache.TLColOff, FGCache.MaxTLOffset.x);