type WebSettings = class(OpenXmlElement) public function Create();overload; function Create(_node: XmlNode);overload; function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; function Init();override; function Copy(_obj: WebSettings);override; public // attributes property property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; function ReadXmlAttrXmlnsMc(); function WriteXmlAttrXmlnsMc(_value); function ReadXmlAttrXmlnsR(); function WriteXmlAttrXmlnsR(_value); function ReadXmlAttrXmlnsW(); function WriteXmlAttrXmlnsW(_value); function ReadXmlAttrXmlnsW14(); function WriteXmlAttrXmlnsW14(_value); function ReadXmlAttrXmlnsW15(); function WriteXmlAttrXmlnsW15(_value); function ReadXmlAttrXmlnsW16Cex(); function WriteXmlAttrXmlnsW16Cex(_value); function ReadXmlAttrXmlnsW16Cid(); function WriteXmlAttrXmlnsW16Cid(_value); function ReadXmlAttrXmlnsW16(); function WriteXmlAttrXmlnsW16(_value); function ReadXmlAttrXmlnsW16Du(); function WriteXmlAttrXmlnsW16Du(_value); function ReadXmlAttrXmlnsW16sdtdh(); function WriteXmlAttrXmlnsW16sdtdh(_value); function ReadXmlAttrXmlnsW16se(); function WriteXmlAttrXmlnsW16se(_value); function ReadXmlAttrMcIgnorable(); function WriteXmlAttrMcIgnorable(_value); // empty property property OptimizeForBrowser read ReadXmlChildOptimizeForBrowser write WriteXmlChildOptimizeForBrowser; property AllowPNG read ReadXmlChildAllowPNG write WriteXmlChildAllowPNG; function ReadXmlChildOptimizeForBrowser(); function WriteXmlChildOptimizeForBrowser(_value); function ReadXmlChildAllowPNG(); function WriteXmlChildAllowPNG(_value); public // Attributes XmlAttrXmlnsMc: OpenXmlAttribute; XmlAttrXmlnsR: OpenXmlAttribute; XmlAttrXmlnsW: OpenXmlAttribute; XmlAttrXmlnsW14: OpenXmlAttribute; XmlAttrXmlnsW15: OpenXmlAttribute; XmlAttrXmlnsW16Cex: OpenXmlAttribute; XmlAttrXmlnsW16Cid: OpenXmlAttribute; XmlAttrXmlnsW16: OpenXmlAttribute; XmlAttrXmlnsW16Du: OpenXmlAttribute; XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; XmlAttrXmlnsW16se: OpenXmlAttribute; XmlAttrMcIgnorable: OpenXmlAttribute; // Children XmlChildOptimizeForBrowser: OpenXmlEmpty; XmlChildAllowPNG: OpenXmlEmpty; end; function WebSettings.Create();overload; begin {self.}Create(nil, "w", "webSettings"); end; function WebSettings.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function WebSettings.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function WebSettings.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), ); sorted_child_ := array( pre + "optimizeForBrowser": array(0, makeweakref(thisFunction(ReadXmlChildOptimizeForBrowser))), pre + "allowPNG": array(1, makeweakref(thisFunction(ReadXmlChildAllowPNG))), ); container_ := new TSOfficeContainer(sorted_child_); end; function WebSettings.Copy(_obj: WebSettings);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlnsMc) then {self.}XmlnsMc := _obj.XmlnsMc; if not ifnil(_obj.XmlnsR) then {self.}XmlnsR := _obj.XmlnsR; if not ifnil(_obj.XmlnsW) then {self.}XmlnsW := _obj.XmlnsW; if not ifnil(_obj.XmlnsW14) then {self.}XmlnsW14 := _obj.XmlnsW14; if not ifnil(_obj.XmlnsW15) then {self.}XmlnsW15 := _obj.XmlnsW15; if not ifnil(_obj.XmlnsW16Cex) then {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; if not ifnil(_obj.XmlnsW16Cid) then {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; if not ifnil(_obj.XmlnsW16) then {self.}XmlnsW16 := _obj.XmlnsW16; if not ifnil(_obj.XmlnsW16Du) then {self.}XmlnsW16Du := _obj.XmlnsW16Du; if not ifnil(_obj.XmlnsW16sdtdh) then {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; if not ifnil(_obj.XmlnsW16se) then {self.}XmlnsW16se := _obj.XmlnsW16se; if not ifnil(_obj.McIgnorable) then {self.}McIgnorable := _obj.McIgnorable; if not ifnil(_obj.XmlChildOptimizeForBrowser) then ifnil({self.}XmlChildOptimizeForBrowser) ? {self.}OptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser) : {self.}XmlChildOptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser); if not ifnil(_obj.XmlChildAllowPNG) then ifnil({self.}XmlChildAllowPNG) ? {self.}AllowPNG.Copy(_obj.XmlChildAllowPNG) : {self.}XmlChildAllowPNG.Copy(_obj.XmlChildAllowPNG); tslassigning := tslassigning_backup; end; function WebSettings.ReadXmlAttrXmlnsMc(); begin return {self.}XmlAttrXmlnsMc.Value; end; function WebSettings.WriteXmlAttrXmlnsMc(_value); begin if ifnil({self.}XmlAttrXmlnsMc) then begin {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; end {self.}XmlAttrXmlnsMc.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsR(); begin return {self.}XmlAttrXmlnsR.Value; end; function WebSettings.WriteXmlAttrXmlnsR(_value); begin if ifnil({self.}XmlAttrXmlnsR) then begin {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; end {self.}XmlAttrXmlnsR.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW(); begin return {self.}XmlAttrXmlnsW.Value; end; function WebSettings.WriteXmlAttrXmlnsW(_value); begin if ifnil({self.}XmlAttrXmlnsW) then begin {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; end {self.}XmlAttrXmlnsW.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW14(); begin return {self.}XmlAttrXmlnsW14.Value; end; function WebSettings.WriteXmlAttrXmlnsW14(_value); begin if ifnil({self.}XmlAttrXmlnsW14) then begin {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; end {self.}XmlAttrXmlnsW14.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW15(); begin return {self.}XmlAttrXmlnsW15.Value; end; function WebSettings.WriteXmlAttrXmlnsW15(_value); begin if ifnil({self.}XmlAttrXmlnsW15) then begin {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; end {self.}XmlAttrXmlnsW15.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW16Cex(); begin return {self.}XmlAttrXmlnsW16Cex.Value; end; function WebSettings.WriteXmlAttrXmlnsW16Cex(_value); begin if ifnil({self.}XmlAttrXmlnsW16Cex) then begin {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; end {self.}XmlAttrXmlnsW16Cex.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW16Cid(); begin return {self.}XmlAttrXmlnsW16Cid.Value; end; function WebSettings.WriteXmlAttrXmlnsW16Cid(_value); begin if ifnil({self.}XmlAttrXmlnsW16Cid) then begin {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; end {self.}XmlAttrXmlnsW16Cid.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW16(); begin return {self.}XmlAttrXmlnsW16.Value; end; function WebSettings.WriteXmlAttrXmlnsW16(_value); begin if ifnil({self.}XmlAttrXmlnsW16) then begin {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; end {self.}XmlAttrXmlnsW16.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW16Du(); begin return {self.}XmlAttrXmlnsW16Du.Value; end; function WebSettings.WriteXmlAttrXmlnsW16Du(_value); begin if ifnil({self.}XmlAttrXmlnsW16Du) then begin {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; end {self.}XmlAttrXmlnsW16Du.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW16sdtdh(); begin return {self.}XmlAttrXmlnsW16sdtdh.Value; end; function WebSettings.WriteXmlAttrXmlnsW16sdtdh(_value); begin if ifnil({self.}XmlAttrXmlnsW16sdtdh) then begin {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; end {self.}XmlAttrXmlnsW16sdtdh.Value := _value; end; function WebSettings.ReadXmlAttrXmlnsW16se(); begin return {self.}XmlAttrXmlnsW16se.Value; end; function WebSettings.WriteXmlAttrXmlnsW16se(_value); begin if ifnil({self.}XmlAttrXmlnsW16se) then begin {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; end {self.}XmlAttrXmlnsW16se.Value := _value; end; function WebSettings.ReadXmlAttrMcIgnorable(); begin return {self.}XmlAttrMcIgnorable.Value; end; function WebSettings.WriteXmlAttrMcIgnorable(_value); begin if ifnil({self.}XmlAttrMcIgnorable) then begin {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; end {self.}XmlAttrMcIgnorable.Value := _value; end; function WebSettings.ReadXmlChildOptimizeForBrowser(); begin if tslassigning and ifnil({self.}XmlChildOptimizeForBrowser) then begin {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser"); container_.Set({self.}XmlChildOptimizeForBrowser); return {self.}XmlChildOptimizeForBrowser; end return {self.}XmlChildOptimizeForBrowser.BoolValue(); end; function WebSettings.WriteXmlChildOptimizeForBrowser(_value); begin if ifnil({self.}XmlChildOptimizeForBrowser) then begin {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser"); container_.Set({self.}XmlChildOptimizeForBrowser); end {self.}XmlChildOptimizeForBrowser.Value := _value; end; function WebSettings.ReadXmlChildAllowPNG(); begin if tslassigning and ifnil({self.}XmlChildAllowPNG) then begin {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG"); container_.Set({self.}XmlChildAllowPNG); return {self.}XmlChildAllowPNG; end return {self.}XmlChildAllowPNG.BoolValue(); end; function WebSettings.WriteXmlChildAllowPNG(_value); begin if ifnil({self.}XmlChildAllowPNG) then begin {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG"); container_.Set({self.}XmlChildAllowPNG); end {self.}XmlChildAllowPNG.Value := _value; end;