summaryrefslogtreecommitdiff
path: root/src/gui/fpg_customgrid.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui/fpg_customgrid.pas')
-rw-r--r--src/gui/fpg_customgrid.pas9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/gui/fpg_customgrid.pas b/src/gui/fpg_customgrid.pas
index 7b042799..b5a6c191 100644
--- a/src/gui/fpg_customgrid.pas
+++ b/src/gui/fpg_customgrid.pas
@@ -91,6 +91,7 @@ type
destructor Destroy; override;
function AddColumn(ATitle: string; AWidth: integer): TfpgGridColumn; virtual;
procedure DeleteColumn(AIndex: integer); virtual;
+ procedure DeleteRow(AIndex: integer); virtual;
procedure MoveColumn(oldindex, newindex: integer); virtual;
end;
@@ -351,6 +352,14 @@ begin
end;
end;
+procedure TfpgCustomGrid.DeleteRow(AIndex: integer);
+begin
+ if (AIndex < 0) or (AIndex > FRowCount-1) then
+ Exit;
+ { This is just some sanity checking. Actual row deletion must occur in
+ descendant classed. See TfpgStringGrid for an example. }
+end;
+
procedure TfpgCustomGrid.MoveColumn(oldindex, newindex: integer);
begin
FColumns.Move(oldindex, newindex);