diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-11-11 21:16:05 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-11-11 21:16:05 +0200 |
| commit | 316705c596c74e13870f264635740d997f0473e8 (patch) | |
| tree | b8ba77fd456829794725bd6875c7c136430f948e /src/gui/fpg_listview.pas | |
| parent | 1cce04ca1225fdc2786dd0fa908314b6abc4caff (diff) | |
| download | fpGUI-316705c596c74e13870f264635740d997f0473e8.tar.xz | |
listview bugfix: removed index out of bounds error
Diffstat (limited to 'src/gui/fpg_listview.pas')
| -rw-r--r-- | src/gui/fpg_listview.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas index ecc1a409..dc9378b1 100644 --- a/src/gui/fpg_listview.pas +++ b/src/gui/fpg_listview.pas @@ -2067,7 +2067,7 @@ procedure TfpgListViewSubItems.Clear; var i: LongInt; begin - for i := FList.Count downto 0 do + for i := FList.Count-1 downto 0 do Delete(i); end; |