anchor.diff:    UpdateColumns;
   end;
   { -------------------------------------------------------------------------- }
  +function TAbCustomListView.CustomDrawSubItem(Item: TListItem; SubItem: Integer;
  +  State: TCustomDrawState; Stage: TCustomDrawStage): Boolean;
  +var
  +  i: Integer;
  +  R: TRect;
  +begin
  +  Result := True;
  +  if (Stage = cdPrePaint) and TAbListItem(Item).IsEncrypted then
  +    if TAbViewColumn(Columns[SubItem].Tag) = vcEncrypted then begin
  +      Result := False;
  +      R := Item.DisplayRect(drBounds);
  +      Inc(R.Left, 6);
  +      for i := 0 to SubItem - 1 do
  +        Inc(R.Left, Columns[i].Width);
  +      HeaderImages.Draw(Canvas, R.Left, R.Top, 0);
  +    end
  +    else begin
  +      Result := True;
  +      // Fixed other columns drawing with wrong font after using TImageList.Draw
  +      Canvas.Brush.Color := ColorToRGB(Color);
  +      SetBkMode(Canvas.Handle, TRANSPARENT);
  +    end;
  +end;
  +{ -------------------------------------------------------------------------- }
   procedure TAbCustomListView.DblClick;
   begin
     inherited;
  
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;
  