anchor.diff:    end;  { for }
   end;
   
  -procedure TtiStringGridMediatorView.DoCreateItemMediator(AData: TtiObject; ARowIdx: integer);
  +function TtiStringGridMediatorView.DoCreateItemMediator(AData: TtiObject; ARowIdx: integer): TtiListItemMediator;
   var
     i: integer;
     lFieldName: string;
  -  lMediatorView: TtiStringGridRowMediator;
   begin
     View.BeginUpdate;
     try
  
positive.code:   Result := GetObjectFromItem(View.Items.Item[View.ItemIndex]);
  end;
  
  procedure TtiListViewMediatorView.DoCreateItemMediator(AData: TtiObject; ARowIdx: integer);
  var
    li: TfpgLVItem;
    m: TtiListViewListItemMediator;
  begin
    DataAndPropertyValid(AData);
    { Create ListItem and Mediator }
  
negative.code:     function    GetSelectedObject: TtiObject; override;
      procedure   SetSelectedObject(const AValue: TtiObject); override;
      procedure   CreateColumns; override;
      function    DoCreateItemMediator(AData: TtiObject; ARowIdx: integer): TtiListItemMediator; override;
      procedure   DoDeleteItemMediator(AIndex: Integer; AMediator: TtiListItemMediator); override;
      procedure   SetupGUIandObject; override;
      procedure   ClearList; override;
  