anchor.diff:    AView: TfpgLVItem; const ADisplayNames: string; IsObserving: Boolean);
   begin
     inherited Create;
  -  FModel        := AModel;
  -  FView         := AView;
  -  FDisplayNames := ADisplayNames;
  +  FModel              := AModel;
  +  FView               := AView;
  +  FDisplayNames       := ADisplayNames;
   
     SetupFields;
  -  
  +
     if IsObserving then
       FModel.AttachObserver(self);
   end;
  
positive.code:     else
        lColumnTotalWidth := lColumnTotalWidth + FView.ColumnWidth[i] + 20;
    end;
    for i := 0 to FModel.Count-1 do
    begin
      if not FModel.Items[i].Deleted or FShowDeleted then
  
negative.code:   lFieldName: string;
  begin
    Assert(FModel = ASubject);
    for i := 1 to tiNumToken(FDisplayNames, cFieldDelimiter) do
    begin
      lField := tiToken(FDisplayNames, cFieldDelimiter, i);
      lFieldName := tiFieldName(lField);
      
      FView.Cells[i, FRowIndex] := FModel.PropValue[lFieldName];
  