3209 lines
82 KiB
Plaintext
3209 lines
82 KiB
Plaintext
unit SharedML;
|
|
interface
|
|
uses DrawingML, DocxML;
|
|
|
|
type MathPr = 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: MathPr);override;
|
|
public
|
|
|
|
// empty property
|
|
property DispDef read ReadXmlChildDispDef write WriteXmlChildDispDef;
|
|
function ReadXmlChildDispDef();
|
|
function WriteXmlChildDispDef(_value);
|
|
|
|
// normal property
|
|
property MathFont read ReadXmlChildMathFont;
|
|
property BrkBin read ReadXmlChildBrkBin;
|
|
property BrkBinSub read ReadXmlChildBrkBinSub;
|
|
property SmallFrac read ReadXmlChildSmallFrac;
|
|
property LMargin read ReadXmlChildLMargin;
|
|
property RMargin read ReadXmlChildRMargin;
|
|
property DefJc read ReadXmlChildDefJc;
|
|
property WrapIndent read ReadXmlChildWrapIndent;
|
|
property IntLim read ReadXmlChildIntLim;
|
|
property NaryLim read ReadXmlChildNaryLim;
|
|
function ReadXmlChildMathFont(): PureMVal;
|
|
function ReadXmlChildBrkBin(): PureMVal;
|
|
function ReadXmlChildBrkBinSub(): PureMVal;
|
|
function ReadXmlChildSmallFrac(): PureMVal;
|
|
function ReadXmlChildLMargin(): PureMVal;
|
|
function ReadXmlChildRMargin(): PureMVal;
|
|
function ReadXmlChildDefJc(): PureMVal;
|
|
function ReadXmlChildWrapIndent(): PureMVal;
|
|
function ReadXmlChildIntLim(): PureMVal;
|
|
function ReadXmlChildNaryLim(): PureMVal;
|
|
|
|
public
|
|
// Children
|
|
XmlChildMathFont: PureMVal;
|
|
XmlChildBrkBin: PureMVal;
|
|
XmlChildBrkBinSub: PureMVal;
|
|
XmlChildSmallFrac: PureMVal;
|
|
XmlChildDispDef: OpenXmlEmpty;
|
|
XmlChildLMargin: PureMVal;
|
|
XmlChildRMargin: PureMVal;
|
|
XmlChildDefJc: PureMVal;
|
|
XmlChildWrapIndent: PureMVal;
|
|
XmlChildIntLim: PureMVal;
|
|
XmlChildNaryLim: PureMVal;
|
|
end;
|
|
|
|
type OMathPara = 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: OMathPara);override;
|
|
public
|
|
|
|
// normal property
|
|
property OMathParaPr read ReadXmlChildOMathParaPr;
|
|
property OMath read ReadXmlChildOMath;
|
|
function ReadXmlChildOMathParaPr(): OMathParaPr;
|
|
function ReadXmlChildOMath(): OMath;
|
|
|
|
public
|
|
// Children
|
|
XmlChildOMathParaPr: OMathParaPr;
|
|
XmlChildOMath: OMath;
|
|
end;
|
|
|
|
type OMathParaPr = 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: OMathParaPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property Jc read ReadXmlChildJc;
|
|
function ReadXmlChildJc(): PureMVal;
|
|
|
|
public
|
|
// Children
|
|
XmlChildJc: PureMVal;
|
|
end;
|
|
|
|
type PureMVal = 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: PureMVal);override;
|
|
public
|
|
// attributes property
|
|
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
|
|
function ReadXmlAttrVal();
|
|
function WriteXmlAttrVal(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrVal: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type OMath = 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: OMath);override;
|
|
public
|
|
|
|
// normal property
|
|
property SSub read ReadXmlChildSSub;
|
|
property Nary read ReadXmlChildNary;
|
|
function ReadXmlChildSSub(): SSub;
|
|
function ReadXmlChildNary(): Nary;
|
|
|
|
// multi property
|
|
property Rs read ReadRs;
|
|
property Ds read ReadDs;
|
|
function ReadRs(_index);
|
|
function ReadDs(_index);
|
|
function AddR(): R;
|
|
function AddD(): D;
|
|
function AppendR(): R;
|
|
function AppendD(): D;
|
|
|
|
public
|
|
// Children
|
|
XmlChildSSub: SSub;
|
|
XmlChildNary: Nary;
|
|
end;
|
|
|
|
type R = 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: R);override;
|
|
public
|
|
|
|
// normal property
|
|
property RPr read ReadXmlChildRPr;
|
|
property ARPr read ReadXmlChildARPr;
|
|
property WRPr read ReadXmlChildWRPr;
|
|
property T read ReadXmlChildT;
|
|
function ReadXmlChildRPr(_ns: string): RPr;
|
|
function ReadXmlChildARPr(): RPr;
|
|
function ReadXmlChildWRPr(): RPr;
|
|
function ReadXmlChildT(): T;
|
|
|
|
public
|
|
// Children
|
|
XmlChildRPr: RPr;
|
|
XmlChildARPr: RPr;
|
|
XmlChildWRPr: RPr;
|
|
XmlChildT: T;
|
|
end;
|
|
|
|
type RPr = 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: RPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property Sty read ReadXmlChildSty;
|
|
function ReadXmlChildSty(): PureMVal;
|
|
|
|
public
|
|
// Children
|
|
XmlChildSty: PureMVal;
|
|
end;
|
|
|
|
type T = class(OpenXmlPcdata)
|
|
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: T);override;
|
|
public
|
|
// attributes property
|
|
property Space read ReadXmlAttrSpace write WriteXmlAttrSpace;
|
|
function ReadXmlAttrSpace();
|
|
function WriteXmlAttrSpace(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrSpace: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type D = 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: D);override;
|
|
public
|
|
|
|
// normal property
|
|
property DPr read ReadXmlChildDPr;
|
|
property E read ReadXmlChildE;
|
|
function ReadXmlChildDPr(): DPr;
|
|
function ReadXmlChildE(): E;
|
|
|
|
public
|
|
// Children
|
|
XmlChildDPr: DPr;
|
|
XmlChildE: E;
|
|
end;
|
|
|
|
type DPr = 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: DPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property CtrlPr read ReadXmlChildCtrlPr;
|
|
property RPr read ReadXmlChildRPr;
|
|
function ReadXmlChildCtrlPr(): CtrlPr;
|
|
function ReadXmlChildRPr(): RPr;
|
|
|
|
public
|
|
// Children
|
|
XmlChildCtrlPr: CtrlPr;
|
|
XmlChildRPr: RPr;
|
|
end;
|
|
|
|
type CtrlPr = 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: CtrlPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property RPr read ReadXmlChildRPr;
|
|
function ReadXmlChildRPr(): RPr;
|
|
|
|
public
|
|
// Children
|
|
XmlChildRPr: RPr;
|
|
end;
|
|
|
|
type E = 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: E);override;
|
|
public
|
|
|
|
// normal property
|
|
property F read ReadXmlChildF;
|
|
property CtrlPr read ReadXmlChildCtrlPr;
|
|
function ReadXmlChildF(): F;
|
|
function ReadXmlChildCtrlPr(): CtrlPr;
|
|
|
|
// multi property
|
|
property Rs read ReadRs;
|
|
property Ds read ReadDs;
|
|
property SSubs read ReadSSubs;
|
|
property Funcs read ReadFuncs;
|
|
function ReadRs(_index);
|
|
function ReadDs(_index);
|
|
function ReadSSubs(_index);
|
|
function ReadFuncs(_index);
|
|
function AddR(): R;
|
|
function AddD(): D;
|
|
function AddSSub(): SSub;
|
|
function AddFunc(): Func;
|
|
function AppendR(): R;
|
|
function AppendD(): D;
|
|
function AppendSSub(): SSub;
|
|
function AppendFunc(): Func;
|
|
|
|
public
|
|
// Children
|
|
XmlChildF: F;
|
|
XmlChildCtrlPr: CtrlPr;
|
|
end;
|
|
|
|
type F = 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: F);override;
|
|
public
|
|
|
|
// normal property
|
|
property FPr read ReadXmlChildFPr;
|
|
property Num read ReadXmlChildNum;
|
|
property Den read ReadXmlChildDen;
|
|
function ReadXmlChildFPr(): FPr;
|
|
function ReadXmlChildNum(): Num;
|
|
function ReadXmlChildDen(): Den;
|
|
|
|
public
|
|
// Children
|
|
XmlChildFPr: FPr;
|
|
XmlChildNum: Num;
|
|
XmlChildDen: Den;
|
|
end;
|
|
|
|
type FPr = 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: FPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property Type read ReadXmlChildType;
|
|
property CtrlPr read ReadXmlChildCtrlPr;
|
|
function ReadXmlChildType(): PureMVal;
|
|
function ReadXmlChildCtrlPr(): CtrlPr;
|
|
|
|
public
|
|
// Children
|
|
XmlChildType: PureMVal;
|
|
XmlChildCtrlPr: CtrlPr;
|
|
end;
|
|
|
|
type Num = 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: Num);override;
|
|
public
|
|
|
|
// multi property
|
|
property Rs read ReadRs;
|
|
function ReadRs(_index);
|
|
function AddR(): R;
|
|
function AppendR(): R;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type Den = 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: Den);override;
|
|
public
|
|
|
|
// multi property
|
|
property Rs read ReadRs;
|
|
function ReadRs(_index);
|
|
function AddR(): R;
|
|
function AppendR(): R;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type SSub = 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: SSub);override;
|
|
public
|
|
|
|
// normal property
|
|
property SSubPr read ReadXmlChildSSubPr;
|
|
property E read ReadXmlChildE;
|
|
property Sub read ReadXmlChildSub;
|
|
function ReadXmlChildSSubPr(): SSubPr;
|
|
function ReadXmlChildE(): E;
|
|
function ReadXmlChildSub(): Sub;
|
|
|
|
public
|
|
// Children
|
|
XmlChildSSubPr: SSubPr;
|
|
XmlChildE: E;
|
|
XmlChildSub: Sub;
|
|
end;
|
|
|
|
type SSubPr = 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: SSubPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property CtrlPr read ReadXmlChildCtrlPr;
|
|
function ReadXmlChildCtrlPr(): CtrlPr;
|
|
|
|
public
|
|
// Children
|
|
XmlChildCtrlPr: CtrlPr;
|
|
end;
|
|
|
|
type Sub = 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: Sub);override;
|
|
public
|
|
|
|
// normal property
|
|
property CtrlPr read ReadXmlChildCtrlPr;
|
|
function ReadXmlChildCtrlPr(): CtrlPr;
|
|
|
|
// multi property
|
|
property Rs read ReadRs;
|
|
function ReadRs(_index);
|
|
function AddR(): R;
|
|
function AppendR(): R;
|
|
|
|
public
|
|
// Children
|
|
XmlChildCtrlPr: CtrlPr;
|
|
end;
|
|
|
|
type Nary = 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: Nary);override;
|
|
public
|
|
|
|
// normal property
|
|
property NaryPr read ReadXmlChildNaryPr;
|
|
property Sub read ReadXmlChildSub;
|
|
property Sup read ReadXmlChildSup;
|
|
property E read ReadXmlChildE;
|
|
function ReadXmlChildNaryPr(): NaryPr;
|
|
function ReadXmlChildSub(): Sub;
|
|
function ReadXmlChildSup(): Sup;
|
|
function ReadXmlChildE(): E;
|
|
|
|
public
|
|
// Children
|
|
XmlChildNaryPr: NaryPr;
|
|
XmlChildSub: Sub;
|
|
XmlChildSup: Sup;
|
|
XmlChildE: E;
|
|
end;
|
|
|
|
type NaryPr = 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: NaryPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property Chr read ReadXmlChildChr;
|
|
property CtrlPr read ReadXmlChildCtrlPr;
|
|
function ReadXmlChildChr(): PureMVal;
|
|
function ReadXmlChildCtrlPr(): CtrlPr;
|
|
|
|
public
|
|
// Children
|
|
XmlChildChr: PureMVal;
|
|
XmlChildCtrlPr: CtrlPr;
|
|
end;
|
|
|
|
type Sup = 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: Sup);override;
|
|
public
|
|
|
|
// multi property
|
|
property Rs read ReadRs;
|
|
function ReadRs(_index);
|
|
function AddR(): R;
|
|
function AppendR(): R;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type Func = 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: Func);override;
|
|
public
|
|
|
|
// normal property
|
|
property FuncPr read ReadXmlChildFuncPr;
|
|
property FName read ReadXmlChildFName;
|
|
property E read ReadXmlChildE;
|
|
function ReadXmlChildFuncPr(): FuncPr;
|
|
function ReadXmlChildFName(): FName;
|
|
function ReadXmlChildE(): E;
|
|
|
|
public
|
|
// Children
|
|
XmlChildFuncPr: FuncPr;
|
|
XmlChildFName: FName;
|
|
XmlChildE: E;
|
|
end;
|
|
|
|
type FName = 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: FName);override;
|
|
public
|
|
|
|
// multi property
|
|
property Rs read ReadRs;
|
|
function ReadRs(_index);
|
|
function AddR(): R;
|
|
function AppendR(): R;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type FuncPr = 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: FuncPr);override;
|
|
public
|
|
|
|
// normal property
|
|
property CtrlPr read ReadXmlChildCtrlPr;
|
|
function ReadXmlChildCtrlPr(): CtrlPr;
|
|
|
|
public
|
|
// Children
|
|
XmlChildCtrlPr: CtrlPr;
|
|
end;
|
|
|
|
type CoreProperties = 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: CoreProperties);override;
|
|
public
|
|
|
|
// pcdata property
|
|
property Title read ReadXmlChildTitle;
|
|
property Subject read ReadXmlChildSubject;
|
|
property Creator read ReadXmlChildCreator;
|
|
property Keywords read ReadXmlChildKeywords;
|
|
property Description read ReadXmlChildDescription;
|
|
property LastModifiedBy read ReadXmlChildLastModifiedBy;
|
|
property Revision read ReadXmlChildRevision;
|
|
property LastPrinted read ReadXmlChildLastPrinted;
|
|
property Created read ReadXmlChildCreated;
|
|
property Modified read ReadXmlChildModified;
|
|
function ReadXmlChildTitle();
|
|
function ReadXmlChildSubject();
|
|
function ReadXmlChildCreator();
|
|
function ReadXmlChildKeywords();
|
|
function ReadXmlChildDescription();
|
|
function ReadXmlChildLastModifiedBy();
|
|
function ReadXmlChildRevision();
|
|
function ReadXmlChildLastPrinted();
|
|
function ReadXmlChildCreated();
|
|
function ReadXmlChildModified();
|
|
|
|
public
|
|
// Children
|
|
XmlChildTitle: OpenXmlPcdata;
|
|
XmlChildSubject: OpenXmlPcdata;
|
|
XmlChildCreator: OpenXmlPcdata;
|
|
XmlChildKeywords: OpenXmlPcdata;
|
|
XmlChildDescription: OpenXmlPcdata;
|
|
XmlChildLastModifiedBy: OpenXmlPcdata;
|
|
XmlChildRevision: OpenXmlPcdata;
|
|
XmlChildLastPrinted: OpenXmlPcdata;
|
|
XmlChildCreated: Created;
|
|
XmlChildModified: Modified;
|
|
end;
|
|
|
|
type Created = class(OpenXmlPcdata)
|
|
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: Created);override;
|
|
public
|
|
// attributes property
|
|
property Type read ReadXmlAttrType write WriteXmlAttrType;
|
|
function ReadXmlAttrType();
|
|
function WriteXmlAttrType(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrType: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Modified = class(OpenXmlPcdata)
|
|
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: Modified);override;
|
|
public
|
|
// attributes property
|
|
property Type read ReadXmlAttrType write WriteXmlAttrType;
|
|
function ReadXmlAttrType();
|
|
function WriteXmlAttrType(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrType: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Relationships = 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: Relationships);override;
|
|
public
|
|
|
|
// multi property
|
|
property Relationships read ReadRelationships;
|
|
function ReadRelationships(_index);
|
|
function AddRelationship(): Relationship;
|
|
function AppendRelationship(): Relationship;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type Relationship = 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: Relationship);override;
|
|
public
|
|
// attributes property
|
|
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
|
property Type read ReadXmlAttrType write WriteXmlAttrType;
|
|
property Target read ReadXmlAttrTarget write WriteXmlAttrTarget;
|
|
function ReadXmlAttrId();
|
|
function WriteXmlAttrId(_value);
|
|
function ReadXmlAttrType();
|
|
function WriteXmlAttrType(_value);
|
|
function ReadXmlAttrTarget();
|
|
function WriteXmlAttrTarget(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrId: OpenXmlAttribute;
|
|
XmlAttrType: OpenXmlAttribute;
|
|
XmlAttrTarget: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Types = 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: Types);override;
|
|
public
|
|
|
|
// multi property
|
|
property Defaults read ReadDefaults;
|
|
property Overrides read ReadOverrides;
|
|
function ReadDefaults(_index);
|
|
function ReadOverrides(_index);
|
|
function AddDefault(): Default;
|
|
function AddOverride(): _Override;
|
|
function AppendDefault(): Default;
|
|
function AppendOverride(): _Override;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type Default = 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: Default);override;
|
|
public
|
|
// attributes property
|
|
property Extension read ReadXmlAttrExtension write WriteXmlAttrExtension;
|
|
property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType;
|
|
function ReadXmlAttrExtension();
|
|
function WriteXmlAttrExtension(_value);
|
|
function ReadXmlAttrContentType();
|
|
function WriteXmlAttrContentType(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrExtension: OpenXmlAttribute;
|
|
XmlAttrContentType: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type _Override = 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: _Override);override;
|
|
public
|
|
// attributes property
|
|
property PartName read ReadXmlAttrPartName write WriteXmlAttrPartName;
|
|
property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType;
|
|
function ReadXmlAttrPartName();
|
|
function WriteXmlAttrPartName(_value);
|
|
function ReadXmlAttrContentType();
|
|
function WriteXmlAttrContentType(_value);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrPartName: OpenXmlAttribute;
|
|
XmlAttrContentType: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
function MathPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "mathPr");
|
|
end;
|
|
|
|
function MathPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function MathPr.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 MathPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "mathFont": array(0, makeweakref(thisFunction(ReadXmlChildMathFont))),
|
|
pre + "brkBin": array(1, makeweakref(thisFunction(ReadXmlChildBrkBin))),
|
|
pre + "brkBinSub": array(2, makeweakref(thisFunction(ReadXmlChildBrkBinSub))),
|
|
pre + "smallFrac": array(3, makeweakref(thisFunction(ReadXmlChildSmallFrac))),
|
|
pre + "dispDef": array(4, makeweakref(thisFunction(ReadXmlChildDispDef))),
|
|
pre + "lMargin": array(5, makeweakref(thisFunction(ReadXmlChildLMargin))),
|
|
pre + "rMargin": array(6, makeweakref(thisFunction(ReadXmlChildRMargin))),
|
|
pre + "defJc": array(7, makeweakref(thisFunction(ReadXmlChildDefJc))),
|
|
pre + "wrapIndent": array(8, makeweakref(thisFunction(ReadXmlChildWrapIndent))),
|
|
pre + "intLim": array(9, makeweakref(thisFunction(ReadXmlChildIntLim))),
|
|
pre + "naryLim": array(10, makeweakref(thisFunction(ReadXmlChildNaryLim))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function MathPr.Copy(_obj: MathPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildMathFont) then
|
|
{self.}MathFont.Copy(_obj.XmlChildMathFont);
|
|
if not ifnil(_obj.XmlChildBrkBin) then
|
|
{self.}BrkBin.Copy(_obj.XmlChildBrkBin);
|
|
if not ifnil(_obj.XmlChildBrkBinSub) then
|
|
{self.}BrkBinSub.Copy(_obj.XmlChildBrkBinSub);
|
|
if not ifnil(_obj.XmlChildSmallFrac) then
|
|
{self.}SmallFrac.Copy(_obj.XmlChildSmallFrac);
|
|
if not ifnil(_obj.XmlChildDispDef) then
|
|
ifnil({self.}XmlChildDispDef) ? {self.}DispDef.Copy(_obj.XmlChildDispDef) : {self.}XmlChildDispDef.Copy(_obj.XmlChildDispDef);
|
|
if not ifnil(_obj.XmlChildLMargin) then
|
|
{self.}LMargin.Copy(_obj.XmlChildLMargin);
|
|
if not ifnil(_obj.XmlChildRMargin) then
|
|
{self.}RMargin.Copy(_obj.XmlChildRMargin);
|
|
if not ifnil(_obj.XmlChildDefJc) then
|
|
{self.}DefJc.Copy(_obj.XmlChildDefJc);
|
|
if not ifnil(_obj.XmlChildWrapIndent) then
|
|
{self.}WrapIndent.Copy(_obj.XmlChildWrapIndent);
|
|
if not ifnil(_obj.XmlChildIntLim) then
|
|
{self.}IntLim.Copy(_obj.XmlChildIntLim);
|
|
if not ifnil(_obj.XmlChildNaryLim) then
|
|
{self.}NaryLim.Copy(_obj.XmlChildNaryLim);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildDispDef();
|
|
begin
|
|
if tslassigning then
|
|
begin
|
|
if ifnil({self.}XmlChildDispDef) then
|
|
begin
|
|
{self.}XmlChildDispDef := new OpenXmlEmpty(self, {self.}Prefix, "dispDef");
|
|
container_.Set({self.}XmlChildDispDef);
|
|
end
|
|
return {self.}XmlChildDispDef;
|
|
end
|
|
return ifnil({self.}XmlChildDispDef) ? nil : {self.}XmlChildDispDef.BoolValue();
|
|
end;
|
|
|
|
function MathPr.WriteXmlChildDispDef(_value);
|
|
begin
|
|
if ifnil({self.}XmlChildDispDef) then
|
|
begin
|
|
{self.}XmlChildDispDef := new OpenXmlEmpty(self, {self.}Prefix, "dispDef");
|
|
container_.Set({self.}XmlChildDispDef);
|
|
end
|
|
{self.}XmlChildDispDef.Value := _value;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildMathFont(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildMathFont) then
|
|
begin
|
|
{self.}XmlChildMathFont := new PureMVal(self, {self.}Prefix, "mathFont");
|
|
container_.Set({self.}XmlChildMathFont);
|
|
end
|
|
return {self.}XmlChildMathFont;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildBrkBin(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildBrkBin) then
|
|
begin
|
|
{self.}XmlChildBrkBin := new PureMVal(self, {self.}Prefix, "brkBin");
|
|
container_.Set({self.}XmlChildBrkBin);
|
|
end
|
|
return {self.}XmlChildBrkBin;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildBrkBinSub(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildBrkBinSub) then
|
|
begin
|
|
{self.}XmlChildBrkBinSub := new PureMVal(self, {self.}Prefix, "brkBinSub");
|
|
container_.Set({self.}XmlChildBrkBinSub);
|
|
end
|
|
return {self.}XmlChildBrkBinSub;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildSmallFrac(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSmallFrac) then
|
|
begin
|
|
{self.}XmlChildSmallFrac := new PureMVal(self, {self.}Prefix, "smallFrac");
|
|
container_.Set({self.}XmlChildSmallFrac);
|
|
end
|
|
return {self.}XmlChildSmallFrac;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildLMargin(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildLMargin) then
|
|
begin
|
|
{self.}XmlChildLMargin := new PureMVal(self, {self.}Prefix, "lMargin");
|
|
container_.Set({self.}XmlChildLMargin);
|
|
end
|
|
return {self.}XmlChildLMargin;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildRMargin(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildRMargin) then
|
|
begin
|
|
{self.}XmlChildRMargin := new PureMVal(self, {self.}Prefix, "rMargin");
|
|
container_.Set({self.}XmlChildRMargin);
|
|
end
|
|
return {self.}XmlChildRMargin;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildDefJc(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildDefJc) then
|
|
begin
|
|
{self.}XmlChildDefJc := new PureMVal(self, {self.}Prefix, "defJc");
|
|
container_.Set({self.}XmlChildDefJc);
|
|
end
|
|
return {self.}XmlChildDefJc;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildWrapIndent(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildWrapIndent) then
|
|
begin
|
|
{self.}XmlChildWrapIndent := new PureMVal(self, {self.}Prefix, "wrapIndent");
|
|
container_.Set({self.}XmlChildWrapIndent);
|
|
end
|
|
return {self.}XmlChildWrapIndent;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildIntLim(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildIntLim) then
|
|
begin
|
|
{self.}XmlChildIntLim := new PureMVal(self, {self.}Prefix, "intLim");
|
|
container_.Set({self.}XmlChildIntLim);
|
|
end
|
|
return {self.}XmlChildIntLim;
|
|
end;
|
|
|
|
function MathPr.ReadXmlChildNaryLim(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildNaryLim) then
|
|
begin
|
|
{self.}XmlChildNaryLim := new PureMVal(self, {self.}Prefix, "naryLim");
|
|
container_.Set({self.}XmlChildNaryLim);
|
|
end
|
|
return {self.}XmlChildNaryLim;
|
|
end;
|
|
|
|
function OMathPara.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "oMathPara");
|
|
end;
|
|
|
|
function OMathPara.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function OMathPara.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 OMathPara.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "OMathParaPr": array(0, makeweakref(thisFunction(ReadXmlChildOMathParaPr))),
|
|
pre + "OMath": array(1, makeweakref(thisFunction(ReadXmlChildOMath))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function OMathPara.Copy(_obj: OMathPara);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildOMathParaPr) then
|
|
{self.}OMathParaPr.Copy(_obj.XmlChildOMathParaPr);
|
|
if not ifnil(_obj.XmlChildOMath) then
|
|
{self.}OMath.Copy(_obj.XmlChildOMath);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function OMathPara.ReadXmlChildOMathParaPr(): OMathParaPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildOMathParaPr) then
|
|
begin
|
|
{self.}XmlChildOMathParaPr := new OMathParaPr(self, {self.}Prefix, "OMathParaPr");
|
|
container_.Set({self.}XmlChildOMathParaPr);
|
|
end
|
|
return {self.}XmlChildOMathParaPr;
|
|
end;
|
|
|
|
function OMathPara.ReadXmlChildOMath(): OMath;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildOMath) then
|
|
begin
|
|
{self.}XmlChildOMath := new OMath(self, {self.}Prefix, "OMath");
|
|
container_.Set({self.}XmlChildOMath);
|
|
end
|
|
return {self.}XmlChildOMath;
|
|
end;
|
|
|
|
function OMathParaPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "oMathParaPr");
|
|
end;
|
|
|
|
function OMathParaPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function OMathParaPr.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 OMathParaPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "jc": array(0, makeweakref(thisFunction(ReadXmlChildJc))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function OMathParaPr.Copy(_obj: OMathParaPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildJc) then
|
|
{self.}Jc.Copy(_obj.XmlChildJc);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function OMathParaPr.ReadXmlChildJc(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildJc) then
|
|
begin
|
|
{self.}XmlChildJc := new PureMVal(self, {self.}Prefix, "jc");
|
|
container_.Set({self.}XmlChildJc);
|
|
end
|
|
return {self.}XmlChildJc;
|
|
end;
|
|
|
|
function PureMVal.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "");
|
|
end;
|
|
|
|
function PureMVal.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function PureMVal.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 PureMVal.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PureMVal.Copy(_obj: PureMVal);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.Val) then
|
|
{self.}Val := _obj.Val;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PureMVal.ReadXmlAttrVal();
|
|
begin
|
|
return {self.}XmlAttrVal.Value;
|
|
end;
|
|
|
|
function PureMVal.WriteXmlAttrVal(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrVal) then
|
|
begin
|
|
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrVal;
|
|
end
|
|
{self.}XmlAttrVal.Value := _value;
|
|
end;
|
|
|
|
function OMath.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "oMath");
|
|
end;
|
|
|
|
function OMath.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function OMath.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 OMath.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "r": array(0, makeweakref(thisFunction(AppendR))),
|
|
pre + "d": array(1, makeweakref(thisFunction(AppendD))),
|
|
pre + "sSub": array(2, makeweakref(thisFunction(ReadXmlChildSSub))),
|
|
pre + "nary": array(3, makeweakref(thisFunction(ReadXmlChildNary))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function OMath.Copy(_obj: OMath);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildSSub) then
|
|
{self.}SSub.Copy(_obj.XmlChildSSub);
|
|
if not ifnil(_obj.XmlChildNary) then
|
|
{self.}Nary.Copy(_obj.XmlChildNary);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function OMath.ReadXmlChildSSub(): SSub;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSSub) then
|
|
begin
|
|
{self.}XmlChildSSub := new SSub(self, {self.}Prefix, "sSub");
|
|
container_.Set({self.}XmlChildSSub);
|
|
end
|
|
return {self.}XmlChildSSub;
|
|
end;
|
|
|
|
function OMath.ReadXmlChildNary(): Nary;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildNary) then
|
|
begin
|
|
{self.}XmlChildNary := new Nary(self, {self.}Prefix, "nary");
|
|
container_.Set({self.}XmlChildNary);
|
|
end
|
|
return {self.}XmlChildNary;
|
|
end;
|
|
|
|
function OMath.ReadRs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function OMath.ReadDs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "d", ind);
|
|
end;
|
|
|
|
function OMath.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function OMath.AddD(): D;
|
|
begin
|
|
obj := new D(self, {self.}Prefix, "d");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function OMath.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function OMath.AppendD(): D;
|
|
begin
|
|
obj := new D(self, {self.}Prefix, "d");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function R.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "r");
|
|
end;
|
|
|
|
function R.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function R.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 R.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))),
|
|
"a:rPr": array(1, makeweakref(thisFunction(ReadXmlChildARPr))),
|
|
"w:rPr": array(2, makeweakref(thisFunction(ReadXmlChildWRPr))),
|
|
pre + "t": array(3, makeweakref(thisFunction(ReadXmlChildT))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function R.Copy(_obj: R);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildRPr) then
|
|
{self.}RPr.Copy(_obj.XmlChildRPr);
|
|
if not ifnil(_obj.XmlChildARPr) then
|
|
{self.}ARPr.Copy(_obj.XmlChildARPr);
|
|
if not ifnil(_obj.XmlChildWRPr) then
|
|
{self.}WRPr.Copy(_obj.XmlChildWRPr);
|
|
if not ifnil(_obj.XmlChildT) then
|
|
{self.}T.Copy(_obj.XmlChildT);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function R.ReadXmlChildRPr(_ns: string): RPr;
|
|
begin
|
|
if _ns = "a" then
|
|
return ReadXmlChildARPr();
|
|
else if _ns = "w" then
|
|
return ReadXmlChildWRPr();
|
|
if tslassigning and ifnil({self.}XmlChildRPr) then
|
|
begin
|
|
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
|
|
container_.Set({self.}XmlChildRPr);
|
|
end
|
|
return {self.}XmlChildRPr;
|
|
end;
|
|
|
|
function R.ReadXmlChildARPr(): RPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildARPr) then
|
|
begin
|
|
{self.}XmlChildARPr := new DrawingML.RPr(self, "a", "rPr");
|
|
container_.Set({self.}XmlChildARPr);
|
|
end
|
|
return {self.}XmlChildARPr;
|
|
end;
|
|
|
|
function R.ReadXmlChildWRPr(): RPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildWRPr) then
|
|
begin
|
|
{self.}XmlChildWRPr := new DocxML.RPr(self, "w", "rPr");
|
|
container_.Set({self.}XmlChildWRPr);
|
|
end
|
|
return {self.}XmlChildWRPr;
|
|
end;
|
|
|
|
function R.ReadXmlChildT(): T;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildT) then
|
|
begin
|
|
{self.}XmlChildT := new T(self, {self.}Prefix, "t");
|
|
container_.Set({self.}XmlChildT);
|
|
end
|
|
return {self.}XmlChildT;
|
|
end;
|
|
|
|
function RPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "rPr");
|
|
end;
|
|
|
|
function RPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function RPr.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 RPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "sty": array(0, makeweakref(thisFunction(ReadXmlChildSty))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function RPr.Copy(_obj: RPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildSty) then
|
|
{self.}Sty.Copy(_obj.XmlChildSty);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function RPr.ReadXmlChildSty(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSty) then
|
|
begin
|
|
{self.}XmlChildSty := new PureMVal(self, {self.}Prefix, "sty");
|
|
container_.Set({self.}XmlChildSty);
|
|
end
|
|
return {self.}XmlChildSty;
|
|
end;
|
|
|
|
function T.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "w", "t");
|
|
end;
|
|
|
|
function T.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlPcdata).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function T.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
class(OpenXmlPcdata).Create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function T.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"xml:space": makeweakref(thisFunction(WriteXmlAttrSpace)),
|
|
);
|
|
end;
|
|
|
|
function T.Copy(_obj: T);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlPcdata).Copy(_obj);
|
|
if not ifnil(_obj.Space) then
|
|
{self.}Space := _obj.Space;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function T.ReadXmlAttrSpace();
|
|
begin
|
|
return {self.}XmlAttrSpace.Value;
|
|
end;
|
|
|
|
function T.WriteXmlAttrSpace(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrSpace) then
|
|
begin
|
|
{self.}XmlAttrSpace := new OpenXmlAttribute("xml", "space", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrSpace;
|
|
end
|
|
{self.}XmlAttrSpace.Value := _value;
|
|
end;
|
|
|
|
function D.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "d");
|
|
end;
|
|
|
|
function D.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function D.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 D.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "dPr": array(0, makeweakref(thisFunction(ReadXmlChildDPr))),
|
|
pre + "e": array(1, makeweakref(thisFunction(ReadXmlChildE))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function D.Copy(_obj: D);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildDPr) then
|
|
{self.}DPr.Copy(_obj.XmlChildDPr);
|
|
if not ifnil(_obj.XmlChildE) then
|
|
{self.}E.Copy(_obj.XmlChildE);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function D.ReadXmlChildDPr(): DPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildDPr) then
|
|
begin
|
|
{self.}XmlChildDPr := new DPr(self, {self.}Prefix, "dPr");
|
|
container_.Set({self.}XmlChildDPr);
|
|
end
|
|
return {self.}XmlChildDPr;
|
|
end;
|
|
|
|
function D.ReadXmlChildE(): E;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildE) then
|
|
begin
|
|
{self.}XmlChildE := new E(self, {self.}Prefix, "e");
|
|
container_.Set({self.}XmlChildE);
|
|
end
|
|
return {self.}XmlChildE;
|
|
end;
|
|
|
|
function DPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "dPr");
|
|
end;
|
|
|
|
function DPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function DPr.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 DPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
|
|
"w:rPr": array(1, makeweakref(thisFunction(ReadXmlChildRPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function DPr.Copy(_obj: DPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildCtrlPr) then
|
|
{self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
|
|
if not ifnil(_obj.XmlChildRPr) then
|
|
{self.}RPr.Copy(_obj.XmlChildRPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function DPr.ReadXmlChildCtrlPr(): CtrlPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCtrlPr) then
|
|
begin
|
|
{self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
|
|
container_.Set({self.}XmlChildCtrlPr);
|
|
end
|
|
return {self.}XmlChildCtrlPr;
|
|
end;
|
|
|
|
function DPr.ReadXmlChildRPr(): RPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildRPr) then
|
|
begin
|
|
{self.}XmlChildRPr := new DocxML.RPr(self, "w", "rPr");
|
|
container_.Set({self.}XmlChildRPr);
|
|
end
|
|
return {self.}XmlChildRPr;
|
|
end;
|
|
|
|
function CtrlPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "ctrlPr");
|
|
end;
|
|
|
|
function CtrlPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function CtrlPr.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 CtrlPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function CtrlPr.Copy(_obj: CtrlPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildRPr) then
|
|
{self.}RPr.Copy(_obj.XmlChildRPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function CtrlPr.ReadXmlChildRPr(): RPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildRPr) then
|
|
begin
|
|
{self.}XmlChildRPr := new DrawingML.RPr(self, {self.}Prefix, "rPr");
|
|
container_.Set({self.}XmlChildRPr);
|
|
end
|
|
return {self.}XmlChildRPr;
|
|
end;
|
|
|
|
function E.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "e");
|
|
end;
|
|
|
|
function E.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function E.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 E.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "r": array(0, makeweakref(thisFunction(AppendR))),
|
|
pre + "d": array(1, makeweakref(thisFunction(AppendD))),
|
|
pre + "f": array(2, makeweakref(thisFunction(ReadXmlChildF))),
|
|
pre + "sSub": array(3, makeweakref(thisFunction(AppendSSub))),
|
|
pre + "func": array(4, makeweakref(thisFunction(AppendFunc))),
|
|
pre + "ctrlPr": array(5, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function E.Copy(_obj: E);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildF) then
|
|
{self.}F.Copy(_obj.XmlChildF);
|
|
if not ifnil(_obj.XmlChildCtrlPr) then
|
|
{self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function E.ReadXmlChildF(): F;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildF) then
|
|
begin
|
|
{self.}XmlChildF := new F(self, {self.}Prefix, "f");
|
|
container_.Set({self.}XmlChildF);
|
|
end
|
|
return {self.}XmlChildF;
|
|
end;
|
|
|
|
function E.ReadXmlChildCtrlPr(): CtrlPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCtrlPr) then
|
|
begin
|
|
{self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
|
|
container_.Set({self.}XmlChildCtrlPr);
|
|
end
|
|
return {self.}XmlChildCtrlPr;
|
|
end;
|
|
|
|
function E.ReadRs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function E.ReadDs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "d", ind);
|
|
end;
|
|
|
|
function E.ReadSSubs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "sSub", ind);
|
|
end;
|
|
|
|
function E.ReadFuncs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "func", ind);
|
|
end;
|
|
|
|
function E.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function E.AddD(): D;
|
|
begin
|
|
obj := new D(self, {self.}Prefix, "d");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function E.AddSSub(): SSub;
|
|
begin
|
|
obj := new SSub(self, {self.}Prefix, "sSub");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function E.AddFunc(): Func;
|
|
begin
|
|
obj := new Func(self, {self.}Prefix, "func");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function E.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function E.AppendD(): D;
|
|
begin
|
|
obj := new D(self, {self.}Prefix, "d");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function E.AppendSSub(): SSub;
|
|
begin
|
|
obj := new SSub(self, {self.}Prefix, "sSub");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function E.AppendFunc(): Func;
|
|
begin
|
|
obj := new Func(self, {self.}Prefix, "func");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function F.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "f");
|
|
end;
|
|
|
|
function F.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function F.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 F.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "fPr": array(0, makeweakref(thisFunction(ReadXmlChildFPr))),
|
|
pre + "num": array(1, makeweakref(thisFunction(ReadXmlChildNum))),
|
|
pre + "den": array(2, makeweakref(thisFunction(ReadXmlChildDen))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function F.Copy(_obj: F);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildFPr) then
|
|
{self.}FPr.Copy(_obj.XmlChildFPr);
|
|
if not ifnil(_obj.XmlChildNum) then
|
|
{self.}Num.Copy(_obj.XmlChildNum);
|
|
if not ifnil(_obj.XmlChildDen) then
|
|
{self.}Den.Copy(_obj.XmlChildDen);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function F.ReadXmlChildFPr(): FPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildFPr) then
|
|
begin
|
|
{self.}XmlChildFPr := new FPr(self, {self.}Prefix, "fPr");
|
|
container_.Set({self.}XmlChildFPr);
|
|
end
|
|
return {self.}XmlChildFPr;
|
|
end;
|
|
|
|
function F.ReadXmlChildNum(): Num;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildNum) then
|
|
begin
|
|
{self.}XmlChildNum := new Num(self, {self.}Prefix, "num");
|
|
container_.Set({self.}XmlChildNum);
|
|
end
|
|
return {self.}XmlChildNum;
|
|
end;
|
|
|
|
function F.ReadXmlChildDen(): Den;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildDen) then
|
|
begin
|
|
{self.}XmlChildDen := new Den(self, {self.}Prefix, "den");
|
|
container_.Set({self.}XmlChildDen);
|
|
end
|
|
return {self.}XmlChildDen;
|
|
end;
|
|
|
|
function FPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "fPr");
|
|
end;
|
|
|
|
function FPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function FPr.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 FPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "type": array(0, makeweakref(thisFunction(ReadXmlChildType))),
|
|
pre + "ctrlPr": array(1, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function FPr.Copy(_obj: FPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildType) then
|
|
{self.}Type.Copy(_obj.XmlChildType);
|
|
if not ifnil(_obj.XmlChildCtrlPr) then
|
|
{self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function FPr.ReadXmlChildType(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildType) then
|
|
begin
|
|
{self.}XmlChildType := new PureMVal(self, {self.}Prefix, "type");
|
|
container_.Set({self.}XmlChildType);
|
|
end
|
|
return {self.}XmlChildType;
|
|
end;
|
|
|
|
function FPr.ReadXmlChildCtrlPr(): CtrlPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCtrlPr) then
|
|
begin
|
|
{self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
|
|
container_.Set({self.}XmlChildCtrlPr);
|
|
end
|
|
return {self.}XmlChildCtrlPr;
|
|
end;
|
|
|
|
function Num.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "num");
|
|
end;
|
|
|
|
function Num.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Num.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 Num.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "r": array(0, makeweakref(thisFunction(AppendR))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Num.Copy(_obj: Num);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Num.ReadRs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function Num.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Num.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Den.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "den");
|
|
end;
|
|
|
|
function Den.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Den.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 Den.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "r": array(0, makeweakref(thisFunction(AppendR))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Den.Copy(_obj: Den);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Den.ReadRs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function Den.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Den.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function SSub.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "sSub");
|
|
end;
|
|
|
|
function SSub.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function SSub.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 SSub.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "sSubPr": array(0, makeweakref(thisFunction(ReadXmlChildSSubPr))),
|
|
pre + "e": array(1, makeweakref(thisFunction(ReadXmlChildE))),
|
|
pre + "sub": array(2, makeweakref(thisFunction(ReadXmlChildSub))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SSub.Copy(_obj: SSub);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildSSubPr) then
|
|
{self.}SSubPr.Copy(_obj.XmlChildSSubPr);
|
|
if not ifnil(_obj.XmlChildE) then
|
|
{self.}E.Copy(_obj.XmlChildE);
|
|
if not ifnil(_obj.XmlChildSub) then
|
|
{self.}Sub.Copy(_obj.XmlChildSub);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SSub.ReadXmlChildSSubPr(): SSubPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSSubPr) then
|
|
begin
|
|
{self.}XmlChildSSubPr := new SSubPr(self, {self.}Prefix, "sSubPr");
|
|
container_.Set({self.}XmlChildSSubPr);
|
|
end
|
|
return {self.}XmlChildSSubPr;
|
|
end;
|
|
|
|
function SSub.ReadXmlChildE(): E;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildE) then
|
|
begin
|
|
{self.}XmlChildE := new E(self, {self.}Prefix, "e");
|
|
container_.Set({self.}XmlChildE);
|
|
end
|
|
return {self.}XmlChildE;
|
|
end;
|
|
|
|
function SSub.ReadXmlChildSub(): Sub;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSub) then
|
|
begin
|
|
{self.}XmlChildSub := new Sub(self, {self.}Prefix, "sub");
|
|
container_.Set({self.}XmlChildSub);
|
|
end
|
|
return {self.}XmlChildSub;
|
|
end;
|
|
|
|
function SSubPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "sSubPr");
|
|
end;
|
|
|
|
function SSubPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function SSubPr.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 SSubPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SSubPr.Copy(_obj: SSubPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildCtrlPr) then
|
|
{self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SSubPr.ReadXmlChildCtrlPr(): CtrlPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCtrlPr) then
|
|
begin
|
|
{self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
|
|
container_.Set({self.}XmlChildCtrlPr);
|
|
end
|
|
return {self.}XmlChildCtrlPr;
|
|
end;
|
|
|
|
function Sub.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "sub");
|
|
end;
|
|
|
|
function Sub.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Sub.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 Sub.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "r": array(0, makeweakref(thisFunction(AppendR))),
|
|
pre + "ctrlPr": array(1, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Sub.Copy(_obj: Sub);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildCtrlPr) then
|
|
{self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Sub.ReadXmlChildCtrlPr(): CtrlPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCtrlPr) then
|
|
begin
|
|
{self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
|
|
container_.Set({self.}XmlChildCtrlPr);
|
|
end
|
|
return {self.}XmlChildCtrlPr;
|
|
end;
|
|
|
|
function Sub.ReadRs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function Sub.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Sub.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Nary.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "nary");
|
|
end;
|
|
|
|
function Nary.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Nary.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 Nary.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "naryPr": array(0, makeweakref(thisFunction(ReadXmlChildNaryPr))),
|
|
pre + "sub": array(1, makeweakref(thisFunction(ReadXmlChildSub))),
|
|
pre + "sup": array(2, makeweakref(thisFunction(ReadXmlChildSup))),
|
|
pre + "e": array(3, makeweakref(thisFunction(ReadXmlChildE))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Nary.Copy(_obj: Nary);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildNaryPr) then
|
|
{self.}NaryPr.Copy(_obj.XmlChildNaryPr);
|
|
if not ifnil(_obj.XmlChildSub) then
|
|
{self.}Sub.Copy(_obj.XmlChildSub);
|
|
if not ifnil(_obj.XmlChildSup) then
|
|
{self.}Sup.Copy(_obj.XmlChildSup);
|
|
if not ifnil(_obj.XmlChildE) then
|
|
{self.}E.Copy(_obj.XmlChildE);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Nary.ReadXmlChildNaryPr(): NaryPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildNaryPr) then
|
|
begin
|
|
{self.}XmlChildNaryPr := new NaryPr(self, {self.}Prefix, "naryPr");
|
|
container_.Set({self.}XmlChildNaryPr);
|
|
end
|
|
return {self.}XmlChildNaryPr;
|
|
end;
|
|
|
|
function Nary.ReadXmlChildSub(): Sub;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSub) then
|
|
begin
|
|
{self.}XmlChildSub := new Sub(self, {self.}Prefix, "sub");
|
|
container_.Set({self.}XmlChildSub);
|
|
end
|
|
return {self.}XmlChildSub;
|
|
end;
|
|
|
|
function Nary.ReadXmlChildSup(): Sup;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSup) then
|
|
begin
|
|
{self.}XmlChildSup := new Sup(self, {self.}Prefix, "sup");
|
|
container_.Set({self.}XmlChildSup);
|
|
end
|
|
return {self.}XmlChildSup;
|
|
end;
|
|
|
|
function Nary.ReadXmlChildE(): E;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildE) then
|
|
begin
|
|
{self.}XmlChildE := new E(self, {self.}Prefix, "e");
|
|
container_.Set({self.}XmlChildE);
|
|
end
|
|
return {self.}XmlChildE;
|
|
end;
|
|
|
|
function NaryPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "naryPr");
|
|
end;
|
|
|
|
function NaryPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function NaryPr.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 NaryPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "chr": array(0, makeweakref(thisFunction(ReadXmlChildChr))),
|
|
pre + "ctrlPr": array(1, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function NaryPr.Copy(_obj: NaryPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildChr) then
|
|
{self.}Chr.Copy(_obj.XmlChildChr);
|
|
if not ifnil(_obj.XmlChildCtrlPr) then
|
|
{self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function NaryPr.ReadXmlChildChr(): PureMVal;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildChr) then
|
|
begin
|
|
{self.}XmlChildChr := new PureMVal(self, {self.}Prefix, "chr");
|
|
container_.Set({self.}XmlChildChr);
|
|
end
|
|
return {self.}XmlChildChr;
|
|
end;
|
|
|
|
function NaryPr.ReadXmlChildCtrlPr(): CtrlPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCtrlPr) then
|
|
begin
|
|
{self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
|
|
container_.Set({self.}XmlChildCtrlPr);
|
|
end
|
|
return {self.}XmlChildCtrlPr;
|
|
end;
|
|
|
|
function Sup.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "sup");
|
|
end;
|
|
|
|
function Sup.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Sup.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 Sup.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "r": array(0, makeweakref(thisFunction(AppendR))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Sup.Copy(_obj: Sup);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Sup.ReadRs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function Sup.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Sup.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Func.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "func");
|
|
end;
|
|
|
|
function Func.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Func.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 Func.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "funcPr": array(0, makeweakref(thisFunction(ReadXmlChildFuncPr))),
|
|
pre + "fname": array(1, makeweakref(thisFunction(ReadXmlChildFName))),
|
|
pre + "e": array(2, makeweakref(thisFunction(ReadXmlChildE))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Func.Copy(_obj: Func);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildFuncPr) then
|
|
{self.}FuncPr.Copy(_obj.XmlChildFuncPr);
|
|
if not ifnil(_obj.XmlChildFName) then
|
|
{self.}FName.Copy(_obj.XmlChildFName);
|
|
if not ifnil(_obj.XmlChildE) then
|
|
{self.}E.Copy(_obj.XmlChildE);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Func.ReadXmlChildFuncPr(): FuncPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildFuncPr) then
|
|
begin
|
|
{self.}XmlChildFuncPr := new FuncPr(self, {self.}Prefix, "funcPr");
|
|
container_.Set({self.}XmlChildFuncPr);
|
|
end
|
|
return {self.}XmlChildFuncPr;
|
|
end;
|
|
|
|
function Func.ReadXmlChildFName(): FName;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildFName) then
|
|
begin
|
|
{self.}XmlChildFName := new FName(self, {self.}Prefix, "fname");
|
|
container_.Set({self.}XmlChildFName);
|
|
end
|
|
return {self.}XmlChildFName;
|
|
end;
|
|
|
|
function Func.ReadXmlChildE(): E;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildE) then
|
|
begin
|
|
{self.}XmlChildE := new E(self, {self.}Prefix, "e");
|
|
container_.Set({self.}XmlChildE);
|
|
end
|
|
return {self.}XmlChildE;
|
|
end;
|
|
|
|
function FName.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "fname");
|
|
end;
|
|
|
|
function FName.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function FName.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 FName.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "r": array(0, makeweakref(thisFunction(AppendR))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function FName.Copy(_obj: FName);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function FName.ReadRs(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function FName.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function FName.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function FuncPr.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "m", "funcPr");
|
|
end;
|
|
|
|
function FuncPr.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function FuncPr.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 FuncPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function FuncPr.Copy(_obj: FuncPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildCtrlPr) then
|
|
{self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function FuncPr.ReadXmlChildCtrlPr(): CtrlPr;
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCtrlPr) then
|
|
begin
|
|
{self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
|
|
container_.Set({self.}XmlChildCtrlPr);
|
|
end
|
|
return {self.}XmlChildCtrlPr;
|
|
end;
|
|
|
|
function CoreProperties.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "cp", "coreProperties");
|
|
end;
|
|
|
|
function CoreProperties.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function CoreProperties.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 CoreProperties.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"dc:title": array(0, makeweakref(thisFunction(ReadXmlChildTitle))),
|
|
"dc:subject": array(1, makeweakref(thisFunction(ReadXmlChildSubject))),
|
|
"dc:creator": array(2, makeweakref(thisFunction(ReadXmlChildCreator))),
|
|
"cp:keywords": array(3, makeweakref(thisFunction(ReadXmlChildKeywords))),
|
|
"cp:description": array(4, makeweakref(thisFunction(ReadXmlChildDescription))),
|
|
"cp:lastModifiedBy": array(5, makeweakref(thisFunction(ReadXmlChildLastModifiedBy))),
|
|
"cp:revision": array(6, makeweakref(thisFunction(ReadXmlChildRevision))),
|
|
"cp:lastPrinted": array(7, makeweakref(thisFunction(ReadXmlChildLastPrinted))),
|
|
"dcterms:created": array(8, makeweakref(thisFunction(ReadXmlChildCreated))),
|
|
"dcterms:modified": array(9, makeweakref(thisFunction(ReadXmlChildModified))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function CoreProperties.Copy(_obj: CoreProperties);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.XmlChildTitle) then
|
|
{self.}Title.Copy(_obj.XmlChildTitle);
|
|
if not ifnil(_obj.XmlChildSubject) then
|
|
{self.}Subject.Copy(_obj.XmlChildSubject);
|
|
if not ifnil(_obj.XmlChildCreator) then
|
|
{self.}Creator.Copy(_obj.XmlChildCreator);
|
|
if not ifnil(_obj.XmlChildKeywords) then
|
|
{self.}Keywords.Copy(_obj.XmlChildKeywords);
|
|
if not ifnil(_obj.XmlChildDescription) then
|
|
{self.}Description.Copy(_obj.XmlChildDescription);
|
|
if not ifnil(_obj.XmlChildLastModifiedBy) then
|
|
{self.}LastModifiedBy.Copy(_obj.XmlChildLastModifiedBy);
|
|
if not ifnil(_obj.XmlChildRevision) then
|
|
{self.}Revision.Copy(_obj.XmlChildRevision);
|
|
if not ifnil(_obj.XmlChildLastPrinted) then
|
|
{self.}LastPrinted.Copy(_obj.XmlChildLastPrinted);
|
|
if not ifnil(_obj.XmlChildCreated) then
|
|
{self.}Created.Copy(_obj.XmlChildCreated);
|
|
if not ifnil(_obj.XmlChildModified) then
|
|
{self.}Modified.Copy(_obj.XmlChildModified);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildTitle();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildTitle) then
|
|
begin
|
|
{self.}XmlChildTitle := new OpenXmlPcdata(self, "dc", "title");
|
|
container_.Set({self.}XmlChildTitle);
|
|
end
|
|
return {self.}XmlChildTitle;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildSubject();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildSubject) then
|
|
begin
|
|
{self.}XmlChildSubject := new OpenXmlPcdata(self, "dc", "subject");
|
|
container_.Set({self.}XmlChildSubject);
|
|
end
|
|
return {self.}XmlChildSubject;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildCreator();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCreator) then
|
|
begin
|
|
{self.}XmlChildCreator := new OpenXmlPcdata(self, "dc", "creator");
|
|
container_.Set({self.}XmlChildCreator);
|
|
end
|
|
return {self.}XmlChildCreator;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildKeywords();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildKeywords) then
|
|
begin
|
|
{self.}XmlChildKeywords := new OpenXmlPcdata(self, "cp", "keywords");
|
|
container_.Set({self.}XmlChildKeywords);
|
|
end
|
|
return {self.}XmlChildKeywords;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildDescription();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildDescription) then
|
|
begin
|
|
{self.}XmlChildDescription := new OpenXmlPcdata(self, "cp", "description");
|
|
container_.Set({self.}XmlChildDescription);
|
|
end
|
|
return {self.}XmlChildDescription;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildLastModifiedBy();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildLastModifiedBy) then
|
|
begin
|
|
{self.}XmlChildLastModifiedBy := new OpenXmlPcdata(self, "cp", "lastModifiedBy");
|
|
container_.Set({self.}XmlChildLastModifiedBy);
|
|
end
|
|
return {self.}XmlChildLastModifiedBy;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildRevision();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildRevision) then
|
|
begin
|
|
{self.}XmlChildRevision := new OpenXmlPcdata(self, "cp", "revision");
|
|
container_.Set({self.}XmlChildRevision);
|
|
end
|
|
return {self.}XmlChildRevision;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildLastPrinted();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildLastPrinted) then
|
|
begin
|
|
{self.}XmlChildLastPrinted := new OpenXmlPcdata(self, "cp", "lastPrinted");
|
|
container_.Set({self.}XmlChildLastPrinted);
|
|
end
|
|
return {self.}XmlChildLastPrinted;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildCreated();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildCreated) then
|
|
begin
|
|
{self.}XmlChildCreated := new Created(self, "dcterms", "created");
|
|
container_.Set({self.}XmlChildCreated);
|
|
end
|
|
return {self.}XmlChildCreated;
|
|
end;
|
|
|
|
function CoreProperties.ReadXmlChildModified();
|
|
begin
|
|
if tslassigning and ifnil({self.}XmlChildModified) then
|
|
begin
|
|
{self.}XmlChildModified := new Modified(self, "dcterms", "modified");
|
|
container_.Set({self.}XmlChildModified);
|
|
end
|
|
return {self.}XmlChildModified;
|
|
end;
|
|
|
|
function Created.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "dcterms", "created");
|
|
end;
|
|
|
|
function Created.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlPcdata).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Created.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
class(OpenXmlPcdata).Create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Created.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"xsi:type": makeweakref(thisFunction(WriteXmlAttrType)),
|
|
);
|
|
end;
|
|
|
|
function Created.Copy(_obj: Created);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlPcdata).Copy(_obj);
|
|
if not ifnil(_obj.Type) then
|
|
{self.}Type := _obj.Type;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Created.ReadXmlAttrType();
|
|
begin
|
|
return {self.}XmlAttrType.Value;
|
|
end;
|
|
|
|
function Created.WriteXmlAttrType(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrType) then
|
|
begin
|
|
{self.}XmlAttrType := new OpenXmlAttribute("xsi", "type", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrType;
|
|
end
|
|
{self.}XmlAttrType.Value := _value;
|
|
end;
|
|
|
|
function Modified.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "dcterms", "modified");
|
|
end;
|
|
|
|
function Modified.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlPcdata).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Modified.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
class(OpenXmlPcdata).Create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Modified.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"xsi:type": makeweakref(thisFunction(WriteXmlAttrType)),
|
|
);
|
|
end;
|
|
|
|
function Modified.Copy(_obj: Modified);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlPcdata).Copy(_obj);
|
|
if not ifnil(_obj.Type) then
|
|
{self.}Type := _obj.Type;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Modified.ReadXmlAttrType();
|
|
begin
|
|
return {self.}XmlAttrType.Value;
|
|
end;
|
|
|
|
function Modified.WriteXmlAttrType(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrType) then
|
|
begin
|
|
{self.}XmlAttrType := new OpenXmlAttribute("xsi", "type", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrType;
|
|
end
|
|
{self.}XmlAttrType.Value := _value;
|
|
end;
|
|
|
|
function Relationships.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "", "Relationships");
|
|
end;
|
|
|
|
function Relationships.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Relationships.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 Relationships.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"Relationship": array(0, makeweakref(thisFunction(AppendRelationship))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Relationships.Copy(_obj: Relationships);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Relationships.ReadRelationships(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get("Relationship", ind);
|
|
end;
|
|
|
|
function Relationships.AddRelationship(): Relationship;
|
|
begin
|
|
obj := new Relationship(self, "", "Relationship");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Relationships.AppendRelationship(): Relationship;
|
|
begin
|
|
obj := new Relationship(self, "", "Relationship");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Relationship.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "", "Relationship");
|
|
end;
|
|
|
|
function Relationship.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Relationship.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 Relationship.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"Id": makeweakref(thisFunction(WriteXmlAttrId)),
|
|
"Type": makeweakref(thisFunction(WriteXmlAttrType)),
|
|
"Target": makeweakref(thisFunction(WriteXmlAttrTarget)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Relationship.Copy(_obj: Relationship);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.Id) then
|
|
{self.}Id := _obj.Id;
|
|
if not ifnil(_obj.Type) then
|
|
{self.}Type := _obj.Type;
|
|
if not ifnil(_obj.Target) then
|
|
{self.}Target := _obj.Target;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Relationship.ReadXmlAttrId();
|
|
begin
|
|
return {self.}XmlAttrId.Value;
|
|
end;
|
|
|
|
function Relationship.WriteXmlAttrId(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrId) then
|
|
begin
|
|
{self.}XmlAttrId := new OpenXmlAttribute("", "Id", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrId;
|
|
end
|
|
{self.}XmlAttrId.Value := _value;
|
|
end;
|
|
|
|
function Relationship.ReadXmlAttrType();
|
|
begin
|
|
return {self.}XmlAttrType.Value;
|
|
end;
|
|
|
|
function Relationship.WriteXmlAttrType(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrType) then
|
|
begin
|
|
{self.}XmlAttrType := new OpenXmlAttribute("", "Type", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrType;
|
|
end
|
|
{self.}XmlAttrType.Value := _value;
|
|
end;
|
|
|
|
function Relationship.ReadXmlAttrTarget();
|
|
begin
|
|
return {self.}XmlAttrTarget.Value;
|
|
end;
|
|
|
|
function Relationship.WriteXmlAttrTarget(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrTarget) then
|
|
begin
|
|
{self.}XmlAttrTarget := new OpenXmlAttribute("", "Target", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrTarget;
|
|
end
|
|
{self.}XmlAttrTarget.Value := _value;
|
|
end;
|
|
|
|
function Types.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "", "Types");
|
|
end;
|
|
|
|
function Types.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Types.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 Types.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"Default": array(0, makeweakref(thisFunction(AppendDefault))),
|
|
"Override": array(1, makeweakref(thisFunction(AppendOverride))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Types.Copy(_obj: Types);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Types.ReadDefaults(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get("Default", ind);
|
|
end;
|
|
|
|
function Types.ReadOverrides(_index);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get("Override", ind);
|
|
end;
|
|
|
|
function Types.AddDefault(): Default;
|
|
begin
|
|
obj := new Default(self, "", "Default");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Types.AddOverride(): _Override;
|
|
begin
|
|
obj := new _Override(self, "", "Override");
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Types.AppendDefault(): Default;
|
|
begin
|
|
obj := new Default(self, "", "Default");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Types.AppendOverride(): _Override;
|
|
begin
|
|
obj := new _Override(self, "", "Override");
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Default.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "", "Default");
|
|
end;
|
|
|
|
function Default.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function Default.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 Default.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"Extension": makeweakref(thisFunction(WriteXmlAttrExtension)),
|
|
"ContentType": makeweakref(thisFunction(WriteXmlAttrContentType)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Default.Copy(_obj: Default);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.Extension) then
|
|
{self.}Extension := _obj.Extension;
|
|
if not ifnil(_obj.ContentType) then
|
|
{self.}ContentType := _obj.ContentType;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Default.ReadXmlAttrExtension();
|
|
begin
|
|
return {self.}XmlAttrExtension.Value;
|
|
end;
|
|
|
|
function Default.WriteXmlAttrExtension(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrExtension) then
|
|
begin
|
|
{self.}XmlAttrExtension := new OpenXmlAttribute("", "Extension", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrExtension;
|
|
end
|
|
{self.}XmlAttrExtension.Value := _value;
|
|
end;
|
|
|
|
function Default.ReadXmlAttrContentType();
|
|
begin
|
|
return {self.}XmlAttrContentType.Value;
|
|
end;
|
|
|
|
function Default.WriteXmlAttrContentType(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrContentType) then
|
|
begin
|
|
{self.}XmlAttrContentType := new OpenXmlAttribute("", "ContentType", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrContentType;
|
|
end
|
|
{self.}XmlAttrContentType.Value := _value;
|
|
end;
|
|
|
|
function _Override.Create();overload;
|
|
begin
|
|
{self.}Create(nil, "", "Override");
|
|
end;
|
|
|
|
function _Override.Create(_node: XmlNode);overload;
|
|
begin
|
|
class(OpenXmlElement).Create(_node: XmlNode);
|
|
end;
|
|
|
|
function _Override.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 _Override.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"PartName": makeweakref(thisFunction(WriteXmlAttrPartName)),
|
|
"ContentType": makeweakref(thisFunction(WriteXmlAttrContentType)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function _Override.Copy(_obj: _Override);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
class(OpenXmlElement).Copy(_obj);
|
|
if not ifnil(_obj.PartName) then
|
|
{self.}PartName := _obj.PartName;
|
|
if not ifnil(_obj.ContentType) then
|
|
{self.}ContentType := _obj.ContentType;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function _Override.ReadXmlAttrPartName();
|
|
begin
|
|
return {self.}XmlAttrPartName.Value;
|
|
end;
|
|
|
|
function _Override.WriteXmlAttrPartName(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrPartName) then
|
|
begin
|
|
{self.}XmlAttrPartName := new OpenXmlAttribute("", "PartName", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrPartName;
|
|
end
|
|
{self.}XmlAttrPartName.Value := _value;
|
|
end;
|
|
|
|
function _Override.ReadXmlAttrContentType();
|
|
begin
|
|
return {self.}XmlAttrContentType.Value;
|
|
end;
|
|
|
|
function _Override.WriteXmlAttrContentType(_value);
|
|
begin
|
|
if ifnil({self.}XmlAttrContentType) then
|
|
begin
|
|
{self.}XmlAttrContentType := new OpenXmlAttribute("", "ContentType", nil);
|
|
attributes_[length(attributes_)] := {self.}XmlAttrContentType;
|
|
end
|
|
{self.}XmlAttrContentType.Value := _value;
|
|
end;
|
|
|
|
end. |