anchor.diff:      procedure   SetupGUIandObject; override;
       procedure   ClearList; override;
       procedure   RebuildList; override;
  +    procedure   SetActive(const AValue: Boolean); override;
     public
       constructor CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean = True); reintroduce; overload;
       destructor  Destroy; override;
  
positive.code:   end;
  end;
  
  constructor TtiStringGridMediatorView.CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean);
  begin
    inherited Create;
  
negative.code: 
  procedure TtiListViewMediatorView.SetActive(const AValue: Boolean);
  begin
    inherited SetActive(AValue);
    if not AValue then
      ClearList;
  end;
  
  constructor TtiListViewMediatorView.CreateCustom(AModel: TtiObjectList; AView: TfpgListView; AOnBeforeSetupField: TtiOnBeforeSetupField; ADisplayNames: string; AIsObserving: Boolean);
  