anchor.diff:  procedure TListViewMediator.RebuildList;
   begin
     MediatorList.Clear;
  -  ClearList;
  +//  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;
  
positive.code: end;
  
  procedure TListViewMediator.CreateColumns;
  
  var
    c: integer;
    lc: TfpgLVColumn;
    lInfo : TtiMediatorFieldInfo;
  
  begin
    if View.Columns.Count = 0 then
    begin
  
negative.code:   Classes
    ,SysUtils
    ,tiBaseMediator
  //  ,Contnrs        { TObjectList }
    ,gui_listview   { TfpgListView }
    ,gui_grid       { TfpgStringGrid }
    ,tiObject
  