anchor.diff:    Classes
     ,SysUtils
     ,tiBaseMediator
  -  ,Contnrs        { TObjectList }
  +//  ,Contnrs        { TObjectList }
     ,gui_listview   { TfpgListView }
     ,gui_grid       { TfpgStringGrid }
     ,tiObject
  
positive.code: procedure TListViewMediator.RebuildList;
  begin
    MediatorList.Clear;
    ClearList;
    { This rebuilds the whole list. Not very efficient. You can always override
      this in your mediators to create a more optimised rebuild. }
    View.BeginUpdate;
  
negative.code:     View.Items.Clear;
      CreateSubMediators;
    finally
      View.EndUpdate;
    end;
  end;
  
  