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

LCL, grids: update fixed cols/rows count on inserting a column/row in a fixed zone

Browse Source 
git-svn-id: trunk@55766 -
This commit is contained in:
jesus 2017-08-31 21:12:35 +00:00
parent a41f345980
commit 625ed6ca90
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -6177,6 +6177,8 @@ begin
if IsColumn then begin if IsColumn then begin
if Index>ColCount-1 then if Index>ColCount-1 then
Index := ColCount-1; Index := ColCount-1;
if Index<FixedCols then
inc(FFixedCols);
if columns.Enabled then begin if columns.Enabled then begin
Columns.InsertColumn(ColumnIndexFromGridColumn(index)); Columns.InsertColumn(ColumnIndexFromGridColumn(index));
ColRowInserted(true, index); ColRowInserted(true, index);
@ -6188,6 +6190,8 @@ begin
end else begin end else begin
Frows.Insert(Index, pointer(-1)); Frows.Insert(Index, pointer(-1));
FGCache.AccumHeight.Insert(Index, nil); FGCache.AccumHeight.Insert(Index, nil);
if Index<FixedRows then
inc(FFixedRows);
end; end;
ColRowInserted(IsColumn, index); ColRowInserted(IsColumn, index);
VisualChange; VisualChange;