anchor.diff:        override;
       procedure Notification(aComponent : TComponent; aOperation : TOperation);
         override;
  +    procedure SelectPathNode;
       procedure SetArchive(aValue: TAbBaseBrowser);
       procedure SetListView(aValue: TAbCustomListView);
       procedure SetPath(const aValue: string);
  
positive.code:       TreeView.Path := aValue;
      if not FlatList then
        UpdateView;
    end;
  end;
  { -------------------------------------------------------------------------- }
  
negative.code:       end;
        Items.AlphaSort(True);
        ZipNode.Expand(False);
        SelectPathNode;
      end;
    finally
      Items.EndUpdate;
  