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

Grids: implement goIgnoreRowContentForAutoAddRows option.

Browse Source 
If set then AutoAddRows will add a row even if last row is empty.
The then added row will not be removed if it is empty when user moves the cursor up.

git-svn-id: trunk@39940 -
This commit is contained in:
bart 2013-01-23 15:26:45 +00:00
parent aadb033941
commit 617fb0cf9e
1 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/grids.pas
View File

@ -109,7 +109,8 @@ type
goCellHints, // show individual cell hints
goTruncCellHints, // show cell hints if cell text is too long
goCellEllipsis, // show "..." if cell text is too long
goTabIgnoreAutoAdvance// BB move through cells with Tab key in aaRightDown fashion (like tables in wordprocessors)
goTabIgnoreAutoAdvance,// BB move through cells with Tab key in aaRightDown fashion (like tables in wordprocessors)
goIgnoreRowContentForAutoAddRows//BB Also add a row (if AutoAddRows in Options) if last row is empty
);
TGridOptions = set of TGridOption;
@ -2469,6 +2470,8 @@ begin
end else begin
EditorHide;
end;
if goIgnoreRowContentForAutoAddRows in Options then
FRowAutoInserted := False;
VisualChange;
end;
@ -6631,7 +6634,7 @@ begin
PreserveRowAutoInserted := True;
Key:=0;
end else if (goAutoAddRows in Options) and (Col>=GetLastVisibleColumn) then begin
if not IsEmptyRow(Row) then MoveSel(True, DeltaCol, DeltaRow);
if (goIgnoreRowContentForAutoAddRows in Options) or (not IsEmptyRow(Row)) then MoveSel(True, DeltaCol, DeltaRow);
Key := 0;
PreserveRowAutoInserted := True;
end else
@ -6915,6 +6918,19 @@ var
NCol,NRow: Integer;
SelOk: Boolean;
i: Integer;
function IsEmptyRow(ARow: Integer): Boolean;
var
i: Integer;
begin
Result := False;
for i:=FixedCols to ColCount-1 do
if GetCells(i, FRow)<>'' then begin
Exit;
end;
Result := True;
end;
begin
// Reference
if not Relative then begin
@ -6927,13 +6943,12 @@ begin
NRow:=FRow+DRow;
if (goEditing in options) and (goAutoAddRows in options) then begin
if (DRow=1) and (NRow>=RowCount) then begin
// If the last row has data, add a new row.
if not FRowAutoInserted then
for i:=FixedCols to ColCount-1 do
if GetCells(i, FRow)<>'' then begin
// If the last row has data or goIgnoreRowContentForAutoAddRows is set, add a new row.
if (not FRowAutoInserted) then begin
if (goIgnoreRowContentForAutoAddRows in Options) or (not IsEmptyRow(FRow)) then begin
RowCount:=RowCount+1;
FRowAutoInserted:=True;
Break;
if not (goIgnoreRowContentForAutoAddRows in Options) then FRowAutoInserted:=True;
end;
end;
end
else if FRowAutoInserted and (DRow=-1) then begin
@ -8341,6 +8356,7 @@ begin
cfg.SetValue(Path+'goDblClickAutoSize/value', goDblClickAutoSize in options);
Cfg.SetValue(Path+'goSmoothScroll/value', goSmoothScroll in Options);
Cfg.SetValue(Path+'goTabIgnoreAutoAdvance/value', goTabIgnoreAutoAdvance in Options);
Cfg.SetValue(Path+'goIgnoreRowContentForAutoAddRows/value', goIgnoreRowContentForAutoAddRows in Options);
end;
Cfg.SetValue('grid/saveoptions/position', soPosition in SaveOptions);
@ -8485,6 +8501,7 @@ begin
GetValue('goRelaxedRowSelect',goRelaxedRowSelect);
GetValue('goDblClickAutoSize',goDblClickAutoSize);
GetValue('goTabIgnoreAutoAdvance',goTabIgnoreAutoAdvance);
GetValue('goIgnoreRowContentForAutoAddRows',goIgnoreRowContentForAutoAddRows);
if Version>=2 then begin
GetValue('goSmoothScroll',goSmoothScroll);
end;