anchor.diff:    end;
   end;
   { -------------------------------------------------------------------------- }
  -procedure TAbTreeView.Change(aNode: TTreeNode);
  +procedure TAbCustomTreeView.Change(aNode: TTreeNode);
   var
  -  Path: string;
  +  Filename: string;
   begin
     inherited;
  -  if aNode.Selected and Assigned(ListView) then begin
  -    Path := '';
  +  if aNode.Selected then begin
  +    Filename := '';
       if aNode <> Items.GetFirstNode then begin
  -      Path := aNode.Text;
  +      Filename := aNode.Text;
         aNode := aNode.Parent;
         while aNode <> Items.GetFirstNode do begin
  -        Path := aNode.Text + PathDelim + Path;
  +        Filename := aNode.Text + PathDelim + Filename;
           aNode := aNode.Parent;
         end;
       end;
  -    ListView.Path := Path;
  -  end;
  -end;
  -{ -------------------------------------------------------------------------- }
  -procedure TAbTreeView.DoChange(Sender: TObject);
  +    Path := Filename;
  +  end;
  +end;
  +{ -------------------------------------------------------------------------- }
  +procedure TAbCustomTreeView.DoChange(Sender: TObject);
   var
     Nodes: TStringList;
     ZipNode: TTreeNode;
  
positive.code:     end;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbListView.SetArchive(aValue: TAbBaseBrowser);
  begin
    if Assigned(FArchive) then
      FArchive.RemoveFreeNotification(Self);
    FArchive := aValue;
    if Assigned(FArchive) then
      FArchive.FreeNotification(Self);
    UpdateView;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbListView.SetColumns(aValue : TAbViewColumns);
  const
    ColWidths: array[TAbViewColumn] of Integer = (
      180{vcName}, 110{vcFileType}, 130{vcLastModified}, 80{vcSize}, 50{vcRatio},
  
negative.code:   Col: TAbViewColumn;
    Column: TListColumn;
  begin
    if aValue <> FVisibleColumns then begin
      Columns.Clear;
      FVisibleColumns := aValue;
      for Col := Low(Col) to High(Col) do begin
        if not (Col in FVisibleColumns) then
          Continue;
        Column := Columns.Add;
        case Col of
          vcName: Column.Caption := AbItemNameHeadingS;
          vcFileType: Column.Caption := AbFileTypeHeadingS;
  