anchor.diff:          Nodes.Free;
         end;
         Items.AlphaSort(True);
  +      ZipNode.Expand(False);
       end;
     finally
       Items.EndUpdate;
  
positive.code:   end;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbTreeView.SetArchive(aValue: TAbBaseBrowser);
  begin
    if Assigned(FArchive) then begin
      FArchive.RemoveFreeNotification(Self);
      FArchive.OnChange := nil;
      FArchive.OnLoad := nil;
    end;
    FArchive := aValue;
    if Assigned(FArchive) then begin
      FArchive.FreeNotification(Self);
      FArchive.OnChange := DoChange;
      FArchive.OnLoad := DoLoad;
      DoChange(Self);
    end
    else
      Items.Clear;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbTreeView.SetListView(aValue: TAbListView);
  begin
    if Assigned(FListView) then begin
      FListView.RemoveFreeNotification(Self);
  
negative.code: {*   listview associated, in which case the listview will*}
  {*   only show items in the selected folder.             *}
  {*********************************************************}
  //TODO: Add to AbbreviaVCL packages
  //TODO: Listview encrypted column
  //TODO: Listview column sorting
  //TODO: Listview support for implicit folders
  //TODO: Tighten up component cooperation
  unit AbComCtrls;
  
  interface
  