diff options
Diffstat (limited to 'src/gui/fpg_customgrid.pas')
-rw-r--r-- | src/gui/fpg_customgrid.pas | 9 |
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); |