* Updated Demo 7 for tiOPF.

* Added Demo 8 for tiOPF (still incomplete).

1 files changed, 7 insertions, 3 deletions

diff --git a/extras/tiopf/gui/tiCompositeMediators.pas b/extras/tiopf/gui/tiCompositeMediators.pas
index 34417aa8..cd8d3547 100644
--- a/extras/tiopf/gui/tiCompositeMediators.pas
+++ b/extras/tiopf/gui/tiCompositeMediators.pas
@@ -608,15 +608,19 @@ begin
 end;
 
 procedure TCompositeStringGridMediator.RebuildStringGrid;
+var
+  i: integer;
 begin
+  writeln('RebuildStringGrid');
   { This rebuilds the whole list. Not very efficient. }
-//  View.BeginUpdate;
+  View.BeginUpdate;
   try
     FMediatorList.Clear;
-//    View.Columns.Clear;
+    for i := View.ColumnCount to 1 do
+      View.DeleteColumn(i);
     CreateSubMediators;
   finally
-//    View.EndUpdate;
+    View.EndUpdate;
   end;
 
 //  { Do nothing. Can be implement as you see fit. A simple example is given