anchor.diff:  
   implementation
   
  -uses
  -  tiUtils
  -  ,typinfo
  -  ,tiExcept
  -  ;
  -
  -
  -{ ---------------------------------------------------------------------
  -  ListView
  -  --------------------------------------------------------------------- }
   
   { TListViewMediator }
   
  
positive.code: end;
  
  procedure TListViewMediator.CreateColumns;
  
  var
    c: integer;
    lc: TfpgLVColumn;
    lInfo : TtiMediatorFieldInfo;
  
  begin
    if View.Columns.Count = 0 then
    begin
  
negative.code:     procedure   RebuildList;override;
    public
      constructor CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean = True);
      class function ComponentClass: TClass; override;
    published
      property    View: TfpgStringGrid read FView Write SetView;
      property    SelectedObject: TtiObject read GetSelectedObject write SetSelectedObject;
  