PictUtils.pas 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520
  1. {
  2. File: QD/PictUtils.h
  3. Contains: Picture Utilities Interfaces.
  4. Version: Quickdraw-262~1
  5. Copyright: © 1990-2008 by Apple Computer, Inc., all rights reserved
  6. Bugs?: For bug reports, consult the following page on
  7. the World Wide Web:
  8. http://bugs.freepascal.org
  9. }
  10. { Pascal Translation Updated: Jonas Maebe, <[email protected]>, October 2009 }
  11. {
  12. Modified for use with Free Pascal
  13. Version 308
  14. Please report any bugs to <[email protected]>
  15. }
  16. {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
  17. {$mode macpas}
  18. {$packenum 1}
  19. {$macro on}
  20. {$inline on}
  21. {$calling mwpascal}
  22. unit PictUtils;
  23. interface
  24. {$setc UNIVERSAL_INTERFACES_VERSION := $0400}
  25. {$setc GAP_INTERFACES_VERSION := $0308}
  26. {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
  27. {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
  28. {$endc}
  29. {$ifc defined CPUPOWERPC and defined CPUI386}
  30. {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
  31. {$endc}
  32. {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
  33. {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
  34. {$endc}
  35. {$ifc not defined __ppc__ and defined CPUPOWERPC32}
  36. {$setc __ppc__ := 1}
  37. {$elsec}
  38. {$setc __ppc__ := 0}
  39. {$endc}
  40. {$ifc not defined __ppc64__ and defined CPUPOWERPC64}
  41. {$setc __ppc64__ := 1}
  42. {$elsec}
  43. {$setc __ppc64__ := 0}
  44. {$endc}
  45. {$ifc not defined __i386__ and defined CPUI386}
  46. {$setc __i386__ := 1}
  47. {$elsec}
  48. {$setc __i386__ := 0}
  49. {$endc}
  50. {$ifc not defined __x86_64__ and defined CPUX86_64}
  51. {$setc __x86_64__ := 1}
  52. {$elsec}
  53. {$setc __x86_64__ := 0}
  54. {$endc}
  55. {$ifc not defined __arm__ and defined CPUARM}
  56. {$setc __arm__ := 1}
  57. {$elsec}
  58. {$setc __arm__ := 0}
  59. {$endc}
  60. {$ifc not defined __arm64__ and defined CPUAARCH64}
  61. {$setc __arm64__ := 1}
  62. {$elsec}
  63. {$setc __arm64__ := 0}
  64. {$endc}
  65. {$ifc defined cpu64}
  66. {$setc __LP64__ := 1}
  67. {$elsec}
  68. {$setc __LP64__ := 0}
  69. {$endc}
  70. {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
  71. {$error Conflicting definitions for __ppc__ and __i386__}
  72. {$endc}
  73. {$ifc defined __ppc__ and __ppc__}
  74. {$setc TARGET_CPU_PPC := TRUE}
  75. {$setc TARGET_CPU_PPC64 := FALSE}
  76. {$setc TARGET_CPU_X86 := FALSE}
  77. {$setc TARGET_CPU_X86_64 := FALSE}
  78. {$setc TARGET_CPU_ARM := FALSE}
  79. {$setc TARGET_CPU_ARM64 := FALSE}
  80. {$setc TARGET_OS_MAC := TRUE}
  81. {$setc TARGET_OS_IPHONE := FALSE}
  82. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  83. {$setc TARGET_OS_EMBEDDED := FALSE}
  84. {$elifc defined __ppc64__ and __ppc64__}
  85. {$setc TARGET_CPU_PPC := FALSE}
  86. {$setc TARGET_CPU_PPC64 := TRUE}
  87. {$setc TARGET_CPU_X86 := FALSE}
  88. {$setc TARGET_CPU_X86_64 := FALSE}
  89. {$setc TARGET_CPU_ARM := FALSE}
  90. {$setc TARGET_CPU_ARM64 := FALSE}
  91. {$setc TARGET_OS_MAC := TRUE}
  92. {$setc TARGET_OS_IPHONE := FALSE}
  93. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  94. {$setc TARGET_OS_EMBEDDED := FALSE}
  95. {$elifc defined __i386__ and __i386__}
  96. {$setc TARGET_CPU_PPC := FALSE}
  97. {$setc TARGET_CPU_PPC64 := FALSE}
  98. {$setc TARGET_CPU_X86 := TRUE}
  99. {$setc TARGET_CPU_X86_64 := FALSE}
  100. {$setc TARGET_CPU_ARM := FALSE}
  101. {$setc TARGET_CPU_ARM64 := FALSE}
  102. {$ifc defined(iphonesim)}
  103. {$setc TARGET_OS_MAC := FALSE}
  104. {$setc TARGET_OS_IPHONE := TRUE}
  105. {$setc TARGET_IPHONE_SIMULATOR := TRUE}
  106. {$elsec}
  107. {$setc TARGET_OS_MAC := TRUE}
  108. {$setc TARGET_OS_IPHONE := FALSE}
  109. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  110. {$endc}
  111. {$setc TARGET_OS_EMBEDDED := FALSE}
  112. {$elifc defined __x86_64__ and __x86_64__}
  113. {$setc TARGET_CPU_PPC := FALSE}
  114. {$setc TARGET_CPU_PPC64 := FALSE}
  115. {$setc TARGET_CPU_X86 := FALSE}
  116. {$setc TARGET_CPU_X86_64 := TRUE}
  117. {$setc TARGET_CPU_ARM := FALSE}
  118. {$setc TARGET_CPU_ARM64 := FALSE}
  119. {$ifc defined(iphonesim)}
  120. {$setc TARGET_OS_MAC := FALSE}
  121. {$setc TARGET_OS_IPHONE := TRUE}
  122. {$setc TARGET_IPHONE_SIMULATOR := TRUE}
  123. {$elsec}
  124. {$setc TARGET_OS_MAC := TRUE}
  125. {$setc TARGET_OS_IPHONE := FALSE}
  126. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  127. {$endc}
  128. {$setc TARGET_OS_EMBEDDED := FALSE}
  129. {$elifc defined __arm__ and __arm__}
  130. {$setc TARGET_CPU_PPC := FALSE}
  131. {$setc TARGET_CPU_PPC64 := FALSE}
  132. {$setc TARGET_CPU_X86 := FALSE}
  133. {$setc TARGET_CPU_X86_64 := FALSE}
  134. {$setc TARGET_CPU_ARM := TRUE}
  135. {$setc TARGET_CPU_ARM64 := FALSE}
  136. { will require compiler define when/if other Apple devices with ARM cpus ship }
  137. {$setc TARGET_OS_MAC := FALSE}
  138. {$setc TARGET_OS_IPHONE := TRUE}
  139. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  140. {$setc TARGET_OS_EMBEDDED := TRUE}
  141. {$elifc defined __arm64__ and __arm64__}
  142. {$setc TARGET_CPU_PPC := FALSE}
  143. {$setc TARGET_CPU_PPC64 := FALSE}
  144. {$setc TARGET_CPU_X86 := FALSE}
  145. {$setc TARGET_CPU_X86_64 := FALSE}
  146. {$setc TARGET_CPU_ARM := FALSE}
  147. {$setc TARGET_CPU_ARM64 := TRUE}
  148. { will require compiler define when/if other Apple devices with ARM cpus ship }
  149. {$setc TARGET_OS_MAC := FALSE}
  150. {$setc TARGET_OS_IPHONE := TRUE}
  151. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  152. {$setc TARGET_OS_EMBEDDED := TRUE}
  153. {$elsec}
  154. {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.}
  155. {$endc}
  156. {$ifc defined __LP64__ and __LP64__ }
  157. {$setc TARGET_CPU_64 := TRUE}
  158. {$elsec}
  159. {$setc TARGET_CPU_64 := FALSE}
  160. {$endc}
  161. {$ifc defined FPC_BIG_ENDIAN}
  162. {$setc TARGET_RT_BIG_ENDIAN := TRUE}
  163. {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
  164. {$elifc defined FPC_LITTLE_ENDIAN}
  165. {$setc TARGET_RT_BIG_ENDIAN := FALSE}
  166. {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
  167. {$elsec}
  168. {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
  169. {$endc}
  170. {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
  171. {$setc CALL_NOT_IN_CARBON := FALSE}
  172. {$setc OLDROUTINENAMES := FALSE}
  173. {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
  174. {$setc OPAQUE_UPP_TYPES := TRUE}
  175. {$setc OTCARBONAPPLICATION := TRUE}
  176. {$setc OTKERNEL := FALSE}
  177. {$setc PM_USE_SESSION_APIS := TRUE}
  178. {$setc TARGET_API_MAC_CARBON := TRUE}
  179. {$setc TARGET_API_MAC_OS8 := FALSE}
  180. {$setc TARGET_API_MAC_OSX := TRUE}
  181. {$setc TARGET_CARBON := TRUE}
  182. {$setc TARGET_CPU_68K := FALSE}
  183. {$setc TARGET_CPU_MIPS := FALSE}
  184. {$setc TARGET_CPU_SPARC := FALSE}
  185. {$setc TARGET_OS_UNIX := FALSE}
  186. {$setc TARGET_OS_WIN32 := FALSE}
  187. {$setc TARGET_RT_MAC_68881 := FALSE}
  188. {$setc TARGET_RT_MAC_CFM := FALSE}
  189. {$setc TARGET_RT_MAC_MACHO := TRUE}
  190. {$setc TYPED_FUNCTION_POINTERS := TRUE}
  191. {$setc TYPE_BOOL := FALSE}
  192. {$setc TYPE_EXTENDED := FALSE}
  193. {$setc TYPE_LONGLONG := TRUE}
  194. uses MacTypes,QuickdrawTypes,Palettes;
  195. {$endc} {not MACOSALLINCLUDE}
  196. {$ifc TARGET_OS_MAC}
  197. {$ALIGN MAC68K}
  198. { verbs for the GetPictInfo, GetPixMapInfo, and NewPictInfo calls }
  199. const
  200. returnColorTable = $0001;
  201. returnPalette = $0002;
  202. recordComments = $0004;
  203. recordFontInfo = $0008;
  204. suppressBlackAndWhite = $0010;
  205. const
  206. { color pick methods }
  207. systemMethod = 0; { system color pick method }
  208. popularMethod = 1; { method that chooses the most popular set of colors }
  209. medianMethod = 2; { method that chooses a good average mix of colors }
  210. const
  211. { color bank types }
  212. ColorBankIsCustom = -1;
  213. ColorBankIsExactAnd555 = 0;
  214. ColorBankIs555 = 1;
  215. type
  216. PictInfoID = SIGNEDLONG;
  217. CommentSpec = record
  218. count: SInt16; { number of occurrances of this comment ID }
  219. ID: SInt16; { ID for the comment in the picture }
  220. end;
  221. CommentSpecPtr = ^CommentSpec;
  222. type
  223. CommentSpecHandle = ^CommentSpecPtr;
  224. FontSpec = record
  225. pictFontID: SInt16; { ID of the font in the picture }
  226. sysFontID: SInt16; { ID of the same font in the current system file }
  227. size: array [0..3] of SInt32; { bit array of all the sizes found (1..127) (bit 0 means > 127) }
  228. style: SInt16; { combined style of all occurrances of the font }
  229. nameOffset: SIGNEDLONG; { offset into the fontNamesHdl handle for the fontÕs name }
  230. end;
  231. FontSpecPtr = ^FontSpec;
  232. type
  233. FontSpecHandle = ^FontSpecPtr;
  234. PictInfo = record
  235. version: SInt16; { this is always zero, for now }
  236. uniqueColors: SIGNEDLONG; { the number of actual colors in the picture(s)/pixmap(s) }
  237. thePalette: PaletteHandle; { handle to the palette information }
  238. theColorTable: CTabHandle; { handle to the color table }
  239. hRes: Fixed; { maximum horizontal resolution for all the pixmaps }
  240. vRes: Fixed; { maximum vertical resolution for all the pixmaps }
  241. depth: SInt16; { maximum depth for all the pixmaps (in the picture) }
  242. sourceRect: Rect; { the picture frame rectangle (this contains the entire picture) }
  243. textCount: SIGNEDLONG; { total number of text strings in the picture }
  244. lineCount: SIGNEDLONG; { total number of lines in the picture }
  245. rectCount: SIGNEDLONG; { total number of rectangles in the picture }
  246. rRectCount: SIGNEDLONG; { total number of round rectangles in the picture }
  247. ovalCount: SIGNEDLONG; { total number of ovals in the picture }
  248. arcCount: SIGNEDLONG; { total number of arcs in the picture }
  249. polyCount: SIGNEDLONG; { total number of polygons in the picture }
  250. regionCount: SIGNEDLONG; { total number of regions in the picture }
  251. bitMapCount: SIGNEDLONG; { total number of bitmaps in the picture }
  252. pixMapCount: SIGNEDLONG; { total number of pixmaps in the picture }
  253. commentCount: SIGNEDLONG; { total number of comments in the picture }
  254. uniqueComments: SIGNEDLONG; { the number of unique comments in the picture }
  255. commentHandle: CommentSpecHandle; { handle to all the comment information }
  256. uniqueFonts: SIGNEDLONG; { the number of unique fonts in the picture }
  257. fontHandle: FontSpecHandle; { handle to the FontSpec information }
  258. fontNamesHandle: Handle; { handle to the font names }
  259. reserved1: SIGNEDLONG;
  260. reserved2: SIGNEDLONG;
  261. end;
  262. PictInfoPtr = ^PictInfo;
  263. type
  264. PictInfoHandle = ^PictInfoPtr;
  265. InitPickMethodProcPtr = function( colorsRequested: SInt16; var dataRef: UInt32; var colorBankType: SInt16 ): OSErr;
  266. RecordColorsProcPtr = function( dataRef: UInt32; var colorsArray: RGBColor; colorCount: SInt32; var uniqueColors: SInt32 ): OSErr;
  267. CalcColorTableProcPtr = function( dataRef: UInt32; colorsRequested: SInt16; colorBankPtr: UnivPtr; resultPtr: CSpecArray ): OSErr;
  268. DisposeColorPickMethodProcPtr = function( dataRef: UInt32 ): OSErr;
  269. InitPickMethodUPP = InitPickMethodProcPtr;
  270. RecordColorsUPP = RecordColorsProcPtr;
  271. CalcColorTableUPP = CalcColorTableProcPtr;
  272. DisposeColorPickMethodUPP = DisposeColorPickMethodProcPtr;
  273. {
  274. * NewInitPickMethodUPP()
  275. *
  276. * Availability:
  277. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  278. * CarbonLib: in CarbonLib 1.0 and later
  279. * Non-Carbon CFM: available as macro/inline
  280. }
  281. function NewInitPickMethodUPP( userRoutine: InitPickMethodProcPtr ): InitPickMethodUPP; external name '_NewInitPickMethodUPP';
  282. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  283. {
  284. * NewRecordColorsUPP()
  285. *
  286. * Availability:
  287. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  288. * CarbonLib: in CarbonLib 1.0 and later
  289. * Non-Carbon CFM: available as macro/inline
  290. }
  291. function NewRecordColorsUPP( userRoutine: RecordColorsProcPtr ): RecordColorsUPP; external name '_NewRecordColorsUPP';
  292. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  293. {
  294. * NewCalcColorTableUPP()
  295. *
  296. * Availability:
  297. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  298. * CarbonLib: in CarbonLib 1.0 and later
  299. * Non-Carbon CFM: available as macro/inline
  300. }
  301. function NewCalcColorTableUPP( userRoutine: CalcColorTableProcPtr ): CalcColorTableUPP; external name '_NewCalcColorTableUPP';
  302. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  303. {
  304. * NewDisposeColorPickMethodUPP()
  305. *
  306. * Availability:
  307. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  308. * CarbonLib: in CarbonLib 1.0 and later
  309. * Non-Carbon CFM: available as macro/inline
  310. }
  311. function NewDisposeColorPickMethodUPP( userRoutine: DisposeColorPickMethodProcPtr ): DisposeColorPickMethodUPP; external name '_NewDisposeColorPickMethodUPP';
  312. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  313. {
  314. * DisposeInitPickMethodUPP()
  315. *
  316. * Availability:
  317. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  318. * CarbonLib: in CarbonLib 1.0 and later
  319. * Non-Carbon CFM: available as macro/inline
  320. }
  321. procedure DisposeInitPickMethodUPP( userUPP: InitPickMethodUPP ); external name '_DisposeInitPickMethodUPP';
  322. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  323. {
  324. * DisposeRecordColorsUPP()
  325. *
  326. * Availability:
  327. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  328. * CarbonLib: in CarbonLib 1.0 and later
  329. * Non-Carbon CFM: available as macro/inline
  330. }
  331. procedure DisposeRecordColorsUPP( userUPP: RecordColorsUPP ); external name '_DisposeRecordColorsUPP';
  332. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  333. {
  334. * DisposeCalcColorTableUPP()
  335. *
  336. * Availability:
  337. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  338. * CarbonLib: in CarbonLib 1.0 and later
  339. * Non-Carbon CFM: available as macro/inline
  340. }
  341. procedure DisposeCalcColorTableUPP( userUPP: CalcColorTableUPP ); external name '_DisposeCalcColorTableUPP';
  342. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  343. {
  344. * DisposeDisposeColorPickMethodUPP()
  345. *
  346. * Availability:
  347. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  348. * CarbonLib: in CarbonLib 1.0 and later
  349. * Non-Carbon CFM: available as macro/inline
  350. }
  351. procedure DisposeDisposeColorPickMethodUPP( userUPP: DisposeColorPickMethodUPP ); external name '_DisposeDisposeColorPickMethodUPP';
  352. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  353. {
  354. * InvokeInitPickMethodUPP()
  355. *
  356. * Availability:
  357. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  358. * CarbonLib: in CarbonLib 1.0 and later
  359. * Non-Carbon CFM: available as macro/inline
  360. }
  361. function InvokeInitPickMethodUPP( colorsRequested: SInt16; var dataRef: UInt32; var colorBankType: SInt16; userUPP: InitPickMethodUPP ): OSErr; external name '_InvokeInitPickMethodUPP';
  362. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  363. {
  364. * InvokeRecordColorsUPP()
  365. *
  366. * Availability:
  367. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  368. * CarbonLib: in CarbonLib 1.0 and later
  369. * Non-Carbon CFM: available as macro/inline
  370. }
  371. function InvokeRecordColorsUPP( dataRef: UInt32; var colorsArray: RGBColor; colorCount: SInt32; var uniqueColors: SInt32; userUPP: RecordColorsUPP ): OSErr; external name '_InvokeRecordColorsUPP';
  372. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  373. {
  374. * InvokeCalcColorTableUPP()
  375. *
  376. * Availability:
  377. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  378. * CarbonLib: in CarbonLib 1.0 and later
  379. * Non-Carbon CFM: available as macro/inline
  380. }
  381. function InvokeCalcColorTableUPP( dataRef: UInt32; colorsRequested: SInt16; colorBankPtr: UnivPtr; resultPtr: CSpecArray; userUPP: CalcColorTableUPP ): OSErr; external name '_InvokeCalcColorTableUPP';
  382. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  383. {
  384. * InvokeDisposeColorPickMethodUPP()
  385. *
  386. * Availability:
  387. * Mac OS X: in version 10.0 and later in ApplicationServices.framework
  388. * CarbonLib: in CarbonLib 1.0 and later
  389. * Non-Carbon CFM: available as macro/inline
  390. }
  391. function InvokeDisposeColorPickMethodUPP( dataRef: UInt32; userUPP: DisposeColorPickMethodUPP ): OSErr; external name '_InvokeDisposeColorPickMethodUPP';
  392. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  393. {$ifc not TARGET_CPU_64}
  394. {
  395. * GetPictInfo() *** DEPRECATED ***
  396. *
  397. * Availability:
  398. * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
  399. * CarbonLib: in CarbonLib 1.0 and later
  400. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  401. }
  402. function GetPictInfo( thePictHandle: PicHandle; var thePictInfo: PictInfo; verb: SInt16; colorsRequested: SInt16; colorPickMethod: SInt16; version: SInt16 ): OSErr; external name '_GetPictInfo';
  403. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  404. {
  405. * GetPixMapInfo() *** DEPRECATED ***
  406. *
  407. * Availability:
  408. * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
  409. * CarbonLib: in CarbonLib 1.0 and later
  410. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  411. }
  412. function GetPixMapInfo( thePixMapHandle: PixMapHandle; var thePictInfo: PictInfo; verb: SInt16; colorsRequested: SInt16; colorPickMethod: SInt16; version: SInt16 ): OSErr; external name '_GetPixMapInfo';
  413. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  414. {
  415. * NewPictInfo() *** DEPRECATED ***
  416. *
  417. * Availability:
  418. * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
  419. * CarbonLib: in CarbonLib 1.0 and later
  420. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  421. }
  422. function NewPictInfo( var thePictInfoID: PictInfoID; verb: SInt16; colorsRequested: SInt16; colorPickMethod: SInt16; version: SInt16 ): OSErr; external name '_NewPictInfo';
  423. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  424. {
  425. * RecordPictInfo() *** DEPRECATED ***
  426. *
  427. * Availability:
  428. * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
  429. * CarbonLib: in CarbonLib 1.0 and later
  430. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  431. }
  432. function RecordPictInfo( thePictInfoID: PictInfoID; thePictHandle: PicHandle ): OSErr; external name '_RecordPictInfo';
  433. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  434. {
  435. * RecordPixMapInfo() *** DEPRECATED ***
  436. *
  437. * Availability:
  438. * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
  439. * CarbonLib: in CarbonLib 1.0 and later
  440. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  441. }
  442. function RecordPixMapInfo( thePictInfoID: PictInfoID; thePixMapHandle: PixMapHandle ): OSErr; external name '_RecordPixMapInfo';
  443. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  444. {
  445. * RetrievePictInfo() *** DEPRECATED ***
  446. *
  447. * Availability:
  448. * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
  449. * CarbonLib: in CarbonLib 1.0 and later
  450. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  451. }
  452. function RetrievePictInfo( thePictInfoID: PictInfoID; var thePictInfo: PictInfo; colorsRequested: SInt16 ): OSErr; external name '_RetrievePictInfo';
  453. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  454. {
  455. * DisposePictInfo() *** DEPRECATED ***
  456. *
  457. * Availability:
  458. * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
  459. * CarbonLib: in CarbonLib 1.0 and later
  460. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  461. }
  462. function DisposePictInfo( thePictInfoID: PictInfoID ): OSErr; external name '_DisposePictInfo';
  463. (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
  464. {$endc} {not TARGET_CPU_64}
  465. {$endc} {TARGET_OS_MAC}
  466. {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
  467. end.
  468. {$endc} {not MACOSALLINCLUDE}