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