anchor.diff:      (TMethod(aEvent1).Data = TMethod(aEvent2).Data);
   end;
   
  -{ ===== TAbCustomListView =================================================== }
  +
  +
  +{ ===== TAbListItem ========================================================= }
  +function TAbListItem.GetIsEncrypted: Boolean;
  +begin
  +  Result := (ArchiveItem <> nil) and ArchiveItem.IsEncrypted;
  +end;
  +
  +
  +{ ===== TAbListItems ======================================================== }
   function TAbListItems.GetItem(aIndex: Integer): TAbListItem;
   begin
     Result := inherited Item[aIndex] as TAbListItem;
  
positive.code:     function GetListItems: TAbListItems;
      procedure HeaderWndProc(var Msg: TMessage);
        virtual;
      procedure Notification(aComponent : TComponent; aOperation : TOperation);
        override;
      procedure SetArchive(aValue : TAbBaseBrowser);
  
negative.code:     FSortDownBmp := LoadImage(HInstance, 'AbComCtrls_SortDown', IMAGE_BITMAP, 0, 0, LR_LOADMAP3DColors);
    end;
    // Set default column visibility
    VisibleColumns := AbDefVisibleColumns;
  end;
  { -------------------------------------------------------------------------- }
  destructor TAbCustomListView.Destroy;
  