r316 | jonas | 2009-11-21 16:57:50 +0100 (Sat, 21 Nov 2009) | 4 lines

  * changed last parameter of PMSessionValidatePrintSettings from a
    "var boolean" back into a booleanptr as it was before (you can pass
    kPMDontWantBoolean if you are not interested in the result)
...
r315 | gorazd | 2009-11-18 18:07:57 +0100 (Wed, 18 Nov 2009) | 1 line

Added interfaces to QuickLook framework
...
r314 | gorazd | 2009-11-18 18:07:29 +0100 (Wed, 18 Nov 2009) | 1 line

Added interfaces to QuickLook framework

git-svn-id: trunk@14237 -

.gitattributes

@@ -5492,6 +5492,9 @@ packages/univint/src/Processes.pas svneol=native#text/plain
 packages/univint/src/QDCMCommon.pas svneol=native#text/plain
 packages/univint/src/QDOffscreen.pas svneol=native#text/plain
 packages/univint/src/QDPictToCGContext.pas svneol=native#text/plain
+packages/univint/src/QLBase.pas svneol=native#text/plain
+packages/univint/src/QLGenerator.pas svneol=native#text/plain
+packages/univint/src/QLThumbnailImage.pas svneol=native#text/plain
 packages/univint/src/QTML.pas svneol=native#text/plain
 packages/univint/src/QTSMovie.pas svneol=native#text/plain
 packages/univint/src/QTStreamingComponents.pas svneol=native#text/plain

packages/univint/Makefile.fpc

@@ -75,7 +75,9 @@ implicitunits=  ABActions ABAddressBook ABGlobals ABPeoplePicker ABTypedefs AEDa
   PMCore PMCoreDeprecated PMDefinitions PMDefinitionsDeprecated PMErrors \
   PMPrintAETypes PMPrintSettingsKeys PMPrintingDialogExtensions Palettes \
   Pasteboard PictUtils Power Processes QDCMCommon QDOffscreen \
-  QDPictToCGContext QTML QTSMovie QTStreamingComponents QuickTimeComponents \
+  QDPictToCGContext \
+  QLBase QLGenerator QLThumbnailImage \
+  QTML QTSMovie QTStreamingComponents QuickTimeComponents \
   QuickTimeErrors QuickTimeMusic QuickTimeStreaming QuickTimeVR \
   QuickTimeVRFormat Quickdraw QuickdrawText QuickdrawTypes Resources \
   SCDynamicStore SCDynamicStoreCopyDHCPInfos SCDynamicStoreCopySpecific \

packages/univint/src/PMCore.pas

@@ -1111,7 +1111,7 @@ function PMSessionDefaultPrintSettings( printSession: PMPrintSession; printSetti
  *    CarbonLib:        in CarbonLib 1.1 and later
  *    Non-Carbon CFM:   not available
  }
-function PMSessionValidatePrintSettings( printSession: PMPrintSession; printSettings: PMPrintSettings; var result: Boolean ): OSStatus; external name '_PMSessionValidatePrintSettings';
+function PMSessionValidatePrintSettings( printSession: PMPrintSession; printSettings: PMPrintSettings; result: BooleanPtr ): OSStatus; external name '_PMSessionValidatePrintSettings';
 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *)
 
 {$endc} {PM_USE_SESSION_APIS}

packages/univint/src/QLBase.pas

@@ -0,0 +1,187 @@
+{
+ *  QLBase.h
+ *  Quick Look
+ *
+ *  Copyright 2007 Apple Inc.
+ *  All rights reserved.
+ *
+ }
+{ Pascal Translation: Gorazd Krosl <[email protected]>, November 2009 }
+
+{
+    Modified for use with Free Pascal
+    Version 308
+    Please report any bugs to <[email protected]>
+}
+
+{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
+{$mode macpas}
+{$packenum 1}
+{$macro on}
+{$inline on}
+{$calling mwpascal}
+
+unit QLBase;
+interface
+{$setc UNIVERSAL_INTERFACES_VERSION := $0400}
+{$setc GAP_INTERFACES_VERSION := $0308}
+
+{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
+    {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
+{$endc}
+
+{$ifc defined CPUPOWERPC and defined CPUI386}
+	{$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
+{$endc}
+{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
+	{$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
+{$endc}
+
+{$ifc not defined __ppc__ and defined CPUPOWERPC32}
+	{$setc __ppc__ := 1}
+{$elsec}
+	{$setc __ppc__ := 0}
+{$endc}
+{$ifc not defined __ppc64__ and defined CPUPOWERPC64}
+	{$setc __ppc64__ := 1}
+{$elsec}
+	{$setc __ppc64__ := 0}
+{$endc}
+{$ifc not defined __i386__ and defined CPUI386}
+	{$setc __i386__ := 1}
+{$elsec}
+	{$setc __i386__ := 0}
+{$endc}
+{$ifc not defined __x86_64__ and defined CPUX86_64}
+	{$setc __x86_64__ := 1}
+{$elsec}
+	{$setc __x86_64__ := 0}
+{$endc}
+{$ifc not defined __arm__ and defined CPUARM}
+	{$setc __arm__ := 1}
+{$elsec}
+	{$setc __arm__ := 0}
+{$endc}
+
+{$ifc defined cpu64}
+  {$setc __LP64__ := 1}
+{$elsec}
+  {$setc __LP64__ := 0}
+{$endc}
+
+
+{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
+	{$error Conflicting definitions for __ppc__ and __i386__}
+{$endc}
+
+{$ifc defined __ppc__ and __ppc__}
+	{$setc TARGET_CPU_PPC := TRUE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __ppc64__ and __ppc64__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := TRUE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __i386__ and __i386__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := TRUE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+{$ifc defined(iphonesim)}
+ 	{$setc TARGET_OS_MAC := FALSE}
+	{$setc TARGET_OS_IPHONE := TRUE}
+	{$setc TARGET_IPHONE_SIMULATOR := TRUE}
+{$elsec}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$endc}
+{$elifc defined __x86_64__ and __x86_64__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := TRUE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __arm__ and __arm__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := TRUE}
+	{ will require compiler define when/if other Apple devices with ARM cpus ship }
+	{$setc TARGET_OS_MAC := FALSE}
+	{$setc TARGET_OS_IPHONE := TRUE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elsec}
+	{$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ is defined.}
+{$endc}
+
+{$ifc defined __LP64__ and __LP64__ }
+  {$setc TARGET_CPU_64 := TRUE}
+{$elsec}
+  {$setc TARGET_CPU_64 := FALSE}
+{$endc}
+
+{$ifc defined FPC_BIG_ENDIAN}
+	{$setc TARGET_RT_BIG_ENDIAN := TRUE}
+	{$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
+{$elifc defined FPC_LITTLE_ENDIAN}
+	{$setc TARGET_RT_BIG_ENDIAN := FALSE}
+	{$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
+{$elsec}
+	{$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
+{$endc}
+{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
+{$setc CALL_NOT_IN_CARBON := FALSE}
+{$setc OLDROUTINENAMES := FALSE}
+{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
+{$setc OPAQUE_UPP_TYPES := TRUE}
+{$setc OTCARBONAPPLICATION := TRUE}
+{$setc OTKERNEL := FALSE}
+{$setc PM_USE_SESSION_APIS := TRUE}
+{$setc TARGET_API_MAC_CARBON := TRUE}
+{$setc TARGET_API_MAC_OS8 := FALSE}
+{$setc TARGET_API_MAC_OSX := TRUE}
+{$setc TARGET_CARBON := TRUE}
+{$setc TARGET_CPU_68K := FALSE}
+{$setc TARGET_CPU_MIPS := FALSE}
+{$setc TARGET_CPU_SPARC := FALSE}
+{$setc TARGET_OS_UNIX := FALSE}
+{$setc TARGET_OS_WIN32 := FALSE}
+{$setc TARGET_RT_MAC_68881 := FALSE}
+{$setc TARGET_RT_MAC_CFM := FALSE}
+{$setc TARGET_RT_MAC_MACHO := TRUE}
+{$setc TYPED_FUNCTION_POINTERS := TRUE}
+{$setc TYPE_BOOL := FALSE}
+{$setc TYPE_EXTENDED := FALSE}
+{$setc TYPE_LONGLONG := TRUE}
+uses MacTypes;
+{$endc} {not MACOSALLINCLUDE}
+
+{$ALIGN POWER}
+
+{$ifc TARGET_OS_MAC}
+
+
+const
+	QUICKLOOK_VERSION = 3270;
+
+{$endc} {TARGET_OS_MAC}
+{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
+
+end.
+{$endc} {not MACOSALLINCLUDE}

packages/univint/src/QLGenerator.pas

@@ -0,0 +1,651 @@
+{
+ *  QLGenerator.h
+ *  Quick Look
+ *
+ *  Copyright 2007 Apple Inc.
+ *  All rights reserved.
+ *
+ }
+{ Pascal Translation: Gorazd Krosl <[email protected]>, November 2009 }
+
+{
+    Modified for use with Free Pascal
+    Version 308
+    Please report any bugs to <[email protected]>
+}
+
+{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
+{$mode macpas}
+{$packenum 1}
+{$macro on}
+{$inline on}
+{$calling mwpascal}
+
+unit QLGenerator;
+interface
+{$setc UNIVERSAL_INTERFACES_VERSION := $0400}
+{$setc GAP_INTERFACES_VERSION := $0308}
+
+{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
+    {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
+{$endc}
+
+{$ifc defined CPUPOWERPC and defined CPUI386}
+	{$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
+{$endc}
+{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
+	{$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
+{$endc}
+
+{$ifc not defined __ppc__ and defined CPUPOWERPC32}
+	{$setc __ppc__ := 1}
+{$elsec}
+	{$setc __ppc__ := 0}
+{$endc}
+{$ifc not defined __ppc64__ and defined CPUPOWERPC64}
+	{$setc __ppc64__ := 1}
+{$elsec}
+	{$setc __ppc64__ := 0}
+{$endc}
+{$ifc not defined __i386__ and defined CPUI386}
+	{$setc __i386__ := 1}
+{$elsec}
+	{$setc __i386__ := 0}
+{$endc}
+{$ifc not defined __x86_64__ and defined CPUX86_64}
+	{$setc __x86_64__ := 1}
+{$elsec}
+	{$setc __x86_64__ := 0}
+{$endc}
+{$ifc not defined __arm__ and defined CPUARM}
+	{$setc __arm__ := 1}
+{$elsec}
+	{$setc __arm__ := 0}
+{$endc}
+
+{$ifc defined cpu64}
+  {$setc __LP64__ := 1}
+{$elsec}
+  {$setc __LP64__ := 0}
+{$endc}
+
+
+{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
+	{$error Conflicting definitions for __ppc__ and __i386__}
+{$endc}
+
+{$ifc defined __ppc__ and __ppc__}
+	{$setc TARGET_CPU_PPC := TRUE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __ppc64__ and __ppc64__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := TRUE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __i386__ and __i386__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := TRUE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+{$ifc defined(iphonesim)}
+ 	{$setc TARGET_OS_MAC := FALSE}
+	{$setc TARGET_OS_IPHONE := TRUE}
+	{$setc TARGET_IPHONE_SIMULATOR := TRUE}
+{$elsec}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$endc}
+{$elifc defined __x86_64__ and __x86_64__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := TRUE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __arm__ and __arm__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := TRUE}
+	{ will require compiler define when/if other Apple devices with ARM cpus ship }
+	{$setc TARGET_OS_MAC := FALSE}
+	{$setc TARGET_OS_IPHONE := TRUE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elsec}
+	{$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ is defined.}
+{$endc}
+
+{$ifc defined __LP64__ and __LP64__ }
+  {$setc TARGET_CPU_64 := TRUE}
+{$elsec}
+  {$setc TARGET_CPU_64 := FALSE}
+{$endc}
+
+{$ifc defined FPC_BIG_ENDIAN}
+	{$setc TARGET_RT_BIG_ENDIAN := TRUE}
+	{$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
+{$elifc defined FPC_LITTLE_ENDIAN}
+	{$setc TARGET_RT_BIG_ENDIAN := FALSE}
+	{$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
+{$elsec}
+	{$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
+{$endc}
+{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
+{$setc CALL_NOT_IN_CARBON := FALSE}
+{$setc OLDROUTINENAMES := FALSE}
+{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
+{$setc OPAQUE_UPP_TYPES := TRUE}
+{$setc OTCARBONAPPLICATION := TRUE}
+{$setc OTKERNEL := FALSE}
+{$setc PM_USE_SESSION_APIS := TRUE}
+{$setc TARGET_API_MAC_CARBON := TRUE}
+{$setc TARGET_API_MAC_OS8 := FALSE}
+{$setc TARGET_API_MAC_OSX := TRUE}
+{$setc TARGET_CARBON := TRUE}
+{$setc TARGET_CPU_68K := FALSE}
+{$setc TARGET_CPU_MIPS := FALSE}
+{$setc TARGET_CPU_SPARC := FALSE}
+{$setc TARGET_OS_UNIX := FALSE}
+{$setc TARGET_OS_WIN32 := FALSE}
+{$setc TARGET_RT_MAC_68881 := FALSE}
+{$setc TARGET_RT_MAC_CFM := FALSE}
+{$setc TARGET_RT_MAC_MACHO := TRUE}
+{$setc TYPED_FUNCTION_POINTERS := TRUE}
+{$setc TYPE_BOOL := FALSE}
+{$setc TYPE_EXTENDED := FALSE}
+{$setc TYPE_LONGLONG := TRUE}
+uses MacTypes,CFBase,CFURL,CFDictionary,CFArray,CFData,CFBundle,CFUUID,CGGeometry,CGImage,CGContext,QLBase;
+{$endc} {not MACOSALLINCLUDE}
+
+
+{$ifc TARGET_OS_MAC}
+
+{$ALIGN POWER}
+
+
+
+{ #pragma mark Quick Look Plug-in Info.plist Keys }
+
+{
+ * QLThumbnailMinimumSize: (ex: <real>17</real>)
+ *      Minimum useful size (in points) of generated thumbnails.
+ *      Generator Thumbnail callback won't be called for sizes less than
+ *      the value for this key. 17 is a good minimum value.
+ *
+ * QLPreviewWidth, QLPreviewHeight: (ex: <real>800</real>)
+ *      Preview size hint. These values are used if the generator takes
+ *      too long to produce the preview.
+ *
+ * QLSupportsConcurrentRequests: (ex: <true/>)
+ *      This tells Quick Look never to call generator callbacks twice at the same time.
+ *
+ * QLNeedsToBeRunInMainThread: (ex: <false/>)
+ *      This tells Quick Look to call generator callbacks in a main thread.
+ *
+ }
+
+{ #pragma mark Common return code for generator's callback }
+
+const
+	kQLReturnMask = $af00;
+	kQLReturnNoError = noErr;
+	kQLReturnHasMore = (kQLReturnMask or 10);
+
+{ #pragma mark Thumbnail generator callback }
+
+{!
+ *      @typedef QLThumbnailRequestRef
+ *      @abstract This is the type of a reference to Thumbnail requests.
+ }
+type
+	QLThumbnailRequestRef = ^__QLThumbnailRequest; { an opaque type }
+	__QLThumbnailRequest = record end;
+
+{!
+ *      @function QLThumbnailRequestGetTypeID
+ *      @abstract Returns the CoreFoundation type ID for QLThumbnailRequests.
+ }
+function QLThumbnailRequestGetTypeID: CFTypeID; external name '_QLThumbnailRequestGetTypeID';
+
+{!
+ *      @function QLThumbnailRequestCopyURL
+ *      @abstract Returns the url of the file for the thumbnail request.
+ *      @param thumbnail The thumbnail request.
+ *      @result The url of the file for the thumbnail request.
+ }
+function QLThumbnailRequestCopyURL( thumbnail: QLThumbnailRequestRef ): CFURLRef; external name '_QLThumbnailRequestCopyURL';
+
+{!
+ *      @function QLThumbnailRequestCopyOptions
+ *      @abstract Returns the desired options for the thumbnail request.
+ *      @param thumbnail The thumbnail request.
+ *      @result The desired options for the thumbnail request.
+ }
+function QLThumbnailRequestCopyOptions( thumbnail: QLThumbnailRequestRef ): CFDictionaryRef; external name '_QLThumbnailRequestCopyOptions';
+
+{!
+ *      @function QLThumbnailRequestCopyContentUTI
+ *      @abstract Returns the UTI for the thumbnail request.
+ *      @param thumbnail The thumbnail request.
+ *      @result The UTI of the content being thumbnailed, NULL if not available.
+ }
+function QLThumbnailRequestCopyContentUTI( thumbnail: QLThumbnailRequestRef ): CFStringRef; external name '_QLThumbnailRequestCopyContentUTI';
+
+{!
+ *      @function QLThumbnailRequestGetMaximumSize
+ *      @abstract Returns the maximum desired size (in points) for the thumbnail request.
+ *      @param thumbnail The thumbnail request.
+ *      @result The maximum desired size (in points) for the thumbnail request.
+ }
+function QLThumbnailRequestGetMaximumSize( thumbnail: QLThumbnailRequestRef ): CGSize; external name '_QLThumbnailRequestGetMaximumSize';
+
+{!
+ *      @function QLThumbnailRequestGetGeneratorBundle
+ *      @abstract Get the thumbnail request generator bundle.
+ *      @param thumbnail The thumbnail request.
+ }
+function QLThumbnailRequestGetGeneratorBundle( thumbnail: QLThumbnailRequestRef ): CFBundleRef; external name '_QLThumbnailRequestGetGeneratorBundle';
+
+{!
+ *      @function QLThumbnailRequestSetDocumentObject
+ *      @abstract Store some object in thumbnail request.
+ *      @param thumbnail The thumbnail request.
+ *      @param object The object representing the document
+ *      @param callbacks Callbacks to retain/release/etc. the object.
+ *      @discussion You can only call this function once per request.
+ }
+procedure QLThumbnailRequestSetDocumentObject( thumbnail: QLThumbnailRequestRef; objct: {const} UnivPtr; const (*var*) callbacks: CFArrayCallBacks ); external name '_QLThumbnailRequestSetDocumentObject';
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @function QLThumbnailRequestGetDocumentObject
+ *      @abstract Get the object previously stored with QLThumbnailRequestSetDocumentObject.
+ *      @param thumbnail The thumbnail request.
+ *      @result The object representing the document
+ }
+function QLThumbnailRequestGetDocumentObject( thumbnail: QLThumbnailRequestRef ): UnivPtr; external name '_QLThumbnailRequestGetDocumentObject';
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @function QLThumbnailRequestSetImage
+ *      @abstract Sets the thumbnail request response to image.
+ *      @param thumbnail The thumbnail request.
+ *      @param image The thumbnail image response.
+ *      @param properties See possible properties below.
+ }
+procedure QLThumbnailRequestSetImage( thumbnail: QLThumbnailRequestRef; image: CGImageRef; properties: CFDictionaryRef ); external name '_QLThumbnailRequestSetImage';
+
+{!
+ *      @function QLThumbnailRequestSetImageWithData
+ *      @abstract Sets the thumbnail request response to image data.
+ *      @param thumbnail The thumbnail request.
+ *      @param data The thumbnail image response as data. The image format should be supported by ImageIO
+ *      @param properties See possible properties below. Additional useful properties: kCGImageSourceTypeIdentifierHint (see ImageIO documentation).
+ }
+procedure QLThumbnailRequestSetImageWithData( thumbnail: QLThumbnailRequestRef; data: CFDataRef; properties: CFDictionaryRef ); external name '_QLThumbnailRequestSetImageWithData';
+
+{!
+ *      @function QLThumbnailRequestCreateContext
+ *      @abstract Creates a graphic context to draw the thumbnail response in.
+ *      @param thumbnail The thumbnail request.
+ *      @param size Size in points of the context for the thumbnail response.
+ *      @param isBitmap True if thumbnail contents is based on bitmap. size will then be interpreted as pixels, not points.
+ *      @param properties See possible properties below.
+ *      @result A graphic context to draw to.
+ *      @discussion Once the thumbnail is fully drawn, you should call QLThumbnailRequestFlushContext().
+ }
+function QLThumbnailRequestCreateContext( thumbnail: QLThumbnailRequestRef; size: CGSize; isBitmap: Boolean; properties: CFDictionaryRef ): CGContextRef; external name '_QLThumbnailRequestCreateContext';
+
+{!
+ *      @function QLThumbnailRequestFlushContext
+ *      @abstract Flushes the graphic context and creates the thumbnail image response.
+ *      @param thumbnail The thumbnail request.
+ *      @param context The graphic context created by QLThumbnailRequestCreateContext().
+ }
+procedure QLThumbnailRequestFlushContext( thumbnail: QLThumbnailRequestRef; context: CGContextRef ); external name '_QLThumbnailRequestFlushContext';
+
+{!
+ *      @function QLThumbnailRequestSetImageAtURL
+ *      @abstract Sets the thumbnail request response to the image contained at url.
+ *      @param thumbnail The thumbnail request.
+ *      @param url The url to the thumbnail image response.
+ *      @param properties Currently unused.
+ }
+procedure QLThumbnailRequestSetImageAtURL( thumbnail: QLThumbnailRequestRef; url: CFURLRef; properties: CFDictionaryRef ); external name '_QLThumbnailRequestSetImageAtURL';
+
+{!
+ *      @function QLThumbnailRequestSetThumbnailWithDataRepresentation
+ *      @abstract Sets the thumbnail request response to the image produced by the equivalent preview representation.
+ *      @param thumbnail The thumbnail request.
+ *      @param data The content data.
+ *      @param contentTypeUTI The contentTypeUTI for the preview representation.
+ *      @param previewProperties Additional properties for the preview response.
+ *      @param properties Currently unused.
+ *      @discussion Currently supported UTIs are: none. This call only works if your gemeratpr is set to be run in the main thread
+ }
+procedure QLThumbnailRequestSetThumbnailWithDataRepresentation( thumbnail: QLThumbnailRequestRef; data: CFDataRef; contentTypeUTI: CFStringRef; previewProperties: CFDictionaryRef; properties: CFDictionaryRef ); external name '_QLThumbnailRequestSetThumbnailWithDataRepresentation';
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @function QLThumbnailRequestSetThumbnailWithURLRepresentation
+ *      @abstract Sets the thumbnail request response to the image produced by the equivalent preview representation.
+ *      @param thumbnail The thumbnail request.
+ *      @param url The url to the preview response.
+ *      @param contentTypeUTI The contentTypeUTI for the preview representation.
+ *      @param properties Additional properties for the preview response.
+ *      @discussion Currently supported UTIs are: none. This call only works if your gemeratpr is set to be run in the main thread
+ }
+procedure QLThumbnailRequestSetThumbnailWithURLRepresentation( thumbnail: QLThumbnailRequestRef; url: CFURLRef; contentTypeUTI: CFStringRef; previewProperties: CFDictionaryRef; properties: CFDictionaryRef ); external name '_QLThumbnailRequestSetThumbnailWithURLRepresentation';
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @function QLThumbnailRequestIsCancelled
+ *      @abstract Returns wether the thumbnail request was cancelled or not.
+ *      @param thumbnail The thumbnail request.
+ *      @result true if the request was cancelled.
+ }
+function QLThumbnailRequestIsCancelled( thumbnail: QLThumbnailRequestRef ): Boolean; external name '_QLThumbnailRequestIsCancelled';
+
+{!
+ *      @constant kQLThumbnailPropertyExtensionKey
+ *      @abstract Value should be a CFString. The extension is used as a badge when producing an icon.
+ }
+var kQLThumbnailPropertyExtensionKey: CFStringRef; external name '_kQLThumbnailPropertyExtensionKey'; (* attribute const *)
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @constant kQLThumbnailPropertyExtensionKey
+ *      @abstract Value should be a CGImage. The badge is used when producing an icon.
+ }
+var kQLThumbnailPropertyBadgeImageKey: CFStringRef; external name '_kQLThumbnailPropertyBadgeImageKey'; (* attribute const *)
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @constant kQLThumbnailPropertyExtensionKey
+ *      @abstract Extends the security scope where Quick Look will accept to look at a file. Value is a path as CFString.
+ *      @discussion Only useful when using QLThumbnailRequestSetImageAtURL() or QLThumbnailRequestSetThumbnailWithURLRepresentation().
+ *                  By default, Quick Look will only accept files within the current document bundle.
+ }
+var kQLThumbnailPropertyBaseBundlePathKey: CFStringRef; external name '_kQLThumbnailPropertyBaseBundlePathKey'; (* attribute const *)
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{ #pragma mark Preview generator callback }
+
+{!
+ *      @typedef QLPreviewRequestRef
+ *      This is the type of a reference to Preview requests.
+ }
+type
+	QLPreviewRequestRef = ^__QLPreviewRequest; { an opaque type }
+	__QLPreviewRequest = record end;
+
+{!
+ *      @function QLPreviewRequestGetTypeID
+ *      @abstract Returns the CoreFoundation type ID for QLPreviewRequests.
+ }
+function QLPreviewRequestGetTypeID: CFTypeID; external name '_QLPreviewRequestGetTypeID';
+
+{!
+ *      @constant kQLPreviewPropertyDisplayNameKey
+ *      @abstract Customizes Displayed name in the preview panel. This replaces the document's display name. Value is a CFString.
+ }
+var kQLPreviewPropertyDisplayNameKey: CFStringRef; external name '_kQLPreviewPropertyDisplayNameKey'; (* attribute const *) // useful to customize the title of the QuickLook panel
+
+{!
+ *      @constant kQLPreviewPropertyWidthKey
+ *      @abstract Gives the width (in points) of the preview. Value is a CFNumber.
+ }
+var kQLPreviewPropertyWidthKey: CFStringRef; external name '_kQLPreviewPropertyWidthKey'; (* attribute const *)
+
+{!
+ *      @constant kQLPreviewPropertyHeightKey
+ *      @abstract Gives the height (in points) of the preview. Value is a CFNumber.
+ }
+var kQLPreviewPropertyHeightKey: CFStringRef; external name '_kQLPreviewPropertyHeightKey'; (* attribute const *)
+
+{!
+ *      @constant kQLPreviewPropertyBaseBundlePathKey
+ *      @abstract Extends the security scope where Quick Look will accept to look at a file. Value is a path as CFString.
+ *      @discussion Only useful when using QLPreviewRequestSetURLRepresentation().
+ *                  By default, Quick Look will only accept files within the current document bundle.
+ }
+var kQLPreviewPropertyBaseBundlePathKey: CFStringRef; external name '_kQLPreviewPropertyBaseBundlePathKey'; (* attribute const *)
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @constant kQLPreviewPropertyStringEncodingKey
+ *      @abstract Gives the CFStringEncoding of the preview data if the preview type is plain text. Value is a CFNumber.
+ }
+var kQLPreviewPropertyStringEncodingKey: CFStringRef; external name '_kQLPreviewPropertyStringEncodingKey'; (* attribute const *)
+
+const
+    kQLPreviewPDFStandardStyle						= 0;
+    kQLPreviewPDFPagesWithThumbnailsOnRightStyle	= 3;
+    kQLPreviewPDFPagesWithThumbnailsOnLeftStyle		= 4;
+type
+	QLPreviewPDFStyle = UNSIGNEDLONG;
+
+{!
+ *      @constant kQLPreviewPropertyPDFStyleKey
+ *      @abstract Specify the preferred way to display PDF content. Value is a CFNumber using QLPreviewPDFStyle values.
+ }
+var kQLPreviewPropertyPDFStyleKey: CFStringRef; external name '_kQLPreviewPropertyPDFStyleKey'; (* attribute const *)
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @constant kQLPreviewOptionCursorKey
+ *      @abstract Value is the same CFNumber passed by potential previous calls to generator's preview callback for the same document with kQLPreviewPropertyCursorKey.
+ *      @discussion Use this value to provide more of the preview content.
+ }
+var kQLPreviewOptionCursorKey: CFStringRef; external name '_kQLPreviewOptionCursorKey'; (* attribute const *)
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @constant kQLPreviewPropertyCursorKey
+ *      @abstract Value should be a CFNumber. This value will be used to get more of the document's preview if necessary
+ *                (and if the preview genererator returns kQLReturnHasMore)
+ }
+var kQLPreviewPropertyCursorKey: CFStringRef; external name '_kQLPreviewPropertyCursorKey'; (* attribute const *)
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @function QLPreviewRequestCopyURL
+ *      @abstract Returns the url of the file for the preview request.
+ *      @param preview The preview request.
+ *      @result The url of the file for the preview request.
+ }
+function QLPreviewRequestCopyURL( preview: QLPreviewRequestRef ): CFURLRef; external name '_QLPreviewRequestCopyURL';
+
+{!
+ *      @function QLPreviewRequestCopyOptions
+ *      @abstract Returns the desired options for the preview request.
+ *      @param preview The preview request.
+ *      @result The desired options for the preview request.
+ }
+function QLPreviewRequestCopyOptions( preview: QLPreviewRequestRef ): CFDictionaryRef; external name '_QLPreviewRequestCopyOptions';
+
+{!
+ *      @function QLPreviewRequestCopyContentUTI
+ *      @abstract Returns the UTI for the preview request.
+ *      @param preview The preview request.
+ *      @result The UTI of the content being previewed, NULL if not available.
+ }
+function QLPreviewRequestCopyContentUTI( preview: QLPreviewRequestRef ): CFStringRef; external name '_QLPreviewRequestCopyContentUTI';
+
+{!
+ *      @function QLPreviewRequestGetGeneratorBundle
+ *      @abstract Gets the preview request generator bundle.
+ *      @param preview The preview request.
+ }
+function QLPreviewRequestGetGeneratorBundle( preview: QLPreviewRequestRef ): CFBundleRef; external name '_QLPreviewRequestGetGeneratorBundle';
+
+{!
+ *      @function QLPreviewRequestSetDocumentObject
+ *      @abstract Store some object in preview request.
+ *      @param thumbnail The preview request.
+ *      @param object The object representing the document
+ *      @param callbacks Callbacks to retain/release/etc. the object.
+ *      @discussion You can only call this function once per request.
+ }
+procedure QLPreviewRequestSetDocumentObject( preview: QLPreviewRequestRef; objct: {const} UnivPtr; const (*var*) callbacks: CFArrayCallBacks ); external name '_QLPreviewRequestSetDocumentObject';
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @function QLPreviewRequestGetDocumentObject
+ *      @abstract Get the object previously stored with QLPreviewRequestSetDocumentObject.
+ *      @param preview The preview request.
+ *      @result The object representing the document
+ }
+function QLPreviewRequestGetDocumentObject( preview: QLPreviewRequestRef ): UnivPtr; external name '_QLPreviewRequestGetDocumentObject';
+(* AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER *)
+
+{!
+ *      @function QLPreviewRequestIsCancelled
+ *      @abstract Returns wether the preview request was cancelled or not.
+ *      @param preview The preview request.
+ *      @result true if the request was cancelled.
+ }
+function QLPreviewRequestIsCancelled( preview: QLPreviewRequestRef ): Boolean; external name '_QLPreviewRequestIsCancelled';
+
+{ #pragma mark Set preview to some native type preview data }
+
+{!
+ * @function QLPreviewRequestSetDataRepresentation
+ * @abstract Sets the preview response with the provided data.
+ * @param preview The preview request.
+ * @param data The content data.
+ * @param contentTypeUTI The contentTypeUTI for the preview representation.
+ * @param properties Additional properties for the preview response.
+ * @discussion Currently supported UTIs are: kUTTypeImage, kUTTypePDF, kUTTypeHTML,
+ *             kUTTypeXML, kUTTypePlainText, kUTTypeRTF, kUTTypeMovie, kUTTypeAudio
+ }
+procedure QLPreviewRequestSetDataRepresentation( preview: QLPreviewRequestRef; data: CFDataRef; contentTypeUTI: CFStringRef; properties: CFDictionaryRef ); external name '_QLPreviewRequestSetDataRepresentation';
+
+{!
+ *      @function QLPreviewRequestSetURLRepresentation
+ *      @abstract Sets the preview request response with contents at url.
+ *      @param preview The preview request.
+ *      @param url The url to the preview response.
+ *      @param contentTypeUTI The contentTypeUTI for the preview representation.
+ *      @param properties Additional properties for the preview response.
+ *      @discussion Currently supported UTIs are: kUTTypeImage, kUTTypePDF, kUTTypeHTML, kUTTypeXML, kUTTypePlainText, kUTTypeRTF, kUTTypeRTFD, kUTTypeMovie, kUTTypeAudio
+ }
+procedure QLPreviewRequestSetURLRepresentation( preview: QLPreviewRequestRef; url: CFURLRef; contentTypeUTI: CFStringRef; properties: CFDictionaryRef ); external name '_QLPreviewRequestSetURLRepresentation';
+
+{ #pragma mark Draw preview in a context }
+
+{!
+ *      @function QLPreviewRequestCreateContext
+ *      @abstract Creates a context to draw the preview in. Context should be flushed with QLPreviewRequestFlushContext()
+ *      @param preview The preview request.
+ *      @param size The size of the context.
+ *      @param isBitmap true if preview is bitmap-based.
+ *      @param properties Additional properties for the preview response.
+ }
+function QLPreviewRequestCreateContext( preview: QLPreviewRequestRef; size: CGSize; isBitmap: Boolean; properties: CFDictionaryRef ): CGContextRef; external name '_QLPreviewRequestCreateContext';
+
+{!
+ *      @function QLPreviewRequestCreatePDFContext
+ *      @abstract Creates a PDF context to draw the preview in, likely to be multi-pages. Context should be flushed with QLPreviewRequestFlushContext()
+ *      @param preview The preview request.
+ *      @param mediaBox The media box of the context. see CGPDFContextCreate().
+ *      @param auxiliaryInfo The PDF auxiliary info. see CGPDFContextCreate().
+ *      @param properties Additional properties for the preview response.
+ }
+function QLPreviewRequestCreatePDFContext( preview: QLPreviewRequestRef; const (*var*) mediaBox: CGRect; auxiliaryInfo: CFDictionaryRef; properties: CFDictionaryRef ): CGContextRef; external name '_QLPreviewRequestCreatePDFContext';
+
+
+{!
+ *      @function QLPreviewRequestFlushContext
+ *      @abstract Flush the context and sets the preview response.
+ *      @param preview The preview request.
+ *      @param context context previously created by QLPreviewRequestCreateContext() or QLPreviewRequestCreatePDFContext().
+ }
+
+procedure QLPreviewRequestFlushContext( preview: QLPreviewRequestRef; context: CGContextRef ); external name '_QLPreviewRequestFlushContext';
+
+{ #pragma mark Provide preview as Web content using QLPreviewRequestSetDataRepresentation }
+
+{!
+ *      @constant kQLPreviewPropertyMIMETypeKey
+ *      @abstract Gives the web content or attachment mime type. For the main data, default is text/html. Value is a CFString.
+ }
+var kQLPreviewPropertyMIMETypeKey: CFStringRef; external name '_kQLPreviewPropertyMIMETypeKey'; (* attribute const *)
+
+{!
+ *      @constant kQLPreviewPropertyTextEncodingNameKey
+ *      @abstract Gives the web content or attachment text encoding. Use IANA encodings like UTF-8. Value is a CFString.
+ }
+var kQLPreviewPropertyTextEncodingNameKey: CFStringRef; external name '_kQLPreviewPropertyTextEncodingNameKey'; (* attribute const *)
+
+{!
+ *      @constant kQLPreviewPropertyAttachmentDataKey
+ *      @abstract Gives the attachment data. Value is a CFData.
+ }
+var kQLPreviewPropertyAttachmentDataKey: CFStringRef; external name '_kQLPreviewPropertyAttachmentDataKey'; (* attribute const *)
+
+{!
+ *      @constant kQLPreviewPropertyAttachmentsKey
+ *      @abstract Gives the list of attachments (or sub-resources). Value is a CFDictionary.
+ *      @discussion Keys are the attachment ids (CFStringRef) that can be referenced with "cid:id" URL and
+ *                  Values are dictionaries using kQLPreviewPropertyAttachmentDataKey,
+ *                  kQLPreviewPropertyMIMETypeKey and kQLPreviewPropertyTextEncodingNameKey keys.
+ }
+var kQLPreviewPropertyAttachmentsKey: CFStringRef; external name '_kQLPreviewPropertyAttachmentsKey'; (* attribute const *)
+
+{!
+ *      @constant kQLPreviewContentIDScheme
+ *      @abstract Is the "cid" URL scheme.
+ }
+var kQLPreviewContentIDScheme: CFStringRef; external name '_kQLPreviewContentIDScheme'; (* attribute const *)
+
+
+{
+ * Definition of the Quick Look Generator interface.
+ *
+ }
+
+{ 5E2D9680-5022-40FA-B806-43349622E5B9 }
+function kQLGeneratorTypeID : CFUUIDRef; inline;
+{ 865AF5E0-6D30-4345-951B-D37105754F2D }
+function kQLGeneratorCallbacksInterfaceID: CFUUIDRef; inline; 
+
+
+{$endic} {TARGET_OS_MAC}
+
+{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
+implementation
+
+{$ifc TARGET_OS_MAC}
+
+
+function kQLGeneratorTypeID : CFUUIDRef; inline;
+begin
+	kQLGeneratorTypeID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault, $5E, $2D, $96, $80, $50, $22, $40, $FA, $B8, $06, $43, $34, $96, $22, $E5, $B9)
+end;
+
+function kQLGeneratorCallbacksInterfaceID: CFUUIDRef; inline; 
+begin
+	kQLGeneratorCallbacksInterfaceID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault, $86, $5A, $F5, $E0, $6D, $30, $43, $45, $95, $1B, $D3, $71, $05, $75, $4F, $2D)
+end;
+
+{$endc} {TARGET_OS_MAC}
+
+end.
+
+{$endc} {not MACOSALLINCLUDE}

packages/univint/src/QLThumbnailImage.pas

@@ -0,0 +1,215 @@
+{
+ *  QLThumbnailImage.h
+ *  Quick Look
+ *
+ *  Copyright 2007 Apple Inc.
+ *  All rights reserved.
+ *
+ }
+{ Pascal Translation: Gorazd Krosl <[email protected]>, November 2009 }
+ 
+{
+    Modified for use with Free Pascal
+    Version 308
+    Please report any bugs to <[email protected]>
+}
+
+{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
+{$mode macpas}
+{$packenum 1}
+{$macro on}
+{$inline on}
+{$calling mwpascal}
+
+unit QLThumbnailImage;
+interface
+{$setc UNIVERSAL_INTERFACES_VERSION := $0400}
+{$setc GAP_INTERFACES_VERSION := $0308}
+
+{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
+    {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
+{$endc}
+
+{$ifc defined CPUPOWERPC and defined CPUI386}
+	{$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
+{$endc}
+{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
+	{$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
+{$endc}
+
+{$ifc not defined __ppc__ and defined CPUPOWERPC32}
+	{$setc __ppc__ := 1}
+{$elsec}
+	{$setc __ppc__ := 0}
+{$endc}
+{$ifc not defined __ppc64__ and defined CPUPOWERPC64}
+	{$setc __ppc64__ := 1}
+{$elsec}
+	{$setc __ppc64__ := 0}
+{$endc}
+{$ifc not defined __i386__ and defined CPUI386}
+	{$setc __i386__ := 1}
+{$elsec}
+	{$setc __i386__ := 0}
+{$endc}
+{$ifc not defined __x86_64__ and defined CPUX86_64}
+	{$setc __x86_64__ := 1}
+{$elsec}
+	{$setc __x86_64__ := 0}
+{$endc}
+{$ifc not defined __arm__ and defined CPUARM}
+	{$setc __arm__ := 1}
+{$elsec}
+	{$setc __arm__ := 0}
+{$endc}
+
+{$ifc defined cpu64}
+  {$setc __LP64__ := 1}
+{$elsec}
+  {$setc __LP64__ := 0}
+{$endc}
+
+
+{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
+	{$error Conflicting definitions for __ppc__ and __i386__}
+{$endc}
+
+{$ifc defined __ppc__ and __ppc__}
+	{$setc TARGET_CPU_PPC := TRUE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __ppc64__ and __ppc64__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := TRUE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __i386__ and __i386__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := TRUE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := FALSE}
+{$ifc defined(iphonesim)}
+ 	{$setc TARGET_OS_MAC := FALSE}
+	{$setc TARGET_OS_IPHONE := TRUE}
+	{$setc TARGET_IPHONE_SIMULATOR := TRUE}
+{$elsec}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$endc}
+{$elifc defined __x86_64__ and __x86_64__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := TRUE}
+	{$setc TARGET_CPU_ARM := FALSE}
+	{$setc TARGET_OS_MAC := TRUE}
+	{$setc TARGET_OS_IPHONE := FALSE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elifc defined __arm__ and __arm__}
+	{$setc TARGET_CPU_PPC := FALSE}
+	{$setc TARGET_CPU_PPC64 := FALSE}
+	{$setc TARGET_CPU_X86 := FALSE}
+	{$setc TARGET_CPU_X86_64 := FALSE}
+	{$setc TARGET_CPU_ARM := TRUE}
+	{ will require compiler define when/if other Apple devices with ARM cpus ship }
+	{$setc TARGET_OS_MAC := FALSE}
+	{$setc TARGET_OS_IPHONE := TRUE}
+	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
+{$elsec}
+	{$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ is defined.}
+{$endc}
+
+{$ifc defined __LP64__ and __LP64__ }
+  {$setc TARGET_CPU_64 := TRUE}
+{$elsec}
+  {$setc TARGET_CPU_64 := FALSE}
+{$endc}
+
+{$ifc defined FPC_BIG_ENDIAN}
+	{$setc TARGET_RT_BIG_ENDIAN := TRUE}
+	{$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
+{$elifc defined FPC_LITTLE_ENDIAN}
+	{$setc TARGET_RT_BIG_ENDIAN := FALSE}
+	{$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
+{$elsec}
+	{$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
+{$endc}
+{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
+{$setc CALL_NOT_IN_CARBON := FALSE}
+{$setc OLDROUTINENAMES := FALSE}
+{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
+{$setc OPAQUE_UPP_TYPES := TRUE}
+{$setc OTCARBONAPPLICATION := TRUE}
+{$setc OTKERNEL := FALSE}
+{$setc PM_USE_SESSION_APIS := TRUE}
+{$setc TARGET_API_MAC_CARBON := TRUE}
+{$setc TARGET_API_MAC_OS8 := FALSE}
+{$setc TARGET_API_MAC_OSX := TRUE}
+{$setc TARGET_CARBON := TRUE}
+{$setc TARGET_CPU_68K := FALSE}
+{$setc TARGET_CPU_MIPS := FALSE}
+{$setc TARGET_CPU_SPARC := FALSE}
+{$setc TARGET_OS_UNIX := FALSE}
+{$setc TARGET_OS_WIN32 := FALSE}
+{$setc TARGET_RT_MAC_68881 := FALSE}
+{$setc TARGET_RT_MAC_CFM := FALSE}
+{$setc TARGET_RT_MAC_MACHO := TRUE}
+{$setc TYPED_FUNCTION_POINTERS := TRUE}
+{$setc TYPE_BOOL := FALSE}
+{$setc TYPE_EXTENDED := FALSE}
+{$setc TYPE_LONGLONG := TRUE}
+uses MacTypes,CFBase,CFURL,CFDictionary,CGGeometry,CGImage,QLBase;
+{$endc} {not MACOSALLINCLUDE}
+
+
+{$ifc TARGET_OS_MAC}
+
+{$ALIGN POWER}
+
+
+
+{!
+ *      @function QLThumbnailImageCreate
+ *      @abstract Creates a thumbnail for the designated file. Returns NULL if Quick Look does not support this file type.
+ *      @param allocator The allocator to use to create the image.
+ *      @param url The URL to the file.
+ *      @param maxThumbnailSize The maximum desired size.
+ *      @param options See options below.
+ *      @result The thumbnail image. NULL if not available.
+ *      @discussion QLThumbnailImageCreate() does not replace IconServices.
+ *                  Also QLThumbnailImageCreate() will block until the thumbnail is generated so you should consider calling it in a thread.
+ }
+function QLThumbnailImageCreate( allocator: CFAllocatorRef; url: CFURLRef; maxThumbnailSize: CGSize; options: CFDictionaryRef ): CGImageRef; external name '_QLThumbnailImageCreate';
+
+{
+ * Options for the thumbnail.
+ }
+
+{!
+ *      @constant kQLThumbnailOptionIconModeKey
+ *      @abstract If kCFBooleanTrue, QL will produce an icon (ie a thumbnail and all the icon decor, like shadows, curled corner, etc.).
+ }
+var kQLThumbnailOptionIconModeKey: CFStringRef; external name '_kQLThumbnailOptionIconModeKey'; (* attribute const *)
+
+{!
+ *      @constant kQLThumbnailOptionScaleFactorKey
+ *      @abstract This is the user scale factor (as a CFNumber). If absent, default value is 1.0
+ }
+var kQLThumbnailOptionScaleFactorKey: CFStringRef; external name '_kQLThumbnailOptionScaleFactorKey'; (* attribute const *)
+
+{$endc} {TARGET_OS_MAC}
+{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
+
+end.
+{$endc} {not MACOSALLINCLUDE}