googlemapsengine.pp 282 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246
  1. unit googlemapsengine;
  2. {
  3. **********************************************************************
  4. This file is part of the Free Component Library (FCL)
  5. Copyright (c) 2015 The free pascal team.
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************
  12. }
  13. //Generated on: 16-5-15 08:53:05
  14. {$MODE objfpc}
  15. {$H+}
  16. interface
  17. uses sysutils, classes, googleservice, restbase, googlebase;
  18. type
  19. //Top-level schema types
  20. TAcquisitionTime = Class;
  21. TAsset = Class;
  22. TAssetsListResponse = Class;
  23. TBorder = Class;
  24. TColor = Class;
  25. TDatasource = Class;
  26. TDisplayRule = Class;
  27. TFeature = Class;
  28. TFeatureInfo = Class;
  29. TFeaturesBatchDeleteRequest = Class;
  30. TFeaturesBatchInsertRequest = Class;
  31. TFeaturesBatchPatchRequest = Class;
  32. TFeaturesListResponse = Class;
  33. TFile = Class;
  34. TFilter = Class;
  35. TGeoJsonGeometry = Class;
  36. TGeoJsonGeometryCollection = Class;
  37. TGeoJsonLineString = Class;
  38. TGeoJsonMultiLineString = Class;
  39. TGeoJsonMultiPoint = Class;
  40. TGeoJsonMultiPolygon = Class;
  41. TGeoJsonPoint = Class;
  42. TGeoJsonPolygon = Class;
  43. TGeoJsonProperties = Class;
  44. TIcon = Class;
  45. TIconStyle = Class;
  46. TIconsListResponse = Class;
  47. TLabelStyle = Class;
  48. TLayer = Class;
  49. TLayersListResponse = Class;
  50. TLineStyle = Class;
  51. TMap = Class;
  52. TMapFolder = Class;
  53. TMapItem = Class;
  54. TMapKmlLink = Class;
  55. TMapLayer = Class;
  56. TMapsListResponse = Class;
  57. TParent = Class;
  58. TParentsListResponse = Class;
  59. TPermission = Class;
  60. TPermissionsBatchDeleteRequest = Class;
  61. TPermissionsBatchDeleteResponse = Class;
  62. TPermissionsBatchUpdateRequest = Class;
  63. TPermissionsBatchUpdateResponse = Class;
  64. TPermissionsListResponse = Class;
  65. TPointStyle = Class;
  66. TPolygonStyle = Class;
  67. TProcessResponse = Class;
  68. TProject = Class;
  69. TProjectsListResponse = Class;
  70. TPublishResponse = Class;
  71. TPublishedLayer = Class;
  72. TPublishedLayersListResponse = Class;
  73. TPublishedMap = Class;
  74. TPublishedMapsListResponse = Class;
  75. TRaster = Class;
  76. TRasterCollection = Class;
  77. TRasterCollectionsListResponse = Class;
  78. TRasterCollectionsRaster = Class;
  79. TRasterCollectionsRasterBatchDeleteRequest = Class;
  80. TRasterCollectionsRastersBatchDeleteResponse = Class;
  81. TRasterCollectionsRastersBatchInsertRequest = Class;
  82. TRasterCollectionsRastersBatchInsertResponse = Class;
  83. TRasterCollectionsRastersListResponse = Class;
  84. TRastersListResponse = Class;
  85. TScaledShape = Class;
  86. TScalingFunction = Class;
  87. TSchema = Class;
  88. TSizeRange = Class;
  89. TTable = Class;
  90. TTableColumn = Class;
  91. TTablesListResponse = Class;
  92. TValueRange = Class;
  93. TVectorStyle = Class;
  94. TZoomLevels = Class;
  95. TAcquisitionTimeArray = Array of TAcquisitionTime;
  96. TAssetArray = Array of TAsset;
  97. TAssetsListResponseArray = Array of TAssetsListResponse;
  98. TBorderArray = Array of TBorder;
  99. TColorArray = Array of TColor;
  100. TDatasourceArray = Array of TDatasource;
  101. TDatasources = Array of TDatasource;
  102. TDisplayRuleArray = Array of TDisplayRule;
  103. TFeatureArray = Array of TFeature;
  104. TFeatureInfoArray = Array of TFeatureInfo;
  105. TFeaturesBatchDeleteRequestArray = Array of TFeaturesBatchDeleteRequest;
  106. TFeaturesBatchInsertRequestArray = Array of TFeaturesBatchInsertRequest;
  107. TFeaturesBatchPatchRequestArray = Array of TFeaturesBatchPatchRequest;
  108. TFeaturesListResponseArray = Array of TFeaturesListResponse;
  109. TFileArray = Array of TFile;
  110. TFilterArray = Array of TFilter;
  111. TGeoJsonGeometryArray = Array of TGeoJsonGeometry;
  112. TGeoJsonGeometryCollectionArray = Array of TGeoJsonGeometryCollection;
  113. TGeoJsonLineStringArray = Array of TGeoJsonLineString;
  114. TGeoJsonMultiLineStringArray = Array of TGeoJsonMultiLineString;
  115. TGeoJsonMultiPointArray = Array of TGeoJsonMultiPoint;
  116. TGeoJsonMultiPolygonArray = Array of TGeoJsonMultiPolygon;
  117. TGeoJsonPointArray = Array of TGeoJsonPoint;
  118. TGeoJsonPolygonArray = Array of TGeoJsonPolygon;
  119. TGeoJsonPosition = Array of double;
  120. TGeoJsonPropertiesArray = Array of TGeoJsonProperties;
  121. TIconArray = Array of TIcon;
  122. TIconStyleArray = Array of TIconStyle;
  123. TIconsListResponseArray = Array of TIconsListResponse;
  124. TLabelStyleArray = Array of TLabelStyle;
  125. TLatLngBox = Array of double;
  126. TLayerArray = Array of TLayer;
  127. TLayersListResponseArray = Array of TLayersListResponse;
  128. TLineStyleArray = Array of TLineStyle;
  129. TMapArray = Array of TMap;
  130. TMapContents = Array of TMapItem;
  131. TMapFolderArray = Array of TMapFolder;
  132. TMapItemArray = Array of TMapItem;
  133. TMapKmlLinkArray = Array of TMapKmlLink;
  134. TMapLayerArray = Array of TMapLayer;
  135. TMapsListResponseArray = Array of TMapsListResponse;
  136. TParentArray = Array of TParent;
  137. TParentsListResponseArray = Array of TParentsListResponse;
  138. TPermissionArray = Array of TPermission;
  139. TPermissionsBatchDeleteRequestArray = Array of TPermissionsBatchDeleteRequest;
  140. TPermissionsBatchDeleteResponseArray = Array of TPermissionsBatchDeleteResponse;
  141. TPermissionsBatchUpdateRequestArray = Array of TPermissionsBatchUpdateRequest;
  142. TPermissionsBatchUpdateResponseArray = Array of TPermissionsBatchUpdateResponse;
  143. TPermissionsListResponseArray = Array of TPermissionsListResponse;
  144. TPointStyleArray = Array of TPointStyle;
  145. TPolygonStyleArray = Array of TPolygonStyle;
  146. TProcessResponseArray = Array of TProcessResponse;
  147. TProjectArray = Array of TProject;
  148. TProjectsListResponseArray = Array of TProjectsListResponse;
  149. TPublishResponseArray = Array of TPublishResponse;
  150. TPublishedLayerArray = Array of TPublishedLayer;
  151. TPublishedLayersListResponseArray = Array of TPublishedLayersListResponse;
  152. TPublishedMapArray = Array of TPublishedMap;
  153. TPublishedMapsListResponseArray = Array of TPublishedMapsListResponse;
  154. TRasterArray = Array of TRaster;
  155. TRasterCollectionArray = Array of TRasterCollection;
  156. TRasterCollectionsListResponseArray = Array of TRasterCollectionsListResponse;
  157. TRasterCollectionsRasterArray = Array of TRasterCollectionsRaster;
  158. TRasterCollectionsRasterBatchDeleteRequestArray = Array of TRasterCollectionsRasterBatchDeleteRequest;
  159. TRasterCollectionsRastersBatchDeleteResponseArray = Array of TRasterCollectionsRastersBatchDeleteResponse;
  160. TRasterCollectionsRastersBatchInsertRequestArray = Array of TRasterCollectionsRastersBatchInsertRequest;
  161. TRasterCollectionsRastersBatchInsertResponseArray = Array of TRasterCollectionsRastersBatchInsertResponse;
  162. TRasterCollectionsRastersListResponseArray = Array of TRasterCollectionsRastersListResponse;
  163. TRastersListResponseArray = Array of TRastersListResponse;
  164. TScaledShapeArray = Array of TScaledShape;
  165. TScalingFunctionArray = Array of TScalingFunction;
  166. TSchemaArray = Array of TSchema;
  167. TSizeRangeArray = Array of TSizeRange;
  168. TTableArray = Array of TTable;
  169. TTableColumnArray = Array of TTableColumn;
  170. TTablesListResponseArray = Array of TTablesListResponse;
  171. TTags = Array of String;
  172. TValueRangeArray = Array of TValueRange;
  173. TVectorStyleArray = Array of TVectorStyle;
  174. TZoomLevelsArray = Array of TZoomLevels;
  175. //Anonymous types, using auto-generated names
  176. TLineStyleTypestroke = Class;
  177. TAssetsListResponseTypeassetsArray = Array of TAsset;
  178. TDisplayRuleTypefiltersArray = Array of TFilter;
  179. TFeaturesBatchInsertRequestTypefeaturesArray = Array of TFeature;
  180. TFeaturesBatchPatchRequestTypefeaturesArray = Array of TFeature;
  181. TFeaturesListResponseTypefeaturesArray = Array of TFeature;
  182. TGeoJsonGeometryCollectionTypegeometriesArray = Array of TGeoJsonGeometry;
  183. TGeoJsonLineStringTypecoordinatesArray = Array of TGeoJsonPosition;
  184. TGeoJsonMultiLineStringTypecoordinatesItemArray = Array of TGeoJsonPosition;
  185. TGeoJsonMultiLineStringTypecoordinatesArray = Array of TGeoJsonMultiLineStringTypecoordinatesItemArray;
  186. TGeoJsonMultiPointTypecoordinatesArray = Array of TGeoJsonPosition;
  187. TGeoJsonMultiPolygonTypecoordinatesItemItemArray = Array of TGeoJsonPosition;
  188. TGeoJsonMultiPolygonTypecoordinatesItemArray = Array of TGeoJsonMultiPolygonTypecoordinatesItemItemArray;
  189. TGeoJsonMultiPolygonTypecoordinatesArray = Array of TGeoJsonMultiPolygonTypecoordinatesItemArray;
  190. TGeoJsonPolygonTypecoordinatesItemArray = Array of TGeoJsonPosition;
  191. TGeoJsonPolygonTypecoordinatesArray = Array of TGeoJsonPolygonTypecoordinatesItemArray;
  192. TIconsListResponseTypeiconsArray = Array of TIcon;
  193. TLayersListResponseTypelayersArray = Array of TLayer;
  194. TMapFolderTypecontentsArray = Array of TMapItem;
  195. TMapsListResponseTypemapsArray = Array of TMap;
  196. TParentsListResponseTypeparentsArray = Array of TParent;
  197. TPermissionsBatchUpdateRequestTypepermissionsArray = Array of TPermission;
  198. TPermissionsListResponseTypepermissionsArray = Array of TPermission;
  199. TProjectsListResponseTypeprojectsArray = Array of TProject;
  200. TPublishedLayersListResponseTypelayersArray = Array of TPublishedLayer;
  201. TPublishedMapsListResponseTypemapsArray = Array of TPublishedMap;
  202. TRasterTypefilesArray = Array of TFile;
  203. TRasterCollectionsListResponseTyperasterCollectionsArray = Array of TRasterCollection;
  204. TRasterCollectionsRastersListResponseTyperastersArray = Array of TRasterCollectionsRaster;
  205. TRastersListResponseTyperastersArray = Array of TRaster;
  206. TSchemaTypecolumnsArray = Array of TTableColumn;
  207. TTableTypefilesArray = Array of TFile;
  208. TTablesListResponseTypetablesArray = Array of TTable;
  209. TVectorStyleTypedisplayRulesArray = Array of TDisplayRule;
  210. { --------------------------------------------------------------------
  211. TAcquisitionTime
  212. --------------------------------------------------------------------}
  213. TAcquisitionTime = Class(TGoogleBaseObject)
  214. Private
  215. F_end : TDatetime;
  216. Fprecision : String;
  217. Fstart : TDatetime;
  218. Protected
  219. Class Function ExportPropertyName(Const AName : String) : string; override;
  220. //Property setters
  221. Procedure Set_end(AIndex : Integer; AValue : TDatetime); virtual;
  222. Procedure Setprecision(AIndex : Integer; const AValue : String); virtual;
  223. Procedure Setstart(AIndex : Integer; AValue : TDatetime); virtual;
  224. Public
  225. Published
  226. Property _end : TDatetime Index 0 Read F_end Write Set_end;
  227. Property precision : String Index 8 Read Fprecision Write Setprecision;
  228. Property start : TDatetime Index 16 Read Fstart Write Setstart;
  229. end;
  230. TAcquisitionTimeClass = Class of TAcquisitionTime;
  231. { --------------------------------------------------------------------
  232. TAsset
  233. --------------------------------------------------------------------}
  234. TAsset = Class(TGoogleBaseObject)
  235. Private
  236. Fbbox : TdoubleArray;
  237. FcreationTime : TDatetime;
  238. FcreatorEmail : String;
  239. Fdescription : String;
  240. Fetag : String;
  241. Fid : String;
  242. FlastModifiedTime : TDatetime;
  243. FlastModifierEmail : String;
  244. Fname : String;
  245. FprojectId : String;
  246. Fresource : String;
  247. Ftags : TStringArray;
  248. F_type : String;
  249. FwritersCanEditPermissions : boolean;
  250. Protected
  251. Class Function ExportPropertyName(Const AName : String) : string; override;
  252. //Property setters
  253. Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
  254. Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
  255. Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
  256. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  257. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  258. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  259. Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
  260. Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
  261. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  262. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  263. Procedure Setresource(AIndex : Integer; const AValue : String); virtual;
  264. Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
  265. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  266. Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
  267. //2.6.4. bug workaround
  268. {$IFDEF VER2_6}
  269. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  270. {$ENDIF VER2_6}
  271. Public
  272. Published
  273. Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
  274. Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
  275. Property creatorEmail : String Index 16 Read FcreatorEmail Write SetcreatorEmail;
  276. Property description : String Index 24 Read Fdescription Write Setdescription;
  277. Property etag : String Index 32 Read Fetag Write Setetag;
  278. Property id : String Index 40 Read Fid Write Setid;
  279. Property lastModifiedTime : TDatetime Index 48 Read FlastModifiedTime Write SetlastModifiedTime;
  280. Property lastModifierEmail : String Index 56 Read FlastModifierEmail Write SetlastModifierEmail;
  281. Property name : String Index 64 Read Fname Write Setname;
  282. Property projectId : String Index 72 Read FprojectId Write SetprojectId;
  283. Property resource : String Index 80 Read Fresource Write Setresource;
  284. Property tags : TStringArray Index 88 Read Ftags Write Settags;
  285. Property _type : String Index 96 Read F_type Write Set_type;
  286. Property writersCanEditPermissions : boolean Index 104 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
  287. end;
  288. TAssetClass = Class of TAsset;
  289. { --------------------------------------------------------------------
  290. TAssetsListResponse
  291. --------------------------------------------------------------------}
  292. TAssetsListResponse = Class(TGoogleBaseObject)
  293. Private
  294. Fassets : TAssetsListResponseTypeassetsArray;
  295. FnextPageToken : String;
  296. Protected
  297. //Property setters
  298. Procedure Setassets(AIndex : Integer; AValue : TAssetsListResponseTypeassetsArray); virtual;
  299. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  300. //2.6.4. bug workaround
  301. {$IFDEF VER2_6}
  302. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  303. {$ENDIF VER2_6}
  304. Public
  305. Published
  306. Property assets : TAssetsListResponseTypeassetsArray Index 0 Read Fassets Write Setassets;
  307. Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  308. end;
  309. TAssetsListResponseClass = Class of TAssetsListResponse;
  310. { --------------------------------------------------------------------
  311. TBorder
  312. --------------------------------------------------------------------}
  313. TBorder = Class(TGoogleBaseObject)
  314. Private
  315. Fcolor : String;
  316. Fopacity : double;
  317. Fwidth : double;
  318. Protected
  319. //Property setters
  320. Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
  321. Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
  322. Procedure Setwidth(AIndex : Integer; AValue : double); virtual;
  323. Public
  324. Published
  325. Property color : String Index 0 Read Fcolor Write Setcolor;
  326. Property opacity : double Index 8 Read Fopacity Write Setopacity;
  327. Property width : double Index 16 Read Fwidth Write Setwidth;
  328. end;
  329. TBorderClass = Class of TBorder;
  330. { --------------------------------------------------------------------
  331. TColor
  332. --------------------------------------------------------------------}
  333. TColor = Class(TGoogleBaseObject)
  334. Private
  335. Fcolor : String;
  336. Fopacity : double;
  337. Protected
  338. //Property setters
  339. Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
  340. Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
  341. Public
  342. Published
  343. Property color : String Index 0 Read Fcolor Write Setcolor;
  344. Property opacity : double Index 8 Read Fopacity Write Setopacity;
  345. end;
  346. TColorClass = Class of TColor;
  347. { --------------------------------------------------------------------
  348. TDatasource
  349. --------------------------------------------------------------------}
  350. TDatasource = Class(TGoogleBaseObject)
  351. Private
  352. Fid : String;
  353. Protected
  354. //Property setters
  355. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  356. Public
  357. Published
  358. Property id : String Index 0 Read Fid Write Setid;
  359. end;
  360. TDatasourceClass = Class of TDatasource;
  361. { --------------------------------------------------------------------
  362. TDisplayRule
  363. --------------------------------------------------------------------}
  364. TDisplayRule = Class(TGoogleBaseObject)
  365. Private
  366. Ffilters : TDisplayRuleTypefiltersArray;
  367. FlineOptions : TLineStyle;
  368. Fname : String;
  369. FpointOptions : TPointStyle;
  370. FpolygonOptions : TPolygonStyle;
  371. FzoomLevels : TZoomLevels;
  372. Protected
  373. //Property setters
  374. Procedure Setfilters(AIndex : Integer; AValue : TDisplayRuleTypefiltersArray); virtual;
  375. Procedure SetlineOptions(AIndex : Integer; AValue : TLineStyle); virtual;
  376. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  377. Procedure SetpointOptions(AIndex : Integer; AValue : TPointStyle); virtual;
  378. Procedure SetpolygonOptions(AIndex : Integer; AValue : TPolygonStyle); virtual;
  379. Procedure SetzoomLevels(AIndex : Integer; AValue : TZoomLevels); virtual;
  380. //2.6.4. bug workaround
  381. {$IFDEF VER2_6}
  382. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  383. {$ENDIF VER2_6}
  384. Public
  385. Published
  386. Property filters : TDisplayRuleTypefiltersArray Index 0 Read Ffilters Write Setfilters;
  387. Property lineOptions : TLineStyle Index 8 Read FlineOptions Write SetlineOptions;
  388. Property name : String Index 16 Read Fname Write Setname;
  389. Property pointOptions : TPointStyle Index 24 Read FpointOptions Write SetpointOptions;
  390. Property polygonOptions : TPolygonStyle Index 32 Read FpolygonOptions Write SetpolygonOptions;
  391. Property zoomLevels : TZoomLevels Index 40 Read FzoomLevels Write SetzoomLevels;
  392. end;
  393. TDisplayRuleClass = Class of TDisplayRule;
  394. { --------------------------------------------------------------------
  395. TFeature
  396. --------------------------------------------------------------------}
  397. TFeature = Class(TGoogleBaseObject)
  398. Private
  399. Fgeometry : TGeoJsonGeometry;
  400. Fproperties : TGeoJsonProperties;
  401. F_type : String;
  402. Protected
  403. Class Function ExportPropertyName(Const AName : String) : string; override;
  404. //Property setters
  405. Procedure Setgeometry(AIndex : Integer; AValue : TGeoJsonGeometry); virtual;
  406. Procedure Setproperties(AIndex : Integer; AValue : TGeoJsonProperties); virtual;
  407. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  408. Public
  409. Published
  410. Property geometry : TGeoJsonGeometry Index 0 Read Fgeometry Write Setgeometry;
  411. Property properties : TGeoJsonProperties Index 8 Read Fproperties Write Setproperties;
  412. Property _type : String Index 16 Read F_type Write Set_type;
  413. end;
  414. TFeatureClass = Class of TFeature;
  415. { --------------------------------------------------------------------
  416. TFeatureInfo
  417. --------------------------------------------------------------------}
  418. TFeatureInfo = Class(TGoogleBaseObject)
  419. Private
  420. Fcontent : String;
  421. Protected
  422. //Property setters
  423. Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
  424. Public
  425. Published
  426. Property content : String Index 0 Read Fcontent Write Setcontent;
  427. end;
  428. TFeatureInfoClass = Class of TFeatureInfo;
  429. { --------------------------------------------------------------------
  430. TFeaturesBatchDeleteRequest
  431. --------------------------------------------------------------------}
  432. TFeaturesBatchDeleteRequest = Class(TGoogleBaseObject)
  433. Private
  434. Fgx_ids : TStringArray;
  435. FprimaryKeys : TStringArray;
  436. Protected
  437. //Property setters
  438. Procedure Setgx_ids(AIndex : Integer; AValue : TStringArray); virtual;
  439. Procedure SetprimaryKeys(AIndex : Integer; AValue : TStringArray); virtual;
  440. //2.6.4. bug workaround
  441. {$IFDEF VER2_6}
  442. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  443. {$ENDIF VER2_6}
  444. Public
  445. Published
  446. Property gx_ids : TStringArray Index 0 Read Fgx_ids Write Setgx_ids;
  447. Property primaryKeys : TStringArray Index 8 Read FprimaryKeys Write SetprimaryKeys;
  448. end;
  449. TFeaturesBatchDeleteRequestClass = Class of TFeaturesBatchDeleteRequest;
  450. { --------------------------------------------------------------------
  451. TFeaturesBatchInsertRequest
  452. --------------------------------------------------------------------}
  453. TFeaturesBatchInsertRequest = Class(TGoogleBaseObject)
  454. Private
  455. Ffeatures : TFeaturesBatchInsertRequestTypefeaturesArray;
  456. FnormalizeGeometries : boolean;
  457. Protected
  458. //Property setters
  459. Procedure Setfeatures(AIndex : Integer; AValue : TFeaturesBatchInsertRequestTypefeaturesArray); virtual;
  460. Procedure SetnormalizeGeometries(AIndex : Integer; AValue : boolean); virtual;
  461. //2.6.4. bug workaround
  462. {$IFDEF VER2_6}
  463. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  464. {$ENDIF VER2_6}
  465. Public
  466. Published
  467. Property features : TFeaturesBatchInsertRequestTypefeaturesArray Index 0 Read Ffeatures Write Setfeatures;
  468. Property normalizeGeometries : boolean Index 8 Read FnormalizeGeometries Write SetnormalizeGeometries;
  469. end;
  470. TFeaturesBatchInsertRequestClass = Class of TFeaturesBatchInsertRequest;
  471. { --------------------------------------------------------------------
  472. TFeaturesBatchPatchRequest
  473. --------------------------------------------------------------------}
  474. TFeaturesBatchPatchRequest = Class(TGoogleBaseObject)
  475. Private
  476. Ffeatures : TFeaturesBatchPatchRequestTypefeaturesArray;
  477. FnormalizeGeometries : boolean;
  478. Protected
  479. //Property setters
  480. Procedure Setfeatures(AIndex : Integer; AValue : TFeaturesBatchPatchRequestTypefeaturesArray); virtual;
  481. Procedure SetnormalizeGeometries(AIndex : Integer; AValue : boolean); virtual;
  482. //2.6.4. bug workaround
  483. {$IFDEF VER2_6}
  484. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  485. {$ENDIF VER2_6}
  486. Public
  487. Published
  488. Property features : TFeaturesBatchPatchRequestTypefeaturesArray Index 0 Read Ffeatures Write Setfeatures;
  489. Property normalizeGeometries : boolean Index 8 Read FnormalizeGeometries Write SetnormalizeGeometries;
  490. end;
  491. TFeaturesBatchPatchRequestClass = Class of TFeaturesBatchPatchRequest;
  492. { --------------------------------------------------------------------
  493. TFeaturesListResponse
  494. --------------------------------------------------------------------}
  495. TFeaturesListResponse = Class(TGoogleBaseObject)
  496. Private
  497. FallowedQueriesPerSecond : double;
  498. Ffeatures : TFeaturesListResponseTypefeaturesArray;
  499. FnextPageToken : String;
  500. Fschema : TSchema;
  501. F_type : String;
  502. Protected
  503. Class Function ExportPropertyName(Const AName : String) : string; override;
  504. //Property setters
  505. Procedure SetallowedQueriesPerSecond(AIndex : Integer; AValue : double); virtual;
  506. Procedure Setfeatures(AIndex : Integer; AValue : TFeaturesListResponseTypefeaturesArray); virtual;
  507. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  508. Procedure Setschema(AIndex : Integer; AValue : TSchema); virtual;
  509. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  510. //2.6.4. bug workaround
  511. {$IFDEF VER2_6}
  512. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  513. {$ENDIF VER2_6}
  514. Public
  515. Published
  516. Property allowedQueriesPerSecond : double Index 0 Read FallowedQueriesPerSecond Write SetallowedQueriesPerSecond;
  517. Property features : TFeaturesListResponseTypefeaturesArray Index 8 Read Ffeatures Write Setfeatures;
  518. Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  519. Property schema : TSchema Index 24 Read Fschema Write Setschema;
  520. Property _type : String Index 32 Read F_type Write Set_type;
  521. end;
  522. TFeaturesListResponseClass = Class of TFeaturesListResponse;
  523. { --------------------------------------------------------------------
  524. TFile
  525. --------------------------------------------------------------------}
  526. TFile = Class(TGoogleBaseObject)
  527. Private
  528. Ffilename : String;
  529. Fsize : String;
  530. FuploadStatus : String;
  531. Protected
  532. //Property setters
  533. Procedure Setfilename(AIndex : Integer; const AValue : String); virtual;
  534. Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
  535. Procedure SetuploadStatus(AIndex : Integer; const AValue : String); virtual;
  536. Public
  537. Published
  538. Property filename : String Index 0 Read Ffilename Write Setfilename;
  539. Property size : String Index 8 Read Fsize Write Setsize;
  540. Property uploadStatus : String Index 16 Read FuploadStatus Write SetuploadStatus;
  541. end;
  542. TFileClass = Class of TFile;
  543. { --------------------------------------------------------------------
  544. TFilter
  545. --------------------------------------------------------------------}
  546. TFilter = Class(TGoogleBaseObject)
  547. Private
  548. Fcolumn : String;
  549. F_operator : String;
  550. Fvalue : TJSONSchema;
  551. Protected
  552. Class Function ExportPropertyName(Const AName : String) : string; override;
  553. //Property setters
  554. Procedure Setcolumn(AIndex : Integer; const AValue : String); virtual;
  555. Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
  556. Procedure Setvalue(AIndex : Integer; AValue : TJSONSchema); virtual;
  557. Public
  558. Published
  559. Property column : String Index 0 Read Fcolumn Write Setcolumn;
  560. Property _operator : String Index 8 Read F_operator Write Set_operator;
  561. Property value : TJSONSchema Index 16 Read Fvalue Write Setvalue;
  562. end;
  563. TFilterClass = Class of TFilter;
  564. { --------------------------------------------------------------------
  565. TGeoJsonGeometry
  566. --------------------------------------------------------------------}
  567. TGeoJsonGeometry = Class(TGoogleBaseObject)
  568. Private
  569. Protected
  570. //Property setters
  571. Public
  572. Published
  573. end;
  574. TGeoJsonGeometryClass = Class of TGeoJsonGeometry;
  575. { --------------------------------------------------------------------
  576. TGeoJsonGeometryCollection
  577. --------------------------------------------------------------------}
  578. TGeoJsonGeometryCollection = Class(TGoogleBaseObject)
  579. Private
  580. Fgeometries : TGeoJsonGeometryCollectionTypegeometriesArray;
  581. F_type : String;
  582. Protected
  583. Class Function ExportPropertyName(Const AName : String) : string; override;
  584. //Property setters
  585. Procedure Setgeometries(AIndex : Integer; AValue : TGeoJsonGeometryCollectionTypegeometriesArray); virtual;
  586. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  587. //2.6.4. bug workaround
  588. {$IFDEF VER2_6}
  589. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  590. {$ENDIF VER2_6}
  591. Public
  592. Published
  593. Property geometries : TGeoJsonGeometryCollectionTypegeometriesArray Index 0 Read Fgeometries Write Setgeometries;
  594. Property _type : String Index 8 Read F_type Write Set_type;
  595. end;
  596. TGeoJsonGeometryCollectionClass = Class of TGeoJsonGeometryCollection;
  597. { --------------------------------------------------------------------
  598. TGeoJsonLineString
  599. --------------------------------------------------------------------}
  600. TGeoJsonLineString = Class(TGoogleBaseObject)
  601. Private
  602. Fcoordinates : TGeoJsonLineStringTypecoordinatesArray;
  603. F_type : String;
  604. Protected
  605. Class Function ExportPropertyName(Const AName : String) : string; override;
  606. //Property setters
  607. Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonLineStringTypecoordinatesArray); virtual;
  608. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  609. //2.6.4. bug workaround
  610. {$IFDEF VER2_6}
  611. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  612. {$ENDIF VER2_6}
  613. Public
  614. Published
  615. Property coordinates : TGeoJsonLineStringTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
  616. Property _type : String Index 8 Read F_type Write Set_type;
  617. end;
  618. TGeoJsonLineStringClass = Class of TGeoJsonLineString;
  619. { --------------------------------------------------------------------
  620. TGeoJsonMultiLineString
  621. --------------------------------------------------------------------}
  622. TGeoJsonMultiLineString = Class(TGoogleBaseObject)
  623. Private
  624. Fcoordinates : TGeoJsonMultiLineStringTypecoordinatesArray;
  625. F_type : String;
  626. Protected
  627. Class Function ExportPropertyName(Const AName : String) : string; override;
  628. //Property setters
  629. Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiLineStringTypecoordinatesArray); virtual;
  630. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  631. //2.6.4. bug workaround
  632. {$IFDEF VER2_6}
  633. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  634. {$ENDIF VER2_6}
  635. Public
  636. Published
  637. Property coordinates : TGeoJsonMultiLineStringTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
  638. Property _type : String Index 8 Read F_type Write Set_type;
  639. end;
  640. TGeoJsonMultiLineStringClass = Class of TGeoJsonMultiLineString;
  641. { --------------------------------------------------------------------
  642. TGeoJsonMultiPoint
  643. --------------------------------------------------------------------}
  644. TGeoJsonMultiPoint = Class(TGoogleBaseObject)
  645. Private
  646. Fcoordinates : TGeoJsonMultiPointTypecoordinatesArray;
  647. F_type : String;
  648. Protected
  649. Class Function ExportPropertyName(Const AName : String) : string; override;
  650. //Property setters
  651. Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPointTypecoordinatesArray); virtual;
  652. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  653. //2.6.4. bug workaround
  654. {$IFDEF VER2_6}
  655. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  656. {$ENDIF VER2_6}
  657. Public
  658. Published
  659. Property coordinates : TGeoJsonMultiPointTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
  660. Property _type : String Index 8 Read F_type Write Set_type;
  661. end;
  662. TGeoJsonMultiPointClass = Class of TGeoJsonMultiPoint;
  663. { --------------------------------------------------------------------
  664. TGeoJsonMultiPolygon
  665. --------------------------------------------------------------------}
  666. TGeoJsonMultiPolygon = Class(TGoogleBaseObject)
  667. Private
  668. Fcoordinates : TGeoJsonMultiPolygonTypecoordinatesArray;
  669. F_type : String;
  670. Protected
  671. Class Function ExportPropertyName(Const AName : String) : string; override;
  672. //Property setters
  673. Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPolygonTypecoordinatesArray); virtual;
  674. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  675. //2.6.4. bug workaround
  676. {$IFDEF VER2_6}
  677. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  678. {$ENDIF VER2_6}
  679. Public
  680. Published
  681. Property coordinates : TGeoJsonMultiPolygonTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
  682. Property _type : String Index 8 Read F_type Write Set_type;
  683. end;
  684. TGeoJsonMultiPolygonClass = Class of TGeoJsonMultiPolygon;
  685. { --------------------------------------------------------------------
  686. TGeoJsonPoint
  687. --------------------------------------------------------------------}
  688. TGeoJsonPoint = Class(TGoogleBaseObject)
  689. Private
  690. Fcoordinates : TGeoJsonPosition;
  691. F_type : String;
  692. Protected
  693. Class Function ExportPropertyName(Const AName : String) : string; override;
  694. //Property setters
  695. Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonPosition); virtual;
  696. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  697. Public
  698. Published
  699. Property coordinates : TGeoJsonPosition Index 0 Read Fcoordinates Write Setcoordinates;
  700. Property _type : String Index 8 Read F_type Write Set_type;
  701. end;
  702. TGeoJsonPointClass = Class of TGeoJsonPoint;
  703. { --------------------------------------------------------------------
  704. TGeoJsonPolygon
  705. --------------------------------------------------------------------}
  706. TGeoJsonPolygon = Class(TGoogleBaseObject)
  707. Private
  708. Fcoordinates : TGeoJsonPolygonTypecoordinatesArray;
  709. F_type : String;
  710. Protected
  711. Class Function ExportPropertyName(Const AName : String) : string; override;
  712. //Property setters
  713. Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonPolygonTypecoordinatesArray); virtual;
  714. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  715. //2.6.4. bug workaround
  716. {$IFDEF VER2_6}
  717. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  718. {$ENDIF VER2_6}
  719. Public
  720. Published
  721. Property coordinates : TGeoJsonPolygonTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
  722. Property _type : String Index 8 Read F_type Write Set_type;
  723. end;
  724. TGeoJsonPolygonClass = Class of TGeoJsonPolygon;
  725. { --------------------------------------------------------------------
  726. TGeoJsonProperties
  727. --------------------------------------------------------------------}
  728. TGeoJsonProperties = Class(TGoogleBaseObject)
  729. Private
  730. Protected
  731. //Property setters
  732. Public
  733. Class Function AllowAdditionalProperties : Boolean; override;
  734. Published
  735. end;
  736. TGeoJsonPropertiesClass = Class of TGeoJsonProperties;
  737. { --------------------------------------------------------------------
  738. TIcon
  739. --------------------------------------------------------------------}
  740. TIcon = Class(TGoogleBaseObject)
  741. Private
  742. Fdescription : String;
  743. Fid : String;
  744. Fname : String;
  745. Protected
  746. //Property setters
  747. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  748. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  749. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  750. Public
  751. Published
  752. Property description : String Index 0 Read Fdescription Write Setdescription;
  753. Property id : String Index 8 Read Fid Write Setid;
  754. Property name : String Index 16 Read Fname Write Setname;
  755. end;
  756. TIconClass = Class of TIcon;
  757. { --------------------------------------------------------------------
  758. TIconStyle
  759. --------------------------------------------------------------------}
  760. TIconStyle = Class(TGoogleBaseObject)
  761. Private
  762. Fid : String;
  763. Fname : String;
  764. FscaledShape : TScaledShape;
  765. FscalingFunction : TScalingFunction;
  766. Protected
  767. //Property setters
  768. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  769. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  770. Procedure SetscaledShape(AIndex : Integer; AValue : TScaledShape); virtual;
  771. Procedure SetscalingFunction(AIndex : Integer; AValue : TScalingFunction); virtual;
  772. Public
  773. Published
  774. Property id : String Index 0 Read Fid Write Setid;
  775. Property name : String Index 8 Read Fname Write Setname;
  776. Property scaledShape : TScaledShape Index 16 Read FscaledShape Write SetscaledShape;
  777. Property scalingFunction : TScalingFunction Index 24 Read FscalingFunction Write SetscalingFunction;
  778. end;
  779. TIconStyleClass = Class of TIconStyle;
  780. { --------------------------------------------------------------------
  781. TIconsListResponse
  782. --------------------------------------------------------------------}
  783. TIconsListResponse = Class(TGoogleBaseObject)
  784. Private
  785. Ficons : TIconsListResponseTypeiconsArray;
  786. FnextPageToken : String;
  787. Protected
  788. //Property setters
  789. Procedure Seticons(AIndex : Integer; AValue : TIconsListResponseTypeiconsArray); virtual;
  790. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  791. //2.6.4. bug workaround
  792. {$IFDEF VER2_6}
  793. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  794. {$ENDIF VER2_6}
  795. Public
  796. Published
  797. Property icons : TIconsListResponseTypeiconsArray Index 0 Read Ficons Write Seticons;
  798. Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  799. end;
  800. TIconsListResponseClass = Class of TIconsListResponse;
  801. { --------------------------------------------------------------------
  802. TLabelStyle
  803. --------------------------------------------------------------------}
  804. TLabelStyle = Class(TGoogleBaseObject)
  805. Private
  806. Fcolor : String;
  807. Fcolumn : String;
  808. FfontStyle : String;
  809. FfontWeight : String;
  810. Fopacity : double;
  811. Foutline : TColor;
  812. Fsize : double;
  813. Protected
  814. //Property setters
  815. Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
  816. Procedure Setcolumn(AIndex : Integer; const AValue : String); virtual;
  817. Procedure SetfontStyle(AIndex : Integer; const AValue : String); virtual;
  818. Procedure SetfontWeight(AIndex : Integer; const AValue : String); virtual;
  819. Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
  820. Procedure Setoutline(AIndex : Integer; AValue : TColor); virtual;
  821. Procedure Setsize(AIndex : Integer; AValue : double); virtual;
  822. Public
  823. Published
  824. Property color : String Index 0 Read Fcolor Write Setcolor;
  825. Property column : String Index 8 Read Fcolumn Write Setcolumn;
  826. Property fontStyle : String Index 16 Read FfontStyle Write SetfontStyle;
  827. Property fontWeight : String Index 24 Read FfontWeight Write SetfontWeight;
  828. Property opacity : double Index 32 Read Fopacity Write Setopacity;
  829. Property outline : TColor Index 40 Read Foutline Write Setoutline;
  830. Property size : double Index 48 Read Fsize Write Setsize;
  831. end;
  832. TLabelStyleClass = Class of TLabelStyle;
  833. { --------------------------------------------------------------------
  834. TLayer
  835. --------------------------------------------------------------------}
  836. TLayer = Class(TGoogleBaseObject)
  837. Private
  838. Fbbox : TdoubleArray;
  839. FcreationTime : TDatetime;
  840. FcreatorEmail : String;
  841. FdatasourceType : String;
  842. Fdatasources : TDatasources;
  843. Fdescription : String;
  844. FdraftAccessList : String;
  845. Fetag : String;
  846. Fid : String;
  847. FlastModifiedTime : TDatetime;
  848. FlastModifierEmail : String;
  849. FlayerType : String;
  850. Fname : String;
  851. FprocessingStatus : String;
  852. FprojectId : String;
  853. FpublishedAccessList : String;
  854. FpublishingStatus : String;
  855. Fstyle : TVectorStyle;
  856. Ftags : TTags;
  857. FwritersCanEditPermissions : boolean;
  858. Protected
  859. //Property setters
  860. Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
  861. Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
  862. Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
  863. Procedure SetdatasourceType(AIndex : Integer; const AValue : String); virtual;
  864. Procedure Setdatasources(AIndex : Integer; AValue : TDatasources); virtual;
  865. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  866. Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
  867. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  868. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  869. Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
  870. Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
  871. Procedure SetlayerType(AIndex : Integer; const AValue : String); virtual;
  872. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  873. Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
  874. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  875. Procedure SetpublishedAccessList(AIndex : Integer; const AValue : String); virtual;
  876. Procedure SetpublishingStatus(AIndex : Integer; const AValue : String); virtual;
  877. Procedure Setstyle(AIndex : Integer; AValue : TVectorStyle); virtual;
  878. Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
  879. Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
  880. //2.6.4. bug workaround
  881. {$IFDEF VER2_6}
  882. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  883. {$ENDIF VER2_6}
  884. Public
  885. Published
  886. Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
  887. Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
  888. Property creatorEmail : String Index 16 Read FcreatorEmail Write SetcreatorEmail;
  889. Property datasourceType : String Index 24 Read FdatasourceType Write SetdatasourceType;
  890. Property datasources : TDatasources Index 32 Read Fdatasources Write Setdatasources;
  891. Property description : String Index 40 Read Fdescription Write Setdescription;
  892. Property draftAccessList : String Index 48 Read FdraftAccessList Write SetdraftAccessList;
  893. Property etag : String Index 56 Read Fetag Write Setetag;
  894. Property id : String Index 64 Read Fid Write Setid;
  895. Property lastModifiedTime : TDatetime Index 72 Read FlastModifiedTime Write SetlastModifiedTime;
  896. Property lastModifierEmail : String Index 80 Read FlastModifierEmail Write SetlastModifierEmail;
  897. Property layerType : String Index 88 Read FlayerType Write SetlayerType;
  898. Property name : String Index 96 Read Fname Write Setname;
  899. Property processingStatus : String Index 104 Read FprocessingStatus Write SetprocessingStatus;
  900. Property projectId : String Index 112 Read FprojectId Write SetprojectId;
  901. Property publishedAccessList : String Index 120 Read FpublishedAccessList Write SetpublishedAccessList;
  902. Property publishingStatus : String Index 128 Read FpublishingStatus Write SetpublishingStatus;
  903. Property style : TVectorStyle Index 136 Read Fstyle Write Setstyle;
  904. Property tags : TTags Index 144 Read Ftags Write Settags;
  905. Property writersCanEditPermissions : boolean Index 152 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
  906. end;
  907. TLayerClass = Class of TLayer;
  908. { --------------------------------------------------------------------
  909. TLayersListResponse
  910. --------------------------------------------------------------------}
  911. TLayersListResponse = Class(TGoogleBaseObject)
  912. Private
  913. Flayers : TLayersListResponseTypelayersArray;
  914. FnextPageToken : String;
  915. Protected
  916. //Property setters
  917. Procedure Setlayers(AIndex : Integer; AValue : TLayersListResponseTypelayersArray); virtual;
  918. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  919. //2.6.4. bug workaround
  920. {$IFDEF VER2_6}
  921. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  922. {$ENDIF VER2_6}
  923. Public
  924. Published
  925. Property layers : TLayersListResponseTypelayersArray Index 0 Read Flayers Write Setlayers;
  926. Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  927. end;
  928. TLayersListResponseClass = Class of TLayersListResponse;
  929. { --------------------------------------------------------------------
  930. TLineStyleTypestroke
  931. --------------------------------------------------------------------}
  932. TLineStyleTypestroke = Class(TGoogleBaseObject)
  933. Private
  934. Fcolor : String;
  935. Fopacity : double;
  936. Fwidth : double;
  937. Protected
  938. //Property setters
  939. Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
  940. Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
  941. Procedure Setwidth(AIndex : Integer; AValue : double); virtual;
  942. Public
  943. Published
  944. Property color : String Index 0 Read Fcolor Write Setcolor;
  945. Property opacity : double Index 8 Read Fopacity Write Setopacity;
  946. Property width : double Index 16 Read Fwidth Write Setwidth;
  947. end;
  948. TLineStyleTypestrokeClass = Class of TLineStyleTypestroke;
  949. { --------------------------------------------------------------------
  950. TLineStyle
  951. --------------------------------------------------------------------}
  952. TLineStyle = Class(TGoogleBaseObject)
  953. Private
  954. Fborder : TBorder;
  955. Fdash : TdoubleArray;
  956. F_label : TLabelStyle;
  957. Fstroke : TLineStyleTypestroke;
  958. Protected
  959. Class Function ExportPropertyName(Const AName : String) : string; override;
  960. //Property setters
  961. Procedure Setborder(AIndex : Integer; AValue : TBorder); virtual;
  962. Procedure Setdash(AIndex : Integer; AValue : TdoubleArray); virtual;
  963. Procedure Set_label(AIndex : Integer; AValue : TLabelStyle); virtual;
  964. Procedure Setstroke(AIndex : Integer; AValue : TLineStyleTypestroke); virtual;
  965. //2.6.4. bug workaround
  966. {$IFDEF VER2_6}
  967. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  968. {$ENDIF VER2_6}
  969. Public
  970. Published
  971. Property border : TBorder Index 0 Read Fborder Write Setborder;
  972. Property dash : TdoubleArray Index 8 Read Fdash Write Setdash;
  973. Property _label : TLabelStyle Index 16 Read F_label Write Set_label;
  974. Property stroke : TLineStyleTypestroke Index 24 Read Fstroke Write Setstroke;
  975. end;
  976. TLineStyleClass = Class of TLineStyle;
  977. { --------------------------------------------------------------------
  978. TMap
  979. --------------------------------------------------------------------}
  980. TMap = Class(TGoogleBaseObject)
  981. Private
  982. Fbbox : TdoubleArray;
  983. Fcontents : TMapContents;
  984. FcreationTime : TDatetime;
  985. FcreatorEmail : String;
  986. FdefaultViewport : TLatLngBox;
  987. Fdescription : String;
  988. FdraftAccessList : String;
  989. Fetag : String;
  990. Fid : String;
  991. FlastModifiedTime : TDatetime;
  992. FlastModifierEmail : String;
  993. Fname : String;
  994. FprocessingStatus : String;
  995. FprojectId : String;
  996. FpublishedAccessList : String;
  997. FpublishingStatus : String;
  998. Ftags : TTags;
  999. Fversions : TStringArray;
  1000. FwritersCanEditPermissions : boolean;
  1001. Protected
  1002. //Property setters
  1003. Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
  1004. Procedure Setcontents(AIndex : Integer; AValue : TMapContents); virtual;
  1005. Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
  1006. Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
  1007. Procedure SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox); virtual;
  1008. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1009. Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
  1010. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1011. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1012. Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
  1013. Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
  1014. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1015. Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
  1016. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  1017. Procedure SetpublishedAccessList(AIndex : Integer; const AValue : String); virtual;
  1018. Procedure SetpublishingStatus(AIndex : Integer; const AValue : String); virtual;
  1019. Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
  1020. Procedure Setversions(AIndex : Integer; AValue : TStringArray); virtual;
  1021. Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
  1022. //2.6.4. bug workaround
  1023. {$IFDEF VER2_6}
  1024. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1025. {$ENDIF VER2_6}
  1026. Public
  1027. Published
  1028. Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
  1029. Property contents : TMapContents Index 8 Read Fcontents Write Setcontents;
  1030. Property creationTime : TDatetime Index 16 Read FcreationTime Write SetcreationTime;
  1031. Property creatorEmail : String Index 24 Read FcreatorEmail Write SetcreatorEmail;
  1032. Property defaultViewport : TLatLngBox Index 32 Read FdefaultViewport Write SetdefaultViewport;
  1033. Property description : String Index 40 Read Fdescription Write Setdescription;
  1034. Property draftAccessList : String Index 48 Read FdraftAccessList Write SetdraftAccessList;
  1035. Property etag : String Index 56 Read Fetag Write Setetag;
  1036. Property id : String Index 64 Read Fid Write Setid;
  1037. Property lastModifiedTime : TDatetime Index 72 Read FlastModifiedTime Write SetlastModifiedTime;
  1038. Property lastModifierEmail : String Index 80 Read FlastModifierEmail Write SetlastModifierEmail;
  1039. Property name : String Index 88 Read Fname Write Setname;
  1040. Property processingStatus : String Index 96 Read FprocessingStatus Write SetprocessingStatus;
  1041. Property projectId : String Index 104 Read FprojectId Write SetprojectId;
  1042. Property publishedAccessList : String Index 112 Read FpublishedAccessList Write SetpublishedAccessList;
  1043. Property publishingStatus : String Index 120 Read FpublishingStatus Write SetpublishingStatus;
  1044. Property tags : TTags Index 128 Read Ftags Write Settags;
  1045. Property versions : TStringArray Index 136 Read Fversions Write Setversions;
  1046. Property writersCanEditPermissions : boolean Index 144 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
  1047. end;
  1048. TMapClass = Class of TMap;
  1049. { --------------------------------------------------------------------
  1050. TMapFolder
  1051. --------------------------------------------------------------------}
  1052. TMapFolder = Class(TGoogleBaseObject)
  1053. Private
  1054. Fcontents : TMapFolderTypecontentsArray;
  1055. FdefaultViewport : TdoubleArray;
  1056. Fexpandable : boolean;
  1057. Fkey : String;
  1058. Fname : String;
  1059. F_type : String;
  1060. Fvisibility : String;
  1061. Protected
  1062. Class Function ExportPropertyName(Const AName : String) : string; override;
  1063. //Property setters
  1064. Procedure Setcontents(AIndex : Integer; AValue : TMapFolderTypecontentsArray); virtual;
  1065. Procedure SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray); virtual;
  1066. Procedure Setexpandable(AIndex : Integer; AValue : boolean); virtual;
  1067. Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
  1068. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1069. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1070. Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
  1071. //2.6.4. bug workaround
  1072. {$IFDEF VER2_6}
  1073. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1074. {$ENDIF VER2_6}
  1075. Public
  1076. Published
  1077. Property contents : TMapFolderTypecontentsArray Index 0 Read Fcontents Write Setcontents;
  1078. Property defaultViewport : TdoubleArray Index 8 Read FdefaultViewport Write SetdefaultViewport;
  1079. Property expandable : boolean Index 16 Read Fexpandable Write Setexpandable;
  1080. Property key : String Index 24 Read Fkey Write Setkey;
  1081. Property name : String Index 32 Read Fname Write Setname;
  1082. Property _type : String Index 40 Read F_type Write Set_type;
  1083. Property visibility : String Index 48 Read Fvisibility Write Setvisibility;
  1084. end;
  1085. TMapFolderClass = Class of TMapFolder;
  1086. { --------------------------------------------------------------------
  1087. TMapItem
  1088. --------------------------------------------------------------------}
  1089. TMapItem = Class(TGoogleBaseObject)
  1090. Private
  1091. Protected
  1092. //Property setters
  1093. Public
  1094. Published
  1095. end;
  1096. TMapItemClass = Class of TMapItem;
  1097. { --------------------------------------------------------------------
  1098. TMapKmlLink
  1099. --------------------------------------------------------------------}
  1100. TMapKmlLink = Class(TGoogleBaseObject)
  1101. Private
  1102. FdefaultViewport : TdoubleArray;
  1103. FkmlUrl : String;
  1104. Fname : String;
  1105. F_type : String;
  1106. Fvisibility : String;
  1107. Protected
  1108. Class Function ExportPropertyName(Const AName : String) : string; override;
  1109. //Property setters
  1110. Procedure SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray); virtual;
  1111. Procedure SetkmlUrl(AIndex : Integer; const AValue : String); virtual;
  1112. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1113. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1114. Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
  1115. //2.6.4. bug workaround
  1116. {$IFDEF VER2_6}
  1117. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1118. {$ENDIF VER2_6}
  1119. Public
  1120. Published
  1121. Property defaultViewport : TdoubleArray Index 0 Read FdefaultViewport Write SetdefaultViewport;
  1122. Property kmlUrl : String Index 8 Read FkmlUrl Write SetkmlUrl;
  1123. Property name : String Index 16 Read Fname Write Setname;
  1124. Property _type : String Index 24 Read F_type Write Set_type;
  1125. Property visibility : String Index 32 Read Fvisibility Write Setvisibility;
  1126. end;
  1127. TMapKmlLinkClass = Class of TMapKmlLink;
  1128. { --------------------------------------------------------------------
  1129. TMapLayer
  1130. --------------------------------------------------------------------}
  1131. TMapLayer = Class(TGoogleBaseObject)
  1132. Private
  1133. FdefaultViewport : TdoubleArray;
  1134. Fid : String;
  1135. Fkey : String;
  1136. Fname : String;
  1137. F_type : String;
  1138. Fvisibility : String;
  1139. Protected
  1140. Class Function ExportPropertyName(Const AName : String) : string; override;
  1141. //Property setters
  1142. Procedure SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray); virtual;
  1143. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1144. Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
  1145. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1146. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1147. Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
  1148. //2.6.4. bug workaround
  1149. {$IFDEF VER2_6}
  1150. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1151. {$ENDIF VER2_6}
  1152. Public
  1153. Published
  1154. Property defaultViewport : TdoubleArray Index 0 Read FdefaultViewport Write SetdefaultViewport;
  1155. Property id : String Index 8 Read Fid Write Setid;
  1156. Property key : String Index 16 Read Fkey Write Setkey;
  1157. Property name : String Index 24 Read Fname Write Setname;
  1158. Property _type : String Index 32 Read F_type Write Set_type;
  1159. Property visibility : String Index 40 Read Fvisibility Write Setvisibility;
  1160. end;
  1161. TMapLayerClass = Class of TMapLayer;
  1162. { --------------------------------------------------------------------
  1163. TMapsListResponse
  1164. --------------------------------------------------------------------}
  1165. TMapsListResponse = Class(TGoogleBaseObject)
  1166. Private
  1167. Fmaps : TMapsListResponseTypemapsArray;
  1168. FnextPageToken : String;
  1169. Protected
  1170. //Property setters
  1171. Procedure Setmaps(AIndex : Integer; AValue : TMapsListResponseTypemapsArray); virtual;
  1172. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1173. //2.6.4. bug workaround
  1174. {$IFDEF VER2_6}
  1175. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1176. {$ENDIF VER2_6}
  1177. Public
  1178. Published
  1179. Property maps : TMapsListResponseTypemapsArray Index 0 Read Fmaps Write Setmaps;
  1180. Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  1181. end;
  1182. TMapsListResponseClass = Class of TMapsListResponse;
  1183. { --------------------------------------------------------------------
  1184. TParent
  1185. --------------------------------------------------------------------}
  1186. TParent = Class(TGoogleBaseObject)
  1187. Private
  1188. Fid : String;
  1189. Protected
  1190. //Property setters
  1191. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1192. Public
  1193. Published
  1194. Property id : String Index 0 Read Fid Write Setid;
  1195. end;
  1196. TParentClass = Class of TParent;
  1197. { --------------------------------------------------------------------
  1198. TParentsListResponse
  1199. --------------------------------------------------------------------}
  1200. TParentsListResponse = Class(TGoogleBaseObject)
  1201. Private
  1202. FnextPageToken : String;
  1203. Fparents : TParentsListResponseTypeparentsArray;
  1204. Protected
  1205. //Property setters
  1206. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1207. Procedure Setparents(AIndex : Integer; AValue : TParentsListResponseTypeparentsArray); virtual;
  1208. //2.6.4. bug workaround
  1209. {$IFDEF VER2_6}
  1210. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1211. {$ENDIF VER2_6}
  1212. Public
  1213. Published
  1214. Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
  1215. Property parents : TParentsListResponseTypeparentsArray Index 8 Read Fparents Write Setparents;
  1216. end;
  1217. TParentsListResponseClass = Class of TParentsListResponse;
  1218. { --------------------------------------------------------------------
  1219. TPermission
  1220. --------------------------------------------------------------------}
  1221. TPermission = Class(TGoogleBaseObject)
  1222. Private
  1223. Fdiscoverable : boolean;
  1224. Fid : String;
  1225. Frole : String;
  1226. F_type : String;
  1227. Protected
  1228. Class Function ExportPropertyName(Const AName : String) : string; override;
  1229. //Property setters
  1230. Procedure Setdiscoverable(AIndex : Integer; AValue : boolean); virtual;
  1231. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1232. Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
  1233. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1234. Public
  1235. Published
  1236. Property discoverable : boolean Index 0 Read Fdiscoverable Write Setdiscoverable;
  1237. Property id : String Index 8 Read Fid Write Setid;
  1238. Property role : String Index 16 Read Frole Write Setrole;
  1239. Property _type : String Index 24 Read F_type Write Set_type;
  1240. end;
  1241. TPermissionClass = Class of TPermission;
  1242. { --------------------------------------------------------------------
  1243. TPermissionsBatchDeleteRequest
  1244. --------------------------------------------------------------------}
  1245. TPermissionsBatchDeleteRequest = Class(TGoogleBaseObject)
  1246. Private
  1247. Fids : TStringArray;
  1248. Protected
  1249. //Property setters
  1250. Procedure Setids(AIndex : Integer; AValue : TStringArray); virtual;
  1251. //2.6.4. bug workaround
  1252. {$IFDEF VER2_6}
  1253. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1254. {$ENDIF VER2_6}
  1255. Public
  1256. Published
  1257. Property ids : TStringArray Index 0 Read Fids Write Setids;
  1258. end;
  1259. TPermissionsBatchDeleteRequestClass = Class of TPermissionsBatchDeleteRequest;
  1260. { --------------------------------------------------------------------
  1261. TPermissionsBatchDeleteResponse
  1262. --------------------------------------------------------------------}
  1263. TPermissionsBatchDeleteResponse = Class(TGoogleBaseObject)
  1264. Private
  1265. Protected
  1266. //Property setters
  1267. Public
  1268. Published
  1269. end;
  1270. TPermissionsBatchDeleteResponseClass = Class of TPermissionsBatchDeleteResponse;
  1271. { --------------------------------------------------------------------
  1272. TPermissionsBatchUpdateRequest
  1273. --------------------------------------------------------------------}
  1274. TPermissionsBatchUpdateRequest = Class(TGoogleBaseObject)
  1275. Private
  1276. Fpermissions : TPermissionsBatchUpdateRequestTypepermissionsArray;
  1277. Protected
  1278. //Property setters
  1279. Procedure Setpermissions(AIndex : Integer; AValue : TPermissionsBatchUpdateRequestTypepermissionsArray); virtual;
  1280. //2.6.4. bug workaround
  1281. {$IFDEF VER2_6}
  1282. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1283. {$ENDIF VER2_6}
  1284. Public
  1285. Published
  1286. Property permissions : TPermissionsBatchUpdateRequestTypepermissionsArray Index 0 Read Fpermissions Write Setpermissions;
  1287. end;
  1288. TPermissionsBatchUpdateRequestClass = Class of TPermissionsBatchUpdateRequest;
  1289. { --------------------------------------------------------------------
  1290. TPermissionsBatchUpdateResponse
  1291. --------------------------------------------------------------------}
  1292. TPermissionsBatchUpdateResponse = Class(TGoogleBaseObject)
  1293. Private
  1294. Protected
  1295. //Property setters
  1296. Public
  1297. Published
  1298. end;
  1299. TPermissionsBatchUpdateResponseClass = Class of TPermissionsBatchUpdateResponse;
  1300. { --------------------------------------------------------------------
  1301. TPermissionsListResponse
  1302. --------------------------------------------------------------------}
  1303. TPermissionsListResponse = Class(TGoogleBaseObject)
  1304. Private
  1305. Fpermissions : TPermissionsListResponseTypepermissionsArray;
  1306. Protected
  1307. //Property setters
  1308. Procedure Setpermissions(AIndex : Integer; AValue : TPermissionsListResponseTypepermissionsArray); virtual;
  1309. //2.6.4. bug workaround
  1310. {$IFDEF VER2_6}
  1311. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1312. {$ENDIF VER2_6}
  1313. Public
  1314. Published
  1315. Property permissions : TPermissionsListResponseTypepermissionsArray Index 0 Read Fpermissions Write Setpermissions;
  1316. end;
  1317. TPermissionsListResponseClass = Class of TPermissionsListResponse;
  1318. { --------------------------------------------------------------------
  1319. TPointStyle
  1320. --------------------------------------------------------------------}
  1321. TPointStyle = Class(TGoogleBaseObject)
  1322. Private
  1323. Ficon : TIconStyle;
  1324. F_label : TLabelStyle;
  1325. Protected
  1326. Class Function ExportPropertyName(Const AName : String) : string; override;
  1327. //Property setters
  1328. Procedure Seticon(AIndex : Integer; AValue : TIconStyle); virtual;
  1329. Procedure Set_label(AIndex : Integer; AValue : TLabelStyle); virtual;
  1330. Public
  1331. Published
  1332. Property icon : TIconStyle Index 0 Read Ficon Write Seticon;
  1333. Property _label : TLabelStyle Index 8 Read F_label Write Set_label;
  1334. end;
  1335. TPointStyleClass = Class of TPointStyle;
  1336. { --------------------------------------------------------------------
  1337. TPolygonStyle
  1338. --------------------------------------------------------------------}
  1339. TPolygonStyle = Class(TGoogleBaseObject)
  1340. Private
  1341. Ffill : TColor;
  1342. F_label : TLabelStyle;
  1343. Fstroke : TBorder;
  1344. Protected
  1345. Class Function ExportPropertyName(Const AName : String) : string; override;
  1346. //Property setters
  1347. Procedure Setfill(AIndex : Integer; AValue : TColor); virtual;
  1348. Procedure Set_label(AIndex : Integer; AValue : TLabelStyle); virtual;
  1349. Procedure Setstroke(AIndex : Integer; AValue : TBorder); virtual;
  1350. Public
  1351. Published
  1352. Property fill : TColor Index 0 Read Ffill Write Setfill;
  1353. Property _label : TLabelStyle Index 8 Read F_label Write Set_label;
  1354. Property stroke : TBorder Index 16 Read Fstroke Write Setstroke;
  1355. end;
  1356. TPolygonStyleClass = Class of TPolygonStyle;
  1357. { --------------------------------------------------------------------
  1358. TProcessResponse
  1359. --------------------------------------------------------------------}
  1360. TProcessResponse = Class(TGoogleBaseObject)
  1361. Private
  1362. Protected
  1363. //Property setters
  1364. Public
  1365. Published
  1366. end;
  1367. TProcessResponseClass = Class of TProcessResponse;
  1368. { --------------------------------------------------------------------
  1369. TProject
  1370. --------------------------------------------------------------------}
  1371. TProject = Class(TGoogleBaseObject)
  1372. Private
  1373. Fid : String;
  1374. Fname : String;
  1375. Protected
  1376. //Property setters
  1377. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1378. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1379. Public
  1380. Published
  1381. Property id : String Index 0 Read Fid Write Setid;
  1382. Property name : String Index 8 Read Fname Write Setname;
  1383. end;
  1384. TProjectClass = Class of TProject;
  1385. { --------------------------------------------------------------------
  1386. TProjectsListResponse
  1387. --------------------------------------------------------------------}
  1388. TProjectsListResponse = Class(TGoogleBaseObject)
  1389. Private
  1390. Fprojects : TProjectsListResponseTypeprojectsArray;
  1391. Protected
  1392. //Property setters
  1393. Procedure Setprojects(AIndex : Integer; AValue : TProjectsListResponseTypeprojectsArray); virtual;
  1394. //2.6.4. bug workaround
  1395. {$IFDEF VER2_6}
  1396. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1397. {$ENDIF VER2_6}
  1398. Public
  1399. Published
  1400. Property projects : TProjectsListResponseTypeprojectsArray Index 0 Read Fprojects Write Setprojects;
  1401. end;
  1402. TProjectsListResponseClass = Class of TProjectsListResponse;
  1403. { --------------------------------------------------------------------
  1404. TPublishResponse
  1405. --------------------------------------------------------------------}
  1406. TPublishResponse = Class(TGoogleBaseObject)
  1407. Private
  1408. Protected
  1409. //Property setters
  1410. Public
  1411. Published
  1412. end;
  1413. TPublishResponseClass = Class of TPublishResponse;
  1414. { --------------------------------------------------------------------
  1415. TPublishedLayer
  1416. --------------------------------------------------------------------}
  1417. TPublishedLayer = Class(TGoogleBaseObject)
  1418. Private
  1419. Fdescription : String;
  1420. Fid : String;
  1421. FlayerType : String;
  1422. Fname : String;
  1423. FprojectId : String;
  1424. Protected
  1425. //Property setters
  1426. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1427. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1428. Procedure SetlayerType(AIndex : Integer; const AValue : String); virtual;
  1429. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1430. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  1431. Public
  1432. Published
  1433. Property description : String Index 0 Read Fdescription Write Setdescription;
  1434. Property id : String Index 8 Read Fid Write Setid;
  1435. Property layerType : String Index 16 Read FlayerType Write SetlayerType;
  1436. Property name : String Index 24 Read Fname Write Setname;
  1437. Property projectId : String Index 32 Read FprojectId Write SetprojectId;
  1438. end;
  1439. TPublishedLayerClass = Class of TPublishedLayer;
  1440. { --------------------------------------------------------------------
  1441. TPublishedLayersListResponse
  1442. --------------------------------------------------------------------}
  1443. TPublishedLayersListResponse = Class(TGoogleBaseObject)
  1444. Private
  1445. Flayers : TPublishedLayersListResponseTypelayersArray;
  1446. FnextPageToken : String;
  1447. Protected
  1448. //Property setters
  1449. Procedure Setlayers(AIndex : Integer; AValue : TPublishedLayersListResponseTypelayersArray); virtual;
  1450. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1451. //2.6.4. bug workaround
  1452. {$IFDEF VER2_6}
  1453. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1454. {$ENDIF VER2_6}
  1455. Public
  1456. Published
  1457. Property layers : TPublishedLayersListResponseTypelayersArray Index 0 Read Flayers Write Setlayers;
  1458. Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  1459. end;
  1460. TPublishedLayersListResponseClass = Class of TPublishedLayersListResponse;
  1461. { --------------------------------------------------------------------
  1462. TPublishedMap
  1463. --------------------------------------------------------------------}
  1464. TPublishedMap = Class(TGoogleBaseObject)
  1465. Private
  1466. Fcontents : TMapContents;
  1467. FdefaultViewport : TLatLngBox;
  1468. Fdescription : String;
  1469. Fid : String;
  1470. Fname : String;
  1471. FprojectId : String;
  1472. Protected
  1473. //Property setters
  1474. Procedure Setcontents(AIndex : Integer; AValue : TMapContents); virtual;
  1475. Procedure SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox); virtual;
  1476. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1477. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1478. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1479. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  1480. Public
  1481. Published
  1482. Property contents : TMapContents Index 0 Read Fcontents Write Setcontents;
  1483. Property defaultViewport : TLatLngBox Index 8 Read FdefaultViewport Write SetdefaultViewport;
  1484. Property description : String Index 16 Read Fdescription Write Setdescription;
  1485. Property id : String Index 24 Read Fid Write Setid;
  1486. Property name : String Index 32 Read Fname Write Setname;
  1487. Property projectId : String Index 40 Read FprojectId Write SetprojectId;
  1488. end;
  1489. TPublishedMapClass = Class of TPublishedMap;
  1490. { --------------------------------------------------------------------
  1491. TPublishedMapsListResponse
  1492. --------------------------------------------------------------------}
  1493. TPublishedMapsListResponse = Class(TGoogleBaseObject)
  1494. Private
  1495. Fmaps : TPublishedMapsListResponseTypemapsArray;
  1496. FnextPageToken : String;
  1497. Protected
  1498. //Property setters
  1499. Procedure Setmaps(AIndex : Integer; AValue : TPublishedMapsListResponseTypemapsArray); virtual;
  1500. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1501. //2.6.4. bug workaround
  1502. {$IFDEF VER2_6}
  1503. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1504. {$ENDIF VER2_6}
  1505. Public
  1506. Published
  1507. Property maps : TPublishedMapsListResponseTypemapsArray Index 0 Read Fmaps Write Setmaps;
  1508. Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  1509. end;
  1510. TPublishedMapsListResponseClass = Class of TPublishedMapsListResponse;
  1511. { --------------------------------------------------------------------
  1512. TRaster
  1513. --------------------------------------------------------------------}
  1514. TRaster = Class(TGoogleBaseObject)
  1515. Private
  1516. FacquisitionTime : TAcquisitionTime;
  1517. Fattribution : String;
  1518. Fbbox : TdoubleArray;
  1519. FcreationTime : TDatetime;
  1520. FcreatorEmail : String;
  1521. Fdescription : String;
  1522. FdraftAccessList : String;
  1523. Fetag : String;
  1524. Ffiles : TRasterTypefilesArray;
  1525. Fid : String;
  1526. FlastModifiedTime : TDatetime;
  1527. FlastModifierEmail : String;
  1528. FmaskType : String;
  1529. Fname : String;
  1530. FprocessingStatus : String;
  1531. FprojectId : String;
  1532. FrasterType : String;
  1533. Ftags : TTags;
  1534. FwritersCanEditPermissions : boolean;
  1535. Protected
  1536. //Property setters
  1537. Procedure SetacquisitionTime(AIndex : Integer; AValue : TAcquisitionTime); virtual;
  1538. Procedure Setattribution(AIndex : Integer; const AValue : String); virtual;
  1539. Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
  1540. Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
  1541. Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
  1542. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1543. Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
  1544. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1545. Procedure Setfiles(AIndex : Integer; AValue : TRasterTypefilesArray); virtual;
  1546. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1547. Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
  1548. Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
  1549. Procedure SetmaskType(AIndex : Integer; const AValue : String); virtual;
  1550. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1551. Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
  1552. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  1553. Procedure SetrasterType(AIndex : Integer; const AValue : String); virtual;
  1554. Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
  1555. Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
  1556. //2.6.4. bug workaround
  1557. {$IFDEF VER2_6}
  1558. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1559. {$ENDIF VER2_6}
  1560. Public
  1561. Published
  1562. Property acquisitionTime : TAcquisitionTime Index 0 Read FacquisitionTime Write SetacquisitionTime;
  1563. Property attribution : String Index 8 Read Fattribution Write Setattribution;
  1564. Property bbox : TdoubleArray Index 16 Read Fbbox Write Setbbox;
  1565. Property creationTime : TDatetime Index 24 Read FcreationTime Write SetcreationTime;
  1566. Property creatorEmail : String Index 32 Read FcreatorEmail Write SetcreatorEmail;
  1567. Property description : String Index 40 Read Fdescription Write Setdescription;
  1568. Property draftAccessList : String Index 48 Read FdraftAccessList Write SetdraftAccessList;
  1569. Property etag : String Index 56 Read Fetag Write Setetag;
  1570. Property files : TRasterTypefilesArray Index 64 Read Ffiles Write Setfiles;
  1571. Property id : String Index 72 Read Fid Write Setid;
  1572. Property lastModifiedTime : TDatetime Index 80 Read FlastModifiedTime Write SetlastModifiedTime;
  1573. Property lastModifierEmail : String Index 88 Read FlastModifierEmail Write SetlastModifierEmail;
  1574. Property maskType : String Index 96 Read FmaskType Write SetmaskType;
  1575. Property name : String Index 104 Read Fname Write Setname;
  1576. Property processingStatus : String Index 112 Read FprocessingStatus Write SetprocessingStatus;
  1577. Property projectId : String Index 120 Read FprojectId Write SetprojectId;
  1578. Property rasterType : String Index 128 Read FrasterType Write SetrasterType;
  1579. Property tags : TTags Index 136 Read Ftags Write Settags;
  1580. Property writersCanEditPermissions : boolean Index 144 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
  1581. end;
  1582. TRasterClass = Class of TRaster;
  1583. { --------------------------------------------------------------------
  1584. TRasterCollection
  1585. --------------------------------------------------------------------}
  1586. TRasterCollection = Class(TGoogleBaseObject)
  1587. Private
  1588. Fattribution : String;
  1589. Fbbox : TdoubleArray;
  1590. FcreationTime : TDatetime;
  1591. FcreatorEmail : String;
  1592. Fdescription : String;
  1593. FdraftAccessList : String;
  1594. Fetag : String;
  1595. Fid : String;
  1596. FlastModifiedTime : TDatetime;
  1597. FlastModifierEmail : String;
  1598. Fmosaic : boolean;
  1599. Fname : String;
  1600. FprocessingStatus : String;
  1601. FprojectId : String;
  1602. FrasterType : String;
  1603. Ftags : TTags;
  1604. FwritersCanEditPermissions : boolean;
  1605. Protected
  1606. //Property setters
  1607. Procedure Setattribution(AIndex : Integer; const AValue : String); virtual;
  1608. Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
  1609. Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
  1610. Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
  1611. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1612. Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
  1613. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1614. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1615. Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
  1616. Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
  1617. Procedure Setmosaic(AIndex : Integer; AValue : boolean); virtual;
  1618. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1619. Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
  1620. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  1621. Procedure SetrasterType(AIndex : Integer; const AValue : String); virtual;
  1622. Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
  1623. Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
  1624. //2.6.4. bug workaround
  1625. {$IFDEF VER2_6}
  1626. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1627. {$ENDIF VER2_6}
  1628. Public
  1629. Published
  1630. Property attribution : String Index 0 Read Fattribution Write Setattribution;
  1631. Property bbox : TdoubleArray Index 8 Read Fbbox Write Setbbox;
  1632. Property creationTime : TDatetime Index 16 Read FcreationTime Write SetcreationTime;
  1633. Property creatorEmail : String Index 24 Read FcreatorEmail Write SetcreatorEmail;
  1634. Property description : String Index 32 Read Fdescription Write Setdescription;
  1635. Property draftAccessList : String Index 40 Read FdraftAccessList Write SetdraftAccessList;
  1636. Property etag : String Index 48 Read Fetag Write Setetag;
  1637. Property id : String Index 56 Read Fid Write Setid;
  1638. Property lastModifiedTime : TDatetime Index 64 Read FlastModifiedTime Write SetlastModifiedTime;
  1639. Property lastModifierEmail : String Index 72 Read FlastModifierEmail Write SetlastModifierEmail;
  1640. Property mosaic : boolean Index 80 Read Fmosaic Write Setmosaic;
  1641. Property name : String Index 88 Read Fname Write Setname;
  1642. Property processingStatus : String Index 96 Read FprocessingStatus Write SetprocessingStatus;
  1643. Property projectId : String Index 104 Read FprojectId Write SetprojectId;
  1644. Property rasterType : String Index 112 Read FrasterType Write SetrasterType;
  1645. Property tags : TTags Index 120 Read Ftags Write Settags;
  1646. Property writersCanEditPermissions : boolean Index 128 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
  1647. end;
  1648. TRasterCollectionClass = Class of TRasterCollection;
  1649. { --------------------------------------------------------------------
  1650. TRasterCollectionsListResponse
  1651. --------------------------------------------------------------------}
  1652. TRasterCollectionsListResponse = Class(TGoogleBaseObject)
  1653. Private
  1654. FnextPageToken : String;
  1655. FrasterCollections : TRasterCollectionsListResponseTyperasterCollectionsArray;
  1656. Protected
  1657. //Property setters
  1658. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1659. Procedure SetrasterCollections(AIndex : Integer; AValue : TRasterCollectionsListResponseTyperasterCollectionsArray); virtual;
  1660. //2.6.4. bug workaround
  1661. {$IFDEF VER2_6}
  1662. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1663. {$ENDIF VER2_6}
  1664. Public
  1665. Published
  1666. Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
  1667. Property rasterCollections : TRasterCollectionsListResponseTyperasterCollectionsArray Index 8 Read FrasterCollections Write SetrasterCollections;
  1668. end;
  1669. TRasterCollectionsListResponseClass = Class of TRasterCollectionsListResponse;
  1670. { --------------------------------------------------------------------
  1671. TRasterCollectionsRaster
  1672. --------------------------------------------------------------------}
  1673. TRasterCollectionsRaster = Class(TGoogleBaseObject)
  1674. Private
  1675. Fbbox : TdoubleArray;
  1676. FcreationTime : TDatetime;
  1677. Fdescription : String;
  1678. Fid : String;
  1679. FlastModifiedTime : TDatetime;
  1680. Fname : String;
  1681. FprojectId : String;
  1682. FrasterType : String;
  1683. Ftags : TStringArray;
  1684. Protected
  1685. //Property setters
  1686. Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
  1687. Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
  1688. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1689. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1690. Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
  1691. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1692. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  1693. Procedure SetrasterType(AIndex : Integer; const AValue : String); virtual;
  1694. Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
  1695. //2.6.4. bug workaround
  1696. {$IFDEF VER2_6}
  1697. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1698. {$ENDIF VER2_6}
  1699. Public
  1700. Published
  1701. Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
  1702. Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
  1703. Property description : String Index 16 Read Fdescription Write Setdescription;
  1704. Property id : String Index 24 Read Fid Write Setid;
  1705. Property lastModifiedTime : TDatetime Index 32 Read FlastModifiedTime Write SetlastModifiedTime;
  1706. Property name : String Index 40 Read Fname Write Setname;
  1707. Property projectId : String Index 48 Read FprojectId Write SetprojectId;
  1708. Property rasterType : String Index 56 Read FrasterType Write SetrasterType;
  1709. Property tags : TStringArray Index 64 Read Ftags Write Settags;
  1710. end;
  1711. TRasterCollectionsRasterClass = Class of TRasterCollectionsRaster;
  1712. { --------------------------------------------------------------------
  1713. TRasterCollectionsRasterBatchDeleteRequest
  1714. --------------------------------------------------------------------}
  1715. TRasterCollectionsRasterBatchDeleteRequest = Class(TGoogleBaseObject)
  1716. Private
  1717. Fids : TStringArray;
  1718. Protected
  1719. //Property setters
  1720. Procedure Setids(AIndex : Integer; AValue : TStringArray); virtual;
  1721. //2.6.4. bug workaround
  1722. {$IFDEF VER2_6}
  1723. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1724. {$ENDIF VER2_6}
  1725. Public
  1726. Published
  1727. Property ids : TStringArray Index 0 Read Fids Write Setids;
  1728. end;
  1729. TRasterCollectionsRasterBatchDeleteRequestClass = Class of TRasterCollectionsRasterBatchDeleteRequest;
  1730. { --------------------------------------------------------------------
  1731. TRasterCollectionsRastersBatchDeleteResponse
  1732. --------------------------------------------------------------------}
  1733. TRasterCollectionsRastersBatchDeleteResponse = Class(TGoogleBaseObject)
  1734. Private
  1735. Protected
  1736. //Property setters
  1737. Public
  1738. Published
  1739. end;
  1740. TRasterCollectionsRastersBatchDeleteResponseClass = Class of TRasterCollectionsRastersBatchDeleteResponse;
  1741. { --------------------------------------------------------------------
  1742. TRasterCollectionsRastersBatchInsertRequest
  1743. --------------------------------------------------------------------}
  1744. TRasterCollectionsRastersBatchInsertRequest = Class(TGoogleBaseObject)
  1745. Private
  1746. Fids : TStringArray;
  1747. Protected
  1748. //Property setters
  1749. Procedure Setids(AIndex : Integer; AValue : TStringArray); virtual;
  1750. //2.6.4. bug workaround
  1751. {$IFDEF VER2_6}
  1752. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1753. {$ENDIF VER2_6}
  1754. Public
  1755. Published
  1756. Property ids : TStringArray Index 0 Read Fids Write Setids;
  1757. end;
  1758. TRasterCollectionsRastersBatchInsertRequestClass = Class of TRasterCollectionsRastersBatchInsertRequest;
  1759. { --------------------------------------------------------------------
  1760. TRasterCollectionsRastersBatchInsertResponse
  1761. --------------------------------------------------------------------}
  1762. TRasterCollectionsRastersBatchInsertResponse = Class(TGoogleBaseObject)
  1763. Private
  1764. Protected
  1765. //Property setters
  1766. Public
  1767. Published
  1768. end;
  1769. TRasterCollectionsRastersBatchInsertResponseClass = Class of TRasterCollectionsRastersBatchInsertResponse;
  1770. { --------------------------------------------------------------------
  1771. TRasterCollectionsRastersListResponse
  1772. --------------------------------------------------------------------}
  1773. TRasterCollectionsRastersListResponse = Class(TGoogleBaseObject)
  1774. Private
  1775. FnextPageToken : String;
  1776. Frasters : TRasterCollectionsRastersListResponseTyperastersArray;
  1777. Protected
  1778. //Property setters
  1779. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1780. Procedure Setrasters(AIndex : Integer; AValue : TRasterCollectionsRastersListResponseTyperastersArray); virtual;
  1781. //2.6.4. bug workaround
  1782. {$IFDEF VER2_6}
  1783. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1784. {$ENDIF VER2_6}
  1785. Public
  1786. Published
  1787. Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
  1788. Property rasters : TRasterCollectionsRastersListResponseTyperastersArray Index 8 Read Frasters Write Setrasters;
  1789. end;
  1790. TRasterCollectionsRastersListResponseClass = Class of TRasterCollectionsRastersListResponse;
  1791. { --------------------------------------------------------------------
  1792. TRastersListResponse
  1793. --------------------------------------------------------------------}
  1794. TRastersListResponse = Class(TGoogleBaseObject)
  1795. Private
  1796. FnextPageToken : String;
  1797. Frasters : TRastersListResponseTyperastersArray;
  1798. Protected
  1799. //Property setters
  1800. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1801. Procedure Setrasters(AIndex : Integer; AValue : TRastersListResponseTyperastersArray); virtual;
  1802. //2.6.4. bug workaround
  1803. {$IFDEF VER2_6}
  1804. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1805. {$ENDIF VER2_6}
  1806. Public
  1807. Published
  1808. Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
  1809. Property rasters : TRastersListResponseTyperastersArray Index 8 Read Frasters Write Setrasters;
  1810. end;
  1811. TRastersListResponseClass = Class of TRastersListResponse;
  1812. { --------------------------------------------------------------------
  1813. TScaledShape
  1814. --------------------------------------------------------------------}
  1815. TScaledShape = Class(TGoogleBaseObject)
  1816. Private
  1817. Fborder : TBorder;
  1818. Ffill : TColor;
  1819. Fshape : String;
  1820. Protected
  1821. //Property setters
  1822. Procedure Setborder(AIndex : Integer; AValue : TBorder); virtual;
  1823. Procedure Setfill(AIndex : Integer; AValue : TColor); virtual;
  1824. Procedure Setshape(AIndex : Integer; const AValue : String); virtual;
  1825. Public
  1826. Published
  1827. Property border : TBorder Index 0 Read Fborder Write Setborder;
  1828. Property fill : TColor Index 8 Read Ffill Write Setfill;
  1829. Property shape : String Index 16 Read Fshape Write Setshape;
  1830. end;
  1831. TScaledShapeClass = Class of TScaledShape;
  1832. { --------------------------------------------------------------------
  1833. TScalingFunction
  1834. --------------------------------------------------------------------}
  1835. TScalingFunction = Class(TGoogleBaseObject)
  1836. Private
  1837. Fcolumn : String;
  1838. FscalingType : String;
  1839. FsizeRange : TSizeRange;
  1840. FvalueRange : TValueRange;
  1841. Protected
  1842. //Property setters
  1843. Procedure Setcolumn(AIndex : Integer; const AValue : String); virtual;
  1844. Procedure SetscalingType(AIndex : Integer; const AValue : String); virtual;
  1845. Procedure SetsizeRange(AIndex : Integer; AValue : TSizeRange); virtual;
  1846. Procedure SetvalueRange(AIndex : Integer; AValue : TValueRange); virtual;
  1847. Public
  1848. Published
  1849. Property column : String Index 0 Read Fcolumn Write Setcolumn;
  1850. Property scalingType : String Index 8 Read FscalingType Write SetscalingType;
  1851. Property sizeRange : TSizeRange Index 16 Read FsizeRange Write SetsizeRange;
  1852. Property valueRange : TValueRange Index 24 Read FvalueRange Write SetvalueRange;
  1853. end;
  1854. TScalingFunctionClass = Class of TScalingFunction;
  1855. { --------------------------------------------------------------------
  1856. TSchema
  1857. --------------------------------------------------------------------}
  1858. TSchema = Class(TGoogleBaseObject)
  1859. Private
  1860. Fcolumns : TSchemaTypecolumnsArray;
  1861. FprimaryGeometry : String;
  1862. FprimaryKey : String;
  1863. Protected
  1864. //Property setters
  1865. Procedure Setcolumns(AIndex : Integer; AValue : TSchemaTypecolumnsArray); virtual;
  1866. Procedure SetprimaryGeometry(AIndex : Integer; const AValue : String); virtual;
  1867. Procedure SetprimaryKey(AIndex : Integer; const AValue : String); virtual;
  1868. //2.6.4. bug workaround
  1869. {$IFDEF VER2_6}
  1870. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1871. {$ENDIF VER2_6}
  1872. Public
  1873. Published
  1874. Property columns : TSchemaTypecolumnsArray Index 0 Read Fcolumns Write Setcolumns;
  1875. Property primaryGeometry : String Index 8 Read FprimaryGeometry Write SetprimaryGeometry;
  1876. Property primaryKey : String Index 16 Read FprimaryKey Write SetprimaryKey;
  1877. end;
  1878. TSchemaClass = Class of TSchema;
  1879. { --------------------------------------------------------------------
  1880. TSizeRange
  1881. --------------------------------------------------------------------}
  1882. TSizeRange = Class(TGoogleBaseObject)
  1883. Private
  1884. Fmax : double;
  1885. Fmin : double;
  1886. Protected
  1887. //Property setters
  1888. Procedure Setmax(AIndex : Integer; AValue : double); virtual;
  1889. Procedure Setmin(AIndex : Integer; AValue : double); virtual;
  1890. Public
  1891. Published
  1892. Property max : double Index 0 Read Fmax Write Setmax;
  1893. Property min : double Index 8 Read Fmin Write Setmin;
  1894. end;
  1895. TSizeRangeClass = Class of TSizeRange;
  1896. { --------------------------------------------------------------------
  1897. TTable
  1898. --------------------------------------------------------------------}
  1899. TTable = Class(TGoogleBaseObject)
  1900. Private
  1901. Fbbox : TdoubleArray;
  1902. FcreationTime : TDatetime;
  1903. FcreatorEmail : String;
  1904. Fdescription : String;
  1905. FdraftAccessList : String;
  1906. Fetag : String;
  1907. Ffiles : TTableTypefilesArray;
  1908. Fid : String;
  1909. FlastModifiedTime : TDatetime;
  1910. FlastModifierEmail : String;
  1911. Fname : String;
  1912. FprocessingStatus : String;
  1913. FprojectId : String;
  1914. FpublishedAccessList : String;
  1915. Fschema : TSchema;
  1916. FsourceEncoding : String;
  1917. Ftags : TTags;
  1918. FwritersCanEditPermissions : boolean;
  1919. Protected
  1920. //Property setters
  1921. Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
  1922. Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
  1923. Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
  1924. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1925. Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
  1926. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1927. Procedure Setfiles(AIndex : Integer; AValue : TTableTypefilesArray); virtual;
  1928. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1929. Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
  1930. Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
  1931. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1932. Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
  1933. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  1934. Procedure SetpublishedAccessList(AIndex : Integer; const AValue : String); virtual;
  1935. Procedure Setschema(AIndex : Integer; AValue : TSchema); virtual;
  1936. Procedure SetsourceEncoding(AIndex : Integer; const AValue : String); virtual;
  1937. Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
  1938. Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
  1939. //2.6.4. bug workaround
  1940. {$IFDEF VER2_6}
  1941. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1942. {$ENDIF VER2_6}
  1943. Public
  1944. Published
  1945. Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
  1946. Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
  1947. Property creatorEmail : String Index 16 Read FcreatorEmail Write SetcreatorEmail;
  1948. Property description : String Index 24 Read Fdescription Write Setdescription;
  1949. Property draftAccessList : String Index 32 Read FdraftAccessList Write SetdraftAccessList;
  1950. Property etag : String Index 40 Read Fetag Write Setetag;
  1951. Property files : TTableTypefilesArray Index 48 Read Ffiles Write Setfiles;
  1952. Property id : String Index 56 Read Fid Write Setid;
  1953. Property lastModifiedTime : TDatetime Index 64 Read FlastModifiedTime Write SetlastModifiedTime;
  1954. Property lastModifierEmail : String Index 72 Read FlastModifierEmail Write SetlastModifierEmail;
  1955. Property name : String Index 80 Read Fname Write Setname;
  1956. Property processingStatus : String Index 88 Read FprocessingStatus Write SetprocessingStatus;
  1957. Property projectId : String Index 96 Read FprojectId Write SetprojectId;
  1958. Property publishedAccessList : String Index 104 Read FpublishedAccessList Write SetpublishedAccessList;
  1959. Property schema : TSchema Index 112 Read Fschema Write Setschema;
  1960. Property sourceEncoding : String Index 120 Read FsourceEncoding Write SetsourceEncoding;
  1961. Property tags : TTags Index 128 Read Ftags Write Settags;
  1962. Property writersCanEditPermissions : boolean Index 136 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
  1963. end;
  1964. TTableClass = Class of TTable;
  1965. { --------------------------------------------------------------------
  1966. TTableColumn
  1967. --------------------------------------------------------------------}
  1968. TTableColumn = Class(TGoogleBaseObject)
  1969. Private
  1970. Fname : String;
  1971. F_type : String;
  1972. Protected
  1973. Class Function ExportPropertyName(Const AName : String) : string; override;
  1974. //Property setters
  1975. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1976. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1977. Public
  1978. Published
  1979. Property name : String Index 0 Read Fname Write Setname;
  1980. Property _type : String Index 8 Read F_type Write Set_type;
  1981. end;
  1982. TTableColumnClass = Class of TTableColumn;
  1983. { --------------------------------------------------------------------
  1984. TTablesListResponse
  1985. --------------------------------------------------------------------}
  1986. TTablesListResponse = Class(TGoogleBaseObject)
  1987. Private
  1988. FnextPageToken : String;
  1989. Ftables : TTablesListResponseTypetablesArray;
  1990. Protected
  1991. //Property setters
  1992. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1993. Procedure Settables(AIndex : Integer; AValue : TTablesListResponseTypetablesArray); virtual;
  1994. //2.6.4. bug workaround
  1995. {$IFDEF VER2_6}
  1996. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1997. {$ENDIF VER2_6}
  1998. Public
  1999. Published
  2000. Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
  2001. Property tables : TTablesListResponseTypetablesArray Index 8 Read Ftables Write Settables;
  2002. end;
  2003. TTablesListResponseClass = Class of TTablesListResponse;
  2004. { --------------------------------------------------------------------
  2005. TValueRange
  2006. --------------------------------------------------------------------}
  2007. TValueRange = Class(TGoogleBaseObject)
  2008. Private
  2009. Fmax : double;
  2010. Fmin : double;
  2011. Protected
  2012. //Property setters
  2013. Procedure Setmax(AIndex : Integer; AValue : double); virtual;
  2014. Procedure Setmin(AIndex : Integer; AValue : double); virtual;
  2015. Public
  2016. Published
  2017. Property max : double Index 0 Read Fmax Write Setmax;
  2018. Property min : double Index 8 Read Fmin Write Setmin;
  2019. end;
  2020. TValueRangeClass = Class of TValueRange;
  2021. { --------------------------------------------------------------------
  2022. TVectorStyle
  2023. --------------------------------------------------------------------}
  2024. TVectorStyle = Class(TGoogleBaseObject)
  2025. Private
  2026. FdisplayRules : TVectorStyleTypedisplayRulesArray;
  2027. FfeatureInfo : TFeatureInfo;
  2028. F_type : String;
  2029. Protected
  2030. Class Function ExportPropertyName(Const AName : String) : string; override;
  2031. //Property setters
  2032. Procedure SetdisplayRules(AIndex : Integer; AValue : TVectorStyleTypedisplayRulesArray); virtual;
  2033. Procedure SetfeatureInfo(AIndex : Integer; AValue : TFeatureInfo); virtual;
  2034. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  2035. //2.6.4. bug workaround
  2036. {$IFDEF VER2_6}
  2037. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  2038. {$ENDIF VER2_6}
  2039. Public
  2040. Published
  2041. Property displayRules : TVectorStyleTypedisplayRulesArray Index 0 Read FdisplayRules Write SetdisplayRules;
  2042. Property featureInfo : TFeatureInfo Index 8 Read FfeatureInfo Write SetfeatureInfo;
  2043. Property _type : String Index 16 Read F_type Write Set_type;
  2044. end;
  2045. TVectorStyleClass = Class of TVectorStyle;
  2046. { --------------------------------------------------------------------
  2047. TZoomLevels
  2048. --------------------------------------------------------------------}
  2049. TZoomLevels = Class(TGoogleBaseObject)
  2050. Private
  2051. Fmax : integer;
  2052. Fmin : integer;
  2053. Protected
  2054. //Property setters
  2055. Procedure Setmax(AIndex : Integer; AValue : integer); virtual;
  2056. Procedure Setmin(AIndex : Integer; AValue : integer); virtual;
  2057. Public
  2058. Published
  2059. Property max : integer Index 0 Read Fmax Write Setmax;
  2060. Property min : integer Index 8 Read Fmin Write Setmin;
  2061. end;
  2062. TZoomLevelsClass = Class of TZoomLevels;
  2063. { --------------------------------------------------------------------
  2064. TAssetsParentsResource
  2065. --------------------------------------------------------------------}
  2066. //Optional query Options for TAssetsParentsResource, method List
  2067. TAssetsParentsListOptions = Record
  2068. maxResults : integer;
  2069. pageToken : String;
  2070. end;
  2071. TAssetsParentsResource = Class(TGoogleResource)
  2072. Public
  2073. Class Function ResourceName : String; override;
  2074. Class Function DefaultAPI : TGoogleAPIClass; override;
  2075. Function List(id: string; AQuery : string = '') : TParentsListResponse;
  2076. Function List(id: string; AQuery : TAssetsParentslistOptions) : TParentsListResponse;
  2077. end;
  2078. { --------------------------------------------------------------------
  2079. TAssetsPermissionsResource
  2080. --------------------------------------------------------------------}
  2081. TAssetsPermissionsResource = Class(TGoogleResource)
  2082. Public
  2083. Class Function ResourceName : String; override;
  2084. Class Function DefaultAPI : TGoogleAPIClass; override;
  2085. Function List(id: string) : TPermissionsListResponse;
  2086. end;
  2087. { --------------------------------------------------------------------
  2088. TAssetsResource
  2089. --------------------------------------------------------------------}
  2090. //Optional query Options for TAssetsResource, method List
  2091. TAssetsListOptions = Record
  2092. bbox : String;
  2093. createdAfter : TDatetime;
  2094. createdBefore : TDatetime;
  2095. creatorEmail : String;
  2096. maxResults : integer;
  2097. modifiedAfter : TDatetime;
  2098. modifiedBefore : TDatetime;
  2099. pageToken : String;
  2100. projectId : String;
  2101. role : String;
  2102. search : String;
  2103. tags : String;
  2104. _type : String;
  2105. end;
  2106. TAssetsResource = Class(TGoogleResource)
  2107. Private
  2108. FParentsInstance : TAssetsParentsResource;
  2109. FPermissionsInstance : TAssetsPermissionsResource;
  2110. Function GetParentsInstance : TAssetsParentsResource;virtual;
  2111. Function GetPermissionsInstance : TAssetsPermissionsResource;virtual;
  2112. Public
  2113. Class Function ResourceName : String; override;
  2114. Class Function DefaultAPI : TGoogleAPIClass; override;
  2115. Function Get(id: string) : TAsset;
  2116. Function List(AQuery : string = '') : TAssetsListResponse;
  2117. Function List(AQuery : TAssetslistOptions) : TAssetsListResponse;
  2118. Function CreateParentsResource(AOwner : TComponent) : TAssetsParentsResource;virtual;overload;
  2119. Function CreateParentsResource : TAssetsParentsResource;virtual;overload;
  2120. Function CreatePermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;virtual;overload;
  2121. Function CreatePermissionsResource : TAssetsPermissionsResource;virtual;overload;
  2122. Property ParentsResource : TAssetsParentsResource Read GetParentsInstance;
  2123. Property PermissionsResource : TAssetsPermissionsResource Read GetPermissionsInstance;
  2124. end;
  2125. { --------------------------------------------------------------------
  2126. TLayersParentsResource
  2127. --------------------------------------------------------------------}
  2128. //Optional query Options for TLayersParentsResource, method List
  2129. TLayersParentsListOptions = Record
  2130. maxResults : integer;
  2131. pageToken : String;
  2132. end;
  2133. TLayersParentsResource = Class(TGoogleResource)
  2134. Public
  2135. Class Function ResourceName : String; override;
  2136. Class Function DefaultAPI : TGoogleAPIClass; override;
  2137. Function List(id: string; AQuery : string = '') : TParentsListResponse;
  2138. Function List(id: string; AQuery : TLayersParentslistOptions) : TParentsListResponse;
  2139. end;
  2140. { --------------------------------------------------------------------
  2141. TLayersPermissionsResource
  2142. --------------------------------------------------------------------}
  2143. TLayersPermissionsResource = Class(TGoogleResource)
  2144. Public
  2145. Class Function ResourceName : String; override;
  2146. Class Function DefaultAPI : TGoogleAPIClass; override;
  2147. Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  2148. Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  2149. Function List(id: string) : TPermissionsListResponse;
  2150. end;
  2151. { --------------------------------------------------------------------
  2152. TLayersResource
  2153. --------------------------------------------------------------------}
  2154. //Optional query Options for TLayersResource, method Create
  2155. TLayersCreateOptions = Record
  2156. process : boolean;
  2157. end;
  2158. //Optional query Options for TLayersResource, method Get
  2159. TLayersGetOptions = Record
  2160. version : String;
  2161. end;
  2162. //Optional query Options for TLayersResource, method List
  2163. TLayersListOptions = Record
  2164. bbox : String;
  2165. createdAfter : TDatetime;
  2166. createdBefore : TDatetime;
  2167. creatorEmail : String;
  2168. maxResults : integer;
  2169. modifiedAfter : TDatetime;
  2170. modifiedBefore : TDatetime;
  2171. pageToken : String;
  2172. processingStatus : String;
  2173. projectId : String;
  2174. role : String;
  2175. search : String;
  2176. tags : String;
  2177. end;
  2178. //Optional query Options for TLayersResource, method ListPublished
  2179. TLayersListPublishedOptions = Record
  2180. maxResults : integer;
  2181. pageToken : String;
  2182. projectId : String;
  2183. end;
  2184. //Optional query Options for TLayersResource, method Publish
  2185. TLayersPublishOptions = Record
  2186. force : boolean;
  2187. end;
  2188. TLayersResource = Class(TGoogleResource)
  2189. Private
  2190. FParentsInstance : TLayersParentsResource;
  2191. FPermissionsInstance : TLayersPermissionsResource;
  2192. Function GetParentsInstance : TLayersParentsResource;virtual;
  2193. Function GetPermissionsInstance : TLayersPermissionsResource;virtual;
  2194. Public
  2195. Class Function ResourceName : String; override;
  2196. Class Function DefaultAPI : TGoogleAPIClass; override;
  2197. Function CancelProcessing(id: string) : TProcessResponse;
  2198. Function Create(aLayer : TLayer; AQuery : string = '') : TLayer;overload;
  2199. Function Create(aLayer : TLayer; AQuery : TLayerscreateOptions) : TLayer;overload;
  2200. Procedure Delete(id: string);
  2201. Function Get(id: string; AQuery : string = '') : TLayer;
  2202. Function Get(id: string; AQuery : TLayersgetOptions) : TLayer;
  2203. Function GetPublished(id: string) : TPublishedLayer;
  2204. Function List(AQuery : string = '') : TLayersListResponse;
  2205. Function List(AQuery : TLayerslistOptions) : TLayersListResponse;
  2206. Function ListPublished(AQuery : string = '') : TPublishedLayersListResponse;
  2207. Function ListPublished(AQuery : TLayerslistPublishedOptions) : TPublishedLayersListResponse;
  2208. Procedure Patch(id: string; aLayer : TLayer);
  2209. Function Process(id: string) : TProcessResponse;
  2210. Function Publish(id: string; AQuery : string = '') : TPublishResponse;
  2211. Function Publish(id: string; AQuery : TLayerspublishOptions) : TPublishResponse;
  2212. Function Unpublish(id: string) : TPublishResponse;
  2213. Function CreateParentsResource(AOwner : TComponent) : TLayersParentsResource;virtual;overload;
  2214. Function CreateParentsResource : TLayersParentsResource;virtual;overload;
  2215. Function CreatePermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;virtual;overload;
  2216. Function CreatePermissionsResource : TLayersPermissionsResource;virtual;overload;
  2217. Property ParentsResource : TLayersParentsResource Read GetParentsInstance;
  2218. Property PermissionsResource : TLayersPermissionsResource Read GetPermissionsInstance;
  2219. end;
  2220. { --------------------------------------------------------------------
  2221. TMapsPermissionsResource
  2222. --------------------------------------------------------------------}
  2223. TMapsPermissionsResource = Class(TGoogleResource)
  2224. Public
  2225. Class Function ResourceName : String; override;
  2226. Class Function DefaultAPI : TGoogleAPIClass; override;
  2227. Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  2228. Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  2229. Function List(id: string) : TPermissionsListResponse;
  2230. end;
  2231. { --------------------------------------------------------------------
  2232. TMapsResource
  2233. --------------------------------------------------------------------}
  2234. //Optional query Options for TMapsResource, method Get
  2235. TMapsGetOptions = Record
  2236. version : String;
  2237. end;
  2238. //Optional query Options for TMapsResource, method List
  2239. TMapsListOptions = Record
  2240. bbox : String;
  2241. createdAfter : TDatetime;
  2242. createdBefore : TDatetime;
  2243. creatorEmail : String;
  2244. maxResults : integer;
  2245. modifiedAfter : TDatetime;
  2246. modifiedBefore : TDatetime;
  2247. pageToken : String;
  2248. processingStatus : String;
  2249. projectId : String;
  2250. role : String;
  2251. search : String;
  2252. tags : String;
  2253. end;
  2254. //Optional query Options for TMapsResource, method ListPublished
  2255. TMapsListPublishedOptions = Record
  2256. maxResults : integer;
  2257. pageToken : String;
  2258. projectId : String;
  2259. end;
  2260. //Optional query Options for TMapsResource, method Publish
  2261. TMapsPublishOptions = Record
  2262. force : boolean;
  2263. end;
  2264. TMapsResource = Class(TGoogleResource)
  2265. Private
  2266. FPermissionsInstance : TMapsPermissionsResource;
  2267. Function GetPermissionsInstance : TMapsPermissionsResource;virtual;
  2268. Public
  2269. Class Function ResourceName : String; override;
  2270. Class Function DefaultAPI : TGoogleAPIClass; override;
  2271. Function Create(aMap : TMap) : TMap;overload;
  2272. Procedure Delete(id: string);
  2273. Function Get(id: string; AQuery : string = '') : TMap;
  2274. Function Get(id: string; AQuery : TMapsgetOptions) : TMap;
  2275. Function GetPublished(id: string) : TPublishedMap;
  2276. Function List(AQuery : string = '') : TMapsListResponse;
  2277. Function List(AQuery : TMapslistOptions) : TMapsListResponse;
  2278. Function ListPublished(AQuery : string = '') : TPublishedMapsListResponse;
  2279. Function ListPublished(AQuery : TMapslistPublishedOptions) : TPublishedMapsListResponse;
  2280. Procedure Patch(id: string; aMap : TMap);
  2281. Function Publish(id: string; AQuery : string = '') : TPublishResponse;
  2282. Function Publish(id: string; AQuery : TMapspublishOptions) : TPublishResponse;
  2283. Function Unpublish(id: string) : TPublishResponse;
  2284. Function CreatePermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;virtual;overload;
  2285. Function CreatePermissionsResource : TMapsPermissionsResource;virtual;overload;
  2286. Property PermissionsResource : TMapsPermissionsResource Read GetPermissionsInstance;
  2287. end;
  2288. { --------------------------------------------------------------------
  2289. TProjectsIconsResource
  2290. --------------------------------------------------------------------}
  2291. //Optional query Options for TProjectsIconsResource, method List
  2292. TProjectsIconsListOptions = Record
  2293. maxResults : integer;
  2294. pageToken : String;
  2295. end;
  2296. TProjectsIconsResource = Class(TGoogleResource)
  2297. Public
  2298. Class Function ResourceName : String; override;
  2299. Class Function DefaultAPI : TGoogleAPIClass; override;
  2300. Function Create(projectId: string; aIcon : TIcon) : TIcon;overload;
  2301. Function Get(id: string; projectId: string) : TIcon;
  2302. Function List(projectId: string; AQuery : string = '') : TIconsListResponse;
  2303. Function List(projectId: string; AQuery : TProjectsIconslistOptions) : TIconsListResponse;
  2304. end;
  2305. { --------------------------------------------------------------------
  2306. TProjectsResource
  2307. --------------------------------------------------------------------}
  2308. TProjectsResource = Class(TGoogleResource)
  2309. Private
  2310. FIconsInstance : TProjectsIconsResource;
  2311. Function GetIconsInstance : TProjectsIconsResource;virtual;
  2312. Public
  2313. Class Function ResourceName : String; override;
  2314. Class Function DefaultAPI : TGoogleAPIClass; override;
  2315. Function List : TProjectsListResponse;
  2316. Function CreateIconsResource(AOwner : TComponent) : TProjectsIconsResource;virtual;overload;
  2317. Function CreateIconsResource : TProjectsIconsResource;virtual;overload;
  2318. Property IconsResource : TProjectsIconsResource Read GetIconsInstance;
  2319. end;
  2320. { --------------------------------------------------------------------
  2321. TRasterCollectionsParentsResource
  2322. --------------------------------------------------------------------}
  2323. //Optional query Options for TRasterCollectionsParentsResource, method List
  2324. TRasterCollectionsParentsListOptions = Record
  2325. maxResults : integer;
  2326. pageToken : String;
  2327. end;
  2328. TRasterCollectionsParentsResource = Class(TGoogleResource)
  2329. Public
  2330. Class Function ResourceName : String; override;
  2331. Class Function DefaultAPI : TGoogleAPIClass; override;
  2332. Function List(id: string; AQuery : string = '') : TParentsListResponse;
  2333. Function List(id: string; AQuery : TRasterCollectionsParentslistOptions) : TParentsListResponse;
  2334. end;
  2335. { --------------------------------------------------------------------
  2336. TRasterCollectionsPermissionsResource
  2337. --------------------------------------------------------------------}
  2338. TRasterCollectionsPermissionsResource = Class(TGoogleResource)
  2339. Public
  2340. Class Function ResourceName : String; override;
  2341. Class Function DefaultAPI : TGoogleAPIClass; override;
  2342. Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  2343. Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  2344. Function List(id: string) : TPermissionsListResponse;
  2345. end;
  2346. { --------------------------------------------------------------------
  2347. TRasterCollectionsRastersResource
  2348. --------------------------------------------------------------------}
  2349. //Optional query Options for TRasterCollectionsRastersResource, method List
  2350. TRasterCollectionsRastersListOptions = Record
  2351. bbox : String;
  2352. createdAfter : TDatetime;
  2353. createdBefore : TDatetime;
  2354. creatorEmail : String;
  2355. maxResults : integer;
  2356. modifiedAfter : TDatetime;
  2357. modifiedBefore : TDatetime;
  2358. pageToken : String;
  2359. role : String;
  2360. search : String;
  2361. tags : String;
  2362. end;
  2363. TRasterCollectionsRastersResource = Class(TGoogleResource)
  2364. Public
  2365. Class Function ResourceName : String; override;
  2366. Class Function DefaultAPI : TGoogleAPIClass; override;
  2367. Function BatchDelete(id: string; aRasterCollectionsRasterBatchDeleteRequest : TRasterCollectionsRasterBatchDeleteRequest) : TRasterCollectionsRastersBatchDeleteResponse;
  2368. Function BatchInsert(id: string; aRasterCollectionsRastersBatchInsertRequest : TRasterCollectionsRastersBatchInsertRequest) : TRasterCollectionsRastersBatchInsertResponse;
  2369. Function List(id: string; AQuery : string = '') : TRasterCollectionsRastersListResponse;
  2370. Function List(id: string; AQuery : TRasterCollectionsRasterslistOptions) : TRasterCollectionsRastersListResponse;
  2371. end;
  2372. { --------------------------------------------------------------------
  2373. TRasterCollectionsResource
  2374. --------------------------------------------------------------------}
  2375. //Optional query Options for TRasterCollectionsResource, method List
  2376. TRasterCollectionsListOptions = Record
  2377. bbox : String;
  2378. createdAfter : TDatetime;
  2379. createdBefore : TDatetime;
  2380. creatorEmail : String;
  2381. maxResults : integer;
  2382. modifiedAfter : TDatetime;
  2383. modifiedBefore : TDatetime;
  2384. pageToken : String;
  2385. processingStatus : String;
  2386. projectId : String;
  2387. role : String;
  2388. search : String;
  2389. tags : String;
  2390. end;
  2391. TRasterCollectionsResource = Class(TGoogleResource)
  2392. Private
  2393. FParentsInstance : TRasterCollectionsParentsResource;
  2394. FPermissionsInstance : TRasterCollectionsPermissionsResource;
  2395. FRastersInstance : TRasterCollectionsRastersResource;
  2396. Function GetParentsInstance : TRasterCollectionsParentsResource;virtual;
  2397. Function GetPermissionsInstance : TRasterCollectionsPermissionsResource;virtual;
  2398. Function GetRastersInstance : TRasterCollectionsRastersResource;virtual;
  2399. Public
  2400. Class Function ResourceName : String; override;
  2401. Class Function DefaultAPI : TGoogleAPIClass; override;
  2402. Function CancelProcessing(id: string) : TProcessResponse;
  2403. Function Create(aRasterCollection : TRasterCollection) : TRasterCollection;overload;
  2404. Procedure Delete(id: string);
  2405. Function Get(id: string) : TRasterCollection;
  2406. Function List(AQuery : string = '') : TRasterCollectionsListResponse;
  2407. Function List(AQuery : TRasterCollectionslistOptions) : TRasterCollectionsListResponse;
  2408. Procedure Patch(id: string; aRasterCollection : TRasterCollection);
  2409. Function Process(id: string) : TProcessResponse;
  2410. Function CreateParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;virtual;overload;
  2411. Function CreateParentsResource : TRasterCollectionsParentsResource;virtual;overload;
  2412. Function CreatePermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;virtual;overload;
  2413. Function CreatePermissionsResource : TRasterCollectionsPermissionsResource;virtual;overload;
  2414. Function CreateRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;virtual;overload;
  2415. Function CreateRastersResource : TRasterCollectionsRastersResource;virtual;overload;
  2416. Property ParentsResource : TRasterCollectionsParentsResource Read GetParentsInstance;
  2417. Property PermissionsResource : TRasterCollectionsPermissionsResource Read GetPermissionsInstance;
  2418. Property RastersResource : TRasterCollectionsRastersResource Read GetRastersInstance;
  2419. end;
  2420. { --------------------------------------------------------------------
  2421. TRastersFilesResource
  2422. --------------------------------------------------------------------}
  2423. //Optional query Options for TRastersFilesResource, method Insert
  2424. TRastersFilesInsertOptions = Record
  2425. filename : String;
  2426. end;
  2427. TRastersFilesResource = Class(TGoogleResource)
  2428. Public
  2429. Class Function ResourceName : String; override;
  2430. Class Function DefaultAPI : TGoogleAPIClass; override;
  2431. Procedure Insert(id: string; AQuery : string = '');
  2432. Procedure Insert(id: string; AQuery : TRastersFilesinsertOptions);
  2433. end;
  2434. { --------------------------------------------------------------------
  2435. TRastersParentsResource
  2436. --------------------------------------------------------------------}
  2437. //Optional query Options for TRastersParentsResource, method List
  2438. TRastersParentsListOptions = Record
  2439. maxResults : integer;
  2440. pageToken : String;
  2441. end;
  2442. TRastersParentsResource = Class(TGoogleResource)
  2443. Public
  2444. Class Function ResourceName : String; override;
  2445. Class Function DefaultAPI : TGoogleAPIClass; override;
  2446. Function List(id: string; AQuery : string = '') : TParentsListResponse;
  2447. Function List(id: string; AQuery : TRastersParentslistOptions) : TParentsListResponse;
  2448. end;
  2449. { --------------------------------------------------------------------
  2450. TRastersPermissionsResource
  2451. --------------------------------------------------------------------}
  2452. TRastersPermissionsResource = Class(TGoogleResource)
  2453. Public
  2454. Class Function ResourceName : String; override;
  2455. Class Function DefaultAPI : TGoogleAPIClass; override;
  2456. Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  2457. Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  2458. Function List(id: string) : TPermissionsListResponse;
  2459. end;
  2460. { --------------------------------------------------------------------
  2461. TRastersResource
  2462. --------------------------------------------------------------------}
  2463. //Optional query Options for TRastersResource, method List
  2464. TRastersListOptions = Record
  2465. bbox : String;
  2466. createdAfter : TDatetime;
  2467. createdBefore : TDatetime;
  2468. creatorEmail : String;
  2469. maxResults : integer;
  2470. modifiedAfter : TDatetime;
  2471. modifiedBefore : TDatetime;
  2472. pageToken : String;
  2473. processingStatus : String;
  2474. projectId : String;
  2475. role : String;
  2476. search : String;
  2477. tags : String;
  2478. end;
  2479. TRastersResource = Class(TGoogleResource)
  2480. Private
  2481. FFilesInstance : TRastersFilesResource;
  2482. FParentsInstance : TRastersParentsResource;
  2483. FPermissionsInstance : TRastersPermissionsResource;
  2484. Function GetFilesInstance : TRastersFilesResource;virtual;
  2485. Function GetParentsInstance : TRastersParentsResource;virtual;
  2486. Function GetPermissionsInstance : TRastersPermissionsResource;virtual;
  2487. Public
  2488. Class Function ResourceName : String; override;
  2489. Class Function DefaultAPI : TGoogleAPIClass; override;
  2490. Procedure Delete(id: string);
  2491. Function Get(id: string) : TRaster;
  2492. Function List(AQuery : string = '') : TRastersListResponse;
  2493. Function List(AQuery : TRasterslistOptions) : TRastersListResponse;
  2494. Procedure Patch(id: string; aRaster : TRaster);
  2495. Function Process(id: string) : TProcessResponse;
  2496. Function Upload(aRaster : TRaster) : TRaster;
  2497. Function CreateFilesResource(AOwner : TComponent) : TRastersFilesResource;virtual;overload;
  2498. Function CreateFilesResource : TRastersFilesResource;virtual;overload;
  2499. Function CreateParentsResource(AOwner : TComponent) : TRastersParentsResource;virtual;overload;
  2500. Function CreateParentsResource : TRastersParentsResource;virtual;overload;
  2501. Function CreatePermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;virtual;overload;
  2502. Function CreatePermissionsResource : TRastersPermissionsResource;virtual;overload;
  2503. Property FilesResource : TRastersFilesResource Read GetFilesInstance;
  2504. Property ParentsResource : TRastersParentsResource Read GetParentsInstance;
  2505. Property PermissionsResource : TRastersPermissionsResource Read GetPermissionsInstance;
  2506. end;
  2507. { --------------------------------------------------------------------
  2508. TTablesFeaturesResource
  2509. --------------------------------------------------------------------}
  2510. //Optional query Options for TTablesFeaturesResource, method Get
  2511. TTablesFeaturesGetOptions = Record
  2512. select : String;
  2513. version : String;
  2514. end;
  2515. //Optional query Options for TTablesFeaturesResource, method List
  2516. TTablesFeaturesListOptions = Record
  2517. include : String;
  2518. intersects : String;
  2519. limit : integer;
  2520. maxResults : integer;
  2521. orderBy : String;
  2522. pageToken : String;
  2523. select : String;
  2524. version : String;
  2525. where : String;
  2526. end;
  2527. TTablesFeaturesResource = Class(TGoogleResource)
  2528. Public
  2529. Class Function ResourceName : String; override;
  2530. Class Function DefaultAPI : TGoogleAPIClass; override;
  2531. Procedure BatchDelete(id: string; aFeaturesBatchDeleteRequest : TFeaturesBatchDeleteRequest);
  2532. Procedure BatchInsert(id: string; aFeaturesBatchInsertRequest : TFeaturesBatchInsertRequest);
  2533. Procedure BatchPatch(id: string; aFeaturesBatchPatchRequest : TFeaturesBatchPatchRequest);
  2534. Function Get(id: string; tableId: string; AQuery : string = '') : TFeature;
  2535. Function Get(id: string; tableId: string; AQuery : TTablesFeaturesgetOptions) : TFeature;
  2536. Function List(id: string; AQuery : string = '') : TFeaturesListResponse;
  2537. Function List(id: string; AQuery : TTablesFeatureslistOptions) : TFeaturesListResponse;
  2538. end;
  2539. { --------------------------------------------------------------------
  2540. TTablesFilesResource
  2541. --------------------------------------------------------------------}
  2542. //Optional query Options for TTablesFilesResource, method Insert
  2543. TTablesFilesInsertOptions = Record
  2544. filename : String;
  2545. end;
  2546. TTablesFilesResource = Class(TGoogleResource)
  2547. Public
  2548. Class Function ResourceName : String; override;
  2549. Class Function DefaultAPI : TGoogleAPIClass; override;
  2550. Procedure Insert(id: string; AQuery : string = '');
  2551. Procedure Insert(id: string; AQuery : TTablesFilesinsertOptions);
  2552. end;
  2553. { --------------------------------------------------------------------
  2554. TTablesParentsResource
  2555. --------------------------------------------------------------------}
  2556. //Optional query Options for TTablesParentsResource, method List
  2557. TTablesParentsListOptions = Record
  2558. maxResults : integer;
  2559. pageToken : String;
  2560. end;
  2561. TTablesParentsResource = Class(TGoogleResource)
  2562. Public
  2563. Class Function ResourceName : String; override;
  2564. Class Function DefaultAPI : TGoogleAPIClass; override;
  2565. Function List(id: string; AQuery : string = '') : TParentsListResponse;
  2566. Function List(id: string; AQuery : TTablesParentslistOptions) : TParentsListResponse;
  2567. end;
  2568. { --------------------------------------------------------------------
  2569. TTablesPermissionsResource
  2570. --------------------------------------------------------------------}
  2571. TTablesPermissionsResource = Class(TGoogleResource)
  2572. Public
  2573. Class Function ResourceName : String; override;
  2574. Class Function DefaultAPI : TGoogleAPIClass; override;
  2575. Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  2576. Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  2577. Function List(id: string) : TPermissionsListResponse;
  2578. end;
  2579. { --------------------------------------------------------------------
  2580. TTablesResource
  2581. --------------------------------------------------------------------}
  2582. //Optional query Options for TTablesResource, method Get
  2583. TTablesGetOptions = Record
  2584. version : String;
  2585. end;
  2586. //Optional query Options for TTablesResource, method List
  2587. TTablesListOptions = Record
  2588. bbox : String;
  2589. createdAfter : TDatetime;
  2590. createdBefore : TDatetime;
  2591. creatorEmail : String;
  2592. maxResults : integer;
  2593. modifiedAfter : TDatetime;
  2594. modifiedBefore : TDatetime;
  2595. pageToken : String;
  2596. processingStatus : String;
  2597. projectId : String;
  2598. role : String;
  2599. search : String;
  2600. tags : String;
  2601. end;
  2602. TTablesResource = Class(TGoogleResource)
  2603. Private
  2604. FFeaturesInstance : TTablesFeaturesResource;
  2605. FFilesInstance : TTablesFilesResource;
  2606. FParentsInstance : TTablesParentsResource;
  2607. FPermissionsInstance : TTablesPermissionsResource;
  2608. Function GetFeaturesInstance : TTablesFeaturesResource;virtual;
  2609. Function GetFilesInstance : TTablesFilesResource;virtual;
  2610. Function GetParentsInstance : TTablesParentsResource;virtual;
  2611. Function GetPermissionsInstance : TTablesPermissionsResource;virtual;
  2612. Public
  2613. Class Function ResourceName : String; override;
  2614. Class Function DefaultAPI : TGoogleAPIClass; override;
  2615. Function Create(aTable : TTable) : TTable;overload;
  2616. Procedure Delete(id: string);
  2617. Function Get(id: string; AQuery : string = '') : TTable;
  2618. Function Get(id: string; AQuery : TTablesgetOptions) : TTable;
  2619. Function List(AQuery : string = '') : TTablesListResponse;
  2620. Function List(AQuery : TTableslistOptions) : TTablesListResponse;
  2621. Procedure Patch(id: string; aTable : TTable);
  2622. Function Process(id: string) : TProcessResponse;
  2623. Function Upload(aTable : TTable) : TTable;
  2624. Function CreateFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;virtual;overload;
  2625. Function CreateFeaturesResource : TTablesFeaturesResource;virtual;overload;
  2626. Function CreateFilesResource(AOwner : TComponent) : TTablesFilesResource;virtual;overload;
  2627. Function CreateFilesResource : TTablesFilesResource;virtual;overload;
  2628. Function CreateParentsResource(AOwner : TComponent) : TTablesParentsResource;virtual;overload;
  2629. Function CreateParentsResource : TTablesParentsResource;virtual;overload;
  2630. Function CreatePermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;virtual;overload;
  2631. Function CreatePermissionsResource : TTablesPermissionsResource;virtual;overload;
  2632. Property FeaturesResource : TTablesFeaturesResource Read GetFeaturesInstance;
  2633. Property FilesResource : TTablesFilesResource Read GetFilesInstance;
  2634. Property ParentsResource : TTablesParentsResource Read GetParentsInstance;
  2635. Property PermissionsResource : TTablesPermissionsResource Read GetPermissionsInstance;
  2636. end;
  2637. { --------------------------------------------------------------------
  2638. TMapsengineAPI
  2639. --------------------------------------------------------------------}
  2640. TMapsengineAPI = Class(TGoogleAPI)
  2641. Private
  2642. FAssetsParentsInstance : TAssetsParentsResource;
  2643. FAssetsPermissionsInstance : TAssetsPermissionsResource;
  2644. FAssetsInstance : TAssetsResource;
  2645. FLayersParentsInstance : TLayersParentsResource;
  2646. FLayersPermissionsInstance : TLayersPermissionsResource;
  2647. FLayersInstance : TLayersResource;
  2648. FMapsPermissionsInstance : TMapsPermissionsResource;
  2649. FMapsInstance : TMapsResource;
  2650. FProjectsIconsInstance : TProjectsIconsResource;
  2651. FProjectsInstance : TProjectsResource;
  2652. FRasterCollectionsParentsInstance : TRasterCollectionsParentsResource;
  2653. FRasterCollectionsPermissionsInstance : TRasterCollectionsPermissionsResource;
  2654. FRasterCollectionsRastersInstance : TRasterCollectionsRastersResource;
  2655. FRasterCollectionsInstance : TRasterCollectionsResource;
  2656. FRastersFilesInstance : TRastersFilesResource;
  2657. FRastersParentsInstance : TRastersParentsResource;
  2658. FRastersPermissionsInstance : TRastersPermissionsResource;
  2659. FRastersInstance : TRastersResource;
  2660. FTablesFeaturesInstance : TTablesFeaturesResource;
  2661. FTablesFilesInstance : TTablesFilesResource;
  2662. FTablesParentsInstance : TTablesParentsResource;
  2663. FTablesPermissionsInstance : TTablesPermissionsResource;
  2664. FTablesInstance : TTablesResource;
  2665. Function GetAssetsParentsInstance : TAssetsParentsResource;virtual;
  2666. Function GetAssetsPermissionsInstance : TAssetsPermissionsResource;virtual;
  2667. Function GetAssetsInstance : TAssetsResource;virtual;
  2668. Function GetLayersParentsInstance : TLayersParentsResource;virtual;
  2669. Function GetLayersPermissionsInstance : TLayersPermissionsResource;virtual;
  2670. Function GetLayersInstance : TLayersResource;virtual;
  2671. Function GetMapsPermissionsInstance : TMapsPermissionsResource;virtual;
  2672. Function GetMapsInstance : TMapsResource;virtual;
  2673. Function GetProjectsIconsInstance : TProjectsIconsResource;virtual;
  2674. Function GetProjectsInstance : TProjectsResource;virtual;
  2675. Function GetRasterCollectionsParentsInstance : TRasterCollectionsParentsResource;virtual;
  2676. Function GetRasterCollectionsPermissionsInstance : TRasterCollectionsPermissionsResource;virtual;
  2677. Function GetRasterCollectionsRastersInstance : TRasterCollectionsRastersResource;virtual;
  2678. Function GetRasterCollectionsInstance : TRasterCollectionsResource;virtual;
  2679. Function GetRastersFilesInstance : TRastersFilesResource;virtual;
  2680. Function GetRastersParentsInstance : TRastersParentsResource;virtual;
  2681. Function GetRastersPermissionsInstance : TRastersPermissionsResource;virtual;
  2682. Function GetRastersInstance : TRastersResource;virtual;
  2683. Function GetTablesFeaturesInstance : TTablesFeaturesResource;virtual;
  2684. Function GetTablesFilesInstance : TTablesFilesResource;virtual;
  2685. Function GetTablesParentsInstance : TTablesParentsResource;virtual;
  2686. Function GetTablesPermissionsInstance : TTablesPermissionsResource;virtual;
  2687. Function GetTablesInstance : TTablesResource;virtual;
  2688. Public
  2689. //Override class functions with API info
  2690. Class Function APIName : String; override;
  2691. Class Function APIVersion : String; override;
  2692. Class Function APIRevision : String; override;
  2693. Class Function APIID : String; override;
  2694. Class Function APITitle : String; override;
  2695. Class Function APIDescription : String; override;
  2696. Class Function APIOwnerDomain : String; override;
  2697. Class Function APIOwnerName : String; override;
  2698. Class Function APIIcon16 : String; override;
  2699. Class Function APIIcon32 : String; override;
  2700. Class Function APIdocumentationLink : String; override;
  2701. Class Function APIrootUrl : string; override;
  2702. Class Function APIbasePath : string;override;
  2703. Class Function APIbaseURL : String;override;
  2704. Class Function APIProtocol : string;override;
  2705. Class Function APIservicePath : string;override;
  2706. Class Function APIbatchPath : String;override;
  2707. Class Function APIAuthScopes : TScopeInfoArray;override;
  2708. Class Function APINeedsAuth : Boolean;override;
  2709. Class Procedure RegisterAPIResources; override;
  2710. //Add create function for resources
  2711. Function CreateAssetsParentsResource(AOwner : TComponent) : TAssetsParentsResource;virtual;overload;
  2712. Function CreateAssetsParentsResource : TAssetsParentsResource;virtual;overload;
  2713. Function CreateAssetsPermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;virtual;overload;
  2714. Function CreateAssetsPermissionsResource : TAssetsPermissionsResource;virtual;overload;
  2715. Function CreateAssetsResource(AOwner : TComponent) : TAssetsResource;virtual;overload;
  2716. Function CreateAssetsResource : TAssetsResource;virtual;overload;
  2717. Function CreateLayersParentsResource(AOwner : TComponent) : TLayersParentsResource;virtual;overload;
  2718. Function CreateLayersParentsResource : TLayersParentsResource;virtual;overload;
  2719. Function CreateLayersPermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;virtual;overload;
  2720. Function CreateLayersPermissionsResource : TLayersPermissionsResource;virtual;overload;
  2721. Function CreateLayersResource(AOwner : TComponent) : TLayersResource;virtual;overload;
  2722. Function CreateLayersResource : TLayersResource;virtual;overload;
  2723. Function CreateMapsPermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;virtual;overload;
  2724. Function CreateMapsPermissionsResource : TMapsPermissionsResource;virtual;overload;
  2725. Function CreateMapsResource(AOwner : TComponent) : TMapsResource;virtual;overload;
  2726. Function CreateMapsResource : TMapsResource;virtual;overload;
  2727. Function CreateProjectsIconsResource(AOwner : TComponent) : TProjectsIconsResource;virtual;overload;
  2728. Function CreateProjectsIconsResource : TProjectsIconsResource;virtual;overload;
  2729. Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
  2730. Function CreateProjectsResource : TProjectsResource;virtual;overload;
  2731. Function CreateRasterCollectionsParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;virtual;overload;
  2732. Function CreateRasterCollectionsParentsResource : TRasterCollectionsParentsResource;virtual;overload;
  2733. Function CreateRasterCollectionsPermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;virtual;overload;
  2734. Function CreateRasterCollectionsPermissionsResource : TRasterCollectionsPermissionsResource;virtual;overload;
  2735. Function CreateRasterCollectionsRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;virtual;overload;
  2736. Function CreateRasterCollectionsRastersResource : TRasterCollectionsRastersResource;virtual;overload;
  2737. Function CreateRasterCollectionsResource(AOwner : TComponent) : TRasterCollectionsResource;virtual;overload;
  2738. Function CreateRasterCollectionsResource : TRasterCollectionsResource;virtual;overload;
  2739. Function CreateRastersFilesResource(AOwner : TComponent) : TRastersFilesResource;virtual;overload;
  2740. Function CreateRastersFilesResource : TRastersFilesResource;virtual;overload;
  2741. Function CreateRastersParentsResource(AOwner : TComponent) : TRastersParentsResource;virtual;overload;
  2742. Function CreateRastersParentsResource : TRastersParentsResource;virtual;overload;
  2743. Function CreateRastersPermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;virtual;overload;
  2744. Function CreateRastersPermissionsResource : TRastersPermissionsResource;virtual;overload;
  2745. Function CreateRastersResource(AOwner : TComponent) : TRastersResource;virtual;overload;
  2746. Function CreateRastersResource : TRastersResource;virtual;overload;
  2747. Function CreateTablesFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;virtual;overload;
  2748. Function CreateTablesFeaturesResource : TTablesFeaturesResource;virtual;overload;
  2749. Function CreateTablesFilesResource(AOwner : TComponent) : TTablesFilesResource;virtual;overload;
  2750. Function CreateTablesFilesResource : TTablesFilesResource;virtual;overload;
  2751. Function CreateTablesParentsResource(AOwner : TComponent) : TTablesParentsResource;virtual;overload;
  2752. Function CreateTablesParentsResource : TTablesParentsResource;virtual;overload;
  2753. Function CreateTablesPermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;virtual;overload;
  2754. Function CreateTablesPermissionsResource : TTablesPermissionsResource;virtual;overload;
  2755. Function CreateTablesResource(AOwner : TComponent) : TTablesResource;virtual;overload;
  2756. Function CreateTablesResource : TTablesResource;virtual;overload;
  2757. //Add default on-demand instances for resources
  2758. Property AssetsParentsResource : TAssetsParentsResource Read GetAssetsParentsInstance;
  2759. Property AssetsPermissionsResource : TAssetsPermissionsResource Read GetAssetsPermissionsInstance;
  2760. Property AssetsResource : TAssetsResource Read GetAssetsInstance;
  2761. Property LayersParentsResource : TLayersParentsResource Read GetLayersParentsInstance;
  2762. Property LayersPermissionsResource : TLayersPermissionsResource Read GetLayersPermissionsInstance;
  2763. Property LayersResource : TLayersResource Read GetLayersInstance;
  2764. Property MapsPermissionsResource : TMapsPermissionsResource Read GetMapsPermissionsInstance;
  2765. Property MapsResource : TMapsResource Read GetMapsInstance;
  2766. Property ProjectsIconsResource : TProjectsIconsResource Read GetProjectsIconsInstance;
  2767. Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
  2768. Property RasterCollectionsParentsResource : TRasterCollectionsParentsResource Read GetRasterCollectionsParentsInstance;
  2769. Property RasterCollectionsPermissionsResource : TRasterCollectionsPermissionsResource Read GetRasterCollectionsPermissionsInstance;
  2770. Property RasterCollectionsRastersResource : TRasterCollectionsRastersResource Read GetRasterCollectionsRastersInstance;
  2771. Property RasterCollectionsResource : TRasterCollectionsResource Read GetRasterCollectionsInstance;
  2772. Property RastersFilesResource : TRastersFilesResource Read GetRastersFilesInstance;
  2773. Property RastersParentsResource : TRastersParentsResource Read GetRastersParentsInstance;
  2774. Property RastersPermissionsResource : TRastersPermissionsResource Read GetRastersPermissionsInstance;
  2775. Property RastersResource : TRastersResource Read GetRastersInstance;
  2776. Property TablesFeaturesResource : TTablesFeaturesResource Read GetTablesFeaturesInstance;
  2777. Property TablesFilesResource : TTablesFilesResource Read GetTablesFilesInstance;
  2778. Property TablesParentsResource : TTablesParentsResource Read GetTablesParentsInstance;
  2779. Property TablesPermissionsResource : TTablesPermissionsResource Read GetTablesPermissionsInstance;
  2780. Property TablesResource : TTablesResource Read GetTablesInstance;
  2781. end;
  2782. implementation
  2783. { --------------------------------------------------------------------
  2784. TAcquisitionTime
  2785. --------------------------------------------------------------------}
  2786. Procedure TAcquisitionTime.Set_end(AIndex : Integer; AValue : TDatetime);
  2787. begin
  2788. If (F_end=AValue) then exit;
  2789. F_end:=AValue;
  2790. MarkPropertyChanged(AIndex);
  2791. end;
  2792. Procedure TAcquisitionTime.Setprecision(AIndex : Integer; const AValue : String);
  2793. begin
  2794. If (Fprecision=AValue) then exit;
  2795. Fprecision:=AValue;
  2796. MarkPropertyChanged(AIndex);
  2797. end;
  2798. Procedure TAcquisitionTime.Setstart(AIndex : Integer; AValue : TDatetime);
  2799. begin
  2800. If (Fstart=AValue) then exit;
  2801. Fstart:=AValue;
  2802. MarkPropertyChanged(AIndex);
  2803. end;
  2804. Class Function TAcquisitionTime.ExportPropertyName(Const AName : String) :String;
  2805. begin
  2806. Case AName of
  2807. '_end' : Result:='end';
  2808. else
  2809. Result:=Inherited ExportPropertyName(AName);
  2810. end;
  2811. end;
  2812. { --------------------------------------------------------------------
  2813. TAsset
  2814. --------------------------------------------------------------------}
  2815. Procedure TAsset.Setbbox(AIndex : Integer; AValue : TdoubleArray);
  2816. begin
  2817. If (Fbbox=AValue) then exit;
  2818. Fbbox:=AValue;
  2819. MarkPropertyChanged(AIndex);
  2820. end;
  2821. Procedure TAsset.SetcreationTime(AIndex : Integer; AValue : TDatetime);
  2822. begin
  2823. If (FcreationTime=AValue) then exit;
  2824. FcreationTime:=AValue;
  2825. MarkPropertyChanged(AIndex);
  2826. end;
  2827. Procedure TAsset.SetcreatorEmail(AIndex : Integer; const AValue : String);
  2828. begin
  2829. If (FcreatorEmail=AValue) then exit;
  2830. FcreatorEmail:=AValue;
  2831. MarkPropertyChanged(AIndex);
  2832. end;
  2833. Procedure TAsset.Setdescription(AIndex : Integer; const AValue : String);
  2834. begin
  2835. If (Fdescription=AValue) then exit;
  2836. Fdescription:=AValue;
  2837. MarkPropertyChanged(AIndex);
  2838. end;
  2839. Procedure TAsset.Setetag(AIndex : Integer; const AValue : String);
  2840. begin
  2841. If (Fetag=AValue) then exit;
  2842. Fetag:=AValue;
  2843. MarkPropertyChanged(AIndex);
  2844. end;
  2845. Procedure TAsset.Setid(AIndex : Integer; const AValue : String);
  2846. begin
  2847. If (Fid=AValue) then exit;
  2848. Fid:=AValue;
  2849. MarkPropertyChanged(AIndex);
  2850. end;
  2851. Procedure TAsset.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
  2852. begin
  2853. If (FlastModifiedTime=AValue) then exit;
  2854. FlastModifiedTime:=AValue;
  2855. MarkPropertyChanged(AIndex);
  2856. end;
  2857. Procedure TAsset.SetlastModifierEmail(AIndex : Integer; const AValue : String);
  2858. begin
  2859. If (FlastModifierEmail=AValue) then exit;
  2860. FlastModifierEmail:=AValue;
  2861. MarkPropertyChanged(AIndex);
  2862. end;
  2863. Procedure TAsset.Setname(AIndex : Integer; const AValue : String);
  2864. begin
  2865. If (Fname=AValue) then exit;
  2866. Fname:=AValue;
  2867. MarkPropertyChanged(AIndex);
  2868. end;
  2869. Procedure TAsset.SetprojectId(AIndex : Integer; const AValue : String);
  2870. begin
  2871. If (FprojectId=AValue) then exit;
  2872. FprojectId:=AValue;
  2873. MarkPropertyChanged(AIndex);
  2874. end;
  2875. Procedure TAsset.Setresource(AIndex : Integer; const AValue : String);
  2876. begin
  2877. If (Fresource=AValue) then exit;
  2878. Fresource:=AValue;
  2879. MarkPropertyChanged(AIndex);
  2880. end;
  2881. Procedure TAsset.Settags(AIndex : Integer; AValue : TStringArray);
  2882. begin
  2883. If (Ftags=AValue) then exit;
  2884. Ftags:=AValue;
  2885. MarkPropertyChanged(AIndex);
  2886. end;
  2887. Procedure TAsset.Set_type(AIndex : Integer; const AValue : String);
  2888. begin
  2889. If (F_type=AValue) then exit;
  2890. F_type:=AValue;
  2891. MarkPropertyChanged(AIndex);
  2892. end;
  2893. Procedure TAsset.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
  2894. begin
  2895. If (FwritersCanEditPermissions=AValue) then exit;
  2896. FwritersCanEditPermissions:=AValue;
  2897. MarkPropertyChanged(AIndex);
  2898. end;
  2899. Class Function TAsset.ExportPropertyName(Const AName : String) :String;
  2900. begin
  2901. Case AName of
  2902. '_type' : Result:='type';
  2903. else
  2904. Result:=Inherited ExportPropertyName(AName);
  2905. end;
  2906. end;
  2907. //2.6.4. bug workaround
  2908. {$IFDEF VER2_6}
  2909. Procedure TAsset.SetArrayLength(Const AName : String; ALength : Longint);
  2910. begin
  2911. Case AName of
  2912. 'bbox' : SetLength(Fbbox,ALength);
  2913. 'tags' : SetLength(Ftags,ALength);
  2914. else
  2915. Inherited SetArrayLength(AName,ALength);
  2916. end;
  2917. end;
  2918. {$ENDIF VER2_6}
  2919. { --------------------------------------------------------------------
  2920. TAssetsListResponse
  2921. --------------------------------------------------------------------}
  2922. Procedure TAssetsListResponse.Setassets(AIndex : Integer; AValue : TAssetsListResponseTypeassetsArray);
  2923. begin
  2924. If (Fassets=AValue) then exit;
  2925. Fassets:=AValue;
  2926. MarkPropertyChanged(AIndex);
  2927. end;
  2928. Procedure TAssetsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  2929. begin
  2930. If (FnextPageToken=AValue) then exit;
  2931. FnextPageToken:=AValue;
  2932. MarkPropertyChanged(AIndex);
  2933. end;
  2934. //2.6.4. bug workaround
  2935. {$IFDEF VER2_6}
  2936. Procedure TAssetsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  2937. begin
  2938. Case AName of
  2939. 'assets' : SetLength(Fassets,ALength);
  2940. else
  2941. Inherited SetArrayLength(AName,ALength);
  2942. end;
  2943. end;
  2944. {$ENDIF VER2_6}
  2945. { --------------------------------------------------------------------
  2946. TBorder
  2947. --------------------------------------------------------------------}
  2948. Procedure TBorder.Setcolor(AIndex : Integer; const AValue : String);
  2949. begin
  2950. If (Fcolor=AValue) then exit;
  2951. Fcolor:=AValue;
  2952. MarkPropertyChanged(AIndex);
  2953. end;
  2954. Procedure TBorder.Setopacity(AIndex : Integer; AValue : double);
  2955. begin
  2956. If (Fopacity=AValue) then exit;
  2957. Fopacity:=AValue;
  2958. MarkPropertyChanged(AIndex);
  2959. end;
  2960. Procedure TBorder.Setwidth(AIndex : Integer; AValue : double);
  2961. begin
  2962. If (Fwidth=AValue) then exit;
  2963. Fwidth:=AValue;
  2964. MarkPropertyChanged(AIndex);
  2965. end;
  2966. { --------------------------------------------------------------------
  2967. TColor
  2968. --------------------------------------------------------------------}
  2969. Procedure TColor.Setcolor(AIndex : Integer; const AValue : String);
  2970. begin
  2971. If (Fcolor=AValue) then exit;
  2972. Fcolor:=AValue;
  2973. MarkPropertyChanged(AIndex);
  2974. end;
  2975. Procedure TColor.Setopacity(AIndex : Integer; AValue : double);
  2976. begin
  2977. If (Fopacity=AValue) then exit;
  2978. Fopacity:=AValue;
  2979. MarkPropertyChanged(AIndex);
  2980. end;
  2981. { --------------------------------------------------------------------
  2982. TDatasource
  2983. --------------------------------------------------------------------}
  2984. Procedure TDatasource.Setid(AIndex : Integer; const AValue : String);
  2985. begin
  2986. If (Fid=AValue) then exit;
  2987. Fid:=AValue;
  2988. MarkPropertyChanged(AIndex);
  2989. end;
  2990. { --------------------------------------------------------------------
  2991. TDisplayRule
  2992. --------------------------------------------------------------------}
  2993. Procedure TDisplayRule.Setfilters(AIndex : Integer; AValue : TDisplayRuleTypefiltersArray);
  2994. begin
  2995. If (Ffilters=AValue) then exit;
  2996. Ffilters:=AValue;
  2997. MarkPropertyChanged(AIndex);
  2998. end;
  2999. Procedure TDisplayRule.SetlineOptions(AIndex : Integer; AValue : TLineStyle);
  3000. begin
  3001. If (FlineOptions=AValue) then exit;
  3002. FlineOptions:=AValue;
  3003. MarkPropertyChanged(AIndex);
  3004. end;
  3005. Procedure TDisplayRule.Setname(AIndex : Integer; const AValue : String);
  3006. begin
  3007. If (Fname=AValue) then exit;
  3008. Fname:=AValue;
  3009. MarkPropertyChanged(AIndex);
  3010. end;
  3011. Procedure TDisplayRule.SetpointOptions(AIndex : Integer; AValue : TPointStyle);
  3012. begin
  3013. If (FpointOptions=AValue) then exit;
  3014. FpointOptions:=AValue;
  3015. MarkPropertyChanged(AIndex);
  3016. end;
  3017. Procedure TDisplayRule.SetpolygonOptions(AIndex : Integer; AValue : TPolygonStyle);
  3018. begin
  3019. If (FpolygonOptions=AValue) then exit;
  3020. FpolygonOptions:=AValue;
  3021. MarkPropertyChanged(AIndex);
  3022. end;
  3023. Procedure TDisplayRule.SetzoomLevels(AIndex : Integer; AValue : TZoomLevels);
  3024. begin
  3025. If (FzoomLevels=AValue) then exit;
  3026. FzoomLevels:=AValue;
  3027. MarkPropertyChanged(AIndex);
  3028. end;
  3029. //2.6.4. bug workaround
  3030. {$IFDEF VER2_6}
  3031. Procedure TDisplayRule.SetArrayLength(Const AName : String; ALength : Longint);
  3032. begin
  3033. Case AName of
  3034. 'filters' : SetLength(Ffilters,ALength);
  3035. else
  3036. Inherited SetArrayLength(AName,ALength);
  3037. end;
  3038. end;
  3039. {$ENDIF VER2_6}
  3040. { --------------------------------------------------------------------
  3041. TFeature
  3042. --------------------------------------------------------------------}
  3043. Procedure TFeature.Setgeometry(AIndex : Integer; AValue : TGeoJsonGeometry);
  3044. begin
  3045. If (Fgeometry=AValue) then exit;
  3046. Fgeometry:=AValue;
  3047. MarkPropertyChanged(AIndex);
  3048. end;
  3049. Procedure TFeature.Setproperties(AIndex : Integer; AValue : TGeoJsonProperties);
  3050. begin
  3051. If (Fproperties=AValue) then exit;
  3052. Fproperties:=AValue;
  3053. MarkPropertyChanged(AIndex);
  3054. end;
  3055. Procedure TFeature.Set_type(AIndex : Integer; const AValue : String);
  3056. begin
  3057. If (F_type=AValue) then exit;
  3058. F_type:=AValue;
  3059. MarkPropertyChanged(AIndex);
  3060. end;
  3061. Class Function TFeature.ExportPropertyName(Const AName : String) :String;
  3062. begin
  3063. Case AName of
  3064. '_type' : Result:='type';
  3065. else
  3066. Result:=Inherited ExportPropertyName(AName);
  3067. end;
  3068. end;
  3069. { --------------------------------------------------------------------
  3070. TFeatureInfo
  3071. --------------------------------------------------------------------}
  3072. Procedure TFeatureInfo.Setcontent(AIndex : Integer; const AValue : String);
  3073. begin
  3074. If (Fcontent=AValue) then exit;
  3075. Fcontent:=AValue;
  3076. MarkPropertyChanged(AIndex);
  3077. end;
  3078. { --------------------------------------------------------------------
  3079. TFeaturesBatchDeleteRequest
  3080. --------------------------------------------------------------------}
  3081. Procedure TFeaturesBatchDeleteRequest.Setgx_ids(AIndex : Integer; AValue : TStringArray);
  3082. begin
  3083. If (Fgx_ids=AValue) then exit;
  3084. Fgx_ids:=AValue;
  3085. MarkPropertyChanged(AIndex);
  3086. end;
  3087. Procedure TFeaturesBatchDeleteRequest.SetprimaryKeys(AIndex : Integer; AValue : TStringArray);
  3088. begin
  3089. If (FprimaryKeys=AValue) then exit;
  3090. FprimaryKeys:=AValue;
  3091. MarkPropertyChanged(AIndex);
  3092. end;
  3093. //2.6.4. bug workaround
  3094. {$IFDEF VER2_6}
  3095. Procedure TFeaturesBatchDeleteRequest.SetArrayLength(Const AName : String; ALength : Longint);
  3096. begin
  3097. Case AName of
  3098. 'gx_ids' : SetLength(Fgx_ids,ALength);
  3099. 'primarykeys' : SetLength(FprimaryKeys,ALength);
  3100. else
  3101. Inherited SetArrayLength(AName,ALength);
  3102. end;
  3103. end;
  3104. {$ENDIF VER2_6}
  3105. { --------------------------------------------------------------------
  3106. TFeaturesBatchInsertRequest
  3107. --------------------------------------------------------------------}
  3108. Procedure TFeaturesBatchInsertRequest.Setfeatures(AIndex : Integer; AValue : TFeaturesBatchInsertRequestTypefeaturesArray);
  3109. begin
  3110. If (Ffeatures=AValue) then exit;
  3111. Ffeatures:=AValue;
  3112. MarkPropertyChanged(AIndex);
  3113. end;
  3114. Procedure TFeaturesBatchInsertRequest.SetnormalizeGeometries(AIndex : Integer; AValue : boolean);
  3115. begin
  3116. If (FnormalizeGeometries=AValue) then exit;
  3117. FnormalizeGeometries:=AValue;
  3118. MarkPropertyChanged(AIndex);
  3119. end;
  3120. //2.6.4. bug workaround
  3121. {$IFDEF VER2_6}
  3122. Procedure TFeaturesBatchInsertRequest.SetArrayLength(Const AName : String; ALength : Longint);
  3123. begin
  3124. Case AName of
  3125. 'features' : SetLength(Ffeatures,ALength);
  3126. else
  3127. Inherited SetArrayLength(AName,ALength);
  3128. end;
  3129. end;
  3130. {$ENDIF VER2_6}
  3131. { --------------------------------------------------------------------
  3132. TFeaturesBatchPatchRequest
  3133. --------------------------------------------------------------------}
  3134. Procedure TFeaturesBatchPatchRequest.Setfeatures(AIndex : Integer; AValue : TFeaturesBatchPatchRequestTypefeaturesArray);
  3135. begin
  3136. If (Ffeatures=AValue) then exit;
  3137. Ffeatures:=AValue;
  3138. MarkPropertyChanged(AIndex);
  3139. end;
  3140. Procedure TFeaturesBatchPatchRequest.SetnormalizeGeometries(AIndex : Integer; AValue : boolean);
  3141. begin
  3142. If (FnormalizeGeometries=AValue) then exit;
  3143. FnormalizeGeometries:=AValue;
  3144. MarkPropertyChanged(AIndex);
  3145. end;
  3146. //2.6.4. bug workaround
  3147. {$IFDEF VER2_6}
  3148. Procedure TFeaturesBatchPatchRequest.SetArrayLength(Const AName : String; ALength : Longint);
  3149. begin
  3150. Case AName of
  3151. 'features' : SetLength(Ffeatures,ALength);
  3152. else
  3153. Inherited SetArrayLength(AName,ALength);
  3154. end;
  3155. end;
  3156. {$ENDIF VER2_6}
  3157. { --------------------------------------------------------------------
  3158. TFeaturesListResponse
  3159. --------------------------------------------------------------------}
  3160. Procedure TFeaturesListResponse.SetallowedQueriesPerSecond(AIndex : Integer; AValue : double);
  3161. begin
  3162. If (FallowedQueriesPerSecond=AValue) then exit;
  3163. FallowedQueriesPerSecond:=AValue;
  3164. MarkPropertyChanged(AIndex);
  3165. end;
  3166. Procedure TFeaturesListResponse.Setfeatures(AIndex : Integer; AValue : TFeaturesListResponseTypefeaturesArray);
  3167. begin
  3168. If (Ffeatures=AValue) then exit;
  3169. Ffeatures:=AValue;
  3170. MarkPropertyChanged(AIndex);
  3171. end;
  3172. Procedure TFeaturesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  3173. begin
  3174. If (FnextPageToken=AValue) then exit;
  3175. FnextPageToken:=AValue;
  3176. MarkPropertyChanged(AIndex);
  3177. end;
  3178. Procedure TFeaturesListResponse.Setschema(AIndex : Integer; AValue : TSchema);
  3179. begin
  3180. If (Fschema=AValue) then exit;
  3181. Fschema:=AValue;
  3182. MarkPropertyChanged(AIndex);
  3183. end;
  3184. Procedure TFeaturesListResponse.Set_type(AIndex : Integer; const AValue : String);
  3185. begin
  3186. If (F_type=AValue) then exit;
  3187. F_type:=AValue;
  3188. MarkPropertyChanged(AIndex);
  3189. end;
  3190. Class Function TFeaturesListResponse.ExportPropertyName(Const AName : String) :String;
  3191. begin
  3192. Case AName of
  3193. '_type' : Result:='type';
  3194. else
  3195. Result:=Inherited ExportPropertyName(AName);
  3196. end;
  3197. end;
  3198. //2.6.4. bug workaround
  3199. {$IFDEF VER2_6}
  3200. Procedure TFeaturesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  3201. begin
  3202. Case AName of
  3203. 'features' : SetLength(Ffeatures,ALength);
  3204. else
  3205. Inherited SetArrayLength(AName,ALength);
  3206. end;
  3207. end;
  3208. {$ENDIF VER2_6}
  3209. { --------------------------------------------------------------------
  3210. TFile
  3211. --------------------------------------------------------------------}
  3212. Procedure TFile.Setfilename(AIndex : Integer; const AValue : String);
  3213. begin
  3214. If (Ffilename=AValue) then exit;
  3215. Ffilename:=AValue;
  3216. MarkPropertyChanged(AIndex);
  3217. end;
  3218. Procedure TFile.Setsize(AIndex : Integer; const AValue : String);
  3219. begin
  3220. If (Fsize=AValue) then exit;
  3221. Fsize:=AValue;
  3222. MarkPropertyChanged(AIndex);
  3223. end;
  3224. Procedure TFile.SetuploadStatus(AIndex : Integer; const AValue : String);
  3225. begin
  3226. If (FuploadStatus=AValue) then exit;
  3227. FuploadStatus:=AValue;
  3228. MarkPropertyChanged(AIndex);
  3229. end;
  3230. { --------------------------------------------------------------------
  3231. TFilter
  3232. --------------------------------------------------------------------}
  3233. Procedure TFilter.Setcolumn(AIndex : Integer; const AValue : String);
  3234. begin
  3235. If (Fcolumn=AValue) then exit;
  3236. Fcolumn:=AValue;
  3237. MarkPropertyChanged(AIndex);
  3238. end;
  3239. Procedure TFilter.Set_operator(AIndex : Integer; const AValue : String);
  3240. begin
  3241. If (F_operator=AValue) then exit;
  3242. F_operator:=AValue;
  3243. MarkPropertyChanged(AIndex);
  3244. end;
  3245. Procedure TFilter.Setvalue(AIndex : Integer; AValue : TJSONSchema);
  3246. begin
  3247. If (Fvalue=AValue) then exit;
  3248. Fvalue:=AValue;
  3249. MarkPropertyChanged(AIndex);
  3250. end;
  3251. Class Function TFilter.ExportPropertyName(Const AName : String) :String;
  3252. begin
  3253. Case AName of
  3254. '_operator' : Result:='operator';
  3255. else
  3256. Result:=Inherited ExportPropertyName(AName);
  3257. end;
  3258. end;
  3259. { --------------------------------------------------------------------
  3260. TGeoJsonGeometry
  3261. --------------------------------------------------------------------}
  3262. { --------------------------------------------------------------------
  3263. TGeoJsonGeometryCollection
  3264. --------------------------------------------------------------------}
  3265. Procedure TGeoJsonGeometryCollection.Setgeometries(AIndex : Integer; AValue : TGeoJsonGeometryCollectionTypegeometriesArray);
  3266. begin
  3267. If (Fgeometries=AValue) then exit;
  3268. Fgeometries:=AValue;
  3269. MarkPropertyChanged(AIndex);
  3270. end;
  3271. Procedure TGeoJsonGeometryCollection.Set_type(AIndex : Integer; const AValue : String);
  3272. begin
  3273. If (F_type=AValue) then exit;
  3274. F_type:=AValue;
  3275. MarkPropertyChanged(AIndex);
  3276. end;
  3277. Class Function TGeoJsonGeometryCollection.ExportPropertyName(Const AName : String) :String;
  3278. begin
  3279. Case AName of
  3280. '_type' : Result:='type';
  3281. else
  3282. Result:=Inherited ExportPropertyName(AName);
  3283. end;
  3284. end;
  3285. //2.6.4. bug workaround
  3286. {$IFDEF VER2_6}
  3287. Procedure TGeoJsonGeometryCollection.SetArrayLength(Const AName : String; ALength : Longint);
  3288. begin
  3289. Case AName of
  3290. 'geometries' : SetLength(Fgeometries,ALength);
  3291. else
  3292. Inherited SetArrayLength(AName,ALength);
  3293. end;
  3294. end;
  3295. {$ENDIF VER2_6}
  3296. { --------------------------------------------------------------------
  3297. TGeoJsonLineString
  3298. --------------------------------------------------------------------}
  3299. Procedure TGeoJsonLineString.Setcoordinates(AIndex : Integer; AValue : TGeoJsonLineStringTypecoordinatesArray);
  3300. begin
  3301. If (Fcoordinates=AValue) then exit;
  3302. Fcoordinates:=AValue;
  3303. MarkPropertyChanged(AIndex);
  3304. end;
  3305. Procedure TGeoJsonLineString.Set_type(AIndex : Integer; const AValue : String);
  3306. begin
  3307. If (F_type=AValue) then exit;
  3308. F_type:=AValue;
  3309. MarkPropertyChanged(AIndex);
  3310. end;
  3311. Class Function TGeoJsonLineString.ExportPropertyName(Const AName : String) :String;
  3312. begin
  3313. Case AName of
  3314. '_type' : Result:='type';
  3315. else
  3316. Result:=Inherited ExportPropertyName(AName);
  3317. end;
  3318. end;
  3319. //2.6.4. bug workaround
  3320. {$IFDEF VER2_6}
  3321. Procedure TGeoJsonLineString.SetArrayLength(Const AName : String; ALength : Longint);
  3322. begin
  3323. Case AName of
  3324. 'coordinates' : SetLength(Fcoordinates,ALength);
  3325. else
  3326. Inherited SetArrayLength(AName,ALength);
  3327. end;
  3328. end;
  3329. {$ENDIF VER2_6}
  3330. { --------------------------------------------------------------------
  3331. TGeoJsonMultiLineString
  3332. --------------------------------------------------------------------}
  3333. Procedure TGeoJsonMultiLineString.Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiLineStringTypecoordinatesArray);
  3334. begin
  3335. If (Fcoordinates=AValue) then exit;
  3336. Fcoordinates:=AValue;
  3337. MarkPropertyChanged(AIndex);
  3338. end;
  3339. Procedure TGeoJsonMultiLineString.Set_type(AIndex : Integer; const AValue : String);
  3340. begin
  3341. If (F_type=AValue) then exit;
  3342. F_type:=AValue;
  3343. MarkPropertyChanged(AIndex);
  3344. end;
  3345. Class Function TGeoJsonMultiLineString.ExportPropertyName(Const AName : String) :String;
  3346. begin
  3347. Case AName of
  3348. '_type' : Result:='type';
  3349. else
  3350. Result:=Inherited ExportPropertyName(AName);
  3351. end;
  3352. end;
  3353. //2.6.4. bug workaround
  3354. {$IFDEF VER2_6}
  3355. Procedure TGeoJsonMultiLineString.SetArrayLength(Const AName : String; ALength : Longint);
  3356. begin
  3357. Case AName of
  3358. 'coordinates' : SetLength(Fcoordinates,ALength);
  3359. else
  3360. Inherited SetArrayLength(AName,ALength);
  3361. end;
  3362. end;
  3363. {$ENDIF VER2_6}
  3364. { --------------------------------------------------------------------
  3365. TGeoJsonMultiPoint
  3366. --------------------------------------------------------------------}
  3367. Procedure TGeoJsonMultiPoint.Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPointTypecoordinatesArray);
  3368. begin
  3369. If (Fcoordinates=AValue) then exit;
  3370. Fcoordinates:=AValue;
  3371. MarkPropertyChanged(AIndex);
  3372. end;
  3373. Procedure TGeoJsonMultiPoint.Set_type(AIndex : Integer; const AValue : String);
  3374. begin
  3375. If (F_type=AValue) then exit;
  3376. F_type:=AValue;
  3377. MarkPropertyChanged(AIndex);
  3378. end;
  3379. Class Function TGeoJsonMultiPoint.ExportPropertyName(Const AName : String) :String;
  3380. begin
  3381. Case AName of
  3382. '_type' : Result:='type';
  3383. else
  3384. Result:=Inherited ExportPropertyName(AName);
  3385. end;
  3386. end;
  3387. //2.6.4. bug workaround
  3388. {$IFDEF VER2_6}
  3389. Procedure TGeoJsonMultiPoint.SetArrayLength(Const AName : String; ALength : Longint);
  3390. begin
  3391. Case AName of
  3392. 'coordinates' : SetLength(Fcoordinates,ALength);
  3393. else
  3394. Inherited SetArrayLength(AName,ALength);
  3395. end;
  3396. end;
  3397. {$ENDIF VER2_6}
  3398. { --------------------------------------------------------------------
  3399. TGeoJsonMultiPolygon
  3400. --------------------------------------------------------------------}
  3401. Procedure TGeoJsonMultiPolygon.Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPolygonTypecoordinatesArray);
  3402. begin
  3403. If (Fcoordinates=AValue) then exit;
  3404. Fcoordinates:=AValue;
  3405. MarkPropertyChanged(AIndex);
  3406. end;
  3407. Procedure TGeoJsonMultiPolygon.Set_type(AIndex : Integer; const AValue : String);
  3408. begin
  3409. If (F_type=AValue) then exit;
  3410. F_type:=AValue;
  3411. MarkPropertyChanged(AIndex);
  3412. end;
  3413. Class Function TGeoJsonMultiPolygon.ExportPropertyName(Const AName : String) :String;
  3414. begin
  3415. Case AName of
  3416. '_type' : Result:='type';
  3417. else
  3418. Result:=Inherited ExportPropertyName(AName);
  3419. end;
  3420. end;
  3421. //2.6.4. bug workaround
  3422. {$IFDEF VER2_6}
  3423. Procedure TGeoJsonMultiPolygon.SetArrayLength(Const AName : String; ALength : Longint);
  3424. begin
  3425. Case AName of
  3426. 'coordinates' : SetLength(Fcoordinates,ALength);
  3427. else
  3428. Inherited SetArrayLength(AName,ALength);
  3429. end;
  3430. end;
  3431. {$ENDIF VER2_6}
  3432. { --------------------------------------------------------------------
  3433. TGeoJsonPoint
  3434. --------------------------------------------------------------------}
  3435. Procedure TGeoJsonPoint.Setcoordinates(AIndex : Integer; AValue : TGeoJsonPosition);
  3436. begin
  3437. If (Fcoordinates=AValue) then exit;
  3438. Fcoordinates:=AValue;
  3439. MarkPropertyChanged(AIndex);
  3440. end;
  3441. Procedure TGeoJsonPoint.Set_type(AIndex : Integer; const AValue : String);
  3442. begin
  3443. If (F_type=AValue) then exit;
  3444. F_type:=AValue;
  3445. MarkPropertyChanged(AIndex);
  3446. end;
  3447. Class Function TGeoJsonPoint.ExportPropertyName(Const AName : String) :String;
  3448. begin
  3449. Case AName of
  3450. '_type' : Result:='type';
  3451. else
  3452. Result:=Inherited ExportPropertyName(AName);
  3453. end;
  3454. end;
  3455. { --------------------------------------------------------------------
  3456. TGeoJsonPolygon
  3457. --------------------------------------------------------------------}
  3458. Procedure TGeoJsonPolygon.Setcoordinates(AIndex : Integer; AValue : TGeoJsonPolygonTypecoordinatesArray);
  3459. begin
  3460. If (Fcoordinates=AValue) then exit;
  3461. Fcoordinates:=AValue;
  3462. MarkPropertyChanged(AIndex);
  3463. end;
  3464. Procedure TGeoJsonPolygon.Set_type(AIndex : Integer; const AValue : String);
  3465. begin
  3466. If (F_type=AValue) then exit;
  3467. F_type:=AValue;
  3468. MarkPropertyChanged(AIndex);
  3469. end;
  3470. Class Function TGeoJsonPolygon.ExportPropertyName(Const AName : String) :String;
  3471. begin
  3472. Case AName of
  3473. '_type' : Result:='type';
  3474. else
  3475. Result:=Inherited ExportPropertyName(AName);
  3476. end;
  3477. end;
  3478. //2.6.4. bug workaround
  3479. {$IFDEF VER2_6}
  3480. Procedure TGeoJsonPolygon.SetArrayLength(Const AName : String; ALength : Longint);
  3481. begin
  3482. Case AName of
  3483. 'coordinates' : SetLength(Fcoordinates,ALength);
  3484. else
  3485. Inherited SetArrayLength(AName,ALength);
  3486. end;
  3487. end;
  3488. {$ENDIF VER2_6}
  3489. { --------------------------------------------------------------------
  3490. TGeoJsonProperties
  3491. --------------------------------------------------------------------}
  3492. Class Function TGeoJsonProperties.AllowAdditionalProperties : Boolean;
  3493. begin
  3494. Result:=True;
  3495. end;
  3496. { --------------------------------------------------------------------
  3497. TIcon
  3498. --------------------------------------------------------------------}
  3499. Procedure TIcon.Setdescription(AIndex : Integer; const AValue : String);
  3500. begin
  3501. If (Fdescription=AValue) then exit;
  3502. Fdescription:=AValue;
  3503. MarkPropertyChanged(AIndex);
  3504. end;
  3505. Procedure TIcon.Setid(AIndex : Integer; const AValue : String);
  3506. begin
  3507. If (Fid=AValue) then exit;
  3508. Fid:=AValue;
  3509. MarkPropertyChanged(AIndex);
  3510. end;
  3511. Procedure TIcon.Setname(AIndex : Integer; const AValue : String);
  3512. begin
  3513. If (Fname=AValue) then exit;
  3514. Fname:=AValue;
  3515. MarkPropertyChanged(AIndex);
  3516. end;
  3517. { --------------------------------------------------------------------
  3518. TIconStyle
  3519. --------------------------------------------------------------------}
  3520. Procedure TIconStyle.Setid(AIndex : Integer; const AValue : String);
  3521. begin
  3522. If (Fid=AValue) then exit;
  3523. Fid:=AValue;
  3524. MarkPropertyChanged(AIndex);
  3525. end;
  3526. Procedure TIconStyle.Setname(AIndex : Integer; const AValue : String);
  3527. begin
  3528. If (Fname=AValue) then exit;
  3529. Fname:=AValue;
  3530. MarkPropertyChanged(AIndex);
  3531. end;
  3532. Procedure TIconStyle.SetscaledShape(AIndex : Integer; AValue : TScaledShape);
  3533. begin
  3534. If (FscaledShape=AValue) then exit;
  3535. FscaledShape:=AValue;
  3536. MarkPropertyChanged(AIndex);
  3537. end;
  3538. Procedure TIconStyle.SetscalingFunction(AIndex : Integer; AValue : TScalingFunction);
  3539. begin
  3540. If (FscalingFunction=AValue) then exit;
  3541. FscalingFunction:=AValue;
  3542. MarkPropertyChanged(AIndex);
  3543. end;
  3544. { --------------------------------------------------------------------
  3545. TIconsListResponse
  3546. --------------------------------------------------------------------}
  3547. Procedure TIconsListResponse.Seticons(AIndex : Integer; AValue : TIconsListResponseTypeiconsArray);
  3548. begin
  3549. If (Ficons=AValue) then exit;
  3550. Ficons:=AValue;
  3551. MarkPropertyChanged(AIndex);
  3552. end;
  3553. Procedure TIconsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  3554. begin
  3555. If (FnextPageToken=AValue) then exit;
  3556. FnextPageToken:=AValue;
  3557. MarkPropertyChanged(AIndex);
  3558. end;
  3559. //2.6.4. bug workaround
  3560. {$IFDEF VER2_6}
  3561. Procedure TIconsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  3562. begin
  3563. Case AName of
  3564. 'icons' : SetLength(Ficons,ALength);
  3565. else
  3566. Inherited SetArrayLength(AName,ALength);
  3567. end;
  3568. end;
  3569. {$ENDIF VER2_6}
  3570. { --------------------------------------------------------------------
  3571. TLabelStyle
  3572. --------------------------------------------------------------------}
  3573. Procedure TLabelStyle.Setcolor(AIndex : Integer; const AValue : String);
  3574. begin
  3575. If (Fcolor=AValue) then exit;
  3576. Fcolor:=AValue;
  3577. MarkPropertyChanged(AIndex);
  3578. end;
  3579. Procedure TLabelStyle.Setcolumn(AIndex : Integer; const AValue : String);
  3580. begin
  3581. If (Fcolumn=AValue) then exit;
  3582. Fcolumn:=AValue;
  3583. MarkPropertyChanged(AIndex);
  3584. end;
  3585. Procedure TLabelStyle.SetfontStyle(AIndex : Integer; const AValue : String);
  3586. begin
  3587. If (FfontStyle=AValue) then exit;
  3588. FfontStyle:=AValue;
  3589. MarkPropertyChanged(AIndex);
  3590. end;
  3591. Procedure TLabelStyle.SetfontWeight(AIndex : Integer; const AValue : String);
  3592. begin
  3593. If (FfontWeight=AValue) then exit;
  3594. FfontWeight:=AValue;
  3595. MarkPropertyChanged(AIndex);
  3596. end;
  3597. Procedure TLabelStyle.Setopacity(AIndex : Integer; AValue : double);
  3598. begin
  3599. If (Fopacity=AValue) then exit;
  3600. Fopacity:=AValue;
  3601. MarkPropertyChanged(AIndex);
  3602. end;
  3603. Procedure TLabelStyle.Setoutline(AIndex : Integer; AValue : TColor);
  3604. begin
  3605. If (Foutline=AValue) then exit;
  3606. Foutline:=AValue;
  3607. MarkPropertyChanged(AIndex);
  3608. end;
  3609. Procedure TLabelStyle.Setsize(AIndex : Integer; AValue : double);
  3610. begin
  3611. If (Fsize=AValue) then exit;
  3612. Fsize:=AValue;
  3613. MarkPropertyChanged(AIndex);
  3614. end;
  3615. { --------------------------------------------------------------------
  3616. TLayer
  3617. --------------------------------------------------------------------}
  3618. Procedure TLayer.Setbbox(AIndex : Integer; AValue : TdoubleArray);
  3619. begin
  3620. If (Fbbox=AValue) then exit;
  3621. Fbbox:=AValue;
  3622. MarkPropertyChanged(AIndex);
  3623. end;
  3624. Procedure TLayer.SetcreationTime(AIndex : Integer; AValue : TDatetime);
  3625. begin
  3626. If (FcreationTime=AValue) then exit;
  3627. FcreationTime:=AValue;
  3628. MarkPropertyChanged(AIndex);
  3629. end;
  3630. Procedure TLayer.SetcreatorEmail(AIndex : Integer; const AValue : String);
  3631. begin
  3632. If (FcreatorEmail=AValue) then exit;
  3633. FcreatorEmail:=AValue;
  3634. MarkPropertyChanged(AIndex);
  3635. end;
  3636. Procedure TLayer.SetdatasourceType(AIndex : Integer; const AValue : String);
  3637. begin
  3638. If (FdatasourceType=AValue) then exit;
  3639. FdatasourceType:=AValue;
  3640. MarkPropertyChanged(AIndex);
  3641. end;
  3642. Procedure TLayer.Setdatasources(AIndex : Integer; AValue : TDatasources);
  3643. begin
  3644. If (Fdatasources=AValue) then exit;
  3645. Fdatasources:=AValue;
  3646. MarkPropertyChanged(AIndex);
  3647. end;
  3648. Procedure TLayer.Setdescription(AIndex : Integer; const AValue : String);
  3649. begin
  3650. If (Fdescription=AValue) then exit;
  3651. Fdescription:=AValue;
  3652. MarkPropertyChanged(AIndex);
  3653. end;
  3654. Procedure TLayer.SetdraftAccessList(AIndex : Integer; const AValue : String);
  3655. begin
  3656. If (FdraftAccessList=AValue) then exit;
  3657. FdraftAccessList:=AValue;
  3658. MarkPropertyChanged(AIndex);
  3659. end;
  3660. Procedure TLayer.Setetag(AIndex : Integer; const AValue : String);
  3661. begin
  3662. If (Fetag=AValue) then exit;
  3663. Fetag:=AValue;
  3664. MarkPropertyChanged(AIndex);
  3665. end;
  3666. Procedure TLayer.Setid(AIndex : Integer; const AValue : String);
  3667. begin
  3668. If (Fid=AValue) then exit;
  3669. Fid:=AValue;
  3670. MarkPropertyChanged(AIndex);
  3671. end;
  3672. Procedure TLayer.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
  3673. begin
  3674. If (FlastModifiedTime=AValue) then exit;
  3675. FlastModifiedTime:=AValue;
  3676. MarkPropertyChanged(AIndex);
  3677. end;
  3678. Procedure TLayer.SetlastModifierEmail(AIndex : Integer; const AValue : String);
  3679. begin
  3680. If (FlastModifierEmail=AValue) then exit;
  3681. FlastModifierEmail:=AValue;
  3682. MarkPropertyChanged(AIndex);
  3683. end;
  3684. Procedure TLayer.SetlayerType(AIndex : Integer; const AValue : String);
  3685. begin
  3686. If (FlayerType=AValue) then exit;
  3687. FlayerType:=AValue;
  3688. MarkPropertyChanged(AIndex);
  3689. end;
  3690. Procedure TLayer.Setname(AIndex : Integer; const AValue : String);
  3691. begin
  3692. If (Fname=AValue) then exit;
  3693. Fname:=AValue;
  3694. MarkPropertyChanged(AIndex);
  3695. end;
  3696. Procedure TLayer.SetprocessingStatus(AIndex : Integer; const AValue : String);
  3697. begin
  3698. If (FprocessingStatus=AValue) then exit;
  3699. FprocessingStatus:=AValue;
  3700. MarkPropertyChanged(AIndex);
  3701. end;
  3702. Procedure TLayer.SetprojectId(AIndex : Integer; const AValue : String);
  3703. begin
  3704. If (FprojectId=AValue) then exit;
  3705. FprojectId:=AValue;
  3706. MarkPropertyChanged(AIndex);
  3707. end;
  3708. Procedure TLayer.SetpublishedAccessList(AIndex : Integer; const AValue : String);
  3709. begin
  3710. If (FpublishedAccessList=AValue) then exit;
  3711. FpublishedAccessList:=AValue;
  3712. MarkPropertyChanged(AIndex);
  3713. end;
  3714. Procedure TLayer.SetpublishingStatus(AIndex : Integer; const AValue : String);
  3715. begin
  3716. If (FpublishingStatus=AValue) then exit;
  3717. FpublishingStatus:=AValue;
  3718. MarkPropertyChanged(AIndex);
  3719. end;
  3720. Procedure TLayer.Setstyle(AIndex : Integer; AValue : TVectorStyle);
  3721. begin
  3722. If (Fstyle=AValue) then exit;
  3723. Fstyle:=AValue;
  3724. MarkPropertyChanged(AIndex);
  3725. end;
  3726. Procedure TLayer.Settags(AIndex : Integer; AValue : TTags);
  3727. begin
  3728. If (Ftags=AValue) then exit;
  3729. Ftags:=AValue;
  3730. MarkPropertyChanged(AIndex);
  3731. end;
  3732. Procedure TLayer.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
  3733. begin
  3734. If (FwritersCanEditPermissions=AValue) then exit;
  3735. FwritersCanEditPermissions:=AValue;
  3736. MarkPropertyChanged(AIndex);
  3737. end;
  3738. //2.6.4. bug workaround
  3739. {$IFDEF VER2_6}
  3740. Procedure TLayer.SetArrayLength(Const AName : String; ALength : Longint);
  3741. begin
  3742. Case AName of
  3743. 'bbox' : SetLength(Fbbox,ALength);
  3744. else
  3745. Inherited SetArrayLength(AName,ALength);
  3746. end;
  3747. end;
  3748. {$ENDIF VER2_6}
  3749. { --------------------------------------------------------------------
  3750. TLayersListResponse
  3751. --------------------------------------------------------------------}
  3752. Procedure TLayersListResponse.Setlayers(AIndex : Integer; AValue : TLayersListResponseTypelayersArray);
  3753. begin
  3754. If (Flayers=AValue) then exit;
  3755. Flayers:=AValue;
  3756. MarkPropertyChanged(AIndex);
  3757. end;
  3758. Procedure TLayersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  3759. begin
  3760. If (FnextPageToken=AValue) then exit;
  3761. FnextPageToken:=AValue;
  3762. MarkPropertyChanged(AIndex);
  3763. end;
  3764. //2.6.4. bug workaround
  3765. {$IFDEF VER2_6}
  3766. Procedure TLayersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  3767. begin
  3768. Case AName of
  3769. 'layers' : SetLength(Flayers,ALength);
  3770. else
  3771. Inherited SetArrayLength(AName,ALength);
  3772. end;
  3773. end;
  3774. {$ENDIF VER2_6}
  3775. { --------------------------------------------------------------------
  3776. TLineStyleTypestroke
  3777. --------------------------------------------------------------------}
  3778. Procedure TLineStyleTypestroke.Setcolor(AIndex : Integer; const AValue : String);
  3779. begin
  3780. If (Fcolor=AValue) then exit;
  3781. Fcolor:=AValue;
  3782. MarkPropertyChanged(AIndex);
  3783. end;
  3784. Procedure TLineStyleTypestroke.Setopacity(AIndex : Integer; AValue : double);
  3785. begin
  3786. If (Fopacity=AValue) then exit;
  3787. Fopacity:=AValue;
  3788. MarkPropertyChanged(AIndex);
  3789. end;
  3790. Procedure TLineStyleTypestroke.Setwidth(AIndex : Integer; AValue : double);
  3791. begin
  3792. If (Fwidth=AValue) then exit;
  3793. Fwidth:=AValue;
  3794. MarkPropertyChanged(AIndex);
  3795. end;
  3796. { --------------------------------------------------------------------
  3797. TLineStyle
  3798. --------------------------------------------------------------------}
  3799. Procedure TLineStyle.Setborder(AIndex : Integer; AValue : TBorder);
  3800. begin
  3801. If (Fborder=AValue) then exit;
  3802. Fborder:=AValue;
  3803. MarkPropertyChanged(AIndex);
  3804. end;
  3805. Procedure TLineStyle.Setdash(AIndex : Integer; AValue : TdoubleArray);
  3806. begin
  3807. If (Fdash=AValue) then exit;
  3808. Fdash:=AValue;
  3809. MarkPropertyChanged(AIndex);
  3810. end;
  3811. Procedure TLineStyle.Set_label(AIndex : Integer; AValue : TLabelStyle);
  3812. begin
  3813. If (F_label=AValue) then exit;
  3814. F_label:=AValue;
  3815. MarkPropertyChanged(AIndex);
  3816. end;
  3817. Procedure TLineStyle.Setstroke(AIndex : Integer; AValue : TLineStyleTypestroke);
  3818. begin
  3819. If (Fstroke=AValue) then exit;
  3820. Fstroke:=AValue;
  3821. MarkPropertyChanged(AIndex);
  3822. end;
  3823. Class Function TLineStyle.ExportPropertyName(Const AName : String) :String;
  3824. begin
  3825. Case AName of
  3826. '_label' : Result:='label';
  3827. else
  3828. Result:=Inherited ExportPropertyName(AName);
  3829. end;
  3830. end;
  3831. //2.6.4. bug workaround
  3832. {$IFDEF VER2_6}
  3833. Procedure TLineStyle.SetArrayLength(Const AName : String; ALength : Longint);
  3834. begin
  3835. Case AName of
  3836. 'dash' : SetLength(Fdash,ALength);
  3837. else
  3838. Inherited SetArrayLength(AName,ALength);
  3839. end;
  3840. end;
  3841. {$ENDIF VER2_6}
  3842. { --------------------------------------------------------------------
  3843. TMap
  3844. --------------------------------------------------------------------}
  3845. Procedure TMap.Setbbox(AIndex : Integer; AValue : TdoubleArray);
  3846. begin
  3847. If (Fbbox=AValue) then exit;
  3848. Fbbox:=AValue;
  3849. MarkPropertyChanged(AIndex);
  3850. end;
  3851. Procedure TMap.Setcontents(AIndex : Integer; AValue : TMapContents);
  3852. begin
  3853. If (Fcontents=AValue) then exit;
  3854. Fcontents:=AValue;
  3855. MarkPropertyChanged(AIndex);
  3856. end;
  3857. Procedure TMap.SetcreationTime(AIndex : Integer; AValue : TDatetime);
  3858. begin
  3859. If (FcreationTime=AValue) then exit;
  3860. FcreationTime:=AValue;
  3861. MarkPropertyChanged(AIndex);
  3862. end;
  3863. Procedure TMap.SetcreatorEmail(AIndex : Integer; const AValue : String);
  3864. begin
  3865. If (FcreatorEmail=AValue) then exit;
  3866. FcreatorEmail:=AValue;
  3867. MarkPropertyChanged(AIndex);
  3868. end;
  3869. Procedure TMap.SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox);
  3870. begin
  3871. If (FdefaultViewport=AValue) then exit;
  3872. FdefaultViewport:=AValue;
  3873. MarkPropertyChanged(AIndex);
  3874. end;
  3875. Procedure TMap.Setdescription(AIndex : Integer; const AValue : String);
  3876. begin
  3877. If (Fdescription=AValue) then exit;
  3878. Fdescription:=AValue;
  3879. MarkPropertyChanged(AIndex);
  3880. end;
  3881. Procedure TMap.SetdraftAccessList(AIndex : Integer; const AValue : String);
  3882. begin
  3883. If (FdraftAccessList=AValue) then exit;
  3884. FdraftAccessList:=AValue;
  3885. MarkPropertyChanged(AIndex);
  3886. end;
  3887. Procedure TMap.Setetag(AIndex : Integer; const AValue : String);
  3888. begin
  3889. If (Fetag=AValue) then exit;
  3890. Fetag:=AValue;
  3891. MarkPropertyChanged(AIndex);
  3892. end;
  3893. Procedure TMap.Setid(AIndex : Integer; const AValue : String);
  3894. begin
  3895. If (Fid=AValue) then exit;
  3896. Fid:=AValue;
  3897. MarkPropertyChanged(AIndex);
  3898. end;
  3899. Procedure TMap.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
  3900. begin
  3901. If (FlastModifiedTime=AValue) then exit;
  3902. FlastModifiedTime:=AValue;
  3903. MarkPropertyChanged(AIndex);
  3904. end;
  3905. Procedure TMap.SetlastModifierEmail(AIndex : Integer; const AValue : String);
  3906. begin
  3907. If (FlastModifierEmail=AValue) then exit;
  3908. FlastModifierEmail:=AValue;
  3909. MarkPropertyChanged(AIndex);
  3910. end;
  3911. Procedure TMap.Setname(AIndex : Integer; const AValue : String);
  3912. begin
  3913. If (Fname=AValue) then exit;
  3914. Fname:=AValue;
  3915. MarkPropertyChanged(AIndex);
  3916. end;
  3917. Procedure TMap.SetprocessingStatus(AIndex : Integer; const AValue : String);
  3918. begin
  3919. If (FprocessingStatus=AValue) then exit;
  3920. FprocessingStatus:=AValue;
  3921. MarkPropertyChanged(AIndex);
  3922. end;
  3923. Procedure TMap.SetprojectId(AIndex : Integer; const AValue : String);
  3924. begin
  3925. If (FprojectId=AValue) then exit;
  3926. FprojectId:=AValue;
  3927. MarkPropertyChanged(AIndex);
  3928. end;
  3929. Procedure TMap.SetpublishedAccessList(AIndex : Integer; const AValue : String);
  3930. begin
  3931. If (FpublishedAccessList=AValue) then exit;
  3932. FpublishedAccessList:=AValue;
  3933. MarkPropertyChanged(AIndex);
  3934. end;
  3935. Procedure TMap.SetpublishingStatus(AIndex : Integer; const AValue : String);
  3936. begin
  3937. If (FpublishingStatus=AValue) then exit;
  3938. FpublishingStatus:=AValue;
  3939. MarkPropertyChanged(AIndex);
  3940. end;
  3941. Procedure TMap.Settags(AIndex : Integer; AValue : TTags);
  3942. begin
  3943. If (Ftags=AValue) then exit;
  3944. Ftags:=AValue;
  3945. MarkPropertyChanged(AIndex);
  3946. end;
  3947. Procedure TMap.Setversions(AIndex : Integer; AValue : TStringArray);
  3948. begin
  3949. If (Fversions=AValue) then exit;
  3950. Fversions:=AValue;
  3951. MarkPropertyChanged(AIndex);
  3952. end;
  3953. Procedure TMap.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
  3954. begin
  3955. If (FwritersCanEditPermissions=AValue) then exit;
  3956. FwritersCanEditPermissions:=AValue;
  3957. MarkPropertyChanged(AIndex);
  3958. end;
  3959. //2.6.4. bug workaround
  3960. {$IFDEF VER2_6}
  3961. Procedure TMap.SetArrayLength(Const AName : String; ALength : Longint);
  3962. begin
  3963. Case AName of
  3964. 'bbox' : SetLength(Fbbox,ALength);
  3965. 'versions' : SetLength(Fversions,ALength);
  3966. else
  3967. Inherited SetArrayLength(AName,ALength);
  3968. end;
  3969. end;
  3970. {$ENDIF VER2_6}
  3971. { --------------------------------------------------------------------
  3972. TMapFolder
  3973. --------------------------------------------------------------------}
  3974. Procedure TMapFolder.Setcontents(AIndex : Integer; AValue : TMapFolderTypecontentsArray);
  3975. begin
  3976. If (Fcontents=AValue) then exit;
  3977. Fcontents:=AValue;
  3978. MarkPropertyChanged(AIndex);
  3979. end;
  3980. Procedure TMapFolder.SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray);
  3981. begin
  3982. If (FdefaultViewport=AValue) then exit;
  3983. FdefaultViewport:=AValue;
  3984. MarkPropertyChanged(AIndex);
  3985. end;
  3986. Procedure TMapFolder.Setexpandable(AIndex : Integer; AValue : boolean);
  3987. begin
  3988. If (Fexpandable=AValue) then exit;
  3989. Fexpandable:=AValue;
  3990. MarkPropertyChanged(AIndex);
  3991. end;
  3992. Procedure TMapFolder.Setkey(AIndex : Integer; const AValue : String);
  3993. begin
  3994. If (Fkey=AValue) then exit;
  3995. Fkey:=AValue;
  3996. MarkPropertyChanged(AIndex);
  3997. end;
  3998. Procedure TMapFolder.Setname(AIndex : Integer; const AValue : String);
  3999. begin
  4000. If (Fname=AValue) then exit;
  4001. Fname:=AValue;
  4002. MarkPropertyChanged(AIndex);
  4003. end;
  4004. Procedure TMapFolder.Set_type(AIndex : Integer; const AValue : String);
  4005. begin
  4006. If (F_type=AValue) then exit;
  4007. F_type:=AValue;
  4008. MarkPropertyChanged(AIndex);
  4009. end;
  4010. Procedure TMapFolder.Setvisibility(AIndex : Integer; const AValue : String);
  4011. begin
  4012. If (Fvisibility=AValue) then exit;
  4013. Fvisibility:=AValue;
  4014. MarkPropertyChanged(AIndex);
  4015. end;
  4016. Class Function TMapFolder.ExportPropertyName(Const AName : String) :String;
  4017. begin
  4018. Case AName of
  4019. '_type' : Result:='type';
  4020. else
  4021. Result:=Inherited ExportPropertyName(AName);
  4022. end;
  4023. end;
  4024. //2.6.4. bug workaround
  4025. {$IFDEF VER2_6}
  4026. Procedure TMapFolder.SetArrayLength(Const AName : String; ALength : Longint);
  4027. begin
  4028. Case AName of
  4029. 'contents' : SetLength(Fcontents,ALength);
  4030. 'defaultviewport' : SetLength(FdefaultViewport,ALength);
  4031. else
  4032. Inherited SetArrayLength(AName,ALength);
  4033. end;
  4034. end;
  4035. {$ENDIF VER2_6}
  4036. { --------------------------------------------------------------------
  4037. TMapItem
  4038. --------------------------------------------------------------------}
  4039. { --------------------------------------------------------------------
  4040. TMapKmlLink
  4041. --------------------------------------------------------------------}
  4042. Procedure TMapKmlLink.SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray);
  4043. begin
  4044. If (FdefaultViewport=AValue) then exit;
  4045. FdefaultViewport:=AValue;
  4046. MarkPropertyChanged(AIndex);
  4047. end;
  4048. Procedure TMapKmlLink.SetkmlUrl(AIndex : Integer; const AValue : String);
  4049. begin
  4050. If (FkmlUrl=AValue) then exit;
  4051. FkmlUrl:=AValue;
  4052. MarkPropertyChanged(AIndex);
  4053. end;
  4054. Procedure TMapKmlLink.Setname(AIndex : Integer; const AValue : String);
  4055. begin
  4056. If (Fname=AValue) then exit;
  4057. Fname:=AValue;
  4058. MarkPropertyChanged(AIndex);
  4059. end;
  4060. Procedure TMapKmlLink.Set_type(AIndex : Integer; const AValue : String);
  4061. begin
  4062. If (F_type=AValue) then exit;
  4063. F_type:=AValue;
  4064. MarkPropertyChanged(AIndex);
  4065. end;
  4066. Procedure TMapKmlLink.Setvisibility(AIndex : Integer; const AValue : String);
  4067. begin
  4068. If (Fvisibility=AValue) then exit;
  4069. Fvisibility:=AValue;
  4070. MarkPropertyChanged(AIndex);
  4071. end;
  4072. Class Function TMapKmlLink.ExportPropertyName(Const AName : String) :String;
  4073. begin
  4074. Case AName of
  4075. '_type' : Result:='type';
  4076. else
  4077. Result:=Inherited ExportPropertyName(AName);
  4078. end;
  4079. end;
  4080. //2.6.4. bug workaround
  4081. {$IFDEF VER2_6}
  4082. Procedure TMapKmlLink.SetArrayLength(Const AName : String; ALength : Longint);
  4083. begin
  4084. Case AName of
  4085. 'defaultviewport' : SetLength(FdefaultViewport,ALength);
  4086. else
  4087. Inherited SetArrayLength(AName,ALength);
  4088. end;
  4089. end;
  4090. {$ENDIF VER2_6}
  4091. { --------------------------------------------------------------------
  4092. TMapLayer
  4093. --------------------------------------------------------------------}
  4094. Procedure TMapLayer.SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray);
  4095. begin
  4096. If (FdefaultViewport=AValue) then exit;
  4097. FdefaultViewport:=AValue;
  4098. MarkPropertyChanged(AIndex);
  4099. end;
  4100. Procedure TMapLayer.Setid(AIndex : Integer; const AValue : String);
  4101. begin
  4102. If (Fid=AValue) then exit;
  4103. Fid:=AValue;
  4104. MarkPropertyChanged(AIndex);
  4105. end;
  4106. Procedure TMapLayer.Setkey(AIndex : Integer; const AValue : String);
  4107. begin
  4108. If (Fkey=AValue) then exit;
  4109. Fkey:=AValue;
  4110. MarkPropertyChanged(AIndex);
  4111. end;
  4112. Procedure TMapLayer.Setname(AIndex : Integer; const AValue : String);
  4113. begin
  4114. If (Fname=AValue) then exit;
  4115. Fname:=AValue;
  4116. MarkPropertyChanged(AIndex);
  4117. end;
  4118. Procedure TMapLayer.Set_type(AIndex : Integer; const AValue : String);
  4119. begin
  4120. If (F_type=AValue) then exit;
  4121. F_type:=AValue;
  4122. MarkPropertyChanged(AIndex);
  4123. end;
  4124. Procedure TMapLayer.Setvisibility(AIndex : Integer; const AValue : String);
  4125. begin
  4126. If (Fvisibility=AValue) then exit;
  4127. Fvisibility:=AValue;
  4128. MarkPropertyChanged(AIndex);
  4129. end;
  4130. Class Function TMapLayer.ExportPropertyName(Const AName : String) :String;
  4131. begin
  4132. Case AName of
  4133. '_type' : Result:='type';
  4134. else
  4135. Result:=Inherited ExportPropertyName(AName);
  4136. end;
  4137. end;
  4138. //2.6.4. bug workaround
  4139. {$IFDEF VER2_6}
  4140. Procedure TMapLayer.SetArrayLength(Const AName : String; ALength : Longint);
  4141. begin
  4142. Case AName of
  4143. 'defaultviewport' : SetLength(FdefaultViewport,ALength);
  4144. else
  4145. Inherited SetArrayLength(AName,ALength);
  4146. end;
  4147. end;
  4148. {$ENDIF VER2_6}
  4149. { --------------------------------------------------------------------
  4150. TMapsListResponse
  4151. --------------------------------------------------------------------}
  4152. Procedure TMapsListResponse.Setmaps(AIndex : Integer; AValue : TMapsListResponseTypemapsArray);
  4153. begin
  4154. If (Fmaps=AValue) then exit;
  4155. Fmaps:=AValue;
  4156. MarkPropertyChanged(AIndex);
  4157. end;
  4158. Procedure TMapsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  4159. begin
  4160. If (FnextPageToken=AValue) then exit;
  4161. FnextPageToken:=AValue;
  4162. MarkPropertyChanged(AIndex);
  4163. end;
  4164. //2.6.4. bug workaround
  4165. {$IFDEF VER2_6}
  4166. Procedure TMapsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4167. begin
  4168. Case AName of
  4169. 'maps' : SetLength(Fmaps,ALength);
  4170. else
  4171. Inherited SetArrayLength(AName,ALength);
  4172. end;
  4173. end;
  4174. {$ENDIF VER2_6}
  4175. { --------------------------------------------------------------------
  4176. TParent
  4177. --------------------------------------------------------------------}
  4178. Procedure TParent.Setid(AIndex : Integer; const AValue : String);
  4179. begin
  4180. If (Fid=AValue) then exit;
  4181. Fid:=AValue;
  4182. MarkPropertyChanged(AIndex);
  4183. end;
  4184. { --------------------------------------------------------------------
  4185. TParentsListResponse
  4186. --------------------------------------------------------------------}
  4187. Procedure TParentsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  4188. begin
  4189. If (FnextPageToken=AValue) then exit;
  4190. FnextPageToken:=AValue;
  4191. MarkPropertyChanged(AIndex);
  4192. end;
  4193. Procedure TParentsListResponse.Setparents(AIndex : Integer; AValue : TParentsListResponseTypeparentsArray);
  4194. begin
  4195. If (Fparents=AValue) then exit;
  4196. Fparents:=AValue;
  4197. MarkPropertyChanged(AIndex);
  4198. end;
  4199. //2.6.4. bug workaround
  4200. {$IFDEF VER2_6}
  4201. Procedure TParentsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4202. begin
  4203. Case AName of
  4204. 'parents' : SetLength(Fparents,ALength);
  4205. else
  4206. Inherited SetArrayLength(AName,ALength);
  4207. end;
  4208. end;
  4209. {$ENDIF VER2_6}
  4210. { --------------------------------------------------------------------
  4211. TPermission
  4212. --------------------------------------------------------------------}
  4213. Procedure TPermission.Setdiscoverable(AIndex : Integer; AValue : boolean);
  4214. begin
  4215. If (Fdiscoverable=AValue) then exit;
  4216. Fdiscoverable:=AValue;
  4217. MarkPropertyChanged(AIndex);
  4218. end;
  4219. Procedure TPermission.Setid(AIndex : Integer; const AValue : String);
  4220. begin
  4221. If (Fid=AValue) then exit;
  4222. Fid:=AValue;
  4223. MarkPropertyChanged(AIndex);
  4224. end;
  4225. Procedure TPermission.Setrole(AIndex : Integer; const AValue : String);
  4226. begin
  4227. If (Frole=AValue) then exit;
  4228. Frole:=AValue;
  4229. MarkPropertyChanged(AIndex);
  4230. end;
  4231. Procedure TPermission.Set_type(AIndex : Integer; const AValue : String);
  4232. begin
  4233. If (F_type=AValue) then exit;
  4234. F_type:=AValue;
  4235. MarkPropertyChanged(AIndex);
  4236. end;
  4237. Class Function TPermission.ExportPropertyName(Const AName : String) :String;
  4238. begin
  4239. Case AName of
  4240. '_type' : Result:='type';
  4241. else
  4242. Result:=Inherited ExportPropertyName(AName);
  4243. end;
  4244. end;
  4245. { --------------------------------------------------------------------
  4246. TPermissionsBatchDeleteRequest
  4247. --------------------------------------------------------------------}
  4248. Procedure TPermissionsBatchDeleteRequest.Setids(AIndex : Integer; AValue : TStringArray);
  4249. begin
  4250. If (Fids=AValue) then exit;
  4251. Fids:=AValue;
  4252. MarkPropertyChanged(AIndex);
  4253. end;
  4254. //2.6.4. bug workaround
  4255. {$IFDEF VER2_6}
  4256. Procedure TPermissionsBatchDeleteRequest.SetArrayLength(Const AName : String; ALength : Longint);
  4257. begin
  4258. Case AName of
  4259. 'ids' : SetLength(Fids,ALength);
  4260. else
  4261. Inherited SetArrayLength(AName,ALength);
  4262. end;
  4263. end;
  4264. {$ENDIF VER2_6}
  4265. { --------------------------------------------------------------------
  4266. TPermissionsBatchDeleteResponse
  4267. --------------------------------------------------------------------}
  4268. { --------------------------------------------------------------------
  4269. TPermissionsBatchUpdateRequest
  4270. --------------------------------------------------------------------}
  4271. Procedure TPermissionsBatchUpdateRequest.Setpermissions(AIndex : Integer; AValue : TPermissionsBatchUpdateRequestTypepermissionsArray);
  4272. begin
  4273. If (Fpermissions=AValue) then exit;
  4274. Fpermissions:=AValue;
  4275. MarkPropertyChanged(AIndex);
  4276. end;
  4277. //2.6.4. bug workaround
  4278. {$IFDEF VER2_6}
  4279. Procedure TPermissionsBatchUpdateRequest.SetArrayLength(Const AName : String; ALength : Longint);
  4280. begin
  4281. Case AName of
  4282. 'permissions' : SetLength(Fpermissions,ALength);
  4283. else
  4284. Inherited SetArrayLength(AName,ALength);
  4285. end;
  4286. end;
  4287. {$ENDIF VER2_6}
  4288. { --------------------------------------------------------------------
  4289. TPermissionsBatchUpdateResponse
  4290. --------------------------------------------------------------------}
  4291. { --------------------------------------------------------------------
  4292. TPermissionsListResponse
  4293. --------------------------------------------------------------------}
  4294. Procedure TPermissionsListResponse.Setpermissions(AIndex : Integer; AValue : TPermissionsListResponseTypepermissionsArray);
  4295. begin
  4296. If (Fpermissions=AValue) then exit;
  4297. Fpermissions:=AValue;
  4298. MarkPropertyChanged(AIndex);
  4299. end;
  4300. //2.6.4. bug workaround
  4301. {$IFDEF VER2_6}
  4302. Procedure TPermissionsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4303. begin
  4304. Case AName of
  4305. 'permissions' : SetLength(Fpermissions,ALength);
  4306. else
  4307. Inherited SetArrayLength(AName,ALength);
  4308. end;
  4309. end;
  4310. {$ENDIF VER2_6}
  4311. { --------------------------------------------------------------------
  4312. TPointStyle
  4313. --------------------------------------------------------------------}
  4314. Procedure TPointStyle.Seticon(AIndex : Integer; AValue : TIconStyle);
  4315. begin
  4316. If (Ficon=AValue) then exit;
  4317. Ficon:=AValue;
  4318. MarkPropertyChanged(AIndex);
  4319. end;
  4320. Procedure TPointStyle.Set_label(AIndex : Integer; AValue : TLabelStyle);
  4321. begin
  4322. If (F_label=AValue) then exit;
  4323. F_label:=AValue;
  4324. MarkPropertyChanged(AIndex);
  4325. end;
  4326. Class Function TPointStyle.ExportPropertyName(Const AName : String) :String;
  4327. begin
  4328. Case AName of
  4329. '_label' : Result:='label';
  4330. else
  4331. Result:=Inherited ExportPropertyName(AName);
  4332. end;
  4333. end;
  4334. { --------------------------------------------------------------------
  4335. TPolygonStyle
  4336. --------------------------------------------------------------------}
  4337. Procedure TPolygonStyle.Setfill(AIndex : Integer; AValue : TColor);
  4338. begin
  4339. If (Ffill=AValue) then exit;
  4340. Ffill:=AValue;
  4341. MarkPropertyChanged(AIndex);
  4342. end;
  4343. Procedure TPolygonStyle.Set_label(AIndex : Integer; AValue : TLabelStyle);
  4344. begin
  4345. If (F_label=AValue) then exit;
  4346. F_label:=AValue;
  4347. MarkPropertyChanged(AIndex);
  4348. end;
  4349. Procedure TPolygonStyle.Setstroke(AIndex : Integer; AValue : TBorder);
  4350. begin
  4351. If (Fstroke=AValue) then exit;
  4352. Fstroke:=AValue;
  4353. MarkPropertyChanged(AIndex);
  4354. end;
  4355. Class Function TPolygonStyle.ExportPropertyName(Const AName : String) :String;
  4356. begin
  4357. Case AName of
  4358. '_label' : Result:='label';
  4359. else
  4360. Result:=Inherited ExportPropertyName(AName);
  4361. end;
  4362. end;
  4363. { --------------------------------------------------------------------
  4364. TProcessResponse
  4365. --------------------------------------------------------------------}
  4366. { --------------------------------------------------------------------
  4367. TProject
  4368. --------------------------------------------------------------------}
  4369. Procedure TProject.Setid(AIndex : Integer; const AValue : String);
  4370. begin
  4371. If (Fid=AValue) then exit;
  4372. Fid:=AValue;
  4373. MarkPropertyChanged(AIndex);
  4374. end;
  4375. Procedure TProject.Setname(AIndex : Integer; const AValue : String);
  4376. begin
  4377. If (Fname=AValue) then exit;
  4378. Fname:=AValue;
  4379. MarkPropertyChanged(AIndex);
  4380. end;
  4381. { --------------------------------------------------------------------
  4382. TProjectsListResponse
  4383. --------------------------------------------------------------------}
  4384. Procedure TProjectsListResponse.Setprojects(AIndex : Integer; AValue : TProjectsListResponseTypeprojectsArray);
  4385. begin
  4386. If (Fprojects=AValue) then exit;
  4387. Fprojects:=AValue;
  4388. MarkPropertyChanged(AIndex);
  4389. end;
  4390. //2.6.4. bug workaround
  4391. {$IFDEF VER2_6}
  4392. Procedure TProjectsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4393. begin
  4394. Case AName of
  4395. 'projects' : SetLength(Fprojects,ALength);
  4396. else
  4397. Inherited SetArrayLength(AName,ALength);
  4398. end;
  4399. end;
  4400. {$ENDIF VER2_6}
  4401. { --------------------------------------------------------------------
  4402. TPublishResponse
  4403. --------------------------------------------------------------------}
  4404. { --------------------------------------------------------------------
  4405. TPublishedLayer
  4406. --------------------------------------------------------------------}
  4407. Procedure TPublishedLayer.Setdescription(AIndex : Integer; const AValue : String);
  4408. begin
  4409. If (Fdescription=AValue) then exit;
  4410. Fdescription:=AValue;
  4411. MarkPropertyChanged(AIndex);
  4412. end;
  4413. Procedure TPublishedLayer.Setid(AIndex : Integer; const AValue : String);
  4414. begin
  4415. If (Fid=AValue) then exit;
  4416. Fid:=AValue;
  4417. MarkPropertyChanged(AIndex);
  4418. end;
  4419. Procedure TPublishedLayer.SetlayerType(AIndex : Integer; const AValue : String);
  4420. begin
  4421. If (FlayerType=AValue) then exit;
  4422. FlayerType:=AValue;
  4423. MarkPropertyChanged(AIndex);
  4424. end;
  4425. Procedure TPublishedLayer.Setname(AIndex : Integer; const AValue : String);
  4426. begin
  4427. If (Fname=AValue) then exit;
  4428. Fname:=AValue;
  4429. MarkPropertyChanged(AIndex);
  4430. end;
  4431. Procedure TPublishedLayer.SetprojectId(AIndex : Integer; const AValue : String);
  4432. begin
  4433. If (FprojectId=AValue) then exit;
  4434. FprojectId:=AValue;
  4435. MarkPropertyChanged(AIndex);
  4436. end;
  4437. { --------------------------------------------------------------------
  4438. TPublishedLayersListResponse
  4439. --------------------------------------------------------------------}
  4440. Procedure TPublishedLayersListResponse.Setlayers(AIndex : Integer; AValue : TPublishedLayersListResponseTypelayersArray);
  4441. begin
  4442. If (Flayers=AValue) then exit;
  4443. Flayers:=AValue;
  4444. MarkPropertyChanged(AIndex);
  4445. end;
  4446. Procedure TPublishedLayersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  4447. begin
  4448. If (FnextPageToken=AValue) then exit;
  4449. FnextPageToken:=AValue;
  4450. MarkPropertyChanged(AIndex);
  4451. end;
  4452. //2.6.4. bug workaround
  4453. {$IFDEF VER2_6}
  4454. Procedure TPublishedLayersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4455. begin
  4456. Case AName of
  4457. 'layers' : SetLength(Flayers,ALength);
  4458. else
  4459. Inherited SetArrayLength(AName,ALength);
  4460. end;
  4461. end;
  4462. {$ENDIF VER2_6}
  4463. { --------------------------------------------------------------------
  4464. TPublishedMap
  4465. --------------------------------------------------------------------}
  4466. Procedure TPublishedMap.Setcontents(AIndex : Integer; AValue : TMapContents);
  4467. begin
  4468. If (Fcontents=AValue) then exit;
  4469. Fcontents:=AValue;
  4470. MarkPropertyChanged(AIndex);
  4471. end;
  4472. Procedure TPublishedMap.SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox);
  4473. begin
  4474. If (FdefaultViewport=AValue) then exit;
  4475. FdefaultViewport:=AValue;
  4476. MarkPropertyChanged(AIndex);
  4477. end;
  4478. Procedure TPublishedMap.Setdescription(AIndex : Integer; const AValue : String);
  4479. begin
  4480. If (Fdescription=AValue) then exit;
  4481. Fdescription:=AValue;
  4482. MarkPropertyChanged(AIndex);
  4483. end;
  4484. Procedure TPublishedMap.Setid(AIndex : Integer; const AValue : String);
  4485. begin
  4486. If (Fid=AValue) then exit;
  4487. Fid:=AValue;
  4488. MarkPropertyChanged(AIndex);
  4489. end;
  4490. Procedure TPublishedMap.Setname(AIndex : Integer; const AValue : String);
  4491. begin
  4492. If (Fname=AValue) then exit;
  4493. Fname:=AValue;
  4494. MarkPropertyChanged(AIndex);
  4495. end;
  4496. Procedure TPublishedMap.SetprojectId(AIndex : Integer; const AValue : String);
  4497. begin
  4498. If (FprojectId=AValue) then exit;
  4499. FprojectId:=AValue;
  4500. MarkPropertyChanged(AIndex);
  4501. end;
  4502. { --------------------------------------------------------------------
  4503. TPublishedMapsListResponse
  4504. --------------------------------------------------------------------}
  4505. Procedure TPublishedMapsListResponse.Setmaps(AIndex : Integer; AValue : TPublishedMapsListResponseTypemapsArray);
  4506. begin
  4507. If (Fmaps=AValue) then exit;
  4508. Fmaps:=AValue;
  4509. MarkPropertyChanged(AIndex);
  4510. end;
  4511. Procedure TPublishedMapsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  4512. begin
  4513. If (FnextPageToken=AValue) then exit;
  4514. FnextPageToken:=AValue;
  4515. MarkPropertyChanged(AIndex);
  4516. end;
  4517. //2.6.4. bug workaround
  4518. {$IFDEF VER2_6}
  4519. Procedure TPublishedMapsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4520. begin
  4521. Case AName of
  4522. 'maps' : SetLength(Fmaps,ALength);
  4523. else
  4524. Inherited SetArrayLength(AName,ALength);
  4525. end;
  4526. end;
  4527. {$ENDIF VER2_6}
  4528. { --------------------------------------------------------------------
  4529. TRaster
  4530. --------------------------------------------------------------------}
  4531. Procedure TRaster.SetacquisitionTime(AIndex : Integer; AValue : TAcquisitionTime);
  4532. begin
  4533. If (FacquisitionTime=AValue) then exit;
  4534. FacquisitionTime:=AValue;
  4535. MarkPropertyChanged(AIndex);
  4536. end;
  4537. Procedure TRaster.Setattribution(AIndex : Integer; const AValue : String);
  4538. begin
  4539. If (Fattribution=AValue) then exit;
  4540. Fattribution:=AValue;
  4541. MarkPropertyChanged(AIndex);
  4542. end;
  4543. Procedure TRaster.Setbbox(AIndex : Integer; AValue : TdoubleArray);
  4544. begin
  4545. If (Fbbox=AValue) then exit;
  4546. Fbbox:=AValue;
  4547. MarkPropertyChanged(AIndex);
  4548. end;
  4549. Procedure TRaster.SetcreationTime(AIndex : Integer; AValue : TDatetime);
  4550. begin
  4551. If (FcreationTime=AValue) then exit;
  4552. FcreationTime:=AValue;
  4553. MarkPropertyChanged(AIndex);
  4554. end;
  4555. Procedure TRaster.SetcreatorEmail(AIndex : Integer; const AValue : String);
  4556. begin
  4557. If (FcreatorEmail=AValue) then exit;
  4558. FcreatorEmail:=AValue;
  4559. MarkPropertyChanged(AIndex);
  4560. end;
  4561. Procedure TRaster.Setdescription(AIndex : Integer; const AValue : String);
  4562. begin
  4563. If (Fdescription=AValue) then exit;
  4564. Fdescription:=AValue;
  4565. MarkPropertyChanged(AIndex);
  4566. end;
  4567. Procedure TRaster.SetdraftAccessList(AIndex : Integer; const AValue : String);
  4568. begin
  4569. If (FdraftAccessList=AValue) then exit;
  4570. FdraftAccessList:=AValue;
  4571. MarkPropertyChanged(AIndex);
  4572. end;
  4573. Procedure TRaster.Setetag(AIndex : Integer; const AValue : String);
  4574. begin
  4575. If (Fetag=AValue) then exit;
  4576. Fetag:=AValue;
  4577. MarkPropertyChanged(AIndex);
  4578. end;
  4579. Procedure TRaster.Setfiles(AIndex : Integer; AValue : TRasterTypefilesArray);
  4580. begin
  4581. If (Ffiles=AValue) then exit;
  4582. Ffiles:=AValue;
  4583. MarkPropertyChanged(AIndex);
  4584. end;
  4585. Procedure TRaster.Setid(AIndex : Integer; const AValue : String);
  4586. begin
  4587. If (Fid=AValue) then exit;
  4588. Fid:=AValue;
  4589. MarkPropertyChanged(AIndex);
  4590. end;
  4591. Procedure TRaster.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
  4592. begin
  4593. If (FlastModifiedTime=AValue) then exit;
  4594. FlastModifiedTime:=AValue;
  4595. MarkPropertyChanged(AIndex);
  4596. end;
  4597. Procedure TRaster.SetlastModifierEmail(AIndex : Integer; const AValue : String);
  4598. begin
  4599. If (FlastModifierEmail=AValue) then exit;
  4600. FlastModifierEmail:=AValue;
  4601. MarkPropertyChanged(AIndex);
  4602. end;
  4603. Procedure TRaster.SetmaskType(AIndex : Integer; const AValue : String);
  4604. begin
  4605. If (FmaskType=AValue) then exit;
  4606. FmaskType:=AValue;
  4607. MarkPropertyChanged(AIndex);
  4608. end;
  4609. Procedure TRaster.Setname(AIndex : Integer; const AValue : String);
  4610. begin
  4611. If (Fname=AValue) then exit;
  4612. Fname:=AValue;
  4613. MarkPropertyChanged(AIndex);
  4614. end;
  4615. Procedure TRaster.SetprocessingStatus(AIndex : Integer; const AValue : String);
  4616. begin
  4617. If (FprocessingStatus=AValue) then exit;
  4618. FprocessingStatus:=AValue;
  4619. MarkPropertyChanged(AIndex);
  4620. end;
  4621. Procedure TRaster.SetprojectId(AIndex : Integer; const AValue : String);
  4622. begin
  4623. If (FprojectId=AValue) then exit;
  4624. FprojectId:=AValue;
  4625. MarkPropertyChanged(AIndex);
  4626. end;
  4627. Procedure TRaster.SetrasterType(AIndex : Integer; const AValue : String);
  4628. begin
  4629. If (FrasterType=AValue) then exit;
  4630. FrasterType:=AValue;
  4631. MarkPropertyChanged(AIndex);
  4632. end;
  4633. Procedure TRaster.Settags(AIndex : Integer; AValue : TTags);
  4634. begin
  4635. If (Ftags=AValue) then exit;
  4636. Ftags:=AValue;
  4637. MarkPropertyChanged(AIndex);
  4638. end;
  4639. Procedure TRaster.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
  4640. begin
  4641. If (FwritersCanEditPermissions=AValue) then exit;
  4642. FwritersCanEditPermissions:=AValue;
  4643. MarkPropertyChanged(AIndex);
  4644. end;
  4645. //2.6.4. bug workaround
  4646. {$IFDEF VER2_6}
  4647. Procedure TRaster.SetArrayLength(Const AName : String; ALength : Longint);
  4648. begin
  4649. Case AName of
  4650. 'bbox' : SetLength(Fbbox,ALength);
  4651. 'files' : SetLength(Ffiles,ALength);
  4652. else
  4653. Inherited SetArrayLength(AName,ALength);
  4654. end;
  4655. end;
  4656. {$ENDIF VER2_6}
  4657. { --------------------------------------------------------------------
  4658. TRasterCollection
  4659. --------------------------------------------------------------------}
  4660. Procedure TRasterCollection.Setattribution(AIndex : Integer; const AValue : String);
  4661. begin
  4662. If (Fattribution=AValue) then exit;
  4663. Fattribution:=AValue;
  4664. MarkPropertyChanged(AIndex);
  4665. end;
  4666. Procedure TRasterCollection.Setbbox(AIndex : Integer; AValue : TdoubleArray);
  4667. begin
  4668. If (Fbbox=AValue) then exit;
  4669. Fbbox:=AValue;
  4670. MarkPropertyChanged(AIndex);
  4671. end;
  4672. Procedure TRasterCollection.SetcreationTime(AIndex : Integer; AValue : TDatetime);
  4673. begin
  4674. If (FcreationTime=AValue) then exit;
  4675. FcreationTime:=AValue;
  4676. MarkPropertyChanged(AIndex);
  4677. end;
  4678. Procedure TRasterCollection.SetcreatorEmail(AIndex : Integer; const AValue : String);
  4679. begin
  4680. If (FcreatorEmail=AValue) then exit;
  4681. FcreatorEmail:=AValue;
  4682. MarkPropertyChanged(AIndex);
  4683. end;
  4684. Procedure TRasterCollection.Setdescription(AIndex : Integer; const AValue : String);
  4685. begin
  4686. If (Fdescription=AValue) then exit;
  4687. Fdescription:=AValue;
  4688. MarkPropertyChanged(AIndex);
  4689. end;
  4690. Procedure TRasterCollection.SetdraftAccessList(AIndex : Integer; const AValue : String);
  4691. begin
  4692. If (FdraftAccessList=AValue) then exit;
  4693. FdraftAccessList:=AValue;
  4694. MarkPropertyChanged(AIndex);
  4695. end;
  4696. Procedure TRasterCollection.Setetag(AIndex : Integer; const AValue : String);
  4697. begin
  4698. If (Fetag=AValue) then exit;
  4699. Fetag:=AValue;
  4700. MarkPropertyChanged(AIndex);
  4701. end;
  4702. Procedure TRasterCollection.Setid(AIndex : Integer; const AValue : String);
  4703. begin
  4704. If (Fid=AValue) then exit;
  4705. Fid:=AValue;
  4706. MarkPropertyChanged(AIndex);
  4707. end;
  4708. Procedure TRasterCollection.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
  4709. begin
  4710. If (FlastModifiedTime=AValue) then exit;
  4711. FlastModifiedTime:=AValue;
  4712. MarkPropertyChanged(AIndex);
  4713. end;
  4714. Procedure TRasterCollection.SetlastModifierEmail(AIndex : Integer; const AValue : String);
  4715. begin
  4716. If (FlastModifierEmail=AValue) then exit;
  4717. FlastModifierEmail:=AValue;
  4718. MarkPropertyChanged(AIndex);
  4719. end;
  4720. Procedure TRasterCollection.Setmosaic(AIndex : Integer; AValue : boolean);
  4721. begin
  4722. If (Fmosaic=AValue) then exit;
  4723. Fmosaic:=AValue;
  4724. MarkPropertyChanged(AIndex);
  4725. end;
  4726. Procedure TRasterCollection.Setname(AIndex : Integer; const AValue : String);
  4727. begin
  4728. If (Fname=AValue) then exit;
  4729. Fname:=AValue;
  4730. MarkPropertyChanged(AIndex);
  4731. end;
  4732. Procedure TRasterCollection.SetprocessingStatus(AIndex : Integer; const AValue : String);
  4733. begin
  4734. If (FprocessingStatus=AValue) then exit;
  4735. FprocessingStatus:=AValue;
  4736. MarkPropertyChanged(AIndex);
  4737. end;
  4738. Procedure TRasterCollection.SetprojectId(AIndex : Integer; const AValue : String);
  4739. begin
  4740. If (FprojectId=AValue) then exit;
  4741. FprojectId:=AValue;
  4742. MarkPropertyChanged(AIndex);
  4743. end;
  4744. Procedure TRasterCollection.SetrasterType(AIndex : Integer; const AValue : String);
  4745. begin
  4746. If (FrasterType=AValue) then exit;
  4747. FrasterType:=AValue;
  4748. MarkPropertyChanged(AIndex);
  4749. end;
  4750. Procedure TRasterCollection.Settags(AIndex : Integer; AValue : TTags);
  4751. begin
  4752. If (Ftags=AValue) then exit;
  4753. Ftags:=AValue;
  4754. MarkPropertyChanged(AIndex);
  4755. end;
  4756. Procedure TRasterCollection.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
  4757. begin
  4758. If (FwritersCanEditPermissions=AValue) then exit;
  4759. FwritersCanEditPermissions:=AValue;
  4760. MarkPropertyChanged(AIndex);
  4761. end;
  4762. //2.6.4. bug workaround
  4763. {$IFDEF VER2_6}
  4764. Procedure TRasterCollection.SetArrayLength(Const AName : String; ALength : Longint);
  4765. begin
  4766. Case AName of
  4767. 'bbox' : SetLength(Fbbox,ALength);
  4768. else
  4769. Inherited SetArrayLength(AName,ALength);
  4770. end;
  4771. end;
  4772. {$ENDIF VER2_6}
  4773. { --------------------------------------------------------------------
  4774. TRasterCollectionsListResponse
  4775. --------------------------------------------------------------------}
  4776. Procedure TRasterCollectionsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  4777. begin
  4778. If (FnextPageToken=AValue) then exit;
  4779. FnextPageToken:=AValue;
  4780. MarkPropertyChanged(AIndex);
  4781. end;
  4782. Procedure TRasterCollectionsListResponse.SetrasterCollections(AIndex : Integer; AValue : TRasterCollectionsListResponseTyperasterCollectionsArray);
  4783. begin
  4784. If (FrasterCollections=AValue) then exit;
  4785. FrasterCollections:=AValue;
  4786. MarkPropertyChanged(AIndex);
  4787. end;
  4788. //2.6.4. bug workaround
  4789. {$IFDEF VER2_6}
  4790. Procedure TRasterCollectionsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4791. begin
  4792. Case AName of
  4793. 'rastercollections' : SetLength(FrasterCollections,ALength);
  4794. else
  4795. Inherited SetArrayLength(AName,ALength);
  4796. end;
  4797. end;
  4798. {$ENDIF VER2_6}
  4799. { --------------------------------------------------------------------
  4800. TRasterCollectionsRaster
  4801. --------------------------------------------------------------------}
  4802. Procedure TRasterCollectionsRaster.Setbbox(AIndex : Integer; AValue : TdoubleArray);
  4803. begin
  4804. If (Fbbox=AValue) then exit;
  4805. Fbbox:=AValue;
  4806. MarkPropertyChanged(AIndex);
  4807. end;
  4808. Procedure TRasterCollectionsRaster.SetcreationTime(AIndex : Integer; AValue : TDatetime);
  4809. begin
  4810. If (FcreationTime=AValue) then exit;
  4811. FcreationTime:=AValue;
  4812. MarkPropertyChanged(AIndex);
  4813. end;
  4814. Procedure TRasterCollectionsRaster.Setdescription(AIndex : Integer; const AValue : String);
  4815. begin
  4816. If (Fdescription=AValue) then exit;
  4817. Fdescription:=AValue;
  4818. MarkPropertyChanged(AIndex);
  4819. end;
  4820. Procedure TRasterCollectionsRaster.Setid(AIndex : Integer; const AValue : String);
  4821. begin
  4822. If (Fid=AValue) then exit;
  4823. Fid:=AValue;
  4824. MarkPropertyChanged(AIndex);
  4825. end;
  4826. Procedure TRasterCollectionsRaster.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
  4827. begin
  4828. If (FlastModifiedTime=AValue) then exit;
  4829. FlastModifiedTime:=AValue;
  4830. MarkPropertyChanged(AIndex);
  4831. end;
  4832. Procedure TRasterCollectionsRaster.Setname(AIndex : Integer; const AValue : String);
  4833. begin
  4834. If (Fname=AValue) then exit;
  4835. Fname:=AValue;
  4836. MarkPropertyChanged(AIndex);
  4837. end;
  4838. Procedure TRasterCollectionsRaster.SetprojectId(AIndex : Integer; const AValue : String);
  4839. begin
  4840. If (FprojectId=AValue) then exit;
  4841. FprojectId:=AValue;
  4842. MarkPropertyChanged(AIndex);
  4843. end;
  4844. Procedure TRasterCollectionsRaster.SetrasterType(AIndex : Integer; const AValue : String);
  4845. begin
  4846. If (FrasterType=AValue) then exit;
  4847. FrasterType:=AValue;
  4848. MarkPropertyChanged(AIndex);
  4849. end;
  4850. Procedure TRasterCollectionsRaster.Settags(AIndex : Integer; AValue : TStringArray);
  4851. begin
  4852. If (Ftags=AValue) then exit;
  4853. Ftags:=AValue;
  4854. MarkPropertyChanged(AIndex);
  4855. end;
  4856. //2.6.4. bug workaround
  4857. {$IFDEF VER2_6}
  4858. Procedure TRasterCollectionsRaster.SetArrayLength(Const AName : String; ALength : Longint);
  4859. begin
  4860. Case AName of
  4861. 'bbox' : SetLength(Fbbox,ALength);
  4862. 'tags' : SetLength(Ftags,ALength);
  4863. else
  4864. Inherited SetArrayLength(AName,ALength);
  4865. end;
  4866. end;
  4867. {$ENDIF VER2_6}
  4868. { --------------------------------------------------------------------
  4869. TRasterCollectionsRasterBatchDeleteRequest
  4870. --------------------------------------------------------------------}
  4871. Procedure TRasterCollectionsRasterBatchDeleteRequest.Setids(AIndex : Integer; AValue : TStringArray);
  4872. begin
  4873. If (Fids=AValue) then exit;
  4874. Fids:=AValue;
  4875. MarkPropertyChanged(AIndex);
  4876. end;
  4877. //2.6.4. bug workaround
  4878. {$IFDEF VER2_6}
  4879. Procedure TRasterCollectionsRasterBatchDeleteRequest.SetArrayLength(Const AName : String; ALength : Longint);
  4880. begin
  4881. Case AName of
  4882. 'ids' : SetLength(Fids,ALength);
  4883. else
  4884. Inherited SetArrayLength(AName,ALength);
  4885. end;
  4886. end;
  4887. {$ENDIF VER2_6}
  4888. { --------------------------------------------------------------------
  4889. TRasterCollectionsRastersBatchDeleteResponse
  4890. --------------------------------------------------------------------}
  4891. { --------------------------------------------------------------------
  4892. TRasterCollectionsRastersBatchInsertRequest
  4893. --------------------------------------------------------------------}
  4894. Procedure TRasterCollectionsRastersBatchInsertRequest.Setids(AIndex : Integer; AValue : TStringArray);
  4895. begin
  4896. If (Fids=AValue) then exit;
  4897. Fids:=AValue;
  4898. MarkPropertyChanged(AIndex);
  4899. end;
  4900. //2.6.4. bug workaround
  4901. {$IFDEF VER2_6}
  4902. Procedure TRasterCollectionsRastersBatchInsertRequest.SetArrayLength(Const AName : String; ALength : Longint);
  4903. begin
  4904. Case AName of
  4905. 'ids' : SetLength(Fids,ALength);
  4906. else
  4907. Inherited SetArrayLength(AName,ALength);
  4908. end;
  4909. end;
  4910. {$ENDIF VER2_6}
  4911. { --------------------------------------------------------------------
  4912. TRasterCollectionsRastersBatchInsertResponse
  4913. --------------------------------------------------------------------}
  4914. { --------------------------------------------------------------------
  4915. TRasterCollectionsRastersListResponse
  4916. --------------------------------------------------------------------}
  4917. Procedure TRasterCollectionsRastersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  4918. begin
  4919. If (FnextPageToken=AValue) then exit;
  4920. FnextPageToken:=AValue;
  4921. MarkPropertyChanged(AIndex);
  4922. end;
  4923. Procedure TRasterCollectionsRastersListResponse.Setrasters(AIndex : Integer; AValue : TRasterCollectionsRastersListResponseTyperastersArray);
  4924. begin
  4925. If (Frasters=AValue) then exit;
  4926. Frasters:=AValue;
  4927. MarkPropertyChanged(AIndex);
  4928. end;
  4929. //2.6.4. bug workaround
  4930. {$IFDEF VER2_6}
  4931. Procedure TRasterCollectionsRastersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4932. begin
  4933. Case AName of
  4934. 'rasters' : SetLength(Frasters,ALength);
  4935. else
  4936. Inherited SetArrayLength(AName,ALength);
  4937. end;
  4938. end;
  4939. {$ENDIF VER2_6}
  4940. { --------------------------------------------------------------------
  4941. TRastersListResponse
  4942. --------------------------------------------------------------------}
  4943. Procedure TRastersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  4944. begin
  4945. If (FnextPageToken=AValue) then exit;
  4946. FnextPageToken:=AValue;
  4947. MarkPropertyChanged(AIndex);
  4948. end;
  4949. Procedure TRastersListResponse.Setrasters(AIndex : Integer; AValue : TRastersListResponseTyperastersArray);
  4950. begin
  4951. If (Frasters=AValue) then exit;
  4952. Frasters:=AValue;
  4953. MarkPropertyChanged(AIndex);
  4954. end;
  4955. //2.6.4. bug workaround
  4956. {$IFDEF VER2_6}
  4957. Procedure TRastersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  4958. begin
  4959. Case AName of
  4960. 'rasters' : SetLength(Frasters,ALength);
  4961. else
  4962. Inherited SetArrayLength(AName,ALength);
  4963. end;
  4964. end;
  4965. {$ENDIF VER2_6}
  4966. { --------------------------------------------------------------------
  4967. TScaledShape
  4968. --------------------------------------------------------------------}
  4969. Procedure TScaledShape.Setborder(AIndex : Integer; AValue : TBorder);
  4970. begin
  4971. If (Fborder=AValue) then exit;
  4972. Fborder:=AValue;
  4973. MarkPropertyChanged(AIndex);
  4974. end;
  4975. Procedure TScaledShape.Setfill(AIndex : Integer; AValue : TColor);
  4976. begin
  4977. If (Ffill=AValue) then exit;
  4978. Ffill:=AValue;
  4979. MarkPropertyChanged(AIndex);
  4980. end;
  4981. Procedure TScaledShape.Setshape(AIndex : Integer; const AValue : String);
  4982. begin
  4983. If (Fshape=AValue) then exit;
  4984. Fshape:=AValue;
  4985. MarkPropertyChanged(AIndex);
  4986. end;
  4987. { --------------------------------------------------------------------
  4988. TScalingFunction
  4989. --------------------------------------------------------------------}
  4990. Procedure TScalingFunction.Setcolumn(AIndex : Integer; const AValue : String);
  4991. begin
  4992. If (Fcolumn=AValue) then exit;
  4993. Fcolumn:=AValue;
  4994. MarkPropertyChanged(AIndex);
  4995. end;
  4996. Procedure TScalingFunction.SetscalingType(AIndex : Integer; const AValue : String);
  4997. begin
  4998. If (FscalingType=AValue) then exit;
  4999. FscalingType:=AValue;
  5000. MarkPropertyChanged(AIndex);
  5001. end;
  5002. Procedure TScalingFunction.SetsizeRange(AIndex : Integer; AValue : TSizeRange);
  5003. begin
  5004. If (FsizeRange=AValue) then exit;
  5005. FsizeRange:=AValue;
  5006. MarkPropertyChanged(AIndex);
  5007. end;
  5008. Procedure TScalingFunction.SetvalueRange(AIndex : Integer; AValue : TValueRange);
  5009. begin
  5010. If (FvalueRange=AValue) then exit;
  5011. FvalueRange:=AValue;
  5012. MarkPropertyChanged(AIndex);
  5013. end;
  5014. { --------------------------------------------------------------------
  5015. TSchema
  5016. --------------------------------------------------------------------}
  5017. Procedure TSchema.Setcolumns(AIndex : Integer; AValue : TSchemaTypecolumnsArray);
  5018. begin
  5019. If (Fcolumns=AValue) then exit;
  5020. Fcolumns:=AValue;
  5021. MarkPropertyChanged(AIndex);
  5022. end;
  5023. Procedure TSchema.SetprimaryGeometry(AIndex : Integer; const AValue : String);
  5024. begin
  5025. If (FprimaryGeometry=AValue) then exit;
  5026. FprimaryGeometry:=AValue;
  5027. MarkPropertyChanged(AIndex);
  5028. end;
  5029. Procedure TSchema.SetprimaryKey(AIndex : Integer; const AValue : String);
  5030. begin
  5031. If (FprimaryKey=AValue) then exit;
  5032. FprimaryKey:=AValue;
  5033. MarkPropertyChanged(AIndex);
  5034. end;
  5035. //2.6.4. bug workaround
  5036. {$IFDEF VER2_6}
  5037. Procedure TSchema.SetArrayLength(Const AName : String; ALength : Longint);
  5038. begin
  5039. Case AName of
  5040. 'columns' : SetLength(Fcolumns,ALength);
  5041. else
  5042. Inherited SetArrayLength(AName,ALength);
  5043. end;
  5044. end;
  5045. {$ENDIF VER2_6}
  5046. { --------------------------------------------------------------------
  5047. TSizeRange
  5048. --------------------------------------------------------------------}
  5049. Procedure TSizeRange.Setmax(AIndex : Integer; AValue : double);
  5050. begin
  5051. If (Fmax=AValue) then exit;
  5052. Fmax:=AValue;
  5053. MarkPropertyChanged(AIndex);
  5054. end;
  5055. Procedure TSizeRange.Setmin(AIndex : Integer; AValue : double);
  5056. begin
  5057. If (Fmin=AValue) then exit;
  5058. Fmin:=AValue;
  5059. MarkPropertyChanged(AIndex);
  5060. end;
  5061. { --------------------------------------------------------------------
  5062. TTable
  5063. --------------------------------------------------------------------}
  5064. Procedure TTable.Setbbox(AIndex : Integer; AValue : TdoubleArray);
  5065. begin
  5066. If (Fbbox=AValue) then exit;
  5067. Fbbox:=AValue;
  5068. MarkPropertyChanged(AIndex);
  5069. end;
  5070. Procedure TTable.SetcreationTime(AIndex : Integer; AValue : TDatetime);
  5071. begin
  5072. If (FcreationTime=AValue) then exit;
  5073. FcreationTime:=AValue;
  5074. MarkPropertyChanged(AIndex);
  5075. end;
  5076. Procedure TTable.SetcreatorEmail(AIndex : Integer; const AValue : String);
  5077. begin
  5078. If (FcreatorEmail=AValue) then exit;
  5079. FcreatorEmail:=AValue;
  5080. MarkPropertyChanged(AIndex);
  5081. end;
  5082. Procedure TTable.Setdescription(AIndex : Integer; const AValue : String);
  5083. begin
  5084. If (Fdescription=AValue) then exit;
  5085. Fdescription:=AValue;
  5086. MarkPropertyChanged(AIndex);
  5087. end;
  5088. Procedure TTable.SetdraftAccessList(AIndex : Integer; const AValue : String);
  5089. begin
  5090. If (FdraftAccessList=AValue) then exit;
  5091. FdraftAccessList:=AValue;
  5092. MarkPropertyChanged(AIndex);
  5093. end;
  5094. Procedure TTable.Setetag(AIndex : Integer; const AValue : String);
  5095. begin
  5096. If (Fetag=AValue) then exit;
  5097. Fetag:=AValue;
  5098. MarkPropertyChanged(AIndex);
  5099. end;
  5100. Procedure TTable.Setfiles(AIndex : Integer; AValue : TTableTypefilesArray);
  5101. begin
  5102. If (Ffiles=AValue) then exit;
  5103. Ffiles:=AValue;
  5104. MarkPropertyChanged(AIndex);
  5105. end;
  5106. Procedure TTable.Setid(AIndex : Integer; const AValue : String);
  5107. begin
  5108. If (Fid=AValue) then exit;
  5109. Fid:=AValue;
  5110. MarkPropertyChanged(AIndex);
  5111. end;
  5112. Procedure TTable.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
  5113. begin
  5114. If (FlastModifiedTime=AValue) then exit;
  5115. FlastModifiedTime:=AValue;
  5116. MarkPropertyChanged(AIndex);
  5117. end;
  5118. Procedure TTable.SetlastModifierEmail(AIndex : Integer; const AValue : String);
  5119. begin
  5120. If (FlastModifierEmail=AValue) then exit;
  5121. FlastModifierEmail:=AValue;
  5122. MarkPropertyChanged(AIndex);
  5123. end;
  5124. Procedure TTable.Setname(AIndex : Integer; const AValue : String);
  5125. begin
  5126. If (Fname=AValue) then exit;
  5127. Fname:=AValue;
  5128. MarkPropertyChanged(AIndex);
  5129. end;
  5130. Procedure TTable.SetprocessingStatus(AIndex : Integer; const AValue : String);
  5131. begin
  5132. If (FprocessingStatus=AValue) then exit;
  5133. FprocessingStatus:=AValue;
  5134. MarkPropertyChanged(AIndex);
  5135. end;
  5136. Procedure TTable.SetprojectId(AIndex : Integer; const AValue : String);
  5137. begin
  5138. If (FprojectId=AValue) then exit;
  5139. FprojectId:=AValue;
  5140. MarkPropertyChanged(AIndex);
  5141. end;
  5142. Procedure TTable.SetpublishedAccessList(AIndex : Integer; const AValue : String);
  5143. begin
  5144. If (FpublishedAccessList=AValue) then exit;
  5145. FpublishedAccessList:=AValue;
  5146. MarkPropertyChanged(AIndex);
  5147. end;
  5148. Procedure TTable.Setschema(AIndex : Integer; AValue : TSchema);
  5149. begin
  5150. If (Fschema=AValue) then exit;
  5151. Fschema:=AValue;
  5152. MarkPropertyChanged(AIndex);
  5153. end;
  5154. Procedure TTable.SetsourceEncoding(AIndex : Integer; const AValue : String);
  5155. begin
  5156. If (FsourceEncoding=AValue) then exit;
  5157. FsourceEncoding:=AValue;
  5158. MarkPropertyChanged(AIndex);
  5159. end;
  5160. Procedure TTable.Settags(AIndex : Integer; AValue : TTags);
  5161. begin
  5162. If (Ftags=AValue) then exit;
  5163. Ftags:=AValue;
  5164. MarkPropertyChanged(AIndex);
  5165. end;
  5166. Procedure TTable.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
  5167. begin
  5168. If (FwritersCanEditPermissions=AValue) then exit;
  5169. FwritersCanEditPermissions:=AValue;
  5170. MarkPropertyChanged(AIndex);
  5171. end;
  5172. //2.6.4. bug workaround
  5173. {$IFDEF VER2_6}
  5174. Procedure TTable.SetArrayLength(Const AName : String; ALength : Longint);
  5175. begin
  5176. Case AName of
  5177. 'bbox' : SetLength(Fbbox,ALength);
  5178. 'files' : SetLength(Ffiles,ALength);
  5179. else
  5180. Inherited SetArrayLength(AName,ALength);
  5181. end;
  5182. end;
  5183. {$ENDIF VER2_6}
  5184. { --------------------------------------------------------------------
  5185. TTableColumn
  5186. --------------------------------------------------------------------}
  5187. Procedure TTableColumn.Setname(AIndex : Integer; const AValue : String);
  5188. begin
  5189. If (Fname=AValue) then exit;
  5190. Fname:=AValue;
  5191. MarkPropertyChanged(AIndex);
  5192. end;
  5193. Procedure TTableColumn.Set_type(AIndex : Integer; const AValue : String);
  5194. begin
  5195. If (F_type=AValue) then exit;
  5196. F_type:=AValue;
  5197. MarkPropertyChanged(AIndex);
  5198. end;
  5199. Class Function TTableColumn.ExportPropertyName(Const AName : String) :String;
  5200. begin
  5201. Case AName of
  5202. '_type' : Result:='type';
  5203. else
  5204. Result:=Inherited ExportPropertyName(AName);
  5205. end;
  5206. end;
  5207. { --------------------------------------------------------------------
  5208. TTablesListResponse
  5209. --------------------------------------------------------------------}
  5210. Procedure TTablesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  5211. begin
  5212. If (FnextPageToken=AValue) then exit;
  5213. FnextPageToken:=AValue;
  5214. MarkPropertyChanged(AIndex);
  5215. end;
  5216. Procedure TTablesListResponse.Settables(AIndex : Integer; AValue : TTablesListResponseTypetablesArray);
  5217. begin
  5218. If (Ftables=AValue) then exit;
  5219. Ftables:=AValue;
  5220. MarkPropertyChanged(AIndex);
  5221. end;
  5222. //2.6.4. bug workaround
  5223. {$IFDEF VER2_6}
  5224. Procedure TTablesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
  5225. begin
  5226. Case AName of
  5227. 'tables' : SetLength(Ftables,ALength);
  5228. else
  5229. Inherited SetArrayLength(AName,ALength);
  5230. end;
  5231. end;
  5232. {$ENDIF VER2_6}
  5233. { --------------------------------------------------------------------
  5234. TValueRange
  5235. --------------------------------------------------------------------}
  5236. Procedure TValueRange.Setmax(AIndex : Integer; AValue : double);
  5237. begin
  5238. If (Fmax=AValue) then exit;
  5239. Fmax:=AValue;
  5240. MarkPropertyChanged(AIndex);
  5241. end;
  5242. Procedure TValueRange.Setmin(AIndex : Integer; AValue : double);
  5243. begin
  5244. If (Fmin=AValue) then exit;
  5245. Fmin:=AValue;
  5246. MarkPropertyChanged(AIndex);
  5247. end;
  5248. { --------------------------------------------------------------------
  5249. TVectorStyle
  5250. --------------------------------------------------------------------}
  5251. Procedure TVectorStyle.SetdisplayRules(AIndex : Integer; AValue : TVectorStyleTypedisplayRulesArray);
  5252. begin
  5253. If (FdisplayRules=AValue) then exit;
  5254. FdisplayRules:=AValue;
  5255. MarkPropertyChanged(AIndex);
  5256. end;
  5257. Procedure TVectorStyle.SetfeatureInfo(AIndex : Integer; AValue : TFeatureInfo);
  5258. begin
  5259. If (FfeatureInfo=AValue) then exit;
  5260. FfeatureInfo:=AValue;
  5261. MarkPropertyChanged(AIndex);
  5262. end;
  5263. Procedure TVectorStyle.Set_type(AIndex : Integer; const AValue : String);
  5264. begin
  5265. If (F_type=AValue) then exit;
  5266. F_type:=AValue;
  5267. MarkPropertyChanged(AIndex);
  5268. end;
  5269. Class Function TVectorStyle.ExportPropertyName(Const AName : String) :String;
  5270. begin
  5271. Case AName of
  5272. '_type' : Result:='type';
  5273. else
  5274. Result:=Inherited ExportPropertyName(AName);
  5275. end;
  5276. end;
  5277. //2.6.4. bug workaround
  5278. {$IFDEF VER2_6}
  5279. Procedure TVectorStyle.SetArrayLength(Const AName : String; ALength : Longint);
  5280. begin
  5281. Case AName of
  5282. 'displayrules' : SetLength(FdisplayRules,ALength);
  5283. else
  5284. Inherited SetArrayLength(AName,ALength);
  5285. end;
  5286. end;
  5287. {$ENDIF VER2_6}
  5288. { --------------------------------------------------------------------
  5289. TZoomLevels
  5290. --------------------------------------------------------------------}
  5291. Procedure TZoomLevels.Setmax(AIndex : Integer; AValue : integer);
  5292. begin
  5293. If (Fmax=AValue) then exit;
  5294. Fmax:=AValue;
  5295. MarkPropertyChanged(AIndex);
  5296. end;
  5297. Procedure TZoomLevels.Setmin(AIndex : Integer; AValue : integer);
  5298. begin
  5299. If (Fmin=AValue) then exit;
  5300. Fmin:=AValue;
  5301. MarkPropertyChanged(AIndex);
  5302. end;
  5303. { --------------------------------------------------------------------
  5304. TAssetsParentsResource
  5305. --------------------------------------------------------------------}
  5306. Class Function TAssetsParentsResource.ResourceName : String;
  5307. begin
  5308. Result:='parents';
  5309. end;
  5310. Class Function TAssetsParentsResource.DefaultAPI : TGoogleAPIClass;
  5311. begin
  5312. Result:=TmapsengineAPI;
  5313. end;
  5314. Function TAssetsParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
  5315. Const
  5316. _HTTPMethod = 'GET';
  5317. _Path = 'assets/{id}/parents';
  5318. _Methodid = 'mapsengine.assets.parents.list';
  5319. Var
  5320. _P : String;
  5321. begin
  5322. _P:=SubstitutePath(_Path,['id',id]);
  5323. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
  5324. end;
  5325. Function TAssetsParentsResource.List(id: string; AQuery : TAssetsParentslistOptions) : TParentsListResponse;
  5326. Var
  5327. _Q : String;
  5328. begin
  5329. _Q:='';
  5330. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5331. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5332. Result:=List(id,_Q);
  5333. end;
  5334. { --------------------------------------------------------------------
  5335. TAssetsPermissionsResource
  5336. --------------------------------------------------------------------}
  5337. Class Function TAssetsPermissionsResource.ResourceName : String;
  5338. begin
  5339. Result:='permissions';
  5340. end;
  5341. Class Function TAssetsPermissionsResource.DefaultAPI : TGoogleAPIClass;
  5342. begin
  5343. Result:=TmapsengineAPI;
  5344. end;
  5345. Function TAssetsPermissionsResource.List(id: string) : TPermissionsListResponse;
  5346. Const
  5347. _HTTPMethod = 'GET';
  5348. _Path = 'assets/{id}/permissions';
  5349. _Methodid = 'mapsengine.assets.permissions.list';
  5350. Var
  5351. _P : String;
  5352. begin
  5353. _P:=SubstitutePath(_Path,['id',id]);
  5354. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
  5355. end;
  5356. { --------------------------------------------------------------------
  5357. TAssetsResource
  5358. --------------------------------------------------------------------}
  5359. Class Function TAssetsResource.ResourceName : String;
  5360. begin
  5361. Result:='assets';
  5362. end;
  5363. Class Function TAssetsResource.DefaultAPI : TGoogleAPIClass;
  5364. begin
  5365. Result:=TmapsengineAPI;
  5366. end;
  5367. Function TAssetsResource.Get(id: string) : TAsset;
  5368. Const
  5369. _HTTPMethod = 'GET';
  5370. _Path = 'assets/{id}';
  5371. _Methodid = 'mapsengine.assets.get';
  5372. Var
  5373. _P : String;
  5374. begin
  5375. _P:=SubstitutePath(_Path,['id',id]);
  5376. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAsset) as TAsset;
  5377. end;
  5378. Function TAssetsResource.List(AQuery : string = '') : TAssetsListResponse;
  5379. Const
  5380. _HTTPMethod = 'GET';
  5381. _Path = 'assets';
  5382. _Methodid = 'mapsengine.assets.list';
  5383. begin
  5384. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAssetsListResponse) as TAssetsListResponse;
  5385. end;
  5386. Function TAssetsResource.List(AQuery : TAssetslistOptions) : TAssetsListResponse;
  5387. Var
  5388. _Q : String;
  5389. begin
  5390. _Q:='';
  5391. AddToQuery(_Q,'bbox',AQuery.bbox);
  5392. AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
  5393. AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
  5394. AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
  5395. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5396. AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
  5397. AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
  5398. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5399. AddToQuery(_Q,'projectId',AQuery.projectId);
  5400. AddToQuery(_Q,'role',AQuery.role);
  5401. AddToQuery(_Q,'search',AQuery.search);
  5402. AddToQuery(_Q,'tags',AQuery.tags);
  5403. AddToQuery(_Q,'type',AQuery._type);
  5404. Result:=List(_Q);
  5405. end;
  5406. Function TAssetsResource.GetParentsInstance : TAssetsParentsResource;
  5407. begin
  5408. if (FParentsInstance=Nil) then
  5409. FParentsInstance:=CreateParentsResource;
  5410. Result:=FParentsInstance;
  5411. end;
  5412. Function TAssetsResource.CreateParentsResource : TAssetsParentsResource;
  5413. begin
  5414. Result:=CreateParentsResource(Self);
  5415. end;
  5416. Function TAssetsResource.CreateParentsResource(AOwner : TComponent) : TAssetsParentsResource;
  5417. begin
  5418. Result:=TAssetsParentsResource.Create(AOwner);
  5419. Result.API:=Self.API;
  5420. end;
  5421. Function TAssetsResource.GetPermissionsInstance : TAssetsPermissionsResource;
  5422. begin
  5423. if (FPermissionsInstance=Nil) then
  5424. FPermissionsInstance:=CreatePermissionsResource;
  5425. Result:=FPermissionsInstance;
  5426. end;
  5427. Function TAssetsResource.CreatePermissionsResource : TAssetsPermissionsResource;
  5428. begin
  5429. Result:=CreatePermissionsResource(Self);
  5430. end;
  5431. Function TAssetsResource.CreatePermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;
  5432. begin
  5433. Result:=TAssetsPermissionsResource.Create(AOwner);
  5434. Result.API:=Self.API;
  5435. end;
  5436. { --------------------------------------------------------------------
  5437. TLayersParentsResource
  5438. --------------------------------------------------------------------}
  5439. Class Function TLayersParentsResource.ResourceName : String;
  5440. begin
  5441. Result:='parents';
  5442. end;
  5443. Class Function TLayersParentsResource.DefaultAPI : TGoogleAPIClass;
  5444. begin
  5445. Result:=TmapsengineAPI;
  5446. end;
  5447. Function TLayersParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
  5448. Const
  5449. _HTTPMethod = 'GET';
  5450. _Path = 'layers/{id}/parents';
  5451. _Methodid = 'mapsengine.layers.parents.list';
  5452. Var
  5453. _P : String;
  5454. begin
  5455. _P:=SubstitutePath(_Path,['id',id]);
  5456. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
  5457. end;
  5458. Function TLayersParentsResource.List(id: string; AQuery : TLayersParentslistOptions) : TParentsListResponse;
  5459. Var
  5460. _Q : String;
  5461. begin
  5462. _Q:='';
  5463. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5464. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5465. Result:=List(id,_Q);
  5466. end;
  5467. { --------------------------------------------------------------------
  5468. TLayersPermissionsResource
  5469. --------------------------------------------------------------------}
  5470. Class Function TLayersPermissionsResource.ResourceName : String;
  5471. begin
  5472. Result:='permissions';
  5473. end;
  5474. Class Function TLayersPermissionsResource.DefaultAPI : TGoogleAPIClass;
  5475. begin
  5476. Result:=TmapsengineAPI;
  5477. end;
  5478. Function TLayersPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  5479. Const
  5480. _HTTPMethod = 'POST';
  5481. _Path = 'layers/{id}/permissions/batchDelete';
  5482. _Methodid = 'mapsengine.layers.permissions.batchDelete';
  5483. Var
  5484. _P : String;
  5485. begin
  5486. _P:=SubstitutePath(_Path,['id',id]);
  5487. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
  5488. end;
  5489. Function TLayersPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  5490. Const
  5491. _HTTPMethod = 'POST';
  5492. _Path = 'layers/{id}/permissions/batchUpdate';
  5493. _Methodid = 'mapsengine.layers.permissions.batchUpdate';
  5494. Var
  5495. _P : String;
  5496. begin
  5497. _P:=SubstitutePath(_Path,['id',id]);
  5498. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
  5499. end;
  5500. Function TLayersPermissionsResource.List(id: string) : TPermissionsListResponse;
  5501. Const
  5502. _HTTPMethod = 'GET';
  5503. _Path = 'layers/{id}/permissions';
  5504. _Methodid = 'mapsengine.layers.permissions.list';
  5505. Var
  5506. _P : String;
  5507. begin
  5508. _P:=SubstitutePath(_Path,['id',id]);
  5509. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
  5510. end;
  5511. { --------------------------------------------------------------------
  5512. TLayersResource
  5513. --------------------------------------------------------------------}
  5514. Class Function TLayersResource.ResourceName : String;
  5515. begin
  5516. Result:='layers';
  5517. end;
  5518. Class Function TLayersResource.DefaultAPI : TGoogleAPIClass;
  5519. begin
  5520. Result:=TmapsengineAPI;
  5521. end;
  5522. Function TLayersResource.CancelProcessing(id: string) : TProcessResponse;
  5523. Const
  5524. _HTTPMethod = 'POST';
  5525. _Path = 'layers/{id}/cancelProcessing';
  5526. _Methodid = 'mapsengine.layers.cancelProcessing';
  5527. Var
  5528. _P : String;
  5529. begin
  5530. _P:=SubstitutePath(_Path,['id',id]);
  5531. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
  5532. end;
  5533. Function TLayersResource.Create(aLayer : TLayer; AQuery : string = '') : TLayer;
  5534. Const
  5535. _HTTPMethod = 'POST';
  5536. _Path = 'layers';
  5537. _Methodid = 'mapsengine.layers.create';
  5538. begin
  5539. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLayer,TLayer) as TLayer;
  5540. end;
  5541. Function TLayersResource.Create(aLayer : TLayer; AQuery : TLayerscreateOptions) : TLayer;
  5542. Var
  5543. _Q : String;
  5544. begin
  5545. _Q:='';
  5546. AddToQuery(_Q,'process',AQuery.process);
  5547. Result:=Create(aLayer,_Q);
  5548. end;
  5549. Procedure TLayersResource.Delete(id: string);
  5550. Const
  5551. _HTTPMethod = 'DELETE';
  5552. _Path = 'layers/{id}';
  5553. _Methodid = 'mapsengine.layers.delete';
  5554. Var
  5555. _P : String;
  5556. begin
  5557. _P:=SubstitutePath(_Path,['id',id]);
  5558. ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
  5559. end;
  5560. Function TLayersResource.Get(id: string; AQuery : string = '') : TLayer;
  5561. Const
  5562. _HTTPMethod = 'GET';
  5563. _Path = 'layers/{id}';
  5564. _Methodid = 'mapsengine.layers.get';
  5565. Var
  5566. _P : String;
  5567. begin
  5568. _P:=SubstitutePath(_Path,['id',id]);
  5569. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLayer) as TLayer;
  5570. end;
  5571. Function TLayersResource.Get(id: string; AQuery : TLayersgetOptions) : TLayer;
  5572. Var
  5573. _Q : String;
  5574. begin
  5575. _Q:='';
  5576. AddToQuery(_Q,'version',AQuery.version);
  5577. Result:=Get(id,_Q);
  5578. end;
  5579. Function TLayersResource.GetPublished(id: string) : TPublishedLayer;
  5580. Const
  5581. _HTTPMethod = 'GET';
  5582. _Path = 'layers/{id}/published';
  5583. _Methodid = 'mapsengine.layers.getPublished';
  5584. Var
  5585. _P : String;
  5586. begin
  5587. _P:=SubstitutePath(_Path,['id',id]);
  5588. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishedLayer) as TPublishedLayer;
  5589. end;
  5590. Function TLayersResource.List(AQuery : string = '') : TLayersListResponse;
  5591. Const
  5592. _HTTPMethod = 'GET';
  5593. _Path = 'layers';
  5594. _Methodid = 'mapsengine.layers.list';
  5595. begin
  5596. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLayersListResponse) as TLayersListResponse;
  5597. end;
  5598. Function TLayersResource.List(AQuery : TLayerslistOptions) : TLayersListResponse;
  5599. Var
  5600. _Q : String;
  5601. begin
  5602. _Q:='';
  5603. AddToQuery(_Q,'bbox',AQuery.bbox);
  5604. AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
  5605. AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
  5606. AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
  5607. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5608. AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
  5609. AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
  5610. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5611. AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
  5612. AddToQuery(_Q,'projectId',AQuery.projectId);
  5613. AddToQuery(_Q,'role',AQuery.role);
  5614. AddToQuery(_Q,'search',AQuery.search);
  5615. AddToQuery(_Q,'tags',AQuery.tags);
  5616. Result:=List(_Q);
  5617. end;
  5618. Function TLayersResource.ListPublished(AQuery : string = '') : TPublishedLayersListResponse;
  5619. Const
  5620. _HTTPMethod = 'GET';
  5621. _Path = 'layers/published';
  5622. _Methodid = 'mapsengine.layers.listPublished';
  5623. begin
  5624. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPublishedLayersListResponse) as TPublishedLayersListResponse;
  5625. end;
  5626. Function TLayersResource.ListPublished(AQuery : TLayerslistPublishedOptions) : TPublishedLayersListResponse;
  5627. Var
  5628. _Q : String;
  5629. begin
  5630. _Q:='';
  5631. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5632. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5633. AddToQuery(_Q,'projectId',AQuery.projectId);
  5634. Result:=ListPublished(_Q);
  5635. end;
  5636. Procedure TLayersResource.Patch(id: string; aLayer : TLayer);
  5637. Const
  5638. _HTTPMethod = 'PATCH';
  5639. _Path = 'layers/{id}';
  5640. _Methodid = 'mapsengine.layers.patch';
  5641. Var
  5642. _P : String;
  5643. begin
  5644. _P:=SubstitutePath(_Path,['id',id]);
  5645. ServiceCall(_HTTPMethod,_P,'',aLayer,Nil);
  5646. end;
  5647. Function TLayersResource.Process(id: string) : TProcessResponse;
  5648. Const
  5649. _HTTPMethod = 'POST';
  5650. _Path = 'layers/{id}/process';
  5651. _Methodid = 'mapsengine.layers.process';
  5652. Var
  5653. _P : String;
  5654. begin
  5655. _P:=SubstitutePath(_Path,['id',id]);
  5656. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
  5657. end;
  5658. Function TLayersResource.Publish(id: string; AQuery : string = '') : TPublishResponse;
  5659. Const
  5660. _HTTPMethod = 'POST';
  5661. _Path = 'layers/{id}/publish';
  5662. _Methodid = 'mapsengine.layers.publish';
  5663. Var
  5664. _P : String;
  5665. begin
  5666. _P:=SubstitutePath(_Path,['id',id]);
  5667. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPublishResponse) as TPublishResponse;
  5668. end;
  5669. Function TLayersResource.Publish(id: string; AQuery : TLayerspublishOptions) : TPublishResponse;
  5670. Var
  5671. _Q : String;
  5672. begin
  5673. _Q:='';
  5674. AddToQuery(_Q,'force',AQuery.force);
  5675. Result:=Publish(id,_Q);
  5676. end;
  5677. Function TLayersResource.Unpublish(id: string) : TPublishResponse;
  5678. Const
  5679. _HTTPMethod = 'POST';
  5680. _Path = 'layers/{id}/unpublish';
  5681. _Methodid = 'mapsengine.layers.unpublish';
  5682. Var
  5683. _P : String;
  5684. begin
  5685. _P:=SubstitutePath(_Path,['id',id]);
  5686. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishResponse) as TPublishResponse;
  5687. end;
  5688. Function TLayersResource.GetParentsInstance : TLayersParentsResource;
  5689. begin
  5690. if (FParentsInstance=Nil) then
  5691. FParentsInstance:=CreateParentsResource;
  5692. Result:=FParentsInstance;
  5693. end;
  5694. Function TLayersResource.CreateParentsResource : TLayersParentsResource;
  5695. begin
  5696. Result:=CreateParentsResource(Self);
  5697. end;
  5698. Function TLayersResource.CreateParentsResource(AOwner : TComponent) : TLayersParentsResource;
  5699. begin
  5700. Result:=TLayersParentsResource.Create(AOwner);
  5701. Result.API:=Self.API;
  5702. end;
  5703. Function TLayersResource.GetPermissionsInstance : TLayersPermissionsResource;
  5704. begin
  5705. if (FPermissionsInstance=Nil) then
  5706. FPermissionsInstance:=CreatePermissionsResource;
  5707. Result:=FPermissionsInstance;
  5708. end;
  5709. Function TLayersResource.CreatePermissionsResource : TLayersPermissionsResource;
  5710. begin
  5711. Result:=CreatePermissionsResource(Self);
  5712. end;
  5713. Function TLayersResource.CreatePermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;
  5714. begin
  5715. Result:=TLayersPermissionsResource.Create(AOwner);
  5716. Result.API:=Self.API;
  5717. end;
  5718. { --------------------------------------------------------------------
  5719. TMapsPermissionsResource
  5720. --------------------------------------------------------------------}
  5721. Class Function TMapsPermissionsResource.ResourceName : String;
  5722. begin
  5723. Result:='permissions';
  5724. end;
  5725. Class Function TMapsPermissionsResource.DefaultAPI : TGoogleAPIClass;
  5726. begin
  5727. Result:=TmapsengineAPI;
  5728. end;
  5729. Function TMapsPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  5730. Const
  5731. _HTTPMethod = 'POST';
  5732. _Path = 'maps/{id}/permissions/batchDelete';
  5733. _Methodid = 'mapsengine.maps.permissions.batchDelete';
  5734. Var
  5735. _P : String;
  5736. begin
  5737. _P:=SubstitutePath(_Path,['id',id]);
  5738. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
  5739. end;
  5740. Function TMapsPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  5741. Const
  5742. _HTTPMethod = 'POST';
  5743. _Path = 'maps/{id}/permissions/batchUpdate';
  5744. _Methodid = 'mapsengine.maps.permissions.batchUpdate';
  5745. Var
  5746. _P : String;
  5747. begin
  5748. _P:=SubstitutePath(_Path,['id',id]);
  5749. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
  5750. end;
  5751. Function TMapsPermissionsResource.List(id: string) : TPermissionsListResponse;
  5752. Const
  5753. _HTTPMethod = 'GET';
  5754. _Path = 'maps/{id}/permissions';
  5755. _Methodid = 'mapsengine.maps.permissions.list';
  5756. Var
  5757. _P : String;
  5758. begin
  5759. _P:=SubstitutePath(_Path,['id',id]);
  5760. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
  5761. end;
  5762. { --------------------------------------------------------------------
  5763. TMapsResource
  5764. --------------------------------------------------------------------}
  5765. Class Function TMapsResource.ResourceName : String;
  5766. begin
  5767. Result:='maps';
  5768. end;
  5769. Class Function TMapsResource.DefaultAPI : TGoogleAPIClass;
  5770. begin
  5771. Result:=TmapsengineAPI;
  5772. end;
  5773. Function TMapsResource.Create(aMap : TMap) : TMap;
  5774. Const
  5775. _HTTPMethod = 'POST';
  5776. _Path = 'maps';
  5777. _Methodid = 'mapsengine.maps.create';
  5778. begin
  5779. Result:=ServiceCall(_HTTPMethod,_Path,'',aMap,TMap) as TMap;
  5780. end;
  5781. Procedure TMapsResource.Delete(id: string);
  5782. Const
  5783. _HTTPMethod = 'DELETE';
  5784. _Path = 'maps/{id}';
  5785. _Methodid = 'mapsengine.maps.delete';
  5786. Var
  5787. _P : String;
  5788. begin
  5789. _P:=SubstitutePath(_Path,['id',id]);
  5790. ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
  5791. end;
  5792. Function TMapsResource.Get(id: string; AQuery : string = '') : TMap;
  5793. Const
  5794. _HTTPMethod = 'GET';
  5795. _Path = 'maps/{id}';
  5796. _Methodid = 'mapsengine.maps.get';
  5797. Var
  5798. _P : String;
  5799. begin
  5800. _P:=SubstitutePath(_Path,['id',id]);
  5801. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMap) as TMap;
  5802. end;
  5803. Function TMapsResource.Get(id: string; AQuery : TMapsgetOptions) : TMap;
  5804. Var
  5805. _Q : String;
  5806. begin
  5807. _Q:='';
  5808. AddToQuery(_Q,'version',AQuery.version);
  5809. Result:=Get(id,_Q);
  5810. end;
  5811. Function TMapsResource.GetPublished(id: string) : TPublishedMap;
  5812. Const
  5813. _HTTPMethod = 'GET';
  5814. _Path = 'maps/{id}/published';
  5815. _Methodid = 'mapsengine.maps.getPublished';
  5816. Var
  5817. _P : String;
  5818. begin
  5819. _P:=SubstitutePath(_Path,['id',id]);
  5820. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishedMap) as TPublishedMap;
  5821. end;
  5822. Function TMapsResource.List(AQuery : string = '') : TMapsListResponse;
  5823. Const
  5824. _HTTPMethod = 'GET';
  5825. _Path = 'maps';
  5826. _Methodid = 'mapsengine.maps.list';
  5827. begin
  5828. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TMapsListResponse) as TMapsListResponse;
  5829. end;
  5830. Function TMapsResource.List(AQuery : TMapslistOptions) : TMapsListResponse;
  5831. Var
  5832. _Q : String;
  5833. begin
  5834. _Q:='';
  5835. AddToQuery(_Q,'bbox',AQuery.bbox);
  5836. AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
  5837. AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
  5838. AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
  5839. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5840. AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
  5841. AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
  5842. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5843. AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
  5844. AddToQuery(_Q,'projectId',AQuery.projectId);
  5845. AddToQuery(_Q,'role',AQuery.role);
  5846. AddToQuery(_Q,'search',AQuery.search);
  5847. AddToQuery(_Q,'tags',AQuery.tags);
  5848. Result:=List(_Q);
  5849. end;
  5850. Function TMapsResource.ListPublished(AQuery : string = '') : TPublishedMapsListResponse;
  5851. Const
  5852. _HTTPMethod = 'GET';
  5853. _Path = 'maps/published';
  5854. _Methodid = 'mapsengine.maps.listPublished';
  5855. begin
  5856. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPublishedMapsListResponse) as TPublishedMapsListResponse;
  5857. end;
  5858. Function TMapsResource.ListPublished(AQuery : TMapslistPublishedOptions) : TPublishedMapsListResponse;
  5859. Var
  5860. _Q : String;
  5861. begin
  5862. _Q:='';
  5863. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5864. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5865. AddToQuery(_Q,'projectId',AQuery.projectId);
  5866. Result:=ListPublished(_Q);
  5867. end;
  5868. Procedure TMapsResource.Patch(id: string; aMap : TMap);
  5869. Const
  5870. _HTTPMethod = 'PATCH';
  5871. _Path = 'maps/{id}';
  5872. _Methodid = 'mapsengine.maps.patch';
  5873. Var
  5874. _P : String;
  5875. begin
  5876. _P:=SubstitutePath(_Path,['id',id]);
  5877. ServiceCall(_HTTPMethod,_P,'',aMap,Nil);
  5878. end;
  5879. Function TMapsResource.Publish(id: string; AQuery : string = '') : TPublishResponse;
  5880. Const
  5881. _HTTPMethod = 'POST';
  5882. _Path = 'maps/{id}/publish';
  5883. _Methodid = 'mapsengine.maps.publish';
  5884. Var
  5885. _P : String;
  5886. begin
  5887. _P:=SubstitutePath(_Path,['id',id]);
  5888. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPublishResponse) as TPublishResponse;
  5889. end;
  5890. Function TMapsResource.Publish(id: string; AQuery : TMapspublishOptions) : TPublishResponse;
  5891. Var
  5892. _Q : String;
  5893. begin
  5894. _Q:='';
  5895. AddToQuery(_Q,'force',AQuery.force);
  5896. Result:=Publish(id,_Q);
  5897. end;
  5898. Function TMapsResource.Unpublish(id: string) : TPublishResponse;
  5899. Const
  5900. _HTTPMethod = 'POST';
  5901. _Path = 'maps/{id}/unpublish';
  5902. _Methodid = 'mapsengine.maps.unpublish';
  5903. Var
  5904. _P : String;
  5905. begin
  5906. _P:=SubstitutePath(_Path,['id',id]);
  5907. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishResponse) as TPublishResponse;
  5908. end;
  5909. Function TMapsResource.GetPermissionsInstance : TMapsPermissionsResource;
  5910. begin
  5911. if (FPermissionsInstance=Nil) then
  5912. FPermissionsInstance:=CreatePermissionsResource;
  5913. Result:=FPermissionsInstance;
  5914. end;
  5915. Function TMapsResource.CreatePermissionsResource : TMapsPermissionsResource;
  5916. begin
  5917. Result:=CreatePermissionsResource(Self);
  5918. end;
  5919. Function TMapsResource.CreatePermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;
  5920. begin
  5921. Result:=TMapsPermissionsResource.Create(AOwner);
  5922. Result.API:=Self.API;
  5923. end;
  5924. { --------------------------------------------------------------------
  5925. TProjectsIconsResource
  5926. --------------------------------------------------------------------}
  5927. Class Function TProjectsIconsResource.ResourceName : String;
  5928. begin
  5929. Result:='icons';
  5930. end;
  5931. Class Function TProjectsIconsResource.DefaultAPI : TGoogleAPIClass;
  5932. begin
  5933. Result:=TmapsengineAPI;
  5934. end;
  5935. Function TProjectsIconsResource.Create(projectId: string; aIcon : TIcon) : TIcon;
  5936. Const
  5937. _HTTPMethod = 'POST';
  5938. _Path = 'projects/{projectId}/icons';
  5939. _Methodid = 'mapsengine.projects.icons.create';
  5940. Var
  5941. _P : String;
  5942. begin
  5943. _P:=SubstitutePath(_Path,['projectId',projectId]);
  5944. Result:=ServiceCall(_HTTPMethod,_P,'',aIcon,TIcon) as TIcon;
  5945. end;
  5946. Function TProjectsIconsResource.Get(id: string; projectId: string) : TIcon;
  5947. Const
  5948. _HTTPMethod = 'GET';
  5949. _Path = 'projects/{projectId}/icons/{id}';
  5950. _Methodid = 'mapsengine.projects.icons.get';
  5951. Var
  5952. _P : String;
  5953. begin
  5954. _P:=SubstitutePath(_Path,['id',id,'projectId',projectId]);
  5955. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TIcon) as TIcon;
  5956. end;
  5957. Function TProjectsIconsResource.List(projectId: string; AQuery : string = '') : TIconsListResponse;
  5958. Const
  5959. _HTTPMethod = 'GET';
  5960. _Path = 'projects/{projectId}/icons';
  5961. _Methodid = 'mapsengine.projects.icons.list';
  5962. Var
  5963. _P : String;
  5964. begin
  5965. _P:=SubstitutePath(_Path,['projectId',projectId]);
  5966. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TIconsListResponse) as TIconsListResponse;
  5967. end;
  5968. Function TProjectsIconsResource.List(projectId: string; AQuery : TProjectsIconslistOptions) : TIconsListResponse;
  5969. Var
  5970. _Q : String;
  5971. begin
  5972. _Q:='';
  5973. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  5974. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  5975. Result:=List(projectId,_Q);
  5976. end;
  5977. { --------------------------------------------------------------------
  5978. TProjectsResource
  5979. --------------------------------------------------------------------}
  5980. Class Function TProjectsResource.ResourceName : String;
  5981. begin
  5982. Result:='projects';
  5983. end;
  5984. Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
  5985. begin
  5986. Result:=TmapsengineAPI;
  5987. end;
  5988. Function TProjectsResource.List : TProjectsListResponse;
  5989. Const
  5990. _HTTPMethod = 'GET';
  5991. _Path = 'projects';
  5992. _Methodid = 'mapsengine.projects.list';
  5993. begin
  5994. Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TProjectsListResponse) as TProjectsListResponse;
  5995. end;
  5996. Function TProjectsResource.GetIconsInstance : TProjectsIconsResource;
  5997. begin
  5998. if (FIconsInstance=Nil) then
  5999. FIconsInstance:=CreateIconsResource;
  6000. Result:=FIconsInstance;
  6001. end;
  6002. Function TProjectsResource.CreateIconsResource : TProjectsIconsResource;
  6003. begin
  6004. Result:=CreateIconsResource(Self);
  6005. end;
  6006. Function TProjectsResource.CreateIconsResource(AOwner : TComponent) : TProjectsIconsResource;
  6007. begin
  6008. Result:=TProjectsIconsResource.Create(AOwner);
  6009. Result.API:=Self.API;
  6010. end;
  6011. { --------------------------------------------------------------------
  6012. TRasterCollectionsParentsResource
  6013. --------------------------------------------------------------------}
  6014. Class Function TRasterCollectionsParentsResource.ResourceName : String;
  6015. begin
  6016. Result:='parents';
  6017. end;
  6018. Class Function TRasterCollectionsParentsResource.DefaultAPI : TGoogleAPIClass;
  6019. begin
  6020. Result:=TmapsengineAPI;
  6021. end;
  6022. Function TRasterCollectionsParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
  6023. Const
  6024. _HTTPMethod = 'GET';
  6025. _Path = 'rasterCollections/{id}/parents';
  6026. _Methodid = 'mapsengine.rasterCollections.parents.list';
  6027. Var
  6028. _P : String;
  6029. begin
  6030. _P:=SubstitutePath(_Path,['id',id]);
  6031. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
  6032. end;
  6033. Function TRasterCollectionsParentsResource.List(id: string; AQuery : TRasterCollectionsParentslistOptions) : TParentsListResponse;
  6034. Var
  6035. _Q : String;
  6036. begin
  6037. _Q:='';
  6038. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6039. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6040. Result:=List(id,_Q);
  6041. end;
  6042. { --------------------------------------------------------------------
  6043. TRasterCollectionsPermissionsResource
  6044. --------------------------------------------------------------------}
  6045. Class Function TRasterCollectionsPermissionsResource.ResourceName : String;
  6046. begin
  6047. Result:='permissions';
  6048. end;
  6049. Class Function TRasterCollectionsPermissionsResource.DefaultAPI : TGoogleAPIClass;
  6050. begin
  6051. Result:=TmapsengineAPI;
  6052. end;
  6053. Function TRasterCollectionsPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  6054. Const
  6055. _HTTPMethod = 'POST';
  6056. _Path = 'rasterCollections/{id}/permissions/batchDelete';
  6057. _Methodid = 'mapsengine.rasterCollections.permissions.batchDelete';
  6058. Var
  6059. _P : String;
  6060. begin
  6061. _P:=SubstitutePath(_Path,['id',id]);
  6062. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
  6063. end;
  6064. Function TRasterCollectionsPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  6065. Const
  6066. _HTTPMethod = 'POST';
  6067. _Path = 'rasterCollections/{id}/permissions/batchUpdate';
  6068. _Methodid = 'mapsengine.rasterCollections.permissions.batchUpdate';
  6069. Var
  6070. _P : String;
  6071. begin
  6072. _P:=SubstitutePath(_Path,['id',id]);
  6073. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
  6074. end;
  6075. Function TRasterCollectionsPermissionsResource.List(id: string) : TPermissionsListResponse;
  6076. Const
  6077. _HTTPMethod = 'GET';
  6078. _Path = 'rasterCollections/{id}/permissions';
  6079. _Methodid = 'mapsengine.rasterCollections.permissions.list';
  6080. Var
  6081. _P : String;
  6082. begin
  6083. _P:=SubstitutePath(_Path,['id',id]);
  6084. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
  6085. end;
  6086. { --------------------------------------------------------------------
  6087. TRasterCollectionsRastersResource
  6088. --------------------------------------------------------------------}
  6089. Class Function TRasterCollectionsRastersResource.ResourceName : String;
  6090. begin
  6091. Result:='rasters';
  6092. end;
  6093. Class Function TRasterCollectionsRastersResource.DefaultAPI : TGoogleAPIClass;
  6094. begin
  6095. Result:=TmapsengineAPI;
  6096. end;
  6097. Function TRasterCollectionsRastersResource.BatchDelete(id: string; aRasterCollectionsRasterBatchDeleteRequest : TRasterCollectionsRasterBatchDeleteRequest) : TRasterCollectionsRastersBatchDeleteResponse;
  6098. Const
  6099. _HTTPMethod = 'POST';
  6100. _Path = 'rasterCollections/{id}/rasters/batchDelete';
  6101. _Methodid = 'mapsengine.rasterCollections.rasters.batchDelete';
  6102. Var
  6103. _P : String;
  6104. begin
  6105. _P:=SubstitutePath(_Path,['id',id]);
  6106. Result:=ServiceCall(_HTTPMethod,_P,'',aRasterCollectionsRasterBatchDeleteRequest,TRasterCollectionsRastersBatchDeleteResponse) as TRasterCollectionsRastersBatchDeleteResponse;
  6107. end;
  6108. Function TRasterCollectionsRastersResource.BatchInsert(id: string; aRasterCollectionsRastersBatchInsertRequest : TRasterCollectionsRastersBatchInsertRequest) : TRasterCollectionsRastersBatchInsertResponse;
  6109. Const
  6110. _HTTPMethod = 'POST';
  6111. _Path = 'rasterCollections/{id}/rasters/batchInsert';
  6112. _Methodid = 'mapsengine.rasterCollections.rasters.batchInsert';
  6113. Var
  6114. _P : String;
  6115. begin
  6116. _P:=SubstitutePath(_Path,['id',id]);
  6117. Result:=ServiceCall(_HTTPMethod,_P,'',aRasterCollectionsRastersBatchInsertRequest,TRasterCollectionsRastersBatchInsertResponse) as TRasterCollectionsRastersBatchInsertResponse;
  6118. end;
  6119. Function TRasterCollectionsRastersResource.List(id: string; AQuery : string = '') : TRasterCollectionsRastersListResponse;
  6120. Const
  6121. _HTTPMethod = 'GET';
  6122. _Path = 'rasterCollections/{id}/rasters';
  6123. _Methodid = 'mapsengine.rasterCollections.rasters.list';
  6124. Var
  6125. _P : String;
  6126. begin
  6127. _P:=SubstitutePath(_Path,['id',id]);
  6128. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRasterCollectionsRastersListResponse) as TRasterCollectionsRastersListResponse;
  6129. end;
  6130. Function TRasterCollectionsRastersResource.List(id: string; AQuery : TRasterCollectionsRasterslistOptions) : TRasterCollectionsRastersListResponse;
  6131. Var
  6132. _Q : String;
  6133. begin
  6134. _Q:='';
  6135. AddToQuery(_Q,'bbox',AQuery.bbox);
  6136. AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
  6137. AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
  6138. AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
  6139. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6140. AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
  6141. AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
  6142. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6143. AddToQuery(_Q,'role',AQuery.role);
  6144. AddToQuery(_Q,'search',AQuery.search);
  6145. AddToQuery(_Q,'tags',AQuery.tags);
  6146. Result:=List(id,_Q);
  6147. end;
  6148. { --------------------------------------------------------------------
  6149. TRasterCollectionsResource
  6150. --------------------------------------------------------------------}
  6151. Class Function TRasterCollectionsResource.ResourceName : String;
  6152. begin
  6153. Result:='rasterCollections';
  6154. end;
  6155. Class Function TRasterCollectionsResource.DefaultAPI : TGoogleAPIClass;
  6156. begin
  6157. Result:=TmapsengineAPI;
  6158. end;
  6159. Function TRasterCollectionsResource.CancelProcessing(id: string) : TProcessResponse;
  6160. Const
  6161. _HTTPMethod = 'POST';
  6162. _Path = 'rasterCollections/{id}/cancelProcessing';
  6163. _Methodid = 'mapsengine.rasterCollections.cancelProcessing';
  6164. Var
  6165. _P : String;
  6166. begin
  6167. _P:=SubstitutePath(_Path,['id',id]);
  6168. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
  6169. end;
  6170. Function TRasterCollectionsResource.Create(aRasterCollection : TRasterCollection) : TRasterCollection;
  6171. Const
  6172. _HTTPMethod = 'POST';
  6173. _Path = 'rasterCollections';
  6174. _Methodid = 'mapsengine.rasterCollections.create';
  6175. begin
  6176. Result:=ServiceCall(_HTTPMethod,_Path,'',aRasterCollection,TRasterCollection) as TRasterCollection;
  6177. end;
  6178. Procedure TRasterCollectionsResource.Delete(id: string);
  6179. Const
  6180. _HTTPMethod = 'DELETE';
  6181. _Path = 'rasterCollections/{id}';
  6182. _Methodid = 'mapsengine.rasterCollections.delete';
  6183. Var
  6184. _P : String;
  6185. begin
  6186. _P:=SubstitutePath(_Path,['id',id]);
  6187. ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
  6188. end;
  6189. Function TRasterCollectionsResource.Get(id: string) : TRasterCollection;
  6190. Const
  6191. _HTTPMethod = 'GET';
  6192. _Path = 'rasterCollections/{id}';
  6193. _Methodid = 'mapsengine.rasterCollections.get';
  6194. Var
  6195. _P : String;
  6196. begin
  6197. _P:=SubstitutePath(_Path,['id',id]);
  6198. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRasterCollection) as TRasterCollection;
  6199. end;
  6200. Function TRasterCollectionsResource.List(AQuery : string = '') : TRasterCollectionsListResponse;
  6201. Const
  6202. _HTTPMethod = 'GET';
  6203. _Path = 'rasterCollections';
  6204. _Methodid = 'mapsengine.rasterCollections.list';
  6205. begin
  6206. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRasterCollectionsListResponse) as TRasterCollectionsListResponse;
  6207. end;
  6208. Function TRasterCollectionsResource.List(AQuery : TRasterCollectionslistOptions) : TRasterCollectionsListResponse;
  6209. Var
  6210. _Q : String;
  6211. begin
  6212. _Q:='';
  6213. AddToQuery(_Q,'bbox',AQuery.bbox);
  6214. AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
  6215. AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
  6216. AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
  6217. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6218. AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
  6219. AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
  6220. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6221. AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
  6222. AddToQuery(_Q,'projectId',AQuery.projectId);
  6223. AddToQuery(_Q,'role',AQuery.role);
  6224. AddToQuery(_Q,'search',AQuery.search);
  6225. AddToQuery(_Q,'tags',AQuery.tags);
  6226. Result:=List(_Q);
  6227. end;
  6228. Procedure TRasterCollectionsResource.Patch(id: string; aRasterCollection : TRasterCollection);
  6229. Const
  6230. _HTTPMethod = 'PATCH';
  6231. _Path = 'rasterCollections/{id}';
  6232. _Methodid = 'mapsengine.rasterCollections.patch';
  6233. Var
  6234. _P : String;
  6235. begin
  6236. _P:=SubstitutePath(_Path,['id',id]);
  6237. ServiceCall(_HTTPMethod,_P,'',aRasterCollection,Nil);
  6238. end;
  6239. Function TRasterCollectionsResource.Process(id: string) : TProcessResponse;
  6240. Const
  6241. _HTTPMethod = 'POST';
  6242. _Path = 'rasterCollections/{id}/process';
  6243. _Methodid = 'mapsengine.rasterCollections.process';
  6244. Var
  6245. _P : String;
  6246. begin
  6247. _P:=SubstitutePath(_Path,['id',id]);
  6248. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
  6249. end;
  6250. Function TRasterCollectionsResource.GetParentsInstance : TRasterCollectionsParentsResource;
  6251. begin
  6252. if (FParentsInstance=Nil) then
  6253. FParentsInstance:=CreateParentsResource;
  6254. Result:=FParentsInstance;
  6255. end;
  6256. Function TRasterCollectionsResource.CreateParentsResource : TRasterCollectionsParentsResource;
  6257. begin
  6258. Result:=CreateParentsResource(Self);
  6259. end;
  6260. Function TRasterCollectionsResource.CreateParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;
  6261. begin
  6262. Result:=TRasterCollectionsParentsResource.Create(AOwner);
  6263. Result.API:=Self.API;
  6264. end;
  6265. Function TRasterCollectionsResource.GetPermissionsInstance : TRasterCollectionsPermissionsResource;
  6266. begin
  6267. if (FPermissionsInstance=Nil) then
  6268. FPermissionsInstance:=CreatePermissionsResource;
  6269. Result:=FPermissionsInstance;
  6270. end;
  6271. Function TRasterCollectionsResource.CreatePermissionsResource : TRasterCollectionsPermissionsResource;
  6272. begin
  6273. Result:=CreatePermissionsResource(Self);
  6274. end;
  6275. Function TRasterCollectionsResource.CreatePermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;
  6276. begin
  6277. Result:=TRasterCollectionsPermissionsResource.Create(AOwner);
  6278. Result.API:=Self.API;
  6279. end;
  6280. Function TRasterCollectionsResource.GetRastersInstance : TRasterCollectionsRastersResource;
  6281. begin
  6282. if (FRastersInstance=Nil) then
  6283. FRastersInstance:=CreateRastersResource;
  6284. Result:=FRastersInstance;
  6285. end;
  6286. Function TRasterCollectionsResource.CreateRastersResource : TRasterCollectionsRastersResource;
  6287. begin
  6288. Result:=CreateRastersResource(Self);
  6289. end;
  6290. Function TRasterCollectionsResource.CreateRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;
  6291. begin
  6292. Result:=TRasterCollectionsRastersResource.Create(AOwner);
  6293. Result.API:=Self.API;
  6294. end;
  6295. { --------------------------------------------------------------------
  6296. TRastersFilesResource
  6297. --------------------------------------------------------------------}
  6298. Class Function TRastersFilesResource.ResourceName : String;
  6299. begin
  6300. Result:='files';
  6301. end;
  6302. Class Function TRastersFilesResource.DefaultAPI : TGoogleAPIClass;
  6303. begin
  6304. Result:=TmapsengineAPI;
  6305. end;
  6306. Procedure TRastersFilesResource.Insert(id: string; AQuery : string = '');
  6307. Const
  6308. _HTTPMethod = 'POST';
  6309. _Path = 'rasters/{id}/files';
  6310. _Methodid = 'mapsengine.rasters.files.insert';
  6311. Var
  6312. _P : String;
  6313. begin
  6314. _P:=SubstitutePath(_Path,['id',id]);
  6315. ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
  6316. end;
  6317. Procedure TRastersFilesResource.Insert(id: string; AQuery : TRastersFilesinsertOptions);
  6318. Var
  6319. _Q : String;
  6320. begin
  6321. _Q:='';
  6322. AddToQuery(_Q,'filename',AQuery.filename);
  6323. Insert(id,_Q);
  6324. end;
  6325. { --------------------------------------------------------------------
  6326. TRastersParentsResource
  6327. --------------------------------------------------------------------}
  6328. Class Function TRastersParentsResource.ResourceName : String;
  6329. begin
  6330. Result:='parents';
  6331. end;
  6332. Class Function TRastersParentsResource.DefaultAPI : TGoogleAPIClass;
  6333. begin
  6334. Result:=TmapsengineAPI;
  6335. end;
  6336. Function TRastersParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
  6337. Const
  6338. _HTTPMethod = 'GET';
  6339. _Path = 'rasters/{id}/parents';
  6340. _Methodid = 'mapsengine.rasters.parents.list';
  6341. Var
  6342. _P : String;
  6343. begin
  6344. _P:=SubstitutePath(_Path,['id',id]);
  6345. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
  6346. end;
  6347. Function TRastersParentsResource.List(id: string; AQuery : TRastersParentslistOptions) : TParentsListResponse;
  6348. Var
  6349. _Q : String;
  6350. begin
  6351. _Q:='';
  6352. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6353. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6354. Result:=List(id,_Q);
  6355. end;
  6356. { --------------------------------------------------------------------
  6357. TRastersPermissionsResource
  6358. --------------------------------------------------------------------}
  6359. Class Function TRastersPermissionsResource.ResourceName : String;
  6360. begin
  6361. Result:='permissions';
  6362. end;
  6363. Class Function TRastersPermissionsResource.DefaultAPI : TGoogleAPIClass;
  6364. begin
  6365. Result:=TmapsengineAPI;
  6366. end;
  6367. Function TRastersPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  6368. Const
  6369. _HTTPMethod = 'POST';
  6370. _Path = 'rasters/{id}/permissions/batchDelete';
  6371. _Methodid = 'mapsengine.rasters.permissions.batchDelete';
  6372. Var
  6373. _P : String;
  6374. begin
  6375. _P:=SubstitutePath(_Path,['id',id]);
  6376. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
  6377. end;
  6378. Function TRastersPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  6379. Const
  6380. _HTTPMethod = 'POST';
  6381. _Path = 'rasters/{id}/permissions/batchUpdate';
  6382. _Methodid = 'mapsengine.rasters.permissions.batchUpdate';
  6383. Var
  6384. _P : String;
  6385. begin
  6386. _P:=SubstitutePath(_Path,['id',id]);
  6387. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
  6388. end;
  6389. Function TRastersPermissionsResource.List(id: string) : TPermissionsListResponse;
  6390. Const
  6391. _HTTPMethod = 'GET';
  6392. _Path = 'rasters/{id}/permissions';
  6393. _Methodid = 'mapsengine.rasters.permissions.list';
  6394. Var
  6395. _P : String;
  6396. begin
  6397. _P:=SubstitutePath(_Path,['id',id]);
  6398. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
  6399. end;
  6400. { --------------------------------------------------------------------
  6401. TRastersResource
  6402. --------------------------------------------------------------------}
  6403. Class Function TRastersResource.ResourceName : String;
  6404. begin
  6405. Result:='rasters';
  6406. end;
  6407. Class Function TRastersResource.DefaultAPI : TGoogleAPIClass;
  6408. begin
  6409. Result:=TmapsengineAPI;
  6410. end;
  6411. Procedure TRastersResource.Delete(id: string);
  6412. Const
  6413. _HTTPMethod = 'DELETE';
  6414. _Path = 'rasters/{id}';
  6415. _Methodid = 'mapsengine.rasters.delete';
  6416. Var
  6417. _P : String;
  6418. begin
  6419. _P:=SubstitutePath(_Path,['id',id]);
  6420. ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
  6421. end;
  6422. Function TRastersResource.Get(id: string) : TRaster;
  6423. Const
  6424. _HTTPMethod = 'GET';
  6425. _Path = 'rasters/{id}';
  6426. _Methodid = 'mapsengine.rasters.get';
  6427. Var
  6428. _P : String;
  6429. begin
  6430. _P:=SubstitutePath(_Path,['id',id]);
  6431. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRaster) as TRaster;
  6432. end;
  6433. Function TRastersResource.List(AQuery : string = '') : TRastersListResponse;
  6434. Const
  6435. _HTTPMethod = 'GET';
  6436. _Path = 'rasters';
  6437. _Methodid = 'mapsengine.rasters.list';
  6438. begin
  6439. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRastersListResponse) as TRastersListResponse;
  6440. end;
  6441. Function TRastersResource.List(AQuery : TRasterslistOptions) : TRastersListResponse;
  6442. Var
  6443. _Q : String;
  6444. begin
  6445. _Q:='';
  6446. AddToQuery(_Q,'bbox',AQuery.bbox);
  6447. AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
  6448. AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
  6449. AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
  6450. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6451. AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
  6452. AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
  6453. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6454. AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
  6455. AddToQuery(_Q,'projectId',AQuery.projectId);
  6456. AddToQuery(_Q,'role',AQuery.role);
  6457. AddToQuery(_Q,'search',AQuery.search);
  6458. AddToQuery(_Q,'tags',AQuery.tags);
  6459. Result:=List(_Q);
  6460. end;
  6461. Procedure TRastersResource.Patch(id: string; aRaster : TRaster);
  6462. Const
  6463. _HTTPMethod = 'PATCH';
  6464. _Path = 'rasters/{id}';
  6465. _Methodid = 'mapsengine.rasters.patch';
  6466. Var
  6467. _P : String;
  6468. begin
  6469. _P:=SubstitutePath(_Path,['id',id]);
  6470. ServiceCall(_HTTPMethod,_P,'',aRaster,Nil);
  6471. end;
  6472. Function TRastersResource.Process(id: string) : TProcessResponse;
  6473. Const
  6474. _HTTPMethod = 'POST';
  6475. _Path = 'rasters/{id}/process';
  6476. _Methodid = 'mapsengine.rasters.process';
  6477. Var
  6478. _P : String;
  6479. begin
  6480. _P:=SubstitutePath(_Path,['id',id]);
  6481. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
  6482. end;
  6483. Function TRastersResource.Upload(aRaster : TRaster) : TRaster;
  6484. Const
  6485. _HTTPMethod = 'POST';
  6486. _Path = 'rasters/upload';
  6487. _Methodid = 'mapsengine.rasters.upload';
  6488. begin
  6489. Result:=ServiceCall(_HTTPMethod,_Path,'',aRaster,TRaster) as TRaster;
  6490. end;
  6491. Function TRastersResource.GetFilesInstance : TRastersFilesResource;
  6492. begin
  6493. if (FFilesInstance=Nil) then
  6494. FFilesInstance:=CreateFilesResource;
  6495. Result:=FFilesInstance;
  6496. end;
  6497. Function TRastersResource.CreateFilesResource : TRastersFilesResource;
  6498. begin
  6499. Result:=CreateFilesResource(Self);
  6500. end;
  6501. Function TRastersResource.CreateFilesResource(AOwner : TComponent) : TRastersFilesResource;
  6502. begin
  6503. Result:=TRastersFilesResource.Create(AOwner);
  6504. Result.API:=Self.API;
  6505. end;
  6506. Function TRastersResource.GetParentsInstance : TRastersParentsResource;
  6507. begin
  6508. if (FParentsInstance=Nil) then
  6509. FParentsInstance:=CreateParentsResource;
  6510. Result:=FParentsInstance;
  6511. end;
  6512. Function TRastersResource.CreateParentsResource : TRastersParentsResource;
  6513. begin
  6514. Result:=CreateParentsResource(Self);
  6515. end;
  6516. Function TRastersResource.CreateParentsResource(AOwner : TComponent) : TRastersParentsResource;
  6517. begin
  6518. Result:=TRastersParentsResource.Create(AOwner);
  6519. Result.API:=Self.API;
  6520. end;
  6521. Function TRastersResource.GetPermissionsInstance : TRastersPermissionsResource;
  6522. begin
  6523. if (FPermissionsInstance=Nil) then
  6524. FPermissionsInstance:=CreatePermissionsResource;
  6525. Result:=FPermissionsInstance;
  6526. end;
  6527. Function TRastersResource.CreatePermissionsResource : TRastersPermissionsResource;
  6528. begin
  6529. Result:=CreatePermissionsResource(Self);
  6530. end;
  6531. Function TRastersResource.CreatePermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;
  6532. begin
  6533. Result:=TRastersPermissionsResource.Create(AOwner);
  6534. Result.API:=Self.API;
  6535. end;
  6536. { --------------------------------------------------------------------
  6537. TTablesFeaturesResource
  6538. --------------------------------------------------------------------}
  6539. Class Function TTablesFeaturesResource.ResourceName : String;
  6540. begin
  6541. Result:='features';
  6542. end;
  6543. Class Function TTablesFeaturesResource.DefaultAPI : TGoogleAPIClass;
  6544. begin
  6545. Result:=TmapsengineAPI;
  6546. end;
  6547. Procedure TTablesFeaturesResource.BatchDelete(id: string; aFeaturesBatchDeleteRequest : TFeaturesBatchDeleteRequest);
  6548. Const
  6549. _HTTPMethod = 'POST';
  6550. _Path = 'tables/{id}/features/batchDelete';
  6551. _Methodid = 'mapsengine.tables.features.batchDelete';
  6552. Var
  6553. _P : String;
  6554. begin
  6555. _P:=SubstitutePath(_Path,['id',id]);
  6556. ServiceCall(_HTTPMethod,_P,'',aFeaturesBatchDeleteRequest,Nil);
  6557. end;
  6558. Procedure TTablesFeaturesResource.BatchInsert(id: string; aFeaturesBatchInsertRequest : TFeaturesBatchInsertRequest);
  6559. Const
  6560. _HTTPMethod = 'POST';
  6561. _Path = 'tables/{id}/features/batchInsert';
  6562. _Methodid = 'mapsengine.tables.features.batchInsert';
  6563. Var
  6564. _P : String;
  6565. begin
  6566. _P:=SubstitutePath(_Path,['id',id]);
  6567. ServiceCall(_HTTPMethod,_P,'',aFeaturesBatchInsertRequest,Nil);
  6568. end;
  6569. Procedure TTablesFeaturesResource.BatchPatch(id: string; aFeaturesBatchPatchRequest : TFeaturesBatchPatchRequest);
  6570. Const
  6571. _HTTPMethod = 'POST';
  6572. _Path = 'tables/{id}/features/batchPatch';
  6573. _Methodid = 'mapsengine.tables.features.batchPatch';
  6574. Var
  6575. _P : String;
  6576. begin
  6577. _P:=SubstitutePath(_Path,['id',id]);
  6578. ServiceCall(_HTTPMethod,_P,'',aFeaturesBatchPatchRequest,Nil);
  6579. end;
  6580. Function TTablesFeaturesResource.Get(id: string; tableId: string; AQuery : string = '') : TFeature;
  6581. Const
  6582. _HTTPMethod = 'GET';
  6583. _Path = 'tables/{tableId}/features/{id}';
  6584. _Methodid = 'mapsengine.tables.features.get';
  6585. Var
  6586. _P : String;
  6587. begin
  6588. _P:=SubstitutePath(_Path,['id',id,'tableId',tableId]);
  6589. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFeature) as TFeature;
  6590. end;
  6591. Function TTablesFeaturesResource.Get(id: string; tableId: string; AQuery : TTablesFeaturesgetOptions) : TFeature;
  6592. Var
  6593. _Q : String;
  6594. begin
  6595. _Q:='';
  6596. AddToQuery(_Q,'select',AQuery.select);
  6597. AddToQuery(_Q,'version',AQuery.version);
  6598. Result:=Get(id,tableId,_Q);
  6599. end;
  6600. Function TTablesFeaturesResource.List(id: string; AQuery : string = '') : TFeaturesListResponse;
  6601. Const
  6602. _HTTPMethod = 'GET';
  6603. _Path = 'tables/{id}/features';
  6604. _Methodid = 'mapsengine.tables.features.list';
  6605. Var
  6606. _P : String;
  6607. begin
  6608. _P:=SubstitutePath(_Path,['id',id]);
  6609. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFeaturesListResponse) as TFeaturesListResponse;
  6610. end;
  6611. Function TTablesFeaturesResource.List(id: string; AQuery : TTablesFeatureslistOptions) : TFeaturesListResponse;
  6612. Var
  6613. _Q : String;
  6614. begin
  6615. _Q:='';
  6616. AddToQuery(_Q,'include',AQuery.include);
  6617. AddToQuery(_Q,'intersects',AQuery.intersects);
  6618. AddToQuery(_Q,'limit',AQuery.limit);
  6619. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6620. AddToQuery(_Q,'orderBy',AQuery.orderBy);
  6621. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6622. AddToQuery(_Q,'select',AQuery.select);
  6623. AddToQuery(_Q,'version',AQuery.version);
  6624. AddToQuery(_Q,'where',AQuery.where);
  6625. Result:=List(id,_Q);
  6626. end;
  6627. { --------------------------------------------------------------------
  6628. TTablesFilesResource
  6629. --------------------------------------------------------------------}
  6630. Class Function TTablesFilesResource.ResourceName : String;
  6631. begin
  6632. Result:='files';
  6633. end;
  6634. Class Function TTablesFilesResource.DefaultAPI : TGoogleAPIClass;
  6635. begin
  6636. Result:=TmapsengineAPI;
  6637. end;
  6638. Procedure TTablesFilesResource.Insert(id: string; AQuery : string = '');
  6639. Const
  6640. _HTTPMethod = 'POST';
  6641. _Path = 'tables/{id}/files';
  6642. _Methodid = 'mapsengine.tables.files.insert';
  6643. Var
  6644. _P : String;
  6645. begin
  6646. _P:=SubstitutePath(_Path,['id',id]);
  6647. ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
  6648. end;
  6649. Procedure TTablesFilesResource.Insert(id: string; AQuery : TTablesFilesinsertOptions);
  6650. Var
  6651. _Q : String;
  6652. begin
  6653. _Q:='';
  6654. AddToQuery(_Q,'filename',AQuery.filename);
  6655. Insert(id,_Q);
  6656. end;
  6657. { --------------------------------------------------------------------
  6658. TTablesParentsResource
  6659. --------------------------------------------------------------------}
  6660. Class Function TTablesParentsResource.ResourceName : String;
  6661. begin
  6662. Result:='parents';
  6663. end;
  6664. Class Function TTablesParentsResource.DefaultAPI : TGoogleAPIClass;
  6665. begin
  6666. Result:=TmapsengineAPI;
  6667. end;
  6668. Function TTablesParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
  6669. Const
  6670. _HTTPMethod = 'GET';
  6671. _Path = 'tables/{id}/parents';
  6672. _Methodid = 'mapsengine.tables.parents.list';
  6673. Var
  6674. _P : String;
  6675. begin
  6676. _P:=SubstitutePath(_Path,['id',id]);
  6677. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
  6678. end;
  6679. Function TTablesParentsResource.List(id: string; AQuery : TTablesParentslistOptions) : TParentsListResponse;
  6680. Var
  6681. _Q : String;
  6682. begin
  6683. _Q:='';
  6684. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6685. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6686. Result:=List(id,_Q);
  6687. end;
  6688. { --------------------------------------------------------------------
  6689. TTablesPermissionsResource
  6690. --------------------------------------------------------------------}
  6691. Class Function TTablesPermissionsResource.ResourceName : String;
  6692. begin
  6693. Result:='permissions';
  6694. end;
  6695. Class Function TTablesPermissionsResource.DefaultAPI : TGoogleAPIClass;
  6696. begin
  6697. Result:=TmapsengineAPI;
  6698. end;
  6699. Function TTablesPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
  6700. Const
  6701. _HTTPMethod = 'POST';
  6702. _Path = 'tables/{id}/permissions/batchDelete';
  6703. _Methodid = 'mapsengine.tables.permissions.batchDelete';
  6704. Var
  6705. _P : String;
  6706. begin
  6707. _P:=SubstitutePath(_Path,['id',id]);
  6708. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
  6709. end;
  6710. Function TTablesPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
  6711. Const
  6712. _HTTPMethod = 'POST';
  6713. _Path = 'tables/{id}/permissions/batchUpdate';
  6714. _Methodid = 'mapsengine.tables.permissions.batchUpdate';
  6715. Var
  6716. _P : String;
  6717. begin
  6718. _P:=SubstitutePath(_Path,['id',id]);
  6719. Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
  6720. end;
  6721. Function TTablesPermissionsResource.List(id: string) : TPermissionsListResponse;
  6722. Const
  6723. _HTTPMethod = 'GET';
  6724. _Path = 'tables/{id}/permissions';
  6725. _Methodid = 'mapsengine.tables.permissions.list';
  6726. Var
  6727. _P : String;
  6728. begin
  6729. _P:=SubstitutePath(_Path,['id',id]);
  6730. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
  6731. end;
  6732. { --------------------------------------------------------------------
  6733. TTablesResource
  6734. --------------------------------------------------------------------}
  6735. Class Function TTablesResource.ResourceName : String;
  6736. begin
  6737. Result:='tables';
  6738. end;
  6739. Class Function TTablesResource.DefaultAPI : TGoogleAPIClass;
  6740. begin
  6741. Result:=TmapsengineAPI;
  6742. end;
  6743. Function TTablesResource.Create(aTable : TTable) : TTable;
  6744. Const
  6745. _HTTPMethod = 'POST';
  6746. _Path = 'tables';
  6747. _Methodid = 'mapsengine.tables.create';
  6748. begin
  6749. Result:=ServiceCall(_HTTPMethod,_Path,'',aTable,TTable) as TTable;
  6750. end;
  6751. Procedure TTablesResource.Delete(id: string);
  6752. Const
  6753. _HTTPMethod = 'DELETE';
  6754. _Path = 'tables/{id}';
  6755. _Methodid = 'mapsengine.tables.delete';
  6756. Var
  6757. _P : String;
  6758. begin
  6759. _P:=SubstitutePath(_Path,['id',id]);
  6760. ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
  6761. end;
  6762. Function TTablesResource.Get(id: string; AQuery : string = '') : TTable;
  6763. Const
  6764. _HTTPMethod = 'GET';
  6765. _Path = 'tables/{id}';
  6766. _Methodid = 'mapsengine.tables.get';
  6767. Var
  6768. _P : String;
  6769. begin
  6770. _P:=SubstitutePath(_Path,['id',id]);
  6771. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTable) as TTable;
  6772. end;
  6773. Function TTablesResource.Get(id: string; AQuery : TTablesgetOptions) : TTable;
  6774. Var
  6775. _Q : String;
  6776. begin
  6777. _Q:='';
  6778. AddToQuery(_Q,'version',AQuery.version);
  6779. Result:=Get(id,_Q);
  6780. end;
  6781. Function TTablesResource.List(AQuery : string = '') : TTablesListResponse;
  6782. Const
  6783. _HTTPMethod = 'GET';
  6784. _Path = 'tables';
  6785. _Methodid = 'mapsengine.tables.list';
  6786. begin
  6787. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TTablesListResponse) as TTablesListResponse;
  6788. end;
  6789. Function TTablesResource.List(AQuery : TTableslistOptions) : TTablesListResponse;
  6790. Var
  6791. _Q : String;
  6792. begin
  6793. _Q:='';
  6794. AddToQuery(_Q,'bbox',AQuery.bbox);
  6795. AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
  6796. AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
  6797. AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
  6798. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  6799. AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
  6800. AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
  6801. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  6802. AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
  6803. AddToQuery(_Q,'projectId',AQuery.projectId);
  6804. AddToQuery(_Q,'role',AQuery.role);
  6805. AddToQuery(_Q,'search',AQuery.search);
  6806. AddToQuery(_Q,'tags',AQuery.tags);
  6807. Result:=List(_Q);
  6808. end;
  6809. Procedure TTablesResource.Patch(id: string; aTable : TTable);
  6810. Const
  6811. _HTTPMethod = 'PATCH';
  6812. _Path = 'tables/{id}';
  6813. _Methodid = 'mapsengine.tables.patch';
  6814. Var
  6815. _P : String;
  6816. begin
  6817. _P:=SubstitutePath(_Path,['id',id]);
  6818. ServiceCall(_HTTPMethod,_P,'',aTable,Nil);
  6819. end;
  6820. Function TTablesResource.Process(id: string) : TProcessResponse;
  6821. Const
  6822. _HTTPMethod = 'POST';
  6823. _Path = 'tables/{id}/process';
  6824. _Methodid = 'mapsengine.tables.process';
  6825. Var
  6826. _P : String;
  6827. begin
  6828. _P:=SubstitutePath(_Path,['id',id]);
  6829. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
  6830. end;
  6831. Function TTablesResource.Upload(aTable : TTable) : TTable;
  6832. Const
  6833. _HTTPMethod = 'POST';
  6834. _Path = 'tables/upload';
  6835. _Methodid = 'mapsengine.tables.upload';
  6836. begin
  6837. Result:=ServiceCall(_HTTPMethod,_Path,'',aTable,TTable) as TTable;
  6838. end;
  6839. Function TTablesResource.GetFeaturesInstance : TTablesFeaturesResource;
  6840. begin
  6841. if (FFeaturesInstance=Nil) then
  6842. FFeaturesInstance:=CreateFeaturesResource;
  6843. Result:=FFeaturesInstance;
  6844. end;
  6845. Function TTablesResource.CreateFeaturesResource : TTablesFeaturesResource;
  6846. begin
  6847. Result:=CreateFeaturesResource(Self);
  6848. end;
  6849. Function TTablesResource.CreateFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;
  6850. begin
  6851. Result:=TTablesFeaturesResource.Create(AOwner);
  6852. Result.API:=Self.API;
  6853. end;
  6854. Function TTablesResource.GetFilesInstance : TTablesFilesResource;
  6855. begin
  6856. if (FFilesInstance=Nil) then
  6857. FFilesInstance:=CreateFilesResource;
  6858. Result:=FFilesInstance;
  6859. end;
  6860. Function TTablesResource.CreateFilesResource : TTablesFilesResource;
  6861. begin
  6862. Result:=CreateFilesResource(Self);
  6863. end;
  6864. Function TTablesResource.CreateFilesResource(AOwner : TComponent) : TTablesFilesResource;
  6865. begin
  6866. Result:=TTablesFilesResource.Create(AOwner);
  6867. Result.API:=Self.API;
  6868. end;
  6869. Function TTablesResource.GetParentsInstance : TTablesParentsResource;
  6870. begin
  6871. if (FParentsInstance=Nil) then
  6872. FParentsInstance:=CreateParentsResource;
  6873. Result:=FParentsInstance;
  6874. end;
  6875. Function TTablesResource.CreateParentsResource : TTablesParentsResource;
  6876. begin
  6877. Result:=CreateParentsResource(Self);
  6878. end;
  6879. Function TTablesResource.CreateParentsResource(AOwner : TComponent) : TTablesParentsResource;
  6880. begin
  6881. Result:=TTablesParentsResource.Create(AOwner);
  6882. Result.API:=Self.API;
  6883. end;
  6884. Function TTablesResource.GetPermissionsInstance : TTablesPermissionsResource;
  6885. begin
  6886. if (FPermissionsInstance=Nil) then
  6887. FPermissionsInstance:=CreatePermissionsResource;
  6888. Result:=FPermissionsInstance;
  6889. end;
  6890. Function TTablesResource.CreatePermissionsResource : TTablesPermissionsResource;
  6891. begin
  6892. Result:=CreatePermissionsResource(Self);
  6893. end;
  6894. Function TTablesResource.CreatePermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;
  6895. begin
  6896. Result:=TTablesPermissionsResource.Create(AOwner);
  6897. Result.API:=Self.API;
  6898. end;
  6899. { --------------------------------------------------------------------
  6900. TMapsengineAPI
  6901. --------------------------------------------------------------------}
  6902. Class Function TMapsengineAPI.APIName : String;
  6903. begin
  6904. Result:='mapsengine';
  6905. end;
  6906. Class Function TMapsengineAPI.APIVersion : String;
  6907. begin
  6908. Result:='v1';
  6909. end;
  6910. Class Function TMapsengineAPI.APIRevision : String;
  6911. begin
  6912. Result:='20150414';
  6913. end;
  6914. Class Function TMapsengineAPI.APIID : String;
  6915. begin
  6916. Result:='mapsengine:v1';
  6917. end;
  6918. Class Function TMapsengineAPI.APITitle : String;
  6919. begin
  6920. Result:='Google Maps Engine API';
  6921. end;
  6922. Class Function TMapsengineAPI.APIDescription : String;
  6923. begin
  6924. Result:='The Google Maps Engine API allows developers to store and query geospatial vector and raster data.';
  6925. end;
  6926. Class Function TMapsengineAPI.APIOwnerDomain : String;
  6927. begin
  6928. Result:='google.com';
  6929. end;
  6930. Class Function TMapsengineAPI.APIOwnerName : String;
  6931. begin
  6932. Result:='Google';
  6933. end;
  6934. Class Function TMapsengineAPI.APIIcon16 : String;
  6935. begin
  6936. Result:='https://www.google.com/images/icons/product/maps_engine-16.png';
  6937. end;
  6938. Class Function TMapsengineAPI.APIIcon32 : String;
  6939. begin
  6940. Result:='https://www.google.com/images/icons/product/maps_engine-32.png';
  6941. end;
  6942. Class Function TMapsengineAPI.APIdocumentationLink : String;
  6943. begin
  6944. Result:='https://developers.google.com/maps-engine/';
  6945. end;
  6946. Class Function TMapsengineAPI.APIrootUrl : string;
  6947. begin
  6948. Result:='https://www.googleapis.com:443/';
  6949. end;
  6950. Class Function TMapsengineAPI.APIbasePath : string;
  6951. begin
  6952. Result:='/mapsengine/v1/';
  6953. end;
  6954. Class Function TMapsengineAPI.APIbaseURL : String;
  6955. begin
  6956. Result:='https://www.googleapis.com:443/mapsengine/v1/';
  6957. end;
  6958. Class Function TMapsengineAPI.APIProtocol : string;
  6959. begin
  6960. Result:='rest';
  6961. end;
  6962. Class Function TMapsengineAPI.APIservicePath : string;
  6963. begin
  6964. Result:='mapsengine/v1/';
  6965. end;
  6966. Class Function TMapsengineAPI.APIbatchPath : String;
  6967. begin
  6968. Result:='batch';
  6969. end;
  6970. Class Function TMapsengineAPI.APIAuthScopes : TScopeInfoArray;
  6971. begin
  6972. SetLength(Result,2);
  6973. Result[0].Name:='https://www.googleapis.com/auth/mapsengine';
  6974. Result[0].Description:='View and manage your Google My Maps data';
  6975. Result[1].Name:='https://www.googleapis.com/auth/mapsengine.readonly';
  6976. Result[1].Description:='View your Google My Maps data';
  6977. end;
  6978. Class Function TMapsengineAPI.APINeedsAuth : Boolean;
  6979. begin
  6980. Result:=True;
  6981. end;
  6982. Class Procedure TMapsengineAPI.RegisterAPIResources;
  6983. begin
  6984. TAcquisitionTime.RegisterObject;
  6985. TAsset.RegisterObject;
  6986. TAssetsListResponse.RegisterObject;
  6987. TBorder.RegisterObject;
  6988. TColor.RegisterObject;
  6989. TDatasource.RegisterObject;
  6990. TDisplayRule.RegisterObject;
  6991. TFeature.RegisterObject;
  6992. TFeatureInfo.RegisterObject;
  6993. TFeaturesBatchDeleteRequest.RegisterObject;
  6994. TFeaturesBatchInsertRequest.RegisterObject;
  6995. TFeaturesBatchPatchRequest.RegisterObject;
  6996. TFeaturesListResponse.RegisterObject;
  6997. TFile.RegisterObject;
  6998. TFilter.RegisterObject;
  6999. TGeoJsonGeometry.RegisterObject;
  7000. TGeoJsonGeometryCollection.RegisterObject;
  7001. TGeoJsonLineString.RegisterObject;
  7002. TGeoJsonMultiLineString.RegisterObject;
  7003. TGeoJsonMultiPoint.RegisterObject;
  7004. TGeoJsonMultiPolygon.RegisterObject;
  7005. TGeoJsonPoint.RegisterObject;
  7006. TGeoJsonPolygon.RegisterObject;
  7007. TGeoJsonProperties.RegisterObject;
  7008. TIcon.RegisterObject;
  7009. TIconStyle.RegisterObject;
  7010. TIconsListResponse.RegisterObject;
  7011. TLabelStyle.RegisterObject;
  7012. TLayer.RegisterObject;
  7013. TLayersListResponse.RegisterObject;
  7014. TLineStyleTypestroke.RegisterObject;
  7015. TLineStyle.RegisterObject;
  7016. TMap.RegisterObject;
  7017. TMapFolder.RegisterObject;
  7018. TMapItem.RegisterObject;
  7019. TMapKmlLink.RegisterObject;
  7020. TMapLayer.RegisterObject;
  7021. TMapsListResponse.RegisterObject;
  7022. TParent.RegisterObject;
  7023. TParentsListResponse.RegisterObject;
  7024. TPermission.RegisterObject;
  7025. TPermissionsBatchDeleteRequest.RegisterObject;
  7026. TPermissionsBatchDeleteResponse.RegisterObject;
  7027. TPermissionsBatchUpdateRequest.RegisterObject;
  7028. TPermissionsBatchUpdateResponse.RegisterObject;
  7029. TPermissionsListResponse.RegisterObject;
  7030. TPointStyle.RegisterObject;
  7031. TPolygonStyle.RegisterObject;
  7032. TProcessResponse.RegisterObject;
  7033. TProject.RegisterObject;
  7034. TProjectsListResponse.RegisterObject;
  7035. TPublishResponse.RegisterObject;
  7036. TPublishedLayer.RegisterObject;
  7037. TPublishedLayersListResponse.RegisterObject;
  7038. TPublishedMap.RegisterObject;
  7039. TPublishedMapsListResponse.RegisterObject;
  7040. TRaster.RegisterObject;
  7041. TRasterCollection.RegisterObject;
  7042. TRasterCollectionsListResponse.RegisterObject;
  7043. TRasterCollectionsRaster.RegisterObject;
  7044. TRasterCollectionsRasterBatchDeleteRequest.RegisterObject;
  7045. TRasterCollectionsRastersBatchDeleteResponse.RegisterObject;
  7046. TRasterCollectionsRastersBatchInsertRequest.RegisterObject;
  7047. TRasterCollectionsRastersBatchInsertResponse.RegisterObject;
  7048. TRasterCollectionsRastersListResponse.RegisterObject;
  7049. TRastersListResponse.RegisterObject;
  7050. TScaledShape.RegisterObject;
  7051. TScalingFunction.RegisterObject;
  7052. TSchema.RegisterObject;
  7053. TSizeRange.RegisterObject;
  7054. TTable.RegisterObject;
  7055. TTableColumn.RegisterObject;
  7056. TTablesListResponse.RegisterObject;
  7057. TValueRange.RegisterObject;
  7058. TVectorStyle.RegisterObject;
  7059. TZoomLevels.RegisterObject;
  7060. end;
  7061. Function TMapsengineAPI.GetAssetsParentsInstance : TAssetsParentsResource;
  7062. begin
  7063. if (FAssetsParentsInstance=Nil) then
  7064. FAssetsParentsInstance:=CreateAssetsParentsResource;
  7065. Result:=FAssetsParentsInstance;
  7066. end;
  7067. Function TMapsengineAPI.CreateAssetsParentsResource : TAssetsParentsResource;
  7068. begin
  7069. Result:=CreateAssetsParentsResource(Self);
  7070. end;
  7071. Function TMapsengineAPI.CreateAssetsParentsResource(AOwner : TComponent) : TAssetsParentsResource;
  7072. begin
  7073. Result:=TAssetsParentsResource.Create(AOwner);
  7074. Result.API:=Self.API;
  7075. end;
  7076. Function TMapsengineAPI.GetAssetsPermissionsInstance : TAssetsPermissionsResource;
  7077. begin
  7078. if (FAssetsPermissionsInstance=Nil) then
  7079. FAssetsPermissionsInstance:=CreateAssetsPermissionsResource;
  7080. Result:=FAssetsPermissionsInstance;
  7081. end;
  7082. Function TMapsengineAPI.CreateAssetsPermissionsResource : TAssetsPermissionsResource;
  7083. begin
  7084. Result:=CreateAssetsPermissionsResource(Self);
  7085. end;
  7086. Function TMapsengineAPI.CreateAssetsPermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;
  7087. begin
  7088. Result:=TAssetsPermissionsResource.Create(AOwner);
  7089. Result.API:=Self.API;
  7090. end;
  7091. Function TMapsengineAPI.GetAssetsInstance : TAssetsResource;
  7092. begin
  7093. if (FAssetsInstance=Nil) then
  7094. FAssetsInstance:=CreateAssetsResource;
  7095. Result:=FAssetsInstance;
  7096. end;
  7097. Function TMapsengineAPI.CreateAssetsResource : TAssetsResource;
  7098. begin
  7099. Result:=CreateAssetsResource(Self);
  7100. end;
  7101. Function TMapsengineAPI.CreateAssetsResource(AOwner : TComponent) : TAssetsResource;
  7102. begin
  7103. Result:=TAssetsResource.Create(AOwner);
  7104. Result.API:=Self.API;
  7105. end;
  7106. Function TMapsengineAPI.GetLayersParentsInstance : TLayersParentsResource;
  7107. begin
  7108. if (FLayersParentsInstance=Nil) then
  7109. FLayersParentsInstance:=CreateLayersParentsResource;
  7110. Result:=FLayersParentsInstance;
  7111. end;
  7112. Function TMapsengineAPI.CreateLayersParentsResource : TLayersParentsResource;
  7113. begin
  7114. Result:=CreateLayersParentsResource(Self);
  7115. end;
  7116. Function TMapsengineAPI.CreateLayersParentsResource(AOwner : TComponent) : TLayersParentsResource;
  7117. begin
  7118. Result:=TLayersParentsResource.Create(AOwner);
  7119. Result.API:=Self.API;
  7120. end;
  7121. Function TMapsengineAPI.GetLayersPermissionsInstance : TLayersPermissionsResource;
  7122. begin
  7123. if (FLayersPermissionsInstance=Nil) then
  7124. FLayersPermissionsInstance:=CreateLayersPermissionsResource;
  7125. Result:=FLayersPermissionsInstance;
  7126. end;
  7127. Function TMapsengineAPI.CreateLayersPermissionsResource : TLayersPermissionsResource;
  7128. begin
  7129. Result:=CreateLayersPermissionsResource(Self);
  7130. end;
  7131. Function TMapsengineAPI.CreateLayersPermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;
  7132. begin
  7133. Result:=TLayersPermissionsResource.Create(AOwner);
  7134. Result.API:=Self.API;
  7135. end;
  7136. Function TMapsengineAPI.GetLayersInstance : TLayersResource;
  7137. begin
  7138. if (FLayersInstance=Nil) then
  7139. FLayersInstance:=CreateLayersResource;
  7140. Result:=FLayersInstance;
  7141. end;
  7142. Function TMapsengineAPI.CreateLayersResource : TLayersResource;
  7143. begin
  7144. Result:=CreateLayersResource(Self);
  7145. end;
  7146. Function TMapsengineAPI.CreateLayersResource(AOwner : TComponent) : TLayersResource;
  7147. begin
  7148. Result:=TLayersResource.Create(AOwner);
  7149. Result.API:=Self.API;
  7150. end;
  7151. Function TMapsengineAPI.GetMapsPermissionsInstance : TMapsPermissionsResource;
  7152. begin
  7153. if (FMapsPermissionsInstance=Nil) then
  7154. FMapsPermissionsInstance:=CreateMapsPermissionsResource;
  7155. Result:=FMapsPermissionsInstance;
  7156. end;
  7157. Function TMapsengineAPI.CreateMapsPermissionsResource : TMapsPermissionsResource;
  7158. begin
  7159. Result:=CreateMapsPermissionsResource(Self);
  7160. end;
  7161. Function TMapsengineAPI.CreateMapsPermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;
  7162. begin
  7163. Result:=TMapsPermissionsResource.Create(AOwner);
  7164. Result.API:=Self.API;
  7165. end;
  7166. Function TMapsengineAPI.GetMapsInstance : TMapsResource;
  7167. begin
  7168. if (FMapsInstance=Nil) then
  7169. FMapsInstance:=CreateMapsResource;
  7170. Result:=FMapsInstance;
  7171. end;
  7172. Function TMapsengineAPI.CreateMapsResource : TMapsResource;
  7173. begin
  7174. Result:=CreateMapsResource(Self);
  7175. end;
  7176. Function TMapsengineAPI.CreateMapsResource(AOwner : TComponent) : TMapsResource;
  7177. begin
  7178. Result:=TMapsResource.Create(AOwner);
  7179. Result.API:=Self.API;
  7180. end;
  7181. Function TMapsengineAPI.GetProjectsIconsInstance : TProjectsIconsResource;
  7182. begin
  7183. if (FProjectsIconsInstance=Nil) then
  7184. FProjectsIconsInstance:=CreateProjectsIconsResource;
  7185. Result:=FProjectsIconsInstance;
  7186. end;
  7187. Function TMapsengineAPI.CreateProjectsIconsResource : TProjectsIconsResource;
  7188. begin
  7189. Result:=CreateProjectsIconsResource(Self);
  7190. end;
  7191. Function TMapsengineAPI.CreateProjectsIconsResource(AOwner : TComponent) : TProjectsIconsResource;
  7192. begin
  7193. Result:=TProjectsIconsResource.Create(AOwner);
  7194. Result.API:=Self.API;
  7195. end;
  7196. Function TMapsengineAPI.GetProjectsInstance : TProjectsResource;
  7197. begin
  7198. if (FProjectsInstance=Nil) then
  7199. FProjectsInstance:=CreateProjectsResource;
  7200. Result:=FProjectsInstance;
  7201. end;
  7202. Function TMapsengineAPI.CreateProjectsResource : TProjectsResource;
  7203. begin
  7204. Result:=CreateProjectsResource(Self);
  7205. end;
  7206. Function TMapsengineAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
  7207. begin
  7208. Result:=TProjectsResource.Create(AOwner);
  7209. Result.API:=Self.API;
  7210. end;
  7211. Function TMapsengineAPI.GetRasterCollectionsParentsInstance : TRasterCollectionsParentsResource;
  7212. begin
  7213. if (FRasterCollectionsParentsInstance=Nil) then
  7214. FRasterCollectionsParentsInstance:=CreateRasterCollectionsParentsResource;
  7215. Result:=FRasterCollectionsParentsInstance;
  7216. end;
  7217. Function TMapsengineAPI.CreateRasterCollectionsParentsResource : TRasterCollectionsParentsResource;
  7218. begin
  7219. Result:=CreateRasterCollectionsParentsResource(Self);
  7220. end;
  7221. Function TMapsengineAPI.CreateRasterCollectionsParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;
  7222. begin
  7223. Result:=TRasterCollectionsParentsResource.Create(AOwner);
  7224. Result.API:=Self.API;
  7225. end;
  7226. Function TMapsengineAPI.GetRasterCollectionsPermissionsInstance : TRasterCollectionsPermissionsResource;
  7227. begin
  7228. if (FRasterCollectionsPermissionsInstance=Nil) then
  7229. FRasterCollectionsPermissionsInstance:=CreateRasterCollectionsPermissionsResource;
  7230. Result:=FRasterCollectionsPermissionsInstance;
  7231. end;
  7232. Function TMapsengineAPI.CreateRasterCollectionsPermissionsResource : TRasterCollectionsPermissionsResource;
  7233. begin
  7234. Result:=CreateRasterCollectionsPermissionsResource(Self);
  7235. end;
  7236. Function TMapsengineAPI.CreateRasterCollectionsPermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;
  7237. begin
  7238. Result:=TRasterCollectionsPermissionsResource.Create(AOwner);
  7239. Result.API:=Self.API;
  7240. end;
  7241. Function TMapsengineAPI.GetRasterCollectionsRastersInstance : TRasterCollectionsRastersResource;
  7242. begin
  7243. if (FRasterCollectionsRastersInstance=Nil) then
  7244. FRasterCollectionsRastersInstance:=CreateRasterCollectionsRastersResource;
  7245. Result:=FRasterCollectionsRastersInstance;
  7246. end;
  7247. Function TMapsengineAPI.CreateRasterCollectionsRastersResource : TRasterCollectionsRastersResource;
  7248. begin
  7249. Result:=CreateRasterCollectionsRastersResource(Self);
  7250. end;
  7251. Function TMapsengineAPI.CreateRasterCollectionsRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;
  7252. begin
  7253. Result:=TRasterCollectionsRastersResource.Create(AOwner);
  7254. Result.API:=Self.API;
  7255. end;
  7256. Function TMapsengineAPI.GetRasterCollectionsInstance : TRasterCollectionsResource;
  7257. begin
  7258. if (FRasterCollectionsInstance=Nil) then
  7259. FRasterCollectionsInstance:=CreateRasterCollectionsResource;
  7260. Result:=FRasterCollectionsInstance;
  7261. end;
  7262. Function TMapsengineAPI.CreateRasterCollectionsResource : TRasterCollectionsResource;
  7263. begin
  7264. Result:=CreateRasterCollectionsResource(Self);
  7265. end;
  7266. Function TMapsengineAPI.CreateRasterCollectionsResource(AOwner : TComponent) : TRasterCollectionsResource;
  7267. begin
  7268. Result:=TRasterCollectionsResource.Create(AOwner);
  7269. Result.API:=Self.API;
  7270. end;
  7271. Function TMapsengineAPI.GetRastersFilesInstance : TRastersFilesResource;
  7272. begin
  7273. if (FRastersFilesInstance=Nil) then
  7274. FRastersFilesInstance:=CreateRastersFilesResource;
  7275. Result:=FRastersFilesInstance;
  7276. end;
  7277. Function TMapsengineAPI.CreateRastersFilesResource : TRastersFilesResource;
  7278. begin
  7279. Result:=CreateRastersFilesResource(Self);
  7280. end;
  7281. Function TMapsengineAPI.CreateRastersFilesResource(AOwner : TComponent) : TRastersFilesResource;
  7282. begin
  7283. Result:=TRastersFilesResource.Create(AOwner);
  7284. Result.API:=Self.API;
  7285. end;
  7286. Function TMapsengineAPI.GetRastersParentsInstance : TRastersParentsResource;
  7287. begin
  7288. if (FRastersParentsInstance=Nil) then
  7289. FRastersParentsInstance:=CreateRastersParentsResource;
  7290. Result:=FRastersParentsInstance;
  7291. end;
  7292. Function TMapsengineAPI.CreateRastersParentsResource : TRastersParentsResource;
  7293. begin
  7294. Result:=CreateRastersParentsResource(Self);
  7295. end;
  7296. Function TMapsengineAPI.CreateRastersParentsResource(AOwner : TComponent) : TRastersParentsResource;
  7297. begin
  7298. Result:=TRastersParentsResource.Create(AOwner);
  7299. Result.API:=Self.API;
  7300. end;
  7301. Function TMapsengineAPI.GetRastersPermissionsInstance : TRastersPermissionsResource;
  7302. begin
  7303. if (FRastersPermissionsInstance=Nil) then
  7304. FRastersPermissionsInstance:=CreateRastersPermissionsResource;
  7305. Result:=FRastersPermissionsInstance;
  7306. end;
  7307. Function TMapsengineAPI.CreateRastersPermissionsResource : TRastersPermissionsResource;
  7308. begin
  7309. Result:=CreateRastersPermissionsResource(Self);
  7310. end;
  7311. Function TMapsengineAPI.CreateRastersPermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;
  7312. begin
  7313. Result:=TRastersPermissionsResource.Create(AOwner);
  7314. Result.API:=Self.API;
  7315. end;
  7316. Function TMapsengineAPI.GetRastersInstance : TRastersResource;
  7317. begin
  7318. if (FRastersInstance=Nil) then
  7319. FRastersInstance:=CreateRastersResource;
  7320. Result:=FRastersInstance;
  7321. end;
  7322. Function TMapsengineAPI.CreateRastersResource : TRastersResource;
  7323. begin
  7324. Result:=CreateRastersResource(Self);
  7325. end;
  7326. Function TMapsengineAPI.CreateRastersResource(AOwner : TComponent) : TRastersResource;
  7327. begin
  7328. Result:=TRastersResource.Create(AOwner);
  7329. Result.API:=Self.API;
  7330. end;
  7331. Function TMapsengineAPI.GetTablesFeaturesInstance : TTablesFeaturesResource;
  7332. begin
  7333. if (FTablesFeaturesInstance=Nil) then
  7334. FTablesFeaturesInstance:=CreateTablesFeaturesResource;
  7335. Result:=FTablesFeaturesInstance;
  7336. end;
  7337. Function TMapsengineAPI.CreateTablesFeaturesResource : TTablesFeaturesResource;
  7338. begin
  7339. Result:=CreateTablesFeaturesResource(Self);
  7340. end;
  7341. Function TMapsengineAPI.CreateTablesFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;
  7342. begin
  7343. Result:=TTablesFeaturesResource.Create(AOwner);
  7344. Result.API:=Self.API;
  7345. end;
  7346. Function TMapsengineAPI.GetTablesFilesInstance : TTablesFilesResource;
  7347. begin
  7348. if (FTablesFilesInstance=Nil) then
  7349. FTablesFilesInstance:=CreateTablesFilesResource;
  7350. Result:=FTablesFilesInstance;
  7351. end;
  7352. Function TMapsengineAPI.CreateTablesFilesResource : TTablesFilesResource;
  7353. begin
  7354. Result:=CreateTablesFilesResource(Self);
  7355. end;
  7356. Function TMapsengineAPI.CreateTablesFilesResource(AOwner : TComponent) : TTablesFilesResource;
  7357. begin
  7358. Result:=TTablesFilesResource.Create(AOwner);
  7359. Result.API:=Self.API;
  7360. end;
  7361. Function TMapsengineAPI.GetTablesParentsInstance : TTablesParentsResource;
  7362. begin
  7363. if (FTablesParentsInstance=Nil) then
  7364. FTablesParentsInstance:=CreateTablesParentsResource;
  7365. Result:=FTablesParentsInstance;
  7366. end;
  7367. Function TMapsengineAPI.CreateTablesParentsResource : TTablesParentsResource;
  7368. begin
  7369. Result:=CreateTablesParentsResource(Self);
  7370. end;
  7371. Function TMapsengineAPI.CreateTablesParentsResource(AOwner : TComponent) : TTablesParentsResource;
  7372. begin
  7373. Result:=TTablesParentsResource.Create(AOwner);
  7374. Result.API:=Self.API;
  7375. end;
  7376. Function TMapsengineAPI.GetTablesPermissionsInstance : TTablesPermissionsResource;
  7377. begin
  7378. if (FTablesPermissionsInstance=Nil) then
  7379. FTablesPermissionsInstance:=CreateTablesPermissionsResource;
  7380. Result:=FTablesPermissionsInstance;
  7381. end;
  7382. Function TMapsengineAPI.CreateTablesPermissionsResource : TTablesPermissionsResource;
  7383. begin
  7384. Result:=CreateTablesPermissionsResource(Self);
  7385. end;
  7386. Function TMapsengineAPI.CreateTablesPermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;
  7387. begin
  7388. Result:=TTablesPermissionsResource.Create(AOwner);
  7389. Result.API:=Self.API;
  7390. end;
  7391. Function TMapsengineAPI.GetTablesInstance : TTablesResource;
  7392. begin
  7393. if (FTablesInstance=Nil) then
  7394. FTablesInstance:=CreateTablesResource;
  7395. Result:=FTablesInstance;
  7396. end;
  7397. Function TMapsengineAPI.CreateTablesResource : TTablesResource;
  7398. begin
  7399. Result:=CreateTablesResource(Self);
  7400. end;
  7401. Function TMapsengineAPI.CreateTablesResource(AOwner : TComponent) : TTablesResource;
  7402. begin
  7403. Result:=TTablesResource.Create(AOwner);
  7404. Result.API:=Self.API;
  7405. end;
  7406. initialization
  7407. TMapsengineAPI.RegisterAPI;
  7408. end.