upgrade
This commit is contained in:
@@ -0,0 +1,96 @@
|
||||
type Col = 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: Col);override;
|
||||
|
||||
public
|
||||
|
||||
// attributes property
|
||||
property W read ReadXmlAttrW write WriteXmlAttrW;
|
||||
property Space read ReadXmlAttrSpace write WriteXmlAttrSpace;
|
||||
function ReadXmlAttrW();
|
||||
function WriteXmlAttrW(_value);
|
||||
function ReadXmlAttrSpace();
|
||||
function WriteXmlAttrSpace(_value);
|
||||
|
||||
public
|
||||
// Attributes
|
||||
XmlAttrW: OpenXmlAttribute;
|
||||
XmlAttrSpace: OpenXmlAttribute;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
function Col.Create();overload;
|
||||
begin
|
||||
{self.}Create(nil, "w", "col");
|
||||
end;
|
||||
|
||||
function Col.Create(_node: XmlNode);overload;
|
||||
begin
|
||||
class(OpenXmlElement).Create(_node: XmlNode);
|
||||
end;
|
||||
|
||||
function Col.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 Col.Init();override;
|
||||
begin
|
||||
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
||||
attributes_ := array();
|
||||
attributes_pf_ := array(
|
||||
pre + "w": makeweakref(thisFunction(WriteXmlAttrW)),
|
||||
pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)),
|
||||
);
|
||||
sorted_child_ := array(
|
||||
);
|
||||
container_ := new TSOfficeContainer(sorted_child_);
|
||||
end;
|
||||
|
||||
function Col.Copy(_obj: Col);override;
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
class(OpenXmlElement).Copy(_obj);
|
||||
if not ifnil(_obj.W) then
|
||||
{self.}W := _obj.W;
|
||||
if not ifnil(_obj.Space) then
|
||||
{self.}Space := _obj.Space;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Col.ReadXmlAttrW();
|
||||
begin
|
||||
return {self.}XmlAttrW.Value;
|
||||
end;
|
||||
|
||||
function Col.WriteXmlAttrW(_value);
|
||||
begin
|
||||
if ifnil({self.}XmlAttrW) then
|
||||
begin
|
||||
{self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil);
|
||||
attributes_[length(attributes_)] := {self.}XmlAttrW;
|
||||
end
|
||||
{self.}XmlAttrW.Value := _value;
|
||||
end;
|
||||
|
||||
function Col.ReadXmlAttrSpace();
|
||||
begin
|
||||
return {self.}XmlAttrSpace.Value;
|
||||
end;
|
||||
|
||||
function Col.WriteXmlAttrSpace(_value);
|
||||
begin
|
||||
if ifnil({self.}XmlAttrSpace) then
|
||||
begin
|
||||
{self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil);
|
||||
attributes_[length(attributes_)] := {self.}XmlAttrSpace;
|
||||
end
|
||||
{self.}XmlAttrSpace.Value := _value;
|
||||
end;
|
||||
@@ -9,14 +9,29 @@ public
|
||||
public
|
||||
|
||||
// attributes property
|
||||
property Num read ReadXmlAttrNum write WriteXmlAttrNum;
|
||||
property Space read ReadXmlAttrSpace write WriteXmlAttrSpace;
|
||||
property EqualWidth read ReadXmlAttrEqualWidth write WriteXmlAttrEqualWidth;
|
||||
function ReadXmlAttrNum();
|
||||
function WriteXmlAttrNum(_value);
|
||||
function ReadXmlAttrSpace();
|
||||
function WriteXmlAttrSpace(_value);
|
||||
function ReadXmlAttrEqualWidth();
|
||||
function WriteXmlAttrEqualWidth(_value);
|
||||
|
||||
// multi property
|
||||
property Cols read ReadCols;
|
||||
function ReadCols(_index);
|
||||
function AddCol(): Col;
|
||||
function AppendCol(): Col;
|
||||
|
||||
public
|
||||
// Attributes
|
||||
XmlAttrNum: OpenXmlAttribute;
|
||||
XmlAttrSpace: OpenXmlAttribute;
|
||||
XmlAttrEqualWidth: OpenXmlAttribute;
|
||||
|
||||
// Children
|
||||
|
||||
end;
|
||||
|
||||
@@ -41,9 +56,12 @@ begin
|
||||
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
||||
attributes_ := array();
|
||||
attributes_pf_ := array(
|
||||
pre + "num": makeweakref(thisFunction(WriteXmlAttrNum)),
|
||||
pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)),
|
||||
pre + "equalWidth": makeweakref(thisFunction(WriteXmlAttrEqualWidth)),
|
||||
);
|
||||
sorted_child_ := array(
|
||||
pre + "col": array(0, makeweakref(thisFunction(AppendCol))),
|
||||
);
|
||||
container_ := new TSOfficeContainer(sorted_child_);
|
||||
end;
|
||||
@@ -53,11 +71,30 @@ begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
class(OpenXmlElement).Copy(_obj);
|
||||
if not ifnil(_obj.Num) then
|
||||
{self.}Num := _obj.Num;
|
||||
if not ifnil(_obj.Space) then
|
||||
{self.}Space := _obj.Space;
|
||||
if not ifnil(_obj.EqualWidth) then
|
||||
{self.}EqualWidth := _obj.EqualWidth;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Cols.ReadXmlAttrNum();
|
||||
begin
|
||||
return {self.}XmlAttrNum.Value;
|
||||
end;
|
||||
|
||||
function Cols.WriteXmlAttrNum(_value);
|
||||
begin
|
||||
if ifnil({self.}XmlAttrNum) then
|
||||
begin
|
||||
{self.}XmlAttrNum := new OpenXmlAttribute({self.}Prefix, "num", nil);
|
||||
attributes_[length(attributes_)] := {self.}XmlAttrNum;
|
||||
end
|
||||
{self.}XmlAttrNum.Value := _value;
|
||||
end;
|
||||
|
||||
function Cols.ReadXmlAttrSpace();
|
||||
begin
|
||||
return {self.}XmlAttrSpace.Value;
|
||||
@@ -72,3 +109,39 @@ begin
|
||||
end
|
||||
{self.}XmlAttrSpace.Value := _value;
|
||||
end;
|
||||
|
||||
function Cols.ReadXmlAttrEqualWidth();
|
||||
begin
|
||||
return {self.}XmlAttrEqualWidth.Value;
|
||||
end;
|
||||
|
||||
function Cols.WriteXmlAttrEqualWidth(_value);
|
||||
begin
|
||||
if ifnil({self.}XmlAttrEqualWidth) then
|
||||
begin
|
||||
{self.}XmlAttrEqualWidth := new OpenXmlAttribute({self.}Prefix, "equalWidth", nil);
|
||||
attributes_[length(attributes_)] := {self.}XmlAttrEqualWidth;
|
||||
end
|
||||
{self.}XmlAttrEqualWidth.Value := _value;
|
||||
end;
|
||||
|
||||
function Cols.ReadCols(_index);
|
||||
begin
|
||||
ind := ifnil(_index) ? -2 : _index;
|
||||
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
||||
return container_.Get(pre + "col", ind);
|
||||
end;
|
||||
|
||||
function Cols.AddCol(): Col;
|
||||
begin
|
||||
obj := new Col(self, {self.}Prefix, "col");
|
||||
container_.Insert(obj);
|
||||
return obj;
|
||||
end;
|
||||
|
||||
function Cols.AppendCol(): Col;
|
||||
begin
|
||||
obj := new Col(self, {self.}Prefix, "col");
|
||||
container_.Append(obj);
|
||||
return obj;
|
||||
end;
|
||||
|
||||
@@ -8,6 +8,14 @@ public
|
||||
|
||||
public
|
||||
|
||||
// normal property
|
||||
property Pos read ReadXmlChildPos;
|
||||
property NumFmt read ReadXmlChildNumFmt;
|
||||
property NumStart read ReadXmlChildNumStart;
|
||||
function ReadXmlChildPos();
|
||||
function ReadXmlChildNumFmt();
|
||||
function ReadXmlChildNumStart();
|
||||
|
||||
// multi property
|
||||
property Endnotes read ReadEndnotes;
|
||||
function ReadEndnotes(_index);
|
||||
@@ -16,6 +24,9 @@ public
|
||||
|
||||
public
|
||||
// Children
|
||||
XmlChildPos: PureWVal;
|
||||
XmlChildNumFmt: PureWVal;
|
||||
XmlChildNumStart: PureWVal;
|
||||
|
||||
end;
|
||||
|
||||
@@ -42,7 +53,10 @@ begin
|
||||
attributes_pf_ := array(
|
||||
);
|
||||
sorted_child_ := array(
|
||||
pre + "endnote": array(0, makeweakref(thisFunction(AppendEndnote))),
|
||||
pre + "pos": array(0, makeweakref(thisFunction(ReadXmlChildPos))),
|
||||
pre + "numFmt": array(1, makeweakref(thisFunction(ReadXmlChildNumFmt))),
|
||||
pre + "numStart": array(2, makeweakref(thisFunction(ReadXmlChildNumStart))),
|
||||
pre + "endnote": array(3, makeweakref(thisFunction(AppendEndnote))),
|
||||
);
|
||||
container_ := new TSOfficeContainer(sorted_child_);
|
||||
end;
|
||||
@@ -52,9 +66,45 @@ begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
class(OpenXmlElement).Copy(_obj);
|
||||
if not ifnil(_obj.XmlChildPos) then
|
||||
{self.}Pos.Copy(_obj.XmlChildPos);
|
||||
if not ifnil(_obj.XmlChildNumFmt) then
|
||||
{self.}NumFmt.Copy(_obj.XmlChildNumFmt);
|
||||
if not ifnil(_obj.XmlChildNumStart) then
|
||||
{self.}NumStart.Copy(_obj.XmlChildNumStart);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function EndnotePr.ReadXmlChildPos();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildPos) then
|
||||
begin
|
||||
{self.}XmlChildPos := new PureWVal(self, {self.}Prefix, "pos");
|
||||
container_.Set({self.}XmlChildPos);
|
||||
end
|
||||
return {self.}XmlChildPos;
|
||||
end;
|
||||
|
||||
function EndnotePr.ReadXmlChildNumFmt();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildNumFmt) then
|
||||
begin
|
||||
{self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt");
|
||||
container_.Set({self.}XmlChildNumFmt);
|
||||
end
|
||||
return {self.}XmlChildNumFmt;
|
||||
end;
|
||||
|
||||
function EndnotePr.ReadXmlChildNumStart();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildNumStart) then
|
||||
begin
|
||||
{self.}XmlChildNumStart := new PureWVal(self, {self.}Prefix, "numStart");
|
||||
container_.Set({self.}XmlChildNumStart);
|
||||
end
|
||||
return {self.}XmlChildNumStart;
|
||||
end;
|
||||
|
||||
function EndnotePr.ReadEndnotes(_index);
|
||||
begin
|
||||
ind := ifnil(_index) ? -2 : _index;
|
||||
|
||||
@@ -40,6 +40,9 @@ public
|
||||
property AutoSpaceDN read ReadXmlChildAutoSpaceDN;
|
||||
property RPr read ReadXmlChildRPr;
|
||||
property PBdr read ReadXmlChildPBdr;
|
||||
property Shd read ReadXmlChildShd;
|
||||
property WordWrap read ReadXmlChildWordWrap;
|
||||
property TextboxTightWrap read ReadXmlChildTextboxTightWrap;
|
||||
function ReadXmlChildSectPr();
|
||||
function ReadXmlChildTabs();
|
||||
function ReadXmlChildSnapToGrid();
|
||||
@@ -54,6 +57,9 @@ public
|
||||
function ReadXmlChildAutoSpaceDN();
|
||||
function ReadXmlChildRPr();
|
||||
function ReadXmlChildPBdr();
|
||||
function ReadXmlChildShd();
|
||||
function ReadXmlChildWordWrap();
|
||||
function ReadXmlChildTextboxTightWrap();
|
||||
|
||||
public
|
||||
// Children
|
||||
@@ -76,6 +82,9 @@ public
|
||||
XmlChildRPr: RPr;
|
||||
XmlChildPBdr: PBdr;
|
||||
XmlChildContextualSpacing: OpenXmlEmpty;
|
||||
XmlChildShd: Shd;
|
||||
XmlChildWordWrap: PureWVal;
|
||||
XmlChildTextboxTightWrap: PureWVal;
|
||||
|
||||
end;
|
||||
|
||||
@@ -121,6 +130,9 @@ begin
|
||||
pre + "rPr": array(16, makeweakref(thisFunction(ReadXmlChildRPr))),
|
||||
pre + "pBdr": array(17, makeweakref(thisFunction(ReadXmlChildPBdr))),
|
||||
pre + "contextualSpacing": array(18, makeweakref(thisFunction(ReadXmlChildContextualSpacing))),
|
||||
pre + "shd": array(19, makeweakref(thisFunction(ReadXmlChildShd))),
|
||||
pre + "wordWrap": array(20, makeweakref(thisFunction(ReadXmlChildWordWrap))),
|
||||
pre + "textboxTightWrap": array(21, makeweakref(thisFunction(ReadXmlChildTextboxTightWrap))),
|
||||
);
|
||||
container_ := new TSOfficeContainer(sorted_child_);
|
||||
end;
|
||||
@@ -168,6 +180,12 @@ begin
|
||||
{self.}PBdr.Copy(_obj.XmlChildPBdr);
|
||||
if not ifnil(_obj.XmlChildContextualSpacing) then
|
||||
ifnil({self.}XmlChildContextualSpacing) ? {self.}ContextualSpacing.Copy(_obj.XmlChildContextualSpacing) : {self.}XmlChildContextualSpacing.Copy(_obj.XmlChildContextualSpacing);
|
||||
if not ifnil(_obj.XmlChildShd) then
|
||||
{self.}Shd.Copy(_obj.XmlChildShd);
|
||||
if not ifnil(_obj.XmlChildWordWrap) then
|
||||
{self.}WordWrap.Copy(_obj.XmlChildWordWrap);
|
||||
if not ifnil(_obj.XmlChildTextboxTightWrap) then
|
||||
{self.}TextboxTightWrap.Copy(_obj.XmlChildTextboxTightWrap);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -415,3 +433,33 @@ begin
|
||||
end
|
||||
return {self.}XmlChildPBdr;
|
||||
end;
|
||||
|
||||
function PPr.ReadXmlChildShd();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildShd) then
|
||||
begin
|
||||
{self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd");
|
||||
container_.Set({self.}XmlChildShd);
|
||||
end
|
||||
return {self.}XmlChildShd;
|
||||
end;
|
||||
|
||||
function PPr.ReadXmlChildWordWrap();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildWordWrap) then
|
||||
begin
|
||||
{self.}XmlChildWordWrap := new PureWVal(self, {self.}Prefix, "wordWrap");
|
||||
container_.Set({self.}XmlChildWordWrap);
|
||||
end
|
||||
return {self.}XmlChildWordWrap;
|
||||
end;
|
||||
|
||||
function PPr.ReadXmlChildTextboxTightWrap();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildTextboxTightWrap) then
|
||||
begin
|
||||
{self.}XmlChildTextboxTightWrap := new PureWVal(self, {self.}Prefix, "textboxTightWrap");
|
||||
container_.Set({self.}XmlChildTextboxTightWrap);
|
||||
end
|
||||
return {self.}XmlChildTextboxTightWrap;
|
||||
end;
|
||||
|
||||
+45
-17
@@ -23,12 +23,15 @@ public
|
||||
property Separator read ReadXmlChildSeparator write WriteXmlChildSeparator;
|
||||
property ContinuationSeparator read ReadXmlChildContinuationSeparator write WriteXmlChildContinuationSeparator;
|
||||
property LastRenderedPageBreak read ReadXmlChildLastRenderedPageBreak write WriteXmlChildLastRenderedPageBreak;
|
||||
property FootnoteRef read ReadXmlChildFootnoteRef write WriteXmlChildFootnoteRef;
|
||||
function ReadXmlChildSeparator();
|
||||
function WriteXmlChildSeparator(_value);
|
||||
function ReadXmlChildContinuationSeparator();
|
||||
function WriteXmlChildContinuationSeparator(_value);
|
||||
function ReadXmlChildLastRenderedPageBreak();
|
||||
function WriteXmlChildLastRenderedPageBreak(_value);
|
||||
function ReadXmlChildFootnoteRef();
|
||||
function WriteXmlChildFootnoteRef(_value);
|
||||
|
||||
// normal property
|
||||
property RPr read ReadXmlChildRPr;
|
||||
@@ -38,8 +41,8 @@ public
|
||||
property AlternateContent read ReadXmlChildAlternateContent;
|
||||
property Drawing read ReadXmlChildDrawing;
|
||||
property T read ReadXmlChildT;
|
||||
property FootnoteReference read ReadXmlChildFootnoteReference;
|
||||
property Object read ReadXmlChildObject;
|
||||
property FootnoteReference read ReadXmlChildFootnoteReference;
|
||||
function ReadXmlChildRPr();
|
||||
function ReadXmlChildBr();
|
||||
function ReadXmlChildFldChar();
|
||||
@@ -47,8 +50,8 @@ public
|
||||
function ReadXmlChildAlternateContent();
|
||||
function ReadXmlChildDrawing();
|
||||
function ReadXmlChildT();
|
||||
function ReadXmlChildFootnoteReference();
|
||||
function ReadXmlChildObject();
|
||||
function ReadXmlChildFootnoteReference();
|
||||
|
||||
public
|
||||
// Attributes
|
||||
@@ -67,8 +70,9 @@ public
|
||||
XmlChildAlternateContent: AlternateContent;
|
||||
XmlChildDrawing: Drawing;
|
||||
XmlChildT: T;
|
||||
XmlChildFootnoteReference: FootnoteReference;
|
||||
XmlChildObject: Object;
|
||||
XmlChildFootnoteReference: FootnoteReference;
|
||||
XmlChildFootnoteRef: OpenXmlEmpty;
|
||||
|
||||
end;
|
||||
|
||||
@@ -108,8 +112,9 @@ begin
|
||||
"mc:AlternateContent": array(7, makeweakref(thisFunction(ReadXmlChildAlternateContent))),
|
||||
pre + "drawing": array(8, makeweakref(thisFunction(ReadXmlChildDrawing))),
|
||||
pre + "t": array(9, makeweakref(thisFunction(ReadXmlChildT))),
|
||||
pre + "footnoteReference": array(10, makeweakref(thisFunction(ReadXmlChildFootnoteReference))),
|
||||
pre + "object": array(11, makeweakref(thisFunction(ReadXmlChildObject))),
|
||||
pre + "object": array(10, makeweakref(thisFunction(ReadXmlChildObject))),
|
||||
pre + "footnoteReference": array(11, makeweakref(thisFunction(ReadXmlChildFootnoteReference))),
|
||||
pre + "footnoteRef": array(12, makeweakref(thisFunction(ReadXmlChildFootnoteRef))),
|
||||
);
|
||||
container_ := new TSOfficeContainer(sorted_child_);
|
||||
end;
|
||||
@@ -145,10 +150,12 @@ begin
|
||||
{self.}Drawing.Copy(_obj.XmlChildDrawing);
|
||||
if not ifnil(_obj.XmlChildT) then
|
||||
{self.}T.Copy(_obj.XmlChildT);
|
||||
if not ifnil(_obj.XmlChildFootnoteReference) then
|
||||
{self.}FootnoteReference.Copy(_obj.XmlChildFootnoteReference);
|
||||
if not ifnil(_obj.XmlChildObject) then
|
||||
{self.}Object.Copy(_obj.XmlChildObject);
|
||||
if not ifnil(_obj.XmlChildFootnoteReference) then
|
||||
{self.}FootnoteReference.Copy(_obj.XmlChildFootnoteReference);
|
||||
if not ifnil(_obj.XmlChildFootnoteRef) then
|
||||
ifnil({self.}XmlChildFootnoteRef) ? {self.}FootnoteRef.Copy(_obj.XmlChildFootnoteRef) : {self.}XmlChildFootnoteRef.Copy(_obj.XmlChildFootnoteRef);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -260,6 +267,27 @@ begin
|
||||
{self.}XmlChildLastRenderedPageBreak.Value := _value;
|
||||
end;
|
||||
|
||||
function R.ReadXmlChildFootnoteRef();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildFootnoteRef) then
|
||||
begin
|
||||
{self.}XmlChildFootnoteRef := new OpenXmlEmpty(self, {self.}Prefix, "footnoteRef");
|
||||
container_.Set({self.}XmlChildFootnoteRef);
|
||||
return {self.}XmlChildFootnoteRef;
|
||||
end
|
||||
return ifnil({self.}XmlChildFootnoteRef) ? false : {self.}XmlChildFootnoteRef.BoolValue();
|
||||
end;
|
||||
|
||||
function R.WriteXmlChildFootnoteRef(_value);
|
||||
begin
|
||||
if ifnil({self.}XmlChildFootnoteRef) then
|
||||
begin
|
||||
{self.}XmlChildFootnoteRef := new OpenXmlEmpty(self, {self.}Prefix, "footnoteRef");
|
||||
container_.Set({self.}XmlChildFootnoteRef);
|
||||
end
|
||||
{self.}XmlChildFootnoteRef.Value := _value;
|
||||
end;
|
||||
|
||||
function R.ReadXmlChildRPr();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildRPr) then
|
||||
@@ -330,16 +358,6 @@ begin
|
||||
return {self.}XmlChildT;
|
||||
end;
|
||||
|
||||
function R.ReadXmlChildFootnoteReference();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildFootnoteReference) then
|
||||
begin
|
||||
{self.}XmlChildFootnoteReference := new FootnoteReference(self, {self.}Prefix, "footnoteReference");
|
||||
container_.Set({self.}XmlChildFootnoteReference);
|
||||
end
|
||||
return {self.}XmlChildFootnoteReference;
|
||||
end;
|
||||
|
||||
function R.ReadXmlChildObject();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildObject) then
|
||||
@@ -349,3 +367,13 @@ begin
|
||||
end
|
||||
return {self.}XmlChildObject;
|
||||
end;
|
||||
|
||||
function R.ReadXmlChildFootnoteReference();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildFootnoteReference) then
|
||||
begin
|
||||
{self.}XmlChildFootnoteReference := new FootnoteReference(self, {self.}Prefix, "footnoteReference");
|
||||
container_.Set({self.}XmlChildFootnoteReference);
|
||||
end
|
||||
return {self.}XmlChildFootnoteReference;
|
||||
end;
|
||||
|
||||
@@ -39,6 +39,7 @@ public
|
||||
property Sz read ReadXmlChildSz;
|
||||
property SzCs read ReadXmlChildSzCs;
|
||||
property Lang read ReadXmlChildLang;
|
||||
property VertAlign read ReadXmlChildVertAlign;
|
||||
property W14Ligatures read ReadXmlChildW14Ligatures;
|
||||
function ReadXmlChildNoProof();
|
||||
function ReadXmlChildPosition();
|
||||
@@ -50,6 +51,7 @@ public
|
||||
function ReadXmlChildSz();
|
||||
function ReadXmlChildSzCs();
|
||||
function ReadXmlChildLang();
|
||||
function ReadXmlChildVertAlign();
|
||||
function ReadXmlChildW14Ligatures();
|
||||
|
||||
public
|
||||
@@ -70,6 +72,7 @@ public
|
||||
XmlChildSzCs: SzCs;
|
||||
XmlChildU: OpenXmlEmpty;
|
||||
XmlChildLang: Lang;
|
||||
XmlChildVertAlign: PureWVal;
|
||||
XmlChildW14Ligatures: PureWVal;
|
||||
|
||||
end;
|
||||
@@ -113,7 +116,8 @@ begin
|
||||
pre + "szCs": array(13, makeweakref(thisFunction(ReadXmlChildSzCs))),
|
||||
pre + "u": array(14, makeweakref(thisFunction(ReadXmlChildU))),
|
||||
pre + "lang": array(15, makeweakref(thisFunction(ReadXmlChildLang))),
|
||||
"w14:ligatures": array(16, makeweakref(thisFunction(ReadXmlChildW14Ligatures))),
|
||||
pre + "vertAlign": array(16, makeweakref(thisFunction(ReadXmlChildVertAlign))),
|
||||
"w14:ligatures": array(17, makeweakref(thisFunction(ReadXmlChildW14Ligatures))),
|
||||
);
|
||||
container_ := new TSOfficeContainer(sorted_child_);
|
||||
end;
|
||||
@@ -155,6 +159,8 @@ begin
|
||||
ifnil({self.}XmlChildU) ? {self.}U.Copy(_obj.XmlChildU) : {self.}XmlChildU.Copy(_obj.XmlChildU);
|
||||
if not ifnil(_obj.XmlChildLang) then
|
||||
{self.}Lang.Copy(_obj.XmlChildLang);
|
||||
if not ifnil(_obj.XmlChildVertAlign) then
|
||||
{self.}VertAlign.Copy(_obj.XmlChildVertAlign);
|
||||
if not ifnil(_obj.XmlChildW14Ligatures) then
|
||||
{self.}W14Ligatures.Copy(_obj.XmlChildW14Ligatures);
|
||||
tslassigning := tslassigning_backup;
|
||||
@@ -386,6 +392,16 @@ begin
|
||||
return {self.}XmlChildLang;
|
||||
end;
|
||||
|
||||
function RPr.ReadXmlChildVertAlign();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildVertAlign) then
|
||||
begin
|
||||
{self.}XmlChildVertAlign := new PureWVal(self, {self.}Prefix, "vertAlign");
|
||||
container_.Set({self.}XmlChildVertAlign);
|
||||
end
|
||||
return {self.}XmlChildVertAlign;
|
||||
end;
|
||||
|
||||
function RPr.ReadXmlChildW14Ligatures();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildW14Ligatures) then
|
||||
|
||||
@@ -23,6 +23,7 @@ public
|
||||
|
||||
// normal property
|
||||
property FootnotePr read ReadXmlChildFootnotePr;
|
||||
property EndnotePr read ReadXmlChildEndnotePr;
|
||||
property Type read ReadXmlChildType;
|
||||
property PgSz read ReadXmlChildPgSz;
|
||||
property PgMar read ReadXmlChildPgMar;
|
||||
@@ -30,6 +31,7 @@ public
|
||||
property Cols read ReadXmlChildCols;
|
||||
property DocGrid read ReadXmlChildDocGrid;
|
||||
function ReadXmlChildFootnotePr();
|
||||
function ReadXmlChildEndnotePr();
|
||||
function ReadXmlChildType();
|
||||
function ReadXmlChildPgSz();
|
||||
function ReadXmlChildPgMar();
|
||||
@@ -54,13 +56,14 @@ public
|
||||
|
||||
// Children
|
||||
XmlChildFootnotePr: FootnotePr;
|
||||
XmlChildEndnotePr: EndnotePr;
|
||||
XmlChildType: PureWVal;
|
||||
XmlChildPgSz: PgSz;
|
||||
XmlChildPgMar: PgMar;
|
||||
XmlChildPgNumType: PgNumType;
|
||||
XmlChildCols: Cols;
|
||||
XmlChildTitlePg: OpenXmlEmpty;
|
||||
XmlChildDocGrid: docGrid;
|
||||
XmlChildDocGrid: DocGrid;
|
||||
|
||||
end;
|
||||
|
||||
@@ -92,13 +95,14 @@ begin
|
||||
pre + "headerReference": array(0, makeweakref(thisFunction(AppendHeaderReference))),
|
||||
pre + "footerReference": array(1, makeweakref(thisFunction(AppendFooterReference))),
|
||||
pre + "footnotePr": array(2, makeweakref(thisFunction(ReadXmlChildFootnotePr))),
|
||||
pre + "type": array(3, makeweakref(thisFunction(ReadXmlChildType))),
|
||||
pre + "pgSz": array(4, makeweakref(thisFunction(ReadXmlChildPgSz))),
|
||||
pre + "pgMar": array(5, makeweakref(thisFunction(ReadXmlChildPgMar))),
|
||||
pre + "pgNumType": array(6, makeweakref(thisFunction(ReadXmlChildPgNumType))),
|
||||
pre + "cols": array(7, makeweakref(thisFunction(ReadXmlChildCols))),
|
||||
pre + "titlePg": array(8, makeweakref(thisFunction(ReadXmlChildTitlePg))),
|
||||
pre + "docGrid": array(9, makeweakref(thisFunction(ReadXmlChildDocGrid))),
|
||||
pre + "endnotePr": array(3, makeweakref(thisFunction(ReadXmlChildEndnotePr))),
|
||||
pre + "type": array(4, makeweakref(thisFunction(ReadXmlChildType))),
|
||||
pre + "pgSz": array(5, makeweakref(thisFunction(ReadXmlChildPgSz))),
|
||||
pre + "pgMar": array(6, makeweakref(thisFunction(ReadXmlChildPgMar))),
|
||||
pre + "pgNumType": array(7, makeweakref(thisFunction(ReadXmlChildPgNumType))),
|
||||
pre + "cols": array(8, makeweakref(thisFunction(ReadXmlChildCols))),
|
||||
pre + "titlePg": array(9, makeweakref(thisFunction(ReadXmlChildTitlePg))),
|
||||
pre + "docGrid": array(10, makeweakref(thisFunction(ReadXmlChildDocGrid))),
|
||||
);
|
||||
container_ := new TSOfficeContainer(sorted_child_);
|
||||
end;
|
||||
@@ -114,6 +118,8 @@ begin
|
||||
{self.}WRsidSect := _obj.WRsidSect;
|
||||
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.XmlChildType) then
|
||||
{self.}Type.Copy(_obj.XmlChildType);
|
||||
if not ifnil(_obj.XmlChildPgSz) then
|
||||
@@ -192,6 +198,16 @@ begin
|
||||
return {self.}XmlChildFootnotePr;
|
||||
end;
|
||||
|
||||
function SectPr.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 SectPr.ReadXmlChildType();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildType) then
|
||||
@@ -246,7 +262,7 @@ function SectPr.ReadXmlChildDocGrid();
|
||||
begin
|
||||
if tslassigning and ifnil({self.}XmlChildDocGrid) then
|
||||
begin
|
||||
{self.}XmlChildDocGrid := new docGrid(self, {self.}Prefix, "docGrid");
|
||||
{self.}XmlChildDocGrid := new DocGrid(self, {self.}Prefix, "docGrid");
|
||||
container_.Set({self.}XmlChildDocGrid);
|
||||
end
|
||||
return {self.}XmlChildDocGrid;
|
||||
|
||||
Reference in New Issue
Block a user