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

LCL, make grid remember changes in fixedcols or fixedrows in a fixed grid (grid with 0 cols or rows), issue #18832

Browse Source 
git-svn-id: trunk@29746 -
This commit is contained in:
jesus 2011-03-07 20:41:05 +00:00
parent 210306ecb8
commit ae13b849e4
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/grids.pas
View File

@ -2279,8 +2279,14 @@ procedure TCustomGrid.SetFixedCols(const AValue: Integer);
var
EditorAffected: boolean;
begin
if FFixedCols=AValue then
if FFixedCols=AValue then begin
if FixedGrid and FGridPropBackup.ValidData then begin
// user modified fixed properties in fixed grid
// update stored values
FGridPropBackup.FixedColCount := AValue;
end;
exit;
end;
CheckFixedCount(ColCount, RowCount, AValue, FFixedRows);
EditorAffected := (AValue>=FCol);
@ -2315,7 +2321,14 @@ procedure TCustomGrid.SetFixedRows(const AValue: Integer);
var
EditorAffected: boolean;
begin
if FFixedRows=AValue then exit;
if FFixedRows=AValue then begin
if FixedGrid and FGridPropBackup.ValidData then begin
// user modified fixed properties in fixed grid
// update stored values
FGridPropBackup.FixedRowCount := AValue;
end;
exit;
end;
CheckFixedCount(ColCount, RowCount, FFixedCols, AValue);
EditorAffected := (AValue>=FRow);