anchor.diff:    end;
   
   
  +  { Composite mediator for TfpgStringGrid }
     TCompositeStringGridMediator = class(TtiObject)
     private
       FDisplayNames: string;
  
positive.code:     FMediatorList: TObjectList;
      FObserversInTransit: TList;
      FSelectedObject: TtiObject;
      procedure   CreateSubMediators;
      procedure   SetupGUIandObject; virtual;
      procedure   RebuildList; virtual;
      function    DataAndPropertyValid(const AData: TtiObject): Boolean;
  
negative.code:   end;
  
  
    { Used internally for sub-mediators in StringGrid mediator. Moved to interface
      section so it can be overridden. }
    TStringGridRowMediator = class(TtiObject)
    private
      FDisplayNames: string;
  