anchor.diff:  //end;
   
   
  -constructor TStringGridRowMediator.CreateCustom(AModel: TtiObject; AGrid : TfpgStringGrid; ADisplayNames: string; pRowIndex : integer; IsObserving: Boolean);
  +constructor TStringGridRowMediator.CreateCustom(AModel: TtiObject;
  +    AGrid: TfpgStringGrid; ADisplayNames: string; ARowIndex: integer;
  +    IsObserving: Boolean);
   begin
     inherited Create;
     FModel        := AModel;
     FView         := AGrid;
     FDisplayNames := ADisplayNames;
  -  FRowIndex     := pRowIndex;
  +  FRowIndex     := ARowIndex;
   
     if IsObserving then
       FModel.AttachObserver(self);
  
positive.code:   
    for i := 0 to FModel.Count-1 do
    begin
      if not FModel.Items[i].Deleted or FShowDeleted then
        DoCreateItemMediator(FModel.Items[i], i);
    end;
  end;
  
negative.code:   lFieldName: string;
  begin
    Assert(FModel = ASubject);
    for i := 0 to tiNumToken(FDisplayNames, cFieldDelimiter)-1 do
    begin
      lField := tiToken(FDisplayNames, cFieldDelimiter, i+1);
      lFieldName := tiFieldName(lField);
      FView.Cells[i, FRowIndex] := FModel.PropValue[lFieldName];
    end;
  end;
  