anchor.diff:    end;
   end;
   
  -procedure TtiListBoxMediatorView.DoDeleteItemMediator(AIndex: Integer; AMediator: TtiListItemMediator);
  +procedure TtiListBoxListMediatorView.DoDeleteItemMediator(AIndex: Integer; AMediator: TtiListItemMediator);
   begin
     View.Items.Delete(AIndex);
     inherited DoDeleteItemMediator(AIndex, AMediator);
   end;
   
  -function TtiListBoxMediatorView.GetSelectedObject: TtiObject;
  +function TtiListBoxListMediatorView.GetSelectedObject: TtiObject;
   begin
     Result := GetObjectFromRow(View.FocusItem);
   end;
   
  -procedure TtiListBoxMediatorView.SetSelectedObject(const AValue: TtiObject);
  +procedure TtiListBoxListMediatorView.SetSelectedObject(const AValue: TtiObject);
   var
     i: integer;
     o: TObject;
  
positive.code: begin
    gMediatorManager.RegisterMediator(TtiListViewMediatorView, TtiObjectList);
    gMediatorManager.RegisterMediator(TtiStringGridMediatorView, TtiObjectList);
    gMediatorManager.RegisterMediator(TtiListBoxMediatorView, TtiObjectList);
  end;
  
  { TtiListViewMediatorView }
  
negative.code: 
  
    { Composite mediator for TfpgListBox }
    TtiListBoxListMediatorView = class(TtiCustomListMediatorView)
    private
      function    DoCreateItemMediator(AData: TtiObject; ARowIdx: integer): TtiListItemMediator; override;
      procedure   DoDeleteItemMediator(AIndex: Integer; AMediator: TtiListItemMediator); override;
  