anchor.diff:    DoChange;
   end;
   { -------------------------------------------------------------------------- }
  +procedure TAbCustomZipBrowser.SetStream(aValue: TStream);
  +var
  +  ArcType : TAbArchiveType;
  +begin
  +  FFileName := '';
  +  try
  +    if FArchive <> nil then
  +      FArchive.Save;
  +  except
  +  end;
  +  FreeAndNil(FArchive);
  +
  +  if aValue <> nil then begin
  +    ArcType := ArchiveType;
  +    if not ForceType then
  +      ArcType := AbDetermineArcType(aValue);
  +
  +    case ArcType of
  +      atZip, atSpannedZip, atSelfExtZip : begin
  +        FArchive := TAbZipArchive.CreateFromStream(aValue, '');
  +      end;
  +
  +      atTar : begin
  +        FArchive := TAbTarArchive.CreateFromStream(aValue, '');
  +      end;
  +
  +      atGZip, atGZippedTar : begin
  +        FArchive := TAbGzipArchive.CreateFromStream(aValue, '');
  +        TAbGzipArchive(FArchive).TarAutoHandle := FTarAutoHandle;
  +        TAbGzipArchive(FArchive).IsGzippedTar := (ArcType = atGZippedTar);
  +      end;
  +
  +      atBzip2, atBzippedTar : begin
  +        FArchive := TAbBzip2Archive.CreateFromStream(aValue, '');
  +        TAbBzip2Archive(FArchive).TarAutoHandle := FTarAutoHandle;
  +        TAbBzip2Archive(FArchive).IsBzippedTar := (ArcType = atBzippedTar);
  +      end;
  +
  +      else
  +        raise EAbUnhandledType.Create;
  +    end {case};
  +    InitArchive;
  +    FArchive.Load;
  +    FArchiveType := ArcType;
  +  end;
  +  DoChange;
  +end;
  +{ -------------------------------------------------------------------------- }
   procedure TAbCustomZipBrowser.SetOnRequestBlankDisk(Value : TAbRequestDiskEvent);
   begin
     FOnRequestBlankDisk := Value;
  
positive.code:  * the Initial Developer. All Rights Reserved.
   *
   * Contributor(s):
   *
   * ***** END LICENSE BLOCK ***** *)
  
  
negative.code:     Result := TAbGzipArchive(FArchive).TarAutoHandle
    else if FArchive is TAbBzip2Archive then
      Result := TAbBzip2Archive(FArchive).TarAutoHandle;
  end;
  { -------------------------------------------------------------------------- }
  function TAbCustomZipBrowser.GetZipfileComment : AnsiString;
  