anchor.diff:      constructor CreateCustom(AModel: TtiObjectList; AView: TfpgListView; ADisplayNames: string; IsObserving: Boolean = True);
       procedure   BeforeDestruction; override;
       procedure   Update(ASubject: TtiObject); override;
  -    
       { Called from the GUI to trigger events }
       procedure   HandleSelectionChanged; virtual;
     published
  
positive.code:   end;
  
  
    TStringGridRowMediator = class(TtiObject)
    private
      FDisplayNames: string;
  
negative.code:     FMediatorList: TObjectList;
      FObserversInTransit: TList;
      FSelectedObject: TtiObject;
      procedure   CreateSubMediators; virtual;
      procedure   SetupGUIandObject; virtual;
      procedure   RebuildList; virtual;
      function    DataAndPropertyValid(const AData: TtiObject): Boolean;
  