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

lcl: grids: check top left after size change. Issue #30211

Browse Source 
git-svn-id: trunk@52493 -
This commit is contained in:
ondrej 2016-06-12 17:41:48 +00:00
parent 7c05fefe10
commit 46c8b6c3f3
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/grids.pas
View File

@ -4696,6 +4696,7 @@ end;
procedure TCustomGrid.UpdateCachedSizes; procedure TCustomGrid.UpdateCachedSizes;
var var
i: Integer; i: Integer;
TLChanged: Boolean;
begin begin
if AutoFillColumns then if AutoFillColumns then
InternalAutoFillColumns; InternalAutoFillColumns;
@ -4727,6 +4728,22 @@ begin
FGCache.ScrollHeight := FGCache.ClientHeight-FGCache.FixedHeight; FGCache.ScrollHeight := FGCache.ClientHeight-FGCache.FixedHeight;
CalcMaxTopLeft; CalcMaxTopLeft;
TLChanged := False;
if fTopLeft.y > FGCache.MaxTopLeft.y then
begin
fTopLeft.y := FGCache.MaxTopLeft.y;
TLChanged := True;
end;
if fTopLeft.x > FGCache.MaxTopLeft.x then
begin
fTopLeft.x := FGCache.MaxTopLeft.x;
TLChanged := True;
end;
FGCache.TLRowOff := Min(FGCache.TLRowOff, FGCache.MaxTLOffset.y);
FGCache.TLColOff := Min(FGCache.TLColOff, FGCache.MaxTLOffset.x);
if TLChanged then
TopLeftChanged;
{$ifdef dbgVisualChange} {$ifdef dbgVisualChange}
DebugLn('TCustomGrid.updateCachedSizes: '); DebugLn('TCustomGrid.updateCachedSizes: ');
with FGCache do with FGCache do