/packages/univint/src/Quickdraw.pas
Pascal | 6594 lines | 490 code | 820 blank | 5284 comment | 0 complexity | cff5eabb7d20b5b69fcd8add8f6d1144 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
Large files files are truncated, but you can click here to view the full file
1{ 2 File: QD/QuickdrawAPI.h 3 4 Contains: API Prototypes from the former Quickdraw.i 5 6 Version: Quickdraw-262~1 7 8 Copyright: � 2005-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://www.freepascal.org/bugs.html 14 15} 16{ Pascal Translation Updated: Gale R Paeper, <gpaeper@empirenet.com>, 2007 } 17{ Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, October 2009 } 18{ 19 Modified for use with Free Pascal 20 Version 308 21 Please report any bugs to <gpc@microbizz.nl> 22} 23 24{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE} 25{$mode macpas} 26{$packenum 1} 27{$macro on} 28{$inline on} 29{$calling mwpascal} 30 31unit Quickdraw; 32interface 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 73{$ifc defined cpu64} 74 {$setc __LP64__ := 1} 75{$elsec} 76 {$setc __LP64__ := 0} 77{$endc} 78 79 80{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__} 81 {$error Conflicting definitions for __ppc__ and __i386__} 82{$endc} 83 84{$ifc defined __ppc__ and __ppc__} 85 {$setc TARGET_CPU_PPC := TRUE} 86 {$setc TARGET_CPU_PPC64 := FALSE} 87 {$setc TARGET_CPU_X86 := FALSE} 88 {$setc TARGET_CPU_X86_64 := FALSE} 89 {$setc TARGET_CPU_ARM := FALSE} 90 {$setc TARGET_OS_MAC := TRUE} 91 {$setc TARGET_OS_IPHONE := FALSE} 92 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 93 {$setc TARGET_OS_EMBEDDED := FALSE} 94{$elifc defined __ppc64__ and __ppc64__} 95 {$setc TARGET_CPU_PPC := FALSE} 96 {$setc TARGET_CPU_PPC64 := TRUE} 97 {$setc TARGET_CPU_X86 := FALSE} 98 {$setc TARGET_CPU_X86_64 := FALSE} 99 {$setc TARGET_CPU_ARM := FALSE} 100 {$setc TARGET_OS_MAC := TRUE} 101 {$setc TARGET_OS_IPHONE := FALSE} 102 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 103 {$setc TARGET_OS_EMBEDDED := FALSE} 104{$elifc defined __i386__ and __i386__} 105 {$setc TARGET_CPU_PPC := FALSE} 106 {$setc TARGET_CPU_PPC64 := FALSE} 107 {$setc TARGET_CPU_X86 := TRUE} 108 {$setc TARGET_CPU_X86_64 := FALSE} 109 {$setc TARGET_CPU_ARM := FALSE} 110{$ifc defined(iphonesim)} 111 {$setc TARGET_OS_MAC := FALSE} 112 {$setc TARGET_OS_IPHONE := TRUE} 113 {$setc TARGET_IPHONE_SIMULATOR := TRUE} 114{$elsec} 115 {$setc TARGET_OS_MAC := TRUE} 116 {$setc TARGET_OS_IPHONE := FALSE} 117 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 118{$endc} 119 {$setc TARGET_OS_EMBEDDED := FALSE} 120{$elifc defined __x86_64__ and __x86_64__} 121 {$setc TARGET_CPU_PPC := FALSE} 122 {$setc TARGET_CPU_PPC64 := FALSE} 123 {$setc TARGET_CPU_X86 := FALSE} 124 {$setc TARGET_CPU_X86_64 := TRUE} 125 {$setc TARGET_CPU_ARM := FALSE} 126 {$setc TARGET_OS_MAC := TRUE} 127 {$setc TARGET_OS_IPHONE := FALSE} 128 {$setc TARGET_IPHONE_SIMULATOR := FALSE} 129 {$setc TARGET_OS_EMBEDDED := FALSE} 130{$elifc defined __arm__ and __arm__} 131 {$setc TARGET_CPU_PPC := FALSE} 132 {$setc TARGET_CPU_PPC64 := FALSE} 133 {$setc TARGET_CPU_X86 := FALSE} 134 {$setc TARGET_CPU_X86_64 := FALSE} 135 {$setc TARGET_CPU_ARM := TRUE} 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{$elsec} 142 {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ is defined.} 143{$endc} 144 145{$ifc defined __LP64__ and __LP64__ } 146 {$setc TARGET_CPU_64 := TRUE} 147{$elsec} 148 {$setc TARGET_CPU_64 := FALSE} 149{$endc} 150 151{$ifc defined FPC_BIG_ENDIAN} 152 {$setc TARGET_RT_BIG_ENDIAN := TRUE} 153 {$setc TARGET_RT_LITTLE_ENDIAN := FALSE} 154{$elifc defined FPC_LITTLE_ENDIAN} 155 {$setc TARGET_RT_BIG_ENDIAN := FALSE} 156 {$setc TARGET_RT_LITTLE_ENDIAN := TRUE} 157{$elsec} 158 {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.} 159{$endc} 160{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE} 161{$setc CALL_NOT_IN_CARBON := FALSE} 162{$setc OLDROUTINENAMES := FALSE} 163{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE} 164{$setc OPAQUE_UPP_TYPES := TRUE} 165{$setc OTCARBONAPPLICATION := TRUE} 166{$setc OTKERNEL := FALSE} 167{$setc PM_USE_SESSION_APIS := TRUE} 168{$setc TARGET_API_MAC_CARBON := TRUE} 169{$setc TARGET_API_MAC_OS8 := FALSE} 170{$setc TARGET_API_MAC_OSX := TRUE} 171{$setc TARGET_CARBON := TRUE} 172{$setc TARGET_CPU_68K := FALSE} 173{$setc TARGET_CPU_MIPS := FALSE} 174{$setc TARGET_CPU_SPARC := FALSE} 175{$setc TARGET_OS_UNIX := FALSE} 176{$setc TARGET_OS_WIN32 := FALSE} 177{$setc TARGET_RT_MAC_68881 := FALSE} 178{$setc TARGET_RT_MAC_CFM := FALSE} 179{$setc TARGET_RT_MAC_MACHO := TRUE} 180{$setc TYPED_FUNCTION_POINTERS := TRUE} 181{$setc TYPE_BOOL := FALSE} 182{$setc TYPE_EXTENDED := FALSE} 183{$setc TYPE_LONGLONG := TRUE} 184uses MacTypes,QDCMCommon,QuickdrawTypes,ColorSyncDeprecated,CGDirectDisplay,Components,MixedMode,QuickdrawText,CGContext; 185{$endc} {not MACOSALLINCLUDE} 186 187 188{$ifc TARGET_OS_MAC} 189 190{$ALIGN MAC68K} 191 192{********************************************************************************* 193// NOTE: Quickdraw has been deprecated for deployment targets 10.4 and later. 194// The replacement API is Quartz (CoreGraphics). 195// Because of the fundamental differences in the imaging models and design 196// goals between Quickdraw and Quartz, there is no direct correspondence 197// possible (or even desirable) between Quickdraw and Quartz APIs and concepts. 198// For certain purposes, some Quickdraw functions may even still be needed during 199// a transition period; nevertheless, they have all been tagged as deprecated 200// to express the overriding goal of eliminating all Quickdraw usage in the future. 201 |********************************************************************************} 202 203 204{ 205 General comments about thread-safety of Quickdraw 206 ------------------------------------------------- 207 208 The original design and implementation principles of Quickdraw seriously 209 conflict with the goal of making Quickdraw thread-safe. Many Quickdraw 210 functions rely on globals instead of explicit parameters. Even though the 211 current port (and the current GDevice) are being maintained per-thread, 212 a simple call like "MoveTo(x, y)" just doesn't make sense with preemptive threads, 213 if two different threads use the same port. Also, as soon as a client replaces 214 bottleneck procedures (SetStdCProcs), thread-safety is compromised. 215 That's why we maintain by default the "Not thread safe" attribute in Quickdraw APIs, 216 even though they may appear to be thread-safe. 217} 218{ Break a region up into rectangles.} 219 220const 221 kQDRegionToRectsMsgInit = 1; 222 kQDRegionToRectsMsgParse = 2; 223 kQDRegionToRectsMsgTerminate = 3; 224 225const 226 kQDParseRegionFromTop = 1 shl 0; 227 kQDParseRegionFromBottom = 1 shl 1; 228 kQDParseRegionFromLeft = 1 shl 2; 229 kQDParseRegionFromRight = 1 shl 3; 230 kQDParseRegionFromTopLeft = kQDParseRegionFromTop or kQDParseRegionFromLeft; 231 kQDParseRegionFromBottomRight = kQDParseRegionFromBottom or kQDParseRegionFromRight; 232 233type 234 QDRegionParseDirection = SInt32; 235 RegionToRectsProcPtr = function( message: UInt16; rgn: RgnHandle; const (*var*) rect_: Rect; refCon: UnivPtr ): OSStatus; 236 RegionToRectsUPP = RegionToRectsProcPtr; 237{ 238 * NewRegionToRectsUPP() 239 * 240 * Availability: 241 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 242 * CarbonLib: in CarbonLib 1.0 and later 243 * Non-Carbon CFM: available as macro/inline 244 } 245function NewRegionToRectsUPP( userRoutine: RegionToRectsProcPtr ): RegionToRectsUPP; external name '_NewRegionToRectsUPP'; 246(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 247 248{ 249 * DisposeRegionToRectsUPP() 250 * 251 * Availability: 252 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 253 * CarbonLib: in CarbonLib 1.0 and later 254 * Non-Carbon CFM: available as macro/inline 255 } 256procedure DisposeRegionToRectsUPP( userUPP: RegionToRectsUPP ); external name '_DisposeRegionToRectsUPP'; 257(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 258 259{ 260 * InvokeRegionToRectsUPP() 261 * 262 * Availability: 263 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 264 * CarbonLib: in CarbonLib 1.0 and later 265 * Non-Carbon CFM: available as macro/inline 266 } 267function InvokeRegionToRectsUPP( message: UInt16; rgn: RgnHandle; const (*var*) rect_: Rect; refCon: UnivPtr; userUPP: RegionToRectsUPP ): OSStatus; external name '_InvokeRegionToRectsUPP'; 268(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 269 270{ 271 * QDRegionToRects() 272 * 273 * Mac OS X threading: 274 * Not thread safe 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: not available 280 } 281function QDRegionToRects( rgn: RgnHandle; dir: QDRegionParseDirection; proc: RegionToRectsUPP; userData: UnivPtr ): OSStatus; external name '_QDRegionToRects'; 282(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 283 284 285{$ifc not TARGET_CPU_64} 286{ 287 * LockPortBits() *** DEPRECATED *** 288 * 289 * Mac OS X threading: 290 * Not thread safe 291 * 292 * Availability: 293 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 294 * CarbonLib: in CarbonLib 1.0 and later 295 * Non-Carbon CFM: not available 296 } 297function LockPortBits( port: GrafPtr ): OSErr; external name '_LockPortBits'; 298(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 299 300 301{ 302 * UnlockPortBits() *** DEPRECATED *** 303 * 304 * Mac OS X threading: 305 * Not thread safe 306 * 307 * Availability: 308 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 309 * CarbonLib: in CarbonLib 1.0 and later 310 * Non-Carbon CFM: not available 311 } 312function UnlockPortBits( port: GrafPtr ): OSErr; external name '_UnlockPortBits'; 313(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 314 315 316{$endc} {not TARGET_CPU_64} 317 318{$ifc TARGET_OS_WIN32} 319{ 320 * GetPortHWND() 321 * 322 * Availability: 323 * Mac OS X: not available 324 * CarbonLib: not available 325 * Non-Carbon CFM: not available 326 } 327 328 329{ 330 * GetHWNDPort() 331 * 332 * Availability: 333 * Mac OS X: not available 334 * CarbonLib: not available 335 * Non-Carbon CFM: not available 336 } 337 338 339// #define GetPortHWND(port) (HWND)GetPortNativeWindow(port) 340// #define GetHWNDPort(theHWND) GetNativeWindowPort(theHWND) 341{ 342 * GetPortHDC() 343 * 344 * Availability: 345 * Mac OS X: not available 346 * CarbonLib: not available 347 * Non-Carbon CFM: not available 348 } 349 350 351{ 352 * GetPortHBITMAP() 353 * 354 * Availability: 355 * Mac OS X: not available 356 * CarbonLib: not available 357 * Non-Carbon CFM: not available 358 } 359 360 361{ 362 * GetPortHPALETTE() 363 * 364 * Availability: 365 * Mac OS X: not available 366 * CarbonLib: not available 367 * Non-Carbon CFM: not available 368 } 369 370 371{ 372 * GetPortHFONT() 373 * 374 * Availability: 375 * Mac OS X: not available 376 * CarbonLib: not available 377 * Non-Carbon CFM: not available 378 } 379 380 381{ 382 * GetDIBFromPICT() 383 * 384 * Availability: 385 * Mac OS X: not available 386 * CarbonLib: not available 387 * Non-Carbon CFM: not available 388 } 389 390 391{ 392 * GetPICTFromDIB() 393 * 394 * Availability: 395 * Mac OS X: not available 396 * CarbonLib: not available 397 * Non-Carbon CFM: not available 398 } 399 400 401{$endc} {TARGET_OS_WIN32} 402 403{$ifc not TARGET_CPU_64} 404{ 405 * [Mac]SetPort() *** DEPRECATED *** 406 * 407 * Mac OS X threading: 408 * Not thread safe 409 * 410 * Availability: 411 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 412 * CarbonLib: in CarbonLib 1.0 and later 413 * Non-Carbon CFM: not available 414 } 415procedure MacSetPort( port: GrafPtr ); external name '_SetPort'; 416(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 417procedure SetPort( port: GrafPtr ); external name '_SetPort'; 418(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 419 420 421{ 422 * GetPort() *** DEPRECATED *** 423 * 424 * Mac OS X threading: 425 * Not thread safe 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: not available 431 } 432procedure GetPort( var port: GrafPtr ); external name '_GetPort'; 433(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 434 435 436{ 437 * QDSwapPort() *** DEPRECATED *** 438 * 439 * Summary: 440 * Combines a GetPort(&savePort); SetPort(newPort) sequence. 441 * 442 * Discussion: 443 * On X, the GetPort/SetPort calls act on per-thread globals, and 444 * cost more processor cycles than in the past, where they were 445 * simple memory accessors. To optimize, use the QDSwapPort call 446 * which combines both, and returns a Boolean indicating if the port 447 * actually did change. Typical usage: Boolean portChanged = 448 * QDSwapPort(newPort, &savePort); (... some drawing into newPort 449 * ...) if (portChanged) QDSwapPort(savePort, NULL); 450 * 451 * Mac OS X threading: 452 * Not thread safe 453 * 454 * Parameters: 455 * 456 * inNewPort: 457 * The new port to be set. 458 * 459 * outOldPort: 460 * Receives the previous port. Can be NULL. 461 * 462 * Result: 463 * A Boolean indicating whether the port was changed, i.e. 464 * (inNewPort != *outOldPort) 465 * 466 * Availability: 467 * Mac OS X: in version 10.1 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 468 * CarbonLib: in CarbonLib 1.5 and later 469 * Non-Carbon CFM: not available 470 } 471function QDSwapPort( inNewPort: CGrafPtr; outOldPort: CGrafPtrPtr ): Boolean; external name '_QDSwapPort'; 472(* AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 473 474 475{ 476 * GrafDevice() *** DEPRECATED *** 477 * 478 * Mac OS X threading: 479 * Not thread safe 480 * 481 * Availability: 482 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 483 * CarbonLib: in CarbonLib 1.0 and later 484 * Non-Carbon CFM: not available 485 } 486procedure GrafDevice( device: SInt16 ); external name '_GrafDevice'; 487(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 488 489 490{ 491 * SetPortBits() *** DEPRECATED *** 492 * 493 * Mac OS X threading: 494 * Not thread safe 495 * 496 * Availability: 497 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 498 * CarbonLib: in CarbonLib 1.0 and later 499 * Non-Carbon CFM: not available 500 } 501procedure SetPortBits( const (*var*) bm: BitMap ); external name '_SetPortBits'; 502(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 503 504 505{ 506 * PortSize() *** DEPRECATED *** 507 * 508 * Mac OS X threading: 509 * Not thread safe 510 * 511 * Availability: 512 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 513 * CarbonLib: in CarbonLib 1.0 and later 514 * Non-Carbon CFM: not available 515 } 516procedure PortSize( width: SInt16; height: SInt16 ); external name '_PortSize'; 517(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 518 519 520{ 521 * MovePortTo() *** DEPRECATED *** 522 * 523 * Mac OS X threading: 524 * Not thread safe 525 * 526 * Availability: 527 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 528 * CarbonLib: in CarbonLib 1.0 and later 529 * Non-Carbon CFM: not available 530 } 531procedure MovePortTo( leftGlobal: SInt16; topGlobal: SInt16 ); external name '_MovePortTo'; 532(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 533 534 535{ 536 * SetOrigin() *** DEPRECATED *** 537 * 538 * Mac OS X threading: 539 * Not thread safe 540 * 541 * Availability: 542 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 543 * CarbonLib: in CarbonLib 1.0 and later 544 * Non-Carbon CFM: not available 545 } 546procedure SetOrigin( h: SInt16; v: SInt16 ); external name '_SetOrigin'; 547(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 548 549 550{ 551 * SetClip() *** DEPRECATED *** 552 * 553 * Mac OS X threading: 554 * Not thread safe 555 * 556 * Availability: 557 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 558 * CarbonLib: in CarbonLib 1.0 and later 559 * Non-Carbon CFM: not available 560 } 561procedure SetClip( rgn: RgnHandle ); external name '_SetClip'; 562(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 563 564 565{ 566 * GetClip() *** DEPRECATED *** 567 * 568 * Mac OS X threading: 569 * Not thread safe 570 * 571 * Availability: 572 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 573 * CarbonLib: in CarbonLib 1.0 and later 574 * Non-Carbon CFM: not available 575 } 576procedure GetClip( rgn: RgnHandle ); external name '_GetClip'; 577(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 578 579 580{ 581 * ClipRect() *** DEPRECATED *** 582 * 583 * Mac OS X threading: 584 * Not thread safe 585 * 586 * Availability: 587 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 588 * CarbonLib: in CarbonLib 1.0 and later 589 * Non-Carbon CFM: not available 590 } 591procedure ClipRect( const (*var*) r: Rect ); external name '_ClipRect'; 592(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 593 594 595{ 596 * BackPat() *** DEPRECATED *** 597 * 598 * Mac OS X threading: 599 * Not thread safe 600 * 601 * Availability: 602 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 603 * CarbonLib: in CarbonLib 1.0 and later 604 * Non-Carbon CFM: not available 605 } 606procedure BackPat( const (*var*) pat: Pattern ); external name '_BackPat'; 607(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 608 609 610{ 611 * InitCursor() 612 * 613 * Mac OS X threading: 614 * Not thread safe 615 * 616 * Availability: 617 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 618 * CarbonLib: in CarbonLib 1.0 and later 619 * Non-Carbon CFM: not available 620 } 621procedure InitCursor; external name '_InitCursor'; 622(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 623 624 625{ NOTE: InitCursor used to be called to initialize Quickdraw. This is not necessary 626on Mac OS X. Use SetThemeCursor (in Appearance.h) to set the cursor to one of the predefined 627system cursors. 628} 629{ 630 * [Mac]SetCursor() *** DEPRECATED *** 631 * 632 * Mac OS X threading: 633 * Not thread safe 634 * 635 * Availability: 636 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 637 * CarbonLib: in CarbonLib 1.0 and later 638 * Non-Carbon CFM: not available 639 } 640procedure MacSetCursor( const (*var*) crsr: Cursor ); external name '_SetCursor'; 641(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 642procedure SetCursor( const (*var*) crsr: Cursor ); external name '_SetCursor'; 643(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 644 645 646{ 647 * HideCursor() 648 * 649 * Mac OS X threading: 650 * Not thread safe 651 * 652 * Availability: 653 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 654 * CarbonLib: in CarbonLib 1.0 and later 655 * Non-Carbon CFM: not available 656 } 657procedure HideCursor; external name '_HideCursor'; 658(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 659 660 661{ 662 * [Mac]ShowCursor() 663 * 664 * Mac OS X threading: 665 * Not thread safe 666 * 667 * Availability: 668 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 669 * CarbonLib: in CarbonLib 1.0 and later 670 * Non-Carbon CFM: not available 671 } 672procedure MacShowCursor__NAMED_ShowCursor; external name '_MacShowCursor__NAMED_ShowCursor'; 673(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 674procedure ShowCursor; external name '_ShowCursor'; 675(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 676 677 678{ 679 * ObscureCursor() 680 * 681 * Mac OS X threading: 682 * Not thread safe 683 * 684 * Availability: 685 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 686 * CarbonLib: in CarbonLib 1.0 and later 687 * Non-Carbon CFM: not available 688 } 689procedure ObscureCursor; external name '_ObscureCursor'; 690(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 691 692 693{ 694 * HidePen() *** DEPRECATED *** 695 * 696 * Mac OS X threading: 697 * Not thread safe 698 * 699 * Availability: 700 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 701 * CarbonLib: in CarbonLib 1.0 and later 702 * Non-Carbon CFM: not available 703 } 704procedure HidePen; external name '_HidePen'; 705(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 706 707 708{ 709 * ShowPen() *** DEPRECATED *** 710 * 711 * Mac OS X threading: 712 * Not thread safe 713 * 714 * Availability: 715 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 716 * CarbonLib: in CarbonLib 1.0 and later 717 * Non-Carbon CFM: not available 718 } 719procedure ShowPen; external name '_ShowPen'; 720(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 721 722 723{ 724 * GetPen() *** DEPRECATED *** 725 * 726 * Mac OS X threading: 727 * Not thread safe 728 * 729 * Availability: 730 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 731 * CarbonLib: in CarbonLib 1.0 and later 732 * Non-Carbon CFM: not available 733 } 734procedure GetPen( var pt: Point ); external name '_GetPen'; 735(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 736 737 738{ 739 * GetPenState() *** DEPRECATED *** 740 * 741 * Mac OS X threading: 742 * Not thread safe 743 * 744 * Availability: 745 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 746 * CarbonLib: in CarbonLib 1.0 and later 747 * Non-Carbon CFM: not available 748 } 749procedure GetPenState( var pnState: PenState ); external name '_GetPenState'; 750(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 751 752 753{ 754 * SetPenState() *** DEPRECATED *** 755 * 756 * Mac OS X threading: 757 * Not thread safe 758 * 759 * Availability: 760 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 761 * CarbonLib: in CarbonLib 1.0 and later 762 * Non-Carbon CFM: not available 763 } 764procedure SetPenState( const (*var*) pnState: PenState ); external name '_SetPenState'; 765(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 766 767 768{ 769 * PenSize() *** DEPRECATED *** 770 * 771 * Mac OS X threading: 772 * Not thread safe 773 * 774 * Availability: 775 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 776 * CarbonLib: in CarbonLib 1.0 and later 777 * Non-Carbon CFM: not available 778 } 779procedure PenSize( width: SInt16; height: SInt16 ); external name '_PenSize'; 780(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 781 782 783{ 784 * PenMode() *** DEPRECATED *** 785 * 786 * Mac OS X threading: 787 * Not thread safe 788 * 789 * Availability: 790 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 791 * CarbonLib: in CarbonLib 1.0 and later 792 * Non-Carbon CFM: not available 793 } 794procedure PenMode( mode: SInt16 ); external name '_PenMode'; 795(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 796 797 798{ 799 * PenPat() *** DEPRECATED *** 800 * 801 * Mac OS X threading: 802 * Not thread safe 803 * 804 * Availability: 805 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 806 * CarbonLib: in CarbonLib 1.0 and later 807 * Non-Carbon CFM: not available 808 } 809procedure PenPat( const (*var*) pat: Pattern ); external name '_PenPat'; 810(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 811 812 813{ 814 * PenNormal() *** DEPRECATED *** 815 * 816 * Mac OS X threading: 817 * Not thread safe 818 * 819 * Availability: 820 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 821 * CarbonLib: in CarbonLib 1.0 and later 822 * Non-Carbon CFM: not available 823 } 824procedure PenNormal; external name '_PenNormal'; 825(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 826 827 828{ 829 * MoveTo() *** DEPRECATED *** 830 * 831 * Mac OS X threading: 832 * Not thread safe 833 * 834 * Availability: 835 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 836 * CarbonLib: in CarbonLib 1.0 and later 837 * Non-Carbon CFM: not available 838 } 839procedure MoveTo( h: SInt16; v: SInt16 ); external name '_MoveTo'; 840(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 841 842 843{ 844 * Move() *** DEPRECATED *** 845 * 846 * Mac OS X threading: 847 * Not thread safe 848 * 849 * Availability: 850 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 851 * CarbonLib: in CarbonLib 1.0 and later 852 * Non-Carbon CFM: not available 853 } 854procedure Move( dh: SInt16; dv: SInt16 ); external name '_Move'; 855(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 856 857 858{ 859 * [Mac]LineTo() *** DEPRECATED *** 860 * 861 * Mac OS X threading: 862 * Not thread safe 863 * 864 * Availability: 865 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 866 * CarbonLib: in CarbonLib 1.0 and later 867 * Non-Carbon CFM: not available 868 } 869procedure MacLineTo__NAMED_LineTo( h: SInt16; v: SInt16 ); external name '_MacLineTo__NAMED_LineTo'; 870(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 871procedure LineTo( h: SInt16; v: SInt16 ); external name '_LineTo'; 872(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 873 874 875{ 876 * Line() *** DEPRECATED *** 877 * 878 * Mac OS X threading: 879 * Not thread safe 880 * 881 * Availability: 882 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 883 * CarbonLib: in CarbonLib 1.0 and later 884 * Non-Carbon CFM: not available 885 } 886procedure Line( dh: SInt16; dv: SInt16 ); external name '_Line'; 887(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 888 889 890{ 891 * ForeColor() *** DEPRECATED *** 892 * 893 * Mac OS X threading: 894 * Not thread safe 895 * 896 * Availability: 897 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 898 * CarbonLib: in CarbonLib 1.0 and later 899 * Non-Carbon CFM: not available 900 } 901procedure ForeColor( color: SIGNEDLONG ); external name '_ForeColor'; 902(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 903 904 905{ 906 * BackColor() *** DEPRECATED *** 907 * 908 * Mac OS X threading: 909 * Not thread safe 910 * 911 * Availability: 912 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 913 * CarbonLib: in CarbonLib 1.0 and later 914 * Non-Carbon CFM: not available 915 } 916procedure BackColor( color: SIGNEDLONG ); external name '_BackColor'; 917(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 918 919 920{ 921 * ColorBit() *** DEPRECATED *** 922 * 923 * Mac OS X threading: 924 * Not thread safe 925 * 926 * Availability: 927 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 928 * CarbonLib: in CarbonLib 1.0 and later 929 * Non-Carbon CFM: not available 930 } 931procedure ColorBit( whichBit: SInt16 ); external name '_ColorBit'; 932(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 933 934 935{$endc} {not TARGET_CPU_64} 936 937{ 938 * [Mac]SetRect() 939 * 940 * Mac OS X threading: 941 * Not thread safe 942 * 943 * Availability: 944 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 945 * CarbonLib: in CarbonLib 1.0 and later 946 * Non-Carbon CFM: not available 947 } 948procedure MacSetRect( var r: Rect; left: SInt16; top: SInt16; right: SInt16; bottom: SInt16 ); external name '_SetRect'; 949(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 950procedure SetRect( var r: Rect; left: SInt16; top: SInt16; right: SInt16; bottom: SInt16 ); external name '_SetRect'; 951(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 952 953 954{ 955 * [Mac]OffsetRect() 956 * 957 * Mac OS X threading: 958 * Not thread safe 959 * 960 * Availability: 961 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 962 * CarbonLib: in CarbonLib 1.0 and later 963 * Non-Carbon CFM: not available 964 } 965procedure MacOffsetRect( var r: Rect; dh: SInt16; dv: SInt16 ); external name '_OffsetRect'; 966(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 967procedure OffsetRect( var r: Rect; dh: SInt16; dv: SInt16 ); external name '_OffsetRect'; 968(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 969 970 971{ 972 * [Mac]InsetRect() 973 * 974 * Mac OS X threading: 975 * Not thread safe 976 * 977 * Availability: 978 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 979 * CarbonLib: in CarbonLib 1.0 and later 980 * Non-Carbon CFM: not available 981 } 982procedure MacInsetRect( var r: Rect; dh: SInt16; dv: SInt16 ); external name '_InsetRect'; 983(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 984procedure InsetRect( var r: Rect; dh: SInt16; dv: SInt16 ); external name '_InsetRect'; 985(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 986 987 988{ 989 * SectRect() 990 * 991 * Mac OS X threading: 992 * Not thread safe 993 * 994 * Availability: 995 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 996 * CarbonLib: in CarbonLib 1.0 and later 997 * Non-Carbon CFM: not available 998 } 999function SectRect( const (*var*) src1: Rect; const (*var*) src2: Rect; var dstRect: Rect ): Boolean; external name '_SectRect'; 1000(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1001 1002 1003{ 1004 * [Mac]UnionRect() 1005 * 1006 * Mac OS X threading: 1007 * Not thread safe 1008 * 1009 * Availability: 1010 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 1011 * CarbonLib: in CarbonLib 1.0 and later 1012 * Non-Carbon CFM: not available 1013 } 1014procedure MacUnionRect( const (*var*) src1: Rect; const (*var*) src2: Rect; var dstRect: Rect ); external name '_UnionRect'; 1015(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1016procedure UnionRect( const (*var*) src1: Rect; const (*var*) src2: Rect; var dstRect: Rect ); external name '_UnionRect'; 1017(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1018 1019 1020{ 1021 * [Mac]EqualRect() 1022 * 1023 * Mac OS X threading: 1024 * Not thread safe 1025 * 1026 * Availability: 1027 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 1028 * CarbonLib: in CarbonLib 1.0 and later 1029 * Non-Carbon CFM: not available 1030 } 1031function MacEqualRect( const (*var*) rect1: Rect; const (*var*) rect2: Rect ): Boolean; external name '_EqualRect'; 1032(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1033function EqualRect( const (*var*) rect1: Rect; const (*var*) rect2: Rect ): Boolean; external name '_EqualRect'; 1034(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1035 1036 1037{ 1038 * EmptyRect() 1039 * 1040 * Mac OS X threading: 1041 * Not thread safe 1042 * 1043 * Availability: 1044 * Mac OS X: in version 10.0 and later in ApplicationServices.framework 1045 * CarbonLib: in CarbonLib 1.0 and later 1046 * Non-Carbon CFM: not available 1047 } 1048function EmptyRect( const (*var*) r: Rect ): Boolean; external name '_EmptyRect'; 1049(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1050 1051 1052{$ifc not TARGET_CPU_64} 1053{ 1054 * [Mac]FrameRect() *** DEPRECATED *** 1055 * 1056 * Mac OS X threading: 1057 * Not thread safe 1058 * 1059 * Availability: 1060 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1061 * CarbonLib: in CarbonLib 1.0 and later 1062 * Non-Carbon CFM: not available 1063 } 1064procedure MacFrameRect( const (*var*) r: Rect ); external name '_FrameRect'; 1065(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1066procedure FrameRect( const (*var*) r: Rect ); external name '_FrameRect'; 1067(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1068 1069 1070{ 1071 * PaintRect() *** DEPRECATED *** 1072 * 1073 * Mac OS X threading: 1074 * Not thread safe 1075 * 1076 * Availability: 1077 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1078 * CarbonLib: in CarbonLib 1.0 and later 1079 * Non-Carbon CFM: not available 1080 } 1081procedure PaintRect( const (*var*) r: Rect ); external name '_PaintRect'; 1082(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1083 1084 1085{ 1086 * EraseRect() *** DEPRECATED *** 1087 * 1088 * Mac OS X threading: 1089 * Not thread safe 1090 * 1091 * Availability: 1092 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1093 * CarbonLib: in CarbonLib 1.0 and later 1094 * Non-Carbon CFM: not available 1095 } 1096procedure EraseRect( const (*var*) r: Rect ); external name '_EraseRect'; 1097(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1098 1099 1100{ 1101 * [Mac]InvertRect() *** DEPRECATED *** 1102 * 1103 * Mac OS X threading: 1104 * Not thread safe 1105 * 1106 * Availability: 1107 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1108 * CarbonLib: in CarbonLib 1.0 and later 1109 * Non-Carbon CFM: not available 1110 } 1111procedure MacInvertRect( const (*var*) r: Rect ); external name '_InvertRect'; 1112(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1113procedure InvertRect( const (*var*) r: Rect ); external name '_InvertRect'; 1114(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1115 1116 1117{ 1118 * [Mac]FillRect() *** DEPRECATED *** 1119 * 1120 * Mac OS X threading: 1121 * Not thread safe 1122 * 1123 * Availability: 1124 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1125 * CarbonLib: in CarbonLib 1.0 and later 1126 * Non-Carbon CFM: not available 1127 } 1128procedure MacFillRect( const (*var*) r: Rect; const (*var*) pat: Pattern ); external name '_FillRect'; 1129(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1130procedure FillRect( const (*var*) r: Rect; const (*var*) pat: Pattern ); external name '_FillRect'; 1131(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1132 1133 1134{ 1135 * FrameOval() *** DEPRECATED *** 1136 * 1137 * Mac OS X threading: 1138 * Not thread safe 1139 * 1140 * Availability: 1141 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1142 * CarbonLib: in CarbonLib 1.0 and later 1143 * Non-Carbon CFM: not available 1144 } 1145procedure FrameOval( const (*var*) r: Rect ); external name '_FrameOval'; 1146(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1147 1148 1149{ 1150 * PaintOval() *** DEPRECATED *** 1151 * 1152 * Mac OS X threading: 1153 * Not thread safe 1154 * 1155 * Availability: 1156 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1157 * CarbonLib: in CarbonLib 1.0 and later 1158 * Non-Carbon CFM: not available 1159 } 1160procedure PaintOval( const (*var*) r: Rect ); external name '_PaintOval'; 1161(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1162 1163 1164{ 1165 * EraseOval() *** DEPRECATED *** 1166 * 1167 * Mac OS X threading: 1168 * Not thread safe 1169 * 1170 * Availability: 1171 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1172 * CarbonLib: in CarbonLib 1.0 and later 1173 * Non-Carbon CFM: not available 1174 } 1175procedure EraseOval( const (*var*) r: Rect ); external name '_EraseOval'; 1176(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1177 1178 1179{ 1180 * InvertOval() *** DEPRECATED *** 1181 * 1182 * Mac OS X threading: 1183 * Not thread safe 1184 * 1185 * Availability: 1186 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1187 * CarbonLib: in CarbonLib 1.0 and later 1188 * Non-Carbon CFM: not available 1189 } 1190procedure InvertOval( const (*var*) r: Rect ); external name '_InvertOval'; 1191(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1192 1193 1194{ 1195 * FillOval() *** DEPRECATED *** 1196 * 1197 * Mac OS X threading: 1198 * Not thread safe 1199 * 1200 * Availability: 1201 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1202 * CarbonLib: in CarbonLib 1.0 and later 1203 * Non-Carbon CFM: not available 1204 } 1205procedure FillOval( const (*var*) r: Rect; const (*var*) pat: Pattern ); external name '_FillOval'; 1206(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1207 1208 1209{ 1210 * FrameRoundRect() *** DEPRECATED *** 1211 * 1212 * Mac OS X threading: 1213 * Not thread safe 1214 * 1215 * Availability: 1216 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1217 * CarbonLib: in CarbonLib 1.0 and later 1218 * Non-Carbon CFM: not available 1219 } 1220procedure FrameRoundRect( const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16 ); external name '_FrameRoundRect'; 1221(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1222 1223 1224{ 1225 * PaintRoundRect() *** DEPRECATED *** 1226 * 1227 * Mac OS X threading: 1228 * Not thread safe 1229 * 1230 * Availability: 1231 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1232 * CarbonLib: in CarbonLib 1.0 and later 1233 * Non-Carbon CFM: not available 1234 } 1235procedure PaintRoundRect( const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16 ); external name '_PaintRoundRect'; 1236(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1237 1238 1239{ 1240 * EraseRoundRect() *** DEPRECATED *** 1241 * 1242 * Mac OS X threading: 1243 * Not thread safe 1244 * 1245 * Availability: 1246 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1247 * CarbonLib: in CarbonLib 1.0 and later 1248 * Non-Carbon CFM: not available 1249 } 1250procedure EraseRoundRect( const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16 ); external name '_EraseRoundRect'; 1251(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1252 1253 1254{ 1255 * InvertRoundRect() *** DEPRECATED *** 1256 * 1257 * Mac OS X threading: 1258 * Not thread safe 1259 * 1260 * Availability: 1261 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1262 * CarbonLib: in CarbonLib 1.0 and later 1263 * Non-Carbon CFM: not available 1264 } 1265procedure InvertRoundRect( const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16 ); external name '_InvertRoundRect'; 1266(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1267 1268 1269{ 1270 * FillRoundRect() *** DEPRECATED *** 1271 * 1272 * Mac OS X threading: 1273 * Not thread safe 1274 * 1275 * Availability: 1276 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1277 * CarbonLib: in CarbonLib 1.0 and later 1278 * Non-Carbon CFM: not available 1279 } 1280procedure FillRoundRect( const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16; const (*var*) pat: Pattern ); external name '_FillRoundRect'; 1281(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1282 1283 1284{ 1285 * FrameArc() *** DEPRECATED *** 1286 * 1287 * Mac OS X threading: 1288 * Not thread safe 1289 * 1290 * Availability: 1291 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1292 * CarbonLib: in CarbonLib 1.0 and later 1293 * Non-Carbon CFM: not available 1294 } 1295procedure FrameArc( const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16 ); external name '_FrameArc'; 1296(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1297 1298 1299{ 1300 * PaintArc() *** DEPRECATED *** 1301 * 1302 * Mac OS X threading: 1303 * Not thread safe 1304 * 1305 * Availability: 1306 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1307 * CarbonLib: in CarbonLib 1.0 and later 1308 * Non-Carbon CFM: not available 1309 } 1310procedure PaintArc( const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16 ); external name '_PaintArc'; 1311(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1312 1313 1314{ 1315 * EraseArc() *** DEPRECATED *** 1316 * 1317 * Mac OS X threading: 1318 * Not thread safe 1319 * 1320 * Availability: 1321 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1322 * CarbonLib: in CarbonLib 1.0 and later 1323 * Non-Carbon CFM: not available 1324 } 1325procedure EraseArc( const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16 ); external name '_EraseArc'; 1326(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1327 1328 1329{ 1330 * InvertArc() *** DEPRECATED *** 1331 * 1332 * Mac OS X threading: 1333 * Not thread safe 1334 * 1335 * Availability: 1336 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1337 * CarbonLib: in CarbonLib 1.0 and later 1338 * Non-Carbon CFM: not available 1339 } 1340procedure InvertArc( const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16 ); external name '_InvertArc'; 1341(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1342 1343 1344{ 1345 * FillArc() *** DEPRECATED *** 1346 * 1347 * Mac OS X threading: 1348 * Not thread safe 1349 * 1350 * Availability: 1351 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1352 * CarbonLib: in CarbonLib 1.0 and later 1353 * Non-Carbon CFM: not available 1354 } 1355procedure FillArc( const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16; const (*var*) pat: Pattern ); external name '_FillArc'; 1356(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1357 1358 1359{ 1360 * NewRgn() 1361 * 1362 * Mac OS X threading: 1363 * Not thread safe 1364 * 1365 * Availability: 1366 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 1367 * CarbonLib: in CarbonLib 1.0 and later 1368 * Non-Carbon CFM: not available 1369 } 1370function NewRgn: RgnHandle; external name '_NewRgn'; 1371(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1372 1373 1374{ 1375 * OpenRgn() *** DEPRECATED *** 1376 * 1377 * Mac OS X threading: 1378 * Not thread safe 1379 * 1380 * Availability: 1381 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1382 * CarbonLib: in CarbonLib 1.0 and later 1383 * Non-Carbon CFM: not available 1384 } 1385procedure OpenRgn; external name '_OpenRgn'; 1386(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1387 1388 1389{ 1390 * CloseRgn() *** DEPRECATED *** 1391 * 1392 * Mac OS X threading: 1393 * Not thread safe 1394 * 1395 * Availability: 1396 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1397 * CarbonLib: in CarbonLib 1.0 and later 1398 * Non-Carbon CFM: not available 1399 } 1400procedure CloseRgn( dstRgn: RgnHandle ); external name '_CloseRgn'; 1401(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1402 1403 1404{ 1405 * BitMapToRegion() *** DEPRECATED *** 1406 * 1407 * Mac OS X threading: 1408 * Not thread safe 1409 * 1410 * Availability: 1411 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] but deprecated in 10.4 1412 * CarbonLib: in CarbonLib 1.0 and later 1413 * Non-Carbon CFM: not available 1414 } 1415function BitMapToRegion( region: RgnHandle; const (*var*) bMap: BitMap ): OSErr; external name '_BitMapToRegion'; 1416(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *) 1417 1418 1419{ 1420 * RgnToHandle() 1421 * 1422 * Summary: 1423 * Allows to "flatten" the opaque region data, for persistent 1424 * storage. HandleToRgn is the reciprocal call. 1425 * 1426 * Discussion: 1427 * These calls were introduced to facilitate Carbonization of 1428 * applications, that relied on the undocumented format of region 1429 * data. Since the internal (opaque) region format changed in 10.3, 1430 * the purpose of these functions became questionable at best. They 1431 * should be considered deprecated. Applications that need to 1432 * preserve region data within their documents should convert the 1433 * regions to a sequence of rectangles, using QDRegionToRects. The 1434 * original region can then be rebuilt using RectRgn() and 1435 * UnionRgn() calls. 1436 * 1437 * Mac OS X threading: 1438 * Not thread safe 1439 * 1440 * Parameters: 1441 * 1442 * region: 1443 * The input RgnHandle 1444 * 1445 * flattenedRgnDataHdl: 1446 * A valid Handle that gets resized and filled with the region 1447 * data. 1448 * 1449 * Availability: 1450 * Mac OS X: in version 10.1 and later in ApplicationServices.framework [32-bit only] 1451 * CarbonLib: in CarbonLib 1.3 and later 1452 * Non-Carbon CFM: not available 1453 } 1454procedure RgnToHandle( region: RgnHandle; flattenedRgnDataHdl: Handle ); external name '_RgnToHandle'; 1455(* AVAILABLE_MAC_OS_X_VERSION_10_1_AND_LATER *) 1456 1457 1458{ 1459 * HandleToRgn() 1460 * 1461 * Mac OS X threading: 1462 * Not thread safe 1463 * 1464 * Availability: 1465 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 1466 * CarbonLib: in CarbonLib 1.1 and later 1467 * Non-Carbon CFM: not available 1468 } 1469procedure HandleToRgn( oldRegion: Handle; region: RgnHandle ); external name '_HandleToRgn'; 1470(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1471 1472 1473{ 1474 * DisposeRgn() 1475 * 1476 * Mac OS X threading: 1477 * Not thread safe 1478 * 1479 * Availability: 1480 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 1481 * CarbonLib: in CarbonLib 1.0 and later 1482 * Non-Carbon CFM: not available 1483 } 1484procedure DisposeRgn( rgn: RgnHandle ); external name '_DisposeRgn'; 1485(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1486 1487 1488{ 1489 * [Mac]CopyRgn() 1490 * 1491 * Mac OS X threading: 1492 * Not thread safe 1493 * 1494 * Availability: 1495 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 1496 * CarbonLib: in CarbonLib 1.0 and later 1497 * Non-Carbon CFM: not available 1498 } 1499procedure MacCopyRgn( srcRgn: RgnHandle; dstRgn: RgnHandle ); external name '_CopyRgn'; 1500(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1501procedure CopyRgn( srcRgn: RgnHandle; dstRgn: RgnHandle ); external name '_CopyRgn'; 1502(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1503 1504 1505{ 1506 * SetEmptyRgn() 1507 * 1508 * Mac OS X threading: 1509 * Not thread safe 1510 * 1511 * Availability: 1512 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 1513 * CarbonLib: in CarbonLib 1.0 and later 1514 * Non-Carbon CFM: not available 1515 } 1516procedure SetEmptyRgn( rgn: RgnHandle ); external name '_SetEmptyRgn'; 1517(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1518 1519 1520{ 1521 * [Mac]SetRectRgn() 1522 * 1523 * Mac OS X threading: 1524 * Not thread safe 1525 * 1526 * Availability: 1527 * Mac OS X: in version 10.0 and later in ApplicationServices.framework [32-bit only] 1528 * CarbonLib: in CarbonLib 1.0 and later 1529 * Non-Carbon CFM: not available 1530 } 1531procedure MacSetRectRgn( rgn: RgnHandle; left: SInt16; top: SInt16; right: SInt16; bottom: SInt16 ); external name '_SetRectRgn'; 1532(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1533procedure SetRectRgn( rgn: RgnHandle; left: SInt16; top: SInt16; right: SInt16; bottom: SInt16 ); external name '_SetRectRgn'; 1534(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) 1535 1536 1537{ 1538 * RectRgn() 1539 * 1540 * Mac OS X threading: 1541 * Not thread safe 1542 * 1543 * Availability: 1544 * Mac OS X: i…
Large files files are truncated, but you can click here to view the full file