anchor.diff:    public
       constructor CreateCustom(AModel: TtiObjectList; AView: TfpgListView; ADisplayNames: string; AIsObserving: Boolean = True); overload;
       constructor CreateCustom(AModel: TtiObjectList; AView: TfpgListView; AOnBeforeSetupField: TOnBeforeSetupField; ADisplayNames: string; AIsObserving: Boolean = True); overload;
  -    class function ComponentClass: TClass; virtual;
  +    class function ComponentClass: TClass; override;
       Constructor Create; override;
       Destructor Destroy; override;
       { Called from the GUI to trigger events }
  
positive.code:     View.Items.Clear;
      CreateSubMediators;
    finally
    View.EndUpdate;
    end;
  end;
  
  
negative.code: 
  implementation
  
  
  { TListViewMediator }
  
  