anchor.diff:    
   type
   
  -  { Composite mediator for TListView }
  +  { Composite mediator for TfpgListView }
     TCompositeListViewMediator = class(TtiObject)
     private
       FIsObserving: Boolean;
  
positive.code:     FView: TfpgStringGrid;
      FModel: TtiObjectList;
      FMediatorList: TObjectList;
      procedure   CreateSubMediators;
      procedure   SetupGUIandObject; virtual;
      procedure   RebuildStringGrid; virtual;
      function    DataAndPropertyValid(const AData: TtiObject): Boolean;
  
negative.code:   end;
  
  
    { Used internally for sub-mediators in ListView mediator. Moved to interface
      section so it can be overridden. }
    TListViewListItemMediator = class(TtiObject)
    private
      FModel: TtiObject;
  