PageRenderTime 26ms CodeModel.GetById 12ms app.highlight 6ms RepoModel.GetById 0ms app.codeStats 1ms

/packages/univint/src/Quickdraw.pas

https://github.com/slibre/freepascal
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