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.