12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246 |
- unit googlemapsengine;
- {
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
- }
- //Generated on: 16-5-15 08:53:05
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TAcquisitionTime = Class;
- TAsset = Class;
- TAssetsListResponse = Class;
- TBorder = Class;
- TColor = Class;
- TDatasource = Class;
- TDisplayRule = Class;
- TFeature = Class;
- TFeatureInfo = Class;
- TFeaturesBatchDeleteRequest = Class;
- TFeaturesBatchInsertRequest = Class;
- TFeaturesBatchPatchRequest = Class;
- TFeaturesListResponse = Class;
- TFile = Class;
- TFilter = Class;
- TGeoJsonGeometry = Class;
- TGeoJsonGeometryCollection = Class;
- TGeoJsonLineString = Class;
- TGeoJsonMultiLineString = Class;
- TGeoJsonMultiPoint = Class;
- TGeoJsonMultiPolygon = Class;
- TGeoJsonPoint = Class;
- TGeoJsonPolygon = Class;
- TGeoJsonProperties = Class;
- TIcon = Class;
- TIconStyle = Class;
- TIconsListResponse = Class;
- TLabelStyle = Class;
- TLayer = Class;
- TLayersListResponse = Class;
- TLineStyle = Class;
- TMap = Class;
- TMapFolder = Class;
- TMapItem = Class;
- TMapKmlLink = Class;
- TMapLayer = Class;
- TMapsListResponse = Class;
- TParent = Class;
- TParentsListResponse = Class;
- TPermission = Class;
- TPermissionsBatchDeleteRequest = Class;
- TPermissionsBatchDeleteResponse = Class;
- TPermissionsBatchUpdateRequest = Class;
- TPermissionsBatchUpdateResponse = Class;
- TPermissionsListResponse = Class;
- TPointStyle = Class;
- TPolygonStyle = Class;
- TProcessResponse = Class;
- TProject = Class;
- TProjectsListResponse = Class;
- TPublishResponse = Class;
- TPublishedLayer = Class;
- TPublishedLayersListResponse = Class;
- TPublishedMap = Class;
- TPublishedMapsListResponse = Class;
- TRaster = Class;
- TRasterCollection = Class;
- TRasterCollectionsListResponse = Class;
- TRasterCollectionsRaster = Class;
- TRasterCollectionsRasterBatchDeleteRequest = Class;
- TRasterCollectionsRastersBatchDeleteResponse = Class;
- TRasterCollectionsRastersBatchInsertRequest = Class;
- TRasterCollectionsRastersBatchInsertResponse = Class;
- TRasterCollectionsRastersListResponse = Class;
- TRastersListResponse = Class;
- TScaledShape = Class;
- TScalingFunction = Class;
- TSchema = Class;
- TSizeRange = Class;
- TTable = Class;
- TTableColumn = Class;
- TTablesListResponse = Class;
- TValueRange = Class;
- TVectorStyle = Class;
- TZoomLevels = Class;
- TAcquisitionTimeArray = Array of TAcquisitionTime;
- TAssetArray = Array of TAsset;
- TAssetsListResponseArray = Array of TAssetsListResponse;
- TBorderArray = Array of TBorder;
- TColorArray = Array of TColor;
- TDatasourceArray = Array of TDatasource;
- TDatasources = Array of TDatasource;
- TDisplayRuleArray = Array of TDisplayRule;
- TFeatureArray = Array of TFeature;
- TFeatureInfoArray = Array of TFeatureInfo;
- TFeaturesBatchDeleteRequestArray = Array of TFeaturesBatchDeleteRequest;
- TFeaturesBatchInsertRequestArray = Array of TFeaturesBatchInsertRequest;
- TFeaturesBatchPatchRequestArray = Array of TFeaturesBatchPatchRequest;
- TFeaturesListResponseArray = Array of TFeaturesListResponse;
- TFileArray = Array of TFile;
- TFilterArray = Array of TFilter;
- TGeoJsonGeometryArray = Array of TGeoJsonGeometry;
- TGeoJsonGeometryCollectionArray = Array of TGeoJsonGeometryCollection;
- TGeoJsonLineStringArray = Array of TGeoJsonLineString;
- TGeoJsonMultiLineStringArray = Array of TGeoJsonMultiLineString;
- TGeoJsonMultiPointArray = Array of TGeoJsonMultiPoint;
- TGeoJsonMultiPolygonArray = Array of TGeoJsonMultiPolygon;
- TGeoJsonPointArray = Array of TGeoJsonPoint;
- TGeoJsonPolygonArray = Array of TGeoJsonPolygon;
- TGeoJsonPosition = Array of double;
- TGeoJsonPropertiesArray = Array of TGeoJsonProperties;
- TIconArray = Array of TIcon;
- TIconStyleArray = Array of TIconStyle;
- TIconsListResponseArray = Array of TIconsListResponse;
- TLabelStyleArray = Array of TLabelStyle;
- TLatLngBox = Array of double;
- TLayerArray = Array of TLayer;
- TLayersListResponseArray = Array of TLayersListResponse;
- TLineStyleArray = Array of TLineStyle;
- TMapArray = Array of TMap;
- TMapContents = Array of TMapItem;
- TMapFolderArray = Array of TMapFolder;
- TMapItemArray = Array of TMapItem;
- TMapKmlLinkArray = Array of TMapKmlLink;
- TMapLayerArray = Array of TMapLayer;
- TMapsListResponseArray = Array of TMapsListResponse;
- TParentArray = Array of TParent;
- TParentsListResponseArray = Array of TParentsListResponse;
- TPermissionArray = Array of TPermission;
- TPermissionsBatchDeleteRequestArray = Array of TPermissionsBatchDeleteRequest;
- TPermissionsBatchDeleteResponseArray = Array of TPermissionsBatchDeleteResponse;
- TPermissionsBatchUpdateRequestArray = Array of TPermissionsBatchUpdateRequest;
- TPermissionsBatchUpdateResponseArray = Array of TPermissionsBatchUpdateResponse;
- TPermissionsListResponseArray = Array of TPermissionsListResponse;
- TPointStyleArray = Array of TPointStyle;
- TPolygonStyleArray = Array of TPolygonStyle;
- TProcessResponseArray = Array of TProcessResponse;
- TProjectArray = Array of TProject;
- TProjectsListResponseArray = Array of TProjectsListResponse;
- TPublishResponseArray = Array of TPublishResponse;
- TPublishedLayerArray = Array of TPublishedLayer;
- TPublishedLayersListResponseArray = Array of TPublishedLayersListResponse;
- TPublishedMapArray = Array of TPublishedMap;
- TPublishedMapsListResponseArray = Array of TPublishedMapsListResponse;
- TRasterArray = Array of TRaster;
- TRasterCollectionArray = Array of TRasterCollection;
- TRasterCollectionsListResponseArray = Array of TRasterCollectionsListResponse;
- TRasterCollectionsRasterArray = Array of TRasterCollectionsRaster;
- TRasterCollectionsRasterBatchDeleteRequestArray = Array of TRasterCollectionsRasterBatchDeleteRequest;
- TRasterCollectionsRastersBatchDeleteResponseArray = Array of TRasterCollectionsRastersBatchDeleteResponse;
- TRasterCollectionsRastersBatchInsertRequestArray = Array of TRasterCollectionsRastersBatchInsertRequest;
- TRasterCollectionsRastersBatchInsertResponseArray = Array of TRasterCollectionsRastersBatchInsertResponse;
- TRasterCollectionsRastersListResponseArray = Array of TRasterCollectionsRastersListResponse;
- TRastersListResponseArray = Array of TRastersListResponse;
- TScaledShapeArray = Array of TScaledShape;
- TScalingFunctionArray = Array of TScalingFunction;
- TSchemaArray = Array of TSchema;
- TSizeRangeArray = Array of TSizeRange;
- TTableArray = Array of TTable;
- TTableColumnArray = Array of TTableColumn;
- TTablesListResponseArray = Array of TTablesListResponse;
- TTags = Array of String;
- TValueRangeArray = Array of TValueRange;
- TVectorStyleArray = Array of TVectorStyle;
- TZoomLevelsArray = Array of TZoomLevels;
- //Anonymous types, using auto-generated names
- TLineStyleTypestroke = Class;
- TAssetsListResponseTypeassetsArray = Array of TAsset;
- TDisplayRuleTypefiltersArray = Array of TFilter;
- TFeaturesBatchInsertRequestTypefeaturesArray = Array of TFeature;
- TFeaturesBatchPatchRequestTypefeaturesArray = Array of TFeature;
- TFeaturesListResponseTypefeaturesArray = Array of TFeature;
- TGeoJsonGeometryCollectionTypegeometriesArray = Array of TGeoJsonGeometry;
- TGeoJsonLineStringTypecoordinatesArray = Array of TGeoJsonPosition;
- TGeoJsonMultiLineStringTypecoordinatesItemArray = Array of TGeoJsonPosition;
- TGeoJsonMultiLineStringTypecoordinatesArray = Array of TGeoJsonMultiLineStringTypecoordinatesItemArray;
- TGeoJsonMultiPointTypecoordinatesArray = Array of TGeoJsonPosition;
- TGeoJsonMultiPolygonTypecoordinatesItemItemArray = Array of TGeoJsonPosition;
- TGeoJsonMultiPolygonTypecoordinatesItemArray = Array of TGeoJsonMultiPolygonTypecoordinatesItemItemArray;
- TGeoJsonMultiPolygonTypecoordinatesArray = Array of TGeoJsonMultiPolygonTypecoordinatesItemArray;
- TGeoJsonPolygonTypecoordinatesItemArray = Array of TGeoJsonPosition;
- TGeoJsonPolygonTypecoordinatesArray = Array of TGeoJsonPolygonTypecoordinatesItemArray;
- TIconsListResponseTypeiconsArray = Array of TIcon;
- TLayersListResponseTypelayersArray = Array of TLayer;
- TMapFolderTypecontentsArray = Array of TMapItem;
- TMapsListResponseTypemapsArray = Array of TMap;
- TParentsListResponseTypeparentsArray = Array of TParent;
- TPermissionsBatchUpdateRequestTypepermissionsArray = Array of TPermission;
- TPermissionsListResponseTypepermissionsArray = Array of TPermission;
- TProjectsListResponseTypeprojectsArray = Array of TProject;
- TPublishedLayersListResponseTypelayersArray = Array of TPublishedLayer;
- TPublishedMapsListResponseTypemapsArray = Array of TPublishedMap;
- TRasterTypefilesArray = Array of TFile;
- TRasterCollectionsListResponseTyperasterCollectionsArray = Array of TRasterCollection;
- TRasterCollectionsRastersListResponseTyperastersArray = Array of TRasterCollectionsRaster;
- TRastersListResponseTyperastersArray = Array of TRaster;
- TSchemaTypecolumnsArray = Array of TTableColumn;
- TTableTypefilesArray = Array of TFile;
- TTablesListResponseTypetablesArray = Array of TTable;
- TVectorStyleTypedisplayRulesArray = Array of TDisplayRule;
-
- { --------------------------------------------------------------------
- TAcquisitionTime
- --------------------------------------------------------------------}
-
- TAcquisitionTime = Class(TGoogleBaseObject)
- Private
- F_end : TDatetime;
- Fprecision : String;
- Fstart : TDatetime;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Set_end(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setprecision(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstart(AIndex : Integer; AValue : TDatetime); virtual;
- Public
- Published
- Property _end : TDatetime Index 0 Read F_end Write Set_end;
- Property precision : String Index 8 Read Fprecision Write Setprecision;
- Property start : TDatetime Index 16 Read Fstart Write Setstart;
- end;
- TAcquisitionTimeClass = Class of TAcquisitionTime;
-
- { --------------------------------------------------------------------
- TAsset
- --------------------------------------------------------------------}
-
- TAsset = Class(TGoogleBaseObject)
- Private
- Fbbox : TdoubleArray;
- FcreationTime : TDatetime;
- FcreatorEmail : String;
- Fdescription : String;
- Fetag : String;
- Fid : String;
- FlastModifiedTime : TDatetime;
- FlastModifierEmail : String;
- Fname : String;
- FprojectId : String;
- Fresource : String;
- Ftags : TStringArray;
- F_type : String;
- FwritersCanEditPermissions : boolean;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresource(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
- Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
- Property creatorEmail : String Index 16 Read FcreatorEmail Write SetcreatorEmail;
- Property description : String Index 24 Read Fdescription Write Setdescription;
- Property etag : String Index 32 Read Fetag Write Setetag;
- Property id : String Index 40 Read Fid Write Setid;
- Property lastModifiedTime : TDatetime Index 48 Read FlastModifiedTime Write SetlastModifiedTime;
- Property lastModifierEmail : String Index 56 Read FlastModifierEmail Write SetlastModifierEmail;
- Property name : String Index 64 Read Fname Write Setname;
- Property projectId : String Index 72 Read FprojectId Write SetprojectId;
- Property resource : String Index 80 Read Fresource Write Setresource;
- Property tags : TStringArray Index 88 Read Ftags Write Settags;
- Property _type : String Index 96 Read F_type Write Set_type;
- Property writersCanEditPermissions : boolean Index 104 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
- end;
- TAssetClass = Class of TAsset;
-
- { --------------------------------------------------------------------
- TAssetsListResponse
- --------------------------------------------------------------------}
-
- TAssetsListResponse = Class(TGoogleBaseObject)
- Private
- Fassets : TAssetsListResponseTypeassetsArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setassets(AIndex : Integer; AValue : TAssetsListResponseTypeassetsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property assets : TAssetsListResponseTypeassetsArray Index 0 Read Fassets Write Setassets;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TAssetsListResponseClass = Class of TAssetsListResponse;
-
- { --------------------------------------------------------------------
- TBorder
- --------------------------------------------------------------------}
-
- TBorder = Class(TGoogleBaseObject)
- Private
- Fcolor : String;
- Fopacity : double;
- Fwidth : double;
- Protected
- //Property setters
- Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : double); virtual;
- Public
- Published
- Property color : String Index 0 Read Fcolor Write Setcolor;
- Property opacity : double Index 8 Read Fopacity Write Setopacity;
- Property width : double Index 16 Read Fwidth Write Setwidth;
- end;
- TBorderClass = Class of TBorder;
-
- { --------------------------------------------------------------------
- TColor
- --------------------------------------------------------------------}
-
- TColor = Class(TGoogleBaseObject)
- Private
- Fcolor : String;
- Fopacity : double;
- Protected
- //Property setters
- Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
- Public
- Published
- Property color : String Index 0 Read Fcolor Write Setcolor;
- Property opacity : double Index 8 Read Fopacity Write Setopacity;
- end;
- TColorClass = Class of TColor;
-
- { --------------------------------------------------------------------
- TDatasource
- --------------------------------------------------------------------}
-
- TDatasource = Class(TGoogleBaseObject)
- Private
- Fid : String;
- Protected
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- end;
- TDatasourceClass = Class of TDatasource;
-
- { --------------------------------------------------------------------
- TDisplayRule
- --------------------------------------------------------------------}
-
- TDisplayRule = Class(TGoogleBaseObject)
- Private
- Ffilters : TDisplayRuleTypefiltersArray;
- FlineOptions : TLineStyle;
- Fname : String;
- FpointOptions : TPointStyle;
- FpolygonOptions : TPolygonStyle;
- FzoomLevels : TZoomLevels;
- Protected
- //Property setters
- Procedure Setfilters(AIndex : Integer; AValue : TDisplayRuleTypefiltersArray); virtual;
- Procedure SetlineOptions(AIndex : Integer; AValue : TLineStyle); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpointOptions(AIndex : Integer; AValue : TPointStyle); virtual;
- Procedure SetpolygonOptions(AIndex : Integer; AValue : TPolygonStyle); virtual;
- Procedure SetzoomLevels(AIndex : Integer; AValue : TZoomLevels); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property filters : TDisplayRuleTypefiltersArray Index 0 Read Ffilters Write Setfilters;
- Property lineOptions : TLineStyle Index 8 Read FlineOptions Write SetlineOptions;
- Property name : String Index 16 Read Fname Write Setname;
- Property pointOptions : TPointStyle Index 24 Read FpointOptions Write SetpointOptions;
- Property polygonOptions : TPolygonStyle Index 32 Read FpolygonOptions Write SetpolygonOptions;
- Property zoomLevels : TZoomLevels Index 40 Read FzoomLevels Write SetzoomLevels;
- end;
- TDisplayRuleClass = Class of TDisplayRule;
-
- { --------------------------------------------------------------------
- TFeature
- --------------------------------------------------------------------}
-
- TFeature = Class(TGoogleBaseObject)
- Private
- Fgeometry : TGeoJsonGeometry;
- Fproperties : TGeoJsonProperties;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setgeometry(AIndex : Integer; AValue : TGeoJsonGeometry); virtual;
- Procedure Setproperties(AIndex : Integer; AValue : TGeoJsonProperties); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property geometry : TGeoJsonGeometry Index 0 Read Fgeometry Write Setgeometry;
- Property properties : TGeoJsonProperties Index 8 Read Fproperties Write Setproperties;
- Property _type : String Index 16 Read F_type Write Set_type;
- end;
- TFeatureClass = Class of TFeature;
-
- { --------------------------------------------------------------------
- TFeatureInfo
- --------------------------------------------------------------------}
-
- TFeatureInfo = Class(TGoogleBaseObject)
- Private
- Fcontent : String;
- Protected
- //Property setters
- Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property content : String Index 0 Read Fcontent Write Setcontent;
- end;
- TFeatureInfoClass = Class of TFeatureInfo;
-
- { --------------------------------------------------------------------
- TFeaturesBatchDeleteRequest
- --------------------------------------------------------------------}
-
- TFeaturesBatchDeleteRequest = Class(TGoogleBaseObject)
- Private
- Fgx_ids : TStringArray;
- FprimaryKeys : TStringArray;
- Protected
- //Property setters
- Procedure Setgx_ids(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprimaryKeys(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property gx_ids : TStringArray Index 0 Read Fgx_ids Write Setgx_ids;
- Property primaryKeys : TStringArray Index 8 Read FprimaryKeys Write SetprimaryKeys;
- end;
- TFeaturesBatchDeleteRequestClass = Class of TFeaturesBatchDeleteRequest;
-
- { --------------------------------------------------------------------
- TFeaturesBatchInsertRequest
- --------------------------------------------------------------------}
-
- TFeaturesBatchInsertRequest = Class(TGoogleBaseObject)
- Private
- Ffeatures : TFeaturesBatchInsertRequestTypefeaturesArray;
- FnormalizeGeometries : boolean;
- Protected
- //Property setters
- Procedure Setfeatures(AIndex : Integer; AValue : TFeaturesBatchInsertRequestTypefeaturesArray); virtual;
- Procedure SetnormalizeGeometries(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property features : TFeaturesBatchInsertRequestTypefeaturesArray Index 0 Read Ffeatures Write Setfeatures;
- Property normalizeGeometries : boolean Index 8 Read FnormalizeGeometries Write SetnormalizeGeometries;
- end;
- TFeaturesBatchInsertRequestClass = Class of TFeaturesBatchInsertRequest;
-
- { --------------------------------------------------------------------
- TFeaturesBatchPatchRequest
- --------------------------------------------------------------------}
-
- TFeaturesBatchPatchRequest = Class(TGoogleBaseObject)
- Private
- Ffeatures : TFeaturesBatchPatchRequestTypefeaturesArray;
- FnormalizeGeometries : boolean;
- Protected
- //Property setters
- Procedure Setfeatures(AIndex : Integer; AValue : TFeaturesBatchPatchRequestTypefeaturesArray); virtual;
- Procedure SetnormalizeGeometries(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property features : TFeaturesBatchPatchRequestTypefeaturesArray Index 0 Read Ffeatures Write Setfeatures;
- Property normalizeGeometries : boolean Index 8 Read FnormalizeGeometries Write SetnormalizeGeometries;
- end;
- TFeaturesBatchPatchRequestClass = Class of TFeaturesBatchPatchRequest;
-
- { --------------------------------------------------------------------
- TFeaturesListResponse
- --------------------------------------------------------------------}
-
- TFeaturesListResponse = Class(TGoogleBaseObject)
- Private
- FallowedQueriesPerSecond : double;
- Ffeatures : TFeaturesListResponseTypefeaturesArray;
- FnextPageToken : String;
- Fschema : TSchema;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetallowedQueriesPerSecond(AIndex : Integer; AValue : double); virtual;
- Procedure Setfeatures(AIndex : Integer; AValue : TFeaturesListResponseTypefeaturesArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setschema(AIndex : Integer; AValue : TSchema); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property allowedQueriesPerSecond : double Index 0 Read FallowedQueriesPerSecond Write SetallowedQueriesPerSecond;
- Property features : TFeaturesListResponseTypefeaturesArray Index 8 Read Ffeatures Write Setfeatures;
- Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
- Property schema : TSchema Index 24 Read Fschema Write Setschema;
- Property _type : String Index 32 Read F_type Write Set_type;
- end;
- TFeaturesListResponseClass = Class of TFeaturesListResponse;
-
- { --------------------------------------------------------------------
- TFile
- --------------------------------------------------------------------}
-
- TFile = Class(TGoogleBaseObject)
- Private
- Ffilename : String;
- Fsize : String;
- FuploadStatus : String;
- Protected
- //Property setters
- Procedure Setfilename(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuploadStatus(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property filename : String Index 0 Read Ffilename Write Setfilename;
- Property size : String Index 8 Read Fsize Write Setsize;
- Property uploadStatus : String Index 16 Read FuploadStatus Write SetuploadStatus;
- end;
- TFileClass = Class of TFile;
-
- { --------------------------------------------------------------------
- TFilter
- --------------------------------------------------------------------}
-
- TFilter = Class(TGoogleBaseObject)
- Private
- Fcolumn : String;
- F_operator : String;
- Fvalue : TJSONSchema;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcolumn(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : TJSONSchema); virtual;
- Public
- Published
- Property column : String Index 0 Read Fcolumn Write Setcolumn;
- Property _operator : String Index 8 Read F_operator Write Set_operator;
- Property value : TJSONSchema Index 16 Read Fvalue Write Setvalue;
- end;
- TFilterClass = Class of TFilter;
-
- { --------------------------------------------------------------------
- TGeoJsonGeometry
- --------------------------------------------------------------------}
-
- TGeoJsonGeometry = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TGeoJsonGeometryClass = Class of TGeoJsonGeometry;
-
- { --------------------------------------------------------------------
- TGeoJsonGeometryCollection
- --------------------------------------------------------------------}
-
- TGeoJsonGeometryCollection = Class(TGoogleBaseObject)
- Private
- Fgeometries : TGeoJsonGeometryCollectionTypegeometriesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setgeometries(AIndex : Integer; AValue : TGeoJsonGeometryCollectionTypegeometriesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property geometries : TGeoJsonGeometryCollectionTypegeometriesArray Index 0 Read Fgeometries Write Setgeometries;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TGeoJsonGeometryCollectionClass = Class of TGeoJsonGeometryCollection;
-
- { --------------------------------------------------------------------
- TGeoJsonLineString
- --------------------------------------------------------------------}
-
- TGeoJsonLineString = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TGeoJsonLineStringTypecoordinatesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonLineStringTypecoordinatesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TGeoJsonLineStringTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TGeoJsonLineStringClass = Class of TGeoJsonLineString;
-
- { --------------------------------------------------------------------
- TGeoJsonMultiLineString
- --------------------------------------------------------------------}
-
- TGeoJsonMultiLineString = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TGeoJsonMultiLineStringTypecoordinatesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiLineStringTypecoordinatesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TGeoJsonMultiLineStringTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TGeoJsonMultiLineStringClass = Class of TGeoJsonMultiLineString;
-
- { --------------------------------------------------------------------
- TGeoJsonMultiPoint
- --------------------------------------------------------------------}
-
- TGeoJsonMultiPoint = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TGeoJsonMultiPointTypecoordinatesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPointTypecoordinatesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TGeoJsonMultiPointTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TGeoJsonMultiPointClass = Class of TGeoJsonMultiPoint;
-
- { --------------------------------------------------------------------
- TGeoJsonMultiPolygon
- --------------------------------------------------------------------}
-
- TGeoJsonMultiPolygon = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TGeoJsonMultiPolygonTypecoordinatesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPolygonTypecoordinatesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TGeoJsonMultiPolygonTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TGeoJsonMultiPolygonClass = Class of TGeoJsonMultiPolygon;
-
- { --------------------------------------------------------------------
- TGeoJsonPoint
- --------------------------------------------------------------------}
-
- TGeoJsonPoint = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TGeoJsonPosition;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonPosition); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property coordinates : TGeoJsonPosition Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TGeoJsonPointClass = Class of TGeoJsonPoint;
-
- { --------------------------------------------------------------------
- TGeoJsonPolygon
- --------------------------------------------------------------------}
-
- TGeoJsonPolygon = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TGeoJsonPolygonTypecoordinatesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TGeoJsonPolygonTypecoordinatesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TGeoJsonPolygonTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TGeoJsonPolygonClass = Class of TGeoJsonPolygon;
-
- { --------------------------------------------------------------------
- TGeoJsonProperties
- --------------------------------------------------------------------}
-
- TGeoJsonProperties = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TGeoJsonPropertiesClass = Class of TGeoJsonProperties;
-
- { --------------------------------------------------------------------
- TIcon
- --------------------------------------------------------------------}
-
- TIcon = Class(TGoogleBaseObject)
- Private
- Fdescription : String;
- Fid : String;
- Fname : String;
- Protected
- //Property setters
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property description : String Index 0 Read Fdescription Write Setdescription;
- Property id : String Index 8 Read Fid Write Setid;
- Property name : String Index 16 Read Fname Write Setname;
- end;
- TIconClass = Class of TIcon;
-
- { --------------------------------------------------------------------
- TIconStyle
- --------------------------------------------------------------------}
-
- TIconStyle = Class(TGoogleBaseObject)
- Private
- Fid : String;
- Fname : String;
- FscaledShape : TScaledShape;
- FscalingFunction : TScalingFunction;
- Protected
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscaledShape(AIndex : Integer; AValue : TScaledShape); virtual;
- Procedure SetscalingFunction(AIndex : Integer; AValue : TScalingFunction); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- Property name : String Index 8 Read Fname Write Setname;
- Property scaledShape : TScaledShape Index 16 Read FscaledShape Write SetscaledShape;
- Property scalingFunction : TScalingFunction Index 24 Read FscalingFunction Write SetscalingFunction;
- end;
- TIconStyleClass = Class of TIconStyle;
-
- { --------------------------------------------------------------------
- TIconsListResponse
- --------------------------------------------------------------------}
-
- TIconsListResponse = Class(TGoogleBaseObject)
- Private
- Ficons : TIconsListResponseTypeiconsArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Seticons(AIndex : Integer; AValue : TIconsListResponseTypeiconsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property icons : TIconsListResponseTypeiconsArray Index 0 Read Ficons Write Seticons;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TIconsListResponseClass = Class of TIconsListResponse;
-
- { --------------------------------------------------------------------
- TLabelStyle
- --------------------------------------------------------------------}
-
- TLabelStyle = Class(TGoogleBaseObject)
- Private
- Fcolor : String;
- Fcolumn : String;
- FfontStyle : String;
- FfontWeight : String;
- Fopacity : double;
- Foutline : TColor;
- Fsize : double;
- Protected
- //Property setters
- Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcolumn(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfontStyle(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfontWeight(AIndex : Integer; const AValue : String); virtual;
- Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
- Procedure Setoutline(AIndex : Integer; AValue : TColor); virtual;
- Procedure Setsize(AIndex : Integer; AValue : double); virtual;
- Public
- Published
- Property color : String Index 0 Read Fcolor Write Setcolor;
- Property column : String Index 8 Read Fcolumn Write Setcolumn;
- Property fontStyle : String Index 16 Read FfontStyle Write SetfontStyle;
- Property fontWeight : String Index 24 Read FfontWeight Write SetfontWeight;
- Property opacity : double Index 32 Read Fopacity Write Setopacity;
- Property outline : TColor Index 40 Read Foutline Write Setoutline;
- Property size : double Index 48 Read Fsize Write Setsize;
- end;
- TLabelStyleClass = Class of TLabelStyle;
-
- { --------------------------------------------------------------------
- TLayer
- --------------------------------------------------------------------}
-
- TLayer = Class(TGoogleBaseObject)
- Private
- Fbbox : TdoubleArray;
- FcreationTime : TDatetime;
- FcreatorEmail : String;
- FdatasourceType : String;
- Fdatasources : TDatasources;
- Fdescription : String;
- FdraftAccessList : String;
- Fetag : String;
- Fid : String;
- FlastModifiedTime : TDatetime;
- FlastModifierEmail : String;
- FlayerType : String;
- Fname : String;
- FprocessingStatus : String;
- FprojectId : String;
- FpublishedAccessList : String;
- FpublishingStatus : String;
- Fstyle : TVectorStyle;
- Ftags : TTags;
- FwritersCanEditPermissions : boolean;
- Protected
- //Property setters
- Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdatasourceType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdatasources(AIndex : Integer; AValue : TDatasources); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlayerType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstyle(AIndex : Integer; AValue : TVectorStyle); virtual;
- Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
- Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
- Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
- Property creatorEmail : String Index 16 Read FcreatorEmail Write SetcreatorEmail;
- Property datasourceType : String Index 24 Read FdatasourceType Write SetdatasourceType;
- Property datasources : TDatasources Index 32 Read Fdatasources Write Setdatasources;
- Property description : String Index 40 Read Fdescription Write Setdescription;
- Property draftAccessList : String Index 48 Read FdraftAccessList Write SetdraftAccessList;
- Property etag : String Index 56 Read Fetag Write Setetag;
- Property id : String Index 64 Read Fid Write Setid;
- Property lastModifiedTime : TDatetime Index 72 Read FlastModifiedTime Write SetlastModifiedTime;
- Property lastModifierEmail : String Index 80 Read FlastModifierEmail Write SetlastModifierEmail;
- Property layerType : String Index 88 Read FlayerType Write SetlayerType;
- Property name : String Index 96 Read Fname Write Setname;
- Property processingStatus : String Index 104 Read FprocessingStatus Write SetprocessingStatus;
- Property projectId : String Index 112 Read FprojectId Write SetprojectId;
- Property publishedAccessList : String Index 120 Read FpublishedAccessList Write SetpublishedAccessList;
- Property publishingStatus : String Index 128 Read FpublishingStatus Write SetpublishingStatus;
- Property style : TVectorStyle Index 136 Read Fstyle Write Setstyle;
- Property tags : TTags Index 144 Read Ftags Write Settags;
- Property writersCanEditPermissions : boolean Index 152 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
- end;
- TLayerClass = Class of TLayer;
-
- { --------------------------------------------------------------------
- TLayersListResponse
- --------------------------------------------------------------------}
-
- TLayersListResponse = Class(TGoogleBaseObject)
- Private
- Flayers : TLayersListResponseTypelayersArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setlayers(AIndex : Integer; AValue : TLayersListResponseTypelayersArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property layers : TLayersListResponseTypelayersArray Index 0 Read Flayers Write Setlayers;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TLayersListResponseClass = Class of TLayersListResponse;
-
- { --------------------------------------------------------------------
- TLineStyleTypestroke
- --------------------------------------------------------------------}
-
- TLineStyleTypestroke = Class(TGoogleBaseObject)
- Private
- Fcolor : String;
- Fopacity : double;
- Fwidth : double;
- Protected
- //Property setters
- Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : double); virtual;
- Public
- Published
- Property color : String Index 0 Read Fcolor Write Setcolor;
- Property opacity : double Index 8 Read Fopacity Write Setopacity;
- Property width : double Index 16 Read Fwidth Write Setwidth;
- end;
- TLineStyleTypestrokeClass = Class of TLineStyleTypestroke;
-
- { --------------------------------------------------------------------
- TLineStyle
- --------------------------------------------------------------------}
-
- TLineStyle = Class(TGoogleBaseObject)
- Private
- Fborder : TBorder;
- Fdash : TdoubleArray;
- F_label : TLabelStyle;
- Fstroke : TLineStyleTypestroke;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setborder(AIndex : Integer; AValue : TBorder); virtual;
- Procedure Setdash(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure Set_label(AIndex : Integer; AValue : TLabelStyle); virtual;
- Procedure Setstroke(AIndex : Integer; AValue : TLineStyleTypestroke); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property border : TBorder Index 0 Read Fborder Write Setborder;
- Property dash : TdoubleArray Index 8 Read Fdash Write Setdash;
- Property _label : TLabelStyle Index 16 Read F_label Write Set_label;
- Property stroke : TLineStyleTypestroke Index 24 Read Fstroke Write Setstroke;
- end;
- TLineStyleClass = Class of TLineStyle;
-
- { --------------------------------------------------------------------
- TMap
- --------------------------------------------------------------------}
-
- TMap = Class(TGoogleBaseObject)
- Private
- Fbbox : TdoubleArray;
- Fcontents : TMapContents;
- FcreationTime : TDatetime;
- FcreatorEmail : String;
- FdefaultViewport : TLatLngBox;
- Fdescription : String;
- FdraftAccessList : String;
- Fetag : String;
- Fid : String;
- FlastModifiedTime : TDatetime;
- FlastModifierEmail : String;
- Fname : String;
- FprocessingStatus : String;
- FprojectId : String;
- FpublishedAccessList : String;
- FpublishingStatus : String;
- Ftags : TTags;
- Fversions : TStringArray;
- FwritersCanEditPermissions : boolean;
- Protected
- //Property setters
- Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure Setcontents(AIndex : Integer; AValue : TMapContents); virtual;
- Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
- Procedure Setversions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
- Property contents : TMapContents Index 8 Read Fcontents Write Setcontents;
- Property creationTime : TDatetime Index 16 Read FcreationTime Write SetcreationTime;
- Property creatorEmail : String Index 24 Read FcreatorEmail Write SetcreatorEmail;
- Property defaultViewport : TLatLngBox Index 32 Read FdefaultViewport Write SetdefaultViewport;
- Property description : String Index 40 Read Fdescription Write Setdescription;
- Property draftAccessList : String Index 48 Read FdraftAccessList Write SetdraftAccessList;
- Property etag : String Index 56 Read Fetag Write Setetag;
- Property id : String Index 64 Read Fid Write Setid;
- Property lastModifiedTime : TDatetime Index 72 Read FlastModifiedTime Write SetlastModifiedTime;
- Property lastModifierEmail : String Index 80 Read FlastModifierEmail Write SetlastModifierEmail;
- Property name : String Index 88 Read Fname Write Setname;
- Property processingStatus : String Index 96 Read FprocessingStatus Write SetprocessingStatus;
- Property projectId : String Index 104 Read FprojectId Write SetprojectId;
- Property publishedAccessList : String Index 112 Read FpublishedAccessList Write SetpublishedAccessList;
- Property publishingStatus : String Index 120 Read FpublishingStatus Write SetpublishingStatus;
- Property tags : TTags Index 128 Read Ftags Write Settags;
- Property versions : TStringArray Index 136 Read Fversions Write Setversions;
- Property writersCanEditPermissions : boolean Index 144 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
- end;
- TMapClass = Class of TMap;
-
- { --------------------------------------------------------------------
- TMapFolder
- --------------------------------------------------------------------}
-
- TMapFolder = Class(TGoogleBaseObject)
- Private
- Fcontents : TMapFolderTypecontentsArray;
- FdefaultViewport : TdoubleArray;
- Fexpandable : boolean;
- Fkey : String;
- Fname : String;
- F_type : String;
- Fvisibility : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcontents(AIndex : Integer; AValue : TMapFolderTypecontentsArray); virtual;
- Procedure SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure Setexpandable(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property contents : TMapFolderTypecontentsArray Index 0 Read Fcontents Write Setcontents;
- Property defaultViewport : TdoubleArray Index 8 Read FdefaultViewport Write SetdefaultViewport;
- Property expandable : boolean Index 16 Read Fexpandable Write Setexpandable;
- Property key : String Index 24 Read Fkey Write Setkey;
- Property name : String Index 32 Read Fname Write Setname;
- Property _type : String Index 40 Read F_type Write Set_type;
- Property visibility : String Index 48 Read Fvisibility Write Setvisibility;
- end;
- TMapFolderClass = Class of TMapFolder;
-
- { --------------------------------------------------------------------
- TMapItem
- --------------------------------------------------------------------}
-
- TMapItem = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TMapItemClass = Class of TMapItem;
-
- { --------------------------------------------------------------------
- TMapKmlLink
- --------------------------------------------------------------------}
-
- TMapKmlLink = Class(TGoogleBaseObject)
- Private
- FdefaultViewport : TdoubleArray;
- FkmlUrl : String;
- Fname : String;
- F_type : String;
- Fvisibility : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure SetkmlUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property defaultViewport : TdoubleArray Index 0 Read FdefaultViewport Write SetdefaultViewport;
- Property kmlUrl : String Index 8 Read FkmlUrl Write SetkmlUrl;
- Property name : String Index 16 Read Fname Write Setname;
- Property _type : String Index 24 Read F_type Write Set_type;
- Property visibility : String Index 32 Read Fvisibility Write Setvisibility;
- end;
- TMapKmlLinkClass = Class of TMapKmlLink;
-
- { --------------------------------------------------------------------
- TMapLayer
- --------------------------------------------------------------------}
-
- TMapLayer = Class(TGoogleBaseObject)
- Private
- FdefaultViewport : TdoubleArray;
- Fid : String;
- Fkey : String;
- Fname : String;
- F_type : String;
- Fvisibility : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property defaultViewport : TdoubleArray Index 0 Read FdefaultViewport Write SetdefaultViewport;
- Property id : String Index 8 Read Fid Write Setid;
- Property key : String Index 16 Read Fkey Write Setkey;
- Property name : String Index 24 Read Fname Write Setname;
- Property _type : String Index 32 Read F_type Write Set_type;
- Property visibility : String Index 40 Read Fvisibility Write Setvisibility;
- end;
- TMapLayerClass = Class of TMapLayer;
-
- { --------------------------------------------------------------------
- TMapsListResponse
- --------------------------------------------------------------------}
-
- TMapsListResponse = Class(TGoogleBaseObject)
- Private
- Fmaps : TMapsListResponseTypemapsArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setmaps(AIndex : Integer; AValue : TMapsListResponseTypemapsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property maps : TMapsListResponseTypemapsArray Index 0 Read Fmaps Write Setmaps;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TMapsListResponseClass = Class of TMapsListResponse;
-
- { --------------------------------------------------------------------
- TParent
- --------------------------------------------------------------------}
-
- TParent = Class(TGoogleBaseObject)
- Private
- Fid : String;
- Protected
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- end;
- TParentClass = Class of TParent;
-
- { --------------------------------------------------------------------
- TParentsListResponse
- --------------------------------------------------------------------}
-
- TParentsListResponse = Class(TGoogleBaseObject)
- Private
- FnextPageToken : String;
- Fparents : TParentsListResponseTypeparentsArray;
- Protected
- //Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparents(AIndex : Integer; AValue : TParentsListResponseTypeparentsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property parents : TParentsListResponseTypeparentsArray Index 8 Read Fparents Write Setparents;
- end;
- TParentsListResponseClass = Class of TParentsListResponse;
-
- { --------------------------------------------------------------------
- TPermission
- --------------------------------------------------------------------}
-
- TPermission = Class(TGoogleBaseObject)
- Private
- Fdiscoverable : boolean;
- Fid : String;
- Frole : String;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setdiscoverable(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property discoverable : boolean Index 0 Read Fdiscoverable Write Setdiscoverable;
- Property id : String Index 8 Read Fid Write Setid;
- Property role : String Index 16 Read Frole Write Setrole;
- Property _type : String Index 24 Read F_type Write Set_type;
- end;
- TPermissionClass = Class of TPermission;
-
- { --------------------------------------------------------------------
- TPermissionsBatchDeleteRequest
- --------------------------------------------------------------------}
-
- TPermissionsBatchDeleteRequest = Class(TGoogleBaseObject)
- Private
- Fids : TStringArray;
- Protected
- //Property setters
- Procedure Setids(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property ids : TStringArray Index 0 Read Fids Write Setids;
- end;
- TPermissionsBatchDeleteRequestClass = Class of TPermissionsBatchDeleteRequest;
-
- { --------------------------------------------------------------------
- TPermissionsBatchDeleteResponse
- --------------------------------------------------------------------}
-
- TPermissionsBatchDeleteResponse = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TPermissionsBatchDeleteResponseClass = Class of TPermissionsBatchDeleteResponse;
-
- { --------------------------------------------------------------------
- TPermissionsBatchUpdateRequest
- --------------------------------------------------------------------}
-
- TPermissionsBatchUpdateRequest = Class(TGoogleBaseObject)
- Private
- Fpermissions : TPermissionsBatchUpdateRequestTypepermissionsArray;
- Protected
- //Property setters
- Procedure Setpermissions(AIndex : Integer; AValue : TPermissionsBatchUpdateRequestTypepermissionsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property permissions : TPermissionsBatchUpdateRequestTypepermissionsArray Index 0 Read Fpermissions Write Setpermissions;
- end;
- TPermissionsBatchUpdateRequestClass = Class of TPermissionsBatchUpdateRequest;
-
- { --------------------------------------------------------------------
- TPermissionsBatchUpdateResponse
- --------------------------------------------------------------------}
-
- TPermissionsBatchUpdateResponse = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TPermissionsBatchUpdateResponseClass = Class of TPermissionsBatchUpdateResponse;
-
- { --------------------------------------------------------------------
- TPermissionsListResponse
- --------------------------------------------------------------------}
-
- TPermissionsListResponse = Class(TGoogleBaseObject)
- Private
- Fpermissions : TPermissionsListResponseTypepermissionsArray;
- Protected
- //Property setters
- Procedure Setpermissions(AIndex : Integer; AValue : TPermissionsListResponseTypepermissionsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property permissions : TPermissionsListResponseTypepermissionsArray Index 0 Read Fpermissions Write Setpermissions;
- end;
- TPermissionsListResponseClass = Class of TPermissionsListResponse;
-
- { --------------------------------------------------------------------
- TPointStyle
- --------------------------------------------------------------------}
-
- TPointStyle = Class(TGoogleBaseObject)
- Private
- Ficon : TIconStyle;
- F_label : TLabelStyle;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Seticon(AIndex : Integer; AValue : TIconStyle); virtual;
- Procedure Set_label(AIndex : Integer; AValue : TLabelStyle); virtual;
- Public
- Published
- Property icon : TIconStyle Index 0 Read Ficon Write Seticon;
- Property _label : TLabelStyle Index 8 Read F_label Write Set_label;
- end;
- TPointStyleClass = Class of TPointStyle;
-
- { --------------------------------------------------------------------
- TPolygonStyle
- --------------------------------------------------------------------}
-
- TPolygonStyle = Class(TGoogleBaseObject)
- Private
- Ffill : TColor;
- F_label : TLabelStyle;
- Fstroke : TBorder;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setfill(AIndex : Integer; AValue : TColor); virtual;
- Procedure Set_label(AIndex : Integer; AValue : TLabelStyle); virtual;
- Procedure Setstroke(AIndex : Integer; AValue : TBorder); virtual;
- Public
- Published
- Property fill : TColor Index 0 Read Ffill Write Setfill;
- Property _label : TLabelStyle Index 8 Read F_label Write Set_label;
- Property stroke : TBorder Index 16 Read Fstroke Write Setstroke;
- end;
- TPolygonStyleClass = Class of TPolygonStyle;
-
- { --------------------------------------------------------------------
- TProcessResponse
- --------------------------------------------------------------------}
-
- TProcessResponse = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TProcessResponseClass = Class of TProcessResponse;
-
- { --------------------------------------------------------------------
- TProject
- --------------------------------------------------------------------}
-
- TProject = Class(TGoogleBaseObject)
- Private
- Fid : String;
- Fname : String;
- Protected
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- Property name : String Index 8 Read Fname Write Setname;
- end;
- TProjectClass = Class of TProject;
-
- { --------------------------------------------------------------------
- TProjectsListResponse
- --------------------------------------------------------------------}
-
- TProjectsListResponse = Class(TGoogleBaseObject)
- Private
- Fprojects : TProjectsListResponseTypeprojectsArray;
- Protected
- //Property setters
- Procedure Setprojects(AIndex : Integer; AValue : TProjectsListResponseTypeprojectsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property projects : TProjectsListResponseTypeprojectsArray Index 0 Read Fprojects Write Setprojects;
- end;
- TProjectsListResponseClass = Class of TProjectsListResponse;
-
- { --------------------------------------------------------------------
- TPublishResponse
- --------------------------------------------------------------------}
-
- TPublishResponse = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TPublishResponseClass = Class of TPublishResponse;
-
- { --------------------------------------------------------------------
- TPublishedLayer
- --------------------------------------------------------------------}
-
- TPublishedLayer = Class(TGoogleBaseObject)
- Private
- Fdescription : String;
- Fid : String;
- FlayerType : String;
- Fname : String;
- FprojectId : String;
- Protected
- //Property setters
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlayerType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property description : String Index 0 Read Fdescription Write Setdescription;
- Property id : String Index 8 Read Fid Write Setid;
- Property layerType : String Index 16 Read FlayerType Write SetlayerType;
- Property name : String Index 24 Read Fname Write Setname;
- Property projectId : String Index 32 Read FprojectId Write SetprojectId;
- end;
- TPublishedLayerClass = Class of TPublishedLayer;
-
- { --------------------------------------------------------------------
- TPublishedLayersListResponse
- --------------------------------------------------------------------}
-
- TPublishedLayersListResponse = Class(TGoogleBaseObject)
- Private
- Flayers : TPublishedLayersListResponseTypelayersArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setlayers(AIndex : Integer; AValue : TPublishedLayersListResponseTypelayersArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property layers : TPublishedLayersListResponseTypelayersArray Index 0 Read Flayers Write Setlayers;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TPublishedLayersListResponseClass = Class of TPublishedLayersListResponse;
-
- { --------------------------------------------------------------------
- TPublishedMap
- --------------------------------------------------------------------}
-
- TPublishedMap = Class(TGoogleBaseObject)
- Private
- Fcontents : TMapContents;
- FdefaultViewport : TLatLngBox;
- Fdescription : String;
- Fid : String;
- Fname : String;
- FprojectId : String;
- Protected
- //Property setters
- Procedure Setcontents(AIndex : Integer; AValue : TMapContents); virtual;
- Procedure SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property contents : TMapContents Index 0 Read Fcontents Write Setcontents;
- Property defaultViewport : TLatLngBox Index 8 Read FdefaultViewport Write SetdefaultViewport;
- Property description : String Index 16 Read Fdescription Write Setdescription;
- Property id : String Index 24 Read Fid Write Setid;
- Property name : String Index 32 Read Fname Write Setname;
- Property projectId : String Index 40 Read FprojectId Write SetprojectId;
- end;
- TPublishedMapClass = Class of TPublishedMap;
-
- { --------------------------------------------------------------------
- TPublishedMapsListResponse
- --------------------------------------------------------------------}
-
- TPublishedMapsListResponse = Class(TGoogleBaseObject)
- Private
- Fmaps : TPublishedMapsListResponseTypemapsArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setmaps(AIndex : Integer; AValue : TPublishedMapsListResponseTypemapsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property maps : TPublishedMapsListResponseTypemapsArray Index 0 Read Fmaps Write Setmaps;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TPublishedMapsListResponseClass = Class of TPublishedMapsListResponse;
-
- { --------------------------------------------------------------------
- TRaster
- --------------------------------------------------------------------}
-
- TRaster = Class(TGoogleBaseObject)
- Private
- FacquisitionTime : TAcquisitionTime;
- Fattribution : String;
- Fbbox : TdoubleArray;
- FcreationTime : TDatetime;
- FcreatorEmail : String;
- Fdescription : String;
- FdraftAccessList : String;
- Fetag : String;
- Ffiles : TRasterTypefilesArray;
- Fid : String;
- FlastModifiedTime : TDatetime;
- FlastModifierEmail : String;
- FmaskType : String;
- Fname : String;
- FprocessingStatus : String;
- FprojectId : String;
- FrasterType : String;
- Ftags : TTags;
- FwritersCanEditPermissions : boolean;
- Protected
- //Property setters
- Procedure SetacquisitionTime(AIndex : Integer; AValue : TAcquisitionTime); virtual;
- Procedure Setattribution(AIndex : Integer; const AValue : String); virtual;
- Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfiles(AIndex : Integer; AValue : TRasterTypefilesArray); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaskType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrasterType(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
- Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property acquisitionTime : TAcquisitionTime Index 0 Read FacquisitionTime Write SetacquisitionTime;
- Property attribution : String Index 8 Read Fattribution Write Setattribution;
- Property bbox : TdoubleArray Index 16 Read Fbbox Write Setbbox;
- Property creationTime : TDatetime Index 24 Read FcreationTime Write SetcreationTime;
- Property creatorEmail : String Index 32 Read FcreatorEmail Write SetcreatorEmail;
- Property description : String Index 40 Read Fdescription Write Setdescription;
- Property draftAccessList : String Index 48 Read FdraftAccessList Write SetdraftAccessList;
- Property etag : String Index 56 Read Fetag Write Setetag;
- Property files : TRasterTypefilesArray Index 64 Read Ffiles Write Setfiles;
- Property id : String Index 72 Read Fid Write Setid;
- Property lastModifiedTime : TDatetime Index 80 Read FlastModifiedTime Write SetlastModifiedTime;
- Property lastModifierEmail : String Index 88 Read FlastModifierEmail Write SetlastModifierEmail;
- Property maskType : String Index 96 Read FmaskType Write SetmaskType;
- Property name : String Index 104 Read Fname Write Setname;
- Property processingStatus : String Index 112 Read FprocessingStatus Write SetprocessingStatus;
- Property projectId : String Index 120 Read FprojectId Write SetprojectId;
- Property rasterType : String Index 128 Read FrasterType Write SetrasterType;
- Property tags : TTags Index 136 Read Ftags Write Settags;
- Property writersCanEditPermissions : boolean Index 144 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
- end;
- TRasterClass = Class of TRaster;
-
- { --------------------------------------------------------------------
- TRasterCollection
- --------------------------------------------------------------------}
-
- TRasterCollection = Class(TGoogleBaseObject)
- Private
- Fattribution : String;
- Fbbox : TdoubleArray;
- FcreationTime : TDatetime;
- FcreatorEmail : String;
- Fdescription : String;
- FdraftAccessList : String;
- Fetag : String;
- Fid : String;
- FlastModifiedTime : TDatetime;
- FlastModifierEmail : String;
- Fmosaic : boolean;
- Fname : String;
- FprocessingStatus : String;
- FprojectId : String;
- FrasterType : String;
- Ftags : TTags;
- FwritersCanEditPermissions : boolean;
- Protected
- //Property setters
- Procedure Setattribution(AIndex : Integer; const AValue : String); virtual;
- Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmosaic(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrasterType(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
- Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property attribution : String Index 0 Read Fattribution Write Setattribution;
- Property bbox : TdoubleArray Index 8 Read Fbbox Write Setbbox;
- Property creationTime : TDatetime Index 16 Read FcreationTime Write SetcreationTime;
- Property creatorEmail : String Index 24 Read FcreatorEmail Write SetcreatorEmail;
- Property description : String Index 32 Read Fdescription Write Setdescription;
- Property draftAccessList : String Index 40 Read FdraftAccessList Write SetdraftAccessList;
- Property etag : String Index 48 Read Fetag Write Setetag;
- Property id : String Index 56 Read Fid Write Setid;
- Property lastModifiedTime : TDatetime Index 64 Read FlastModifiedTime Write SetlastModifiedTime;
- Property lastModifierEmail : String Index 72 Read FlastModifierEmail Write SetlastModifierEmail;
- Property mosaic : boolean Index 80 Read Fmosaic Write Setmosaic;
- Property name : String Index 88 Read Fname Write Setname;
- Property processingStatus : String Index 96 Read FprocessingStatus Write SetprocessingStatus;
- Property projectId : String Index 104 Read FprojectId Write SetprojectId;
- Property rasterType : String Index 112 Read FrasterType Write SetrasterType;
- Property tags : TTags Index 120 Read Ftags Write Settags;
- Property writersCanEditPermissions : boolean Index 128 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
- end;
- TRasterCollectionClass = Class of TRasterCollection;
-
- { --------------------------------------------------------------------
- TRasterCollectionsListResponse
- --------------------------------------------------------------------}
-
- TRasterCollectionsListResponse = Class(TGoogleBaseObject)
- Private
- FnextPageToken : String;
- FrasterCollections : TRasterCollectionsListResponseTyperasterCollectionsArray;
- Protected
- //Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrasterCollections(AIndex : Integer; AValue : TRasterCollectionsListResponseTyperasterCollectionsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property rasterCollections : TRasterCollectionsListResponseTyperasterCollectionsArray Index 8 Read FrasterCollections Write SetrasterCollections;
- end;
- TRasterCollectionsListResponseClass = Class of TRasterCollectionsListResponse;
-
- { --------------------------------------------------------------------
- TRasterCollectionsRaster
- --------------------------------------------------------------------}
-
- TRasterCollectionsRaster = Class(TGoogleBaseObject)
- Private
- Fbbox : TdoubleArray;
- FcreationTime : TDatetime;
- Fdescription : String;
- Fid : String;
- FlastModifiedTime : TDatetime;
- Fname : String;
- FprojectId : String;
- FrasterType : String;
- Ftags : TStringArray;
- Protected
- //Property setters
- Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrasterType(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
- Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
- Property description : String Index 16 Read Fdescription Write Setdescription;
- Property id : String Index 24 Read Fid Write Setid;
- Property lastModifiedTime : TDatetime Index 32 Read FlastModifiedTime Write SetlastModifiedTime;
- Property name : String Index 40 Read Fname Write Setname;
- Property projectId : String Index 48 Read FprojectId Write SetprojectId;
- Property rasterType : String Index 56 Read FrasterType Write SetrasterType;
- Property tags : TStringArray Index 64 Read Ftags Write Settags;
- end;
- TRasterCollectionsRasterClass = Class of TRasterCollectionsRaster;
-
- { --------------------------------------------------------------------
- TRasterCollectionsRasterBatchDeleteRequest
- --------------------------------------------------------------------}
-
- TRasterCollectionsRasterBatchDeleteRequest = Class(TGoogleBaseObject)
- Private
- Fids : TStringArray;
- Protected
- //Property setters
- Procedure Setids(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property ids : TStringArray Index 0 Read Fids Write Setids;
- end;
- TRasterCollectionsRasterBatchDeleteRequestClass = Class of TRasterCollectionsRasterBatchDeleteRequest;
-
- { --------------------------------------------------------------------
- TRasterCollectionsRastersBatchDeleteResponse
- --------------------------------------------------------------------}
-
- TRasterCollectionsRastersBatchDeleteResponse = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TRasterCollectionsRastersBatchDeleteResponseClass = Class of TRasterCollectionsRastersBatchDeleteResponse;
-
- { --------------------------------------------------------------------
- TRasterCollectionsRastersBatchInsertRequest
- --------------------------------------------------------------------}
-
- TRasterCollectionsRastersBatchInsertRequest = Class(TGoogleBaseObject)
- Private
- Fids : TStringArray;
- Protected
- //Property setters
- Procedure Setids(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property ids : TStringArray Index 0 Read Fids Write Setids;
- end;
- TRasterCollectionsRastersBatchInsertRequestClass = Class of TRasterCollectionsRastersBatchInsertRequest;
-
- { --------------------------------------------------------------------
- TRasterCollectionsRastersBatchInsertResponse
- --------------------------------------------------------------------}
-
- TRasterCollectionsRastersBatchInsertResponse = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TRasterCollectionsRastersBatchInsertResponseClass = Class of TRasterCollectionsRastersBatchInsertResponse;
-
- { --------------------------------------------------------------------
- TRasterCollectionsRastersListResponse
- --------------------------------------------------------------------}
-
- TRasterCollectionsRastersListResponse = Class(TGoogleBaseObject)
- Private
- FnextPageToken : String;
- Frasters : TRasterCollectionsRastersListResponseTyperastersArray;
- Protected
- //Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrasters(AIndex : Integer; AValue : TRasterCollectionsRastersListResponseTyperastersArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property rasters : TRasterCollectionsRastersListResponseTyperastersArray Index 8 Read Frasters Write Setrasters;
- end;
- TRasterCollectionsRastersListResponseClass = Class of TRasterCollectionsRastersListResponse;
-
- { --------------------------------------------------------------------
- TRastersListResponse
- --------------------------------------------------------------------}
-
- TRastersListResponse = Class(TGoogleBaseObject)
- Private
- FnextPageToken : String;
- Frasters : TRastersListResponseTyperastersArray;
- Protected
- //Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrasters(AIndex : Integer; AValue : TRastersListResponseTyperastersArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property rasters : TRastersListResponseTyperastersArray Index 8 Read Frasters Write Setrasters;
- end;
- TRastersListResponseClass = Class of TRastersListResponse;
-
- { --------------------------------------------------------------------
- TScaledShape
- --------------------------------------------------------------------}
-
- TScaledShape = Class(TGoogleBaseObject)
- Private
- Fborder : TBorder;
- Ffill : TColor;
- Fshape : String;
- Protected
- //Property setters
- Procedure Setborder(AIndex : Integer; AValue : TBorder); virtual;
- Procedure Setfill(AIndex : Integer; AValue : TColor); virtual;
- Procedure Setshape(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property border : TBorder Index 0 Read Fborder Write Setborder;
- Property fill : TColor Index 8 Read Ffill Write Setfill;
- Property shape : String Index 16 Read Fshape Write Setshape;
- end;
- TScaledShapeClass = Class of TScaledShape;
-
- { --------------------------------------------------------------------
- TScalingFunction
- --------------------------------------------------------------------}
-
- TScalingFunction = Class(TGoogleBaseObject)
- Private
- Fcolumn : String;
- FscalingType : String;
- FsizeRange : TSizeRange;
- FvalueRange : TValueRange;
- Protected
- //Property setters
- Procedure Setcolumn(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscalingType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsizeRange(AIndex : Integer; AValue : TSizeRange); virtual;
- Procedure SetvalueRange(AIndex : Integer; AValue : TValueRange); virtual;
- Public
- Published
- Property column : String Index 0 Read Fcolumn Write Setcolumn;
- Property scalingType : String Index 8 Read FscalingType Write SetscalingType;
- Property sizeRange : TSizeRange Index 16 Read FsizeRange Write SetsizeRange;
- Property valueRange : TValueRange Index 24 Read FvalueRange Write SetvalueRange;
- end;
- TScalingFunctionClass = Class of TScalingFunction;
-
- { --------------------------------------------------------------------
- TSchema
- --------------------------------------------------------------------}
-
- TSchema = Class(TGoogleBaseObject)
- Private
- Fcolumns : TSchemaTypecolumnsArray;
- FprimaryGeometry : String;
- FprimaryKey : String;
- Protected
- //Property setters
- Procedure Setcolumns(AIndex : Integer; AValue : TSchemaTypecolumnsArray); virtual;
- Procedure SetprimaryGeometry(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprimaryKey(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property columns : TSchemaTypecolumnsArray Index 0 Read Fcolumns Write Setcolumns;
- Property primaryGeometry : String Index 8 Read FprimaryGeometry Write SetprimaryGeometry;
- Property primaryKey : String Index 16 Read FprimaryKey Write SetprimaryKey;
- end;
- TSchemaClass = Class of TSchema;
-
- { --------------------------------------------------------------------
- TSizeRange
- --------------------------------------------------------------------}
-
- TSizeRange = Class(TGoogleBaseObject)
- Private
- Fmax : double;
- Fmin : double;
- Protected
- //Property setters
- Procedure Setmax(AIndex : Integer; AValue : double); virtual;
- Procedure Setmin(AIndex : Integer; AValue : double); virtual;
- Public
- Published
- Property max : double Index 0 Read Fmax Write Setmax;
- Property min : double Index 8 Read Fmin Write Setmin;
- end;
- TSizeRangeClass = Class of TSizeRange;
-
- { --------------------------------------------------------------------
- TTable
- --------------------------------------------------------------------}
-
- TTable = Class(TGoogleBaseObject)
- Private
- Fbbox : TdoubleArray;
- FcreationTime : TDatetime;
- FcreatorEmail : String;
- Fdescription : String;
- FdraftAccessList : String;
- Fetag : String;
- Ffiles : TTableTypefilesArray;
- Fid : String;
- FlastModifiedTime : TDatetime;
- FlastModifierEmail : String;
- Fname : String;
- FprocessingStatus : String;
- FprojectId : String;
- FpublishedAccessList : String;
- Fschema : TSchema;
- FsourceEncoding : String;
- Ftags : TTags;
- FwritersCanEditPermissions : boolean;
- Protected
- //Property setters
- Procedure Setbbox(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure SetcreationTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetcreatorEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdraftAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfiles(AIndex : Integer; AValue : TTableTypefilesArray); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetlastModifierEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedAccessList(AIndex : Integer; const AValue : String); virtual;
- Procedure Setschema(AIndex : Integer; AValue : TSchema); virtual;
- Procedure SetsourceEncoding(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
- Procedure SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property bbox : TdoubleArray Index 0 Read Fbbox Write Setbbox;
- Property creationTime : TDatetime Index 8 Read FcreationTime Write SetcreationTime;
- Property creatorEmail : String Index 16 Read FcreatorEmail Write SetcreatorEmail;
- Property description : String Index 24 Read Fdescription Write Setdescription;
- Property draftAccessList : String Index 32 Read FdraftAccessList Write SetdraftAccessList;
- Property etag : String Index 40 Read Fetag Write Setetag;
- Property files : TTableTypefilesArray Index 48 Read Ffiles Write Setfiles;
- Property id : String Index 56 Read Fid Write Setid;
- Property lastModifiedTime : TDatetime Index 64 Read FlastModifiedTime Write SetlastModifiedTime;
- Property lastModifierEmail : String Index 72 Read FlastModifierEmail Write SetlastModifierEmail;
- Property name : String Index 80 Read Fname Write Setname;
- Property processingStatus : String Index 88 Read FprocessingStatus Write SetprocessingStatus;
- Property projectId : String Index 96 Read FprojectId Write SetprojectId;
- Property publishedAccessList : String Index 104 Read FpublishedAccessList Write SetpublishedAccessList;
- Property schema : TSchema Index 112 Read Fschema Write Setschema;
- Property sourceEncoding : String Index 120 Read FsourceEncoding Write SetsourceEncoding;
- Property tags : TTags Index 128 Read Ftags Write Settags;
- Property writersCanEditPermissions : boolean Index 136 Read FwritersCanEditPermissions Write SetwritersCanEditPermissions;
- end;
- TTableClass = Class of TTable;
-
- { --------------------------------------------------------------------
- TTableColumn
- --------------------------------------------------------------------}
-
- TTableColumn = Class(TGoogleBaseObject)
- Private
- Fname : String;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property name : String Index 0 Read Fname Write Setname;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TTableColumnClass = Class of TTableColumn;
-
- { --------------------------------------------------------------------
- TTablesListResponse
- --------------------------------------------------------------------}
-
- TTablesListResponse = Class(TGoogleBaseObject)
- Private
- FnextPageToken : String;
- Ftables : TTablesListResponseTypetablesArray;
- Protected
- //Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Settables(AIndex : Integer; AValue : TTablesListResponseTypetablesArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property tables : TTablesListResponseTypetablesArray Index 8 Read Ftables Write Settables;
- end;
- TTablesListResponseClass = Class of TTablesListResponse;
-
- { --------------------------------------------------------------------
- TValueRange
- --------------------------------------------------------------------}
-
- TValueRange = Class(TGoogleBaseObject)
- Private
- Fmax : double;
- Fmin : double;
- Protected
- //Property setters
- Procedure Setmax(AIndex : Integer; AValue : double); virtual;
- Procedure Setmin(AIndex : Integer; AValue : double); virtual;
- Public
- Published
- Property max : double Index 0 Read Fmax Write Setmax;
- Property min : double Index 8 Read Fmin Write Setmin;
- end;
- TValueRangeClass = Class of TValueRange;
-
- { --------------------------------------------------------------------
- TVectorStyle
- --------------------------------------------------------------------}
-
- TVectorStyle = Class(TGoogleBaseObject)
- Private
- FdisplayRules : TVectorStyleTypedisplayRulesArray;
- FfeatureInfo : TFeatureInfo;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetdisplayRules(AIndex : Integer; AValue : TVectorStyleTypedisplayRulesArray); virtual;
- Procedure SetfeatureInfo(AIndex : Integer; AValue : TFeatureInfo); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property displayRules : TVectorStyleTypedisplayRulesArray Index 0 Read FdisplayRules Write SetdisplayRules;
- Property featureInfo : TFeatureInfo Index 8 Read FfeatureInfo Write SetfeatureInfo;
- Property _type : String Index 16 Read F_type Write Set_type;
- end;
- TVectorStyleClass = Class of TVectorStyle;
-
- { --------------------------------------------------------------------
- TZoomLevels
- --------------------------------------------------------------------}
-
- TZoomLevels = Class(TGoogleBaseObject)
- Private
- Fmax : integer;
- Fmin : integer;
- Protected
- //Property setters
- Procedure Setmax(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmin(AIndex : Integer; AValue : integer); virtual;
- Public
- Published
- Property max : integer Index 0 Read Fmax Write Setmax;
- Property min : integer Index 8 Read Fmin Write Setmin;
- end;
- TZoomLevelsClass = Class of TZoomLevels;
-
- { --------------------------------------------------------------------
- TAssetsParentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAssetsParentsResource, method List
-
- TAssetsParentsListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TAssetsParentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(id: string; AQuery : string = '') : TParentsListResponse;
- Function List(id: string; AQuery : TAssetsParentslistOptions) : TParentsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TAssetsPermissionsResource
- --------------------------------------------------------------------}
-
- TAssetsPermissionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(id: string) : TPermissionsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TAssetsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAssetsResource, method List
-
- TAssetsListOptions = Record
- bbox : String;
- createdAfter : TDatetime;
- createdBefore : TDatetime;
- creatorEmail : String;
- maxResults : integer;
- modifiedAfter : TDatetime;
- modifiedBefore : TDatetime;
- pageToken : String;
- projectId : String;
- role : String;
- search : String;
- tags : String;
- _type : String;
- end;
-
- TAssetsResource = Class(TGoogleResource)
- Private
- FParentsInstance : TAssetsParentsResource;
- FPermissionsInstance : TAssetsPermissionsResource;
- Function GetParentsInstance : TAssetsParentsResource;virtual;
- Function GetPermissionsInstance : TAssetsPermissionsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(id: string) : TAsset;
- Function List(AQuery : string = '') : TAssetsListResponse;
- Function List(AQuery : TAssetslistOptions) : TAssetsListResponse;
- Function CreateParentsResource(AOwner : TComponent) : TAssetsParentsResource;virtual;overload;
- Function CreateParentsResource : TAssetsParentsResource;virtual;overload;
- Function CreatePermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;virtual;overload;
- Function CreatePermissionsResource : TAssetsPermissionsResource;virtual;overload;
- Property ParentsResource : TAssetsParentsResource Read GetParentsInstance;
- Property PermissionsResource : TAssetsPermissionsResource Read GetPermissionsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TLayersParentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TLayersParentsResource, method List
-
- TLayersParentsListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TLayersParentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(id: string; AQuery : string = '') : TParentsListResponse;
- Function List(id: string; AQuery : TLayersParentslistOptions) : TParentsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TLayersPermissionsResource
- --------------------------------------------------------------------}
-
- TLayersPermissionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Function List(id: string) : TPermissionsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TLayersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TLayersResource, method Create
-
- TLayersCreateOptions = Record
- process : boolean;
- end;
-
-
- //Optional query Options for TLayersResource, method Get
-
- TLayersGetOptions = Record
- version : String;
- end;
-
-
- //Optional query Options for TLayersResource, method List
-
- TLayersListOptions = Record
- bbox : String;
- createdAfter : TDatetime;
- createdBefore : TDatetime;
- creatorEmail : String;
- maxResults : integer;
- modifiedAfter : TDatetime;
- modifiedBefore : TDatetime;
- pageToken : String;
- processingStatus : String;
- projectId : String;
- role : String;
- search : String;
- tags : String;
- end;
-
-
- //Optional query Options for TLayersResource, method ListPublished
-
- TLayersListPublishedOptions = Record
- maxResults : integer;
- pageToken : String;
- projectId : String;
- end;
-
-
- //Optional query Options for TLayersResource, method Publish
-
- TLayersPublishOptions = Record
- force : boolean;
- end;
-
- TLayersResource = Class(TGoogleResource)
- Private
- FParentsInstance : TLayersParentsResource;
- FPermissionsInstance : TLayersPermissionsResource;
- Function GetParentsInstance : TLayersParentsResource;virtual;
- Function GetPermissionsInstance : TLayersPermissionsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CancelProcessing(id: string) : TProcessResponse;
- Function Create(aLayer : TLayer; AQuery : string = '') : TLayer;overload;
- Function Create(aLayer : TLayer; AQuery : TLayerscreateOptions) : TLayer;overload;
- Procedure Delete(id: string);
- Function Get(id: string; AQuery : string = '') : TLayer;
- Function Get(id: string; AQuery : TLayersgetOptions) : TLayer;
- Function GetPublished(id: string) : TPublishedLayer;
- Function List(AQuery : string = '') : TLayersListResponse;
- Function List(AQuery : TLayerslistOptions) : TLayersListResponse;
- Function ListPublished(AQuery : string = '') : TPublishedLayersListResponse;
- Function ListPublished(AQuery : TLayerslistPublishedOptions) : TPublishedLayersListResponse;
- Procedure Patch(id: string; aLayer : TLayer);
- Function Process(id: string) : TProcessResponse;
- Function Publish(id: string; AQuery : string = '') : TPublishResponse;
- Function Publish(id: string; AQuery : TLayerspublishOptions) : TPublishResponse;
- Function Unpublish(id: string) : TPublishResponse;
- Function CreateParentsResource(AOwner : TComponent) : TLayersParentsResource;virtual;overload;
- Function CreateParentsResource : TLayersParentsResource;virtual;overload;
- Function CreatePermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;virtual;overload;
- Function CreatePermissionsResource : TLayersPermissionsResource;virtual;overload;
- Property ParentsResource : TLayersParentsResource Read GetParentsInstance;
- Property PermissionsResource : TLayersPermissionsResource Read GetPermissionsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TMapsPermissionsResource
- --------------------------------------------------------------------}
-
- TMapsPermissionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Function List(id: string) : TPermissionsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TMapsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TMapsResource, method Get
-
- TMapsGetOptions = Record
- version : String;
- end;
-
-
- //Optional query Options for TMapsResource, method List
-
- TMapsListOptions = Record
- bbox : String;
- createdAfter : TDatetime;
- createdBefore : TDatetime;
- creatorEmail : String;
- maxResults : integer;
- modifiedAfter : TDatetime;
- modifiedBefore : TDatetime;
- pageToken : String;
- processingStatus : String;
- projectId : String;
- role : String;
- search : String;
- tags : String;
- end;
-
-
- //Optional query Options for TMapsResource, method ListPublished
-
- TMapsListPublishedOptions = Record
- maxResults : integer;
- pageToken : String;
- projectId : String;
- end;
-
-
- //Optional query Options for TMapsResource, method Publish
-
- TMapsPublishOptions = Record
- force : boolean;
- end;
-
- TMapsResource = Class(TGoogleResource)
- Private
- FPermissionsInstance : TMapsPermissionsResource;
- Function GetPermissionsInstance : TMapsPermissionsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(aMap : TMap) : TMap;overload;
- Procedure Delete(id: string);
- Function Get(id: string; AQuery : string = '') : TMap;
- Function Get(id: string; AQuery : TMapsgetOptions) : TMap;
- Function GetPublished(id: string) : TPublishedMap;
- Function List(AQuery : string = '') : TMapsListResponse;
- Function List(AQuery : TMapslistOptions) : TMapsListResponse;
- Function ListPublished(AQuery : string = '') : TPublishedMapsListResponse;
- Function ListPublished(AQuery : TMapslistPublishedOptions) : TPublishedMapsListResponse;
- Procedure Patch(id: string; aMap : TMap);
- Function Publish(id: string; AQuery : string = '') : TPublishResponse;
- Function Publish(id: string; AQuery : TMapspublishOptions) : TPublishResponse;
- Function Unpublish(id: string) : TPublishResponse;
- Function CreatePermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;virtual;overload;
- Function CreatePermissionsResource : TMapsPermissionsResource;virtual;overload;
- Property PermissionsResource : TMapsPermissionsResource Read GetPermissionsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsIconsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TProjectsIconsResource, method List
-
- TProjectsIconsListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TProjectsIconsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(projectId: string; aIcon : TIcon) : TIcon;overload;
- Function Get(id: string; projectId: string) : TIcon;
- Function List(projectId: string; AQuery : string = '') : TIconsListResponse;
- Function List(projectId: string; AQuery : TProjectsIconslistOptions) : TIconsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsResource
- --------------------------------------------------------------------}
-
- TProjectsResource = Class(TGoogleResource)
- Private
- FIconsInstance : TProjectsIconsResource;
- Function GetIconsInstance : TProjectsIconsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List : TProjectsListResponse;
- Function CreateIconsResource(AOwner : TComponent) : TProjectsIconsResource;virtual;overload;
- Function CreateIconsResource : TProjectsIconsResource;virtual;overload;
- Property IconsResource : TProjectsIconsResource Read GetIconsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TRasterCollectionsParentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TRasterCollectionsParentsResource, method List
-
- TRasterCollectionsParentsListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TRasterCollectionsParentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(id: string; AQuery : string = '') : TParentsListResponse;
- Function List(id: string; AQuery : TRasterCollectionsParentslistOptions) : TParentsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TRasterCollectionsPermissionsResource
- --------------------------------------------------------------------}
-
- TRasterCollectionsPermissionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Function List(id: string) : TPermissionsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TRasterCollectionsRastersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TRasterCollectionsRastersResource, method List
-
- TRasterCollectionsRastersListOptions = Record
- bbox : String;
- createdAfter : TDatetime;
- createdBefore : TDatetime;
- creatorEmail : String;
- maxResults : integer;
- modifiedAfter : TDatetime;
- modifiedBefore : TDatetime;
- pageToken : String;
- role : String;
- search : String;
- tags : String;
- end;
-
- TRasterCollectionsRastersResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function BatchDelete(id: string; aRasterCollectionsRasterBatchDeleteRequest : TRasterCollectionsRasterBatchDeleteRequest) : TRasterCollectionsRastersBatchDeleteResponse;
- Function BatchInsert(id: string; aRasterCollectionsRastersBatchInsertRequest : TRasterCollectionsRastersBatchInsertRequest) : TRasterCollectionsRastersBatchInsertResponse;
- Function List(id: string; AQuery : string = '') : TRasterCollectionsRastersListResponse;
- Function List(id: string; AQuery : TRasterCollectionsRasterslistOptions) : TRasterCollectionsRastersListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TRasterCollectionsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TRasterCollectionsResource, method List
-
- TRasterCollectionsListOptions = Record
- bbox : String;
- createdAfter : TDatetime;
- createdBefore : TDatetime;
- creatorEmail : String;
- maxResults : integer;
- modifiedAfter : TDatetime;
- modifiedBefore : TDatetime;
- pageToken : String;
- processingStatus : String;
- projectId : String;
- role : String;
- search : String;
- tags : String;
- end;
-
- TRasterCollectionsResource = Class(TGoogleResource)
- Private
- FParentsInstance : TRasterCollectionsParentsResource;
- FPermissionsInstance : TRasterCollectionsPermissionsResource;
- FRastersInstance : TRasterCollectionsRastersResource;
- Function GetParentsInstance : TRasterCollectionsParentsResource;virtual;
- Function GetPermissionsInstance : TRasterCollectionsPermissionsResource;virtual;
- Function GetRastersInstance : TRasterCollectionsRastersResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CancelProcessing(id: string) : TProcessResponse;
- Function Create(aRasterCollection : TRasterCollection) : TRasterCollection;overload;
- Procedure Delete(id: string);
- Function Get(id: string) : TRasterCollection;
- Function List(AQuery : string = '') : TRasterCollectionsListResponse;
- Function List(AQuery : TRasterCollectionslistOptions) : TRasterCollectionsListResponse;
- Procedure Patch(id: string; aRasterCollection : TRasterCollection);
- Function Process(id: string) : TProcessResponse;
- Function CreateParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;virtual;overload;
- Function CreateParentsResource : TRasterCollectionsParentsResource;virtual;overload;
- Function CreatePermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;virtual;overload;
- Function CreatePermissionsResource : TRasterCollectionsPermissionsResource;virtual;overload;
- Function CreateRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;virtual;overload;
- Function CreateRastersResource : TRasterCollectionsRastersResource;virtual;overload;
- Property ParentsResource : TRasterCollectionsParentsResource Read GetParentsInstance;
- Property PermissionsResource : TRasterCollectionsPermissionsResource Read GetPermissionsInstance;
- Property RastersResource : TRasterCollectionsRastersResource Read GetRastersInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TRastersFilesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TRastersFilesResource, method Insert
-
- TRastersFilesInsertOptions = Record
- filename : String;
- end;
-
- TRastersFilesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Insert(id: string; AQuery : string = '');
- Procedure Insert(id: string; AQuery : TRastersFilesinsertOptions);
- end;
-
-
- { --------------------------------------------------------------------
- TRastersParentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TRastersParentsResource, method List
-
- TRastersParentsListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TRastersParentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(id: string; AQuery : string = '') : TParentsListResponse;
- Function List(id: string; AQuery : TRastersParentslistOptions) : TParentsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TRastersPermissionsResource
- --------------------------------------------------------------------}
-
- TRastersPermissionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Function List(id: string) : TPermissionsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TRastersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TRastersResource, method List
-
- TRastersListOptions = Record
- bbox : String;
- createdAfter : TDatetime;
- createdBefore : TDatetime;
- creatorEmail : String;
- maxResults : integer;
- modifiedAfter : TDatetime;
- modifiedBefore : TDatetime;
- pageToken : String;
- processingStatus : String;
- projectId : String;
- role : String;
- search : String;
- tags : String;
- end;
-
- TRastersResource = Class(TGoogleResource)
- Private
- FFilesInstance : TRastersFilesResource;
- FParentsInstance : TRastersParentsResource;
- FPermissionsInstance : TRastersPermissionsResource;
- Function GetFilesInstance : TRastersFilesResource;virtual;
- Function GetParentsInstance : TRastersParentsResource;virtual;
- Function GetPermissionsInstance : TRastersPermissionsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(id: string);
- Function Get(id: string) : TRaster;
- Function List(AQuery : string = '') : TRastersListResponse;
- Function List(AQuery : TRasterslistOptions) : TRastersListResponse;
- Procedure Patch(id: string; aRaster : TRaster);
- Function Process(id: string) : TProcessResponse;
- Function Upload(aRaster : TRaster) : TRaster;
- Function CreateFilesResource(AOwner : TComponent) : TRastersFilesResource;virtual;overload;
- Function CreateFilesResource : TRastersFilesResource;virtual;overload;
- Function CreateParentsResource(AOwner : TComponent) : TRastersParentsResource;virtual;overload;
- Function CreateParentsResource : TRastersParentsResource;virtual;overload;
- Function CreatePermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;virtual;overload;
- Function CreatePermissionsResource : TRastersPermissionsResource;virtual;overload;
- Property FilesResource : TRastersFilesResource Read GetFilesInstance;
- Property ParentsResource : TRastersParentsResource Read GetParentsInstance;
- Property PermissionsResource : TRastersPermissionsResource Read GetPermissionsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TTablesFeaturesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TTablesFeaturesResource, method Get
-
- TTablesFeaturesGetOptions = Record
- select : String;
- version : String;
- end;
-
-
- //Optional query Options for TTablesFeaturesResource, method List
-
- TTablesFeaturesListOptions = Record
- include : String;
- intersects : String;
- limit : integer;
- maxResults : integer;
- orderBy : String;
- pageToken : String;
- select : String;
- version : String;
- where : String;
- end;
-
- TTablesFeaturesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure BatchDelete(id: string; aFeaturesBatchDeleteRequest : TFeaturesBatchDeleteRequest);
- Procedure BatchInsert(id: string; aFeaturesBatchInsertRequest : TFeaturesBatchInsertRequest);
- Procedure BatchPatch(id: string; aFeaturesBatchPatchRequest : TFeaturesBatchPatchRequest);
- Function Get(id: string; tableId: string; AQuery : string = '') : TFeature;
- Function Get(id: string; tableId: string; AQuery : TTablesFeaturesgetOptions) : TFeature;
- Function List(id: string; AQuery : string = '') : TFeaturesListResponse;
- Function List(id: string; AQuery : TTablesFeatureslistOptions) : TFeaturesListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TTablesFilesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TTablesFilesResource, method Insert
-
- TTablesFilesInsertOptions = Record
- filename : String;
- end;
-
- TTablesFilesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Insert(id: string; AQuery : string = '');
- Procedure Insert(id: string; AQuery : TTablesFilesinsertOptions);
- end;
-
-
- { --------------------------------------------------------------------
- TTablesParentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TTablesParentsResource, method List
-
- TTablesParentsListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TTablesParentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(id: string; AQuery : string = '') : TParentsListResponse;
- Function List(id: string; AQuery : TTablesParentslistOptions) : TParentsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TTablesPermissionsResource
- --------------------------------------------------------------------}
-
- TTablesPermissionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Function BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Function List(id: string) : TPermissionsListResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TTablesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TTablesResource, method Get
-
- TTablesGetOptions = Record
- version : String;
- end;
-
-
- //Optional query Options for TTablesResource, method List
-
- TTablesListOptions = Record
- bbox : String;
- createdAfter : TDatetime;
- createdBefore : TDatetime;
- creatorEmail : String;
- maxResults : integer;
- modifiedAfter : TDatetime;
- modifiedBefore : TDatetime;
- pageToken : String;
- processingStatus : String;
- projectId : String;
- role : String;
- search : String;
- tags : String;
- end;
-
- TTablesResource = Class(TGoogleResource)
- Private
- FFeaturesInstance : TTablesFeaturesResource;
- FFilesInstance : TTablesFilesResource;
- FParentsInstance : TTablesParentsResource;
- FPermissionsInstance : TTablesPermissionsResource;
- Function GetFeaturesInstance : TTablesFeaturesResource;virtual;
- Function GetFilesInstance : TTablesFilesResource;virtual;
- Function GetParentsInstance : TTablesParentsResource;virtual;
- Function GetPermissionsInstance : TTablesPermissionsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(aTable : TTable) : TTable;overload;
- Procedure Delete(id: string);
- Function Get(id: string; AQuery : string = '') : TTable;
- Function Get(id: string; AQuery : TTablesgetOptions) : TTable;
- Function List(AQuery : string = '') : TTablesListResponse;
- Function List(AQuery : TTableslistOptions) : TTablesListResponse;
- Procedure Patch(id: string; aTable : TTable);
- Function Process(id: string) : TProcessResponse;
- Function Upload(aTable : TTable) : TTable;
- Function CreateFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;virtual;overload;
- Function CreateFeaturesResource : TTablesFeaturesResource;virtual;overload;
- Function CreateFilesResource(AOwner : TComponent) : TTablesFilesResource;virtual;overload;
- Function CreateFilesResource : TTablesFilesResource;virtual;overload;
- Function CreateParentsResource(AOwner : TComponent) : TTablesParentsResource;virtual;overload;
- Function CreateParentsResource : TTablesParentsResource;virtual;overload;
- Function CreatePermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;virtual;overload;
- Function CreatePermissionsResource : TTablesPermissionsResource;virtual;overload;
- Property FeaturesResource : TTablesFeaturesResource Read GetFeaturesInstance;
- Property FilesResource : TTablesFilesResource Read GetFilesInstance;
- Property ParentsResource : TTablesParentsResource Read GetParentsInstance;
- Property PermissionsResource : TTablesPermissionsResource Read GetPermissionsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TMapsengineAPI
- --------------------------------------------------------------------}
-
- TMapsengineAPI = Class(TGoogleAPI)
- Private
- FAssetsParentsInstance : TAssetsParentsResource;
- FAssetsPermissionsInstance : TAssetsPermissionsResource;
- FAssetsInstance : TAssetsResource;
- FLayersParentsInstance : TLayersParentsResource;
- FLayersPermissionsInstance : TLayersPermissionsResource;
- FLayersInstance : TLayersResource;
- FMapsPermissionsInstance : TMapsPermissionsResource;
- FMapsInstance : TMapsResource;
- FProjectsIconsInstance : TProjectsIconsResource;
- FProjectsInstance : TProjectsResource;
- FRasterCollectionsParentsInstance : TRasterCollectionsParentsResource;
- FRasterCollectionsPermissionsInstance : TRasterCollectionsPermissionsResource;
- FRasterCollectionsRastersInstance : TRasterCollectionsRastersResource;
- FRasterCollectionsInstance : TRasterCollectionsResource;
- FRastersFilesInstance : TRastersFilesResource;
- FRastersParentsInstance : TRastersParentsResource;
- FRastersPermissionsInstance : TRastersPermissionsResource;
- FRastersInstance : TRastersResource;
- FTablesFeaturesInstance : TTablesFeaturesResource;
- FTablesFilesInstance : TTablesFilesResource;
- FTablesParentsInstance : TTablesParentsResource;
- FTablesPermissionsInstance : TTablesPermissionsResource;
- FTablesInstance : TTablesResource;
- Function GetAssetsParentsInstance : TAssetsParentsResource;virtual;
- Function GetAssetsPermissionsInstance : TAssetsPermissionsResource;virtual;
- Function GetAssetsInstance : TAssetsResource;virtual;
- Function GetLayersParentsInstance : TLayersParentsResource;virtual;
- Function GetLayersPermissionsInstance : TLayersPermissionsResource;virtual;
- Function GetLayersInstance : TLayersResource;virtual;
- Function GetMapsPermissionsInstance : TMapsPermissionsResource;virtual;
- Function GetMapsInstance : TMapsResource;virtual;
- Function GetProjectsIconsInstance : TProjectsIconsResource;virtual;
- Function GetProjectsInstance : TProjectsResource;virtual;
- Function GetRasterCollectionsParentsInstance : TRasterCollectionsParentsResource;virtual;
- Function GetRasterCollectionsPermissionsInstance : TRasterCollectionsPermissionsResource;virtual;
- Function GetRasterCollectionsRastersInstance : TRasterCollectionsRastersResource;virtual;
- Function GetRasterCollectionsInstance : TRasterCollectionsResource;virtual;
- Function GetRastersFilesInstance : TRastersFilesResource;virtual;
- Function GetRastersParentsInstance : TRastersParentsResource;virtual;
- Function GetRastersPermissionsInstance : TRastersPermissionsResource;virtual;
- Function GetRastersInstance : TRastersResource;virtual;
- Function GetTablesFeaturesInstance : TTablesFeaturesResource;virtual;
- Function GetTablesFilesInstance : TTablesFilesResource;virtual;
- Function GetTablesParentsInstance : TTablesParentsResource;virtual;
- Function GetTablesPermissionsInstance : TTablesPermissionsResource;virtual;
- Function GetTablesInstance : TTablesResource;virtual;
- Public
- //Override class functions with API info
- Class Function APIName : String; override;
- Class Function APIVersion : String; override;
- Class Function APIRevision : String; override;
- Class Function APIID : String; override;
- Class Function APITitle : String; override;
- Class Function APIDescription : String; override;
- Class Function APIOwnerDomain : String; override;
- Class Function APIOwnerName : String; override;
- Class Function APIIcon16 : String; override;
- Class Function APIIcon32 : String; override;
- Class Function APIdocumentationLink : String; override;
- Class Function APIrootUrl : string; override;
- Class Function APIbasePath : string;override;
- Class Function APIbaseURL : String;override;
- Class Function APIProtocol : string;override;
- Class Function APIservicePath : string;override;
- Class Function APIbatchPath : String;override;
- Class Function APIAuthScopes : TScopeInfoArray;override;
- Class Function APINeedsAuth : Boolean;override;
- Class Procedure RegisterAPIResources; override;
- //Add create function for resources
- Function CreateAssetsParentsResource(AOwner : TComponent) : TAssetsParentsResource;virtual;overload;
- Function CreateAssetsParentsResource : TAssetsParentsResource;virtual;overload;
- Function CreateAssetsPermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;virtual;overload;
- Function CreateAssetsPermissionsResource : TAssetsPermissionsResource;virtual;overload;
- Function CreateAssetsResource(AOwner : TComponent) : TAssetsResource;virtual;overload;
- Function CreateAssetsResource : TAssetsResource;virtual;overload;
- Function CreateLayersParentsResource(AOwner : TComponent) : TLayersParentsResource;virtual;overload;
- Function CreateLayersParentsResource : TLayersParentsResource;virtual;overload;
- Function CreateLayersPermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;virtual;overload;
- Function CreateLayersPermissionsResource : TLayersPermissionsResource;virtual;overload;
- Function CreateLayersResource(AOwner : TComponent) : TLayersResource;virtual;overload;
- Function CreateLayersResource : TLayersResource;virtual;overload;
- Function CreateMapsPermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;virtual;overload;
- Function CreateMapsPermissionsResource : TMapsPermissionsResource;virtual;overload;
- Function CreateMapsResource(AOwner : TComponent) : TMapsResource;virtual;overload;
- Function CreateMapsResource : TMapsResource;virtual;overload;
- Function CreateProjectsIconsResource(AOwner : TComponent) : TProjectsIconsResource;virtual;overload;
- Function CreateProjectsIconsResource : TProjectsIconsResource;virtual;overload;
- Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
- Function CreateProjectsResource : TProjectsResource;virtual;overload;
- Function CreateRasterCollectionsParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;virtual;overload;
- Function CreateRasterCollectionsParentsResource : TRasterCollectionsParentsResource;virtual;overload;
- Function CreateRasterCollectionsPermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;virtual;overload;
- Function CreateRasterCollectionsPermissionsResource : TRasterCollectionsPermissionsResource;virtual;overload;
- Function CreateRasterCollectionsRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;virtual;overload;
- Function CreateRasterCollectionsRastersResource : TRasterCollectionsRastersResource;virtual;overload;
- Function CreateRasterCollectionsResource(AOwner : TComponent) : TRasterCollectionsResource;virtual;overload;
- Function CreateRasterCollectionsResource : TRasterCollectionsResource;virtual;overload;
- Function CreateRastersFilesResource(AOwner : TComponent) : TRastersFilesResource;virtual;overload;
- Function CreateRastersFilesResource : TRastersFilesResource;virtual;overload;
- Function CreateRastersParentsResource(AOwner : TComponent) : TRastersParentsResource;virtual;overload;
- Function CreateRastersParentsResource : TRastersParentsResource;virtual;overload;
- Function CreateRastersPermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;virtual;overload;
- Function CreateRastersPermissionsResource : TRastersPermissionsResource;virtual;overload;
- Function CreateRastersResource(AOwner : TComponent) : TRastersResource;virtual;overload;
- Function CreateRastersResource : TRastersResource;virtual;overload;
- Function CreateTablesFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;virtual;overload;
- Function CreateTablesFeaturesResource : TTablesFeaturesResource;virtual;overload;
- Function CreateTablesFilesResource(AOwner : TComponent) : TTablesFilesResource;virtual;overload;
- Function CreateTablesFilesResource : TTablesFilesResource;virtual;overload;
- Function CreateTablesParentsResource(AOwner : TComponent) : TTablesParentsResource;virtual;overload;
- Function CreateTablesParentsResource : TTablesParentsResource;virtual;overload;
- Function CreateTablesPermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;virtual;overload;
- Function CreateTablesPermissionsResource : TTablesPermissionsResource;virtual;overload;
- Function CreateTablesResource(AOwner : TComponent) : TTablesResource;virtual;overload;
- Function CreateTablesResource : TTablesResource;virtual;overload;
- //Add default on-demand instances for resources
- Property AssetsParentsResource : TAssetsParentsResource Read GetAssetsParentsInstance;
- Property AssetsPermissionsResource : TAssetsPermissionsResource Read GetAssetsPermissionsInstance;
- Property AssetsResource : TAssetsResource Read GetAssetsInstance;
- Property LayersParentsResource : TLayersParentsResource Read GetLayersParentsInstance;
- Property LayersPermissionsResource : TLayersPermissionsResource Read GetLayersPermissionsInstance;
- Property LayersResource : TLayersResource Read GetLayersInstance;
- Property MapsPermissionsResource : TMapsPermissionsResource Read GetMapsPermissionsInstance;
- Property MapsResource : TMapsResource Read GetMapsInstance;
- Property ProjectsIconsResource : TProjectsIconsResource Read GetProjectsIconsInstance;
- Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
- Property RasterCollectionsParentsResource : TRasterCollectionsParentsResource Read GetRasterCollectionsParentsInstance;
- Property RasterCollectionsPermissionsResource : TRasterCollectionsPermissionsResource Read GetRasterCollectionsPermissionsInstance;
- Property RasterCollectionsRastersResource : TRasterCollectionsRastersResource Read GetRasterCollectionsRastersInstance;
- Property RasterCollectionsResource : TRasterCollectionsResource Read GetRasterCollectionsInstance;
- Property RastersFilesResource : TRastersFilesResource Read GetRastersFilesInstance;
- Property RastersParentsResource : TRastersParentsResource Read GetRastersParentsInstance;
- Property RastersPermissionsResource : TRastersPermissionsResource Read GetRastersPermissionsInstance;
- Property RastersResource : TRastersResource Read GetRastersInstance;
- Property TablesFeaturesResource : TTablesFeaturesResource Read GetTablesFeaturesInstance;
- Property TablesFilesResource : TTablesFilesResource Read GetTablesFilesInstance;
- Property TablesParentsResource : TTablesParentsResource Read GetTablesParentsInstance;
- Property TablesPermissionsResource : TTablesPermissionsResource Read GetTablesPermissionsInstance;
- Property TablesResource : TTablesResource Read GetTablesInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TAcquisitionTime
- --------------------------------------------------------------------}
- Procedure TAcquisitionTime.Set_end(AIndex : Integer; AValue : TDatetime);
- begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAcquisitionTime.Setprecision(AIndex : Integer; const AValue : String);
- begin
- If (Fprecision=AValue) then exit;
- Fprecision:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAcquisitionTime.Setstart(AIndex : Integer; AValue : TDatetime);
- begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TAcquisitionTime.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_end' : Result:='end';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TAsset
- --------------------------------------------------------------------}
- Procedure TAsset.Setbbox(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fbbox=AValue) then exit;
- Fbbox:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.SetcreationTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreationTime=AValue) then exit;
- FcreationTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.SetcreatorEmail(AIndex : Integer; const AValue : String);
- begin
- If (FcreatorEmail=AValue) then exit;
- FcreatorEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FlastModifiedTime=AValue) then exit;
- FlastModifiedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.SetlastModifierEmail(AIndex : Integer; const AValue : String);
- begin
- If (FlastModifierEmail=AValue) then exit;
- FlastModifierEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.Setresource(AIndex : Integer; const AValue : String);
- begin
- If (Fresource=AValue) then exit;
- Fresource:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.Settags(AIndex : Integer; AValue : TStringArray);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAsset.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
- begin
- If (FwritersCanEditPermissions=AValue) then exit;
- FwritersCanEditPermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TAsset.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TAsset.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'bbox' : SetLength(Fbbox,ALength);
- 'tags' : SetLength(Ftags,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TAssetsListResponse
- --------------------------------------------------------------------}
- Procedure TAssetsListResponse.Setassets(AIndex : Integer; AValue : TAssetsListResponseTypeassetsArray);
- begin
- If (Fassets=AValue) then exit;
- Fassets:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAssetsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TAssetsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'assets' : SetLength(Fassets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TBorder
- --------------------------------------------------------------------}
- Procedure TBorder.Setcolor(AIndex : Integer; const AValue : String);
- begin
- If (Fcolor=AValue) then exit;
- Fcolor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBorder.Setopacity(AIndex : Integer; AValue : double);
- begin
- If (Fopacity=AValue) then exit;
- Fopacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBorder.Setwidth(AIndex : Integer; AValue : double);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TColor
- --------------------------------------------------------------------}
- Procedure TColor.Setcolor(AIndex : Integer; const AValue : String);
- begin
- If (Fcolor=AValue) then exit;
- Fcolor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColor.Setopacity(AIndex : Integer; AValue : double);
- begin
- If (Fopacity=AValue) then exit;
- Fopacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TDatasource
- --------------------------------------------------------------------}
- Procedure TDatasource.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TDisplayRule
- --------------------------------------------------------------------}
- Procedure TDisplayRule.Setfilters(AIndex : Integer; AValue : TDisplayRuleTypefiltersArray);
- begin
- If (Ffilters=AValue) then exit;
- Ffilters:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDisplayRule.SetlineOptions(AIndex : Integer; AValue : TLineStyle);
- begin
- If (FlineOptions=AValue) then exit;
- FlineOptions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDisplayRule.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDisplayRule.SetpointOptions(AIndex : Integer; AValue : TPointStyle);
- begin
- If (FpointOptions=AValue) then exit;
- FpointOptions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDisplayRule.SetpolygonOptions(AIndex : Integer; AValue : TPolygonStyle);
- begin
- If (FpolygonOptions=AValue) then exit;
- FpolygonOptions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDisplayRule.SetzoomLevels(AIndex : Integer; AValue : TZoomLevels);
- begin
- If (FzoomLevels=AValue) then exit;
- FzoomLevels:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TDisplayRule.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'filters' : SetLength(Ffilters,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TFeature
- --------------------------------------------------------------------}
- Procedure TFeature.Setgeometry(AIndex : Integer; AValue : TGeoJsonGeometry);
- begin
- If (Fgeometry=AValue) then exit;
- Fgeometry:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeature.Setproperties(AIndex : Integer; AValue : TGeoJsonProperties);
- begin
- If (Fproperties=AValue) then exit;
- Fproperties:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeature.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TFeature.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TFeatureInfo
- --------------------------------------------------------------------}
- Procedure TFeatureInfo.Setcontent(AIndex : Integer; const AValue : String);
- begin
- If (Fcontent=AValue) then exit;
- Fcontent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TFeaturesBatchDeleteRequest
- --------------------------------------------------------------------}
- Procedure TFeaturesBatchDeleteRequest.Setgx_ids(AIndex : Integer; AValue : TStringArray);
- begin
- If (Fgx_ids=AValue) then exit;
- Fgx_ids:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeaturesBatchDeleteRequest.SetprimaryKeys(AIndex : Integer; AValue : TStringArray);
- begin
- If (FprimaryKeys=AValue) then exit;
- FprimaryKeys:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TFeaturesBatchDeleteRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'gx_ids' : SetLength(Fgx_ids,ALength);
- 'primarykeys' : SetLength(FprimaryKeys,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TFeaturesBatchInsertRequest
- --------------------------------------------------------------------}
- Procedure TFeaturesBatchInsertRequest.Setfeatures(AIndex : Integer; AValue : TFeaturesBatchInsertRequestTypefeaturesArray);
- begin
- If (Ffeatures=AValue) then exit;
- Ffeatures:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeaturesBatchInsertRequest.SetnormalizeGeometries(AIndex : Integer; AValue : boolean);
- begin
- If (FnormalizeGeometries=AValue) then exit;
- FnormalizeGeometries:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TFeaturesBatchInsertRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'features' : SetLength(Ffeatures,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TFeaturesBatchPatchRequest
- --------------------------------------------------------------------}
- Procedure TFeaturesBatchPatchRequest.Setfeatures(AIndex : Integer; AValue : TFeaturesBatchPatchRequestTypefeaturesArray);
- begin
- If (Ffeatures=AValue) then exit;
- Ffeatures:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeaturesBatchPatchRequest.SetnormalizeGeometries(AIndex : Integer; AValue : boolean);
- begin
- If (FnormalizeGeometries=AValue) then exit;
- FnormalizeGeometries:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TFeaturesBatchPatchRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'features' : SetLength(Ffeatures,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TFeaturesListResponse
- --------------------------------------------------------------------}
- Procedure TFeaturesListResponse.SetallowedQueriesPerSecond(AIndex : Integer; AValue : double);
- begin
- If (FallowedQueriesPerSecond=AValue) then exit;
- FallowedQueriesPerSecond:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeaturesListResponse.Setfeatures(AIndex : Integer; AValue : TFeaturesListResponseTypefeaturesArray);
- begin
- If (Ffeatures=AValue) then exit;
- Ffeatures:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeaturesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeaturesListResponse.Setschema(AIndex : Integer; AValue : TSchema);
- begin
- If (Fschema=AValue) then exit;
- Fschema:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFeaturesListResponse.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TFeaturesListResponse.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TFeaturesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'features' : SetLength(Ffeatures,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TFile
- --------------------------------------------------------------------}
- Procedure TFile.Setfilename(AIndex : Integer; const AValue : String);
- begin
- If (Ffilename=AValue) then exit;
- Ffilename:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFile.Setsize(AIndex : Integer; const AValue : String);
- begin
- If (Fsize=AValue) then exit;
- Fsize:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFile.SetuploadStatus(AIndex : Integer; const AValue : String);
- begin
- If (FuploadStatus=AValue) then exit;
- FuploadStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TFilter
- --------------------------------------------------------------------}
- Procedure TFilter.Setcolumn(AIndex : Integer; const AValue : String);
- begin
- If (Fcolumn=AValue) then exit;
- Fcolumn:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFilter.Set_operator(AIndex : Integer; const AValue : String);
- begin
- If (F_operator=AValue) then exit;
- F_operator:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFilter.Setvalue(AIndex : Integer; AValue : TJSONSchema);
- begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TFilter.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_operator' : Result:='operator';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TGeoJsonGeometry
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TGeoJsonGeometryCollection
- --------------------------------------------------------------------}
- Procedure TGeoJsonGeometryCollection.Setgeometries(AIndex : Integer; AValue : TGeoJsonGeometryCollectionTypegeometriesArray);
- begin
- If (Fgeometries=AValue) then exit;
- Fgeometries:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeoJsonGeometryCollection.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeoJsonGeometryCollection.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGeoJsonGeometryCollection.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'geometries' : SetLength(Fgeometries,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TGeoJsonLineString
- --------------------------------------------------------------------}
- Procedure TGeoJsonLineString.Setcoordinates(AIndex : Integer; AValue : TGeoJsonLineStringTypecoordinatesArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeoJsonLineString.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeoJsonLineString.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGeoJsonLineString.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TGeoJsonMultiLineString
- --------------------------------------------------------------------}
- Procedure TGeoJsonMultiLineString.Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiLineStringTypecoordinatesArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeoJsonMultiLineString.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeoJsonMultiLineString.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGeoJsonMultiLineString.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TGeoJsonMultiPoint
- --------------------------------------------------------------------}
- Procedure TGeoJsonMultiPoint.Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPointTypecoordinatesArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeoJsonMultiPoint.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeoJsonMultiPoint.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGeoJsonMultiPoint.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TGeoJsonMultiPolygon
- --------------------------------------------------------------------}
- Procedure TGeoJsonMultiPolygon.Setcoordinates(AIndex : Integer; AValue : TGeoJsonMultiPolygonTypecoordinatesArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeoJsonMultiPolygon.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeoJsonMultiPolygon.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGeoJsonMultiPolygon.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TGeoJsonPoint
- --------------------------------------------------------------------}
- Procedure TGeoJsonPoint.Setcoordinates(AIndex : Integer; AValue : TGeoJsonPosition);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeoJsonPoint.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeoJsonPoint.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TGeoJsonPolygon
- --------------------------------------------------------------------}
- Procedure TGeoJsonPolygon.Setcoordinates(AIndex : Integer; AValue : TGeoJsonPolygonTypecoordinatesArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeoJsonPolygon.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeoJsonPolygon.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGeoJsonPolygon.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TGeoJsonProperties
- --------------------------------------------------------------------}
- Class Function TGeoJsonProperties.AllowAdditionalProperties : Boolean;
- begin
- Result:=True;
- end;
- { --------------------------------------------------------------------
- TIcon
- --------------------------------------------------------------------}
- Procedure TIcon.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TIcon.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TIcon.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TIconStyle
- --------------------------------------------------------------------}
- Procedure TIconStyle.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TIconStyle.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TIconStyle.SetscaledShape(AIndex : Integer; AValue : TScaledShape);
- begin
- If (FscaledShape=AValue) then exit;
- FscaledShape:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TIconStyle.SetscalingFunction(AIndex : Integer; AValue : TScalingFunction);
- begin
- If (FscalingFunction=AValue) then exit;
- FscalingFunction:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TIconsListResponse
- --------------------------------------------------------------------}
- Procedure TIconsListResponse.Seticons(AIndex : Integer; AValue : TIconsListResponseTypeiconsArray);
- begin
- If (Ficons=AValue) then exit;
- Ficons:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TIconsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TIconsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'icons' : SetLength(Ficons,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TLabelStyle
- --------------------------------------------------------------------}
- Procedure TLabelStyle.Setcolor(AIndex : Integer; const AValue : String);
- begin
- If (Fcolor=AValue) then exit;
- Fcolor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLabelStyle.Setcolumn(AIndex : Integer; const AValue : String);
- begin
- If (Fcolumn=AValue) then exit;
- Fcolumn:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLabelStyle.SetfontStyle(AIndex : Integer; const AValue : String);
- begin
- If (FfontStyle=AValue) then exit;
- FfontStyle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLabelStyle.SetfontWeight(AIndex : Integer; const AValue : String);
- begin
- If (FfontWeight=AValue) then exit;
- FfontWeight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLabelStyle.Setopacity(AIndex : Integer; AValue : double);
- begin
- If (Fopacity=AValue) then exit;
- Fopacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLabelStyle.Setoutline(AIndex : Integer; AValue : TColor);
- begin
- If (Foutline=AValue) then exit;
- Foutline:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLabelStyle.Setsize(AIndex : Integer; AValue : double);
- begin
- If (Fsize=AValue) then exit;
- Fsize:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TLayer
- --------------------------------------------------------------------}
- Procedure TLayer.Setbbox(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fbbox=AValue) then exit;
- Fbbox:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetcreationTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreationTime=AValue) then exit;
- FcreationTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetcreatorEmail(AIndex : Integer; const AValue : String);
- begin
- If (FcreatorEmail=AValue) then exit;
- FcreatorEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetdatasourceType(AIndex : Integer; const AValue : String);
- begin
- If (FdatasourceType=AValue) then exit;
- FdatasourceType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.Setdatasources(AIndex : Integer; AValue : TDatasources);
- begin
- If (Fdatasources=AValue) then exit;
- Fdatasources:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetdraftAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FdraftAccessList=AValue) then exit;
- FdraftAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FlastModifiedTime=AValue) then exit;
- FlastModifiedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetlastModifierEmail(AIndex : Integer; const AValue : String);
- begin
- If (FlastModifierEmail=AValue) then exit;
- FlastModifierEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetlayerType(AIndex : Integer; const AValue : String);
- begin
- If (FlayerType=AValue) then exit;
- FlayerType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetprocessingStatus(AIndex : Integer; const AValue : String);
- begin
- If (FprocessingStatus=AValue) then exit;
- FprocessingStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetpublishedAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FpublishedAccessList=AValue) then exit;
- FpublishedAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetpublishingStatus(AIndex : Integer; const AValue : String);
- begin
- If (FpublishingStatus=AValue) then exit;
- FpublishingStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.Setstyle(AIndex : Integer; AValue : TVectorStyle);
- begin
- If (Fstyle=AValue) then exit;
- Fstyle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.Settags(AIndex : Integer; AValue : TTags);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayer.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
- begin
- If (FwritersCanEditPermissions=AValue) then exit;
- FwritersCanEditPermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TLayer.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'bbox' : SetLength(Fbbox,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TLayersListResponse
- --------------------------------------------------------------------}
- Procedure TLayersListResponse.Setlayers(AIndex : Integer; AValue : TLayersListResponseTypelayersArray);
- begin
- If (Flayers=AValue) then exit;
- Flayers:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLayersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TLayersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'layers' : SetLength(Flayers,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TLineStyleTypestroke
- --------------------------------------------------------------------}
- Procedure TLineStyleTypestroke.Setcolor(AIndex : Integer; const AValue : String);
- begin
- If (Fcolor=AValue) then exit;
- Fcolor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyleTypestroke.Setopacity(AIndex : Integer; AValue : double);
- begin
- If (Fopacity=AValue) then exit;
- Fopacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyleTypestroke.Setwidth(AIndex : Integer; AValue : double);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TLineStyle
- --------------------------------------------------------------------}
- Procedure TLineStyle.Setborder(AIndex : Integer; AValue : TBorder);
- begin
- If (Fborder=AValue) then exit;
- Fborder:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyle.Setdash(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fdash=AValue) then exit;
- Fdash:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyle.Set_label(AIndex : Integer; AValue : TLabelStyle);
- begin
- If (F_label=AValue) then exit;
- F_label:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyle.Setstroke(AIndex : Integer; AValue : TLineStyleTypestroke);
- begin
- If (Fstroke=AValue) then exit;
- Fstroke:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TLineStyle.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_label' : Result:='label';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TLineStyle.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'dash' : SetLength(Fdash,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMap
- --------------------------------------------------------------------}
- Procedure TMap.Setbbox(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fbbox=AValue) then exit;
- Fbbox:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.Setcontents(AIndex : Integer; AValue : TMapContents);
- begin
- If (Fcontents=AValue) then exit;
- Fcontents:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetcreationTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreationTime=AValue) then exit;
- FcreationTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetcreatorEmail(AIndex : Integer; const AValue : String);
- begin
- If (FcreatorEmail=AValue) then exit;
- FcreatorEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox);
- begin
- If (FdefaultViewport=AValue) then exit;
- FdefaultViewport:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetdraftAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FdraftAccessList=AValue) then exit;
- FdraftAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FlastModifiedTime=AValue) then exit;
- FlastModifiedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetlastModifierEmail(AIndex : Integer; const AValue : String);
- begin
- If (FlastModifierEmail=AValue) then exit;
- FlastModifierEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetprocessingStatus(AIndex : Integer; const AValue : String);
- begin
- If (FprocessingStatus=AValue) then exit;
- FprocessingStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetpublishedAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FpublishedAccessList=AValue) then exit;
- FpublishedAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetpublishingStatus(AIndex : Integer; const AValue : String);
- begin
- If (FpublishingStatus=AValue) then exit;
- FpublishingStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.Settags(AIndex : Integer; AValue : TTags);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.Setversions(AIndex : Integer; AValue : TStringArray);
- begin
- If (Fversions=AValue) then exit;
- Fversions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMap.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
- begin
- If (FwritersCanEditPermissions=AValue) then exit;
- FwritersCanEditPermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TMap.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'bbox' : SetLength(Fbbox,ALength);
- 'versions' : SetLength(Fversions,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMapFolder
- --------------------------------------------------------------------}
- Procedure TMapFolder.Setcontents(AIndex : Integer; AValue : TMapFolderTypecontentsArray);
- begin
- If (Fcontents=AValue) then exit;
- Fcontents:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapFolder.SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (FdefaultViewport=AValue) then exit;
- FdefaultViewport:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapFolder.Setexpandable(AIndex : Integer; AValue : boolean);
- begin
- If (Fexpandable=AValue) then exit;
- Fexpandable:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapFolder.Setkey(AIndex : Integer; const AValue : String);
- begin
- If (Fkey=AValue) then exit;
- Fkey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapFolder.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapFolder.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapFolder.Setvisibility(AIndex : Integer; const AValue : String);
- begin
- If (Fvisibility=AValue) then exit;
- Fvisibility:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TMapFolder.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TMapFolder.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'contents' : SetLength(Fcontents,ALength);
- 'defaultviewport' : SetLength(FdefaultViewport,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMapItem
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TMapKmlLink
- --------------------------------------------------------------------}
- Procedure TMapKmlLink.SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (FdefaultViewport=AValue) then exit;
- FdefaultViewport:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapKmlLink.SetkmlUrl(AIndex : Integer; const AValue : String);
- begin
- If (FkmlUrl=AValue) then exit;
- FkmlUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapKmlLink.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapKmlLink.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapKmlLink.Setvisibility(AIndex : Integer; const AValue : String);
- begin
- If (Fvisibility=AValue) then exit;
- Fvisibility:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TMapKmlLink.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TMapKmlLink.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'defaultviewport' : SetLength(FdefaultViewport,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMapLayer
- --------------------------------------------------------------------}
- Procedure TMapLayer.SetdefaultViewport(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (FdefaultViewport=AValue) then exit;
- FdefaultViewport:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapLayer.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapLayer.Setkey(AIndex : Integer; const AValue : String);
- begin
- If (Fkey=AValue) then exit;
- Fkey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapLayer.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapLayer.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapLayer.Setvisibility(AIndex : Integer; const AValue : String);
- begin
- If (Fvisibility=AValue) then exit;
- Fvisibility:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TMapLayer.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TMapLayer.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'defaultviewport' : SetLength(FdefaultViewport,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMapsListResponse
- --------------------------------------------------------------------}
- Procedure TMapsListResponse.Setmaps(AIndex : Integer; AValue : TMapsListResponseTypemapsArray);
- begin
- If (Fmaps=AValue) then exit;
- Fmaps:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMapsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TMapsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'maps' : SetLength(Fmaps,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TParent
- --------------------------------------------------------------------}
- Procedure TParent.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TParentsListResponse
- --------------------------------------------------------------------}
- Procedure TParentsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TParentsListResponse.Setparents(AIndex : Integer; AValue : TParentsListResponseTypeparentsArray);
- begin
- If (Fparents=AValue) then exit;
- Fparents:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TParentsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'parents' : SetLength(Fparents,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPermission
- --------------------------------------------------------------------}
- Procedure TPermission.Setdiscoverable(AIndex : Integer; AValue : boolean);
- begin
- If (Fdiscoverable=AValue) then exit;
- Fdiscoverable:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPermission.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPermission.Setrole(AIndex : Integer; const AValue : String);
- begin
- If (Frole=AValue) then exit;
- Frole:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPermission.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPermission.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TPermissionsBatchDeleteRequest
- --------------------------------------------------------------------}
- Procedure TPermissionsBatchDeleteRequest.Setids(AIndex : Integer; AValue : TStringArray);
- begin
- If (Fids=AValue) then exit;
- Fids:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPermissionsBatchDeleteRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'ids' : SetLength(Fids,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPermissionsBatchDeleteResponse
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TPermissionsBatchUpdateRequest
- --------------------------------------------------------------------}
- Procedure TPermissionsBatchUpdateRequest.Setpermissions(AIndex : Integer; AValue : TPermissionsBatchUpdateRequestTypepermissionsArray);
- begin
- If (Fpermissions=AValue) then exit;
- Fpermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPermissionsBatchUpdateRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'permissions' : SetLength(Fpermissions,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPermissionsBatchUpdateResponse
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TPermissionsListResponse
- --------------------------------------------------------------------}
- Procedure TPermissionsListResponse.Setpermissions(AIndex : Integer; AValue : TPermissionsListResponseTypepermissionsArray);
- begin
- If (Fpermissions=AValue) then exit;
- Fpermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPermissionsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'permissions' : SetLength(Fpermissions,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPointStyle
- --------------------------------------------------------------------}
- Procedure TPointStyle.Seticon(AIndex : Integer; AValue : TIconStyle);
- begin
- If (Ficon=AValue) then exit;
- Ficon:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPointStyle.Set_label(AIndex : Integer; AValue : TLabelStyle);
- begin
- If (F_label=AValue) then exit;
- F_label:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPointStyle.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_label' : Result:='label';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TPolygonStyle
- --------------------------------------------------------------------}
- Procedure TPolygonStyle.Setfill(AIndex : Integer; AValue : TColor);
- begin
- If (Ffill=AValue) then exit;
- Ffill:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.Set_label(AIndex : Integer; AValue : TLabelStyle);
- begin
- If (F_label=AValue) then exit;
- F_label:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.Setstroke(AIndex : Integer; AValue : TBorder);
- begin
- If (Fstroke=AValue) then exit;
- Fstroke:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPolygonStyle.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_label' : Result:='label';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TProcessResponse
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TProject
- --------------------------------------------------------------------}
- Procedure TProject.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TProject.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TProjectsListResponse
- --------------------------------------------------------------------}
- Procedure TProjectsListResponse.Setprojects(AIndex : Integer; AValue : TProjectsListResponseTypeprojectsArray);
- begin
- If (Fprojects=AValue) then exit;
- Fprojects:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TProjectsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'projects' : SetLength(Fprojects,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPublishResponse
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TPublishedLayer
- --------------------------------------------------------------------}
- Procedure TPublishedLayer.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedLayer.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedLayer.SetlayerType(AIndex : Integer; const AValue : String);
- begin
- If (FlayerType=AValue) then exit;
- FlayerType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedLayer.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedLayer.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPublishedLayersListResponse
- --------------------------------------------------------------------}
- Procedure TPublishedLayersListResponse.Setlayers(AIndex : Integer; AValue : TPublishedLayersListResponseTypelayersArray);
- begin
- If (Flayers=AValue) then exit;
- Flayers:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedLayersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPublishedLayersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'layers' : SetLength(Flayers,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPublishedMap
- --------------------------------------------------------------------}
- Procedure TPublishedMap.Setcontents(AIndex : Integer; AValue : TMapContents);
- begin
- If (Fcontents=AValue) then exit;
- Fcontents:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedMap.SetdefaultViewport(AIndex : Integer; AValue : TLatLngBox);
- begin
- If (FdefaultViewport=AValue) then exit;
- FdefaultViewport:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedMap.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedMap.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedMap.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedMap.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPublishedMapsListResponse
- --------------------------------------------------------------------}
- Procedure TPublishedMapsListResponse.Setmaps(AIndex : Integer; AValue : TPublishedMapsListResponseTypemapsArray);
- begin
- If (Fmaps=AValue) then exit;
- Fmaps:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishedMapsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPublishedMapsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'maps' : SetLength(Fmaps,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRaster
- --------------------------------------------------------------------}
- Procedure TRaster.SetacquisitionTime(AIndex : Integer; AValue : TAcquisitionTime);
- begin
- If (FacquisitionTime=AValue) then exit;
- FacquisitionTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Setattribution(AIndex : Integer; const AValue : String);
- begin
- If (Fattribution=AValue) then exit;
- Fattribution:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Setbbox(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fbbox=AValue) then exit;
- Fbbox:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetcreationTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreationTime=AValue) then exit;
- FcreationTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetcreatorEmail(AIndex : Integer; const AValue : String);
- begin
- If (FcreatorEmail=AValue) then exit;
- FcreatorEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetdraftAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FdraftAccessList=AValue) then exit;
- FdraftAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Setfiles(AIndex : Integer; AValue : TRasterTypefilesArray);
- begin
- If (Ffiles=AValue) then exit;
- Ffiles:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FlastModifiedTime=AValue) then exit;
- FlastModifiedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetlastModifierEmail(AIndex : Integer; const AValue : String);
- begin
- If (FlastModifierEmail=AValue) then exit;
- FlastModifierEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetmaskType(AIndex : Integer; const AValue : String);
- begin
- If (FmaskType=AValue) then exit;
- FmaskType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetprocessingStatus(AIndex : Integer; const AValue : String);
- begin
- If (FprocessingStatus=AValue) then exit;
- FprocessingStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetrasterType(AIndex : Integer; const AValue : String);
- begin
- If (FrasterType=AValue) then exit;
- FrasterType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.Settags(AIndex : Integer; AValue : TTags);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRaster.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
- begin
- If (FwritersCanEditPermissions=AValue) then exit;
- FwritersCanEditPermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRaster.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'bbox' : SetLength(Fbbox,ALength);
- 'files' : SetLength(Ffiles,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRasterCollection
- --------------------------------------------------------------------}
- Procedure TRasterCollection.Setattribution(AIndex : Integer; const AValue : String);
- begin
- If (Fattribution=AValue) then exit;
- Fattribution:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.Setbbox(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fbbox=AValue) then exit;
- Fbbox:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetcreationTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreationTime=AValue) then exit;
- FcreationTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetcreatorEmail(AIndex : Integer; const AValue : String);
- begin
- If (FcreatorEmail=AValue) then exit;
- FcreatorEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetdraftAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FdraftAccessList=AValue) then exit;
- FdraftAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FlastModifiedTime=AValue) then exit;
- FlastModifiedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetlastModifierEmail(AIndex : Integer; const AValue : String);
- begin
- If (FlastModifierEmail=AValue) then exit;
- FlastModifierEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.Setmosaic(AIndex : Integer; AValue : boolean);
- begin
- If (Fmosaic=AValue) then exit;
- Fmosaic:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetprocessingStatus(AIndex : Integer; const AValue : String);
- begin
- If (FprocessingStatus=AValue) then exit;
- FprocessingStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetrasterType(AIndex : Integer; const AValue : String);
- begin
- If (FrasterType=AValue) then exit;
- FrasterType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.Settags(AIndex : Integer; AValue : TTags);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollection.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
- begin
- If (FwritersCanEditPermissions=AValue) then exit;
- FwritersCanEditPermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRasterCollection.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'bbox' : SetLength(Fbbox,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRasterCollectionsListResponse
- --------------------------------------------------------------------}
- Procedure TRasterCollectionsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsListResponse.SetrasterCollections(AIndex : Integer; AValue : TRasterCollectionsListResponseTyperasterCollectionsArray);
- begin
- If (FrasterCollections=AValue) then exit;
- FrasterCollections:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRasterCollectionsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'rastercollections' : SetLength(FrasterCollections,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRasterCollectionsRaster
- --------------------------------------------------------------------}
- Procedure TRasterCollectionsRaster.Setbbox(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fbbox=AValue) then exit;
- Fbbox:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.SetcreationTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreationTime=AValue) then exit;
- FcreationTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FlastModifiedTime=AValue) then exit;
- FlastModifiedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.SetrasterType(AIndex : Integer; const AValue : String);
- begin
- If (FrasterType=AValue) then exit;
- FrasterType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRaster.Settags(AIndex : Integer; AValue : TStringArray);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRasterCollectionsRaster.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'bbox' : SetLength(Fbbox,ALength);
- 'tags' : SetLength(Ftags,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRasterCollectionsRasterBatchDeleteRequest
- --------------------------------------------------------------------}
- Procedure TRasterCollectionsRasterBatchDeleteRequest.Setids(AIndex : Integer; AValue : TStringArray);
- begin
- If (Fids=AValue) then exit;
- Fids:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRasterCollectionsRasterBatchDeleteRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'ids' : SetLength(Fids,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRasterCollectionsRastersBatchDeleteResponse
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TRasterCollectionsRastersBatchInsertRequest
- --------------------------------------------------------------------}
- Procedure TRasterCollectionsRastersBatchInsertRequest.Setids(AIndex : Integer; AValue : TStringArray);
- begin
- If (Fids=AValue) then exit;
- Fids:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRasterCollectionsRastersBatchInsertRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'ids' : SetLength(Fids,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRasterCollectionsRastersBatchInsertResponse
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TRasterCollectionsRastersListResponse
- --------------------------------------------------------------------}
- Procedure TRasterCollectionsRastersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRasterCollectionsRastersListResponse.Setrasters(AIndex : Integer; AValue : TRasterCollectionsRastersListResponseTyperastersArray);
- begin
- If (Frasters=AValue) then exit;
- Frasters:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRasterCollectionsRastersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'rasters' : SetLength(Frasters,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TRastersListResponse
- --------------------------------------------------------------------}
- Procedure TRastersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRastersListResponse.Setrasters(AIndex : Integer; AValue : TRastersListResponseTyperastersArray);
- begin
- If (Frasters=AValue) then exit;
- Frasters:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRastersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'rasters' : SetLength(Frasters,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TScaledShape
- --------------------------------------------------------------------}
- Procedure TScaledShape.Setborder(AIndex : Integer; AValue : TBorder);
- begin
- If (Fborder=AValue) then exit;
- Fborder:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TScaledShape.Setfill(AIndex : Integer; AValue : TColor);
- begin
- If (Ffill=AValue) then exit;
- Ffill:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TScaledShape.Setshape(AIndex : Integer; const AValue : String);
- begin
- If (Fshape=AValue) then exit;
- Fshape:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TScalingFunction
- --------------------------------------------------------------------}
- Procedure TScalingFunction.Setcolumn(AIndex : Integer; const AValue : String);
- begin
- If (Fcolumn=AValue) then exit;
- Fcolumn:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TScalingFunction.SetscalingType(AIndex : Integer; const AValue : String);
- begin
- If (FscalingType=AValue) then exit;
- FscalingType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TScalingFunction.SetsizeRange(AIndex : Integer; AValue : TSizeRange);
- begin
- If (FsizeRange=AValue) then exit;
- FsizeRange:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TScalingFunction.SetvalueRange(AIndex : Integer; AValue : TValueRange);
- begin
- If (FvalueRange=AValue) then exit;
- FvalueRange:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TSchema
- --------------------------------------------------------------------}
- Procedure TSchema.Setcolumns(AIndex : Integer; AValue : TSchemaTypecolumnsArray);
- begin
- If (Fcolumns=AValue) then exit;
- Fcolumns:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TSchema.SetprimaryGeometry(AIndex : Integer; const AValue : String);
- begin
- If (FprimaryGeometry=AValue) then exit;
- FprimaryGeometry:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TSchema.SetprimaryKey(AIndex : Integer; const AValue : String);
- begin
- If (FprimaryKey=AValue) then exit;
- FprimaryKey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TSchema.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'columns' : SetLength(Fcolumns,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TSizeRange
- --------------------------------------------------------------------}
- Procedure TSizeRange.Setmax(AIndex : Integer; AValue : double);
- begin
- If (Fmax=AValue) then exit;
- Fmax:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TSizeRange.Setmin(AIndex : Integer; AValue : double);
- begin
- If (Fmin=AValue) then exit;
- Fmin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TTable
- --------------------------------------------------------------------}
- Procedure TTable.Setbbox(AIndex : Integer; AValue : TdoubleArray);
- begin
- If (Fbbox=AValue) then exit;
- Fbbox:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetcreationTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreationTime=AValue) then exit;
- FcreationTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetcreatorEmail(AIndex : Integer; const AValue : String);
- begin
- If (FcreatorEmail=AValue) then exit;
- FcreatorEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetdraftAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FdraftAccessList=AValue) then exit;
- FdraftAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setfiles(AIndex : Integer; AValue : TTableTypefilesArray);
- begin
- If (Ffiles=AValue) then exit;
- Ffiles:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetlastModifiedTime(AIndex : Integer; AValue : TDatetime);
- begin
- If (FlastModifiedTime=AValue) then exit;
- FlastModifiedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetlastModifierEmail(AIndex : Integer; const AValue : String);
- begin
- If (FlastModifierEmail=AValue) then exit;
- FlastModifierEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetprocessingStatus(AIndex : Integer; const AValue : String);
- begin
- If (FprocessingStatus=AValue) then exit;
- FprocessingStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetprojectId(AIndex : Integer; const AValue : String);
- begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetpublishedAccessList(AIndex : Integer; const AValue : String);
- begin
- If (FpublishedAccessList=AValue) then exit;
- FpublishedAccessList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setschema(AIndex : Integer; AValue : TSchema);
- begin
- If (Fschema=AValue) then exit;
- Fschema:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetsourceEncoding(AIndex : Integer; const AValue : String);
- begin
- If (FsourceEncoding=AValue) then exit;
- FsourceEncoding:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Settags(AIndex : Integer; AValue : TTags);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetwritersCanEditPermissions(AIndex : Integer; AValue : boolean);
- begin
- If (FwritersCanEditPermissions=AValue) then exit;
- FwritersCanEditPermissions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TTable.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'bbox' : SetLength(Fbbox,ALength);
- 'files' : SetLength(Ffiles,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TTableColumn
- --------------------------------------------------------------------}
- Procedure TTableColumn.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTableColumn.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TTableColumn.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TTablesListResponse
- --------------------------------------------------------------------}
- Procedure TTablesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTablesListResponse.Settables(AIndex : Integer; AValue : TTablesListResponseTypetablesArray);
- begin
- If (Ftables=AValue) then exit;
- Ftables:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TTablesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'tables' : SetLength(Ftables,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TValueRange
- --------------------------------------------------------------------}
- Procedure TValueRange.Setmax(AIndex : Integer; AValue : double);
- begin
- If (Fmax=AValue) then exit;
- Fmax:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TValueRange.Setmin(AIndex : Integer; AValue : double);
- begin
- If (Fmin=AValue) then exit;
- Fmin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TVectorStyle
- --------------------------------------------------------------------}
- Procedure TVectorStyle.SetdisplayRules(AIndex : Integer; AValue : TVectorStyleTypedisplayRulesArray);
- begin
- If (FdisplayRules=AValue) then exit;
- FdisplayRules:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVectorStyle.SetfeatureInfo(AIndex : Integer; AValue : TFeatureInfo);
- begin
- If (FfeatureInfo=AValue) then exit;
- FfeatureInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVectorStyle.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TVectorStyle.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TVectorStyle.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'displayrules' : SetLength(FdisplayRules,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TZoomLevels
- --------------------------------------------------------------------}
- Procedure TZoomLevels.Setmax(AIndex : Integer; AValue : integer);
- begin
- If (Fmax=AValue) then exit;
- Fmax:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TZoomLevels.Setmin(AIndex : Integer; AValue : integer);
- begin
- If (Fmin=AValue) then exit;
- Fmin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TAssetsParentsResource
- --------------------------------------------------------------------}
- Class Function TAssetsParentsResource.ResourceName : String;
- begin
- Result:='parents';
- end;
- Class Function TAssetsParentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TAssetsParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'assets/{id}/parents';
- _Methodid = 'mapsengine.assets.parents.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
- end;
- Function TAssetsParentsResource.List(id: string; AQuery : TAssetsParentslistOptions) : TParentsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(id,_Q);
- end;
- { --------------------------------------------------------------------
- TAssetsPermissionsResource
- --------------------------------------------------------------------}
- Class Function TAssetsPermissionsResource.ResourceName : String;
- begin
- Result:='permissions';
- end;
- Class Function TAssetsPermissionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TAssetsPermissionsResource.List(id: string) : TPermissionsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'assets/{id}/permissions';
- _Methodid = 'mapsengine.assets.permissions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
- end;
- { --------------------------------------------------------------------
- TAssetsResource
- --------------------------------------------------------------------}
- Class Function TAssetsResource.ResourceName : String;
- begin
- Result:='assets';
- end;
- Class Function TAssetsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TAssetsResource.Get(id: string) : TAsset;
- Const
- _HTTPMethod = 'GET';
- _Path = 'assets/{id}';
- _Methodid = 'mapsengine.assets.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAsset) as TAsset;
- end;
- Function TAssetsResource.List(AQuery : string = '') : TAssetsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'assets';
- _Methodid = 'mapsengine.assets.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAssetsListResponse) as TAssetsListResponse;
- end;
- Function TAssetsResource.List(AQuery : TAssetslistOptions) : TAssetsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'bbox',AQuery.bbox);
- AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
- AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
- AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
- AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- AddToQuery(_Q,'role',AQuery.role);
- AddToQuery(_Q,'search',AQuery.search);
- AddToQuery(_Q,'tags',AQuery.tags);
- AddToQuery(_Q,'type',AQuery._type);
- Result:=List(_Q);
- end;
- Function TAssetsResource.GetParentsInstance : TAssetsParentsResource;
- begin
- if (FParentsInstance=Nil) then
- FParentsInstance:=CreateParentsResource;
- Result:=FParentsInstance;
- end;
- Function TAssetsResource.CreateParentsResource : TAssetsParentsResource;
- begin
- Result:=CreateParentsResource(Self);
- end;
- Function TAssetsResource.CreateParentsResource(AOwner : TComponent) : TAssetsParentsResource;
- begin
- Result:=TAssetsParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAssetsResource.GetPermissionsInstance : TAssetsPermissionsResource;
- begin
- if (FPermissionsInstance=Nil) then
- FPermissionsInstance:=CreatePermissionsResource;
- Result:=FPermissionsInstance;
- end;
- Function TAssetsResource.CreatePermissionsResource : TAssetsPermissionsResource;
- begin
- Result:=CreatePermissionsResource(Self);
- end;
- Function TAssetsResource.CreatePermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;
- begin
- Result:=TAssetsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TLayersParentsResource
- --------------------------------------------------------------------}
- Class Function TLayersParentsResource.ResourceName : String;
- begin
- Result:='parents';
- end;
- Class Function TLayersParentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TLayersParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'layers/{id}/parents';
- _Methodid = 'mapsengine.layers.parents.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
- end;
- Function TLayersParentsResource.List(id: string; AQuery : TLayersParentslistOptions) : TParentsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(id,_Q);
- end;
- { --------------------------------------------------------------------
- TLayersPermissionsResource
- --------------------------------------------------------------------}
- Class Function TLayersPermissionsResource.ResourceName : String;
- begin
- Result:='permissions';
- end;
- Class Function TLayersPermissionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TLayersPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'layers/{id}/permissions/batchDelete';
- _Methodid = 'mapsengine.layers.permissions.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
- end;
- Function TLayersPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'layers/{id}/permissions/batchUpdate';
- _Methodid = 'mapsengine.layers.permissions.batchUpdate';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
- end;
- Function TLayersPermissionsResource.List(id: string) : TPermissionsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'layers/{id}/permissions';
- _Methodid = 'mapsengine.layers.permissions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
- end;
- { --------------------------------------------------------------------
- TLayersResource
- --------------------------------------------------------------------}
- Class Function TLayersResource.ResourceName : String;
- begin
- Result:='layers';
- end;
- Class Function TLayersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TLayersResource.CancelProcessing(id: string) : TProcessResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'layers/{id}/cancelProcessing';
- _Methodid = 'mapsengine.layers.cancelProcessing';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
- end;
- Function TLayersResource.Create(aLayer : TLayer; AQuery : string = '') : TLayer;
- Const
- _HTTPMethod = 'POST';
- _Path = 'layers';
- _Methodid = 'mapsengine.layers.create';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLayer,TLayer) as TLayer;
- end;
- Function TLayersResource.Create(aLayer : TLayer; AQuery : TLayerscreateOptions) : TLayer;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'process',AQuery.process);
- Result:=Create(aLayer,_Q);
- end;
- Procedure TLayersResource.Delete(id: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'layers/{id}';
- _Methodid = 'mapsengine.layers.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TLayersResource.Get(id: string; AQuery : string = '') : TLayer;
- Const
- _HTTPMethod = 'GET';
- _Path = 'layers/{id}';
- _Methodid = 'mapsengine.layers.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLayer) as TLayer;
- end;
- Function TLayersResource.Get(id: string; AQuery : TLayersgetOptions) : TLayer;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'version',AQuery.version);
- Result:=Get(id,_Q);
- end;
- Function TLayersResource.GetPublished(id: string) : TPublishedLayer;
- Const
- _HTTPMethod = 'GET';
- _Path = 'layers/{id}/published';
- _Methodid = 'mapsengine.layers.getPublished';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishedLayer) as TPublishedLayer;
- end;
- Function TLayersResource.List(AQuery : string = '') : TLayersListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'layers';
- _Methodid = 'mapsengine.layers.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLayersListResponse) as TLayersListResponse;
- end;
- Function TLayersResource.List(AQuery : TLayerslistOptions) : TLayersListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'bbox',AQuery.bbox);
- AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
- AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
- AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
- AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- AddToQuery(_Q,'role',AQuery.role);
- AddToQuery(_Q,'search',AQuery.search);
- AddToQuery(_Q,'tags',AQuery.tags);
- Result:=List(_Q);
- end;
- Function TLayersResource.ListPublished(AQuery : string = '') : TPublishedLayersListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'layers/published';
- _Methodid = 'mapsengine.layers.listPublished';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPublishedLayersListResponse) as TPublishedLayersListResponse;
- end;
- Function TLayersResource.ListPublished(AQuery : TLayerslistPublishedOptions) : TPublishedLayersListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=ListPublished(_Q);
- end;
- Procedure TLayersResource.Patch(id: string; aLayer : TLayer);
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'layers/{id}';
- _Methodid = 'mapsengine.layers.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aLayer,Nil);
- end;
- Function TLayersResource.Process(id: string) : TProcessResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'layers/{id}/process';
- _Methodid = 'mapsengine.layers.process';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
- end;
- Function TLayersResource.Publish(id: string; AQuery : string = '') : TPublishResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'layers/{id}/publish';
- _Methodid = 'mapsengine.layers.publish';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPublishResponse) as TPublishResponse;
- end;
- Function TLayersResource.Publish(id: string; AQuery : TLayerspublishOptions) : TPublishResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'force',AQuery.force);
- Result:=Publish(id,_Q);
- end;
- Function TLayersResource.Unpublish(id: string) : TPublishResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'layers/{id}/unpublish';
- _Methodid = 'mapsengine.layers.unpublish';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishResponse) as TPublishResponse;
- end;
- Function TLayersResource.GetParentsInstance : TLayersParentsResource;
- begin
- if (FParentsInstance=Nil) then
- FParentsInstance:=CreateParentsResource;
- Result:=FParentsInstance;
- end;
- Function TLayersResource.CreateParentsResource : TLayersParentsResource;
- begin
- Result:=CreateParentsResource(Self);
- end;
- Function TLayersResource.CreateParentsResource(AOwner : TComponent) : TLayersParentsResource;
- begin
- Result:=TLayersParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TLayersResource.GetPermissionsInstance : TLayersPermissionsResource;
- begin
- if (FPermissionsInstance=Nil) then
- FPermissionsInstance:=CreatePermissionsResource;
- Result:=FPermissionsInstance;
- end;
- Function TLayersResource.CreatePermissionsResource : TLayersPermissionsResource;
- begin
- Result:=CreatePermissionsResource(Self);
- end;
- Function TLayersResource.CreatePermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;
- begin
- Result:=TLayersPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TMapsPermissionsResource
- --------------------------------------------------------------------}
- Class Function TMapsPermissionsResource.ResourceName : String;
- begin
- Result:='permissions';
- end;
- Class Function TMapsPermissionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TMapsPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'maps/{id}/permissions/batchDelete';
- _Methodid = 'mapsengine.maps.permissions.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
- end;
- Function TMapsPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'maps/{id}/permissions/batchUpdate';
- _Methodid = 'mapsengine.maps.permissions.batchUpdate';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
- end;
- Function TMapsPermissionsResource.List(id: string) : TPermissionsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'maps/{id}/permissions';
- _Methodid = 'mapsengine.maps.permissions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
- end;
- { --------------------------------------------------------------------
- TMapsResource
- --------------------------------------------------------------------}
- Class Function TMapsResource.ResourceName : String;
- begin
- Result:='maps';
- end;
- Class Function TMapsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TMapsResource.Create(aMap : TMap) : TMap;
- Const
- _HTTPMethod = 'POST';
- _Path = 'maps';
- _Methodid = 'mapsengine.maps.create';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aMap,TMap) as TMap;
- end;
- Procedure TMapsResource.Delete(id: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'maps/{id}';
- _Methodid = 'mapsengine.maps.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TMapsResource.Get(id: string; AQuery : string = '') : TMap;
- Const
- _HTTPMethod = 'GET';
- _Path = 'maps/{id}';
- _Methodid = 'mapsengine.maps.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMap) as TMap;
- end;
- Function TMapsResource.Get(id: string; AQuery : TMapsgetOptions) : TMap;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'version',AQuery.version);
- Result:=Get(id,_Q);
- end;
- Function TMapsResource.GetPublished(id: string) : TPublishedMap;
- Const
- _HTTPMethod = 'GET';
- _Path = 'maps/{id}/published';
- _Methodid = 'mapsengine.maps.getPublished';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishedMap) as TPublishedMap;
- end;
- Function TMapsResource.List(AQuery : string = '') : TMapsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'maps';
- _Methodid = 'mapsengine.maps.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TMapsListResponse) as TMapsListResponse;
- end;
- Function TMapsResource.List(AQuery : TMapslistOptions) : TMapsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'bbox',AQuery.bbox);
- AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
- AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
- AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
- AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- AddToQuery(_Q,'role',AQuery.role);
- AddToQuery(_Q,'search',AQuery.search);
- AddToQuery(_Q,'tags',AQuery.tags);
- Result:=List(_Q);
- end;
- Function TMapsResource.ListPublished(AQuery : string = '') : TPublishedMapsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'maps/published';
- _Methodid = 'mapsengine.maps.listPublished';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPublishedMapsListResponse) as TPublishedMapsListResponse;
- end;
- Function TMapsResource.ListPublished(AQuery : TMapslistPublishedOptions) : TPublishedMapsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=ListPublished(_Q);
- end;
- Procedure TMapsResource.Patch(id: string; aMap : TMap);
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'maps/{id}';
- _Methodid = 'mapsengine.maps.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aMap,Nil);
- end;
- Function TMapsResource.Publish(id: string; AQuery : string = '') : TPublishResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'maps/{id}/publish';
- _Methodid = 'mapsengine.maps.publish';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPublishResponse) as TPublishResponse;
- end;
- Function TMapsResource.Publish(id: string; AQuery : TMapspublishOptions) : TPublishResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'force',AQuery.force);
- Result:=Publish(id,_Q);
- end;
- Function TMapsResource.Unpublish(id: string) : TPublishResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'maps/{id}/unpublish';
- _Methodid = 'mapsengine.maps.unpublish';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPublishResponse) as TPublishResponse;
- end;
- Function TMapsResource.GetPermissionsInstance : TMapsPermissionsResource;
- begin
- if (FPermissionsInstance=Nil) then
- FPermissionsInstance:=CreatePermissionsResource;
- Result:=FPermissionsInstance;
- end;
- Function TMapsResource.CreatePermissionsResource : TMapsPermissionsResource;
- begin
- Result:=CreatePermissionsResource(Self);
- end;
- Function TMapsResource.CreatePermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;
- begin
- Result:=TMapsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TProjectsIconsResource
- --------------------------------------------------------------------}
- Class Function TProjectsIconsResource.ResourceName : String;
- begin
- Result:='icons';
- end;
- Class Function TProjectsIconsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TProjectsIconsResource.Create(projectId: string; aIcon : TIcon) : TIcon;
- Const
- _HTTPMethod = 'POST';
- _Path = 'projects/{projectId}/icons';
- _Methodid = 'mapsengine.projects.icons.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aIcon,TIcon) as TIcon;
- end;
- Function TProjectsIconsResource.Get(id: string; projectId: string) : TIcon;
- Const
- _HTTPMethod = 'GET';
- _Path = 'projects/{projectId}/icons/{id}';
- _Methodid = 'mapsengine.projects.icons.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id,'projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TIcon) as TIcon;
- end;
- Function TProjectsIconsResource.List(projectId: string; AQuery : string = '') : TIconsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'projects/{projectId}/icons';
- _Methodid = 'mapsengine.projects.icons.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TIconsListResponse) as TIconsListResponse;
- end;
- Function TProjectsIconsResource.List(projectId: string; AQuery : TProjectsIconslistOptions) : TIconsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(projectId,_Q);
- end;
- { --------------------------------------------------------------------
- TProjectsResource
- --------------------------------------------------------------------}
- Class Function TProjectsResource.ResourceName : String;
- begin
- Result:='projects';
- end;
- Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TProjectsResource.List : TProjectsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'projects';
- _Methodid = 'mapsengine.projects.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TProjectsListResponse) as TProjectsListResponse;
- end;
- Function TProjectsResource.GetIconsInstance : TProjectsIconsResource;
- begin
- if (FIconsInstance=Nil) then
- FIconsInstance:=CreateIconsResource;
- Result:=FIconsInstance;
- end;
- Function TProjectsResource.CreateIconsResource : TProjectsIconsResource;
- begin
- Result:=CreateIconsResource(Self);
- end;
- Function TProjectsResource.CreateIconsResource(AOwner : TComponent) : TProjectsIconsResource;
- begin
- Result:=TProjectsIconsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TRasterCollectionsParentsResource
- --------------------------------------------------------------------}
- Class Function TRasterCollectionsParentsResource.ResourceName : String;
- begin
- Result:='parents';
- end;
- Class Function TRasterCollectionsParentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TRasterCollectionsParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasterCollections/{id}/parents';
- _Methodid = 'mapsengine.rasterCollections.parents.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
- end;
- Function TRasterCollectionsParentsResource.List(id: string; AQuery : TRasterCollectionsParentslistOptions) : TParentsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(id,_Q);
- end;
- { --------------------------------------------------------------------
- TRasterCollectionsPermissionsResource
- --------------------------------------------------------------------}
- Class Function TRasterCollectionsPermissionsResource.ResourceName : String;
- begin
- Result:='permissions';
- end;
- Class Function TRasterCollectionsPermissionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TRasterCollectionsPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasterCollections/{id}/permissions/batchDelete';
- _Methodid = 'mapsengine.rasterCollections.permissions.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
- end;
- Function TRasterCollectionsPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasterCollections/{id}/permissions/batchUpdate';
- _Methodid = 'mapsengine.rasterCollections.permissions.batchUpdate';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
- end;
- Function TRasterCollectionsPermissionsResource.List(id: string) : TPermissionsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasterCollections/{id}/permissions';
- _Methodid = 'mapsengine.rasterCollections.permissions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
- end;
- { --------------------------------------------------------------------
- TRasterCollectionsRastersResource
- --------------------------------------------------------------------}
- Class Function TRasterCollectionsRastersResource.ResourceName : String;
- begin
- Result:='rasters';
- end;
- Class Function TRasterCollectionsRastersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TRasterCollectionsRastersResource.BatchDelete(id: string; aRasterCollectionsRasterBatchDeleteRequest : TRasterCollectionsRasterBatchDeleteRequest) : TRasterCollectionsRastersBatchDeleteResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasterCollections/{id}/rasters/batchDelete';
- _Methodid = 'mapsengine.rasterCollections.rasters.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRasterCollectionsRasterBatchDeleteRequest,TRasterCollectionsRastersBatchDeleteResponse) as TRasterCollectionsRastersBatchDeleteResponse;
- end;
- Function TRasterCollectionsRastersResource.BatchInsert(id: string; aRasterCollectionsRastersBatchInsertRequest : TRasterCollectionsRastersBatchInsertRequest) : TRasterCollectionsRastersBatchInsertResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasterCollections/{id}/rasters/batchInsert';
- _Methodid = 'mapsengine.rasterCollections.rasters.batchInsert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRasterCollectionsRastersBatchInsertRequest,TRasterCollectionsRastersBatchInsertResponse) as TRasterCollectionsRastersBatchInsertResponse;
- end;
- Function TRasterCollectionsRastersResource.List(id: string; AQuery : string = '') : TRasterCollectionsRastersListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasterCollections/{id}/rasters';
- _Methodid = 'mapsengine.rasterCollections.rasters.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRasterCollectionsRastersListResponse) as TRasterCollectionsRastersListResponse;
- end;
- Function TRasterCollectionsRastersResource.List(id: string; AQuery : TRasterCollectionsRasterslistOptions) : TRasterCollectionsRastersListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'bbox',AQuery.bbox);
- AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
- AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
- AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
- AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'role',AQuery.role);
- AddToQuery(_Q,'search',AQuery.search);
- AddToQuery(_Q,'tags',AQuery.tags);
- Result:=List(id,_Q);
- end;
- { --------------------------------------------------------------------
- TRasterCollectionsResource
- --------------------------------------------------------------------}
- Class Function TRasterCollectionsResource.ResourceName : String;
- begin
- Result:='rasterCollections';
- end;
- Class Function TRasterCollectionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TRasterCollectionsResource.CancelProcessing(id: string) : TProcessResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasterCollections/{id}/cancelProcessing';
- _Methodid = 'mapsengine.rasterCollections.cancelProcessing';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
- end;
- Function TRasterCollectionsResource.Create(aRasterCollection : TRasterCollection) : TRasterCollection;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasterCollections';
- _Methodid = 'mapsengine.rasterCollections.create';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aRasterCollection,TRasterCollection) as TRasterCollection;
- end;
- Procedure TRasterCollectionsResource.Delete(id: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'rasterCollections/{id}';
- _Methodid = 'mapsengine.rasterCollections.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TRasterCollectionsResource.Get(id: string) : TRasterCollection;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasterCollections/{id}';
- _Methodid = 'mapsengine.rasterCollections.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRasterCollection) as TRasterCollection;
- end;
- Function TRasterCollectionsResource.List(AQuery : string = '') : TRasterCollectionsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasterCollections';
- _Methodid = 'mapsengine.rasterCollections.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRasterCollectionsListResponse) as TRasterCollectionsListResponse;
- end;
- Function TRasterCollectionsResource.List(AQuery : TRasterCollectionslistOptions) : TRasterCollectionsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'bbox',AQuery.bbox);
- AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
- AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
- AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
- AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- AddToQuery(_Q,'role',AQuery.role);
- AddToQuery(_Q,'search',AQuery.search);
- AddToQuery(_Q,'tags',AQuery.tags);
- Result:=List(_Q);
- end;
- Procedure TRasterCollectionsResource.Patch(id: string; aRasterCollection : TRasterCollection);
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'rasterCollections/{id}';
- _Methodid = 'mapsengine.rasterCollections.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aRasterCollection,Nil);
- end;
- Function TRasterCollectionsResource.Process(id: string) : TProcessResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasterCollections/{id}/process';
- _Methodid = 'mapsengine.rasterCollections.process';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
- end;
- Function TRasterCollectionsResource.GetParentsInstance : TRasterCollectionsParentsResource;
- begin
- if (FParentsInstance=Nil) then
- FParentsInstance:=CreateParentsResource;
- Result:=FParentsInstance;
- end;
- Function TRasterCollectionsResource.CreateParentsResource : TRasterCollectionsParentsResource;
- begin
- Result:=CreateParentsResource(Self);
- end;
- Function TRasterCollectionsResource.CreateParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;
- begin
- Result:=TRasterCollectionsParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRasterCollectionsResource.GetPermissionsInstance : TRasterCollectionsPermissionsResource;
- begin
- if (FPermissionsInstance=Nil) then
- FPermissionsInstance:=CreatePermissionsResource;
- Result:=FPermissionsInstance;
- end;
- Function TRasterCollectionsResource.CreatePermissionsResource : TRasterCollectionsPermissionsResource;
- begin
- Result:=CreatePermissionsResource(Self);
- end;
- Function TRasterCollectionsResource.CreatePermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;
- begin
- Result:=TRasterCollectionsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRasterCollectionsResource.GetRastersInstance : TRasterCollectionsRastersResource;
- begin
- if (FRastersInstance=Nil) then
- FRastersInstance:=CreateRastersResource;
- Result:=FRastersInstance;
- end;
- Function TRasterCollectionsResource.CreateRastersResource : TRasterCollectionsRastersResource;
- begin
- Result:=CreateRastersResource(Self);
- end;
- Function TRasterCollectionsResource.CreateRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;
- begin
- Result:=TRasterCollectionsRastersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TRastersFilesResource
- --------------------------------------------------------------------}
- Class Function TRastersFilesResource.ResourceName : String;
- begin
- Result:='files';
- end;
- Class Function TRastersFilesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Procedure TRastersFilesResource.Insert(id: string; AQuery : string = '');
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasters/{id}/files';
- _Methodid = 'mapsengine.rasters.files.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
- end;
- Procedure TRastersFilesResource.Insert(id: string; AQuery : TRastersFilesinsertOptions);
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'filename',AQuery.filename);
- Insert(id,_Q);
- end;
- { --------------------------------------------------------------------
- TRastersParentsResource
- --------------------------------------------------------------------}
- Class Function TRastersParentsResource.ResourceName : String;
- begin
- Result:='parents';
- end;
- Class Function TRastersParentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TRastersParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasters/{id}/parents';
- _Methodid = 'mapsengine.rasters.parents.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
- end;
- Function TRastersParentsResource.List(id: string; AQuery : TRastersParentslistOptions) : TParentsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(id,_Q);
- end;
- { --------------------------------------------------------------------
- TRastersPermissionsResource
- --------------------------------------------------------------------}
- Class Function TRastersPermissionsResource.ResourceName : String;
- begin
- Result:='permissions';
- end;
- Class Function TRastersPermissionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TRastersPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasters/{id}/permissions/batchDelete';
- _Methodid = 'mapsengine.rasters.permissions.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
- end;
- Function TRastersPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasters/{id}/permissions/batchUpdate';
- _Methodid = 'mapsengine.rasters.permissions.batchUpdate';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
- end;
- Function TRastersPermissionsResource.List(id: string) : TPermissionsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasters/{id}/permissions';
- _Methodid = 'mapsengine.rasters.permissions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
- end;
- { --------------------------------------------------------------------
- TRastersResource
- --------------------------------------------------------------------}
- Class Function TRastersResource.ResourceName : String;
- begin
- Result:='rasters';
- end;
- Class Function TRastersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Procedure TRastersResource.Delete(id: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'rasters/{id}';
- _Methodid = 'mapsengine.rasters.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TRastersResource.Get(id: string) : TRaster;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasters/{id}';
- _Methodid = 'mapsengine.rasters.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRaster) as TRaster;
- end;
- Function TRastersResource.List(AQuery : string = '') : TRastersListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'rasters';
- _Methodid = 'mapsengine.rasters.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRastersListResponse) as TRastersListResponse;
- end;
- Function TRastersResource.List(AQuery : TRasterslistOptions) : TRastersListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'bbox',AQuery.bbox);
- AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
- AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
- AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
- AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- AddToQuery(_Q,'role',AQuery.role);
- AddToQuery(_Q,'search',AQuery.search);
- AddToQuery(_Q,'tags',AQuery.tags);
- Result:=List(_Q);
- end;
- Procedure TRastersResource.Patch(id: string; aRaster : TRaster);
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'rasters/{id}';
- _Methodid = 'mapsengine.rasters.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aRaster,Nil);
- end;
- Function TRastersResource.Process(id: string) : TProcessResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasters/{id}/process';
- _Methodid = 'mapsengine.rasters.process';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
- end;
- Function TRastersResource.Upload(aRaster : TRaster) : TRaster;
- Const
- _HTTPMethod = 'POST';
- _Path = 'rasters/upload';
- _Methodid = 'mapsengine.rasters.upload';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aRaster,TRaster) as TRaster;
- end;
- Function TRastersResource.GetFilesInstance : TRastersFilesResource;
- begin
- if (FFilesInstance=Nil) then
- FFilesInstance:=CreateFilesResource;
- Result:=FFilesInstance;
- end;
- Function TRastersResource.CreateFilesResource : TRastersFilesResource;
- begin
- Result:=CreateFilesResource(Self);
- end;
- Function TRastersResource.CreateFilesResource(AOwner : TComponent) : TRastersFilesResource;
- begin
- Result:=TRastersFilesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRastersResource.GetParentsInstance : TRastersParentsResource;
- begin
- if (FParentsInstance=Nil) then
- FParentsInstance:=CreateParentsResource;
- Result:=FParentsInstance;
- end;
- Function TRastersResource.CreateParentsResource : TRastersParentsResource;
- begin
- Result:=CreateParentsResource(Self);
- end;
- Function TRastersResource.CreateParentsResource(AOwner : TComponent) : TRastersParentsResource;
- begin
- Result:=TRastersParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TRastersResource.GetPermissionsInstance : TRastersPermissionsResource;
- begin
- if (FPermissionsInstance=Nil) then
- FPermissionsInstance:=CreatePermissionsResource;
- Result:=FPermissionsInstance;
- end;
- Function TRastersResource.CreatePermissionsResource : TRastersPermissionsResource;
- begin
- Result:=CreatePermissionsResource(Self);
- end;
- Function TRastersResource.CreatePermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;
- begin
- Result:=TRastersPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TTablesFeaturesResource
- --------------------------------------------------------------------}
- Class Function TTablesFeaturesResource.ResourceName : String;
- begin
- Result:='features';
- end;
- Class Function TTablesFeaturesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Procedure TTablesFeaturesResource.BatchDelete(id: string; aFeaturesBatchDeleteRequest : TFeaturesBatchDeleteRequest);
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{id}/features/batchDelete';
- _Methodid = 'mapsengine.tables.features.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aFeaturesBatchDeleteRequest,Nil);
- end;
- Procedure TTablesFeaturesResource.BatchInsert(id: string; aFeaturesBatchInsertRequest : TFeaturesBatchInsertRequest);
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{id}/features/batchInsert';
- _Methodid = 'mapsengine.tables.features.batchInsert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aFeaturesBatchInsertRequest,Nil);
- end;
- Procedure TTablesFeaturesResource.BatchPatch(id: string; aFeaturesBatchPatchRequest : TFeaturesBatchPatchRequest);
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{id}/features/batchPatch';
- _Methodid = 'mapsengine.tables.features.batchPatch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aFeaturesBatchPatchRequest,Nil);
- end;
- Function TTablesFeaturesResource.Get(id: string; tableId: string; AQuery : string = '') : TFeature;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/features/{id}';
- _Methodid = 'mapsengine.tables.features.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id,'tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFeature) as TFeature;
- end;
- Function TTablesFeaturesResource.Get(id: string; tableId: string; AQuery : TTablesFeaturesgetOptions) : TFeature;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'select',AQuery.select);
- AddToQuery(_Q,'version',AQuery.version);
- Result:=Get(id,tableId,_Q);
- end;
- Function TTablesFeaturesResource.List(id: string; AQuery : string = '') : TFeaturesListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{id}/features';
- _Methodid = 'mapsengine.tables.features.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFeaturesListResponse) as TFeaturesListResponse;
- end;
- Function TTablesFeaturesResource.List(id: string; AQuery : TTablesFeatureslistOptions) : TFeaturesListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'include',AQuery.include);
- AddToQuery(_Q,'intersects',AQuery.intersects);
- AddToQuery(_Q,'limit',AQuery.limit);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'orderBy',AQuery.orderBy);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'select',AQuery.select);
- AddToQuery(_Q,'version',AQuery.version);
- AddToQuery(_Q,'where',AQuery.where);
- Result:=List(id,_Q);
- end;
- { --------------------------------------------------------------------
- TTablesFilesResource
- --------------------------------------------------------------------}
- Class Function TTablesFilesResource.ResourceName : String;
- begin
- Result:='files';
- end;
- Class Function TTablesFilesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Procedure TTablesFilesResource.Insert(id: string; AQuery : string = '');
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{id}/files';
- _Methodid = 'mapsengine.tables.files.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
- end;
- Procedure TTablesFilesResource.Insert(id: string; AQuery : TTablesFilesinsertOptions);
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'filename',AQuery.filename);
- Insert(id,_Q);
- end;
- { --------------------------------------------------------------------
- TTablesParentsResource
- --------------------------------------------------------------------}
- Class Function TTablesParentsResource.ResourceName : String;
- begin
- Result:='parents';
- end;
- Class Function TTablesParentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TTablesParentsResource.List(id: string; AQuery : string = '') : TParentsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{id}/parents';
- _Methodid = 'mapsengine.tables.parents.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TParentsListResponse) as TParentsListResponse;
- end;
- Function TTablesParentsResource.List(id: string; AQuery : TTablesParentslistOptions) : TParentsListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(id,_Q);
- end;
- { --------------------------------------------------------------------
- TTablesPermissionsResource
- --------------------------------------------------------------------}
- Class Function TTablesPermissionsResource.ResourceName : String;
- begin
- Result:='permissions';
- end;
- Class Function TTablesPermissionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TTablesPermissionsResource.BatchDelete(id: string; aPermissionsBatchDeleteRequest : TPermissionsBatchDeleteRequest) : TPermissionsBatchDeleteResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{id}/permissions/batchDelete';
- _Methodid = 'mapsengine.tables.permissions.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchDeleteRequest,TPermissionsBatchDeleteResponse) as TPermissionsBatchDeleteResponse;
- end;
- Function TTablesPermissionsResource.BatchUpdate(id: string; aPermissionsBatchUpdateRequest : TPermissionsBatchUpdateRequest) : TPermissionsBatchUpdateResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{id}/permissions/batchUpdate';
- _Methodid = 'mapsengine.tables.permissions.batchUpdate';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPermissionsBatchUpdateRequest,TPermissionsBatchUpdateResponse) as TPermissionsBatchUpdateResponse;
- end;
- Function TTablesPermissionsResource.List(id: string) : TPermissionsListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{id}/permissions';
- _Methodid = 'mapsengine.tables.permissions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionsListResponse) as TPermissionsListResponse;
- end;
- { --------------------------------------------------------------------
- TTablesResource
- --------------------------------------------------------------------}
- Class Function TTablesResource.ResourceName : String;
- begin
- Result:='tables';
- end;
- Class Function TTablesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TmapsengineAPI;
- end;
- Function TTablesResource.Create(aTable : TTable) : TTable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables';
- _Methodid = 'mapsengine.tables.create';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aTable,TTable) as TTable;
- end;
- Procedure TTablesResource.Delete(id: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'tables/{id}';
- _Methodid = 'mapsengine.tables.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TTablesResource.Get(id: string; AQuery : string = '') : TTable;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{id}';
- _Methodid = 'mapsengine.tables.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTable) as TTable;
- end;
- Function TTablesResource.Get(id: string; AQuery : TTablesgetOptions) : TTable;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'version',AQuery.version);
- Result:=Get(id,_Q);
- end;
- Function TTablesResource.List(AQuery : string = '') : TTablesListResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables';
- _Methodid = 'mapsengine.tables.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TTablesListResponse) as TTablesListResponse;
- end;
- Function TTablesResource.List(AQuery : TTableslistOptions) : TTablesListResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'bbox',AQuery.bbox);
- AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
- AddToQuery(_Q,'createdBefore',AQuery.createdBefore);
- AddToQuery(_Q,'creatorEmail',AQuery.creatorEmail);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'modifiedAfter',AQuery.modifiedAfter);
- AddToQuery(_Q,'modifiedBefore',AQuery.modifiedBefore);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'processingStatus',AQuery.processingStatus);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- AddToQuery(_Q,'role',AQuery.role);
- AddToQuery(_Q,'search',AQuery.search);
- AddToQuery(_Q,'tags',AQuery.tags);
- Result:=List(_Q);
- end;
- Procedure TTablesResource.Patch(id: string; aTable : TTable);
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'tables/{id}';
- _Methodid = 'mapsengine.tables.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',aTable,Nil);
- end;
- Function TTablesResource.Process(id: string) : TProcessResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{id}/process';
- _Methodid = 'mapsengine.tables.process';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProcessResponse) as TProcessResponse;
- end;
- Function TTablesResource.Upload(aTable : TTable) : TTable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/upload';
- _Methodid = 'mapsengine.tables.upload';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aTable,TTable) as TTable;
- end;
- Function TTablesResource.GetFeaturesInstance : TTablesFeaturesResource;
- begin
- if (FFeaturesInstance=Nil) then
- FFeaturesInstance:=CreateFeaturesResource;
- Result:=FFeaturesInstance;
- end;
- Function TTablesResource.CreateFeaturesResource : TTablesFeaturesResource;
- begin
- Result:=CreateFeaturesResource(Self);
- end;
- Function TTablesResource.CreateFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;
- begin
- Result:=TTablesFeaturesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTablesResource.GetFilesInstance : TTablesFilesResource;
- begin
- if (FFilesInstance=Nil) then
- FFilesInstance:=CreateFilesResource;
- Result:=FFilesInstance;
- end;
- Function TTablesResource.CreateFilesResource : TTablesFilesResource;
- begin
- Result:=CreateFilesResource(Self);
- end;
- Function TTablesResource.CreateFilesResource(AOwner : TComponent) : TTablesFilesResource;
- begin
- Result:=TTablesFilesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTablesResource.GetParentsInstance : TTablesParentsResource;
- begin
- if (FParentsInstance=Nil) then
- FParentsInstance:=CreateParentsResource;
- Result:=FParentsInstance;
- end;
- Function TTablesResource.CreateParentsResource : TTablesParentsResource;
- begin
- Result:=CreateParentsResource(Self);
- end;
- Function TTablesResource.CreateParentsResource(AOwner : TComponent) : TTablesParentsResource;
- begin
- Result:=TTablesParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTablesResource.GetPermissionsInstance : TTablesPermissionsResource;
- begin
- if (FPermissionsInstance=Nil) then
- FPermissionsInstance:=CreatePermissionsResource;
- Result:=FPermissionsInstance;
- end;
- Function TTablesResource.CreatePermissionsResource : TTablesPermissionsResource;
- begin
- Result:=CreatePermissionsResource(Self);
- end;
- Function TTablesResource.CreatePermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;
- begin
- Result:=TTablesPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TMapsengineAPI
- --------------------------------------------------------------------}
- Class Function TMapsengineAPI.APIName : String;
- begin
- Result:='mapsengine';
- end;
- Class Function TMapsengineAPI.APIVersion : String;
- begin
- Result:='v1';
- end;
- Class Function TMapsengineAPI.APIRevision : String;
- begin
- Result:='20150414';
- end;
- Class Function TMapsengineAPI.APIID : String;
- begin
- Result:='mapsengine:v1';
- end;
- Class Function TMapsengineAPI.APITitle : String;
- begin
- Result:='Google Maps Engine API';
- end;
- Class Function TMapsengineAPI.APIDescription : String;
- begin
- Result:='The Google Maps Engine API allows developers to store and query geospatial vector and raster data.';
- end;
- Class Function TMapsengineAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TMapsengineAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TMapsengineAPI.APIIcon16 : String;
- begin
- Result:='https://www.google.com/images/icons/product/maps_engine-16.png';
- end;
- Class Function TMapsengineAPI.APIIcon32 : String;
- begin
- Result:='https://www.google.com/images/icons/product/maps_engine-32.png';
- end;
- Class Function TMapsengineAPI.APIdocumentationLink : String;
- begin
- Result:='https://developers.google.com/maps-engine/';
- end;
- Class Function TMapsengineAPI.APIrootUrl : string;
- begin
- Result:='https://www.googleapis.com:443/';
- end;
- Class Function TMapsengineAPI.APIbasePath : string;
- begin
- Result:='/mapsengine/v1/';
- end;
- Class Function TMapsengineAPI.APIbaseURL : String;
- begin
- Result:='https://www.googleapis.com:443/mapsengine/v1/';
- end;
- Class Function TMapsengineAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TMapsengineAPI.APIservicePath : string;
- begin
- Result:='mapsengine/v1/';
- end;
- Class Function TMapsengineAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TMapsengineAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,2);
- Result[0].Name:='https://www.googleapis.com/auth/mapsengine';
- Result[0].Description:='View and manage your Google My Maps data';
- Result[1].Name:='https://www.googleapis.com/auth/mapsengine.readonly';
- Result[1].Description:='View your Google My Maps data';
-
- end;
- Class Function TMapsengineAPI.APINeedsAuth : Boolean;
- begin
- Result:=True;
- end;
- Class Procedure TMapsengineAPI.RegisterAPIResources;
- begin
- TAcquisitionTime.RegisterObject;
- TAsset.RegisterObject;
- TAssetsListResponse.RegisterObject;
- TBorder.RegisterObject;
- TColor.RegisterObject;
- TDatasource.RegisterObject;
- TDisplayRule.RegisterObject;
- TFeature.RegisterObject;
- TFeatureInfo.RegisterObject;
- TFeaturesBatchDeleteRequest.RegisterObject;
- TFeaturesBatchInsertRequest.RegisterObject;
- TFeaturesBatchPatchRequest.RegisterObject;
- TFeaturesListResponse.RegisterObject;
- TFile.RegisterObject;
- TFilter.RegisterObject;
- TGeoJsonGeometry.RegisterObject;
- TGeoJsonGeometryCollection.RegisterObject;
- TGeoJsonLineString.RegisterObject;
- TGeoJsonMultiLineString.RegisterObject;
- TGeoJsonMultiPoint.RegisterObject;
- TGeoJsonMultiPolygon.RegisterObject;
- TGeoJsonPoint.RegisterObject;
- TGeoJsonPolygon.RegisterObject;
- TGeoJsonProperties.RegisterObject;
- TIcon.RegisterObject;
- TIconStyle.RegisterObject;
- TIconsListResponse.RegisterObject;
- TLabelStyle.RegisterObject;
- TLayer.RegisterObject;
- TLayersListResponse.RegisterObject;
- TLineStyleTypestroke.RegisterObject;
- TLineStyle.RegisterObject;
- TMap.RegisterObject;
- TMapFolder.RegisterObject;
- TMapItem.RegisterObject;
- TMapKmlLink.RegisterObject;
- TMapLayer.RegisterObject;
- TMapsListResponse.RegisterObject;
- TParent.RegisterObject;
- TParentsListResponse.RegisterObject;
- TPermission.RegisterObject;
- TPermissionsBatchDeleteRequest.RegisterObject;
- TPermissionsBatchDeleteResponse.RegisterObject;
- TPermissionsBatchUpdateRequest.RegisterObject;
- TPermissionsBatchUpdateResponse.RegisterObject;
- TPermissionsListResponse.RegisterObject;
- TPointStyle.RegisterObject;
- TPolygonStyle.RegisterObject;
- TProcessResponse.RegisterObject;
- TProject.RegisterObject;
- TProjectsListResponse.RegisterObject;
- TPublishResponse.RegisterObject;
- TPublishedLayer.RegisterObject;
- TPublishedLayersListResponse.RegisterObject;
- TPublishedMap.RegisterObject;
- TPublishedMapsListResponse.RegisterObject;
- TRaster.RegisterObject;
- TRasterCollection.RegisterObject;
- TRasterCollectionsListResponse.RegisterObject;
- TRasterCollectionsRaster.RegisterObject;
- TRasterCollectionsRasterBatchDeleteRequest.RegisterObject;
- TRasterCollectionsRastersBatchDeleteResponse.RegisterObject;
- TRasterCollectionsRastersBatchInsertRequest.RegisterObject;
- TRasterCollectionsRastersBatchInsertResponse.RegisterObject;
- TRasterCollectionsRastersListResponse.RegisterObject;
- TRastersListResponse.RegisterObject;
- TScaledShape.RegisterObject;
- TScalingFunction.RegisterObject;
- TSchema.RegisterObject;
- TSizeRange.RegisterObject;
- TTable.RegisterObject;
- TTableColumn.RegisterObject;
- TTablesListResponse.RegisterObject;
- TValueRange.RegisterObject;
- TVectorStyle.RegisterObject;
- TZoomLevels.RegisterObject;
- end;
- Function TMapsengineAPI.GetAssetsParentsInstance : TAssetsParentsResource;
- begin
- if (FAssetsParentsInstance=Nil) then
- FAssetsParentsInstance:=CreateAssetsParentsResource;
- Result:=FAssetsParentsInstance;
- end;
- Function TMapsengineAPI.CreateAssetsParentsResource : TAssetsParentsResource;
- begin
- Result:=CreateAssetsParentsResource(Self);
- end;
- Function TMapsengineAPI.CreateAssetsParentsResource(AOwner : TComponent) : TAssetsParentsResource;
- begin
- Result:=TAssetsParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetAssetsPermissionsInstance : TAssetsPermissionsResource;
- begin
- if (FAssetsPermissionsInstance=Nil) then
- FAssetsPermissionsInstance:=CreateAssetsPermissionsResource;
- Result:=FAssetsPermissionsInstance;
- end;
- Function TMapsengineAPI.CreateAssetsPermissionsResource : TAssetsPermissionsResource;
- begin
- Result:=CreateAssetsPermissionsResource(Self);
- end;
- Function TMapsengineAPI.CreateAssetsPermissionsResource(AOwner : TComponent) : TAssetsPermissionsResource;
- begin
- Result:=TAssetsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetAssetsInstance : TAssetsResource;
- begin
- if (FAssetsInstance=Nil) then
- FAssetsInstance:=CreateAssetsResource;
- Result:=FAssetsInstance;
- end;
- Function TMapsengineAPI.CreateAssetsResource : TAssetsResource;
- begin
- Result:=CreateAssetsResource(Self);
- end;
- Function TMapsengineAPI.CreateAssetsResource(AOwner : TComponent) : TAssetsResource;
- begin
- Result:=TAssetsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetLayersParentsInstance : TLayersParentsResource;
- begin
- if (FLayersParentsInstance=Nil) then
- FLayersParentsInstance:=CreateLayersParentsResource;
- Result:=FLayersParentsInstance;
- end;
- Function TMapsengineAPI.CreateLayersParentsResource : TLayersParentsResource;
- begin
- Result:=CreateLayersParentsResource(Self);
- end;
- Function TMapsengineAPI.CreateLayersParentsResource(AOwner : TComponent) : TLayersParentsResource;
- begin
- Result:=TLayersParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetLayersPermissionsInstance : TLayersPermissionsResource;
- begin
- if (FLayersPermissionsInstance=Nil) then
- FLayersPermissionsInstance:=CreateLayersPermissionsResource;
- Result:=FLayersPermissionsInstance;
- end;
- Function TMapsengineAPI.CreateLayersPermissionsResource : TLayersPermissionsResource;
- begin
- Result:=CreateLayersPermissionsResource(Self);
- end;
- Function TMapsengineAPI.CreateLayersPermissionsResource(AOwner : TComponent) : TLayersPermissionsResource;
- begin
- Result:=TLayersPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetLayersInstance : TLayersResource;
- begin
- if (FLayersInstance=Nil) then
- FLayersInstance:=CreateLayersResource;
- Result:=FLayersInstance;
- end;
- Function TMapsengineAPI.CreateLayersResource : TLayersResource;
- begin
- Result:=CreateLayersResource(Self);
- end;
- Function TMapsengineAPI.CreateLayersResource(AOwner : TComponent) : TLayersResource;
- begin
- Result:=TLayersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetMapsPermissionsInstance : TMapsPermissionsResource;
- begin
- if (FMapsPermissionsInstance=Nil) then
- FMapsPermissionsInstance:=CreateMapsPermissionsResource;
- Result:=FMapsPermissionsInstance;
- end;
- Function TMapsengineAPI.CreateMapsPermissionsResource : TMapsPermissionsResource;
- begin
- Result:=CreateMapsPermissionsResource(Self);
- end;
- Function TMapsengineAPI.CreateMapsPermissionsResource(AOwner : TComponent) : TMapsPermissionsResource;
- begin
- Result:=TMapsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetMapsInstance : TMapsResource;
- begin
- if (FMapsInstance=Nil) then
- FMapsInstance:=CreateMapsResource;
- Result:=FMapsInstance;
- end;
- Function TMapsengineAPI.CreateMapsResource : TMapsResource;
- begin
- Result:=CreateMapsResource(Self);
- end;
- Function TMapsengineAPI.CreateMapsResource(AOwner : TComponent) : TMapsResource;
- begin
- Result:=TMapsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetProjectsIconsInstance : TProjectsIconsResource;
- begin
- if (FProjectsIconsInstance=Nil) then
- FProjectsIconsInstance:=CreateProjectsIconsResource;
- Result:=FProjectsIconsInstance;
- end;
- Function TMapsengineAPI.CreateProjectsIconsResource : TProjectsIconsResource;
- begin
- Result:=CreateProjectsIconsResource(Self);
- end;
- Function TMapsengineAPI.CreateProjectsIconsResource(AOwner : TComponent) : TProjectsIconsResource;
- begin
- Result:=TProjectsIconsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetProjectsInstance : TProjectsResource;
- begin
- if (FProjectsInstance=Nil) then
- FProjectsInstance:=CreateProjectsResource;
- Result:=FProjectsInstance;
- end;
- Function TMapsengineAPI.CreateProjectsResource : TProjectsResource;
- begin
- Result:=CreateProjectsResource(Self);
- end;
- Function TMapsengineAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
- begin
- Result:=TProjectsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRasterCollectionsParentsInstance : TRasterCollectionsParentsResource;
- begin
- if (FRasterCollectionsParentsInstance=Nil) then
- FRasterCollectionsParentsInstance:=CreateRasterCollectionsParentsResource;
- Result:=FRasterCollectionsParentsInstance;
- end;
- Function TMapsengineAPI.CreateRasterCollectionsParentsResource : TRasterCollectionsParentsResource;
- begin
- Result:=CreateRasterCollectionsParentsResource(Self);
- end;
- Function TMapsengineAPI.CreateRasterCollectionsParentsResource(AOwner : TComponent) : TRasterCollectionsParentsResource;
- begin
- Result:=TRasterCollectionsParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRasterCollectionsPermissionsInstance : TRasterCollectionsPermissionsResource;
- begin
- if (FRasterCollectionsPermissionsInstance=Nil) then
- FRasterCollectionsPermissionsInstance:=CreateRasterCollectionsPermissionsResource;
- Result:=FRasterCollectionsPermissionsInstance;
- end;
- Function TMapsengineAPI.CreateRasterCollectionsPermissionsResource : TRasterCollectionsPermissionsResource;
- begin
- Result:=CreateRasterCollectionsPermissionsResource(Self);
- end;
- Function TMapsengineAPI.CreateRasterCollectionsPermissionsResource(AOwner : TComponent) : TRasterCollectionsPermissionsResource;
- begin
- Result:=TRasterCollectionsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRasterCollectionsRastersInstance : TRasterCollectionsRastersResource;
- begin
- if (FRasterCollectionsRastersInstance=Nil) then
- FRasterCollectionsRastersInstance:=CreateRasterCollectionsRastersResource;
- Result:=FRasterCollectionsRastersInstance;
- end;
- Function TMapsengineAPI.CreateRasterCollectionsRastersResource : TRasterCollectionsRastersResource;
- begin
- Result:=CreateRasterCollectionsRastersResource(Self);
- end;
- Function TMapsengineAPI.CreateRasterCollectionsRastersResource(AOwner : TComponent) : TRasterCollectionsRastersResource;
- begin
- Result:=TRasterCollectionsRastersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRasterCollectionsInstance : TRasterCollectionsResource;
- begin
- if (FRasterCollectionsInstance=Nil) then
- FRasterCollectionsInstance:=CreateRasterCollectionsResource;
- Result:=FRasterCollectionsInstance;
- end;
- Function TMapsengineAPI.CreateRasterCollectionsResource : TRasterCollectionsResource;
- begin
- Result:=CreateRasterCollectionsResource(Self);
- end;
- Function TMapsengineAPI.CreateRasterCollectionsResource(AOwner : TComponent) : TRasterCollectionsResource;
- begin
- Result:=TRasterCollectionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRastersFilesInstance : TRastersFilesResource;
- begin
- if (FRastersFilesInstance=Nil) then
- FRastersFilesInstance:=CreateRastersFilesResource;
- Result:=FRastersFilesInstance;
- end;
- Function TMapsengineAPI.CreateRastersFilesResource : TRastersFilesResource;
- begin
- Result:=CreateRastersFilesResource(Self);
- end;
- Function TMapsengineAPI.CreateRastersFilesResource(AOwner : TComponent) : TRastersFilesResource;
- begin
- Result:=TRastersFilesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRastersParentsInstance : TRastersParentsResource;
- begin
- if (FRastersParentsInstance=Nil) then
- FRastersParentsInstance:=CreateRastersParentsResource;
- Result:=FRastersParentsInstance;
- end;
- Function TMapsengineAPI.CreateRastersParentsResource : TRastersParentsResource;
- begin
- Result:=CreateRastersParentsResource(Self);
- end;
- Function TMapsengineAPI.CreateRastersParentsResource(AOwner : TComponent) : TRastersParentsResource;
- begin
- Result:=TRastersParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRastersPermissionsInstance : TRastersPermissionsResource;
- begin
- if (FRastersPermissionsInstance=Nil) then
- FRastersPermissionsInstance:=CreateRastersPermissionsResource;
- Result:=FRastersPermissionsInstance;
- end;
- Function TMapsengineAPI.CreateRastersPermissionsResource : TRastersPermissionsResource;
- begin
- Result:=CreateRastersPermissionsResource(Self);
- end;
- Function TMapsengineAPI.CreateRastersPermissionsResource(AOwner : TComponent) : TRastersPermissionsResource;
- begin
- Result:=TRastersPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetRastersInstance : TRastersResource;
- begin
- if (FRastersInstance=Nil) then
- FRastersInstance:=CreateRastersResource;
- Result:=FRastersInstance;
- end;
- Function TMapsengineAPI.CreateRastersResource : TRastersResource;
- begin
- Result:=CreateRastersResource(Self);
- end;
- Function TMapsengineAPI.CreateRastersResource(AOwner : TComponent) : TRastersResource;
- begin
- Result:=TRastersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetTablesFeaturesInstance : TTablesFeaturesResource;
- begin
- if (FTablesFeaturesInstance=Nil) then
- FTablesFeaturesInstance:=CreateTablesFeaturesResource;
- Result:=FTablesFeaturesInstance;
- end;
- Function TMapsengineAPI.CreateTablesFeaturesResource : TTablesFeaturesResource;
- begin
- Result:=CreateTablesFeaturesResource(Self);
- end;
- Function TMapsengineAPI.CreateTablesFeaturesResource(AOwner : TComponent) : TTablesFeaturesResource;
- begin
- Result:=TTablesFeaturesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetTablesFilesInstance : TTablesFilesResource;
- begin
- if (FTablesFilesInstance=Nil) then
- FTablesFilesInstance:=CreateTablesFilesResource;
- Result:=FTablesFilesInstance;
- end;
- Function TMapsengineAPI.CreateTablesFilesResource : TTablesFilesResource;
- begin
- Result:=CreateTablesFilesResource(Self);
- end;
- Function TMapsengineAPI.CreateTablesFilesResource(AOwner : TComponent) : TTablesFilesResource;
- begin
- Result:=TTablesFilesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetTablesParentsInstance : TTablesParentsResource;
- begin
- if (FTablesParentsInstance=Nil) then
- FTablesParentsInstance:=CreateTablesParentsResource;
- Result:=FTablesParentsInstance;
- end;
- Function TMapsengineAPI.CreateTablesParentsResource : TTablesParentsResource;
- begin
- Result:=CreateTablesParentsResource(Self);
- end;
- Function TMapsengineAPI.CreateTablesParentsResource(AOwner : TComponent) : TTablesParentsResource;
- begin
- Result:=TTablesParentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetTablesPermissionsInstance : TTablesPermissionsResource;
- begin
- if (FTablesPermissionsInstance=Nil) then
- FTablesPermissionsInstance:=CreateTablesPermissionsResource;
- Result:=FTablesPermissionsInstance;
- end;
- Function TMapsengineAPI.CreateTablesPermissionsResource : TTablesPermissionsResource;
- begin
- Result:=CreateTablesPermissionsResource(Self);
- end;
- Function TMapsengineAPI.CreateTablesPermissionsResource(AOwner : TComponent) : TTablesPermissionsResource;
- begin
- Result:=TTablesPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TMapsengineAPI.GetTablesInstance : TTablesResource;
- begin
- if (FTablesInstance=Nil) then
- FTablesInstance:=CreateTablesResource;
- Result:=FTablesInstance;
- end;
- Function TMapsengineAPI.CreateTablesResource : TTablesResource;
- begin
- Result:=CreateTablesResource(Self);
- end;
- Function TMapsengineAPI.CreateTablesResource(AOwner : TComponent) : TTablesResource;
- begin
- Result:=TTablesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TMapsengineAPI.RegisterAPI;
- end.
|