1 {
2 File: QD/QuickdrawText.h
3
4 Contains: Quickdraw Text Interfaces.
5
6 Version: Quickdraw-262~1
7
8 Copyright: � 1983-2008 by Apple Inc. all rights reserved.
9
10 Bugs?: For bug reports, consult the following page on
11 the World Wide Web:
12
13 http://bugs.freepascal.org
14
15 }
16 { Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, October 2009 }
17 {
18 Modified for use with Free Pascal
19 Version 308
20 Please report any bugs to <gpc@microbizz.nl>
21 }
22
23 {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
24 {$mode macpas}
25 {$modeswitch cblocks}
26 {$packenum 1}
27 {$macro on}
28 {$inline on}
29 {$calling mwpascal}
30
31 unit QuickdrawText;
32 interface
33 {$setc UNIVERSAL_INTERFACES_VERSION := $0400}
34 {$setc GAP_INTERFACES_VERSION := $0308}
35
36 {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
37 {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
38 {$endc}
39
40 {$ifc defined CPUPOWERPC and defined CPUI386}
41 {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
42 {$endc}
43 {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
44 {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
45 {$endc}
46
47 {$ifc not defined __ppc__ and defined CPUPOWERPC32}
48 {$setc __ppc__ := 1}
49 {$elsec}
50 {$setc __ppc__ := 0}
51 {$endc}
52 {$ifc not defined __ppc64__ and defined CPUPOWERPC64}
53 {$setc __ppc64__ := 1}
54 {$elsec}
55 {$setc __ppc64__ := 0}
56 {$endc}
57 {$ifc not defined __i386__ and defined CPUI386}
58 {$setc __i386__ := 1}
59 {$elsec}
60 {$setc __i386__ := 0}
61 {$endc}
62 {$ifc not defined __x86_64__ and defined CPUX86_64}
63 {$setc __x86_64__ := 1}
64 {$elsec}
65 {$setc __x86_64__ := 0}
66 {$endc}
67 {$ifc not defined __arm__ and defined CPUARM}
68 {$setc __arm__ := 1}
69 {$elsec}
70 {$setc __arm__ := 0}
71 {$endc}
72 {$ifc not defined __arm64__ and defined CPUAARCH64}
73 {$setc __arm64__ := 1}
74 {$elsec}
75 {$setc __arm64__ := 0}
76 {$endc}
77
78 {$ifc defined cpu64}
79 {$setc __LP64__ := 1}
80 {$elsec}
81 {$setc __LP64__ := 0}
82 {$endc}
83
84
85 {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
86 {$error Conflicting definitions for __ppc__ and __i386__}
87 {$endc}
88
89 {$ifc defined __ppc__ and __ppc__}
90 {$setc TARGET_CPU_PPC := TRUE}
91 {$setc TARGET_CPU_PPC64 := FALSE}
92 {$setc TARGET_CPU_X86 := FALSE}
93 {$setc TARGET_CPU_X86_64 := FALSE}
94 {$setc TARGET_CPU_ARM := FALSE}
95 {$setc TARGET_CPU_ARM64 := FALSE}
96 {$setc TARGET_OS_MAC := TRUE}
97 {$setc TARGET_OS_IPHONE := FALSE}
98 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
99 {$setc TARGET_OS_EMBEDDED := FALSE}
100 {$elifc defined __ppc64__ and __ppc64__}
101 {$setc TARGET_CPU_PPC := FALSE}
102 {$setc TARGET_CPU_PPC64 := TRUE}
103 {$setc TARGET_CPU_X86 := FALSE}
104 {$setc TARGET_CPU_X86_64 := FALSE}
105 {$setc TARGET_CPU_ARM := FALSE}
106 {$setc TARGET_CPU_ARM64 := FALSE}
107 {$setc TARGET_OS_MAC := TRUE}
108 {$setc TARGET_OS_IPHONE := FALSE}
109 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
110 {$setc TARGET_OS_EMBEDDED := FALSE}
111 {$elifc defined __i386__ and __i386__}
112 {$setc TARGET_CPU_PPC := FALSE}
113 {$setc TARGET_CPU_PPC64 := FALSE}
114 {$setc TARGET_CPU_X86 := TRUE}
115 {$setc TARGET_CPU_X86_64 := FALSE}
116 {$setc TARGET_CPU_ARM := FALSE}
117 {$setc TARGET_CPU_ARM64 := FALSE}
118 {$ifc defined iphonesim}
119 {$setc TARGET_OS_MAC := FALSE}
120 {$setc TARGET_OS_IPHONE := TRUE}
121 {$setc TARGET_IPHONE_SIMULATOR := TRUE}
122 {$elsec}
123 {$setc TARGET_OS_MAC := TRUE}
124 {$setc TARGET_OS_IPHONE := FALSE}
125 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
126 {$endc}
127 {$setc TARGET_OS_EMBEDDED := FALSE}
128 {$elifc defined __x86_64__ and __x86_64__}
129 {$setc TARGET_CPU_PPC := FALSE}
130 {$setc TARGET_CPU_PPC64 := FALSE}
131 {$setc TARGET_CPU_X86 := FALSE}
132 {$setc TARGET_CPU_X86_64 := TRUE}
133 {$setc TARGET_CPU_ARM := FALSE}
134 {$setc TARGET_CPU_ARM64 := FALSE}
135 {$ifc defined iphonesim}
136 {$setc TARGET_OS_MAC := FALSE}
137 {$setc TARGET_OS_IPHONE := TRUE}
138 {$setc TARGET_IPHONE_SIMULATOR := TRUE}
139 {$elsec}
140 {$setc TARGET_OS_MAC := TRUE}
141 {$setc TARGET_OS_IPHONE := FALSE}
142 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
143 {$endc}
144 {$setc TARGET_OS_EMBEDDED := FALSE}
145 {$elifc defined __arm__ and __arm__}
146 {$setc TARGET_CPU_PPC := FALSE}
147 {$setc TARGET_CPU_PPC64 := FALSE}
148 {$setc TARGET_CPU_X86 := FALSE}
149 {$setc TARGET_CPU_X86_64 := FALSE}
150 {$setc TARGET_CPU_ARM := TRUE}
151 {$setc TARGET_CPU_ARM64 := FALSE}
152 {$setc TARGET_OS_MAC := FALSE}
153 {$setc TARGET_OS_IPHONE := TRUE}
154 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
155 {$setc TARGET_OS_EMBEDDED := TRUE}
156 {$elifc defined __arm64__ and __arm64__}
157 {$setc TARGET_CPU_PPC := FALSE}
158 {$setc TARGET_CPU_PPC64 := FALSE}
159 {$setc TARGET_CPU_X86 := FALSE}
160 {$setc TARGET_CPU_X86_64 := FALSE}
161 {$setc TARGET_CPU_ARM := FALSE}
162 {$setc TARGET_CPU_ARM64 := TRUE}
163 {$ifc defined ios}
164 {$setc TARGET_OS_MAC := FALSE}
165 {$setc TARGET_OS_IPHONE := TRUE}
166 {$setc TARGET_OS_EMBEDDED := TRUE}
167 {$elsec}
168 {$setc TARGET_OS_MAC := TRUE}
169 {$setc TARGET_OS_IPHONE := FALSE}
170 {$setc TARGET_OS_EMBEDDED := FALSE}
171 {$endc}
172 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
173 {$elsec}
174 {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.}
175 {$endc}
176
177 {$ifc defined __LP64__ and __LP64__ }
178 {$setc TARGET_CPU_64 := TRUE}
179 {$elsec}
180 {$setc TARGET_CPU_64 := FALSE}
181 {$endc}
182
183 {$ifc defined FPC_BIG_ENDIAN}
184 {$setc TARGET_RT_BIG_ENDIAN := TRUE}
185 {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
186 {$elifc defined FPC_LITTLE_ENDIAN}
187 {$setc TARGET_RT_BIG_ENDIAN := FALSE}
188 {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
189 {$elsec}
190 {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
191 {$endc}
192 {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
193 {$setc CALL_NOT_IN_CARBON := FALSE}
194 {$setc OLDROUTINENAMES := FALSE}
195 {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
196 {$setc OPAQUE_UPP_TYPES := TRUE}
197 {$setc OTCARBONAPPLICATION := TRUE}
198 {$setc OTKERNEL := FALSE}
199 {$setc PM_USE_SESSION_APIS := TRUE}
200 {$setc TARGET_API_MAC_CARBON := TRUE}
201 {$setc TARGET_API_MAC_OS8 := FALSE}
202 {$setc TARGET_API_MAC_OSX := TRUE}
203 {$setc TARGET_CARBON := TRUE}
204 {$setc TARGET_CPU_68K := FALSE}
205 {$setc TARGET_CPU_MIPS := FALSE}
206 {$setc TARGET_CPU_SPARC := FALSE}
207 {$setc TARGET_OS_UNIX := FALSE}
208 {$setc TARGET_OS_WIN32 := FALSE}
209 {$setc TARGET_RT_MAC_68881 := FALSE}
210 {$setc TARGET_RT_MAC_CFM := FALSE}
211 {$setc TARGET_RT_MAC_MACHO := TRUE}
212 {$setc TYPED_FUNCTION_POINTERS := TRUE}
213 {$setc TYPE_BOOL := FALSE}
214 {$setc TYPE_EXTENDED := FALSE}
215 {$setc TYPE_LONGLONG := TRUE}
216 uses MacTypes,MixedMode,IntlResources;
217 {$endc} {not MACOSALLINCLUDE}
218
219
220 {$ifc TARGET_OS_MAC}
221
222 {$ALIGN MAC68K}
223
224 {
225 * The remaining functions in this file have all been deprecated on Mac OS X 10.4. There are other
226 * solutions that are recommended that provide better compatibility with the rest of the operating
227 * system.
228 *
229 * Instead of using the QuickDraw functions, you should consider the following:
230 *
231 * 1. For drawing and measuring text, you can use the Appearance Manager API in HITheme.h or the
232 * ATSUI API in ATSUnicode.h to render text directly through a Quartz graphics context.
233 *
234 * 2. For accessing information on fonts tracked by the operating system, please refer to the
235 * functions described in ATSFont.h.
236 *
237 * 3. For accessing and modifying information on fonts in a Quartz graphics context, please refer
238 * to the functions described in CoreGraphics.h.
239 }
240 const
241 { CharToPixel directions }
242 leftCaret = 0; {Place caret for left block}
243 rightCaret = -1; {Place caret for right block}
244 kHilite = 1; {Direction is SysDirection}
245
246 const
247 smLeftCaret = 0; {Place caret for left block - obsolete }
248 smRightCaret = -1; {Place caret for right block - obsolete }
249 smHilite = 1; {Direction is TESysJust - obsolete }
250
251 { Constants for styleRunPosition argument in PortionLine, DrawJustified, MeasureJustified, CharToPixel, and PixelToChar. }
252 const
253 onlyStyleRun = 0; { This is the only style run on the line }
254 leftStyleRun = 1; { This is leftmost of multiple style runs on the line }
255 rightStyleRun = 2; { This is rightmost of multiple style runs on the line }
256 middleStyleRun = 3; { There are multiple style runs on the line and this is neither the leftmost nor the rightmost. }
257 smOnlyStyleRun = 0; { obsolete }
258 smLeftStyleRun = 1; { obsolete }
259 smRightStyleRun = 2; { obsolete }
260 smMiddleStyleRun = 3; { obsolete }
261
262 { Type for styleRunPosition parameter in PixelToChar etc. }
263 type
264 JustStyleCode = SInt16;
265 { Type for truncWhere parameter in TruncString, TruncText }
266 type
267 TruncCode = SInt16;
268 { Constants for truncWhere argument in TruncString and TruncText }
269 const
270 truncEnd = 0; { Truncate at end }
271 truncMiddle = $4000; { Truncate in middle }
272 smTruncEnd = 0; { Truncate at end - obsolete }
273 smTruncMiddle = $4000; { Truncate in middle - obsolete }
274
275 { Constants for TruncString and TruncText results }
276 const
277 notTruncated = 0; { No truncation was necessary }
278 truncated = 1; { Truncation performed }
279 truncErr = -1; { General error }
280 smNotTruncated = 0; { No truncation was necessary - obsolete }
281 smTruncated = 1; { Truncation performed - obsolete }
282 smTruncErr = -1; { General error - obsolete }
283
284 type
285 StyledLineBreakCode = SInt8;
286 const
287 smBreakWord = 0;
288 smBreakChar = 1;
289 smBreakOverflow = 2;
290
291 { Constants for txFlags (which used to be the pad field after txFace) in QuickTime 3.0. }
292 const
293 tfAntiAlias = 1 shl 0;
294 tfUnicode = 1 shl 1;
295
296 type
297 FontInfoPtr = ^FontInfo;
298 FontInfo = record
299 ascent: SInt16;
300 descent: SInt16;
301 widMax: SInt16;
302 leading: SInt16;
303 end;
304 type
305 FormatOrder = array [0..0] of SInt16;
306 FormatOrderPtr = ^FormatOrder;
307 { FormatStatus was moved to TextUtils.i.}
308 { OffsetTable moved to IntlResources.i.}
309
310 {$ifc not TARGET_CPU_64}
311 {
312 * StandardGlyphs() *** DEPRECATED ***
313 *
314 * Discussion:
315 * The CGrafPort bottleneck ("newProc2") function, used in Unicode
316 * text drawing.
317 *
318 * Availability:
319 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
320 * CarbonLib: in CarbonLib 1.0 and later
321 * Non-Carbon CFM: in QuickDrawText 8.5 and later
322 }
StandardGlyphsnull323 function StandardGlyphs( dataStream: UnivPtr; size: ByteCount ): OSStatus; external name '_StandardGlyphs';
324 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
325
326
327 {$endc} {not TARGET_CPU_64}
328
329 type
styleRunIndexnull330 StyleRunDirectionProcPtr = function( styleRunIndex: SInt16; dirParam: UnivPtr ): Boolean;
331 StyleRunDirectionUPP = StyleRunDirectionProcPtr;
332 {
333 * NewStyleRunDirectionUPP()
334 *
335 * Availability:
336 * Mac OS X: in version 10.0 and later in ApplicationServices.framework
337 * CarbonLib: in CarbonLib 1.0 and later
338 * Non-Carbon CFM: available as macro/inline
339 }
NewStyleRunDirectionUPPnull340 function NewStyleRunDirectionUPP( userRoutine: StyleRunDirectionProcPtr ): StyleRunDirectionUPP; external name '_NewStyleRunDirectionUPP';
341 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
342
343 {
344 * DisposeStyleRunDirectionUPP()
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 DisposeStyleRunDirectionUPP( userUPP: StyleRunDirectionUPP ); external name '_DisposeStyleRunDirectionUPP';
352 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
353
354 {
355 * InvokeStyleRunDirectionUPP()
356 *
357 * Availability:
358 * Mac OS X: in version 10.0 and later in ApplicationServices.framework
359 * CarbonLib: in CarbonLib 1.0 and later
360 * Non-Carbon CFM: available as macro/inline
361 }
InvokeStyleRunDirectionUPPnull362 function InvokeStyleRunDirectionUPP( styleRunIndex: SInt16; dirParam: UnivPtr; userUPP: StyleRunDirectionUPP ): Boolean; external name '_InvokeStyleRunDirectionUPP';
363 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
364
365 {$ifc not TARGET_CPU_64}
366 {
367 * Pixel2Char()
368 *
369 * Availability:
370 * Mac OS X: not available [32-bit only]
371 * CarbonLib: not available
372 * Non-Carbon CFM: in InterfaceLib 7.1 and later
373 }
374
375
376 {
377 * Char2Pixel()
378 *
379 * Availability:
380 * Mac OS X: not available [32-bit only]
381 * CarbonLib: not available
382 * Non-Carbon CFM: in InterfaceLib 7.1 and later
383 }
384
385
386 {
387 * PixelToChar() *** DEPRECATED ***
388 *
389 * Availability:
390 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
391 * CarbonLib: in CarbonLib 1.0 and later
392 * Non-Carbon CFM: in InterfaceLib 7.1 and later
393 }
PixelToCharnull394 function PixelToChar( textBuf: Ptr; textLength: SIGNEDLONG; slop: Fixed; pixelWidth: Fixed; var leadingEdge: Boolean; var widthRemaining: Fixed; styleRunPosition: JustStyleCode; numer: Point; denom: Point ): SInt16; external name '_PixelToChar';
395 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
396
397
398 {
399 * CharToPixel() *** DEPRECATED ***
400 *
401 * Availability:
402 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
403 * CarbonLib: in CarbonLib 1.0 and later
404 * Non-Carbon CFM: in InterfaceLib 7.1 and later
405 }
CharToPixelnull406 function CharToPixel( textBuf: Ptr; textLength: SIGNEDLONG; slop: Fixed; offset: SIGNEDLONG; direction: SInt16; styleRunPosition: JustStyleCode; numer: Point; denom: Point ): SInt16; external name '_CharToPixel';
407 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
408
409
410 {
411 * DrawJustified() *** DEPRECATED ***
412 *
413 * Availability:
414 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
415 * CarbonLib: in CarbonLib 1.0 and later
416 * Non-Carbon CFM: in InterfaceLib 7.1 and later
417 }
418 procedure DrawJustified( textPtr: Ptr; textLength: SIGNEDLONG; slop: Fixed; styleRunPosition: JustStyleCode; numer: Point; denom: Point ); external name '_DrawJustified';
419 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
420
421
422 {
423 * MeasureJustified() *** DEPRECATED ***
424 *
425 * Availability:
426 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
427 * CarbonLib: in CarbonLib 1.0 and later
428 * Non-Carbon CFM: in InterfaceLib 7.1 and later
429 }
430 procedure MeasureJustified( textPtr: Ptr; textLength: SIGNEDLONG; slop: Fixed; charLocs: Ptr; styleRunPosition: JustStyleCode; numer: Point; denom: Point ); external name '_MeasureJustified';
431 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
432
433
434 {
435 * PortionLine() *** 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 }
PortionLinenull442 function PortionLine( textPtr: Ptr; textLen: SIGNEDLONG; styleRunPosition: JustStyleCode; numer: Point; denom: Point ): Fixed; external name '_PortionLine';
443 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
444
445
446 {
447 * HiliteText() *** DEPRECATED ***
448 *
449 * Availability:
450 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
451 * CarbonLib: in CarbonLib 1.0 and later
452 * Non-Carbon CFM: in InterfaceLib 7.1 and later
453 }
454 procedure HiliteText( textPtr: Ptr; textLength: SInt16; firstOffset: SInt16; secondOffset: SInt16; var offsets: OffsetTable ); external name '_HiliteText';
455 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
456
457
458 {
459 * DrawJust()
460 *
461 * Availability:
462 * Mac OS X: not available [32-bit only]
463 * CarbonLib: not available
464 * Non-Carbon CFM: in InterfaceLib 7.1 and later
465 }
466
467
468 {
469 * MeasureJust()
470 *
471 * Availability:
472 * Mac OS X: not available [32-bit only]
473 * CarbonLib: not available
474 * Non-Carbon CFM: in InterfaceLib 7.1 and later
475 }
476
477
478 {
479 * PortionText()
480 *
481 * Availability:
482 * Mac OS X: not available [32-bit only]
483 * CarbonLib: not available
484 * Non-Carbon CFM: in InterfaceLib 7.1 and later
485 }
486
487
488 {
489 * VisibleLength() *** DEPRECATED ***
490 *
491 * Availability:
492 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
493 * CarbonLib: in CarbonLib 1.0 and later
494 * Non-Carbon CFM: in InterfaceLib 7.1 and later
495 }
VisibleLengthnull496 function VisibleLength( textPtr: Ptr; textLength: SIGNEDLONG ): SIGNEDLONG; external name '_VisibleLength';
497 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
498
499
500 {
501 * GetFormatOrder() *** DEPRECATED ***
502 *
503 * Availability:
504 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
505 * CarbonLib: in CarbonLib 1.0 and later
506 * Non-Carbon CFM: in InterfaceLib 7.1 and later
507 }
508 procedure GetFormatOrder( ordering: FormatOrderPtr; firstFormat: SInt16; lastFormat: SInt16; lineRight: Boolean; rlDirProc: StyleRunDirectionUPP; dirParam: Ptr ); external name '_GetFormatOrder';
509 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
510
511
512 {
513 * TextFont() *** DEPRECATED ***
514 *
515 * Availability:
516 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
517 * CarbonLib: in CarbonLib 1.0 and later
518 * Non-Carbon CFM: in InterfaceLib 7.1 and later
519 }
520 procedure TextFont( font: SInt16 ); external name '_TextFont';
521 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
522
523
524 {
525 * TextFace() *** DEPRECATED ***
526 *
527 * Availability:
528 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
529 * CarbonLib: in CarbonLib 1.0 and later
530 * Non-Carbon CFM: in InterfaceLib 7.1 and later
531 }
532 procedure TextFace( face: StyleParameter ); external name '_TextFace';
533 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
534
535
536 {
537 * TextMode() *** DEPRECATED ***
538 *
539 * Availability:
540 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
541 * CarbonLib: in CarbonLib 1.0 and later
542 * Non-Carbon CFM: in InterfaceLib 7.1 and later
543 }
544 procedure TextMode( mode: SInt16 ); external name '_TextMode';
545 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
546
547
548 {
549 * TextSize() *** DEPRECATED ***
550 *
551 * Availability:
552 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
553 * CarbonLib: in CarbonLib 1.0 and later
554 * Non-Carbon CFM: in InterfaceLib 7.1 and later
555 }
556 procedure TextSize( size: SInt16 ); external name '_TextSize';
557 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
558
559
560 {
561 * SpaceExtra() *** DEPRECATED ***
562 *
563 * Availability:
564 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
565 * CarbonLib: in CarbonLib 1.0 and later
566 * Non-Carbon CFM: in InterfaceLib 7.1 and later
567 }
568 procedure SpaceExtra( extra: Fixed ); external name '_SpaceExtra';
569 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
570
571
572 {
573 * DrawChar() *** DEPRECATED ***
574 *
575 * Availability:
576 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
577 * CarbonLib: in CarbonLib 1.0 and later
578 * Non-Carbon CFM: in InterfaceLib 7.1 and later
579 }
580 procedure DrawChar( ch: CharParameter ); external name '_DrawChar';
581 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
582
583
584 {
585 * DrawString() *** DEPRECATED ***
586 *
587 * Availability:
588 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
589 * CarbonLib: in CarbonLib 1.0 and later
590 * Non-Carbon CFM: in InterfaceLib 7.1 and later
591 }
592 procedure DrawString( const (*var*) s: Str255 ); external name '_DrawString';
593 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
594
595
596 {
597 * [Mac]DrawText() *** DEPRECATED ***
598 *
599 * Availability:
600 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
601 * CarbonLib: in CarbonLib 1.0 and later
602 * Non-Carbon CFM: in InterfaceLib 7.1 and later
603 }
604 procedure MacDrawText( textBuf: {const} UnivPtr; firstByte: SInt16; byteCount: SInt16 ); external name '_DrawText';
605 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
606
607 procedure DrawText( textBuf: {const} UnivPtr; firstByte: SInt16; byteCount: SInt16 ); external name '_DrawText';
608 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
609
610
611 {
612 * CharWidth() *** DEPRECATED ***
613 *
614 * Availability:
615 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
616 * CarbonLib: in CarbonLib 1.0 and later
617 * Non-Carbon CFM: in InterfaceLib 7.1 and later
618 }
CharWidthnull619 function CharWidth( ch: CharParameter ): SInt16; external name '_CharWidth';
620 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
621
622
623 {
624 * StringWidth() *** DEPRECATED ***
625 *
626 * Availability:
627 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
628 * CarbonLib: in CarbonLib 1.0 and later
629 * Non-Carbon CFM: in InterfaceLib 7.1 and later
630 }
StringWidthnull631 function StringWidth( const (*var*) s: Str255 ): SInt16; external name '_StringWidth';
632 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
633
634
635 {
636 * TextWidth() *** DEPRECATED ***
637 *
638 * Availability:
639 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
640 * CarbonLib: in CarbonLib 1.0 and later
641 * Non-Carbon CFM: in InterfaceLib 7.1 and later
642 }
TextWidthnull643 function TextWidth( textBuf: {const} UnivPtr; firstByte: SInt16; byteCount: SInt16 ): SInt16; external name '_TextWidth';
644 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
645
646
647 {
648 * MeasureText() *** DEPRECATED ***
649 *
650 * Availability:
651 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
652 * CarbonLib: in CarbonLib 1.0 and later
653 * Non-Carbon CFM: in InterfaceLib 7.1 and later
654 }
655 procedure MeasureText( count: SInt16; textAddr: {const} UnivPtr; charLocs: UnivPtr ); external name '_MeasureText';
656 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
657
658
659 {
660 * GetFontInfo() *** DEPRECATED ***
661 *
662 * Availability:
663 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
664 * CarbonLib: in CarbonLib 1.0 and later
665 * Non-Carbon CFM: in InterfaceLib 7.1 and later
666 }
667 procedure GetFontInfo( var info: FontInfo ); external name '_GetFontInfo';
668 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
669
670
671 {
672 * CharExtra() *** DEPRECATED ***
673 *
674 * Availability:
675 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
676 * CarbonLib: in CarbonLib 1.0 and later
677 * Non-Carbon CFM: in InterfaceLib 7.1 and later
678 }
679 procedure CharExtra( extra: Fixed ); external name '_CharExtra';
680 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
681
682
683 {
684 * StdText() *** DEPRECATED ***
685 *
686 * Availability:
687 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
688 * CarbonLib: in CarbonLib 1.0 and later
689 * Non-Carbon CFM: in InterfaceLib 7.1 and later
690 }
691 procedure StdText( count: SInt16; textAddr: {const} UnivPtr; numer: Point; denom: Point ); external name '_StdText';
692 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
693
694
695 {
696 * StdTxMeas() *** DEPRECATED ***
697 *
698 * Availability:
699 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
700 * CarbonLib: in CarbonLib 1.0 and later
701 * Non-Carbon CFM: in InterfaceLib 7.1 and later
702 }
StdTxMeasnull703 function StdTxMeas( byteCount: SInt16; textAddr: {const} UnivPtr; var numer: Point; var denom: Point; var info: FontInfo ): SInt16; external name '_StdTxMeas';
704 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
705
706
707 {
708 * StyledLineBreak() *** DEPRECATED ***
709 *
710 * Availability:
711 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
712 * CarbonLib: in CarbonLib 1.0 and later
713 * Non-Carbon CFM: in InterfaceLib 7.1 and later
714 }
StyledLineBreaknull715 function StyledLineBreak( textPtr: Ptr; textLen: SInt32; textStart: SInt32; textEnd: SInt32; flags: SInt32; var textWidth: Fixed; var textOffset: SInt32 ): StyledLineBreakCode; external name '_StyledLineBreak';
716 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
717
718
719 {
720 * TruncString() *** DEPRECATED ***
721 *
722 * Availability:
723 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
724 * CarbonLib: in CarbonLib 1.0 and later
725 * Non-Carbon CFM: in InterfaceLib 7.1 and later
726 }
TruncStringnull727 function TruncString( width: SInt16; var theString: Str255; truncWhere: TruncCode ): SInt16; external name '_TruncString';
728 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
729
730
731 {
732 * TruncText() *** DEPRECATED ***
733 *
734 * Availability:
735 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
736 * CarbonLib: in CarbonLib 1.0 and later
737 * Non-Carbon CFM: in InterfaceLib 7.1 and later
738 }
TruncTextnull739 function TruncText( width: SInt16; textPtr: Ptr; var length: SInt16; truncWhere: TruncCode ): SInt16; external name '_TruncText';
740 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
741
742
743 {$endc} {not TARGET_CPU_64}
744
745 {$ifc not TARGET_CPU_64}
746 {
747 * drawstring()
748 *
749 * Availability:
750 * Mac OS X: not available [32-bit only]
751 * CarbonLib: not available
752 * Non-Carbon CFM: in InterfaceLib 7.1 and later
753 }
754
755
756 {
757 * stringwidth()
758 *
759 * Availability:
760 * Mac OS X: not available [32-bit only]
761 * CarbonLib: not available
762 * Non-Carbon CFM: in InterfaceLib 7.1 and later
763 }
764
765
766 {
767 * stdtext() *** DEPRECATED ***
768 *
769 * Availability:
770 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
771 * CarbonLib: in CarbonLib 1.0 and later
772 * Non-Carbon CFM: in InterfaceLib 7.1 and later
773 }
774 // overloading not available
775 // procedure stdtext( count: SInt16; textAddr: {const} UnivPtr; const (*var*) numer: Point; const (*var*) denom: Point );
776 // AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4;
777
778
779 {$endc} {not TARGET_CPU_64}
780
781 {$ifc not TARGET_CPU_64}
782 {
783 * SwapQDTextFlags() *** DEPRECATED ***
784 *
785 * Discussion:
786 * Use QDSwapTextFlags instead (in Quickdraw.h).
787 *
788 * Availability:
789 * Mac OS X: in version 10.2 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4
790 * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
791 * Non-Carbon CFM: not available
792 }
SwapQDTextFlagsnull793 function SwapQDTextFlags( newFlags: UInt32 ): UInt32; external name '_SwapQDTextFlags';
794 (* AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
795
796
797 {$endc} {not TARGET_CPU_64}
798
799 {$endc} {TARGET_OS_MAC}
800 {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
801
802 end.
803 {$endc} {not MACOSALLINCLUDE}
804