anchor.diff:    IsObserving := AIsObserving;
   end;
   
  -destructor TtiListBoxMediatorView.Destroy;
  +destructor TtiListBoxListMediatorView.Destroy;
   begin
     IsObserving := False;
     inherited Destroy;
   end;
   
  -class function TtiListBoxMediatorView.ComponentClass: TClass;
  +class function TtiListBoxListMediatorView.ComponentClass: TClass;
   begin
     Result := TfpgListView;
   end;
   
  -function TtiListBoxMediatorView.GetObjectFromRow(ARow: Integer): TtiObject;
  +function TtiListBoxListMediatorView.GetObjectFromRow(ARow: Integer): TtiObject;
   var
     O: TObject;
   begin
  
positive.code: 
  
    { Composite mediator for TfpgListBox }
    TtiListBoxMediatorView = class(TtiCustomListMediatorView)
    private
      function    DoCreateItemMediator(AData: TtiObject; ARowIdx: integer): TtiListItemMediator; override;
      procedure   DoDeleteItemMediator(AIndex: Integer; AMediator: TtiListItemMediator); override;
  
negative.code: end;
  
  
  { TtiListBoxListMediatorView }
  
  function TtiListBoxListMediatorView.DoCreateItemMediator(AData: TtiObject; ARowIdx: integer): TtiListItemMediator;
  var
    i: integer;
    lFieldName: string;
  