type Settings = 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: Settings);override; public // attributes property property XmlnsO read ReadXmlAttrXmlnsO write WriteXmlAttrXmlnsO; property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; 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 XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; property XmlnsSl read ReadXmlAttrXmlnsSl write WriteXmlAttrXmlnsSl; property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; function ReadXmlAttrXmlnsO(); function WriteXmlAttrXmlnsO(_value); function ReadXmlAttrXmlnsR(); function WriteXmlAttrXmlnsR(_value); function ReadXmlAttrXmlnsM(); function WriteXmlAttrXmlnsM(_value); function ReadXmlAttrXmlnsV(); function WriteXmlAttrXmlnsV(_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 ReadXmlAttrXmlnsW16se(); function WriteXmlAttrXmlnsW16se(_value); function ReadXmlAttrXmlnsSl(); function WriteXmlAttrXmlnsSl(_value); function ReadXmlAttrMcIgnorable(); function WriteXmlAttrMcIgnorable(_value); // empty property property BordersDoNotSurroundHeader read ReadXmlChildBordersDoNotSurroundHeader write WriteXmlChildBordersDoNotSurroundHeader; property BordersDoNotSurroundFooter read ReadXmlChildBordersDoNotSurroundFooter write WriteXmlChildBordersDoNotSurroundFooter; property EvenAndOddHeaders read ReadXmlChildEvenAndOddHeaders write WriteXmlChildEvenAndOddHeaders; property DoNotIncludeSubdocsInStats read ReadXmlChildDoNotIncludeSubdocsInStats write WriteXmlChildDoNotIncludeSubdocsInStats; property W15ChartTrackingRefBased read ReadXmlChildW15ChartTrackingRefBased write WriteXmlChildW15ChartTrackingRefBased; function ReadXmlChildBordersDoNotSurroundHeader(); function WriteXmlChildBordersDoNotSurroundHeader(_value); function ReadXmlChildBordersDoNotSurroundFooter(); function WriteXmlChildBordersDoNotSurroundFooter(_value); function ReadXmlChildEvenAndOddHeaders(); function WriteXmlChildEvenAndOddHeaders(_value); function ReadXmlChildDoNotIncludeSubdocsInStats(); function WriteXmlChildDoNotIncludeSubdocsInStats(_value); function ReadXmlChildW15ChartTrackingRefBased(); function WriteXmlChildW15ChartTrackingRefBased(_value); // normal property property Zoom read ReadXmlChildZoom; property DefaultTabStop read ReadXmlChildDefaultTabStop; property DrawingGridVerticalSpacing read ReadXmlChildDrawingGridVerticalSpacing; property DisplayHorizontalDrawingGridEvery read ReadXmlChildDisplayHorizontalDrawingGridEvery; property DisplayVerticalDrawingGridEvery read ReadXmlChildDisplayVerticalDrawingGridEvery; property CharacterSpacingControl read ReadXmlChildCharacterSpacingControl; property HdrShapeDefaults read ReadXmlChildHdrShapeDefaults; property FootnotePr read ReadXmlChildFootnotePr; property EndnotePr read ReadXmlChildEndnotePr; property Compat read ReadXmlChildCompat; property Rsids read ReadXmlChildRsids; property MathPr read ReadXmlChildMathPr; property ThemeFontLang read ReadXmlChildThemeFontLang; property ClrSchemeMapping read ReadXmlChildClrSchemeMapping; property ShapeDefaults read ReadXmlChildShapeDefaults; property DecimalSymbol read ReadXmlChildDecimalSymbol; property ListSeparator read ReadXmlChildListSeparator; property W14DocId read ReadXmlChildW14DocId; property W15DocId read ReadXmlChildW15DocId; function ReadXmlChildZoom(); function ReadXmlChildDefaultTabStop(); function ReadXmlChildDrawingGridVerticalSpacing(); function ReadXmlChildDisplayHorizontalDrawingGridEvery(); function ReadXmlChildDisplayVerticalDrawingGridEvery(); function ReadXmlChildCharacterSpacingControl(); function ReadXmlChildHdrShapeDefaults(); function ReadXmlChildFootnotePr(); function ReadXmlChildEndnotePr(); function ReadXmlChildCompat(); function ReadXmlChildRsids(); function ReadXmlChildMathPr(); function ReadXmlChildThemeFontLang(); function ReadXmlChildClrSchemeMapping(); function ReadXmlChildShapeDefaults(); function ReadXmlChildDecimalSymbol(); function ReadXmlChildListSeparator(); function ReadXmlChildW14DocId(); function ReadXmlChildW15DocId(); public // Attributes XmlAttrXmlnsO: OpenXmlAttribute; XmlAttrXmlnsR: OpenXmlAttribute; XmlAttrXmlnsM: OpenXmlAttribute; XmlAttrXmlnsV: OpenXmlAttribute; XmlAttrXmlnsW: OpenXmlAttribute; XmlAttrXmlnsW14: OpenXmlAttribute; XmlAttrXmlnsW15: OpenXmlAttribute; XmlAttrXmlnsW16Cex: OpenXmlAttribute; XmlAttrXmlnsW16Cid: OpenXmlAttribute; XmlAttrXmlnsW16: OpenXmlAttribute; XmlAttrXmlnsW16Du: OpenXmlAttribute; XmlAttrXmlnsW16se: OpenXmlAttribute; XmlAttrXmlnsSl: OpenXmlAttribute; XmlAttrMcIgnorable: OpenXmlAttribute; // Children XmlChildZoom: Zoom; XmlChildBordersDoNotSurroundHeader: OpenXmlEmpty; XmlChildBordersDoNotSurroundFooter: OpenXmlEmpty; XmlChildDefaultTabStop: PureWVal; XmlChildEvenAndOddHeaders: OpenXmlEmpty; XmlChildDrawingGridVerticalSpacing: PureWVal; XmlChildDisplayHorizontalDrawingGridEvery: PureWVal; XmlChildDisplayVerticalDrawingGridEvery: PureWVal; XmlChildCharacterSpacingControl: PureWVal; XmlChildHdrShapeDefaults: HdrShapeDefaults; XmlChildFootnotePr: FootnotePr; XmlChildEndnotePr: EndnotePr; XmlChildCompat: Compat; XmlChildRsids: Rsids; XmlChildMathPr: MathPr; XmlChildThemeFontLang: ThemeFontLang; XmlChildClrSchemeMapping: ClrSchemeMapping; XmlChildDoNotIncludeSubdocsInStats: OpenXmlEmpty; XmlChildShapeDefaults: ShapeDefaults2; XmlChildDecimalSymbol: PureWVal; XmlChildListSeparator: PureWVal; XmlChildW14DocId: PureWVal; XmlChildW15ChartTrackingRefBased: OpenXmlEmpty; XmlChildW15DocId: PureWVal; end; function Settings.Create();overload; begin {self.}Create(nil, "w", "settings"); end; function Settings.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Settings.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 Settings.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "xmlns:o": makeweakref(thisFunction(WriteXmlAttrXmlnsO)), "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), "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:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), "xmlns:sl": makeweakref(thisFunction(WriteXmlAttrXmlnsSl)), "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), ); sorted_child_ := array( pre + "zoom": array(0, makeweakref(thisFunction(ReadXmlChildZoom))), pre + "bordersDoNotSurroundHeader": array(1, makeweakref(thisFunction(ReadXmlChildBordersDoNotSurroundHeader))), pre + "bordersDoNotSurroundFooter": array(2, makeweakref(thisFunction(ReadXmlChildBordersDoNotSurroundFooter))), pre + "defaultTabStop": array(3, makeweakref(thisFunction(ReadXmlChildDefaultTabStop))), pre + "evenAndOddHeaders": array(4, makeweakref(thisFunction(ReadXmlChildEvenAndOddHeaders))), pre + "drawingGridVerticalSpacing": array(5, makeweakref(thisFunction(ReadXmlChildDrawingGridVerticalSpacing))), pre + "displayHorizontalDrawingGridEvery": array(6, makeweakref(thisFunction(ReadXmlChildDisplayHorizontalDrawingGridEvery))), pre + "DisplayVerticalDrawingGridEvery": array(7, makeweakref(thisFunction(ReadXmlChildDisplayVerticalDrawingGridEvery))), pre + "characterSpacingControl": array(8, makeweakref(thisFunction(ReadXmlChildCharacterSpacingControl))), pre + "hdrShapeDefaults": array(9, makeweakref(thisFunction(ReadXmlChildHdrShapeDefaults))), pre + "footnotePr": array(10, makeweakref(thisFunction(ReadXmlChildFootnotePr))), pre + "endnotePr": array(11, makeweakref(thisFunction(ReadXmlChildEndnotePr))), pre + "Compat": array(12, makeweakref(thisFunction(ReadXmlChildCompat))), pre + "rsids": array(13, makeweakref(thisFunction(ReadXmlChildRsids))), "m:mathPr": array(14, makeweakref(thisFunction(ReadXmlChildMathPr))), pre + "themeFontLang": array(15, makeweakref(thisFunction(ReadXmlChildThemeFontLang))), pre + "clrSchemeMapping": array(16, makeweakref(thisFunction(ReadXmlChildClrSchemeMapping))), pre + "doNotIncludeSubdocsInStats": array(17, makeweakref(thisFunction(ReadXmlChildDoNotIncludeSubdocsInStats))), pre + "shapeDefaults": array(18, makeweakref(thisFunction(ReadXmlChildShapeDefaults))), pre + "decimalSymbol": array(19, makeweakref(thisFunction(ReadXmlChildDecimalSymbol))), pre + "listSeparator": array(20, makeweakref(thisFunction(ReadXmlChildListSeparator))), "w14:docId": array(21, makeweakref(thisFunction(ReadXmlChildW14DocId))), "w15:chartTrackingRefBased": array(22, makeweakref(thisFunction(ReadXmlChildW15ChartTrackingRefBased))), "w15:docId": array(23, makeweakref(thisFunction(ReadXmlChildW15DocId))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Settings.Copy(_obj: Settings);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlnsO) then {self.}XmlnsO := _obj.XmlnsO; if not ifnil(_obj.XmlnsR) then {self.}XmlnsR := _obj.XmlnsR; if not ifnil(_obj.XmlnsM) then {self.}XmlnsM := _obj.XmlnsM; if not ifnil(_obj.XmlnsV) then {self.}XmlnsV := _obj.XmlnsV; 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.XmlnsW16se) then {self.}XmlnsW16se := _obj.XmlnsW16se; if not ifnil(_obj.XmlnsSl) then {self.}XmlnsSl := _obj.XmlnsSl; if not ifnil(_obj.McIgnorable) then {self.}McIgnorable := _obj.McIgnorable; if not ifnil(_obj.XmlChildZoom) then {self.}Zoom.Copy(_obj.XmlChildZoom); if not ifnil(_obj.XmlChildBordersDoNotSurroundHeader) then ifnil({self.}XmlChildBordersDoNotSurroundHeader) ? {self.}BordersDoNotSurroundHeader.Copy(_obj.XmlChildBordersDoNotSurroundHeader) : {self.}XmlChildBordersDoNotSurroundHeader.Copy(_obj.XmlChildBordersDoNotSurroundHeader); if not ifnil(_obj.XmlChildBordersDoNotSurroundFooter) then ifnil({self.}XmlChildBordersDoNotSurroundFooter) ? {self.}BordersDoNotSurroundFooter.Copy(_obj.XmlChildBordersDoNotSurroundFooter) : {self.}XmlChildBordersDoNotSurroundFooter.Copy(_obj.XmlChildBordersDoNotSurroundFooter); if not ifnil(_obj.XmlChildDefaultTabStop) then {self.}DefaultTabStop.Copy(_obj.XmlChildDefaultTabStop); if not ifnil(_obj.XmlChildEvenAndOddHeaders) then ifnil({self.}XmlChildEvenAndOddHeaders) ? {self.}EvenAndOddHeaders.Copy(_obj.XmlChildEvenAndOddHeaders) : {self.}XmlChildEvenAndOddHeaders.Copy(_obj.XmlChildEvenAndOddHeaders); if not ifnil(_obj.XmlChildDrawingGridVerticalSpacing) then {self.}DrawingGridVerticalSpacing.Copy(_obj.XmlChildDrawingGridVerticalSpacing); if not ifnil(_obj.XmlChildDisplayHorizontalDrawingGridEvery) then {self.}DisplayHorizontalDrawingGridEvery.Copy(_obj.XmlChildDisplayHorizontalDrawingGridEvery); if not ifnil(_obj.XmlChildDisplayVerticalDrawingGridEvery) then {self.}DisplayVerticalDrawingGridEvery.Copy(_obj.XmlChildDisplayVerticalDrawingGridEvery); if not ifnil(_obj.XmlChildCharacterSpacingControl) then {self.}CharacterSpacingControl.Copy(_obj.XmlChildCharacterSpacingControl); if not ifnil(_obj.XmlChildHdrShapeDefaults) then {self.}HdrShapeDefaults.Copy(_obj.XmlChildHdrShapeDefaults); if not ifnil(_obj.XmlChildFootnotePr) then {self.}FootnotePr.Copy(_obj.XmlChildFootnotePr); if not ifnil(_obj.XmlChildEndnotePr) then {self.}EndnotePr.Copy(_obj.XmlChildEndnotePr); if not ifnil(_obj.XmlChildCompat) then {self.}Compat.Copy(_obj.XmlChildCompat); if not ifnil(_obj.XmlChildRsids) then {self.}Rsids.Copy(_obj.XmlChildRsids); if not ifnil(_obj.XmlChildMathPr) then {self.}MathPr.Copy(_obj.XmlChildMathPr); if not ifnil(_obj.XmlChildThemeFontLang) then {self.}ThemeFontLang.Copy(_obj.XmlChildThemeFontLang); if not ifnil(_obj.XmlChildClrSchemeMapping) then {self.}ClrSchemeMapping.Copy(_obj.XmlChildClrSchemeMapping); if not ifnil(_obj.XmlChildDoNotIncludeSubdocsInStats) then ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) ? {self.}DoNotIncludeSubdocsInStats.Copy(_obj.XmlChildDoNotIncludeSubdocsInStats) : {self.}XmlChildDoNotIncludeSubdocsInStats.Copy(_obj.XmlChildDoNotIncludeSubdocsInStats); if not ifnil(_obj.XmlChildShapeDefaults) then {self.}ShapeDefaults.Copy(_obj.XmlChildShapeDefaults); if not ifnil(_obj.XmlChildDecimalSymbol) then {self.}DecimalSymbol.Copy(_obj.XmlChildDecimalSymbol); if not ifnil(_obj.XmlChildListSeparator) then {self.}ListSeparator.Copy(_obj.XmlChildListSeparator); if not ifnil(_obj.XmlChildW14DocId) then {self.}W14DocId.Copy(_obj.XmlChildW14DocId); if not ifnil(_obj.XmlChildW15ChartTrackingRefBased) then ifnil({self.}XmlChildW15ChartTrackingRefBased) ? {self.}W15ChartTrackingRefBased.Copy(_obj.XmlChildW15ChartTrackingRefBased) : {self.}XmlChildW15ChartTrackingRefBased.Copy(_obj.XmlChildW15ChartTrackingRefBased); if not ifnil(_obj.XmlChildW15DocId) then {self.}W15DocId.Copy(_obj.XmlChildW15DocId); tslassigning := tslassigning_backup; end; function Settings.ReadXmlAttrXmlnsO(); begin return {self.}XmlAttrXmlnsO.Value; end; function Settings.WriteXmlAttrXmlnsO(_value); begin if ifnil({self.}XmlAttrXmlnsO) then begin {self.}XmlAttrXmlnsO := new OpenXmlAttribute("xmlns", "o", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsO; end {self.}XmlAttrXmlnsO.Value := _value; end; function Settings.ReadXmlAttrXmlnsR(); begin return {self.}XmlAttrXmlnsR.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsM(); begin return {self.}XmlAttrXmlnsM.Value; end; function Settings.WriteXmlAttrXmlnsM(_value); begin if ifnil({self.}XmlAttrXmlnsM) then begin {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; end {self.}XmlAttrXmlnsM.Value := _value; end; function Settings.ReadXmlAttrXmlnsV(); begin return {self.}XmlAttrXmlnsV.Value; end; function Settings.WriteXmlAttrXmlnsV(_value); begin if ifnil({self.}XmlAttrXmlnsV) then begin {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; end {self.}XmlAttrXmlnsV.Value := _value; end; function Settings.ReadXmlAttrXmlnsW(); begin return {self.}XmlAttrXmlnsW.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsW14(); begin return {self.}XmlAttrXmlnsW14.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsW15(); begin return {self.}XmlAttrXmlnsW15.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsW16Cex(); begin return {self.}XmlAttrXmlnsW16Cex.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsW16Cid(); begin return {self.}XmlAttrXmlnsW16Cid.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsW16(); begin return {self.}XmlAttrXmlnsW16.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsW16Du(); begin return {self.}XmlAttrXmlnsW16Du.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsW16se(); begin return {self.}XmlAttrXmlnsW16se.Value; end; function Settings.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 Settings.ReadXmlAttrXmlnsSl(); begin return {self.}XmlAttrXmlnsSl.Value; end; function Settings.WriteXmlAttrXmlnsSl(_value); begin if ifnil({self.}XmlAttrXmlnsSl) then begin {self.}XmlAttrXmlnsSl := new OpenXmlAttribute("xmlns", "sl", nil); attributes_[length(attributes_)] := {self.}XmlAttrXmlnsSl; end {self.}XmlAttrXmlnsSl.Value := _value; end; function Settings.ReadXmlAttrMcIgnorable(); begin return {self.}XmlAttrMcIgnorable.Value; end; function Settings.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 Settings.ReadXmlChildBordersDoNotSurroundHeader(); begin if tslassigning and ifnil({self.}XmlChildBordersDoNotSurroundHeader) then begin {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundHeader"); container_.Set({self.}XmlChildBordersDoNotSurroundHeader); return {self.}XmlChildBordersDoNotSurroundHeader; end return {self.}XmlChildBordersDoNotSurroundHeader.BoolValue(); end; function Settings.WriteXmlChildBordersDoNotSurroundHeader(_value); begin if ifnil({self.}XmlChildBordersDoNotSurroundHeader) then begin {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundHeader"); container_.Set({self.}XmlChildBordersDoNotSurroundHeader); end {self.}XmlChildBordersDoNotSurroundHeader.Value := _value; end; function Settings.ReadXmlChildBordersDoNotSurroundFooter(); begin if tslassigning and ifnil({self.}XmlChildBordersDoNotSurroundFooter) then begin {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundFooter"); container_.Set({self.}XmlChildBordersDoNotSurroundFooter); return {self.}XmlChildBordersDoNotSurroundFooter; end return {self.}XmlChildBordersDoNotSurroundFooter.BoolValue(); end; function Settings.WriteXmlChildBordersDoNotSurroundFooter(_value); begin if ifnil({self.}XmlChildBordersDoNotSurroundFooter) then begin {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundFooter"); container_.Set({self.}XmlChildBordersDoNotSurroundFooter); end {self.}XmlChildBordersDoNotSurroundFooter.Value := _value; end; function Settings.ReadXmlChildEvenAndOddHeaders(); begin if tslassigning and ifnil({self.}XmlChildEvenAndOddHeaders) then begin {self.}XmlChildEvenAndOddHeaders := new OpenXmlEmpty(self, {self.}Prefix, "evenAndOddHeaders"); container_.Set({self.}XmlChildEvenAndOddHeaders); return {self.}XmlChildEvenAndOddHeaders; end return {self.}XmlChildEvenAndOddHeaders.BoolValue(); end; function Settings.WriteXmlChildEvenAndOddHeaders(_value); begin if ifnil({self.}XmlChildEvenAndOddHeaders) then begin {self.}XmlChildEvenAndOddHeaders := new OpenXmlEmpty(self, {self.}Prefix, "evenAndOddHeaders"); container_.Set({self.}XmlChildEvenAndOddHeaders); end {self.}XmlChildEvenAndOddHeaders.Value := _value; end; function Settings.ReadXmlChildDoNotIncludeSubdocsInStats(); begin if tslassigning and ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) then begin {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlEmpty(self, {self.}Prefix, "doNotIncludeSubdocsInStats"); container_.Set({self.}XmlChildDoNotIncludeSubdocsInStats); return {self.}XmlChildDoNotIncludeSubdocsInStats; end return {self.}XmlChildDoNotIncludeSubdocsInStats.BoolValue(); end; function Settings.WriteXmlChildDoNotIncludeSubdocsInStats(_value); begin if ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) then begin {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlEmpty(self, {self.}Prefix, "doNotIncludeSubdocsInStats"); container_.Set({self.}XmlChildDoNotIncludeSubdocsInStats); end {self.}XmlChildDoNotIncludeSubdocsInStats.Value := _value; end; function Settings.ReadXmlChildW15ChartTrackingRefBased(); begin if tslassigning and ifnil({self.}XmlChildW15ChartTrackingRefBased) then begin {self.}XmlChildW15ChartTrackingRefBased := new OpenXmlEmpty(self, "w15", "chartTrackingRefBased"); container_.Set({self.}XmlChildW15ChartTrackingRefBased); return {self.}XmlChildW15ChartTrackingRefBased; end return {self.}XmlChildW15ChartTrackingRefBased.BoolValue(); end; function Settings.WriteXmlChildW15ChartTrackingRefBased(_value); begin if ifnil({self.}XmlChildW15ChartTrackingRefBased) then begin {self.}XmlChildW15ChartTrackingRefBased := new OpenXmlEmpty(self, "w15", "chartTrackingRefBased"); container_.Set({self.}XmlChildW15ChartTrackingRefBased); end {self.}XmlChildW15ChartTrackingRefBased.Value := _value; end; function Settings.ReadXmlChildZoom(); begin if tslassigning and ifnil({self.}XmlChildZoom) then begin {self.}XmlChildZoom := new Zoom(self, {self.}Prefix, "zoom"); container_.Set({self.}XmlChildZoom); end return {self.}XmlChildZoom; end; function Settings.ReadXmlChildDefaultTabStop(); begin if tslassigning and ifnil({self.}XmlChildDefaultTabStop) then begin {self.}XmlChildDefaultTabStop := new PureWVal(self, {self.}Prefix, "defaultTabStop"); container_.Set({self.}XmlChildDefaultTabStop); end return {self.}XmlChildDefaultTabStop; end; function Settings.ReadXmlChildDrawingGridVerticalSpacing(); begin if tslassigning and ifnil({self.}XmlChildDrawingGridVerticalSpacing) then begin {self.}XmlChildDrawingGridVerticalSpacing := new PureWVal(self, {self.}Prefix, "drawingGridVerticalSpacing"); container_.Set({self.}XmlChildDrawingGridVerticalSpacing); end return {self.}XmlChildDrawingGridVerticalSpacing; end; function Settings.ReadXmlChildDisplayHorizontalDrawingGridEvery(); begin if tslassigning and ifnil({self.}XmlChildDisplayHorizontalDrawingGridEvery) then begin {self.}XmlChildDisplayHorizontalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "displayHorizontalDrawingGridEvery"); container_.Set({self.}XmlChildDisplayHorizontalDrawingGridEvery); end return {self.}XmlChildDisplayHorizontalDrawingGridEvery; end; function Settings.ReadXmlChildDisplayVerticalDrawingGridEvery(); begin if tslassigning and ifnil({self.}XmlChildDisplayVerticalDrawingGridEvery) then begin {self.}XmlChildDisplayVerticalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "DisplayVerticalDrawingGridEvery"); container_.Set({self.}XmlChildDisplayVerticalDrawingGridEvery); end return {self.}XmlChildDisplayVerticalDrawingGridEvery; end; function Settings.ReadXmlChildCharacterSpacingControl(); begin if tslassigning and ifnil({self.}XmlChildCharacterSpacingControl) then begin {self.}XmlChildCharacterSpacingControl := new PureWVal(self, {self.}Prefix, "characterSpacingControl"); container_.Set({self.}XmlChildCharacterSpacingControl); end return {self.}XmlChildCharacterSpacingControl; end; function Settings.ReadXmlChildHdrShapeDefaults(); begin if tslassigning and ifnil({self.}XmlChildHdrShapeDefaults) then begin {self.}XmlChildHdrShapeDefaults := new HdrShapeDefaults(self, {self.}Prefix, "hdrShapeDefaults"); container_.Set({self.}XmlChildHdrShapeDefaults); end return {self.}XmlChildHdrShapeDefaults; end; function Settings.ReadXmlChildFootnotePr(); begin if tslassigning and ifnil({self.}XmlChildFootnotePr) then begin {self.}XmlChildFootnotePr := new FootnotePr(self, {self.}Prefix, "footnotePr"); container_.Set({self.}XmlChildFootnotePr); end return {self.}XmlChildFootnotePr; end; function Settings.ReadXmlChildEndnotePr(); begin if tslassigning and ifnil({self.}XmlChildEndnotePr) then begin {self.}XmlChildEndnotePr := new EndnotePr(self, {self.}Prefix, "endnotePr"); container_.Set({self.}XmlChildEndnotePr); end return {self.}XmlChildEndnotePr; end; function Settings.ReadXmlChildCompat(); begin if tslassigning and ifnil({self.}XmlChildCompat) then begin {self.}XmlChildCompat := new Compat(self, {self.}Prefix, "Compat"); container_.Set({self.}XmlChildCompat); end return {self.}XmlChildCompat; end; function Settings.ReadXmlChildRsids(); begin if tslassigning and ifnil({self.}XmlChildRsids) then begin {self.}XmlChildRsids := new Rsids(self, {self.}Prefix, "rsids"); container_.Set({self.}XmlChildRsids); end return {self.}XmlChildRsids; end; function Settings.ReadXmlChildMathPr(); begin if tslassigning and ifnil({self.}XmlChildMathPr) then begin {self.}XmlChildMathPr := new MathPr(self, "m", "mathPr"); container_.Set({self.}XmlChildMathPr); end return {self.}XmlChildMathPr; end; function Settings.ReadXmlChildThemeFontLang(); begin if tslassigning and ifnil({self.}XmlChildThemeFontLang) then begin {self.}XmlChildThemeFontLang := new ThemeFontLang(self, {self.}Prefix, "themeFontLang"); container_.Set({self.}XmlChildThemeFontLang); end return {self.}XmlChildThemeFontLang; end; function Settings.ReadXmlChildClrSchemeMapping(); begin if tslassigning and ifnil({self.}XmlChildClrSchemeMapping) then begin {self.}XmlChildClrSchemeMapping := new ClrSchemeMapping(self, {self.}Prefix, "clrSchemeMapping"); container_.Set({self.}XmlChildClrSchemeMapping); end return {self.}XmlChildClrSchemeMapping; end; function Settings.ReadXmlChildShapeDefaults(); begin if tslassigning and ifnil({self.}XmlChildShapeDefaults) then begin {self.}XmlChildShapeDefaults := new ShapeDefaults2(self, {self.}Prefix, "shapeDefaults"); container_.Set({self.}XmlChildShapeDefaults); end return {self.}XmlChildShapeDefaults; end; function Settings.ReadXmlChildDecimalSymbol(); begin if tslassigning and ifnil({self.}XmlChildDecimalSymbol) then begin {self.}XmlChildDecimalSymbol := new PureWVal(self, {self.}Prefix, "decimalSymbol"); container_.Set({self.}XmlChildDecimalSymbol); end return {self.}XmlChildDecimalSymbol; end; function Settings.ReadXmlChildListSeparator(); begin if tslassigning and ifnil({self.}XmlChildListSeparator) then begin {self.}XmlChildListSeparator := new PureWVal(self, {self.}Prefix, "listSeparator"); container_.Set({self.}XmlChildListSeparator); end return {self.}XmlChildListSeparator; end; function Settings.ReadXmlChildW14DocId(); begin if tslassigning and ifnil({self.}XmlChildW14DocId) then begin {self.}XmlChildW14DocId := new PureWVal(self, "w14", "docId"); container_.Set({self.}XmlChildW14DocId); end return {self.}XmlChildW14DocId; end; function Settings.ReadXmlChildW15DocId(); begin if tslassigning and ifnil({self.}XmlChildW15DocId) then begin {self.}XmlChildW15DocId := new PureWVal(self, "w15", "docId"); container_.Set({self.}XmlChildW15DocId); end return {self.}XmlChildW15DocId; end;