diff --git a/autoclass/decorator/docx/ClrSchemeMappingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ClrSchemeMappingUnitDecorator@DOCX.tsf new file mode 100644 index 0000000..ac5fa84 --- /dev/null +++ b/autoclass/decorator/docx/ClrSchemeMappingUnitDecorator@DOCX.tsf @@ -0,0 +1,37 @@ +type ClrSchemeMappingUnitDecorator = class(ClrSchemeMapping) +uses TSSafeUnitConverter; +public + function Create(_obj: ClrSchemeMapping); + function GetObject(); + function Convert(); +private + object_: ClrSchemeMapping; +end; + +function ClrSchemeMappingUnitDecorator.Create(_obj: ClrSchemeMapping); +begin + class(ClrSchemeMapping).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ClrSchemeMappingUnitDecorator.GetObject(); +begin + return object_; +end; + +function ClrSchemeMappingUnitDecorator.Convert(); +begin + {self.}XmlAttrBg1.Value := object_.XmlAttrBg1.Value; + {self.}XmlAttrT1.Value := object_.XmlAttrT1.Value; + {self.}XmlAttrBg2.Value := object_.XmlAttrBg2.Value; + {self.}XmlAttrT2.Value := object_.XmlAttrT2.Value; + {self.}XmlAttrAccent1.Value := object_.XmlAttrAccent1.Value; + {self.}XmlAttrAccent2.Value := object_.XmlAttrAccent2.Value; + {self.}XmlAttrAccent3.Value := object_.XmlAttrAccent3.Value; + {self.}XmlAttrAccent4.Value := object_.XmlAttrAccent4.Value; + {self.}XmlAttrAccent5.Value := object_.XmlAttrAccent5.Value; + {self.}XmlAttrAccent6.Value := object_.XmlAttrAccent6.Value; + {self.}XmlAttrHyperLink.Value := object_.XmlAttrHyperLink.Value; + {self.}XmlAttrFollowedHyperlink.Value := object_.XmlAttrFollowedHyperlink.Value; +end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf index 6b00ec5..e25ba32 100644 --- a/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf +++ b/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf @@ -40,6 +40,7 @@ begin if not ifnil(object_.XmlChildBordersDoNotSurroundHeader.Value) then {self.}XmlChildBordersDoNotSurroundHeader.Value := object_.XmlChildBordersDoNotSurroundHeader.Value; if not ifnil(object_.XmlChildBordersDoNotSurroundFooter.Value) then {self.}XmlChildBordersDoNotSurroundFooter.Value := object_.XmlChildBordersDoNotSurroundFooter.Value; {self.}DefaultTabStop := new PureWValUnitDecorator(object_.DefaultTabStop); + if not ifnil(object_.XmlChildEvenAndOddHeaders.Value) then {self.}XmlChildEvenAndOddHeaders.Value := object_.XmlChildEvenAndOddHeaders.Value; {self.}DrawingGridVerticalSpacing := new PureWValUnitDecorator(object_.DrawingGridVerticalSpacing); {self.}DisplayHorizontalDrawingGridEvery := new PureWValUnitDecorator(object_.DisplayHorizontalDrawingGridEvery); {self.}DisplayVerticalDrawingGridEvery := new PureWValUnitDecorator(object_.DisplayVerticalDrawingGridEvery); diff --git a/autoclass/decorator/docx/ThemeFontLangUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeFontLangUnitDecorator@DOCX.tsf new file mode 100644 index 0000000..6f72c46 --- /dev/null +++ b/autoclass/decorator/docx/ThemeFontLangUnitDecorator@DOCX.tsf @@ -0,0 +1,27 @@ +type ThemeFontLangUnitDecorator = class(ThemeFontLang) +uses TSSafeUnitConverter; +public + function Create(_obj: ThemeFontLang); + function GetObject(); + function Convert(); +private + object_: ThemeFontLang; +end; + +function ThemeFontLangUnitDecorator.Create(_obj: ThemeFontLang); +begin + class(ThemeFontLang).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ThemeFontLangUnitDecorator.GetObject(); +begin + return object_; +end; + +function ThemeFontLangUnitDecorator.Convert(); +begin + {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value; + {self.}XmlAttrEastAsia.Value := object_.XmlAttrEastAsia.Value; +end; \ No newline at end of file diff --git a/autoclass/docx/ClrSchemeMapping@DOCX.tsf b/autoclass/docx/ClrSchemeMapping@DOCX.tsf new file mode 100644 index 0000000..bbe3195 --- /dev/null +++ b/autoclass/docx/ClrSchemeMapping@DOCX.tsf @@ -0,0 +1,279 @@ +type ClrSchemeMapping = 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: ClrSchemeMapping);override; + + property Bg1 read ReadXmlAttrBg1 write WriteXmlAttrBg1; + property T1 read ReadXmlAttrT1 write WriteXmlAttrT1; + property Bg2 read ReadXmlAttrBg2 write WriteXmlAttrBg2; + property T2 read ReadXmlAttrT2 write WriteXmlAttrT2; + property Accent1 read ReadXmlAttrAccent1 write WriteXmlAttrAccent1; + property Accent2 read ReadXmlAttrAccent2 write WriteXmlAttrAccent2; + property Accent3 read ReadXmlAttrAccent3 write WriteXmlAttrAccent3; + property Accent4 read ReadXmlAttrAccent4 write WriteXmlAttrAccent4; + property Accent5 read ReadXmlAttrAccent5 write WriteXmlAttrAccent5; + property Accent6 read ReadXmlAttrAccent6 write WriteXmlAttrAccent6; + property HyperLink read ReadXmlAttrHyperLink write WriteXmlAttrHyperLink; + property FollowedHyperlink read ReadXmlAttrFollowedHyperlink write WriteXmlAttrFollowedHyperlink; + function ReadXmlAttrBg1(); + function WriteXmlAttrBg1(_value); + function ReadXmlAttrT1(); + function WriteXmlAttrT1(_value); + function ReadXmlAttrBg2(); + function WriteXmlAttrBg2(_value); + function ReadXmlAttrT2(); + function WriteXmlAttrT2(_value); + function ReadXmlAttrAccent1(); + function WriteXmlAttrAccent1(_value); + function ReadXmlAttrAccent2(); + function WriteXmlAttrAccent2(_value); + function ReadXmlAttrAccent3(); + function WriteXmlAttrAccent3(_value); + function ReadXmlAttrAccent4(); + function WriteXmlAttrAccent4(_value); + function ReadXmlAttrAccent5(); + function WriteXmlAttrAccent5(_value); + function ReadXmlAttrAccent6(); + function WriteXmlAttrAccent6(_value); + function ReadXmlAttrHyperLink(); + function WriteXmlAttrHyperLink(_value); + function ReadXmlAttrFollowedHyperlink(); + function WriteXmlAttrFollowedHyperlink(_value); + +public + // Attributes + XmlAttrBg1: OpenXmlAttribute; + XmlAttrT1: OpenXmlAttribute; + XmlAttrBg2: OpenXmlAttribute; + XmlAttrT2: OpenXmlAttribute; + XmlAttrAccent1: OpenXmlAttribute; + XmlAttrAccent2: OpenXmlAttribute; + XmlAttrAccent3: OpenXmlAttribute; + XmlAttrAccent4: OpenXmlAttribute; + XmlAttrAccent5: OpenXmlAttribute; + XmlAttrAccent6: OpenXmlAttribute; + XmlAttrHyperLink: OpenXmlAttribute; + XmlAttrFollowedHyperlink: OpenXmlAttribute; + + // Children + +end; + +function ClrSchemeMapping.Create();overload; +begin + {self.}Create(nil, "w", "clrSchemeMapping"); +end; + +function ClrSchemeMapping.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ClrSchemeMapping.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ClrSchemeMapping.Init();override; +begin + {self.}XmlAttrBg1 := new OpenXmlAttribute({self.}Prefix, "bg1", nil); + {self.}XmlAttrT1 := new OpenXmlAttribute({self.}Prefix, "t1", nil); + {self.}XmlAttrBg2 := new OpenXmlAttribute({self.}Prefix, "bg2", nil); + {self.}XmlAttrT2 := new OpenXmlAttribute({self.}Prefix, "t2", nil); + {self.}XmlAttrAccent1 := new OpenXmlAttribute({self.}Prefix, "accent1", nil); + {self.}XmlAttrAccent2 := new OpenXmlAttribute({self.}Prefix, "accent2", nil); + {self.}XmlAttrAccent3 := new OpenXmlAttribute({self.}Prefix, "accent3", nil); + {self.}XmlAttrAccent4 := new OpenXmlAttribute({self.}Prefix, "accent4", nil); + {self.}XmlAttrAccent5 := new OpenXmlAttribute({self.}Prefix, "accent5", nil); + {self.}XmlAttrAccent6 := new OpenXmlAttribute({self.}Prefix, "accent6", nil); + {self.}XmlAttrHyperLink := new OpenXmlAttribute({self.}Prefix, "hyperlink", nil); + {self.}XmlAttrFollowedHyperlink := new OpenXmlAttribute({self.}Prefix, "followedHyperlink", nil); +end; + +function ClrSchemeMapping.InitAttributes();override; +begin + attributes_ := array( + {self.}XmlAttrBg1, + {self.}XmlAttrT1, + {self.}XmlAttrBg2, + {self.}XmlAttrT2, + {self.}XmlAttrAccent1, + {self.}XmlAttrAccent2, + {self.}XmlAttrAccent3, + {self.}XmlAttrAccent4, + {self.}XmlAttrAccent5, + {self.}XmlAttrAccent6, + {self.}XmlAttrHyperLink, + {self.}XmlAttrFollowedHyperlink, + ); +end; + +function ClrSchemeMapping.InitChildren();override; +begin + child_elements_ := array( + ); + sorted_child_ := array( + "": -1, + ); +end; + +function ClrSchemeMapping.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; +end; + +function ClrSchemeMapping.Copy(_obj: ClrSchemeMapping);override; +begin + if not ifnil(_obj.XmlAttrBg1.Value) then + {self.}XmlAttrBg1.Value := _obj.XmlAttrBg1.Value; + if not ifnil(_obj.XmlAttrT1.Value) then + {self.}XmlAttrT1.Value := _obj.XmlAttrT1.Value; + if not ifnil(_obj.XmlAttrBg2.Value) then + {self.}XmlAttrBg2.Value := _obj.XmlAttrBg2.Value; + if not ifnil(_obj.XmlAttrT2.Value) then + {self.}XmlAttrT2.Value := _obj.XmlAttrT2.Value; + if not ifnil(_obj.XmlAttrAccent1.Value) then + {self.}XmlAttrAccent1.Value := _obj.XmlAttrAccent1.Value; + if not ifnil(_obj.XmlAttrAccent2.Value) then + {self.}XmlAttrAccent2.Value := _obj.XmlAttrAccent2.Value; + if not ifnil(_obj.XmlAttrAccent3.Value) then + {self.}XmlAttrAccent3.Value := _obj.XmlAttrAccent3.Value; + if not ifnil(_obj.XmlAttrAccent4.Value) then + {self.}XmlAttrAccent4.Value := _obj.XmlAttrAccent4.Value; + if not ifnil(_obj.XmlAttrAccent5.Value) then + {self.}XmlAttrAccent5.Value := _obj.XmlAttrAccent5.Value; + if not ifnil(_obj.XmlAttrAccent6.Value) then + {self.}XmlAttrAccent6.Value := _obj.XmlAttrAccent6.Value; + if not ifnil(_obj.XmlAttrHyperLink.Value) then + {self.}XmlAttrHyperLink.Value := _obj.XmlAttrHyperLink.Value; + if not ifnil(_obj.XmlAttrFollowedHyperlink.Value) then + {self.}XmlAttrFollowedHyperlink.Value := _obj.XmlAttrFollowedHyperlink.Value; +end; + +function ClrSchemeMapping.ReadXmlAttrBg1(); +begin + return {self.}XmlAttrBg1.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrBg1(_value); +begin + {self.}XmlAttrBg1.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrT1(); +begin + return {self.}XmlAttrT1.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrT1(_value); +begin + {self.}XmlAttrT1.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrBg2(); +begin + return {self.}XmlAttrBg2.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrBg2(_value); +begin + {self.}XmlAttrBg2.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrT2(); +begin + return {self.}XmlAttrT2.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrT2(_value); +begin + {self.}XmlAttrT2.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent1(); +begin + return {self.}XmlAttrAccent1.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent1(_value); +begin + {self.}XmlAttrAccent1.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent2(); +begin + return {self.}XmlAttrAccent2.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent2(_value); +begin + {self.}XmlAttrAccent2.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent3(); +begin + return {self.}XmlAttrAccent3.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent3(_value); +begin + {self.}XmlAttrAccent3.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent4(); +begin + return {self.}XmlAttrAccent4.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent4(_value); +begin + {self.}XmlAttrAccent4.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent5(); +begin + return {self.}XmlAttrAccent5.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent5(_value); +begin + {self.}XmlAttrAccent5.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent6(); +begin + return {self.}XmlAttrAccent6.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent6(_value); +begin + {self.}XmlAttrAccent6.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrHyperLink(); +begin + return {self.}XmlAttrHyperLink.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrHyperLink(_value); +begin + {self.}XmlAttrHyperLink.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrFollowedHyperlink(); +begin + return {self.}XmlAttrFollowedHyperlink.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrFollowedHyperlink(_value); +begin + {self.}XmlAttrFollowedHyperlink.Value := _value; +end; diff --git a/autoclass/docx/Settings@DOCX.tsf b/autoclass/docx/Settings@DOCX.tsf index af7710f..8528e73 100644 --- a/autoclass/docx/Settings@DOCX.tsf +++ b/autoclass/docx/Settings@DOCX.tsf @@ -54,12 +54,15 @@ public 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(); @@ -87,6 +90,7 @@ public XmlChildBordersDoNotSurroundHeader: OpenXmlEmpty; XmlChildBordersDoNotSurroundFooter: OpenXmlEmpty; DefaultTabStop: PureWVal; + XmlChildEvenAndOddHeaders: OpenXmlEmpty; DrawingGridVerticalSpacing: PureWVal; DisplayHorizontalDrawingGridEvery: PureWVal; DisplayVerticalDrawingGridEvery: PureWVal; @@ -144,6 +148,7 @@ begin {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"); @@ -192,25 +197,26 @@ begin 1: {self.}XmlChildBordersDoNotSurroundHeader, 2: {self.}XmlChildBordersDoNotSurroundFooter, 3: {self.}DefaultTabStop, - 4: {self.}DrawingGridVerticalSpacing, - 5: {self.}DisplayHorizontalDrawingGridEvery, - 6: {self.}DisplayVerticalDrawingGridEvery, - 7: {self.}CharacterSpacingControl, - 8: {self.}HdrShapeDefaults, - 9: {self.}FootnotePr, - 10: {self.}EndnotePr, - 11: {self.}Compat, - 12: {self.}Rsids, - 13: {self.}MathPr, - 14: {self.}ThemeFontLang, - 15: {self.}ClrSchemeMapping, - 16: {self.}XmlChildDoNotIncludeSubdocsInStats, - 17: {self.}ShapeDefaults, - 18: {self.}DecimalSymbol, - 19: {self.}ListSeparator, - 20: {self.}W14DocId, - 21: {self.}XmlChildW15ChartTrackingRefBased, - 22: {self.}W15DocId, + 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, @@ -218,25 +224,26 @@ begin {self.}XmlChildBordersDoNotSurroundHeader.ElementName: 1, {self.}XmlChildBordersDoNotSurroundFooter.ElementName: 2, {self.}DefaultTabStop.ElementName: 3, - {self.}DrawingGridVerticalSpacing.ElementName: 4, - {self.}DisplayHorizontalDrawingGridEvery.ElementName: 5, - {self.}DisplayVerticalDrawingGridEvery.ElementName: 6, - {self.}CharacterSpacingControl.ElementName: 7, - {self.}HdrShapeDefaults.ElementName: 8, - {self.}FootnotePr.ElementName: 9, - {self.}EndnotePr.ElementName: 10, - {self.}Compat.ElementName: 11, - {self.}Rsids.ElementName: 12, - {self.}MathPr.ElementName: 13, - {self.}ThemeFontLang.ElementName: 14, - {self.}ClrSchemeMapping.ElementName: 15, - {self.}XmlChildDoNotIncludeSubdocsInStats.ElementName: 16, - {self.}ShapeDefaults.ElementName: 17, - {self.}DecimalSymbol.ElementName: 18, - {self.}ListSeparator.ElementName: 19, - {self.}W14DocId.ElementName: 20, - {self.}XmlChildW15ChartTrackingRefBased.ElementName: 21, - {self.}W15DocId.ElementName: 22, + {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; @@ -312,6 +319,7 @@ begin {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); @@ -493,6 +501,16 @@ 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; diff --git a/autoclass/docx/ThemeFontLang@DOCX.tsf b/autoclass/docx/ThemeFontLang@DOCX.tsf new file mode 100644 index 0000000..e2f6190 --- /dev/null +++ b/autoclass/docx/ThemeFontLang@DOCX.tsf @@ -0,0 +1,99 @@ +type ThemeFontLang = 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: ThemeFontLang);override; + + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrEastAsia(); + function WriteXmlAttrEastAsia(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrEastAsia: OpenXmlAttribute; + + // Children + +end; + +function ThemeFontLang.Create();overload; +begin + {self.}Create(nil, "w", "themeFontLang"); +end; + +function ThemeFontLang.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ThemeFontLang.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ThemeFontLang.Init();override; +begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + {self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil); +end; + +function ThemeFontLang.InitAttributes();override; +begin + attributes_ := array( + {self.}XmlAttrVal, + {self.}XmlAttrEastAsia, + ); +end; + +function ThemeFontLang.InitChildren();override; +begin + child_elements_ := array( + ); + sorted_child_ := array( + "": -1, + ); +end; + +function ThemeFontLang.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; +end; + +function ThemeFontLang.Copy(_obj: ThemeFontLang);override; +begin + if not ifnil(_obj.XmlAttrVal.Value) then + {self.}XmlAttrVal.Value := _obj.XmlAttrVal.Value; + if not ifnil(_obj.XmlAttrEastAsia.Value) then + {self.}XmlAttrEastAsia.Value := _obj.XmlAttrEastAsia.Value; +end; + +function ThemeFontLang.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function ThemeFontLang.WriteXmlAttrVal(_value); +begin + {self.}XmlAttrVal.Value := _value; +end; + +function ThemeFontLang.ReadXmlAttrEastAsia(); +begin + return {self.}XmlAttrEastAsia.Value; +end; + +function ThemeFontLang.WriteXmlAttrEastAsia(_value); +begin + {self.}XmlAttrEastAsia.Value := _value; +end;