update docxconfig
This commit is contained in:
parent
7936d19b98
commit
c8ca8ed023
|
|
@ -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;
|
||||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
Loading…
Reference in New Issue