anchor.diff:    protected {properties}
       property HeaderImages : TImageList
         read FHeaderImages;
  -    property TreeView : TAbCustomTreeView
  -      read FTreeView
  -      write FTreeView;
   
     public {methods}
       constructor Create(aOwner: TComponent);
  
positive.code:       end;
        Items.AlphaSort(True);
        ZipNode.Expand(False);
      end;
    finally
      Items.EndUpdate;
  
negative.code:       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;
  { -------------------------------------------------------------------------- }
  