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

LCL, fix resizing column issue (topleft calc failed because new columns have accumwidth=0)

Browse Source 
git-svn-id: trunk@16505 -
This commit is contained in:
jesus 2008-09-09 17:59:23 +00:00
parent f2b1c88495
commit bef0e71b34
1 changed files with 14 additions and 0 deletions

14
lcl/grids.pas
View File

@ -2198,6 +2198,13 @@ begin
if IsColumn then begin
AddDel(FCols, NewValue);
FGCache.AccumWidth.Count:=NewValue;
// calc initial accumulated widths of new columns
OldCount := OldValue;
while (OldValue>0) and (OldCount<NewValue) do begin
FGCache.AccumWidth[OldCount] :=
FGCache.AccumWidth[OldCount-1] + GetColWidths(OldCount);
Inc(OldCount);
end;
OldCount:=RowCount;
if (OldValue=0)and(NewValue>=0) then begin
FTopLeft.X:=FFixedCols;
@ -2217,6 +2224,13 @@ begin
end else begin
AddDel(FRows, NewValue);
FGCache.AccumHeight.Count:=NewValue;
// calc initial accumulated heights of new rows
OldCount := OldValue;
while (OldValue>0) and (OldCount<NewValue) do begin
FGCache.AccumHeight[OldCount] :=
FGCache.AccumHeight[OldCount-1] + GetRowHeights(OldCount);
Inc(OldCount);
end;
OldCount:=ColCount;
if (OldValue=0)and(NewValue>=0) then begin
FTopleft.Y:=FFixedRows;