anchor.diff:  procedure TAbCustomListView.SetPath(aValue: string);
   begin
     if aValue <> FPath then begin
  -    FPath := aValue;
  +    FPath := ExcludeTrailingPathDelimiter(aValue);
       if Assigned(TreeView) then
         TreeView.Path := aValue;
       if not FlatList then
  
positive.code:   TAbListItem = class(TListItem)
    protected {private}
      FArchiveItem : TAbArchiveItem;
      FIsDirectory : Boolean;
    protected {methods}
      function GetIsEncrypted : Boolean;
    public {properties}
      property ArchiveItem : TAbArchiveItem
        read FArchiveItem
        write FArchiveItem;
      property IsDirectory : Boolean
        read FIsDirectory
        write FIsDirectory;
      property IsEncrypted : Boolean
        read GetIsEncrypted;
    end;
  
negative.code: {*   only show items in the selected folder.             *}
  {*********************************************************}
  //TODO: Add to AbbreviaVCL packages
  //TODO: Tighten up component cooperation
  unit AbComCtrls;
  
  