summaryrefslogtreecommitdiff
path: root/extras
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-10-05 11:59:27 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-10-05 11:59:27 +0200
commit0807384487c04bf2898c0d2fbb51047683af7c8e (patch)
treefece6121598d8a6f5fc42d02518141a1c8c5cfdf /extras
parentb37011b81c8d61af5ba37ed395b96502a340062b (diff)
downloadfpGUI-0807384487c04bf2898c0d2fbb51047683af7c8e.tar.xz
StringGrid mediator bugfix in ClearList method
Diffstat (limited to 'extras')
-rw-r--r--extras/tiopf/gui/tiListMediators.pas2
1 files changed, 1 insertions, 1 deletions
diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas
index 89b99135..1185607c 100644
--- a/extras/tiopf/gui/tiListMediators.pas
+++ b/extras/tiopf/gui/tiListMediators.pas
@@ -504,7 +504,7 @@ procedure TtiStringGridMediatorView.ClearList;
begin
MediatorList.Clear;
if View <> nil then
- View.RowCount := 1; {$Note Double check if this is desired. Shouldn't it be 0 instead. }
+ View.RowCount := 0; { Don't call View.Clear because then the Header is gone too }
end;
procedure TtiStringGridMediatorView.RebuildList;