anchor.diff:        TreeView.Path := aValue;
       if not FlatList then
         UpdateView;
  +  end;
  +end;
  +{ -------------------------------------------------------------------------- }
  +procedure TAbCustomListView.SetTreeView(aValue: TAbCustomTreeView);
  +begin
  +  if aValue <> FTreeView then begin
  +    if Assigned(FTreeView) then begin
  +      FTreeView.RemoveFreeNotification(Self);
  +      FTreeView.ListView := nil;
  +    end;
  +    FTreeView := aValue;
  +    if Assigned(FTreeView) then begin
  +      FTreeView.FreeNotification(Self);
  +      if Assigned(FArchive) then
  +        FTreeView.Archive := FArchive
  +      else if Assigned(FTreeView.Archive) then
  +        Archive := FTreeView.Archive;
  +      FTreeView.ListView := Self;
  +    end;
     end;
   end;
   { -------------------------------------------------------------------------- }
  
positive.code:     property Items: TAbListItems
        read GetListItems
        stored False;
      property Path : string
        read FPath
        write SetPath;
  
negative.code:     procedure SetArchive(aValue : TAbBaseBrowser);
      procedure SetFlatList(aValue : Boolean);
      procedure SetPath(aValue : string);
      procedure SetTreeView(aValue : TAbCustomTreeView);
      procedure SetVisibleColumns(aValue : TAbViewColumns);
      procedure UpdateColumns;
      procedure UpdateSortArrow;
  