810 lines
32 KiB
Plaintext
810 lines
32 KiB
Plaintext
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;
|