{ Parsed from Foundation.framework NSDateComponentsFormatter.h } {$ifdef TYPES} type NSDateComponentsFormatterPtr = ^NSDateComponentsFormatter; {$endif} {$ifdef TYPES} type NSDateComponentsFormatterUnitsStyle = NSInteger; NSDateComponentsFormatterUnitsStylePtr = ^NSDateComponentsFormatterUnitsStyle; const NSDateComponentsFormatterUnitsStylePositional = 0; NSDateComponentsFormatterUnitsStyleAbbreviated = 1; NSDateComponentsFormatterUnitsStyleShort = 2; NSDateComponentsFormatterUnitsStyleFull = 3; NSDateComponentsFormatterUnitsStyleSpellOut = 4; type NSDateComponentsFormatterZeroFormattingBehavior = NSUInteger; NSDateComponentsFormatterZeroFormattingBehaviorPtr = ^NSDateComponentsFormatterZeroFormattingBehavior; const NSDateComponentsFormatterZeroFormattingBehaviorNone = 0; NSDateComponentsFormatterZeroFormattingBehaviorDefault = 1 shl 0; NSDateComponentsFormatterZeroFormattingBehaviorDropLeading = 1 shl 1; NSDateComponentsFormatterZeroFormattingBehaviorDropMiddle = 1 shl 2; NSDateComponentsFormatterZeroFormattingBehaviorDropTrailing = 1 shl 3; NSDateComponentsFormatterZeroFormattingBehaviorDropAll = NSDateComponentsFormatterZeroFormattingBehaviorDropLeading + NSDateComponentsFormatterZeroFormattingBehaviorDropMiddle + NSDateComponentsFormatterZeroFormattingBehaviorDropTrailing; NSDateComponentsFormatterZeroFormattingBehaviorPad = 1 shl 16; {$endif} {$ifdef CLASSES} type NSDateComponentsFormatter = objcclass external (NSFormatter) private _lock: pthread_mutex_t; _fmt: pointer; _unused: pointer; _fmtLocaleIdent: NSString; _calendar: NSCalendar; _referenceDate: NSDate; _unitFormatter: NSNumberFormatter; _allowedUnits: NSCalendarUnit; _formattingContext: NSFormattingContext; _unitsStyle: NSDateComponentsFormatterUnitsStyle; _zeroFormattingBehavior: NSDateComponentsFormatterZeroFormattingBehavior; _maximumUnitCount: NSInteger; _allowsFractionalUnits: ObjCBOOL; _collapsesLargestUnit: ObjCBOOL; _includesApproximationPhrase: ObjCBOOL; _includesTimeRemainingPhrase: ObjCBOOL; _reserved: pointer; public function stringForObjectValue (obj: id): NSString; message 'stringForObjectValue:'; function stringFromDateComponents (components: NSDateComponents): NSString; message 'stringFromDateComponents:'; function stringFromDate_toDate (startDate: NSDate; endDate: NSDate): NSString; message 'stringFromDate:toDate:'; function stringFromTimeInterval (ti: NSTimeInterval): NSString; message 'stringFromTimeInterval:'; class function localizedStringFromDateComponents_unitsStyle (components: NSDateComponents; unitsStyle: NSDateComponentsFormatterUnitsStyle): NSString; message 'localizedStringFromDateComponents:unitsStyle:'; procedure setUnitsStyle(newValue: NSDateComponentsFormatterUnitsStyle); message 'setUnitsStyle:'; function unitsStyle: NSDateComponentsFormatterUnitsStyle; message 'unitsStyle'; procedure setAllowedUnits(newValue: NSCalendarUnit); message 'setAllowedUnits:'; function allowedUnits: NSCalendarUnit; message 'allowedUnits'; procedure setZeroFormattingBehavior(newValue: NSDateComponentsFormatterZeroFormattingBehavior); message 'setZeroFormattingBehavior:'; function zeroFormattingBehavior: NSDateComponentsFormatterZeroFormattingBehavior; message 'zeroFormattingBehavior'; procedure setCalendar(newValue: NSCalendar); message 'setCalendar:'; function calendar: NSCalendar; message 'calendar'; procedure setAllowsFractionalUnits(newValue: ObjCBOOL); message 'setAllowsFractionalUnits:'; function allowsFractionalUnits: ObjCBOOL; message 'allowsFractionalUnits'; procedure setMaximumUnitCount(newValue: NSInteger); message 'setMaximumUnitCount:'; function maximumUnitCount: NSInteger; message 'maximumUnitCount'; procedure setCollapsesLargestUnit(newValue: ObjCBOOL); message 'setCollapsesLargestUnit:'; function collapsesLargestUnit: ObjCBOOL; message 'collapsesLargestUnit'; procedure setIncludesApproximationPhrase(newValue: ObjCBOOL); message 'setIncludesApproximationPhrase:'; function includesApproximationPhrase: ObjCBOOL; message 'includesApproximationPhrase'; procedure setIncludesTimeRemainingPhrase(newValue: ObjCBOOL); message 'setIncludesTimeRemainingPhrase:'; function includesTimeRemainingPhrase: ObjCBOOL; message 'includesTimeRemainingPhrase'; procedure setFormattingContext(newValue: NSFormattingContext); message 'setFormattingContext:'; function formattingContext: NSFormattingContext; message 'formattingContext'; function getObjectValue_forString_errorDescription (obj: idPtr; string_: NSString; error: NSStringPtr): ObjCBOOL; message 'getObjectValue:forString:errorDescription:'; end; {$endif}