Gemfury

beefree / fpc-src deb

Repository URL to install this package:
Details
fpc-src / usr / share / fpcsrc / 3.2.0 / packages / googleapi / src / googledeploymentmanager.pp
unit googledeploymentmanager;
{$MODE objfpc}
{$H+}

interface

uses sysutils, classes, googleservice, restbase, googlebase;

type
  
  //Top-level schema types
  TConfigFile = Class;
  TDeployment = Class;
  TDeploymentLabelEntry = Class;
  TDeploymentUpdate = Class;
  TDeploymentUpdateLabelEntry = Class;
  TDeploymentsCancelPreviewRequest = Class;
  TDeploymentsListResponse = Class;
  TDeploymentsStopRequest = Class;
  TImportFile = Class;
  TManifest = Class;
  TManifestsListResponse = Class;
  TOperation = Class;
  TOperationsListResponse = Class;
  TResource = Class;
  TResourceUpdate = Class;
  TResourcesListResponse = Class;
  TTargetConfiguration = Class;
  TType = Class;
  TTypesListResponse = Class;
  TConfigFileArray = Array of TConfigFile;
  TDeploymentArray = Array of TDeployment;
  TDeploymentLabelEntryArray = Array of TDeploymentLabelEntry;
  TDeploymentUpdateArray = Array of TDeploymentUpdate;
  TDeploymentUpdateLabelEntryArray = Array of TDeploymentUpdateLabelEntry;
  TDeploymentsCancelPreviewRequestArray = Array of TDeploymentsCancelPreviewRequest;
  TDeploymentsListResponseArray = Array of TDeploymentsListResponse;
  TDeploymentsStopRequestArray = Array of TDeploymentsStopRequest;
  TImportFileArray = Array of TImportFile;
  TManifestArray = Array of TManifest;
  TManifestsListResponseArray = Array of TManifestsListResponse;
  TOperationArray = Array of TOperation;
  TOperationsListResponseArray = Array of TOperationsListResponse;
  TResourceArray = Array of TResource;
  TResourceUpdateArray = Array of TResourceUpdate;
  TResourcesListResponseArray = Array of TResourcesListResponse;
  TTargetConfigurationArray = Array of TTargetConfiguration;
  TTypeArray = Array of TType;
  TTypesListResponseArray = Array of TTypesListResponse;
  //Anonymous types, using auto-generated names
  TOperationTypeerrorTypeerrorsItem = Class;
  TOperationTypeerror = Class;
  TOperationTypewarningsItemTypedataItem = Class;
  TOperationTypewarningsItem = Class;
  TResourceTypewarningsItemTypedataItem = Class;
  TResourceTypewarningsItem = Class;
  TResourceUpdateTypeerrorTypeerrorsItem = Class;
  TResourceUpdateTypeerror = Class;
  TResourceUpdateTypewarningsItemTypedataItem = Class;
  TResourceUpdateTypewarningsItem = Class;
  TDeploymentTypelabelsArray = Array of TDeploymentLabelEntry;
  TDeploymentUpdateTypelabelsArray = Array of TDeploymentUpdateLabelEntry;
  TDeploymentsListResponseTypedeploymentsArray = Array of TDeployment;
  TManifestTypeimportsArray = Array of TImportFile;
  TManifestsListResponseTypemanifestsArray = Array of TManifest;
  TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
  TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
  TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
  TOperationsListResponseTypeoperationsArray = Array of TOperation;
  TResourceTypewarningsItemTypedataArray = Array of TResourceTypewarningsItemTypedataItem;
  TResourceTypewarningsArray = Array of TResourceTypewarningsItem;
  TResourceUpdateTypeerrorTypeerrorsArray = Array of TResourceUpdateTypeerrorTypeerrorsItem;
  TResourceUpdateTypewarningsItemTypedataArray = Array of TResourceUpdateTypewarningsItemTypedataItem;
  TResourceUpdateTypewarningsArray = Array of TResourceUpdateTypewarningsItem;
  TResourcesListResponseTyperesourcesArray = Array of TResource;
  TTargetConfigurationTypeimportsArray = Array of TImportFile;
  TTypesListResponseTypetypesArray = Array of TType;
  
  { --------------------------------------------------------------------
    TConfigFile
    --------------------------------------------------------------------}
  
  TConfigFile = 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;
  TConfigFileClass = Class of TConfigFile;
  
  { --------------------------------------------------------------------
    TDeployment
    --------------------------------------------------------------------}
  
  TDeployment = Class(TGoogleBaseObject)
  Private
    Fdescription : String;
    Ffingerprint : String;
    Fid : String;
    FinsertTime : String;
    Flabels : TDeploymentTypelabelsArray;
    Fmanifest : String;
    Fname : String;
    Foperation : TOperation;
    FselfLink : String;
    Ftarget : TTargetConfiguration;
    Fupdate : TDeploymentUpdate;
  Protected
    //Property setters
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlabels(AIndex : Integer; const AValue : TDeploymentTypelabelsArray); virtual;
    Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setoperation(AIndex : Integer; const AValue : TOperation); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Settarget(AIndex : Integer; const AValue : TTargetConfiguration); virtual;
    Procedure Setupdate(AIndex : Integer; const AValue : TDeploymentUpdate); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property description : String Index 0 Read Fdescription Write Setdescription;
    Property fingerprint : String Index 8 Read Ffingerprint Write Setfingerprint;
    Property id : String Index 16 Read Fid Write Setid;
    Property insertTime : String Index 24 Read FinsertTime Write SetinsertTime;
    Property labels : TDeploymentTypelabelsArray Index 32 Read Flabels Write Setlabels;
    Property manifest : String Index 40 Read Fmanifest Write Setmanifest;
    Property name : String Index 48 Read Fname Write Setname;
    Property operation : TOperation Index 56 Read Foperation Write Setoperation;
    Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
    Property target : TTargetConfiguration Index 72 Read Ftarget Write Settarget;
    Property update : TDeploymentUpdate Index 80 Read Fupdate Write Setupdate;
  end;
  TDeploymentClass = Class of TDeployment;
  
  { --------------------------------------------------------------------
    TDeploymentLabelEntry
    --------------------------------------------------------------------}
  
  TDeploymentLabelEntry = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TDeploymentLabelEntryClass = Class of TDeploymentLabelEntry;
  
  { --------------------------------------------------------------------
    TDeploymentUpdate
    --------------------------------------------------------------------}
  
  TDeploymentUpdate = Class(TGoogleBaseObject)
  Private
    Flabels : TDeploymentUpdateTypelabelsArray;
    Fmanifest : String;
  Protected
    //Property setters
    Procedure Setlabels(AIndex : Integer; const AValue : TDeploymentUpdateTypelabelsArray); virtual;
    Procedure Setmanifest(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 labels : TDeploymentUpdateTypelabelsArray Index 0 Read Flabels Write Setlabels;
    Property manifest : String Index 8 Read Fmanifest Write Setmanifest;
  end;
  TDeploymentUpdateClass = Class of TDeploymentUpdate;
  
  { --------------------------------------------------------------------
    TDeploymentUpdateLabelEntry
    --------------------------------------------------------------------}
  
  TDeploymentUpdateLabelEntry = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TDeploymentUpdateLabelEntryClass = Class of TDeploymentUpdateLabelEntry;
  
  { --------------------------------------------------------------------
    TDeploymentsCancelPreviewRequest
    --------------------------------------------------------------------}
  
  TDeploymentsCancelPreviewRequest = Class(TGoogleBaseObject)
  Private
    Ffingerprint : String;
  Protected
    //Property setters
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
  end;
  TDeploymentsCancelPreviewRequestClass = Class of TDeploymentsCancelPreviewRequest;
  
  { --------------------------------------------------------------------
    TDeploymentsListResponse
    --------------------------------------------------------------------}
  
  TDeploymentsListResponse = Class(TGoogleBaseObject)
  Private
    Fdeployments : TDeploymentsListResponseTypedeploymentsArray;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setdeployments(AIndex : Integer; const AValue : TDeploymentsListResponseTypedeploymentsArray); 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 deployments : TDeploymentsListResponseTypedeploymentsArray Index 0 Read Fdeployments Write Setdeployments;
    Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  end;
  TDeploymentsListResponseClass = Class of TDeploymentsListResponse;
  
  { --------------------------------------------------------------------
    TDeploymentsStopRequest
    --------------------------------------------------------------------}
  
  TDeploymentsStopRequest = Class(TGoogleBaseObject)
  Private
    Ffingerprint : String;
  Protected
    //Property setters
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
  end;
  TDeploymentsStopRequestClass = Class of TDeploymentsStopRequest;
  
  { --------------------------------------------------------------------
    TImportFile
    --------------------------------------------------------------------}
  
  TImportFile = Class(TGoogleBaseObject)
  Private
    Fcontent : String;
    Fname : String;
  Protected
    //Property setters
    Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property content : String Index 0 Read Fcontent Write Setcontent;
    Property name : String Index 8 Read Fname Write Setname;
  end;
  TImportFileClass = Class of TImportFile;
  
  { --------------------------------------------------------------------
    TManifest
    --------------------------------------------------------------------}
  
  TManifest = Class(TGoogleBaseObject)
  Private
    Fconfig : TConfigFile;
    FexpandedConfig : String;
    Fid : String;
    Fimports : TManifestTypeimportsArray;
    FinsertTime : String;
    Flayout : String;
    Fname : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setconfig(AIndex : Integer; const AValue : TConfigFile); virtual;
    Procedure SetexpandedConfig(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setimports(AIndex : Integer; const AValue : TManifestTypeimportsArray); virtual;
    Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlayout(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(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 config : TConfigFile Index 0 Read Fconfig Write Setconfig;
    Property expandedConfig : String Index 8 Read FexpandedConfig Write SetexpandedConfig;
    Property id : String Index 16 Read Fid Write Setid;
    Property imports : TManifestTypeimportsArray Index 24 Read Fimports Write Setimports;
    Property insertTime : String Index 32 Read FinsertTime Write SetinsertTime;
    Property layout : String Index 40 Read Flayout Write Setlayout;
    Property name : String Index 48 Read Fname Write Setname;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
  end;
  TManifestClass = Class of TManifest;
  
  { --------------------------------------------------------------------
    TManifestsListResponse
    --------------------------------------------------------------------}
  
  TManifestsListResponse = Class(TGoogleBaseObject)
  Private
    Fmanifests : TManifestsListResponseTypemanifestsArray;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setmanifests(AIndex : Integer; const AValue : TManifestsListResponseTypemanifestsArray); 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 manifests : TManifestsListResponseTypemanifestsArray Index 0 Read Fmanifests Write Setmanifests;
    Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  end;
  TManifestsListResponseClass = Class of TManifestsListResponse;
  
  { --------------------------------------------------------------------
    TOperationTypeerrorTypeerrorsItem
    --------------------------------------------------------------------}
  
  TOperationTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Flocation : String;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property location : String Index 8 Read Flocation Write Setlocation;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TOperationTypeerrorTypeerrorsItemClass = Class of TOperationTypeerrorTypeerrorsItem;
  
  { --------------------------------------------------------------------
    TOperationTypeerror
    --------------------------------------------------------------------}
  
  TOperationTypeerror = Class(TGoogleBaseObject)
  Private
    Ferrors : TOperationTypeerrorTypeerrorsArray;
  Protected
    //Property setters
    Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property errors : TOperationTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
  end;
  TOperationTypeerrorClass = Class of TOperationTypeerror;
  
  { --------------------------------------------------------------------
    TOperationTypewarningsItemTypedataItem
    --------------------------------------------------------------------}
  
  TOperationTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TOperationTypewarningsItemTypedataItemClass = Class of TOperationTypewarningsItemTypedataItem;
  
  { --------------------------------------------------------------------
    TOperationTypewarningsItem
    --------------------------------------------------------------------}
  
  TOperationTypewarningsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TOperationTypewarningsItemTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
    Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
    Property data : TOperationTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TOperationTypewarningsItemClass = Class of TOperationTypewarningsItem;
  
  { --------------------------------------------------------------------
    TOperation
    --------------------------------------------------------------------}
  
  TOperation = Class(TGoogleBaseObject)
  Private
    FclientOperationId : String;
    FcreationTimestamp : String;
    Fdescription : String;
    FendTime : String;
    Ferror : TOperationTypeerror;
    FhttpErrorMessage : String;
    FhttpErrorStatusCode : integer;
    Fid : String;
    FinsertTime : String;
    Fkind : String;
    Fname : String;
    FoperationType : String;
    Fprogress : integer;
    Fregion : String;
    FselfLink : String;
    FstartTime : String;
    Fstatus : String;
    FstatusMessage : String;
    FtargetId : String;
    FtargetLink : String;
    Fuser : String;
    Fwarnings : TOperationTypewarningsArray;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
    Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
    Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
    Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
    Procedure Setzone(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 clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property endTime : String Index 24 Read FendTime Write SetendTime;
    Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
    Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
    Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
    Property id : String Index 56 Read Fid Write Setid;
    Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
    Property kind : String Index 72 Read Fkind Write Setkind;
    Property name : String Index 80 Read Fname Write Setname;
    Property operationType : String Index 88 Read FoperationType Write SetoperationType;
    Property progress : integer Index 96 Read Fprogress Write Setprogress;
    Property region : String Index 104 Read Fregion Write Setregion;
    Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
    Property startTime : String Index 120 Read FstartTime Write SetstartTime;
    Property status : String Index 128 Read Fstatus Write Setstatus;
    Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
    Property targetId : String Index 144 Read FtargetId Write SettargetId;
    Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
    Property user : String Index 160 Read Fuser Write Setuser;
    Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
    Property zone : String Index 176 Read Fzone Write Setzone;
  end;
  TOperationClass = Class of TOperation;
  
  { --------------------------------------------------------------------
    TOperationsListResponse
    --------------------------------------------------------------------}
  
  TOperationsListResponse = Class(TGoogleBaseObject)
  Private
    FnextPageToken : String;
    Foperations : TOperationsListResponseTypeoperationsArray;
  Protected
    //Property setters
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray); 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 operations : TOperationsListResponseTypeoperationsArray Index 8 Read Foperations Write Setoperations;
  end;
  TOperationsListResponseClass = Class of TOperationsListResponse;
  
  { --------------------------------------------------------------------
    TResourceTypewarningsItemTypedataItem
    --------------------------------------------------------------------}
  
  TResourceTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TResourceTypewarningsItemTypedataItemClass = Class of TResourceTypewarningsItemTypedataItem;
  
  { --------------------------------------------------------------------
    TResourceTypewarningsItem
    --------------------------------------------------------------------}
  
  TResourceTypewarningsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TResourceTypewarningsItemTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TResourceTypewarningsItemTypedataArray); virtual;
    Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
    Property data : TResourceTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TResourceTypewarningsItemClass = Class of TResourceTypewarningsItem;
  
  { --------------------------------------------------------------------
    TResource
    --------------------------------------------------------------------}
  
  TResource = Class(TGoogleBaseObject)
  Private
    FfinalProperties : String;
    Fid : String;
    FinsertTime : String;
    Fmanifest : String;
    Fname : String;
    Fproperties : String;
    F_type : String;
    Fupdate : TResourceUpdate;
    FupdateTime : String;
    Furl : String;
    Fwarnings : TResourceTypewarningsArray;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure SetfinalProperties(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setproperties(AIndex : Integer; const AValue : String); virtual;
    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
    Procedure Setupdate(AIndex : Integer; const AValue : TResourceUpdate); virtual;
    Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
    Procedure Setwarnings(AIndex : Integer; const AValue : TResourceTypewarningsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property finalProperties : String Index 0 Read FfinalProperties Write SetfinalProperties;
    Property id : String Index 8 Read Fid Write Setid;
    Property insertTime : String Index 16 Read FinsertTime Write SetinsertTime;
    Property manifest : String Index 24 Read Fmanifest Write Setmanifest;
    Property name : String Index 32 Read Fname Write Setname;
    Property properties : String Index 40 Read Fproperties Write Setproperties;
    Property _type : String Index 48 Read F_type Write Set_type;
    Property update : TResourceUpdate Index 56 Read Fupdate Write Setupdate;
    Property updateTime : String Index 64 Read FupdateTime Write SetupdateTime;
    Property url : String Index 72 Read Furl Write Seturl;
    Property warnings : TResourceTypewarningsArray Index 80 Read Fwarnings Write Setwarnings;
  end;
  TResourceClass = Class of TResource;
  
  { --------------------------------------------------------------------
    TResourceUpdateTypeerrorTypeerrorsItem
    --------------------------------------------------------------------}
  
  TResourceUpdateTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Flocation : String;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property location : String Index 8 Read Flocation Write Setlocation;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TResourceUpdateTypeerrorTypeerrorsItemClass = Class of TResourceUpdateTypeerrorTypeerrorsItem;
  
  { --------------------------------------------------------------------
    TResourceUpdateTypeerror
    --------------------------------------------------------------------}
  
  TResourceUpdateTypeerror = Class(TGoogleBaseObject)
  Private
    Ferrors : TResourceUpdateTypeerrorTypeerrorsArray;
  Protected
    //Property setters
    Procedure Seterrors(AIndex : Integer; const AValue : TResourceUpdateTypeerrorTypeerrorsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property errors : TResourceUpdateTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
  end;
  TResourceUpdateTypeerrorClass = Class of TResourceUpdateTypeerror;
  
  { --------------------------------------------------------------------
    TResourceUpdateTypewarningsItemTypedataItem
    --------------------------------------------------------------------}
  
  TResourceUpdateTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TResourceUpdateTypewarningsItemTypedataItemClass = Class of TResourceUpdateTypewarningsItemTypedataItem;
  
  { --------------------------------------------------------------------
    TResourceUpdateTypewarningsItem
    --------------------------------------------------------------------}
  
  TResourceUpdateTypewarningsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TResourceUpdateTypewarningsItemTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TResourceUpdateTypewarningsItemTypedataArray); virtual;
    Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
    Property data : TResourceUpdateTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TResourceUpdateTypewarningsItemClass = Class of TResourceUpdateTypewarningsItem;
  
  { --------------------------------------------------------------------
    TResourceUpdate
    --------------------------------------------------------------------}
  
  TResourceUpdate = Class(TGoogleBaseObject)
  Private
    Ferror : TResourceUpdateTypeerror;
    FfinalProperties : String;
    Fintent : String;
    Fmanifest : String;
    Fproperties : String;
    Fstate : String;
    Fwarnings : TResourceUpdateTypewarningsArray;
  Protected
    //Property setters
    Procedure Seterror(AIndex : Integer; const AValue : TResourceUpdateTypeerror); virtual;
    Procedure SetfinalProperties(AIndex : Integer; const AValue : String); virtual;
    Procedure Setintent(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
    Procedure Setproperties(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
    Procedure Setwarnings(AIndex : Integer; const AValue : TResourceUpdateTypewarningsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property error : TResourceUpdateTypeerror Index 0 Read Ferror Write Seterror;
    Property finalProperties : String Index 8 Read FfinalProperties Write SetfinalProperties;
    Property intent : String Index 16 Read Fintent Write Setintent;
    Property manifest : String Index 24 Read Fmanifest Write Setmanifest;
    Property properties : String Index 32 Read Fproperties Write Setproperties;
    Property state : String Index 40 Read Fstate Write Setstate;
    Property warnings : TResourceUpdateTypewarningsArray Index 48 Read Fwarnings Write Setwarnings;
  end;
  TResourceUpdateClass = Class of TResourceUpdate;
  
  { --------------------------------------------------------------------
    TResourcesListResponse
    --------------------------------------------------------------------}
  
  TResourcesListResponse = Class(TGoogleBaseObject)
  Private
    FnextPageToken : String;
    Fresources : TResourcesListResponseTyperesourcesArray;
  Protected
    //Property setters
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure Setresources(AIndex : Integer; const AValue : TResourcesListResponseTyperesourcesArray); 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 resources : TResourcesListResponseTyperesourcesArray Index 8 Read Fresources Write Setresources;
  end;
  TResourcesListResponseClass = Class of TResourcesListResponse;
  
  { --------------------------------------------------------------------
    TTargetConfiguration
    --------------------------------------------------------------------}
  
  TTargetConfiguration = Class(TGoogleBaseObject)
  Private
    Fconfig : TConfigFile;
    Fimports : TTargetConfigurationTypeimportsArray;
  Protected
    //Property setters
    Procedure Setconfig(AIndex : Integer; const AValue : TConfigFile); virtual;
    Procedure Setimports(AIndex : Integer; const AValue : TTargetConfigurationTypeimportsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property config : TConfigFile Index 0 Read Fconfig Write Setconfig;
    Property imports : TTargetConfigurationTypeimportsArray Index 8 Read Fimports Write Setimports;
  end;
  TTargetConfigurationClass = Class of TTargetConfiguration;
  
  { --------------------------------------------------------------------
    TType
    --------------------------------------------------------------------}
  
  TType = Class(TGoogleBaseObject)
  Private
    Fid : String;
    FinsertTime : String;
    Fname : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property insertTime : String Index 8 Read FinsertTime Write SetinsertTime;
    Property name : String Index 16 Read Fname Write Setname;
    Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
  end;
  TTypeClass = Class of TType;
  
  { --------------------------------------------------------------------
    TTypesListResponse
    --------------------------------------------------------------------}
  
  TTypesListResponse = Class(TGoogleBaseObject)
  Private
    FnextPageToken : String;
    Ftypes : TTypesListResponseTypetypesArray;
  Protected
    //Property setters
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure Settypes(AIndex : Integer; const AValue : TTypesListResponseTypetypesArray); 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 types : TTypesListResponseTypetypesArray Index 8 Read Ftypes Write Settypes;
  end;
  TTypesListResponseClass = Class of TTypesListResponse;
  
  { --------------------------------------------------------------------
    TDeploymentsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TDeploymentsResource, method Insert
  
  TDeploymentsInsertOptions = Record
    preview : boolean;
  end;
  
  
  //Optional query Options for TDeploymentsResource, method List
  
  TDeploymentsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TDeploymentsResource, method Patch
  
  TDeploymentsPatchOptions = Record
    createPolicy : String;
    deletePolicy : String;
    preview : boolean;
  end;
  
  
  //Optional query Options for TDeploymentsResource, method Update
  
  TDeploymentsUpdateOptions = Record
    createPolicy : String;
    deletePolicy : String;
    preview : boolean;
  end;
  
  TDeploymentsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function CancelPreview(deployment: string; project: string; aDeploymentsCancelPreviewRequest : TDeploymentsCancelPreviewRequest) : TOperation;
    Function Delete(deployment: string; project: string) : TOperation;
    Function Get(deployment: string; project: string) : TDeployment;
    Function Insert(project: string; aDeployment : TDeployment; AQuery : string  = '') : TOperation;
    Function Insert(project: string; aDeployment : TDeployment; AQuery : TDeploymentsinsertOptions) : TOperation;
    Function List(project: string; AQuery : string  = '') : TDeploymentsListResponse;
    Function List(project: string; AQuery : TDeploymentslistOptions) : TDeploymentsListResponse;
    Function Patch(deployment: string; project: string; aDeployment : TDeployment; AQuery : string  = '') : TOperation;
    Function Patch(deployment: string; project: string; aDeployment : TDeployment; AQuery : TDeploymentspatchOptions) : TOperation;
    Function Stop(deployment: string; project: string; aDeploymentsStopRequest : TDeploymentsStopRequest) : TOperation;
    Function Update(deployment: string; project: string; aDeployment : TDeployment; AQuery : string  = '') : TOperation;
    Function Update(deployment: string; project: string; aDeployment : TDeployment; AQuery : TDeploymentsupdateOptions) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TManifestsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TManifestsResource, method List
  
  TManifestsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TManifestsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(deployment: string; manifest: string; project: string) : TManifest;
    Function List(deployment: string; project: string; AQuery : string  = '') : TManifestsListResponse;
    Function List(deployment: string; project: string; AQuery : TManifestslistOptions) : TManifestsListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TOperationsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TOperationsResource, method List
  
  TOperationsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TOperationsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(operation: string; project: string) : TOperation;
    Function List(project: string; AQuery : string  = '') : TOperationsListResponse;
    Function List(project: string; AQuery : TOperationslistOptions) : TOperationsListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TResourcesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TResourcesResource, method List
  
  TResourcesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TResourcesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(deployment: string; project: string; resource: string) : TResource;
    Function List(deployment: string; project: string; AQuery : string  = '') : TResourcesListResponse;
    Function List(deployment: string; project: string; AQuery : TResourceslistOptions) : TResourcesListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TTypesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TTypesResource, method List
  
  TTypesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TTypesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function List(project: string; AQuery : string  = '') : TTypesListResponse;
    Function List(project: string; AQuery : TTypeslistOptions) : TTypesListResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TDeploymentmanagerAPI
    --------------------------------------------------------------------}
  
  TDeploymentmanagerAPI = Class(TGoogleAPI)
  Private
    FDeploymentsInstance : TDeploymentsResource;
    FManifestsInstance : TManifestsResource;
    FOperationsInstance : TOperationsResource;
    FResourcesInstance : TResourcesResource;
    FTypesInstance : TTypesResource;
    Function GetDeploymentsInstance : TDeploymentsResource;virtual;
    Function GetManifestsInstance : TManifestsResource;virtual;
    Function GetOperationsInstance : TOperationsResource;virtual;
    Function GetResourcesInstance : TResourcesResource;virtual;
    Function GetTypesInstance : TTypesResource;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 CreateDeploymentsResource(AOwner : TComponent) : TDeploymentsResource;virtual;overload;
    Function CreateDeploymentsResource : TDeploymentsResource;virtual;overload;
    Function CreateManifestsResource(AOwner : TComponent) : TManifestsResource;virtual;overload;
    Function CreateManifestsResource : TManifestsResource;virtual;overload;
    Function CreateOperationsResource(AOwner : TComponent) : TOperationsResource;virtual;overload;
    Function CreateOperationsResource : TOperationsResource;virtual;overload;
    Function CreateResourcesResource(AOwner : TComponent) : TResourcesResource;virtual;overload;
    Function CreateResourcesResource : TResourcesResource;virtual;overload;
    Function CreateTypesResource(AOwner : TComponent) : TTypesResource;virtual;overload;
    Function CreateTypesResource : TTypesResource;virtual;overload;
    //Add default on-demand instances for resources
    Property DeploymentsResource : TDeploymentsResource Read GetDeploymentsInstance;
    Property ManifestsResource : TManifestsResource Read GetManifestsInstance;
    Property OperationsResource : TOperationsResource Read GetOperationsInstance;
    Property ResourcesResource : TResourcesResource Read GetResourcesInstance;
    Property TypesResource : TTypesResource Read GetTypesInstance;
  end;

implementation


{ --------------------------------------------------------------------
  TConfigFile
  --------------------------------------------------------------------}


Procedure TConfigFile.Setcontent(AIndex : Integer; const AValue : String); 

begin
  If (Fcontent=AValue) then exit;
  Fcontent:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDeployment
  --------------------------------------------------------------------}


Procedure TDeployment.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.SetinsertTime(AIndex : Integer; const AValue : String); 

begin
  If (FinsertTime=AValue) then exit;
  FinsertTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Setlabels(AIndex : Integer; const AValue : TDeploymentTypelabelsArray); 

begin
  If (Flabels=AValue) then exit;
  Flabels:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Setmanifest(AIndex : Integer; const AValue : String); 

begin
  If (Fmanifest=AValue) then exit;
  Fmanifest:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Setoperation(AIndex : Integer; const AValue : TOperation); 

begin
  If (Foperation=AValue) then exit;
  Foperation:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Settarget(AIndex : Integer; const AValue : TTargetConfiguration); 

begin
  If (Ftarget=AValue) then exit;
  Ftarget:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeployment.Setupdate(AIndex : Integer; const AValue : TDeploymentUpdate); 

begin
  If (Fupdate=AValue) then exit;
  Fupdate:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDeployment.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'labels' : SetLength(Flabels,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDeploymentLabelEntry
  --------------------------------------------------------------------}


Procedure TDeploymentLabelEntry.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeploymentLabelEntry.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDeploymentUpdate
  --------------------------------------------------------------------}


Procedure TDeploymentUpdate.Setlabels(AIndex : Integer; const AValue : TDeploymentUpdateTypelabelsArray); 

begin
  If (Flabels=AValue) then exit;
  Flabels:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeploymentUpdate.Setmanifest(AIndex : Integer; const AValue : String); 

begin
  If (Fmanifest=AValue) then exit;
  Fmanifest:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDeploymentUpdate.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'labels' : SetLength(Flabels,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDeploymentUpdateLabelEntry
  --------------------------------------------------------------------}


Procedure TDeploymentUpdateLabelEntry.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeploymentUpdateLabelEntry.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDeploymentsCancelPreviewRequest
  --------------------------------------------------------------------}


Procedure TDeploymentsCancelPreviewRequest.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDeploymentsListResponse
  --------------------------------------------------------------------}


Procedure TDeploymentsListResponse.Setdeployments(AIndex : Integer; const AValue : TDeploymentsListResponseTypedeploymentsArray); 

begin
  If (Fdeployments=AValue) then exit;
  Fdeployments:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeploymentsListResponse.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 TDeploymentsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'deployments' : SetLength(Fdeployments,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDeploymentsStopRequest
  --------------------------------------------------------------------}


Procedure TDeploymentsStopRequest.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TImportFile
  --------------------------------------------------------------------}


Procedure TImportFile.Setcontent(AIndex : Integer; const AValue : String); 

begin
  If (Fcontent=AValue) then exit;
  Fcontent:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImportFile.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TManifest
  --------------------------------------------------------------------}


Procedure TManifest.Setconfig(AIndex : Integer; const AValue : TConfigFile); 

begin
  If (Fconfig=AValue) then exit;
  Fconfig:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifest.SetexpandedConfig(AIndex : Integer; const AValue : String); 

begin
  If (FexpandedConfig=AValue) then exit;
  FexpandedConfig:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifest.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifest.Setimports(AIndex : Integer; const AValue : TManifestTypeimportsArray); 

begin
  If (Fimports=AValue) then exit;
  Fimports:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifest.SetinsertTime(AIndex : Integer; const AValue : String); 

begin
  If (FinsertTime=AValue) then exit;
  FinsertTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifest.Setlayout(AIndex : Integer; const AValue : String); 

begin
  If (Flayout=AValue) then exit;
  Flayout:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifest.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifest.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TManifest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'imports' : SetLength(Fimports,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TManifestsListResponse
  --------------------------------------------------------------------}


Procedure TManifestsListResponse.Setmanifests(AIndex : Integer; const AValue : TManifestsListResponseTypemanifestsArray); 

begin
  If (Fmanifests=AValue) then exit;
  Fmanifests:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManifestsListResponse.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 TManifestsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'manifests' : SetLength(Fmanifests,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationTypeerrorTypeerrorsItem
  --------------------------------------------------------------------}


Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 

begin
  If (Flocation=AValue) then exit;
  Flocation:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TOperationTypeerror
  --------------------------------------------------------------------}


Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); 

begin
  If (Ferrors=AValue) then exit;
  Ferrors:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'errors' : SetLength(Ferrors,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationTypewarningsItemTypedataItem
  --------------------------------------------------------------------}


Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TOperationTypewarningsItem
  --------------------------------------------------------------------}


Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperation
  --------------------------------------------------------------------}


Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 

begin
  If (FclientOperationId=AValue) then exit;
  FclientOperationId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 

begin
  If (FendTime=AValue) then exit;
  FendTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror); 

begin
  If (Ferror=AValue) then exit;
  Ferror:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 

begin
  If (FhttpErrorMessage=AValue) then exit;
  FhttpErrorMessage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); 

begin
  If (FhttpErrorStatusCode=AValue) then exit;
  FhttpErrorStatusCode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 

begin
  If (FinsertTime=AValue) then exit;
  FinsertTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 

begin
  If (FoperationType=AValue) then exit;
  FoperationType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer); 

begin
  If (Fprogress=AValue) then exit;
  Fprogress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 

begin
  If (FstartTime=AValue) then exit;
  FstartTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 

begin
  If (FstatusMessage=AValue) then exit;
  FstatusMessage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 

begin
  If (FtargetId=AValue) then exit;
  FtargetId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 

begin
  If (FtargetLink=AValue) then exit;
  FtargetLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 

begin
  If (Fuser=AValue) then exit;
  Fuser:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); 

begin
  If (Fwarnings=AValue) then exit;
  Fwarnings:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'warnings' : SetLength(Fwarnings,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationsListResponse
  --------------------------------------------------------------------}


Procedure TOperationsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationsListResponse.Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray); 

begin
  If (Foperations=AValue) then exit;
  Foperations:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'operations' : SetLength(Foperations,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TResourceTypewarningsItemTypedataItem
  --------------------------------------------------------------------}


Procedure TResourceTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TResourceTypewarningsItem
  --------------------------------------------------------------------}


Procedure TResourceTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceTypewarningsItem.Setdata(AIndex : Integer; const AValue : TResourceTypewarningsItemTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TResourceTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TResource
  --------------------------------------------------------------------}


Procedure TResource.SetfinalProperties(AIndex : Integer; const AValue : String); 

begin
  If (FfinalProperties=AValue) then exit;
  FfinalProperties:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.SetinsertTime(AIndex : Integer; const AValue : String); 

begin
  If (FinsertTime=AValue) then exit;
  FinsertTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Setmanifest(AIndex : Integer; const AValue : String); 

begin
  If (Fmanifest=AValue) then exit;
  Fmanifest:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Setproperties(AIndex : Integer; const AValue : String); 

begin
  If (Fproperties=AValue) then exit;
  Fproperties:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Set_type(AIndex : Integer; const AValue : String); 

begin
  If (F_type=AValue) then exit;
  F_type:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Setupdate(AIndex : Integer; const AValue : TResourceUpdate); 

begin
  If (Fupdate=AValue) then exit;
  Fupdate:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.SetupdateTime(AIndex : Integer; const AValue : String); 

begin
  If (FupdateTime=AValue) then exit;
  FupdateTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResource.Setwarnings(AIndex : Integer; const AValue : TResourceTypewarningsArray); 

begin
  If (Fwarnings=AValue) then exit;
  Fwarnings:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TResource.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 TResource.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'warnings' : SetLength(Fwarnings,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TResourceUpdateTypeerrorTypeerrorsItem
  --------------------------------------------------------------------}


Procedure TResourceUpdateTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdateTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 

begin
  If (Flocation=AValue) then exit;
  Flocation:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdateTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TResourceUpdateTypeerror
  --------------------------------------------------------------------}


Procedure TResourceUpdateTypeerror.Seterrors(AIndex : Integer; const AValue : TResourceUpdateTypeerrorTypeerrorsArray); 

begin
  If (Ferrors=AValue) then exit;
  Ferrors:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TResourceUpdateTypeerror.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'errors' : SetLength(Ferrors,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TResourceUpdateTypewarningsItemTypedataItem
  --------------------------------------------------------------------}


Procedure TResourceUpdateTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdateTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TResourceUpdateTypewarningsItem
  --------------------------------------------------------------------}


Procedure TResourceUpdateTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdateTypewarningsItem.Setdata(AIndex : Integer; const AValue : TResourceUpdateTypewarningsItemTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdateTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TResourceUpdateTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TResourceUpdate
  --------------------------------------------------------------------}


Procedure TResourceUpdate.Seterror(AIndex : Integer; const AValue : TResourceUpdateTypeerror); 

begin
  If (Ferror=AValue) then exit;
  Ferror:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdate.SetfinalProperties(AIndex : Integer; const AValue : String); 

begin
  If (FfinalProperties=AValue) then exit;
  FfinalProperties:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdate.Setintent(AIndex : Integer; const AValue : String); 

begin
  If (Fintent=AValue) then exit;
  Fintent:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdate.Setmanifest(AIndex : Integer; const AValue : String); 

begin
  If (Fmanifest=AValue) then exit;
  Fmanifest:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdate.Setproperties(AIndex : Integer; const AValue : String); 

begin
  If (Fproperties=AValue) then exit;
  Fproperties:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdate.Setstate(AIndex : Integer; const AValue : String); 

begin
  If (Fstate=AValue) then exit;
  Fstate:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourceUpdate.Setwarnings(AIndex : Integer; const AValue : TResourceUpdateTypewarningsArray); 

begin
  If (Fwarnings=AValue) then exit;
  Fwarnings:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TResourceUpdate.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'warnings' : SetLength(Fwarnings,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TResourcesListResponse
  --------------------------------------------------------------------}


Procedure TResourcesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TResourcesListResponse.Setresources(AIndex : Integer; const AValue : TResourcesListResponseTyperesourcesArray); 

begin
  If (Fresources=AValue) then exit;
  Fresources:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TResourcesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'resources' : SetLength(Fresources,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetConfiguration
  --------------------------------------------------------------------}


Procedure TTargetConfiguration.Setconfig(AIndex : Integer; const AValue : TConfigFile); 

begin
  If (Fconfig=AValue) then exit;
  Fconfig:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetConfiguration.Setimports(AIndex : Integer; const AValue : TTargetConfigurationTypeimportsArray); 

begin
  If (Fimports=AValue) then exit;
  Fimports:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetConfiguration.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'imports' : SetLength(Fimports,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TType
  --------------------------------------------------------------------}


Procedure TType.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TType.SetinsertTime(AIndex : Integer; const AValue : String); 

begin
  If (FinsertTime=AValue) then exit;
  FinsertTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TType.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TType.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTypesListResponse
  --------------------------------------------------------------------}


Procedure TTypesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTypesListResponse.Settypes(AIndex : Integer; const AValue : TTypesListResponseTypetypesArray); 

begin
  If (Ftypes=AValue) then exit;
  Ftypes:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTypesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'types' : SetLength(Ftypes,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDeploymentsResource
  --------------------------------------------------------------------}


Class Function TDeploymentsResource.ResourceName : String;

begin
  Result:='deployments';
end;

Class Function TDeploymentsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TdeploymentmanagerAPI;
end;

Function TDeploymentsResource.CancelPreview(deployment: string; project: string; aDeploymentsCancelPreviewRequest : TDeploymentsCancelPreviewRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/deployments/{deployment}/cancelPreview';
  _Methodid   = 'deploymentmanager.deployments.cancelPreview';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aDeploymentsCancelPreviewRequest,TOperation) as TOperation;
end;

Function TDeploymentsResource.Delete(deployment: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/deployments/{deployment}';
  _Methodid   = 'deploymentmanager.deployments.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TDeploymentsResource.Get(deployment: string; project: string) : TDeployment;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/deployments/{deployment}';
  _Methodid   = 'deploymentmanager.deployments.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDeployment) as TDeployment;
end;

Function TDeploymentsResource.Insert(project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/deployments';
  _Methodid   = 'deploymentmanager.deployments.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDeployment,TOperation) as TOperation;
end;


Function TDeploymentsResource.Insert(project: string; aDeployment : TDeployment; AQuery : TDeploymentsinsertOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'preview',AQuery.preview);
  Result:=Insert(project,aDeployment,_Q);
end;

Function TDeploymentsResource.List(project: string; AQuery : string = '') : TDeploymentsListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/deployments';
  _Methodid   = 'deploymentmanager.deployments.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDeploymentsListResponse) as TDeploymentsListResponse;
end;


Function TDeploymentsResource.List(project: string; AQuery : TDeploymentslistOptions) : TDeploymentsListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function TDeploymentsResource.Patch(deployment: string; project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'PATCH';
  _Path       = '{project}/global/deployments/{deployment}';
  _Methodid   = 'deploymentmanager.deployments.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDeployment,TOperation) as TOperation;
end;


Function TDeploymentsResource.Patch(deployment: string; project: string; aDeployment : TDeployment; AQuery : TDeploymentspatchOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'createPolicy',AQuery.createPolicy);
  AddToQuery(_Q,'deletePolicy',AQuery.deletePolicy);
  AddToQuery(_Q,'preview',AQuery.preview);
  Result:=Patch(deployment,project,aDeployment,_Q);
end;

Function TDeploymentsResource.Stop(deployment: string; project: string; aDeploymentsStopRequest : TDeploymentsStopRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/deployments/{deployment}/stop';
  _Methodid   = 'deploymentmanager.deployments.stop';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aDeploymentsStopRequest,TOperation) as TOperation;
end;

Function TDeploymentsResource.Update(deployment: string; project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'PUT';
  _Path       = '{project}/global/deployments/{deployment}';
  _Methodid   = 'deploymentmanager.deployments.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDeployment,TOperation) as TOperation;
end;


Function TDeploymentsResource.Update(deployment: string; project: string; aDeployment : TDeployment; AQuery : TDeploymentsupdateOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'createPolicy',AQuery.createPolicy);
  AddToQuery(_Q,'deletePolicy',AQuery.deletePolicy);
  AddToQuery(_Q,'preview',AQuery.preview);
  Result:=Update(deployment,project,aDeployment,_Q);
end;



{ --------------------------------------------------------------------
  TManifestsResource
  --------------------------------------------------------------------}


Class Function TManifestsResource.ResourceName : String;

begin
  Result:='manifests';
end;

Class Function TManifestsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TdeploymentmanagerAPI;
end;

Function TManifestsResource.Get(deployment: string; manifest: string; project: string) : TManifest;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/deployments/{deployment}/manifests/{manifest}';
  _Methodid   = 'deploymentmanager.manifests.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'manifest',manifest,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TManifest) as TManifest;
end;

Function TManifestsResource.List(deployment: string; project: string; AQuery : string = '') : TManifestsListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/deployments/{deployment}/manifests';
  _Methodid   = 'deploymentmanager.manifests.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TManifestsListResponse) as TManifestsListResponse;
end;


Function TManifestsResource.List(deployment: string; project: string; AQuery : TManifestslistOptions) : TManifestsListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(deployment,project,_Q);
end;



{ --------------------------------------------------------------------
  TOperationsResource
  --------------------------------------------------------------------}


Class Function TOperationsResource.ResourceName : String;

begin
  Result:='operations';
end;

Class Function TOperationsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TdeploymentmanagerAPI;
end;

Function TOperationsResource.Get(operation: string; project: string) : TOperation;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/operations/{operation}';
  _Methodid   = 'deploymentmanager.operations.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['operation',operation,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TOperationsResource.List(project: string; AQuery : string = '') : TOperationsListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/operations';
  _Methodid   = 'deploymentmanager.operations.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationsListResponse) as TOperationsListResponse;
end;


Function TOperationsResource.List(project: string; AQuery : TOperationslistOptions) : TOperationsListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TResourcesResource
  --------------------------------------------------------------------}


Class Function TResourcesResource.ResourceName : String;

begin
  Result:='resources';
end;

Class Function TResourcesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TdeploymentmanagerAPI;
end;

Function TResourcesResource.Get(deployment: string; project: string; resource: string) : TResource;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/deployments/{deployment}/resources/{resource}';
  _Methodid   = 'deploymentmanager.resources.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project,'resource',resource]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TResource) as TResource;
end;

Function TResourcesResource.List(deployment: string; project: string; AQuery : string = '') : TResourcesListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/deployments/{deployment}/resources';
  _Methodid   = 'deploymentmanager.resources.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TResourcesListResponse) as TResourcesListResponse;
end;


Function TResourcesResource.List(deployment: string; project: string; AQuery : TResourceslistOptions) : TResourcesListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(deployment,project,_Q);
end;



{ --------------------------------------------------------------------
  TTypesResource
  --------------------------------------------------------------------}


Class Function TTypesResource.ResourceName : String;

begin
  Result:='types';
end;

Class Function TTypesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TdeploymentmanagerAPI;
end;

Function TTypesResource.List(project: string; AQuery : string = '') : TTypesListResponse;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/types';
  _Methodid   = 'deploymentmanager.types.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTypesListResponse) as TTypesListResponse;
end;


Function TTypesResource.List(project: string; AQuery : TTypeslistOptions) : TTypesListResponse;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TDeploymentmanagerAPI
  --------------------------------------------------------------------}

Class Function TDeploymentmanagerAPI.APIName : String;

begin
  Result:='deploymentmanager';
end;

Class Function TDeploymentmanagerAPI.APIVersion : String;

begin
  Result:='v2';
end;

Class Function TDeploymentmanagerAPI.APIRevision : String;

begin
  Result:='20160426';
end;

Class Function TDeploymentmanagerAPI.APIID : String;

begin
  Result:='deploymentmanager:v2';
end;

Class Function TDeploymentmanagerAPI.APITitle : String;

begin
  Result:='Google Cloud Deployment Manager API';
end;

Class Function TDeploymentmanagerAPI.APIDescription : String;

begin
  Result:='Declares, configures, and deploys complex solutions on Google Cloud Platform.';
end;

Class Function TDeploymentmanagerAPI.APIOwnerDomain : String;

begin
  Result:='google.com';
end;

Class Function TDeploymentmanagerAPI.APIOwnerName : String;

begin
  Result:='Google';
end;

Class Function TDeploymentmanagerAPI.APIIcon16 : String;

begin
  Result:='http://www.google.com/images/icons/product/search-16.gif';
end;

Class Function TDeploymentmanagerAPI.APIIcon32 : String;

begin
  Result:='http://www.google.com/images/icons/product/search-32.gif';
end;

Class Function TDeploymentmanagerAPI.APIdocumentationLink : String;

begin
  Result:='https://cloud.google.com/deployment-manager/';
end;

Class Function TDeploymentmanagerAPI.APIrootUrl : string;

begin
  Result:='https://www.googleapis.com/';
end;

Class Function TDeploymentmanagerAPI.APIbasePath : string;

begin
  Result:='/deploymentmanager/v2/projects/';
end;

Class Function TDeploymentmanagerAPI.APIbaseURL : String;

begin
  Result:='https://www.googleapis.com/deploymentmanager/v2/projects/';
end;

Class Function TDeploymentmanagerAPI.APIProtocol : string;

begin
  Result:='rest';
end;

Class Function TDeploymentmanagerAPI.APIservicePath : string;

begin
  Result:='deploymentmanager/v2/projects/';
end;

Class Function TDeploymentmanagerAPI.APIbatchPath : String;

begin
  Result:='batch';
end;

Class Function TDeploymentmanagerAPI.APIAuthScopes : TScopeInfoArray;

begin
  SetLength(Result,4);
  Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
  Result[0].Description:='View and manage your data across Google Cloud Platform services';
  Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
  Result[1].Description:='View your data across Google Cloud Platform services';
  Result[2].Name:='https://www.googleapis.com/auth/ndev.cloudman';
  Result[2].Description:='View and manage your Google Cloud Platform management resources and deployment status information';
  Result[3].Name:='https://www.googleapis.com/auth/ndev.cloudman.readonly';
  Result[3].Description:='View your Google Cloud Platform management resources and deployment status information';
  
end;

Class Function TDeploymentmanagerAPI.APINeedsAuth : Boolean;

begin
  Result:=True;
end;

Class Procedure TDeploymentmanagerAPI.RegisterAPIResources;

begin
  TConfigFile.RegisterObject;
  TDeployment.RegisterObject;
  TDeploymentLabelEntry.RegisterObject;
  TDeploymentUpdate.RegisterObject;
  TDeploymentUpdateLabelEntry.RegisterObject;
  TDeploymentsCancelPreviewRequest.RegisterObject;
  TDeploymentsListResponse.RegisterObject;
  TDeploymentsStopRequest.RegisterObject;
  TImportFile.RegisterObject;
  TManifest.RegisterObject;
  TManifestsListResponse.RegisterObject;
  TOperationTypeerrorTypeerrorsItem.RegisterObject;
  TOperationTypeerror.RegisterObject;
  TOperationTypewarningsItemTypedataItem.RegisterObject;
  TOperationTypewarningsItem.RegisterObject;
  TOperation.RegisterObject;
  TOperationsListResponse.RegisterObject;
  TResourceTypewarningsItemTypedataItem.RegisterObject;
  TResourceTypewarningsItem.RegisterObject;
  TResource.RegisterObject;
  TResourceUpdateTypeerrorTypeerrorsItem.RegisterObject;
  TResourceUpdateTypeerror.RegisterObject;
  TResourceUpdateTypewarningsItemTypedataItem.RegisterObject;
  TResourceUpdateTypewarningsItem.RegisterObject;
  TResourceUpdate.RegisterObject;
  TResourcesListResponse.RegisterObject;
  TTargetConfiguration.RegisterObject;
  TType.RegisterObject;
  TTypesListResponse.RegisterObject;
end;


Function TDeploymentmanagerAPI.GetDeploymentsInstance : TDeploymentsResource;

begin
  if (FDeploymentsInstance=Nil) then
    FDeploymentsInstance:=CreateDeploymentsResource;
  Result:=FDeploymentsInstance;
end;

Function TDeploymentmanagerAPI.CreateDeploymentsResource : TDeploymentsResource;

begin
  Result:=CreateDeploymentsResource(Self);
end;


Function TDeploymentmanagerAPI.CreateDeploymentsResource(AOwner : TComponent) : TDeploymentsResource;

begin
  Result:=TDeploymentsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TDeploymentmanagerAPI.GetManifestsInstance : TManifestsResource;

begin
  if (FManifestsInstance=Nil) then
    FManifestsInstance:=CreateManifestsResource;
  Result:=FManifestsInstance;
end;

Function TDeploymentmanagerAPI.CreateManifestsResource : TManifestsResource;

begin
  Result:=CreateManifestsResource(Self);
end;


Function TDeploymentmanagerAPI.CreateManifestsResource(AOwner : TComponent) : TManifestsResource;

begin
  Result:=TManifestsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TDeploymentmanagerAPI.GetOperationsInstance : TOperationsResource;

begin
  if (FOperationsInstance=Nil) then
    FOperationsInstance:=CreateOperationsResource;
  Result:=FOperationsInstance;
end;

Function TDeploymentmanagerAPI.CreateOperationsResource : TOperationsResource;

begin
  Result:=CreateOperationsResource(Self);
end;


Function TDeploymentmanagerAPI.CreateOperationsResource(AOwner : TComponent) : TOperationsResource;

begin
  Result:=TOperationsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TDeploymentmanagerAPI.GetResourcesInstance : TResourcesResource;

begin
  if (FResourcesInstance=Nil) then
    FResourcesInstance:=CreateResourcesResource;
  Result:=FResourcesInstance;
end;

Function TDeploymentmanagerAPI.CreateResourcesResource : TResourcesResource;

begin
  Result:=CreateResourcesResource(Self);
end;


Function TDeploymentmanagerAPI.CreateResourcesResource(AOwner : TComponent) : TResourcesResource;

begin
  Result:=TResourcesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TDeploymentmanagerAPI.GetTypesInstance : TTypesResource;

begin
  if (FTypesInstance=Nil) then
    FTypesInstance:=CreateTypesResource;
  Result:=FTypesInstance;
end;

Function TDeploymentmanagerAPI.CreateTypesResource : TTypesResource;

begin
  Result:=CreateTypesResource(Self);
end;


Function TDeploymentmanagerAPI.CreateTypesResource(AOwner : TComponent) : TTypesResource;

begin
  Result:=TTypesResource.Create(AOwner);
  Result.API:=Self.API;
end;



initialization
  TDeploymentmanagerAPI.RegisterAPI;
end.
beefree / fpc-src deb

Products

About

Resources

Contact Gemfury
