anchor.diff:    Classes
     ,SysUtils
     ,tiObject
  -  ,gui_listview   { TListView }
  +  ,gui_listview   { TfpgListView }
     ,Contnrs        { TObjectList }
  -  ,gui_grid       { TStringGrid }
  +  ,gui_grid       { TfpgStringGrid }
     ;
   
     
  
positive.code:   for i := 1 to tiNumToken(FDisplayNames, cFieldDelimiter) do
    begin
      lField := tiToken(FDisplayNames, cFieldDelimiter, i);
      FView.Cells[i, 1]     := tiFieldName(lField);
      FView.ColumnWidth[i]  := tiFieldWidth(lField);
  
      //resize the last column to fill the grid.
      if i = tiNumToken(FDisplayNames, cFieldDelimiter) then
  
negative.code:   FView.RowSelect     := True;
    FView.ColumnCount   := tiNumToken(FDisplayNames, cFieldDelimiter);
    FView.RowCount      := FModel.Count;
  end;
  
  procedure TCompositeStringGridMediator.RebuildStringGrid;
  