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 InitAttributes();override; function InitChildren();override; function InitNode(_node: XmlNode);override; function Copy(_obj: Settings);override; 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); 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); 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 Zoom: Zoom; XmlChildBordersDoNotSurroundHeader: OpenXmlEmpty; XmlChildBordersDoNotSurroundFooter: OpenXmlEmpty; DefaultTabStop: PureWVal; XmlChildEvenAndOddHeaders: OpenXmlEmpty; DrawingGridVerticalSpacing: PureWVal; DisplayHorizontalDrawingGridEvery: PureWVal; DisplayVerticalDrawingGridEvery: PureWVal; CharacterSpacingControl: PureWVal; HdrShapeDefaults: HdrShapeDefaults; FootnotePr: FootnotePr; EndnotePr: EndnotePr; Compat: Compat; Rsids: Rsids; MathPr: MathPr; ThemeFontLang: ThemeFontLang; ClrSchemeMapping: ClrSchemeMapping; XmlChildDoNotIncludeSubdocsInStats: OpenXmlEmpty; ShapeDefaults: ShapeDefaults2; DecimalSymbol: PureWVal; ListSeparator: PureWVal; W14DocId: PureWVal; XmlChildW15ChartTrackingRefBased: OpenXmlEmpty; W15DocId: 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 class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function Settings.Init();override; begin {self.}XmlAttrXmlnsO := new OpenXmlAttribute("xmlns", "o", nil); {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); {self.}XmlAttrXmlnsSl := new OpenXmlAttribute("xmlns", "sl", nil); {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); {self.}Zoom := new Zoom(self, {self.}Prefix, "zoom"); {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundHeader"); {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundFooter"); {self.}DefaultTabStop := new PureWVal(self, {self.}Prefix, "defaultTabStop"); {self.}XmlChildEvenAndOddHeaders := new OpenXmlEmpty(self, {self.}Prefix, "evenAndOddHeaders"); {self.}DrawingGridVerticalSpacing := new PureWVal(self, {self.}Prefix, "drawingGridVerticalSpacing"); {self.}DisplayHorizontalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "displayHorizontalDrawingGridEvery"); {self.}DisplayVerticalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "DisplayVerticalDrawingGridEvery"); {self.}CharacterSpacingControl := new PureWVal(self, {self.}Prefix, "characterSpacingControl"); {self.}HdrShapeDefaults := new HdrShapeDefaults(self, {self.}Prefix, "hdrShapeDefaults"); {self.}FootnotePr := new FootnotePr(self, {self.}Prefix, "footnotePr"); {self.}EndnotePr := new EndnotePr(self, {self.}Prefix, "endnotePr"); {self.}Compat := new Compat(self, {self.}Prefix, "Compat"); {self.}Rsids := new Rsids(self, {self.}Prefix, "rsids"); {self.}MathPr := new MathPr(self, "m", "mathPr"); {self.}ThemeFontLang := new ThemeFontLang(self, {self.}Prefix, "themeFontLang"); {self.}ClrSchemeMapping := new ClrSchemeMapping(self, {self.}Prefix, "clrSchemeMapping"); {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlEmpty(self, {self.}Prefix, "doNotIncludeSubdocsInStats"); {self.}ShapeDefaults := new ShapeDefaults2(self, {self.}Prefix, "shapeDefaults"); {self.}DecimalSymbol := new PureWVal(self, {self.}Prefix, "decimalSymbol"); {self.}ListSeparator := new PureWVal(self, {self.}Prefix, "listSeparator"); {self.}W14DocId := new PureWVal(self, "w14", "docId"); {self.}XmlChildW15ChartTrackingRefBased := new OpenXmlEmpty(self, "w15", "chartTrackingRefBased"); {self.}W15DocId := new PureWVal(self, "w15", "docId"); end; function Settings.InitAttributes();override; begin attributes_ := array( {self.}XmlAttrXmlnsO, {self.}XmlAttrXmlnsR, {self.}XmlAttrXmlnsM, {self.}XmlAttrXmlnsV, {self.}XmlAttrXmlnsW, {self.}XmlAttrXmlnsW14, {self.}XmlAttrXmlnsW15, {self.}XmlAttrXmlnsW16Cex, {self.}XmlAttrXmlnsW16Cid, {self.}XmlAttrXmlnsW16, {self.}XmlAttrXmlnsW16Du, {self.}XmlAttrXmlnsW16se, {self.}XmlAttrXmlnsSl, {self.}XmlAttrMcIgnorable, ); end; function Settings.InitChildren();override; begin child_elements_ := array( 0: {self.}Zoom, 1: {self.}XmlChildBordersDoNotSurroundHeader, 2: {self.}XmlChildBordersDoNotSurroundFooter, 3: {self.}DefaultTabStop, 4: {self.}XmlChildEvenAndOddHeaders, 5: {self.}DrawingGridVerticalSpacing, 6: {self.}DisplayHorizontalDrawingGridEvery, 7: {self.}DisplayVerticalDrawingGridEvery, 8: {self.}CharacterSpacingControl, 9: {self.}HdrShapeDefaults, 10: {self.}FootnotePr, 11: {self.}EndnotePr, 12: {self.}Compat, 13: {self.}Rsids, 14: {self.}MathPr, 15: {self.}ThemeFontLang, 16: {self.}ClrSchemeMapping, 17: {self.}XmlChildDoNotIncludeSubdocsInStats, 18: {self.}ShapeDefaults, 19: {self.}DecimalSymbol, 20: {self.}ListSeparator, 21: {self.}W14DocId, 22: {self.}XmlChildW15ChartTrackingRefBased, 23: {self.}W15DocId, ); sorted_child_ := array( "": -1, {self.}Zoom.ElementName: 0, {self.}XmlChildBordersDoNotSurroundHeader.ElementName: 1, {self.}XmlChildBordersDoNotSurroundFooter.ElementName: 2, {self.}DefaultTabStop.ElementName: 3, {self.}XmlChildEvenAndOddHeaders.ElementName: 4, {self.}DrawingGridVerticalSpacing.ElementName: 5, {self.}DisplayHorizontalDrawingGridEvery.ElementName: 6, {self.}DisplayVerticalDrawingGridEvery.ElementName: 7, {self.}CharacterSpacingControl.ElementName: 8, {self.}HdrShapeDefaults.ElementName: 9, {self.}FootnotePr.ElementName: 10, {self.}EndnotePr.ElementName: 11, {self.}Compat.ElementName: 12, {self.}Rsids.ElementName: 13, {self.}MathPr.ElementName: 14, {self.}ThemeFontLang.ElementName: 15, {self.}ClrSchemeMapping.ElementName: 16, {self.}XmlChildDoNotIncludeSubdocsInStats.ElementName: 17, {self.}ShapeDefaults.ElementName: 18, {self.}DecimalSymbol.ElementName: 19, {self.}ListSeparator.ElementName: 20, {self.}W14DocId.ElementName: 21, {self.}XmlChildW15ChartTrackingRefBased.ElementName: 22, {self.}W15DocId.ElementName: 23, ); end; function Settings.InitNode(_node: XmlNode);override; begin if ifObj({self.}XmlNode) then for k,v in child_elements_ do v.InitNode(nil); {self.}XmlNode := ifObj(_node) ? _node : nil; node := ifObj(_node) ? _node.FirstChild() : nil; flag := false; if ifnil(child_elements_[0]) and length(child_elements_) > 0 then begin flag := true; arr := child_elements_; child_elements_ := array(); end pre := ifString({self.}Prefix) ? {self.}Prefix + ":" : ""; while ifObj(node) do begin node_name := node.GetName(); pos := sorted_child_[node_name]; if ifnil(pos) or pos = -1 then begin obj := nil; case node_name of end; if ifObj(obj) then obj.InitNode(node); end else if flag then begin obj := arr[pos]; obj.InitNode(node); child_elements_[length(child_elements_)] := obj; end else begin child_elements_[pos].InitNode(node); end node := node.NextElement(); end end; function Settings.Copy(_obj: Settings);override; begin if not ifnil(_obj.XmlAttrXmlnsO.Value) then {self.}XmlAttrXmlnsO.Value := _obj.XmlAttrXmlnsO.Value; if not ifnil(_obj.XmlAttrXmlnsR.Value) then {self.}XmlAttrXmlnsR.Value := _obj.XmlAttrXmlnsR.Value; if not ifnil(_obj.XmlAttrXmlnsM.Value) then {self.}XmlAttrXmlnsM.Value := _obj.XmlAttrXmlnsM.Value; if not ifnil(_obj.XmlAttrXmlnsV.Value) then {self.}XmlAttrXmlnsV.Value := _obj.XmlAttrXmlnsV.Value; if not ifnil(_obj.XmlAttrXmlnsW.Value) then {self.}XmlAttrXmlnsW.Value := _obj.XmlAttrXmlnsW.Value; if not ifnil(_obj.XmlAttrXmlnsW14.Value) then {self.}XmlAttrXmlnsW14.Value := _obj.XmlAttrXmlnsW14.Value; if not ifnil(_obj.XmlAttrXmlnsW15.Value) then {self.}XmlAttrXmlnsW15.Value := _obj.XmlAttrXmlnsW15.Value; if not ifnil(_obj.XmlAttrXmlnsW16Cex.Value) then {self.}XmlAttrXmlnsW16Cex.Value := _obj.XmlAttrXmlnsW16Cex.Value; if not ifnil(_obj.XmlAttrXmlnsW16Cid.Value) then {self.}XmlAttrXmlnsW16Cid.Value := _obj.XmlAttrXmlnsW16Cid.Value; if not ifnil(_obj.XmlAttrXmlnsW16.Value) then {self.}XmlAttrXmlnsW16.Value := _obj.XmlAttrXmlnsW16.Value; if not ifnil(_obj.XmlAttrXmlnsW16Du.Value) then {self.}XmlAttrXmlnsW16Du.Value := _obj.XmlAttrXmlnsW16Du.Value; if not ifnil(_obj.XmlAttrXmlnsW16se.Value) then {self.}XmlAttrXmlnsW16se.Value := _obj.XmlAttrXmlnsW16se.Value; if not ifnil(_obj.XmlAttrXmlnsSl.Value) then {self.}XmlAttrXmlnsSl.Value := _obj.XmlAttrXmlnsSl.Value; if not ifnil(_obj.XmlAttrMcIgnorable.Value) then {self.}XmlAttrMcIgnorable.Value := _obj.XmlAttrMcIgnorable.Value; {self.}Zoom.Copy(_obj.Zoom); {self.}XmlChildBordersDoNotSurroundHeader.Copy(_obj.XmlChildBordersDoNotSurroundHeader); {self.}XmlChildBordersDoNotSurroundFooter.Copy(_obj.XmlChildBordersDoNotSurroundFooter); {self.}DefaultTabStop.Copy(_obj.DefaultTabStop); {self.}XmlChildEvenAndOddHeaders.Copy(_obj.XmlChildEvenAndOddHeaders); {self.}DrawingGridVerticalSpacing.Copy(_obj.DrawingGridVerticalSpacing); {self.}DisplayHorizontalDrawingGridEvery.Copy(_obj.DisplayHorizontalDrawingGridEvery); {self.}DisplayVerticalDrawingGridEvery.Copy(_obj.DisplayVerticalDrawingGridEvery); {self.}CharacterSpacingControl.Copy(_obj.CharacterSpacingControl); {self.}HdrShapeDefaults.Copy(_obj.HdrShapeDefaults); {self.}FootnotePr.Copy(_obj.FootnotePr); {self.}EndnotePr.Copy(_obj.EndnotePr); {self.}Compat.Copy(_obj.Compat); {self.}Rsids.Copy(_obj.Rsids); {self.}MathPr.Copy(_obj.MathPr); {self.}ThemeFontLang.Copy(_obj.ThemeFontLang); {self.}ClrSchemeMapping.Copy(_obj.ClrSchemeMapping); {self.}XmlChildDoNotIncludeSubdocsInStats.Copy(_obj.XmlChildDoNotIncludeSubdocsInStats); {self.}ShapeDefaults.Copy(_obj.ShapeDefaults); {self.}DecimalSymbol.Copy(_obj.DecimalSymbol); {self.}ListSeparator.Copy(_obj.ListSeparator); {self.}W14DocId.Copy(_obj.W14DocId); {self.}XmlChildW15ChartTrackingRefBased.Copy(_obj.XmlChildW15ChartTrackingRefBased); {self.}W15DocId.Copy(_obj.W15DocId); end; function Settings.ReadXmlAttrXmlnsO(); begin return {self.}XmlAttrXmlnsO.Value; end; function Settings.WriteXmlAttrXmlnsO(_value); begin {self.}XmlAttrXmlnsO.Value := _value; end; function Settings.ReadXmlAttrXmlnsR(); begin return {self.}XmlAttrXmlnsR.Value; end; function Settings.WriteXmlAttrXmlnsR(_value); begin {self.}XmlAttrXmlnsR.Value := _value; end; function Settings.ReadXmlAttrXmlnsM(); begin return {self.}XmlAttrXmlnsM.Value; end; function Settings.WriteXmlAttrXmlnsM(_value); begin {self.}XmlAttrXmlnsM.Value := _value; end; function Settings.ReadXmlAttrXmlnsV(); begin return {self.}XmlAttrXmlnsV.Value; end; function Settings.WriteXmlAttrXmlnsV(_value); begin {self.}XmlAttrXmlnsV.Value := _value; end; function Settings.ReadXmlAttrXmlnsW(); begin return {self.}XmlAttrXmlnsW.Value; end; function Settings.WriteXmlAttrXmlnsW(_value); begin {self.}XmlAttrXmlnsW.Value := _value; end; function Settings.ReadXmlAttrXmlnsW14(); begin return {self.}XmlAttrXmlnsW14.Value; end; function Settings.WriteXmlAttrXmlnsW14(_value); begin {self.}XmlAttrXmlnsW14.Value := _value; end; function Settings.ReadXmlAttrXmlnsW15(); begin return {self.}XmlAttrXmlnsW15.Value; end; function Settings.WriteXmlAttrXmlnsW15(_value); begin {self.}XmlAttrXmlnsW15.Value := _value; end; function Settings.ReadXmlAttrXmlnsW16Cex(); begin return {self.}XmlAttrXmlnsW16Cex.Value; end; function Settings.WriteXmlAttrXmlnsW16Cex(_value); begin {self.}XmlAttrXmlnsW16Cex.Value := _value; end; function Settings.ReadXmlAttrXmlnsW16Cid(); begin return {self.}XmlAttrXmlnsW16Cid.Value; end; function Settings.WriteXmlAttrXmlnsW16Cid(_value); begin {self.}XmlAttrXmlnsW16Cid.Value := _value; end; function Settings.ReadXmlAttrXmlnsW16(); begin return {self.}XmlAttrXmlnsW16.Value; end; function Settings.WriteXmlAttrXmlnsW16(_value); begin {self.}XmlAttrXmlnsW16.Value := _value; end; function Settings.ReadXmlAttrXmlnsW16Du(); begin return {self.}XmlAttrXmlnsW16Du.Value; end; function Settings.WriteXmlAttrXmlnsW16Du(_value); begin {self.}XmlAttrXmlnsW16Du.Value := _value; end; function Settings.ReadXmlAttrXmlnsW16se(); begin return {self.}XmlAttrXmlnsW16se.Value; end; function Settings.WriteXmlAttrXmlnsW16se(_value); begin {self.}XmlAttrXmlnsW16se.Value := _value; end; function Settings.ReadXmlAttrXmlnsSl(); begin return {self.}XmlAttrXmlnsSl.Value; end; function Settings.WriteXmlAttrXmlnsSl(_value); begin {self.}XmlAttrXmlnsSl.Value := _value; end; function Settings.ReadXmlAttrMcIgnorable(); begin return {self.}XmlAttrMcIgnorable.Value; end; function Settings.WriteXmlAttrMcIgnorable(_value); begin {self.}XmlAttrMcIgnorable.Value := _value; end; function Settings.ReadXmlChildBordersDoNotSurroundHeader(); begin return ifnil({self.}XmlChildBordersDoNotSurroundHeader.Value) ? false : true; end; function Settings.WriteXmlChildBordersDoNotSurroundHeader(_value); begin {self.}XmlChildBordersDoNotSurroundHeader.Value := _value; end; function Settings.ReadXmlChildBordersDoNotSurroundFooter(); begin return ifnil({self.}XmlChildBordersDoNotSurroundFooter.Value) ? false : true; end; function Settings.WriteXmlChildBordersDoNotSurroundFooter(_value); begin {self.}XmlChildBordersDoNotSurroundFooter.Value := _value; end; function Settings.ReadXmlChildEvenAndOddHeaders(); begin return ifnil({self.}XmlChildEvenAndOddHeaders.Value) ? false : true; end; function Settings.WriteXmlChildEvenAndOddHeaders(_value); begin {self.}XmlChildEvenAndOddHeaders.Value := _value; end; function Settings.ReadXmlChildDoNotIncludeSubdocsInStats(); begin return ifnil({self.}XmlChildDoNotIncludeSubdocsInStats.Value) ? false : true; end; function Settings.WriteXmlChildDoNotIncludeSubdocsInStats(_value); begin {self.}XmlChildDoNotIncludeSubdocsInStats.Value := _value; end; function Settings.ReadXmlChildW15ChartTrackingRefBased(); begin return ifnil({self.}XmlChildW15ChartTrackingRefBased.Value) ? false : true; end; function Settings.WriteXmlChildW15ChartTrackingRefBased(_value); begin {self.}XmlChildW15ChartTrackingRefBased.Value := _value; end;