1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818 |
- {
- File: Quickdraw.p
-
- Contains: Interface to Quickdraw Graphics
-
- Version: Universal Interfaces 3.4.2
-
- Copyright: © 1985-2002 by Apple Computer, Inc., all rights reserved
-
- Bugs?: For bug reports, consult the following page on
- the World Wide Web:
-
- http://www.freepascal.org/bugs.html
-
- }
- {
- Modified for use with Free Pascal
- Version 200
- Please report any bugs to <[email protected]>
- }
- {$mode macpas}
- {$packenum 1}
- {$macro on}
- {$inline on}
- {$CALLING MWPASCAL}
- unit Quickdraw;
- interface
- {$setc UNIVERSAL_INTERFACES_VERSION := $0342}
- {$setc GAP_INTERFACES_VERSION := $0200}
- {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
- {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
- {$endc}
- {$ifc defined CPUPOWERPC and defined CPUI386}
- {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
- {$endc}
- {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
- {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
- {$endc}
- {$ifc not defined __ppc__ and defined CPUPOWERPC}
- {$setc __ppc__ := 1}
- {$elsec}
- {$setc __ppc__ := 0}
- {$endc}
- {$ifc not defined __i386__ and defined CPUI386}
- {$setc __i386__ := 1}
- {$elsec}
- {$setc __i386__ := 0}
- {$endc}
- {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
- {$error Conflicting definitions for __ppc__ and __i386__}
- {$endc}
- {$ifc defined __ppc__ and __ppc__}
- {$setc TARGET_CPU_PPC := TRUE}
- {$setc TARGET_CPU_X86 := FALSE}
- {$elifc defined __i386__ and __i386__}
- {$setc TARGET_CPU_PPC := FALSE}
- {$setc TARGET_CPU_X86 := TRUE}
- {$elsec}
- {$error Neither __ppc__ nor __i386__ is defined.}
- {$endc}
- {$setc TARGET_CPU_PPC_64 := FALSE}
- {$ifc defined FPC_BIG_ENDIAN}
- {$setc TARGET_RT_BIG_ENDIAN := TRUE}
- {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
- {$elifc defined FPC_LITTLE_ENDIAN}
- {$setc TARGET_RT_BIG_ENDIAN := FALSE}
- {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
- {$elsec}
- {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
- {$endc}
- {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
- {$setc CALL_NOT_IN_CARBON := FALSE}
- {$setc OLDROUTINENAMES := FALSE}
- {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
- {$setc OPAQUE_UPP_TYPES := TRUE}
- {$setc OTCARBONAPPLICATION := TRUE}
- {$setc OTKERNEL := FALSE}
- {$setc PM_USE_SESSION_APIS := TRUE}
- {$setc TARGET_API_MAC_CARBON := TRUE}
- {$setc TARGET_API_MAC_OS8 := FALSE}
- {$setc TARGET_API_MAC_OSX := TRUE}
- {$setc TARGET_CARBON := TRUE}
- {$setc TARGET_CPU_68K := FALSE}
- {$setc TARGET_CPU_MIPS := FALSE}
- {$setc TARGET_CPU_SPARC := FALSE}
- {$setc TARGET_OS_MAC := TRUE}
- {$setc TARGET_OS_UNIX := FALSE}
- {$setc TARGET_OS_WIN32 := FALSE}
- {$setc TARGET_RT_MAC_68881 := FALSE}
- {$setc TARGET_RT_MAC_CFM := FALSE}
- {$setc TARGET_RT_MAC_MACHO := TRUE}
- {$setc TYPED_FUNCTION_POINTERS := TRUE}
- {$setc TYPE_BOOL := FALSE}
- {$setc TYPE_EXTENDED := FALSE}
- {$setc TYPE_LONGLONG := TRUE}
- uses MacTypes,CMTypes,CGDirectDisplay,Components,MixedMode,QuickdrawText,CGContext;
- {$ALIGN MAC68K}
- const
- invalColReq = -1; { invalid color table request }
- { transfer modes }
- srcCopy = 0; { the 16 transfer modes }
- srcOr = 1;
- srcXor = 2;
- srcBic = 3;
- notSrcCopy = 4;
- notSrcOr = 5;
- notSrcXor = 6;
- notSrcBic = 7;
- patCopy = 8;
- patOr = 9;
- patXor = 10;
- patBic = 11;
- notPatCopy = 12;
- notPatOr = 13;
- notPatXor = 14;
- notPatBic = 15; { Special Text Transfer Mode }
- grayishTextOr = 49;
- hilitetransfermode = 50;
- hilite = 50; { Arithmetic transfer modes }
- blend = 32;
- addPin = 33;
- addOver = 34;
- subPin = 35;
- addMax = 37;
- adMax = 37;
- subOver = 38;
- adMin = 39;
- ditherCopy = 64; { Transparent mode constant }
- transparent = 36;
- italicBit = 1;
- ulineBit = 2;
- outlineBit = 3;
- shadowBit = 4;
- condenseBit = 5;
- extendBit = 6;
- { QuickDraw color separation constants }
- normalBit = 0; { normal screen mapping }
- inverseBit = 1; { inverse screen mapping }
- redBit = 4; { RGB additive mapping }
- greenBit = 3;
- blueBit = 2;
- cyanBit = 8; { CMYBk subtractive mapping }
- magentaBit = 7;
- yellowBit = 6;
- blackBit = 5;
- blackColor = 33; { colors expressed in these mappings }
- whiteColor = 30;
- redColor = 205;
- greenColor = 341;
- blueColor = 409;
- cyanColor = 273;
- magentaColor = 137;
- yellowColor = 69;
- picLParen = 0; { standard picture comments }
- picRParen = 1;
- clutType = 0; { 0 if lookup table }
- fixedType = 1; { 1 if fixed table }
- directType = 2; { 2 if direct values }
- gdDevType = 0; { 0 = monochrome 1 = color }
- interlacedDevice = 2; { 1 if single pixel lines look bad }
- hwMirroredDevice = 4; { 1 if device is HW mirrored }
- roundedDevice = 5; { 1 if device has been ÒroundedÓ into the GrayRgn }
- hasAuxMenuBar = 6; { 1 if device has an aux menu bar on it }
- burstDevice = 7;
- ext32Device = 8;
- ramInit = 10; { 1 if initialized from 'scrn' resource }
- mainScreen = 11; { 1 if main screen }
- allInit = 12; { 1 if all devices initialized }
- screenDevice = 13; { 1 if screen device [not used] }
- noDriver = 14; { 1 if no driver for this GDevice }
- screenActive = 15; { 1 if in use }
- hiliteBit = 7; { flag bit in LMGet/SetHiliteMode }
- pHiliteBit = 0; { flag bit in LMGet/SetHiliteMode when used with BitClr }
- defQDColors = 127; { resource ID of clut for default QDColors }
- { pixel type }
- RGBDirect = 16; { 16 & 32 bits/pixel pixelType value }
- { pmVersion values }
- baseAddr32 = 4; { pixmap base address is 32-bit address }
- sysPatListID = 0;
- iBeamCursor = 1;
- crossCursor = 2;
- plusCursor = 3;
- watchCursor = 4;
- kQDGrafVerbFrame = 0;
- kQDGrafVerbPaint = 1;
- kQDGrafVerbErase = 2;
- kQDGrafVerbInvert = 3;
- kQDGrafVerbFill = 4;
- {$ifc OLDROUTINENAMES}
- frame = 0;
- paint = 1;
- erase = 2;
- invert = 3;
- fill = 4;
- {$endc} {OLDROUTINENAMES}
- type
- GrafVerb = SInt8;
- const
- chunky = 0;
- chunkyPlanar = 1;
- planar = 2;
- type
- PixelType = SInt8;
- Bits16 = array [0..15] of SInt16;
- { ************** IMPORTANT NOTE REGARDING Pattern **************************************
- Patterns were originally defined as:
-
- C: typedef unsigned char Pattern[8];
- Pascal: Pattern = packed array [0..7] of 0..255;
-
- The old array definition of Pattern would cause 68000 based CPU's to crash in certain circum-
- stances. The new struct definition is safe, but may require source code changes to compile.
-
- ******************************************************************************************** }
- PatternPtr = ^Pattern;
- Pattern = record
- pat: packed array [0..7] of UInt8;
- end;
- PatPtr = ^Pattern;
- PatHandle = ^PatPtr;
- QDByte = SignedByte;
- QDPtr = Ptr;
- QDHandle = Handle;
- QDErr = SInt16;
- const
- singleDevicesBit = 0;
- dontMatchSeedsBit = 1;
- allDevicesBit = 2;
- singleDevices = $01;
- dontMatchSeeds = $02;
- allDevices = $04;
- type
- DeviceLoopFlags = UInt32;
- {
- PrinterStatusOpcode. For communication with downloading and printing services.
- }
- PrinterStatusOpcode = SInt32;
- const
- kPrinterFontStatus = 0;
- kPrinterScalingStatus = 1;
- type
- PrinterFontStatusPtr = ^PrinterFontStatus;
- PrinterFontStatus = record
- oResult: SInt32;
- iFondID: SInt16;
- iStyle: SInt8;
- end;
- PrinterScalingStatusPtr = ^PrinterScalingStatus;
- PrinterScalingStatus = record
- oScalingFactors: Point;
- end;
- BitMapPtr = ^BitMap;
- BitMap = record
- baseAddr: Ptr;
- rowBytes: SInt16;
- bounds: Rect;
- end;
- BitMapHandle = ^BitMapPtr;
- CursorPtr = ^Cursor;
- Cursor = record
- data: Bits16;
- mask: Bits16;
- hotSpot: Point;
- end;
- CursPtr = ^Cursor;
- CursHandle = ^CursPtr;
- PenStatePtr = ^PenState;
- PenState = record
- pnLoc: Point;
- pnSize: Point;
- pnMode: SInt16;
- pnPat: Pattern;
- end;
- {$ifc NOT OPAQUE_TOOLBOX_STRUCTS}
- MacRegionPtr = ^MacRegion;
- MacRegion = record
- rgnSize: UInt16; { size in bytes; don't rely on it }
- rgnBBox: Rect; { enclosing rectangle; in Carbon use GetRegionBounds }
- end;
- {
- The type name "Region" has a name space collision on Win32.
- Use MacRegion to be cross-platfrom safe.
- }
- {$ifc TARGET_OS_MAC}
- Region = MacRegion;
- RegionPtr = ^Region;
- {$endc} {TARGET_OS_MAC}
- RgnPtr = ^MacRegion;
- RgnHandle = ^RgnPtr;
- {$elsec}
- RgnHandle = ^SInt32; { an opaque 32-bit type }
- RgnHandlePtr = ^RgnHandle; { when a var xx:RgnHandle parameter can be nil, it is changed to xx: RgnHandlePtr }
- {$endc}
- PicturePtr = ^Picture;
- Picture = record
- picSize: SInt16;
- picFrame: Rect;
- end;
- PicPtr = ^Picture;
- PicHandle = ^PicPtr;
- MacPolygonPtr = ^MacPolygon;
- MacPolygon = record
- polySize: SInt16;
- polyBBox: Rect;
- polyPoints: array [0..0] of Point;
- end;
- {
- The type name "Polygon" has a name space collision on Win32.
- Use MacPolygon to be cross-platfrom safe.
- }
- {$ifc TARGET_OS_MAC}
- Polygon = MacPolygon;
- PolygonPtr = ^Polygon;
- {$endc} {TARGET_OS_MAC}
- PolyPtr = ^MacPolygon;
- PolyHandle = ^PolyPtr;
- {$ifc TYPED_FUNCTION_POINTERS}
- QDTextProcPtr = procedure(byteCount: SInt16; textBuf: UnivPtr; numer: Point; denom: Point);
- {$elsec}
- QDTextProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDLineProcPtr = procedure(newPt: Point);
- {$elsec}
- QDLineProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDRectProcPtr = procedure(verb: GrafVerb; const (*var*) r: Rect);
- {$elsec}
- QDRectProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDRRectProcPtr = procedure(verb: GrafVerb; const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16);
- {$elsec}
- QDRRectProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDOvalProcPtr = procedure(verb: GrafVerb; const (*var*) r: Rect);
- {$elsec}
- QDOvalProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDArcProcPtr = procedure(verb: GrafVerb; const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16);
- {$elsec}
- QDArcProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDPolyProcPtr = procedure(verb: GrafVerb; poly: PolyHandle);
- {$elsec}
- QDPolyProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDRgnProcPtr = procedure(verb: GrafVerb; rgn: RgnHandle);
- {$elsec}
- QDRgnProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDBitsProcPtr = procedure(const (*var*) srcBits: BitMap; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect; mode: SInt16; maskRgn: RgnHandle);
- {$elsec}
- QDBitsProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDCommentProcPtr = procedure(kind: SInt16; dataSize: SInt16; dataHandle: Handle);
- {$elsec}
- QDCommentProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDTxMeasProcPtr = function(byteCount: SInt16; textAddr: UnivPtr; var numer: Point; var denom: Point; var info: FontInfo): SInt16;
- {$elsec}
- QDTxMeasProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDGetPicProcPtr = procedure(dataPtr: UnivPtr; byteCount: SInt16);
- {$elsec}
- QDGetPicProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDPutPicProcPtr = procedure(dataPtr: UnivPtr; byteCount: SInt16);
- {$elsec}
- QDPutPicProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDOpcodeProcPtr = procedure(const (*var*) fromRect: Rect; const (*var*) toRect: Rect; opcode: UInt16; version: SInt16);
- {$elsec}
- QDOpcodeProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDStdGlyphsProcPtr = function(dataStream: UnivPtr; size: ByteCount): OSStatus;
- {$elsec}
- QDStdGlyphsProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- QDJShieldCursorProcPtr = procedure(left: SInt16; top: SInt16; right: SInt16; bottom: SInt16);
- {$elsec}
- QDJShieldCursorProcPtr = ProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDTextUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDTextUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDLineUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDLineUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDRectUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDRectUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDRRectUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDRRectUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDOvalUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDOvalUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDArcUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDArcUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDPolyUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDPolyUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDRgnUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDRgnUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDBitsUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDBitsUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDCommentUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDCommentUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDTxMeasUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDTxMeasUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDGetPicUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDGetPicUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDPutPicUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDPutPicUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDOpcodeUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDOpcodeUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDStdGlyphsUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDStdGlyphsUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDJShieldCursorUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDJShieldCursorUPP = UniversalProcPtr;
- {$endc}
- QDProcsPtr = ^QDProcs;
- QDProcs = record
- textProc: QDTextUPP;
- lineProc: QDLineUPP;
- rectProc: QDRectUPP;
- rRectProc: QDRRectUPP;
- ovalProc: QDOvalUPP;
- arcProc: QDArcUPP;
- polyProc: QDPolyUPP;
- rgnProc: QDRgnUPP;
- bitsProc: QDBitsUPP;
- commentProc: QDCommentUPP;
- txMeasProc: QDTxMeasUPP;
- getPicProc: QDGetPicUPP;
- putPicProc: QDPutPicUPP;
- end;
- const
- uppQDTextProcInfo = $00003F80;
- uppQDLineProcInfo = $000000C0;
- uppQDRectProcInfo = $00000340;
- uppQDRRectProcInfo = $00002B40;
- uppQDOvalProcInfo = $00000340;
- uppQDArcProcInfo = $00002B40;
- uppQDPolyProcInfo = $00000340;
- uppQDRgnProcInfo = $00000340;
- uppQDBitsProcInfo = $0000EFC0;
- uppQDCommentProcInfo = $00000E80;
- uppQDTxMeasProcInfo = $0000FFA0;
- uppQDGetPicProcInfo = $000002C0;
- uppQDPutPicProcInfo = $000002C0;
- uppQDOpcodeProcInfo = $00002BC0;
- uppQDStdGlyphsProcInfo = $000003F1;
- uppQDJShieldCursorProcInfo = $00002A80;
- {
- * NewQDTextUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDTextUPP(userRoutine: QDTextProcPtr): QDTextUPP; external name '_NewQDTextUPP'; { old name was NewQDTextProc }
- {
- * NewQDLineUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDLineUPP(userRoutine: QDLineProcPtr): QDLineUPP; external name '_NewQDLineUPP'; { old name was NewQDLineProc }
- {
- * NewQDRectUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDRectUPP(userRoutine: QDRectProcPtr): QDRectUPP; external name '_NewQDRectUPP'; { old name was NewQDRectProc }
- {
- * NewQDRRectUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDRRectUPP(userRoutine: QDRRectProcPtr): QDRRectUPP; external name '_NewQDRRectUPP'; { old name was NewQDRRectProc }
- {
- * NewQDOvalUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDOvalUPP(userRoutine: QDOvalProcPtr): QDOvalUPP; external name '_NewQDOvalUPP'; { old name was NewQDOvalProc }
- {
- * NewQDArcUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDArcUPP(userRoutine: QDArcProcPtr): QDArcUPP; external name '_NewQDArcUPP'; { old name was NewQDArcProc }
- {
- * NewQDPolyUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDPolyUPP(userRoutine: QDPolyProcPtr): QDPolyUPP; external name '_NewQDPolyUPP'; { old name was NewQDPolyProc }
- {
- * NewQDRgnUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDRgnUPP(userRoutine: QDRgnProcPtr): QDRgnUPP; external name '_NewQDRgnUPP'; { old name was NewQDRgnProc }
- {
- * NewQDBitsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDBitsUPP(userRoutine: QDBitsProcPtr): QDBitsUPP; external name '_NewQDBitsUPP'; { old name was NewQDBitsProc }
- {
- * NewQDCommentUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDCommentUPP(userRoutine: QDCommentProcPtr): QDCommentUPP; external name '_NewQDCommentUPP'; { old name was NewQDCommentProc }
- {
- * NewQDTxMeasUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDTxMeasUPP(userRoutine: QDTxMeasProcPtr): QDTxMeasUPP; external name '_NewQDTxMeasUPP'; { old name was NewQDTxMeasProc }
- {
- * NewQDGetPicUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDGetPicUPP(userRoutine: QDGetPicProcPtr): QDGetPicUPP; external name '_NewQDGetPicUPP'; { old name was NewQDGetPicProc }
- {
- * NewQDPutPicUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDPutPicUPP(userRoutine: QDPutPicProcPtr): QDPutPicUPP; external name '_NewQDPutPicUPP'; { old name was NewQDPutPicProc }
- {
- * NewQDOpcodeUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDOpcodeUPP(userRoutine: QDOpcodeProcPtr): QDOpcodeUPP; external name '_NewQDOpcodeUPP'; { old name was NewQDOpcodeProc }
- {
- * NewQDStdGlyphsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDStdGlyphsUPP(userRoutine: QDStdGlyphsProcPtr): QDStdGlyphsUPP; external name '_NewQDStdGlyphsUPP'; { old name was NewQDStdGlyphsProc }
- {
- * NewQDJShieldCursorUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewQDJShieldCursorUPP(userRoutine: QDJShieldCursorProcPtr): QDJShieldCursorUPP; external name '_NewQDJShieldCursorUPP'; { old name was NewQDJShieldCursorProc }
- {
- * DisposeQDTextUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDTextUPP(userUPP: QDTextUPP); external name '_DisposeQDTextUPP';
- {
- * DisposeQDLineUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDLineUPP(userUPP: QDLineUPP); external name '_DisposeQDLineUPP';
- {
- * DisposeQDRectUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDRectUPP(userUPP: QDRectUPP); external name '_DisposeQDRectUPP';
- {
- * DisposeQDRRectUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDRRectUPP(userUPP: QDRRectUPP); external name '_DisposeQDRRectUPP';
- {
- * DisposeQDOvalUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDOvalUPP(userUPP: QDOvalUPP); external name '_DisposeQDOvalUPP';
- {
- * DisposeQDArcUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDArcUPP(userUPP: QDArcUPP); external name '_DisposeQDArcUPP';
- {
- * DisposeQDPolyUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDPolyUPP(userUPP: QDPolyUPP); external name '_DisposeQDPolyUPP';
- {
- * DisposeQDRgnUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDRgnUPP(userUPP: QDRgnUPP); external name '_DisposeQDRgnUPP';
- {
- * DisposeQDBitsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDBitsUPP(userUPP: QDBitsUPP); external name '_DisposeQDBitsUPP';
- {
- * DisposeQDCommentUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDCommentUPP(userUPP: QDCommentUPP); external name '_DisposeQDCommentUPP';
- {
- * DisposeQDTxMeasUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDTxMeasUPP(userUPP: QDTxMeasUPP); external name '_DisposeQDTxMeasUPP';
- {
- * DisposeQDGetPicUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDGetPicUPP(userUPP: QDGetPicUPP); external name '_DisposeQDGetPicUPP';
- {
- * DisposeQDPutPicUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDPutPicUPP(userUPP: QDPutPicUPP); external name '_DisposeQDPutPicUPP';
- {
- * DisposeQDOpcodeUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDOpcodeUPP(userUPP: QDOpcodeUPP); external name '_DisposeQDOpcodeUPP';
- {
- * DisposeQDStdGlyphsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDStdGlyphsUPP(userUPP: QDStdGlyphsUPP); external name '_DisposeQDStdGlyphsUPP';
- {
- * DisposeQDJShieldCursorUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeQDJShieldCursorUPP(userUPP: QDJShieldCursorUPP); external name '_DisposeQDJShieldCursorUPP';
- {
- * InvokeQDTextUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDTextUPP(byteCount: SInt16; textBuf: UnivPtr; numer: Point; denom: Point; userRoutine: QDTextUPP); external name '_InvokeQDTextUPP'; { old name was CallQDTextProc }
- {
- * InvokeQDLineUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDLineUPP(newPt: Point; userRoutine: QDLineUPP); external name '_InvokeQDLineUPP'; { old name was CallQDLineProc }
- {
- * InvokeQDRectUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDRectUPP(verb: GrafVerb; const (*var*) r: Rect; userRoutine: QDRectUPP); external name '_InvokeQDRectUPP'; { old name was CallQDRectProc }
- {
- * InvokeQDRRectUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDRRectUPP(verb: GrafVerb; const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16; userRoutine: QDRRectUPP); external name '_InvokeQDRRectUPP'; { old name was CallQDRRectProc }
- {
- * InvokeQDOvalUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDOvalUPP(verb: GrafVerb; const (*var*) r: Rect; userRoutine: QDOvalUPP); external name '_InvokeQDOvalUPP'; { old name was CallQDOvalProc }
- {
- * InvokeQDArcUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDArcUPP(verb: GrafVerb; const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16; userRoutine: QDArcUPP); external name '_InvokeQDArcUPP'; { old name was CallQDArcProc }
- {
- * InvokeQDPolyUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDPolyUPP(verb: GrafVerb; poly: PolyHandle; userRoutine: QDPolyUPP); external name '_InvokeQDPolyUPP'; { old name was CallQDPolyProc }
- {
- * InvokeQDRgnUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDRgnUPP(verb: GrafVerb; rgn: RgnHandle; userRoutine: QDRgnUPP); external name '_InvokeQDRgnUPP'; { old name was CallQDRgnProc }
- {
- * InvokeQDBitsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDBitsUPP(const (*var*) srcBits: BitMap; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect; mode: SInt16; maskRgn: RgnHandle; userRoutine: QDBitsUPP); external name '_InvokeQDBitsUPP'; { old name was CallQDBitsProc }
- {
- * InvokeQDCommentUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDCommentUPP(kind: SInt16; dataSize: SInt16; dataHandle: Handle; userRoutine: QDCommentUPP); external name '_InvokeQDCommentUPP'; { old name was CallQDCommentProc }
- {
- * InvokeQDTxMeasUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function InvokeQDTxMeasUPP(byteCount: SInt16; textAddr: UnivPtr; var numer: Point; var denom: Point; var info: FontInfo; userRoutine: QDTxMeasUPP): SInt16; external name '_InvokeQDTxMeasUPP'; { old name was CallQDTxMeasProc }
- {
- * InvokeQDGetPicUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDGetPicUPP(dataPtr: UnivPtr; byteCount: SInt16; userRoutine: QDGetPicUPP); external name '_InvokeQDGetPicUPP'; { old name was CallQDGetPicProc }
- {
- * InvokeQDPutPicUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDPutPicUPP(dataPtr: UnivPtr; byteCount: SInt16; userRoutine: QDPutPicUPP); external name '_InvokeQDPutPicUPP'; { old name was CallQDPutPicProc }
- {
- * InvokeQDOpcodeUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDOpcodeUPP(const (*var*) fromRect: Rect; const (*var*) toRect: Rect; opcode: UInt16; version: SInt16; userRoutine: QDOpcodeUPP); external name '_InvokeQDOpcodeUPP'; { old name was CallQDOpcodeProc }
- {
- * InvokeQDStdGlyphsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function InvokeQDStdGlyphsUPP(dataStream: UnivPtr; size: ByteCount; userRoutine: QDStdGlyphsUPP): OSStatus; external name '_InvokeQDStdGlyphsUPP'; { old name was CallQDStdGlyphsProc }
- {
- * InvokeQDJShieldCursorUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeQDJShieldCursorUPP(left: SInt16; top: SInt16; right: SInt16; bottom: SInt16; userRoutine: QDJShieldCursorUPP); external name '_InvokeQDJShieldCursorUPP'; { old name was CallQDJShieldCursorProc }
- {$ifc NOT OPAQUE_TOOLBOX_STRUCTS}
- type
- GrafPortPtr = ^GrafPort;
- GrafPort = record
- device: SInt16; { not available in Carbon }
- portBits: BitMap; { in Carbon use GetPortBitMapForCopyBits or IsPortColor }
- portRect: Rect; { in Carbon use Get/SetPortBounds }
- visRgn: RgnHandle; { in Carbon use Get/SetPortVisibleRegion }
- clipRgn: RgnHandle; { in Carbon use Get/SetPortClipRegion }
- bkPat: Pattern; { not available in Carbon all GrafPorts are CGrafPorts }
- fillPat: Pattern; { not available in Carbon all GrafPorts are CGrafPorts }
- pnLoc: Point; { in Carbon use GetPortPenLocation or MoveTo }
- pnSize: Point; { in Carbon use Get/SetPortPenSize }
- pnMode: SInt16; { in Carbon use Get/SetPortPenMode }
- pnPat: Pattern; { not available in Carbon all GrafPorts are CGrafPorts }
- pnVis: SInt16; { in Carbon use GetPortPenVisibility or Show/HidePen }
- txFont: SInt16; { in Carbon use GetPortTextFont or TextFont }
- txFace: StyleField; { in Carbon use GetPortTextFace or TextFace }
- { StyleField occupies 16-bits, but only first 8-bits are used }
- txMode: SInt16; { in Carbon use GetPortTextMode or TextMode }
- txSize: SInt16; { in Carbon use GetPortTextSize or TextSize }
- spExtra: Fixed; { in Carbon use GetPortSpExtra or SpaceExtra }
- fgColor: SInt32; { not available in Carbon }
- bkColor: SInt32; { not available in Carbon }
- colrBit: SInt16; { not available in Carbon }
- patStretch: SInt16; { not available in Carbon }
- picSave: Handle; { in Carbon use IsPortPictureBeingDefined }
- rgnSave: Handle; { not available in Carbon }
- polySave: Handle; { not available in Carbon }
- grafProcs: QDProcsPtr; { not available in Carbon all GrafPorts are CGrafPorts }
- end;
- GrafPtr = ^GrafPort;
- {
- * This set of definitions "belongs" in Windows.
- * But, there is a circularity in the headers where Windows includes Controls and
- * Controls includes Windows. To break the circle, the information
- * needed by Controls is moved from Windows to Quickdraw.
- }
- WindowPtr = GrafPtr;
- DialogPtr = WindowPtr;
- {$elsec}
- type
- WindowPtr = ^SInt32; { an opaque 32-bit type }
- WindowPtrPtr = ^WindowPtr; { when a var xx:WindowPtr parameter can be nil, it is changed to xx: WindowPtrPtr }
- DialogPtr = ^SInt32; { an opaque 32-bit type }
- DialogPtrPtr = ^DialogPtr; { when a var xx:DialogPtr parameter can be nil, it is changed to xx: DialogPtrPtr }
- GrafPtr = ^SInt32; { an opaque 32-bit type }
- GrafPtrPtr = ^GrafPtr; { when a var xx:GrafPtr parameter can be nil, it is changed to xx: GrafPtrPtr }
- {$endc}
- WindowRef = WindowPtr;
- WindowRefPtr = ^WindowRef; { when a var xx:WindowRef parameter can be nil, it is changed to xx: WindowRefPtr }
- { DragConstraint constants to pass to DragGray,DragTheRgn, or ConstrainedDragRgn }
- DragConstraint = UInt16;
- const
- kNoConstraint = 0;
- kVerticalConstraint = 1;
- kHorizontalConstraint = 2;
- type
- {$ifc TYPED_FUNCTION_POINTERS}
- DragGrayRgnProcPtr = procedure;
- {$elsec}
- DragGrayRgnProcPtr = ProcPtr;
- {$endc}
- {
- * Here ends the list of things that "belong" in Windows.
- }
- RGBColorPtr = ^RGBColor;
- RGBColor = record
- red: UInt16; { magnitude of red component }
- green: UInt16; { magnitude of green component }
- blue: UInt16; { magnitude of blue component }
- end;
- RGBColorHdl = ^RGBColorPtr;
- {$ifc TYPED_FUNCTION_POINTERS}
- ColorSearchProcPtr = function(var rgb: RGBColor; var position: SInt32): boolean;
- {$elsec}
- ColorSearchProcPtr = ProcPtr;
- {$endc}
- {$ifc TYPED_FUNCTION_POINTERS}
- ColorComplementProcPtr = function(var rgb: RGBColor): boolean;
- {$elsec}
- ColorComplementProcPtr = ProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- DragGrayRgnUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- DragGrayRgnUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- ColorSearchUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- ColorSearchUPP = UniversalProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- ColorComplementUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- ColorComplementUPP = UniversalProcPtr;
- {$endc}
- const
- uppDragGrayRgnProcInfo = $00000000;
- uppColorSearchProcInfo = $000003D0;
- uppColorComplementProcInfo = $000000D0;
- {
- * NewDragGrayRgnUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewDragGrayRgnUPP(userRoutine: DragGrayRgnProcPtr): DragGrayRgnUPP; external name '_NewDragGrayRgnUPP'; { old name was NewDragGrayRgnProc }
- {
- * NewColorSearchUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewColorSearchUPP(userRoutine: ColorSearchProcPtr): ColorSearchUPP; external name '_NewColorSearchUPP'; { old name was NewColorSearchProc }
- {
- * NewColorComplementUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewColorComplementUPP(userRoutine: ColorComplementProcPtr): ColorComplementUPP; external name '_NewColorComplementUPP'; { old name was NewColorComplementProc }
- {
- * DisposeDragGrayRgnUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeDragGrayRgnUPP(userUPP: DragGrayRgnUPP); external name '_DisposeDragGrayRgnUPP';
- {
- * DisposeColorSearchUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeColorSearchUPP(userUPP: ColorSearchUPP); external name '_DisposeColorSearchUPP';
- {
- * DisposeColorComplementUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeColorComplementUPP(userUPP: ColorComplementUPP); external name '_DisposeColorComplementUPP';
- {
- * InvokeDragGrayRgnUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeDragGrayRgnUPP(userRoutine: DragGrayRgnUPP); external name '_InvokeDragGrayRgnUPP'; { old name was CallDragGrayRgnProc }
- {
- * InvokeColorSearchUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function InvokeColorSearchUPP(var rgb: RGBColor; var position: SInt32; userRoutine: ColorSearchUPP): boolean; external name '_InvokeColorSearchUPP'; { old name was CallColorSearchProc }
- {
- * InvokeColorComplementUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function InvokeColorComplementUPP(var rgb: RGBColor; userRoutine: ColorComplementUPP): boolean; external name '_InvokeColorComplementUPP'; { old name was CallColorComplementProc }
- type
- ColorSpecPtr = ^ColorSpec;
- ColorSpec = record
- value: SInt16; { index or other value }
- rgb: RGBColor; { true color }
- end;
- CSpecArray = array [0..0] of ColorSpec;
- ColorTablePtr = ^ColorTable;
- ColorTable = record
- ctSeed: SInt32; { unique identifier for table }
- ctFlags: SInt16; { high bit: 0 = PixMap; 1 = device }
- ctSize: SInt16; { number of entries in CTTable }
- ctTable: CSpecArray; { array [0..0] of ColorSpec }
- end;
- CTabPtr = ^ColorTable;
- CTabHandle = ^CTabPtr;
- xColorSpecPtr = ^xColorSpec;
- xColorSpec = record
- value: SInt16; { index or other value }
- rgb: RGBColor; { true color }
- xalpha: SInt16;
- end;
- xCSpecArray = array [0..0] of xColorSpec;
- MatchRecPtr = ^MatchRec;
- MatchRec = record
- red: UInt16;
- green: UInt16;
- blue: UInt16;
- matchData: SInt32;
- end;
- {
- QuickTime 3.0 makes PixMap data structure available on non-Mac OS's.
- In order to implement PixMap in these alternate environments, the PixMap
- had to be extended. The pmReserved field was changed to pmExt which is
- a Handle to extra info. The planeBytes field was changed to pixelFormat.
-
- In OS X, Quickdraw also uses the new PixMap data structure.
- }
- {$ifc undefined OLDPIXMAPSTRUCT}
- {$ifc TARGET_OS_MAC AND TARGET_API_MAC_OS8}
- {$setc OLDPIXMAPSTRUCT := 1}
- {$elsec}
- {$setc OLDPIXMAPSTRUCT := 0}
- {$endc}
- {$endc}
- { pixel formats }
- const
- k1MonochromePixelFormat = $00000001; { 1 bit indexed }
- k2IndexedPixelFormat = $00000002; { 2 bit indexed }
- k4IndexedPixelFormat = $00000004; { 4 bit indexed }
- k8IndexedPixelFormat = $00000008; { 8 bit indexed }
- k16BE555PixelFormat = $00000010; { 16 bit BE rgb 555 (Mac) }
- k24RGBPixelFormat = $00000018; { 24 bit rgb }
- k32ARGBPixelFormat = $00000020; { 32 bit argb (Mac) }
- k1IndexedGrayPixelFormat = $00000021; { 1 bit indexed gray }
- k2IndexedGrayPixelFormat = $00000022; { 2 bit indexed gray }
- k4IndexedGrayPixelFormat = $00000024; { 4 bit indexed gray }
- k8IndexedGrayPixelFormat = $00000028; { 8 bit indexed gray }
- { values for PixMap.pixelFormat }
- k16LE555PixelFormat = $4C353535 (* 'L555' *); { 16 bit LE rgb 555 (PC) }
- k16LE5551PixelFormat = $35353531 (* '5551' *); { 16 bit LE rgb 5551 }
- k16BE565PixelFormat = $42353635 (* 'B565' *); { 16 bit BE rgb 565 }
- k16LE565PixelFormat = $4C353635 (* 'L565' *); { 16 bit LE rgb 565 }
- k24BGRPixelFormat = $32344247 (* '24BG' *); { 24 bit bgr }
- k32BGRAPixelFormat = $42475241 (* 'BGRA' *); { 32 bit bgra (Matrox) }
- k32ABGRPixelFormat = $41424752 (* 'ABGR' *); { 32 bit abgr }
- k32RGBAPixelFormat = $52474241 (* 'RGBA' *); { 32 bit rgba }
- kYUVSPixelFormat = $79757673 (* 'yuvs' *); { YUV 4:2:2 byte ordering 16-unsigned = 'YUY2' }
- kYUVUPixelFormat = $79757675 (* 'yuvu' *); { YUV 4:2:2 byte ordering 16-signed }
- kYVU9PixelFormat = $59565539 (* 'YVU9' *); { YVU9 Planar 9 }
- kYUV411PixelFormat = $59343131 (* 'Y411' *); { YUV 4:1:1 Interleaved 16 }
- kYVYU422PixelFormat = $59565955 (* 'YVYU' *); { YVYU 4:2:2 byte ordering 16 }
- kUYVY422PixelFormat = $55595659 (* 'UYVY' *); { UYVY 4:2:2 byte ordering 16 }
- kYUV211PixelFormat = $59323131 (* 'Y211' *); { YUV 2:1:1 Packed 8 }
- k2vuyPixelFormat = $32767579 (* '2vuy' *); { UYVY 4:2:2 byte ordering 16 }
- type
- PixMapPtr = ^PixMap;
- PixMap = record
- baseAddr: Ptr; { pointer to pixels }
- rowBytes: SInt16; { offset to next line }
- bounds: Rect; { encloses bitmap }
- pmVersion: SInt16; { pixMap version number }
- packType: SInt16; { defines packing format }
- packSize: SInt32; { length of pixel data }
- hRes: Fixed; { horiz. resolution (ppi) }
- vRes: Fixed; { vert. resolution (ppi) }
- pixelType: SInt16; { defines pixel type }
- pixelSize: SInt16; { # bits in pixel }
- cmpCount: SInt16; { # components in pixel }
- cmpSize: SInt16; { # bits per component }
- planeBytes: SInt32; { offset to next plane }
- pmTable: CTabHandle; { color map for this pixMap }
- pmReserved: SInt32;
- end;
- PixMapHandle = ^PixMapPtr;
- PixPatPtr = ^PixPat;
- PixPat = record
- patType: SInt16; { type of pattern }
- patMap: PixMapHandle; { the pattern's pixMap }
- patData: Handle; { pixmap's data }
- patXData: Handle; { expanded Pattern data }
- patXValid: SInt16; { flags whether expanded Pattern valid }
- patXMap: Handle; { Handle to expanded Pattern data }
- pat1Data: Pattern; { old-Style pattern/RGB color }
- end;
- PixPatHandle = ^PixPatPtr;
- CCrsrPtr = ^CCrsr;
- CCrsr = record
- crsrType: SInt16; { type of cursor }
- crsrMap: PixMapHandle; { the cursor's pixmap }
- crsrData: Handle; { cursor's data }
- crsrXData: Handle; { expanded cursor data }
- crsrXValid: SInt16; { depth of expanded data (0 if none) }
- crsrXHandle: Handle; { future use }
- crsr1Data: Bits16; { one-bit cursor }
- crsrMask: Bits16; { cursor's mask }
- crsrHotSpot: Point; { cursor's hotspot }
- crsrXTable: SInt32; { private }
- crsrID: SInt32; { private }
- end;
- CCrsrHandle = ^CCrsrPtr;
- GammaTblPtr = ^GammaTbl;
- GammaTbl = record
- gVersion: SInt16; { gamma version number }
- gType: SInt16; { gamma data type }
- gFormulaSize: SInt16; { Formula data size }
- gChanCnt: SInt16; { number of channels of data }
- gDataCnt: SInt16; { number of values/channel }
- gDataWidth: SInt16; { bits/corrected value (data packed to next larger byte size) }
- gFormulaData: array [0..0] of SInt16; { data for formulas followed by gamma values }
- end;
- GammaTblHandle = ^GammaTblPtr;
- ITabPtr = ^ITab;
- ITab = record
- iTabSeed: SInt32; { copy of CTSeed from source CTable }
- iTabRes: SInt16; { bits/channel resolution of iTable }
- iTTable: SInt8; { byte colortable index values }
- end;
- ITabHandle = ^ITabPtr;
- SProcRecPtr = ^SProcRec;
- SProcRec = record
- nxtSrch: Handle; { SProcHndl Handle to next SProcRec }
- srchProc: ColorSearchUPP; { search procedure proc ptr }
- end;
- SProcPtr = ^SProcRec;
- SProcHndl = ^SProcPtr;
- CProcRecPtr = ^CProcRec;
- CProcRec = record
- nxtComp: Handle; { CProcHndl Handle to next CProcRec }
- compProc: ColorComplementUPP; { complement procedure proc ptr }
- end;
- CProcPtr = ^CProcRec;
- CProcHndl = ^CProcPtr;
- {
- QuickTime 3.0 makes GDevice data structure available on non-Mac OS's.
- In order to implement GDevice in these alternate environments, the GDevice
- had to be extended. The gdReserved field was changed to gdExt which is
- a Handle to extra info.
- }
- {$ifc undefined OLDGDEVICESTRUCT}
- {$ifc TARGET_OS_MAC AND TARGET_API_MAC_OS8}
- {$setc OLDGDEVICESTRUCT := 1}
- {$elsec}
- {$setc OLDGDEVICESTRUCT := 0}
- {$endc}
- {$endc}
- GDevicePtr = ^GDevice;
- GDPtr = ^GDevice;
- GDHandle = ^GDPtr;
- GDHandle_GAP_Private_field_type_fix = GDHandle; { used as field type when a record declaration contains a GDHandle field identifier }
- GDHandlePtr = ^GDHandle; { when a VAR xx: GDHandle parameter can be nil, it is changed to xx: GDHandlePtr }
- GDevice = record
- gdRefNum: SInt16; { driver's unit number }
- gdID: SInt16; { client ID for search procs }
- gdType: SInt16; { fixed/CLUT/direct }
- gdITable: ITabHandle; { Handle to inverse lookup table }
- gdResPref: SInt16; { preferred resolution of GDITable }
- gdSearchProc: SProcHndl; { search proc list head }
- gdCompProc: CProcHndl; { complement proc list }
- gdFlags: SInt16; { grafDevice flags word }
- gdPMap: PixMapHandle; { describing pixMap }
- gdRefCon: SInt32; { reference value }
- gdNextGD: GDHandle; { GDHandle Handle of next gDevice }
- gdRect: Rect; { device's bounds in global coordinates }
- gdMode: SInt32; { device's current mode }
- gdCCBytes: SInt16; { depth of expanded cursor data }
- gdCCDepth: SInt16; { depth of expanded cursor data }
- gdCCXData: Handle; { Handle to cursor's expanded data }
- gdCCXMask: Handle; { Handle to cursor's expanded mask }
- gdReserved: SInt32; { future use. MUST BE 0 }
- end;
- GrafVars = record
- rgbOpColor: RGBColor; { color for addPin subPin and average }
- rgbHiliteColor: RGBColor; { color for hiliting }
- pmFgColor: Handle; { palette Handle for foreground color }
- pmFgIndex: SInt16; { index value for foreground }
- pmBkColor: Handle; { palette Handle for background color }
- pmBkIndex: SInt16; { index value for background }
- pmFlags: SInt16; { flags for Palette Manager }
- end;
- GVarPtr = ^GrafVars;
- GVarHandle = ^GVarPtr;
- {$ifc NOT OPAQUE_TOOLBOX_STRUCTS}
- CGrafPortPtr = ^CGrafPort;
- CGrafPtr = ^CGrafPort;
- {$elsec}
- CGrafPtr = GrafPtr;
- {$endc}
- CGrafPtrPtr = ^CGrafPtr;
- {$ifc TYPED_FUNCTION_POINTERS}
- QDPrinterStatusProcPtr = function(opcode: PrinterStatusOpcode; currentPort: CGrafPtr; printerStatus: UnivPtr): OSStatus;
- {$elsec}
- QDPrinterStatusProcPtr = ProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- QDPrinterStatusUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- QDPrinterStatusUPP = UniversalProcPtr;
- {$endc}
- CQDProcsPtr = ^CQDProcs;
- CQDProcs = record
- textProc: QDTextUPP;
- lineProc: QDLineUPP;
- rectProc: QDRectUPP;
- rRectProc: QDRRectUPP;
- ovalProc: QDOvalUPP;
- arcProc: QDArcUPP;
- polyProc: QDPolyUPP;
- rgnProc: QDRgnUPP;
- bitsProc: QDBitsUPP;
- commentProc: QDCommentUPP;
- txMeasProc: QDTxMeasUPP;
- getPicProc: QDGetPicUPP;
- putPicProc: QDPutPicUPP;
- opcodeProc: QDOpcodeUPP;
- newProc1: UniversalProcPtr; { this is the StdPix bottleneck -- see ImageCompression.h }
- glyphsProc: QDStdGlyphsUPP; { was newProc2; now used in Unicode text drawing }
- printerStatusProc: QDPrinterStatusUPP; { was newProc3; now used to communicate status between Printing code and System imaging code }
- newProc4: UniversalProcPtr;
- newProc5: UniversalProcPtr;
- newProc6: UniversalProcPtr;
- end;
- {$ifc NOT OPAQUE_TOOLBOX_STRUCTS}
- CGrafPort = record
- device: SInt16; { not available in Carbon }
- portPixMap: PixMapHandle; { in Carbon use GetPortPixMap }
- portVersion: SInt16; { in Carbon use IsPortColor }
- grafVars: Handle; { not available in Carbon }
- chExtra: SInt16; { in Carbon use GetPortChExtra }
- pnLocHFrac: SInt16; { in Carbon use Get/SetPortFracHPenLocation }
- portRect: Rect; { in Carbon use Get/SetPortBounds }
- visRgn: RgnHandle; { in Carbon use Get/SetPortVisibleRegion }
- clipRgn: RgnHandle; { in Carbon use Get/SetPortClipRegion }
- bkPixPat: PixPatHandle; { in Carbon use GetPortBackPixPat or BackPixPat }
- rgbFgColor: RGBColor; { in Carbon use GetPortForeColor or RGBForeColor }
- rgbBkColor: RGBColor; { in Carbon use GetPortBackColor or RGBBackColor }
- pnLoc: Point; { in Carbon use GetPortPenLocation or MoveTo }
- pnSize: Point; { in Carbon use Get/SetPortPenSize }
- pnMode: SInt16; { in Carbon use Get/SetPortPenMode }
- pnPixPat: PixPatHandle; { in Carbon use Get/SetPortPenPixPat }
- fillPixPat: PixPatHandle; { in Carbon use GetPortFillPixPat }
- pnVis: SInt16; { in Carbon use GetPortPenVisibility or Show/HidePen }
- txFont: SInt16; { in Carbon use GetPortTextFont or TextFont }
- txFace: StyleField; { in Carbon use GetPortTextFace or TextFace }
- { StyleField occupies 16-bits, but only first 8-bits are used }
- txMode: SInt16; { in Carbon use GetPortTextMode or TextMode }
- txSize: SInt16; { in Carbon use GetPortTextSize or TextSize }
- spExtra: Fixed; { in Carbon use GetPortSpExtra or SpaceExtra }
- fgColor: SInt32; { not available in Carbon }
- bkColor: SInt32; { not available in Carbon }
- colrBit: SInt16; { not available in Carbon }
- patStretch: SInt16; { not available in Carbon }
- picSave: Handle; { in Carbon use IsPortPictureBeingDefined }
- rgnSave: Handle; { in Carbon use IsPortRegionBeingDefined }
- polySave: Handle; { in Carbon use IsPortPolyBeingDefined }
- grafProcs: CQDProcsPtr; { in Carbon use Get/SetPortGrafProcs }
- end;
- {$endc}
- {$ifc OPAQUE_TOOLBOX_STRUCTS}
- CWindowPtr = WindowPtr;
- {$elsec}
- CWindowPtr = CGrafPtr;
- {$endc} {OPAQUE_TOOLBOX_STRUCTS}
- ReqListRecPtr = ^ReqListRec;
- ReqListRec = record
- reqLSize: SInt16; { request list size }
- reqLData: array [0..0] of SInt16; { request list data }
- end;
- OpenCPicParamsPtr = ^OpenCPicParams;
- OpenCPicParams = record
- srcRect: Rect;
- hRes: Fixed;
- vRes: Fixed;
- version: SInt16;
- reserved1: SInt16;
- reserved2: SInt32;
- end;
- const
- kCursorImageMajorVersion = $0001;
- kCursorImageMinorVersion = $0000;
- type
- CursorImageRecPtr = ^CursorImageRec;
- CursorImageRec = record
- majorVersion: UInt16;
- minorVersion: UInt16;
- cursorPixMap: PixMapHandle;
- cursorBitMask: BitMapHandle;
- end;
- CursorImagePtr = ^CursorImageRec;
- {$ifc TYPED_FUNCTION_POINTERS}
- DeviceLoopDrawingProcPtr = procedure(depth: SInt16; deviceFlags: SInt16; targetDevice: GDHandle; userData: SInt32);
- {$elsec}
- DeviceLoopDrawingProcPtr = ProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- DeviceLoopDrawingUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- DeviceLoopDrawingUPP = UniversalProcPtr;
- {$endc}
- const
- uppQDPrinterStatusProcInfo = $00000FF1;
- uppDeviceLoopDrawingProcInfo = $00003E80;
- {$ifc CALL_NOT_IN_CARBON}
- {
- * NewQDPrinterStatusUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function NewQDPrinterStatusUPP(userRoutine: QDPrinterStatusProcPtr): QDPrinterStatusUPP; external name '_NewQDPrinterStatusUPP'; { old name was NewQDPrinterStatusProc }
- {$endc} {CALL_NOT_IN_CARBON}
- {
- * NewDeviceLoopDrawingUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewDeviceLoopDrawingUPP(userRoutine: DeviceLoopDrawingProcPtr): DeviceLoopDrawingUPP; external name '_NewDeviceLoopDrawingUPP'; { old name was NewDeviceLoopDrawingProc }
- {$ifc CALL_NOT_IN_CARBON}
- {
- * DisposeQDPrinterStatusUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure DisposeQDPrinterStatusUPP(userUPP: QDPrinterStatusUPP); external name '_DisposeQDPrinterStatusUPP';
- {$endc} {CALL_NOT_IN_CARBON}
- {
- * DisposeDeviceLoopDrawingUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeDeviceLoopDrawingUPP(userUPP: DeviceLoopDrawingUPP); external name '_DisposeDeviceLoopDrawingUPP';
- {$ifc CALL_NOT_IN_CARBON}
- {
- * InvokeQDPrinterStatusUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function InvokeQDPrinterStatusUPP(opcode: PrinterStatusOpcode; currentPort: CGrafPtr; printerStatus: UnivPtr; userRoutine: QDPrinterStatusUPP): OSStatus; external name '_InvokeQDPrinterStatusUPP'; { old name was CallQDPrinterStatusProc }
- {$endc} {CALL_NOT_IN_CARBON}
- {
- * InvokeDeviceLoopDrawingUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvokeDeviceLoopDrawingUPP(depth: SInt16; deviceFlags: SInt16; targetDevice: GDHandle; userData: SInt32; userRoutine: DeviceLoopDrawingUPP); external name '_InvokeDeviceLoopDrawingUPP'; { old name was CallDeviceLoopDrawingProc }
- {$ifc NOT OPAQUE_TOOLBOX_STRUCTS OR NOT TARGET_API_MAC_CARBON}
- type
- QDGlobalsPtr = ^QDGlobals;
- QDGlobals = record
- privates: packed array [0..75] of char;
- randSeed: SInt32; { in Carbon use GetQDGlobalsRandomSeed }
- screenBits: BitMap; { in Carbon use GetQDGlobalsScreenBits }
- arrow: Cursor; { in Carbon use GetQDGlobalsArrow }
- dkGray: Pattern; { in Carbon use GetQDGlobalsDarkGray }
- ltGray: Pattern; { in Carbon use GetQDGlobalsLightGray }
- gray: Pattern; { in Carbon use GetQDGlobalsGray }
- black: Pattern; { in Carbon use GetQDGlobalsBlack }
- white: Pattern; { in Carbon use GetQDGlobalsWhite }
- thePort: GrafPtr; { in Carbon use GetQDGlobalsThePort }
- end;
- QDGlobalsHdl = ^QDGlobalsPtr;
- { To be in sync with the C interface to QuickDraw globals, pascal code must now }
- { qualify the QuickDraw globals with Òqd.Ó (e.g. InitGraf(@qd.thePort); ) }
- var qd: QDGlobals; external name '_qd'; (* attribute const *)
- {$endc}
- {$ifc CALL_NOT_IN_CARBON}
- {
- * InitGraf()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure InitGraf(globalPtr: UnivPtr); external name '_InitGraf';
- {
- * OpenPort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure OpenPort(port: GrafPtr); external name '_OpenPort';
- {
- * InitPort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure InitPort(port: GrafPtr); external name '_InitPort';
- {
- * ClosePort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure ClosePort(port: GrafPtr); external name '_ClosePort';
- {
- These are Carbon only routines. They do nothing at all on
- Mac OS 8, but work flawlessly on Mac OS X.
- }
- {$endc} {CALL_NOT_IN_CARBON}
- {
- * LockPortBits()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LockPortBits(port: GrafPtr): OSErr; external name '_LockPortBits';
- {
- * UnlockPortBits()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function UnlockPortBits(port: GrafPtr): OSErr; external name '_UnlockPortBits';
- { Break a region up into rectangles. }
- const
- kQDParseRegionFromTop = $01;
- kQDParseRegionFromBottom = $02;
- kQDParseRegionFromLeft = $04;
- kQDParseRegionFromRight = $08;
- kQDParseRegionFromTopLeft = $05;
- kQDParseRegionFromBottomRight = $0A;
- type
- QDRegionParseDirection = SInt32;
- const
- kQDRegionToRectsMsgInit = 1;
- kQDRegionToRectsMsgParse = 2;
- kQDRegionToRectsMsgTerminate = 3;
- type
- {$ifc TYPED_FUNCTION_POINTERS}
- RegionToRectsProcPtr = function(message: UInt16; rgn: RgnHandle; const (*var*) rect_: Rect; refCon: UnivPtr): OSStatus;
- {$elsec}
- RegionToRectsProcPtr = ProcPtr;
- {$endc}
- {$ifc OPAQUE_UPP_TYPES}
- RegionToRectsUPP = ^SInt32; { an opaque UPP }
- {$elsec}
- RegionToRectsUPP = UniversalProcPtr;
- {$endc}
- const
- uppRegionToRectsProcInfo = $00003FB1;
- {
- * NewRegionToRectsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewRegionToRectsUPP(userRoutine: RegionToRectsProcPtr): RegionToRectsUPP; external name '_NewRegionToRectsUPP'; { old name was NewRegionToRectsProc }
- {
- * DisposeRegionToRectsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeRegionToRectsUPP(userUPP: RegionToRectsUPP); external name '_DisposeRegionToRectsUPP';
- {
- * InvokeRegionToRectsUPP()
- *
- * Availability:
- * Non-Carbon CFM: available as macro/inline
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function InvokeRegionToRectsUPP(message: UInt16; rgn: RgnHandle; const (*var*) rect_: Rect; refCon: UnivPtr; userRoutine: RegionToRectsUPP): OSStatus; external name '_InvokeRegionToRectsUPP'; { old name was CallRegionToRectsProc }
- {
- * QDRegionToRects()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDRegionToRects(rgn: RgnHandle; dir: QDRegionParseDirection; proc: RegionToRectsUPP; userData: UnivPtr): OSStatus; external name '_QDRegionToRects';
- {$ifc NOT TARGET_OS_MAC}
- {$ifc CALL_NOT_IN_CARBON}
- {
- * UpdatePort()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function UpdatePort(port: GrafPtr): OSErr; external name '_UpdatePort';
- {
- * GetPortNativeWindow()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetPortNativeWindow(macPort: GrafPtr): Ptr; external name '_GetPortNativeWindow';
- {
- * GetNativeWindowPort()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetNativeWindowPort(nativeWindow: UnivPtr): GrafPtr; external name '_GetNativeWindowPort';
- {
- * MacRegionToNativeRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function MacRegionToNativeRegion(macRegion: RgnHandle): Ptr; external name '_MacRegionToNativeRegion';
- {
- * NativeRegionToMacRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function NativeRegionToMacRegion(nativeRegion: UnivPtr): RgnHandle; external name '_NativeRegionToMacRegion';
- {$endc} {CALL_NOT_IN_CARBON}
- {$endc}
- {$ifc TARGET_OS_WIN32}
- {$ifc CALL_NOT_IN_CARBON}
- {
- * GetPortHWND()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetPortHWND(port: GrafPtr): Ptr; external name '_GetPortHWND';
- {
- * GetHWNDPort()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetHWNDPort(theHWND: UnivPtr): GrafPtr; external name '_GetHWNDPort';
- {
- * GetPortHDC()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetPortHDC(port: GrafPtr): Ptr; external name '_GetPortHDC';
- {
- * GetPortHBITMAP()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetPortHBITMAP(port: GrafPtr): Ptr; external name '_GetPortHBITMAP';
- {
- * GetPortHPALETTE()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetPortHPALETTE(port: GrafPtr): Ptr; external name '_GetPortHPALETTE';
- {
- * GetPortHFONT()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetPortHFONT(port: GrafPtr): Ptr; external name '_GetPortHFONT';
- {
- * GetDIBFromPICT()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetDIBFromPICT(hPict: PicHandle): Ptr; external name '_GetDIBFromPICT';
- {
- * GetPICTFromDIB()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- function GetPICTFromDIB(h: UnivPtr): PicHandle; external name '_GetPICTFromDIB';
- {$endc} {CALL_NOT_IN_CARBON}
- {$endc} {TARGET_OS_WIN32}
- {
- * [Mac]SetPort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPort(port: GrafPtr); external name '_SetPort';
- {
- * GetPort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetPort(var port: GrafPtr); external name '_GetPort';
- {
- * QDSwapPort()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.1 and later
- }
- function QDSwapPort(inNewPort: CGrafPtr; outOldPort: CGrafPtrPtr): boolean; external name '_QDSwapPort';
- {
- * GrafDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GrafDevice(device: SInt16); external name '_GrafDevice';
- {
- * SetPortBits()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortBits(const (*var*) bm: BitMap); external name '_SetPortBits';
- {
- * PortSize()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PortSize(width: SInt16; height: SInt16); external name '_PortSize';
- {
- * MovePortTo()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MovePortTo(leftGlobal: SInt16; topGlobal: SInt16); external name '_MovePortTo';
- {
- * SetOrigin()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetOrigin(h: SInt16; v: SInt16); external name '_SetOrigin';
- {
- * SetClip()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetClip(rgn: RgnHandle); external name '_SetClip';
- {
- * GetClip()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetClip(rgn: RgnHandle); external name '_GetClip';
- {
- * ClipRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ClipRect(const (*var*) r: Rect); external name '_ClipRect';
- {
- * BackPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure BackPat(const (*var*) pat: Pattern); external name '_BackPat';
- {
- * InitCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InitCursor; external name '_InitCursor';
- {
- * [Mac]SetCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetCursor(const (*var*) crsr: Cursor); external name '_SetCursor';
- {
- * HideCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure HideCursor; external name '_HideCursor';
- {
- * [Mac]ShowCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ShowCursor; external name '_ShowCursor';
- {
- * ObscureCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ObscureCursor; external name '_ObscureCursor';
- {
- * HidePen()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure HidePen; external name '_HidePen';
- {
- * ShowPen()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ShowPen; external name '_ShowPen';
- {
- * GetPen()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetPen(var pt: Point); external name '_GetPen';
- {
- * GetPenState()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetPenState(var pnState: PenState); external name '_GetPenState';
- {
- * SetPenState()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPenState(const (*var*) pnState: PenState); external name '_SetPenState';
- {
- * PenSize()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PenSize(width: SInt16; height: SInt16); external name '_PenSize';
- {
- * PenMode()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PenMode(mode: SInt16); external name '_PenMode';
- {
- * PenPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PenPat(const (*var*) pat: Pattern); external name '_PenPat';
- {
- * PenNormal()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PenNormal; external name '_PenNormal';
- {
- * MoveTo()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MoveTo(h: SInt16; v: SInt16); external name '_MoveTo';
- {
- * Move()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure Move(dh: SInt16; dv: SInt16); external name '_Move';
- {
- * [Mac]LineTo()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LineTo(h: SInt16; v: SInt16); external name '_LineTo';
- {
- * Line()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure Line(dh: SInt16; dv: SInt16); external name '_Line';
- {
- * ForeColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ForeColor(color: SInt32); external name '_ForeColor';
- {
- * BackColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure BackColor(color: SInt32); external name '_BackColor';
- {
- * ColorBit()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ColorBit(whichBit: SInt16); external name '_ColorBit';
- {
- * [Mac]SetRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetRect(var r: Rect; left: SInt16; top: SInt16; right: SInt16; bottom: SInt16); external name '_SetRect';
- {
- * [Mac]OffsetRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure OffsetRect(var r: Rect; dh: SInt16; dv: SInt16); external name '_OffsetRect';
- {
- * [Mac]InsetRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InsetRect(var r: Rect; dh: SInt16; dv: SInt16); external name '_InsetRect';
- {
- * SectRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function SectRect(const (*var*) src1: Rect; const (*var*) src2: Rect; var dstRect: Rect): boolean; external name '_SectRect';
- {
- * [Mac]UnionRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure UnionRect(const (*var*) src1: Rect; const (*var*) src2: Rect; var dstRect: Rect); external name '_UnionRect';
- {
- * [Mac]EqualRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function EqualRect(const (*var*) rect1: Rect; const (*var*) rect2: Rect): boolean; external name '_EqualRect';
- {
- * EmptyRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function EmptyRect(const (*var*) r: Rect): boolean; external name '_EmptyRect';
- {
- * [Mac]FrameRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FrameRect(const (*var*) r: Rect); external name '_FrameRect';
- {
- * PaintRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PaintRect(const (*var*) r: Rect); external name '_PaintRect';
- {
- * EraseRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure EraseRect(const (*var*) r: Rect); external name '_EraseRect';
- {
- * [Mac]InvertRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvertRect(const (*var*) r: Rect); external name '_InvertRect';
- {
- * [Mac]FillRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillRect(const (*var*) r: Rect; const (*var*) pat: Pattern); external name '_FillRect';
- {
- * FrameOval()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FrameOval(const (*var*) r: Rect); external name '_FrameOval';
- {
- * PaintOval()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PaintOval(const (*var*) r: Rect); external name '_PaintOval';
- {
- * EraseOval()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure EraseOval(const (*var*) r: Rect); external name '_EraseOval';
- {
- * InvertOval()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvertOval(const (*var*) r: Rect); external name '_InvertOval';
- {
- * FillOval()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillOval(const (*var*) r: Rect; const (*var*) pat: Pattern); external name '_FillOval';
- {
- * FrameRoundRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FrameRoundRect(const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16); external name '_FrameRoundRect';
- {
- * PaintRoundRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PaintRoundRect(const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16); external name '_PaintRoundRect';
- {
- * EraseRoundRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure EraseRoundRect(const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16); external name '_EraseRoundRect';
- {
- * InvertRoundRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvertRoundRect(const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16); external name '_InvertRoundRect';
- {
- * FillRoundRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillRoundRect(const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16; const (*var*) pat: Pattern); external name '_FillRoundRect';
- {
- * FrameArc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FrameArc(const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16); external name '_FrameArc';
- {
- * PaintArc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PaintArc(const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16); external name '_PaintArc';
- {
- * EraseArc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure EraseArc(const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16); external name '_EraseArc';
- {
- * InvertArc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvertArc(const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16); external name '_InvertArc';
- {
- * FillArc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillArc(const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16; const (*var*) pat: Pattern); external name '_FillArc';
- {
- * NewRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewRgn: RgnHandle; external name '_NewRgn';
- {
- * OpenRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure OpenRgn; external name '_OpenRgn';
- {
- * CloseRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CloseRgn(dstRgn: RgnHandle); external name '_CloseRgn';
- {
- * BitMapToRegion()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function BitMapToRegion(region: RgnHandle; const (*var*) bMap: BitMap): OSErr; external name '_BitMapToRegion';
- {
- * HandleToRgn()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.1 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure HandleToRgn(oldRegion: Handle; region: RgnHandle); external name '_HandleToRgn';
- {
- * RgnToHandle()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure RgnToHandle(region: RgnHandle; flattenedRgnDataHdl: Handle); external name '_RgnToHandle';
- {
- * DisposeRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeRgn(rgn: RgnHandle); external name '_DisposeRgn';
- {
- * [Mac]CopyRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CopyRgn(srcRgn: RgnHandle; dstRgn: RgnHandle); external name '_CopyRgn';
- {
- * SetEmptyRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetEmptyRgn(rgn: RgnHandle); external name '_SetEmptyRgn';
- {
- * [Mac]SetRectRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetRectRgn(rgn: RgnHandle; left: SInt16; top: SInt16; right: SInt16; bottom: SInt16); external name '_SetRectRgn';
- {
- * RectRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure RectRgn(rgn: RgnHandle; const (*var*) r: Rect); external name '_RectRgn';
- {
- * [Mac]OffsetRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure OffsetRgn(rgn: RgnHandle; dh: SInt16; dv: SInt16); external name '_OffsetRgn';
- {
- * InsetRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InsetRgn(rgn: RgnHandle; dh: SInt16; dv: SInt16); external name '_InsetRgn';
- {
- * SectRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SectRgn(srcRgnA: RgnHandle; srcRgnB: RgnHandle; dstRgn: RgnHandle); external name '_SectRgn';
- {
- * [Mac]UnionRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure UnionRgn(srcRgnA: RgnHandle; srcRgnB: RgnHandle; dstRgn: RgnHandle); external name '_UnionRgn';
- {
- * DiffRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DiffRgn(srcRgnA: RgnHandle; srcRgnB: RgnHandle; dstRgn: RgnHandle); external name '_DiffRgn';
- {
- * [Mac]XorRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure XorRgn(srcRgnA: RgnHandle; srcRgnB: RgnHandle; dstRgn: RgnHandle); external name '_XorRgn';
- {
- * RectInRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function RectInRgn(const (*var*) r: Rect; rgn: RgnHandle): boolean; external name '_RectInRgn';
- {
- * [Mac]EqualRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function EqualRgn(rgnA: RgnHandle; rgnB: RgnHandle): boolean; external name '_EqualRgn';
- {
- * EmptyRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function EmptyRgn(rgn: RgnHandle): boolean; external name '_EmptyRgn';
- {
- * [Mac]FrameRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FrameRgn(rgn: RgnHandle); external name '_FrameRgn';
- {
- * [Mac]PaintRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PaintRgn(rgn: RgnHandle); external name '_PaintRgn';
- {
- * EraseRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure EraseRgn(rgn: RgnHandle); external name '_EraseRgn';
- {
- * [Mac]InvertRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvertRgn(rgn: RgnHandle); external name '_InvertRgn';
- {
- * [Mac]FillRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillRgn(rgn: RgnHandle; const (*var*) pat: Pattern); external name '_FillRgn';
- {
- * ScrollRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ScrollRect(const (*var*) r: Rect; dh: SInt16; dv: SInt16; updateRgn: RgnHandle); external name '_ScrollRect';
- {
- * CopyBits()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CopyBits(const (*var*) srcBits: BitMap; const (*var*) dstBits: BitMap; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect; mode: SInt16; maskRgn: RgnHandle); external name '_CopyBits';
- {
- * SeedFill()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SeedFill(srcPtr: UnivPtr; dstPtr: UnivPtr; srcRow: SInt16; dstRow: SInt16; height: SInt16; words: SInt16; seedH: SInt16; seedV: SInt16); external name '_SeedFill';
- {
- * CalcMask()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CalcMask(srcPtr: UnivPtr; dstPtr: UnivPtr; srcRow: SInt16; dstRow: SInt16; height: SInt16; words: SInt16); external name '_CalcMask';
- {
- * CopyMask()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CopyMask(const (*var*) srcBits: BitMap; const (*var*) maskBits: BitMap; const (*var*) dstBits: BitMap; const (*var*) srcRect: Rect; const (*var*) maskRect: Rect; const (*var*) dstRect: Rect); external name '_CopyMask';
- {
- * OpenPicture()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function OpenPicture(const (*var*) picFrame: Rect): PicHandle; external name '_OpenPicture';
- {
- * PicComment()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PicComment(kind: SInt16; dataSize: SInt16; dataHandle: Handle); external name '_PicComment';
- {
- * ClosePicture()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ClosePicture; external name '_ClosePicture';
- {
- * DrawPicture()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DrawPicture(myPicture: PicHandle; const (*var*) dstRect: Rect); external name '_DrawPicture';
- {
- * KillPicture()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure KillPicture(myPicture: PicHandle); external name '_KillPicture';
- {
- * OpenPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function OpenPoly: PolyHandle; external name '_OpenPoly';
- {
- * ClosePoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ClosePoly; external name '_ClosePoly';
- {
- * KillPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure KillPoly(poly: PolyHandle); external name '_KillPoly';
- {
- * OffsetPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure OffsetPoly(poly: PolyHandle; dh: SInt16; dv: SInt16); external name '_OffsetPoly';
- {
- * FramePoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FramePoly(poly: PolyHandle); external name '_FramePoly';
- {
- * PaintPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PaintPoly(poly: PolyHandle); external name '_PaintPoly';
- {
- * ErasePoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ErasePoly(poly: PolyHandle); external name '_ErasePoly';
- {
- * InvertPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvertPoly(poly: PolyHandle); external name '_InvertPoly';
- {
- * FillPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillPoly(poly: PolyHandle; const (*var*) pat: Pattern); external name '_FillPoly';
- {
- * SetPt()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPt(var pt: Point; h: SInt16; v: SInt16); external name '_SetPt';
- {
- * LocalToGlobal()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LocalToGlobal(var pt: Point); external name '_LocalToGlobal';
- {
- * GlobalToLocal()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GlobalToLocal(var pt: Point); external name '_GlobalToLocal';
- {
- * Random()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function Random: SInt16; external name '_Random';
- {
- * StuffHex()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StuffHex(thingPtr: UnivPtr; const (*var*) s: Str255); external name '_StuffHex';
- {
- * [Mac]GetPixel()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPixel(h: SInt16; v: SInt16): boolean; external name '_GetPixel';
- {
- * ScalePt()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ScalePt(var pt: Point; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect); external name '_ScalePt';
- {
- * MapPt()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MapPt(var pt: Point; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect); external name '_MapPt';
- {
- * MapRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MapRect(var r: Rect; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect); external name '_MapRect';
- {
- * MapRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MapRgn(rgn: RgnHandle; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect); external name '_MapRgn';
- {
- * MapPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MapPoly(poly: PolyHandle; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect); external name '_MapPoly';
- {
- * SetStdProcs()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetStdProcs(var procs: QDProcs); external name '_SetStdProcs';
- {
- * StdRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdRect(verb: GrafVerb; const (*var*) r: Rect); external name '_StdRect';
- {
- * StdRRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdRRect(verb: GrafVerb; const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16); external name '_StdRRect';
- {
- * StdOval()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdOval(verb: GrafVerb; const (*var*) r: Rect); external name '_StdOval';
- {
- * StdArc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdArc(verb: GrafVerb; const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16); external name '_StdArc';
- {
- * StdPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdPoly(verb: GrafVerb; poly: PolyHandle); external name '_StdPoly';
- {
- * StdRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdRgn(verb: GrafVerb; rgn: RgnHandle); external name '_StdRgn';
- {
- * StdBits()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdBits(const (*var*) srcBits: BitMap; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect; mode: SInt16; maskRgn: RgnHandle); external name '_StdBits';
- {
- * StdComment()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdComment(kind: SInt16; dataSize: SInt16; dataHandle: Handle); external name '_StdComment';
- {
- * StdGetPic()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdGetPic(dataPtr: UnivPtr; byteCount: SInt16); external name '_StdGetPic';
- {
- * StdPutPic()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdPutPic(dataPtr: UnivPtr; byteCount: SInt16); external name '_StdPutPic';
- {
- * StdOpcode()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdOpcode(const (*var*) fromRect: Rect; const (*var*) toRect: Rect; opcode: UInt16; version: SInt16); external name '_StdOpcode';
- {
- * AddPt()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure AddPt(src: Point; var dst: Point); external name '_AddPt';
- {
- * EqualPt()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function EqualPt(pt1: Point; pt2: Point): boolean; external name '_EqualPt';
- {
- * [Mac]PtInRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function PtInRect(pt: Point; const (*var*) r: Rect): boolean; external name '_PtInRect';
- {
- * Pt2Rect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure Pt2Rect(pt1: Point; pt2: Point; var dstRect: Rect); external name '_Pt2Rect';
- {
- * PtToAngle()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PtToAngle(const (*var*) r: Rect; pt: Point; var angle: SInt16); external name '_PtToAngle';
- {
- * SubPt()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SubPt(src: Point; var dst: Point); external name '_SubPt';
- {
- * PtInRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function PtInRgn(pt: Point; rgn: RgnHandle): boolean; external name '_PtInRgn';
- {
- * StdLine()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure StdLine(newPt: Point); external name '_StdLine';
- {$ifc CALL_NOT_IN_CARBON}
- {
- * OpenCPort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure OpenCPort(port: CGrafPtr); external name '_OpenCPort';
- {
- * InitCPort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure InitCPort(port: CGrafPtr); external name '_InitCPort';
- {
- * CloseCPort()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure CloseCPort(port: CGrafPtr); external name '_CloseCPort';
- {$endc} {CALL_NOT_IN_CARBON}
- {
- * NewPixMap()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewPixMap: PixMapHandle; external name '_NewPixMap';
- {
- * DisposePixMap()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposePixMap(pm: PixMapHandle); external name '_DisposePixMap';
- {
- * CopyPixMap()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CopyPixMap(srcPM: PixMapHandle; dstPM: PixMapHandle); external name '_CopyPixMap';
- {
- * NewPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewPixPat: PixPatHandle; external name '_NewPixPat';
- {
- * DisposePixPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposePixPat(pp: PixPatHandle); external name '_DisposePixPat';
- {
- * CopyPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CopyPixPat(srcPP: PixPatHandle; dstPP: PixPatHandle); external name '_CopyPixPat';
- {
- * PenPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PenPixPat(pp: PixPatHandle); external name '_PenPixPat';
- {
- * BackPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure BackPixPat(pp: PixPatHandle); external name '_BackPixPat';
- {
- * GetPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPixPat(patID: SInt16): PixPatHandle; external name '_GetPixPat';
- {
- * MakeRGBPat()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MakeRGBPat(pp: PixPatHandle; const (*var*) myColor: RGBColor); external name '_MakeRGBPat';
- {
- * FillCRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillCRect(const (*var*) r: Rect; pp: PixPatHandle); external name '_FillCRect';
- {
- * FillCOval()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillCOval(const (*var*) r: Rect; pp: PixPatHandle); external name '_FillCOval';
- {
- * FillCRoundRect()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillCRoundRect(const (*var*) r: Rect; ovalWidth: SInt16; ovalHeight: SInt16; pp: PixPatHandle); external name '_FillCRoundRect';
- {
- * FillCArc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillCArc(const (*var*) r: Rect; startAngle: SInt16; arcAngle: SInt16; pp: PixPatHandle); external name '_FillCArc';
- {
- * FillCRgn()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillCRgn(rgn: RgnHandle; pp: PixPatHandle); external name '_FillCRgn';
- {
- * FillCPoly()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure FillCPoly(poly: PolyHandle; pp: PixPatHandle); external name '_FillCPoly';
- {
- * RGBForeColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure RGBForeColor(const (*var*) color: RGBColor); external name '_RGBForeColor';
- {
- * RGBBackColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure RGBBackColor(const (*var*) color: RGBColor); external name '_RGBBackColor';
- {
- * SetCPixel()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetCPixel(h: SInt16; v: SInt16; const (*var*) cPix: RGBColor); external name '_SetCPixel';
- {
- * SetPortPix()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortPix(pm: PixMapHandle); external name '_SetPortPix';
- {
- * GetCPixel()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetCPixel(h: SInt16; v: SInt16; var cPix: RGBColor); external name '_GetCPixel';
- {
- * GetForeColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetForeColor(var color: RGBColor); external name '_GetForeColor';
- {
- * GetBackColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetBackColor(var color: RGBColor); external name '_GetBackColor';
- {
- * SeedCFill()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SeedCFill(const (*var*) srcBits: BitMap; const (*var*) dstBits: BitMap; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect; seedH: SInt16; seedV: SInt16; matchProc: ColorSearchUPP; matchData: SInt32); external name '_SeedCFill';
- {
- * CalcCMask()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CalcCMask(const (*var*) srcBits: BitMap; const (*var*) dstBits: BitMap; const (*var*) srcRect: Rect; const (*var*) dstRect: Rect; const (*var*) seedRGB: RGBColor; matchProc: ColorSearchUPP; matchData: SInt32); external name '_CalcCMask';
- {
- * OpenCPicture()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function OpenCPicture(const (*var*) newHeader: OpenCPicParams): PicHandle; external name '_OpenCPicture';
- {
- * OpColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure OpColor(const (*var*) color: RGBColor); external name '_OpColor';
- {
- * HiliteColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure HiliteColor(const (*var*) color: RGBColor); external name '_HiliteColor';
- {
- * DisposeCTable()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeCTable(cTable: CTabHandle); external name '_DisposeCTable';
- {
- * GetCTable()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetCTable(ctID: SInt16): CTabHandle; external name '_GetCTable';
- {
- * GetCCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetCCursor(crsrID: SInt16): CCrsrHandle; external name '_GetCCursor';
- {
- * SetCCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetCCursor(cCrsr: CCrsrHandle); external name '_SetCCursor';
- {
- * AllocCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure AllocCursor; external name '_AllocCursor';
- {
- * DisposeCCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeCCursor(cCrsr: CCrsrHandle); external name '_DisposeCCursor';
- { GetCIcon(), PlotCIcon(), and DisposeCIcon() moved to Icons.h }
- {
- * SetStdCProcs()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetStdCProcs(var procs: CQDProcs); external name '_SetStdCProcs';
- {
- * GetMaxDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetMaxDevice(const (*var*) globalRect: Rect): GDHandle; external name '_GetMaxDevice';
- {
- * GetCTSeed()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetCTSeed: SInt32; external name '_GetCTSeed';
- {
- * GetDeviceList()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetDeviceList: GDHandle; external name '_GetDeviceList';
- {
- * GetMainDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetMainDevice: GDHandle; external name '_GetMainDevice';
- {
- * GetNextDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetNextDevice(curDevice: GDHandle): GDHandle; external name '_GetNextDevice';
- {
- * TestDeviceAttribute()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function TestDeviceAttribute(gdh: GDHandle; attribute: SInt16): boolean; external name '_TestDeviceAttribute';
- {
- * SetDeviceAttribute()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetDeviceAttribute(gdh: GDHandle; attribute: SInt16; value: boolean); external name '_SetDeviceAttribute';
- {
- * InitGDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InitGDevice(qdRefNum: SInt16; mode: SInt32; gdh: GDHandle); external name '_InitGDevice';
- {
- * NewGDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function NewGDevice(refNum: SInt16; mode: SInt32): GDHandle; external name '_NewGDevice';
- {
- * DisposeGDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposeGDevice(gdh: GDHandle); external name '_DisposeGDevice';
- {
- * SetGDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetGDevice(gd: GDHandle); external name '_SetGDevice';
- {
- * GetGDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetGDevice: GDHandle; external name '_GetGDevice';
- {
- * Color2Index()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function Color2Index(const (*var*) myColor: RGBColor): SInt32; external name '_Color2Index';
- {
- * Index2Color()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure Index2Color(index: SInt32; var aColor: RGBColor); external name '_Index2Color';
- {
- * InvertColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure InvertColor(var myColor: RGBColor); external name '_InvertColor';
- {
- * RealColor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function RealColor(const (*var*) color: RGBColor): boolean; external name '_RealColor';
- {
- * GetSubTable()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetSubTable(myColors: CTabHandle; iTabRes: SInt16; targetTbl: CTabHandle); external name '_GetSubTable';
- {
- * MakeITable()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure MakeITable(cTabH: CTabHandle; iTabH: ITabHandle; res: SInt16); external name '_MakeITable';
- {
- * AddSearch()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure AddSearch(searchProc: ColorSearchUPP); external name '_AddSearch';
- {
- * AddComp()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure AddComp(compProc: ColorComplementUPP); external name '_AddComp';
- {
- * DelSearch()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DelSearch(searchProc: ColorSearchUPP); external name '_DelSearch';
- {
- * DelComp()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DelComp(compProc: ColorComplementUPP); external name '_DelComp';
- {
- * SetClientID()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetClientID(id: SInt16); external name '_SetClientID';
- {
- * ProtectEntry()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ProtectEntry(index: SInt16; protect: boolean); external name '_ProtectEntry';
- {
- * ReserveEntry()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ReserveEntry(index: SInt16; reserve: boolean); external name '_ReserveEntry';
- {
- * SetEntries()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetEntries(start: SInt16; count: SInt16; var aTable: CSpecArray); external name '_SetEntries';
- {
- * SaveEntries()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SaveEntries(srcTable: CTabHandle; resultTable: CTabHandle; var selection: ReqListRec); external name '_SaveEntries';
- {
- * RestoreEntries()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure RestoreEntries(srcTable: CTabHandle; dstTable: CTabHandle; var selection: ReqListRec); external name '_RestoreEntries';
- {
- * QDError()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDError: SInt16; external name '_QDError';
- {
- * CopyDeepMask()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure CopyDeepMask(const (*var*) srcBits: BitMap; const (*var*) maskBits: BitMap; const (*var*) dstBits: BitMap; const (*var*) srcRect: Rect; const (*var*) maskRect: Rect; const (*var*) dstRect: Rect; mode: SInt16; maskRgn: RgnHandle); external name '_CopyDeepMask';
- {
- * DeviceLoop()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DeviceLoop(drawingRgn: RgnHandle; drawingProc: DeviceLoopDrawingUPP; userData: SInt32; flags: DeviceLoopFlags); external name '_DeviceLoop';
- {
- * GetMaskTable()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetMaskTable: Ptr; external name '_GetMaskTable';
- {
- * GetPattern()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPattern(patternID: SInt16): PatHandle; external name '_GetPattern';
- {
- * [Mac]GetCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetCursor(cursorID: SInt16): CursHandle; external name '_GetCursor';
- {
- * GetPicture()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPicture(pictureID: SInt16): PicHandle; external name '_GetPicture';
- {
- * DeltaPoint()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function DeltaPoint(ptA: Point; ptB: Point): SInt32; external name '_DeltaPoint';
- {
- * ShieldCursor()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ShieldCursor(const (*var*) shieldRect: Rect; offsetPt: Point); external name '_ShieldCursor';
- {
- * ScreenRes()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure ScreenRes(var scrnHRes: SInt16; var scrnVRes: SInt16); external name '_ScreenRes';
- {
- * GetIndPattern()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure GetIndPattern(var thePat: Pattern; patternListID: SInt16; index: SInt16); external name '_GetIndPattern';
- {$ifc OLDROUTINENAMES}
- {$ifc CALL_NOT_IN_CARBON}
- {
- * DisposPixMap()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure DisposPixMap(pm: PixMapHandle); external name '_DisposPixMap';
- {
- * DisposPixPat()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure DisposPixPat(pp: PixPatHandle); external name '_DisposPixPat';
- {
- * DisposCTable()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure DisposCTable(cTable: CTabHandle); external name '_DisposCTable';
- {
- * DisposCCursor()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure DisposCCursor(cCrsr: CCrsrHandle); external name '_DisposCCursor';
- {
- * DisposGDevice()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure DisposGDevice(gdh: GDHandle); external name '_DisposGDevice';
- {$endc} {CALL_NOT_IN_CARBON}
- {$endc} {OLDROUTINENAMES}
- {
- From ToolUtils.i
- }
- {
- * PackBits()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure PackBits(var srcPtr: Ptr; var dstPtr: Ptr; srcBytes: SInt16); external name '_PackBits';
- {
- * UnpackBits()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure UnpackBits(var srcPtr: Ptr; var dstPtr: Ptr; dstBytes: SInt16); external name '_UnpackBits';
- {
- * SlopeFromAngle()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function SlopeFromAngle(angle: SInt16): Fixed; external name '_SlopeFromAngle';
- {
- * AngleFromSlope()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function AngleFromSlope(slope: Fixed): SInt16; external name '_AngleFromSlope';
- { New transfer modes }
- const
- colorXorXFer = 52;
- noiseXFer = 53;
- customXFer = 54;
- { Custom XFer flags }
- kXFer1PixelAtATime = $00000001; { 1 pixel passed to custom XFer proc }
- kXFerConvertPixelToRGB32 = $00000002; { All color depths converted to 32 bit RGB }
- type
- CustomXFerRecPtr = ^CustomXFerRec;
- CustomXFerRec = record
- version: UInt32;
- srcPixels: Ptr;
- destPixels: Ptr;
- resultPixels: Ptr;
- refCon: UInt32;
- pixelSize: UInt32;
- pixelCount: UInt32;
- firstPixelHV: Point;
- destBounds: Rect;
- end;
- {$ifc TYPED_FUNCTION_POINTERS}
- CustomXFerProcPtr = procedure(info: CustomXFerRecPtr);
- {$elsec}
- CustomXFerProcPtr = ProcPtr;
- {$endc}
- {
- * GetPortCustomXFerProc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 9.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortCustomXFerProc(port: CGrafPtr; var proc: CustomXFerProcPtr; var flags: UInt32; var refCon: UInt32): OSErr; external name '_GetPortCustomXFerProc';
- {
- * SetPortCustomXFerProc()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 9.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function SetPortCustomXFerProc(port: CGrafPtr; proc: CustomXFerProcPtr; flags: UInt32; refCon: UInt32): OSErr; external name '_SetPortCustomXFerProc';
- const
- kCursorComponentsVersion = $00010001;
- kCursorComponentType = $63757273 (* 'curs' *);
- { Cursor Component capabilities flags }
- cursorDoesAnimate = $00000001;
- cursorDoesHardware = $00000002;
- cursorDoesUnreadableScreenBits = $00000004;
- { Cursor Component output mode flags }
- kRenderCursorInHardware = $00000001;
- kRenderCursorInSoftware = $00000002;
- { Cursor Component Info }
- type
- CursorInfoPtr = ^CursorInfo;
- CursorInfo = record
- version: SInt32; { use kCursorComponentsVersion }
- capabilities: SInt32;
- animateDuration: SInt32; { approximate time between animate tickles }
- bounds: Rect;
- hotspot: Point;
- reserved: SInt32; { must set to zero }
- end;
- { Cursor Component Selectors }
- const
- kCursorComponentInit = $0001;
- kCursorComponentGetInfo = $0002;
- kCursorComponentSetOutputMode = $0003;
- kCursorComponentSetData = $0004;
- kCursorComponentReconfigure = $0005;
- kCursorComponentDraw = $0006;
- kCursorComponentErase = $0007;
- kCursorComponentMove = $0008;
- kCursorComponentAnimate = $0009;
- kCursorComponentLastReserved = $0050;
- {
- * OpenCursorComponent()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 9.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function OpenCursorComponent(c: Component; var ci: ComponentInstance): OSErr; external name '_OpenCursorComponent';
- {
- * CloseCursorComponent()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 9.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function CloseCursorComponent(ci: ComponentInstance): OSErr; external name '_CloseCursorComponent';
- {
- * SetCursorComponent()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 9.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function SetCursorComponent(ci: ComponentInstance): OSErr; external name '_SetCursorComponent';
- {
- * CursorComponentChanged()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 9.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function CursorComponentChanged(ci: ComponentInstance): OSErr; external name '_CursorComponentChanged';
- {
- * CursorComponentSetData()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 9.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function CursorComponentSetData(ci: ComponentInstance; data: SInt32): OSErr; external name '_CursorComponentSetData';
- { Available in CarbonLib... }
- {
- * IsValidPort()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.1 and later
- * Mac OS X: in version 10.0 and later
- }
- function IsValidPort(port: CGrafPtr): boolean; external name '_IsValidPort';
- {$ifc ACCESSOR_CALLS_ARE_FUNCTIONS}
- { GrafPort }
- { Getters }
- {
- * GetPortPixMap()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortPixMap(port: CGrafPtr): PixMapHandle; external name '_GetPortPixMap';
- {
- * GetPortBitMapForCopyBits()
- *
- * Discussion:
- * GetPortBitMapForCopyBits is provided for the specific purpose of
- * using the return value as a parameter to CopyBits. The return
- * value can be used as the srcBits or dstBits parameter to CopyBits
- * regardless of whether the port is color. If the port parameter is
- * a color port, however, the returned BitMapPtr does not actually
- * point to a BitMap; it points to the PixMapHandle and other fields
- * in the CGrafPort structure. You should not dereference the
- * BitMapPtr or otherwise depend on its contents unless you've
- * confirmed that this port is a non-color port.
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0.2 and later
- * CarbonLib: in CarbonLib 1.0.2 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortBitMapForCopyBits(port: CGrafPtr): BitMapPtr; external name '_GetPortBitMapForCopyBits';
- {
- * GetPortBounds()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortBounds(port: CGrafPtr; var rect_: Rect): RectPtr; external name '_GetPortBounds';
- {
- * GetPortForeColor()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortForeColor(port: CGrafPtr; var foreColor: RGBColor): RGBColorPtr; external name '_GetPortForeColor';
- {
- * GetPortBackColor()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortBackColor(port: CGrafPtr; var backColor: RGBColor): RGBColorPtr; external name '_GetPortBackColor';
- {
- * GetPortOpColor()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortOpColor(port: CGrafPtr; var opColor: RGBColor): RGBColorPtr; external name '_GetPortOpColor';
- {
- * GetPortHiliteColor()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortHiliteColor(port: CGrafPtr; var hiliteColor: RGBColor): RGBColorPtr; external name '_GetPortHiliteColor';
- {
- * GetPortGrafProcs()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortGrafProcs(port: CGrafPtr): CQDProcsPtr; external name '_GetPortGrafProcs';
- {
- * GetPortTextFont()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortTextFont(port: CGrafPtr): SInt16; external name '_GetPortTextFont';
- {
- * GetPortTextFace()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortTextFace(port: CGrafPtr): ByteParameter; external name '_GetPortTextFace';
- {
- * GetPortTextMode()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortTextMode(port: CGrafPtr): SInt16; external name '_GetPortTextMode';
- {
- * GetPortTextSize()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortTextSize(port: CGrafPtr): SInt16; external name '_GetPortTextSize';
- {
- * GetPortChExtra()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortChExtra(port: CGrafPtr): SInt16; external name '_GetPortChExtra';
- {
- * GetPortFracHPenLocation()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortFracHPenLocation(port: CGrafPtr): SInt16; external name '_GetPortFracHPenLocation';
- {
- * GetPortSpExtra()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortSpExtra(port: CGrafPtr): Fixed; external name '_GetPortSpExtra';
- {
- * GetPortPenVisibility()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortPenVisibility(port: CGrafPtr): SInt16; external name '_GetPortPenVisibility';
- {
- * GetPortVisibleRegion()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortVisibleRegion(port: CGrafPtr; visRgn: RgnHandle): RgnHandle; external name '_GetPortVisibleRegion';
- {
- * GetPortClipRegion()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortClipRegion(port: CGrafPtr; clipRgn: RgnHandle): RgnHandle; external name '_GetPortClipRegion';
- {
- * GetPortBackPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortBackPixPat(port: CGrafPtr; backPattern: PixPatHandle): PixPatHandle; external name '_GetPortBackPixPat';
- {
- * GetPortPenPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortPenPixPat(port: CGrafPtr; penPattern: PixPatHandle): PixPatHandle; external name '_GetPortPenPixPat';
- {
- * GetPortFillPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortFillPixPat(port: CGrafPtr; fillPattern: PixPatHandle): PixPatHandle; external name '_GetPortFillPixPat';
- {
- * GetPortPenSize()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortPenSize(port: CGrafPtr; var penSize: Point): PointPtr; external name '_GetPortPenSize';
- {
- * GetPortPenMode()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortPenMode(port: CGrafPtr): SInt32; external name '_GetPortPenMode';
- {
- * GetPortPenLocation()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPortPenLocation(port: CGrafPtr; var penLocation: Point): PointPtr; external name '_GetPortPenLocation';
- {
- * IsPortRegionBeingDefined()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function IsPortRegionBeingDefined(port: CGrafPtr): boolean; external name '_IsPortRegionBeingDefined';
- {
- * IsPortPictureBeingDefined()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function IsPortPictureBeingDefined(port: CGrafPtr): boolean; external name '_IsPortPictureBeingDefined';
- {
- * IsPortPolyBeingDefined()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.3 and later
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.0 and later
- }
- function IsPortPolyBeingDefined(port: CGrafPtr): boolean; external name '_IsPortPolyBeingDefined';
- {
- * IsPortOffscreen()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function IsPortOffscreen(port: CGrafPtr): boolean; external name '_IsPortOffscreen';
- {
- * IsPortColor()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0.2 and later
- * CarbonLib: in CarbonLib 1.0.2 and later
- * Mac OS X: in version 10.0 and later
- }
- function IsPortColor(port: CGrafPtr): boolean; external name '_IsPortColor';
- {
- * IsPortVisibleRegionEmpty()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.1 and later
- }
- function IsPortVisibleRegionEmpty(port: CGrafPtr): boolean; external name '_IsPortVisibleRegionEmpty';
- {
- * IsPortClipRegionEmpty()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.1 and later
- }
- function IsPortClipRegionEmpty(port: CGrafPtr): boolean; external name '_IsPortClipRegionEmpty';
- {
- * SectRegionWithPortClipRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure SectRegionWithPortClipRegion(port: CGrafPtr; ioRegion: RgnHandle); external name '_SectRegionWithPortClipRegion';
- {
- * SectRegionWithPortVisibleRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure SectRegionWithPortVisibleRegion(port: CGrafPtr; ioRegion: RgnHandle); external name '_SectRegionWithPortVisibleRegion';
- { Swappers }
- {
- * SwapPortPicSaveHandle()
- *
- * Summary:
- * Sets the port's picSave Handle, and returns the previous picSave
- *
- * Discussion:
- * Historically, the picSave field in a GrafPort is != NULL if a
- * Picture is being defined; and it has been documented that picture
- * definition can be temporarily suspended by saving the current
- * picSave Handle and setting picSave to NULL. Restoring the saved
- * picSave Handle resumes picture definition.
- *
- * Parameters:
- *
- * port:
- * The port whose picSave field is being swapped.
- *
- * inPicSaveHdl:
- * The picSave Handle to be set.
- *
- * Result:
- * The previous picSave Handle in the port.
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.1 and later
- }
- function SwapPortPicSaveHandle(port: CGrafPtr; inPicSaveHdl: Handle): Handle; external name '_SwapPortPicSaveHandle';
- { Similarly: }
- {
- * SwapPortPolySaveHandle()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.6 and later
- * Mac OS X: in version 10.2 and later
- }
- function SwapPortPolySaveHandle(port: CGrafPtr; inPolySaveHdl: Handle): Handle; external name '_SwapPortPolySaveHandle';
- {
- * SwapPortRegionSaveHandle()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.6 and later
- * Mac OS X: in version 10.2 and later
- }
- function SwapPortRegionSaveHandle(port: CGrafPtr; inRegionSaveHdl: Handle): Handle; external name '_SwapPortRegionSaveHandle';
- { Setters }
- {
- * SetPortBounds()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortBounds(port: CGrafPtr; const (*var*) rect_: Rect); external name '_SetPortBounds';
- {
- * SetPortOpColor()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortOpColor(port: CGrafPtr; const (*var*) opColor: RGBColor); external name '_SetPortOpColor';
- {
- * SetPortGrafProcs()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortGrafProcs(port: CGrafPtr; procs: CQDProcsPtr); external name '_SetPortGrafProcs';
- {
- * SetPortTextFont()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure SetPortTextFont(port: CGrafPtr; txFont: SInt16); external name '_SetPortTextFont';
- {
- * SetPortTextSize()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure SetPortTextSize(port: CGrafPtr; txSize: SInt16); external name '_SetPortTextSize';
- {
- * SetPortTextFace()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure SetPortTextFace(port: CGrafPtr; face: StyleParameter); external name '_SetPortTextFace';
- {
- * SetPortTextMode()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure SetPortTextMode(port: CGrafPtr; mode: SInt16); external name '_SetPortTextMode';
- {
- * SetPortVisibleRegion()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortVisibleRegion(port: CGrafPtr; visRgn: RgnHandle); external name '_SetPortVisibleRegion';
- {
- * SetPortClipRegion()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortClipRegion(port: CGrafPtr; clipRgn: RgnHandle); external name '_SetPortClipRegion';
- {
- * SetPortPenPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortPenPixPat(port: CGrafPtr; penPattern: PixPatHandle); external name '_SetPortPenPixPat';
- {
- * SetPortFillPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.2 and later
- * CarbonLib: in CarbonLib 1.2 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortFillPixPat(port: CGrafPtr; penPattern: PixPatHandle); external name '_SetPortFillPixPat';
- {
- * SetPortBackPixPat()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortBackPixPat(port: CGrafPtr; backPattern: PixPatHandle); external name '_SetPortBackPixPat';
- {
- * SetPortPenSize()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortPenSize(port: CGrafPtr; penSize: Point); external name '_SetPortPenSize';
- {
- * SetPortPenMode()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortPenMode(port: CGrafPtr; penMode: SInt32); external name '_SetPortPenMode';
- {
- * SetPortFracHPenLocation()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetPortFracHPenLocation(port: CGrafPtr; pnLocHFrac: SInt16); external name '_SetPortFracHPenLocation';
- { PixMap }
- {
- * GetPixBounds()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPixBounds(pixMap: PixMapHandle; var bounds: Rect): RectPtr; external name '_GetPixBounds';
- {
- * GetPixDepth()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetPixDepth(pixMap: PixMapHandle): SInt16; external name '_GetPixDepth';
- { QDGlobals }
- { Getters }
- {
- * GetQDGlobalsRandomSeed()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsRandomSeed: SInt32; external name '_GetQDGlobalsRandomSeed';
- {
- * GetQDGlobalsScreenBits()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsScreenBits(var screenBits: BitMap): BitMapPtr; external name '_GetQDGlobalsScreenBits';
- {
- * GetQDGlobalsArrow()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsArrow(var arrow: Cursor): CursorPtr; external name '_GetQDGlobalsArrow';
- {
- * GetQDGlobalsDarkGray()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsDarkGray(var dkGray: Pattern): PatternPtr; external name '_GetQDGlobalsDarkGray';
- {
- * GetQDGlobalsLightGray()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsLightGray(var ltGray: Pattern): PatternPtr; external name '_GetQDGlobalsLightGray';
- {
- * GetQDGlobalsGray()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsGray(var gray: Pattern): PatternPtr; external name '_GetQDGlobalsGray';
- {
- * GetQDGlobalsBlack()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsBlack(var black: Pattern): PatternPtr; external name '_GetQDGlobalsBlack';
- {
- * GetQDGlobalsWhite()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsWhite(var white: Pattern): PatternPtr; external name '_GetQDGlobalsWhite';
- {
- * GetQDGlobalsThePort()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetQDGlobalsThePort: CGrafPtr; external name '_GetQDGlobalsThePort';
- { Setters }
- {
- * SetQDGlobalsRandomSeed()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetQDGlobalsRandomSeed(randomSeed: SInt32); external name '_SetQDGlobalsRandomSeed';
- {
- * SetQDGlobalsArrow()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetQDGlobalsArrow(const (*var*) arrow: Cursor); external name '_SetQDGlobalsArrow';
- { Regions }
- {
- * GetRegionBounds()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function GetRegionBounds(region: RgnHandle; var bounds: Rect): RectPtr; external name '_GetRegionBounds';
- {
- * IsRegionRectangular()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function IsRegionRectangular(region: RgnHandle): boolean; external name '_IsRegionRectangular';
- { Utilities }
- { To prevent upward dependencies, GetWindowFromPort() is defined in Window Manager interface: }
- { pascal WindowRef GetWindowFromPort(CGrafPtr port); }
- { NewPtr/OpenCPort doesn't work with opaque structures }
- {
- * CreateNewPort()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function CreateNewPort: CGrafPtr; external name '_CreateNewPort';
- {
- * DisposePort()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure DisposePort(port: CGrafPtr); external name '_DisposePort';
- {
- * SetQDError()
- *
- * Availability:
- * Non-Carbon CFM: in CarbonAccessors.o 1.0.2 and later
- * CarbonLib: in CarbonLib 1.0.2 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure SetQDError(err: OSErr); external name '_SetQDError';
- {$endc} {ACCESSOR_CALLS_ARE_FUNCTIONS}
- { Helpful Carbon-only utilities (finally made public) }
- {
- * QDLocalToGlobalPoint()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDLocalToGlobalPoint(port: CGrafPtr; var point_: Point): PointPtr; external name '_QDLocalToGlobalPoint';
- {
- * QDGlobalToLocalPoint()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDGlobalToLocalPoint(port: CGrafPtr; var point_: Point): PointPtr; external name '_QDGlobalToLocalPoint';
- {
- * QDLocalToGlobalRect()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDLocalToGlobalRect(port: CGrafPtr; var bounds: Rect): RectPtr; external name '_QDLocalToGlobalRect';
- {
- * QDGlobalToLocalRect()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDGlobalToLocalRect(port: CGrafPtr; var bounds: Rect): RectPtr; external name '_QDGlobalToLocalRect';
- {
- * QDLocalToGlobalRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDLocalToGlobalRegion(port: CGrafPtr; region: RgnHandle): RgnHandle; external name '_QDLocalToGlobalRegion';
- {
- * QDGlobalToLocalRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDGlobalToLocalRegion(port: CGrafPtr; region: RgnHandle): RgnHandle; external name '_QDGlobalToLocalRegion';
- {
- Routines available on Mac OS X to flush buffered window ports...
- These calls do nothing on Mac OS 8/9. QDIsPortBuffered will always return false there.
- }
- {
- * QDIsPortBuffered()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0.2 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDIsPortBuffered(port: CGrafPtr): boolean; external name '_QDIsPortBuffered';
- {
- * QDIsPortBufferDirty()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0.2 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDIsPortBufferDirty(port: CGrafPtr): boolean; external name '_QDIsPortBufferDirty';
- {
- * QDFlushPortBuffer()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0.2 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure QDFlushPortBuffer(port: CGrafPtr; region: RgnHandle); external name '_QDFlushPortBuffer';
- {
- * QDGetDirtyRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.1 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDGetDirtyRegion(port: CGrafPtr; rgn: RgnHandle): OSStatus; external name '_QDGetDirtyRegion';
- {
- * QDSetDirtyRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.1 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDSetDirtyRegion(port: CGrafPtr; rgn: RgnHandle): OSStatus; external name '_QDSetDirtyRegion';
- {
- * QDAddRectToDirtyRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDAddRectToDirtyRegion(inPort: CGrafPtr; const (*var*) inBounds: Rect): OSStatus; external name '_QDAddRectToDirtyRegion';
- {
- * QDAddRegionToDirtyRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.5 and later
- * Mac OS X: in version 10.0 and later
- }
- function QDAddRegionToDirtyRegion(inPort: CGrafPtr; inRegion: RgnHandle): OSStatus; external name '_QDAddRegionToDirtyRegion';
- {
- * CreateCGContextForPort()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function CreateCGContextForPort(inPort: CGrafPtr; var outContext: CGContextRef): OSStatus; external name '_CreateCGContextForPort';
- {
- * ClipCGContextToRegion()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function ClipCGContextToRegion(gc: CGContextRef; const (*var*) portRect: Rect; region: RgnHandle): OSStatus; external name '_ClipCGContextToRegion';
- {
- * SyncCGContextOriginWithPort()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function SyncCGContextOriginWithPort(inContext: CGContextRef; port: CGrafPtr): OSStatus; external name '_SyncCGContextOriginWithPort';
- {
- * QDBeginCGContext()
- *
- * Summary:
- * Allow CoreGraphics drawing in a CGrafPort
- *
- * Discussion:
- * So far, CreateCGContextForPort() was used to create a CGContext
- * for CG drawing from a CGrafPort. However, if the current port is
- * a printing port, the CreateCGContextForPort fails; consequently,
- * there was no way to mix Quickdraw and CoreGraphics drawing and
- * still print it. If, instead, the CoreGraphics drawing is
- * bracketed by QDBeginCGContext/QDEndCGContext calls, the drawing
- * will also appear in print. There are some restrictions on the
- * usage of QDBeginCGContext/QDEndCGContext:
- * - Between QDBeginCGContext and QDEndCGContext, Quickdraw drawing
- * is disabled; only CoreGraphics drawing is allowed
- * - QDBeginCGContext/QDEndCGContext calls can not be nested
- * - QDEndCGContext releases the CGContext returned from
- * QDBeginCGContext and sets it to NULL.
- *
- * Parameters:
- *
- * inPort:
- * The current port
- *
- * outContext:
- * The CGContextRef to be used for CG drawing
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.1 and later
- * Mac OS X: in version 10.1 and later
- }
- function QDBeginCGContext(inPort: CGrafPtr; var outContext: CGContextRef): OSStatus; external name '_QDBeginCGContext';
- {
- * QDEndCGContext()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.1 and later
- * Mac OS X: in version 10.1 and later
- }
- function QDEndCGContext(inPort: CGrafPtr; var inoutContext: CGContextRef): OSStatus; external name '_QDEndCGContext';
- {
- The following routines are implemented in CarbonLib, and on Mac OS X in QD proper.
- They save the pixel data of a region in a packed format for quick save/restore
- without using a lot of memory to do a large, hollow region, such as the region
- used when drag hiliting (which is where this is used).
- }
- type
- QDRegionBitsRef = ^SInt32; { an opaque 32-bit type }
- QDRegionBitsRefPtr = ^QDRegionBitsRef; { when a var xx:QDRegionBitsRef parameter can be nil, it is changed to xx: QDRegionBitsRefPtr }
- {
- * QDSaveRegionBits()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.1 and later
- }
- function QDSaveRegionBits(region: RgnHandle): QDRegionBitsRef; external name '_QDSaveRegionBits';
- {
- * QDRestoreRegionBits()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.1 and later
- }
- function QDRestoreRegionBits(region: RgnHandle; regionBits: QDRegionBitsRef): OSStatus; external name '_QDRestoreRegionBits';
- {
- * QDDisposeRegionBits()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.1 and later
- }
- function QDDisposeRegionBits(regionBits: QDRegionBitsRef): OSStatus; external name '_QDDisposeRegionBits';
- {
- Developers need a way to go from a CGDirectDisplay environment to Quickdraw.
- The following is equivalent to CreateNewPort(), but instead of taking the
- portPixMap from the current GDevice, it uses the GDevice corresponding to
- the CGSDisplayID passed in. If the CGSDisplayID is invalid, the mainDevice
- is used instead.
- }
- {
- * CreateNewPortForCGDisplayID()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function CreateNewPortForCGDisplayID(inCGDisplayID: UInt32): CGrafPtr; external name '_CreateNewPortForCGDisplayID';
- {
- In Mac OS X, developers should be able to turn the WaitCursor (spinning wheel)
- on and off. QDDisplayWaitCursor() keeps track of nested calls.
- Passing FALSE will resume automatic wait cursor operation.
- Call this function only from an application in the foreground.
- }
- {
- * QDDisplayWaitCursor()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure QDDisplayWaitCursor(forceWaitCursor: boolean); external name '_QDDisplayWaitCursor';
- {
- * QDSetPatternOrigin()
- *
- * Summary:
- * Sets the pattern origin for the current port.
- *
- * Discussion:
- * When a QuickDraw drawing operation uses a pattern (either a
- * black&white pattern or a PixPat), the pattern's image is aligned
- * with port origin, modified by the pattern origin of the port. For
- * example, if the background pattern is a 10x10 image, and a
- * rectangle with coordinates (3, 3, 10, 10) is filled with that
- * pattern, then only the bottom right 7x7 portion of the pattern
- * image will be drawn into the rectangle. When drawing a pattern,
- * QuickDraw always starts with the port origin and then adjusts it
- * by the pattern origin to determine the actual origin point of
- * pattern drawing. QDSetPatternOrigin can be used to set the
- * pattern origin relative to the port origin. It is often used in
- * conjuction with SetOrigin to maintain the pattern alignment at
- * (0,0) in a window's content area, regardless of the port origin;
- * for example, after changing the port's origin to (10,10), an
- * application might change the port's pattern origin to (-10, -10)
- * so that patterns are still aligned with the window's content area.
- *
- * Parameters:
- *
- * origin:
- * The new pattern origin of the port.
- *
- * Availability:
- * Non-Carbon CFM: in NQD 8.5 and later
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure QDSetPatternOrigin(origin: Point); external name '_QDSetPatternOrigin';
- {
- * QDGetPatternOrigin()
- *
- * Summary:
- * Returns the pattern origin of the current port.
- *
- * Parameters:
- *
- * origin:
- * On exit, contains the current port's pattern origin.
- *
- * Availability:
- * Non-Carbon CFM: in NQD 8.5 and later
- * CarbonLib: in CarbonLib 1.3 and later
- * Mac OS X: in version 10.1 and later
- }
- procedure QDGetPatternOrigin(var origin: Point); external name '_QDGetPatternOrigin';
- {
- * QDIsNamedPixMapCursorRegistered()
- *
- * Summary:
- * Returns whether a named cursor has already been registered.
- *
- * Discussion:
- * The CoreGraphics Scalable Cursor Registry provides support for
- * cursors based on PixMaps for crsrData and crsrMask, with sizes up
- * to 64x64 pixels. Such cursors need to be registered via
- * QDRegisterNamedPixMapCursor, and can then be set by
- * QDSetNamedPixMapCursor.
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * name:
- * (see below at QDRegisterNamedPixMapCursor)
- *
- * Availability:
- * Mac OS X: in version 10.2 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER
- function QDIsNamedPixMapCursorRegistered( name: ConstCStringPtr ): Boolean; external name '_QDIsNamedPixMapCursorRegistered';
- {
- * QDRegisterNamedPixMapCursor()
- *
- * Summary:
- * Register a new cursor by name
- *
- * Discussion:
- * In order to set a PixMapCursor, it needs to be registered first
- * by name. This only succeeds if the system supports Hardware
- * Cursors (depending on video circuits). There is also the obvious
- * companion function QDUnregisterNamedPixMapCursor. NOTE: The
- * original implementation of QDUnregisterNamedPixMapCursor was
- * misspelled "QDUnregisterNamedPixMapCursur".
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * crsrData:
- * A PixMapHandle representing the cursor pixels. If the
- * pixelDepth is 32, the crsrMask PixMapHandle can be NULL; in
- * this case, the alpha channel in the ARGB PixMap is used as
- * mask. If a crsrMask is provided, the alpha channel in crsrData
- * is ignored. The pixelDepth can be any of 1, 2, 4, 8, 16 or 32.
- *
- * crsrMask:
- * A PixMapHandle representing the mask. It is assumed to be in
- * 8-bit deep grayScale format, although other depths are accepted
- * and converted to 8-bit grayScale (using CopyBits). The
- * (**crsrMask).bounds rectangle needs to match
- * (**crsrData).bounds. If the crsrData are 32-bit deep, crsrMask
- * can be NULL, and the alpha bytes in the crsrData ARGB pixels
- * are used as mask.
- *
- * hotSpot:
- * The usual cursor hotspot, in coordinates relativ to
- * (**crsrData).bounds.topLeft.
- *
- * name:
- * A naming convention involving the name of your application and
- * descriptive cursor names or resource IDs is suggested. Cursor
- * names are 0-terminated C-strings up to a length of 127. $result
- * OSStatus: noErr = 0 for success, or (constants from
- * MacErrors.h): kQDNoColorHWCursorSupport,
- * kQDCursorAlreadyRegistered, paramErr, memFullErr, or a CGError
- * as returned internally from CoreGraphics.
- *
- * Availability:
- * Mac OS X: in version 10.2 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER
- function QDRegisterNamedPixMapCursor( crsrData: PixMapHandle; crsrMask: PixMapHandle; hotSpot: Point; name: ConstCStringPtr ): OSStatus; external name '_QDRegisterNamedPixMapCursor';
- {
- * QDUnregisterNamedPixMapCursur()
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Availability:
- * Mac OS X: in version 10.2 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER
- function QDUnregisterNamedPixMapCursur( name: ConstCStringPtr ): OSStatus; external name '_QDUnregisterNamedPixMapCursur';
- {
- * QDUnregisterNamedPixMapCursor()
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Availability:
- * Mac OS X: in version 10.3 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER
- function QDUnregisterNamedPixMapCursor( name: ConstCStringPtr ): OSStatus; external name '_QDUnregisterNamedPixMapCursor';
- {
- * QDSetNamedPixMapCursor()
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Availability:
- * Mac OS X: in version 10.2 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER
- function QDSetNamedPixMapCursor( name: ConstCStringPtr ): OSStatus; external name '_QDSetNamedPixMapCursor';
- type
- QDXSystemCursorID = UInt32;
- const
- kQDXArrowCursor = 0;
- kQDXIBeamCursor = 1;
- kQDXIBeamXORCursor = 2;
- kQDXAliasCursor = 3;
- kQDXCopyCursor = 4;
- kQDXMoveCursor = 5;
- kQDXNumberOfSystemCursors = 6; { Must be last }
- {
- * QDGetCursorNameForSystemCursor()
- *
- * Summary:
- * Return the name of one of the predefined Mac OS X system cursors
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * cursorID:
- * UInt32 in the range 0 ... kQDXNumberOfSystemCursors - 1 (see
- * enum above)
- *
- * Result:
- * const char* name, or NULL if 'cursorID' is out of range
- *
- * Availability:
- * Mac OS X: in version 10.3 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER
- function QDGetCursorNameForSystemCursor( cursorID: QDXSystemCursorID ): ConstCStringPtr; external name '_QDGetCursorNameForSystemCursor';
- {
- * QDSetCursorScale()
- *
- * Summary:
- * Set a scaling factor for the cursor.
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * scale:
- * Must be at least 0.5, and integer values (1.0, 2.0, 3.0, 4.0)
- * are recommended. The scaling factor is system-wide (applies to
- * all apps), and is intended for use in such things as assisting
- * the visually impaired. The scaling factor is treated as a hint
- * to the system, and the exact scale applied may be limited by
- * device driver capabilities and performance considerations.
- *
- * Availability:
- * Mac OS X: in version 10.2 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER
- function QDSetCursorScale( scale: Float32 ): OSStatus; external name '_QDSetCursorScale';
- {
- * QDGetCursorScale()
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Availability:
- * Mac OS X: in version 10.3 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER
- function QDGetCursorScale( outScale: Float32Ptr ): OSStatus; external name '_QDGetCursorScale';
- {
- * QDGetCursorData()
- *
- * Summary:
- * Allocate and return a PixMapHandle with the cursor data; also
- * return the hotSpot. The caller is responsible for calling
- * DisposePtr((**crsrData).baseAddr) and DisposePixMap(crsrData)
- * when done with the crsrData returned.
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * contextCursor:
- * A Boolean; if true, return data for the current context cursor,
- * if false, return data for the currently showing global cursor.
- *
- * crsrData:
- * Allocates a PixMapHandle and pixelData in baseAddr,
- * corresponding to the cursorData. The pixelData are in 32-bit
- * ARGB format, with the mask contained in the alpha channel. This
- * PixMapHandle can be passed as crsrData to
- * QDRegisterNamedPixMapCursor, above (with crsrMask = NULL). If
- * the return result indicates an error, NULL is returned.
- *
- * hotSpot:
- * Contains the cursor hotSpot, if successful.
- *
- * Result:
- * noErr if successful, or whatever error is returned from lower
- * levels otherwise.
- *
- * Availability:
- * Mac OS X: in version 10.3 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER
- function QDGetCursorData( contextCursor: Boolean; var crsrData: PixMapHandle; var hotSpot: Point ): OSStatus; external name '_QDGetCursorData';
- const
- kQDUseDefaultTextRendering = 0; { Sets whatever is specified in system defaults. }
- { Currently sets kQDUseTrueTypeScalerGlyphs if nothing is specified.}
- kQDUseTrueTypeScalerGlyphs = (1 shl 0); { bit 0}
- kQDUseCGTextRendering = (1 shl 1); { bit 1}
- kQDUseCGTextMetrics = (1 shl 2); { bit 2}
- kQDSupportedFlags = kQDUseTrueTypeScalerGlyphs or kQDUseCGTextRendering or kQDUseCGTextMetrics;
- kQDDontChangeFlags = $FFFFFFFF; { to request the current state, without changing anything }
- {
- * QDSwapTextFlags()
- *
- * Summary:
- * Returns current flags and optionally sets new flags.
- *
- * Discussion:
- * Currently, only the flag bits in the enum above are supported.
- * The typical usage is UInt32 savedFlags =
- * QDSwapTextFlags(newFlags); // ... draw text under the conditions
- * of "newFlags" ... (void)QDSwapTextFlags(savedFlags); // restore
- * previous setting
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * newFlags:
- * Use the enums above; example "kQDUseCGTextRendering |
- * kQDUseCGTextMetrics".
- *
- * Availability:
- * Mac OS X: in version 10.2 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER
- function QDSwapTextFlags( newFlags: UInt32 ): UInt32; external name '_QDSwapTextFlags';
- {
- * QDSwapPortTextFlags()
- *
- * Summary:
- * Same as QDSwapTextFlags, but per GrafPort.
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * port:
- * Settings per port override any global settings. If port ==
- * NULL, the current port is used.
- *
- * newFlags:
- * As in QDSwapTextFlags, above.
- *
- * Availability:
- * Mac OS X: in version 10.2 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.2 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_2_AND_LATER
- function QDSwapPortTextFlags( port: CGrafPtr; newFlags: UInt32 ): UInt32; external name '_QDSwapPortTextFlags';
- {
- * QDGetCGDirectDisplayID()
- *
- * Summary:
- * Return the CGDirectDisplayID corresponding to a GDHandle
- *
- * Mac OS X threading:
- * Not thread safe
- *
- * Parameters:
- *
- * inGDevice:
- * The GDevice handle corresponding to the device for which the
- * CGDirectDisplayID is requested
- *
- * Result:
- * The CGDirectDisplayID, or 0 if the GDHandle does not represent a
- * display.
- *
- * Availability:
- * Mac OS X: in version 10.3 and later in ApplicationServices.framework
- * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
- * Non-Carbon CFM: not available
- }
- // AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER
- function QDGetCGDirectDisplayID( inGDevice: GDHandle ): CGDirectDisplayID; external name '_QDGetCGDirectDisplayID';
- {
- LowMem accessor functions previously in LowMem.h
- }
- {
- * LMGetScrVRes()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetScrVRes: SInt16; external name '_LMGetScrVRes';
- {
- * LMSetScrVRes()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetScrVRes(value: SInt16); external name '_LMSetScrVRes';
- {
- * LMGetScrHRes()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetScrHRes: SInt16; external name '_LMGetScrHRes';
- {
- * LMSetScrHRes()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetScrHRes(value: SInt16); external name '_LMSetScrHRes';
- {
- * LMGetMainDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetMainDevice: GDHandle; external name '_LMGetMainDevice';
- {
- * LMSetMainDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetMainDevice(value: GDHandle); external name '_LMSetMainDevice';
- {
- * LMGetDeviceList()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetDeviceList: GDHandle; external name '_LMGetDeviceList';
- {
- * LMSetDeviceList()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetDeviceList(value: GDHandle); external name '_LMSetDeviceList';
- {
- * LMGetQDColors()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetQDColors: Handle; external name '_LMGetQDColors';
- {
- * LMSetQDColors()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetQDColors(value: Handle); external name '_LMSetQDColors';
- {
- * LMGetWidthListHand()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetWidthListHand: Handle; external name '_LMGetWidthListHand';
- {
- * LMSetWidthListHand()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetWidthListHand(value: Handle); external name '_LMSetWidthListHand';
- {
- * LMGetHiliteMode()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetHiliteMode: ByteParameter; external name '_LMGetHiliteMode';
- {
- * LMSetHiliteMode()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetHiliteMode(value: ByteParameter); external name '_LMSetHiliteMode';
- {
- * LMGetWidthPtr()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetWidthPtr: Ptr; external name '_LMGetWidthPtr';
- {
- * LMSetWidthPtr()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetWidthPtr(value: Ptr); external name '_LMSetWidthPtr';
- {
- * LMGetWidthTabHandle()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetWidthTabHandle: Handle; external name '_LMGetWidthTabHandle';
- {
- * LMSetWidthTabHandle()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetWidthTabHandle(value: Handle); external name '_LMSetWidthTabHandle';
- {
- * LMGetLastSPExtra()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetLastSPExtra: SInt32; external name '_LMGetLastSPExtra';
- {
- * LMSetLastSPExtra()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetLastSPExtra(value: SInt32); external name '_LMSetLastSPExtra';
- {
- * LMGetLastFOND()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetLastFOND: Handle; external name '_LMGetLastFOND';
- {
- * LMSetLastFOND()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetLastFOND(value: Handle); external name '_LMSetLastFOND';
- {
- * LMGetFractEnable()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetFractEnable: ByteParameter; external name '_LMGetFractEnable';
- {
- * LMSetFractEnable()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetFractEnable(value: ByteParameter); external name '_LMSetFractEnable';
- {
- * LMGetTheGDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetTheGDevice: GDHandle; external name '_LMGetTheGDevice';
- {
- * LMSetTheGDevice()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetTheGDevice(value: GDHandle); external name '_LMSetTheGDevice';
- {$ifc TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
- {$ifc CALL_NOT_IN_CARBON}
- {
- * LMGetHiliteRGB()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure LMGetHiliteRGB(var hiliteRGBValue: RGBColor); external name '_LMGetHiliteRGB';
- {
- * LMSetHiliteRGB()
- *
- * Availability:
- * Non-Carbon CFM: not available
- * CarbonLib: not available
- * Mac OS X: not available
- }
- procedure LMSetHiliteRGB(const (*var*) hiliteRGBValue: RGBColor); external name '_LMSetHiliteRGB';
- {$endc} {CALL_NOT_IN_CARBON}
- {$elsec}
- {
- * LMGetHiliteRGB()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMGetHiliteRGB(var hiliteRGBValue: RGBColor); external name '_LMGetHiliteRGB';
- {
- * LMSetHiliteRGB()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 7.1 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetHiliteRGB(const (*var*) hiliteRGBValue: RGBColor); external name '_LMSetHiliteRGB';
- {$endc}
- {
- * LMGetCursorNew()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 8.5 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- function LMGetCursorNew: boolean; external name '_LMGetCursorNew';
- {
- * LMSetCursorNew()
- *
- * Availability:
- * Non-Carbon CFM: in InterfaceLib 8.5 and later
- * CarbonLib: in CarbonLib 1.0 and later
- * Mac OS X: in version 10.0 and later
- }
- procedure LMSetCursorNew(value: boolean); external name '_LMSetCursorNew';
- {$ALIGN MAC68K}
- end.
|