Overloading a similar index type by declaring an array property 'Items'

[shineworld]

With Athens the TList and other classes Items property is moved from Integer (32-bit on any platform) to NativeInt (32 or 64-bits, depend by platform).

In QuickLib, for example Quick.Threads.TThreadObjectList the property Items use Index: Integer, so during a 64-bit compilation a
warning message is shown:

[dcc64 Warning] Quick.Threads.pas(132): W1075 Overloading a similar index type by declaring an array property 'Items'
  Quick.Threads.pas(132): Related member: property TThreadObjectList<T>.Items[Integer]: T;
  Quick.Threads.pas(132): Related member: property TList<T>.Items[NativeInt]: T;

[shineworld]

You can solve change any index from Integer to NativeInt or disabiling the warning in this way:

  {$IFNDEF FPC}
  {$IF (CompilerVersion > 36) or Declared(RTLVersion122)}{$WARN OVERLOADING_ARRAY_PROPERTY OFF}{$ENDIF}
  TThreadObjectList<T: class> = class(TList<T>)
    private
      fList: TObjectList<T>;
      fLock: TObject;
      fDuplicates: TDuplicates;
      function GetItem(aIndex : Integer) : T;
      procedure SetItem(aIndex : Integer; aValue : T);
    public
      constructor Create(OwnedObjects : Boolean);
      destructor Destroy; override;
      property Items[Index : Integer] : T read GetItem write SetItem ; default;
      procedure Add(const Item: T);
      procedure Clear;
      function LockList: TObjectList<T>;
      procedure Remove(const Item: T); inline;
      procedure RemoveItem(const Item: T; Direction: TDirection);
      procedure UnlockList; inline;
      property Duplicates: TDuplicates read fDuplicates write fDuplicates;
  end;
  {$IF (CompilerVersion > 36) or Declared(RTLVersion122)}{$WARN OVERLOADING_ARRAY_PROPERTY ON}{$ENDIF}
  {$ENDIF}