diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-05-07 17:35:40 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-05-07 17:35:40 +0100 |
commit | c46fcdb5f0afd760c3f1653f5182bb21713f0219 (patch) | |
tree | 54681f545bcac2130a9402b9e5258086e067e2a1 | |
parent | ac17c8389b20b55cf8719953168b1838330df0d5 (diff) | |
download | fpGUI-c46fcdb5f0afd760c3f1653f5182bb21713f0219.tar.xz |
grid demo: fixes index out of bounds error when deleting rows.
We never checked to see if there are any rows to delete.
-rw-r--r-- | examples/gui/gridtest/gridtest.lpr | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr index 465281b2..f2c0b017 100644 --- a/examples/gui/gridtest/gridtest.lpr +++ b/examples/gui/gridtest/gridtest.lpr @@ -92,7 +92,8 @@ end; procedure TMainForm.btnDelRowClicked(Sender: TObject); begin - stringgrid.DeleteRow(stringgrid.FocusRow); + if StringGrid.RowCount > 0 then + stringgrid.DeleteRow(stringgrid.FocusRow); end; procedure TMainForm.chkDisabledChange(Sender: TObject); |