{ Parsed from Foundation.framework NSIndexSet.h } {$ifdef TYPES} {$ifndef NSINDEXSET_PAS_T} {$define NSINDEXSET_PAS_T} {$endif} {$endif} {$ifdef RECORDS} {$ifndef NSINDEXSET_PAS_R} {$define NSINDEXSET_PAS_R} {$endif} {$endif} {$ifdef FUNCTIONS} {$ifndef NSINDEXSET_PAS_F} {$define NSINDEXSET_PAS_F} {$endif} {$endif} {$ifdef EXTERNAL_SYMBOLS} {$ifndef NSINDEXSET_PAS_S} {$define NSINDEXSET_PAS_S} {$endif} {$endif} {$ifdef FORWARD} NSIndexSet = objcclass; NSIndexSetPointer = ^NSIndexSet; NSIndexSetPtr = NSIndexSetPointer; NSMutableIndexSet = objcclass; NSMutableIndexSetPointer = ^NSMutableIndexSet; NSMutableIndexSetPtr = NSMutableIndexSetPointer; {$endif} {$ifdef CLASSES} {$ifndef NSINDEXSET_PAS_C} {$define NSINDEXSET_PAS_C} { NSIndexSet } NSIndexSet = objcclass external (NSObject, NSCopyingProtocol, NSMutableCopyingProtocol, NSCodingProtocol) private __indexSetFlags: record case byte of 0: (_anonbitfield_NSIndexSet0: NSUInteger); 1: (data: bitpacked record _isEmpty: 0..1; _hasSingleRange: 0..1; _cacheValid: 0..1; _reservedArrayBinderController: 0..((1 shl 29)-1); end; ); end; _internal: record case byte of 0: ( __singleRange: record _range: NSRange; end; ); 1: ( __multipleRanges: record _data: Pointer; {garbage collector: __strong } _reserved: Pointer; end; ); end; public class function indexSet: id; message 'indexSet'; class function indexSetWithIndex(value: NSUInteger): id; message 'indexSetWithIndex:'; class function indexSetWithIndexesInRange(range: NSRange): id; message 'indexSetWithIndexesInRange:'; function init: id; message 'init'; function initWithIndex(value: NSUInteger): id; message 'initWithIndex:'; function initWithIndexesInRange(range: NSRange): id; message 'initWithIndexesInRange:'; function initWithIndexSet(indexSet_: NSIndexSet): id; message 'initWithIndexSet:'; function isEqualToIndexSet(indexSet_: NSIndexSet): Boolean; message 'isEqualToIndexSet:'; function count: NSUInteger; message 'count'; function firstIndex: NSUInteger; message 'firstIndex'; function lastIndex: NSUInteger; message 'lastIndex'; function indexGreaterThanIndex(value: NSUInteger): NSUInteger; message 'indexGreaterThanIndex:'; function indexLessThanIndex(value: NSUInteger): NSUInteger; message 'indexLessThanIndex:'; function indexGreaterThanOrEqualToIndex(value: NSUInteger): NSUInteger; message 'indexGreaterThanOrEqualToIndex:'; function indexLessThanOrEqualToIndex(value: NSUInteger): NSUInteger; message 'indexLessThanOrEqualToIndex:'; function getIndexes_maxCount_inIndexRange(indexBuffer: NSUIntegerPtr; bufferSize: NSUInteger; range: NSRangePointer): NSUInteger; message 'getIndexes:maxCount:inIndexRange:'; function countOfIndexesInRange(range: NSRange): NSUInteger; message 'countOfIndexesInRange:'; function containsIndex(value: NSUInteger): Boolean; message 'containsIndex:'; function containsIndexesInRange(range: NSRange): Boolean; message 'containsIndexesInRange:'; function containsIndexes(indexSet_: NSIndexSet): Boolean; message 'containsIndexes:'; function intersectsIndexesInRange(range: NSRange): Boolean; message 'intersectsIndexesInRange:'; { Adopted Protocols } function copyWithZone(zone_: NSZonePtr): id; function mutableCopyWithZone(zone_: NSZonePtr): id; procedure encodeWithCoder(aCoder: NSCoder); function initWithCoder(aDecoder: NSCoder): id; end; { NSMutableIndexSet } NSMutableIndexSet = objcclass external (NSIndexSet) private _reserved: Pointer; public procedure addIndexes(indexSet_: NSIndexSet); message 'addIndexes:'; procedure removeIndexes(indexSet_: NSIndexSet); message 'removeIndexes:'; procedure removeAllIndexes; message 'removeAllIndexes'; procedure addIndex(value: NSUInteger); message 'addIndex:'; procedure removeIndex(value: NSUInteger); message 'removeIndex:'; procedure addIndexesInRange(range: NSRange); message 'addIndexesInRange:'; procedure removeIndexesInRange(range: NSRange); message 'removeIndexesInRange:'; procedure shiftIndexesStartingAtIndex_by(index: NSUInteger; delta: NSInteger); message 'shiftIndexesStartingAtIndex:by:'; end; {$endif} {$endif}