unit DrawingML; interface uses DrawingML; type Theme = 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: Theme);override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value); // empty property property ObjectDefaults read ReadXmlChildObjectDefaults write WriteXmlChildObjectDefaults; property ExtraClrSchemeLst read ReadXmlChildExtraClrSchemeLst write WriteXmlChildExtraClrSchemeLst; function ReadXmlChildObjectDefaults(); function WriteXmlChildObjectDefaults(_value); function ReadXmlChildExtraClrSchemeLst(); function WriteXmlChildExtraClrSchemeLst(_value); // normal property property ThemeElements read ReadXmlChildThemeElements; property ExtLst read ReadXmlChildExtLst; function ReadXmlChildThemeElements(): ThemeElements; function ReadXmlChildExtLst(): ExtLst; public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildThemeElements: ThemeElements; XmlChildObjectDefaults: OpenXmlEmpty; XmlChildExtraClrSchemeLst: OpenXmlEmpty; XmlChildExtLst: ExtLst; end; type ThemeElements = 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: ThemeElements);override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value); // normal property property ClrScheme read ReadXmlChildClrScheme; property FontScheme read ReadXmlChildFontScheme; property FmtScheme read ReadXmlChildFmtScheme; function ReadXmlChildClrScheme(): ClrScheme; function ReadXmlChildFontScheme(): FontScheme; function ReadXmlChildFmtScheme(): FmtScheme; public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildClrScheme: ClrScheme; XmlChildFontScheme: FontScheme; XmlChildFmtScheme: FmtScheme; end; type ClrScheme = 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: ClrScheme);override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value); // normal property property Dk1 read ReadXmlChildDk1; property Lt1 read ReadXmlChildLt1; property Dk2 read ReadXmlChildDk2; property Lt2 read ReadXmlChildLt2; property Accent1 read ReadXmlChildAccent1; property Accent2 read ReadXmlChildAccent2; property Accent3 read ReadXmlChildAccent3; property Accent4 read ReadXmlChildAccent4; property Accent5 read ReadXmlChildAccent5; property Accent6 read ReadXmlChildAccent6; property Hlink read ReadXmlChildHlink; property FolHlink read ReadXmlChildFolHlink; function ReadXmlChildDk1(): Clr1; function ReadXmlChildLt1(): Clr1; function ReadXmlChildDk2(): Clr2; function ReadXmlChildLt2(): Clr2; function ReadXmlChildAccent1(): Clr2; function ReadXmlChildAccent2(): Clr2; function ReadXmlChildAccent3(): Clr2; function ReadXmlChildAccent4(): Clr2; function ReadXmlChildAccent5(): Clr2; function ReadXmlChildAccent6(): Clr2; function ReadXmlChildHlink(): Clr2; function ReadXmlChildFolHlink(): Clr2; public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildDk1: Clr1; XmlChildLt1: Clr1; XmlChildDk2: Clr2; XmlChildLt2: Clr2; XmlChildAccent1: Clr2; XmlChildAccent2: Clr2; XmlChildAccent3: Clr2; XmlChildAccent4: Clr2; XmlChildAccent5: Clr2; XmlChildAccent6: Clr2; XmlChildHlink: Clr2; XmlChildFolHlink: Clr2; end; type Clr1 = 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: Clr1);override; public // normal property property SysClr read ReadXmlChildSysClr; function ReadXmlChildSysClr(): SysClr; public // Children XmlChildSysClr: SysClr; end; type SysClr = 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: SysClr);override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; property LastClr read ReadXmlAttrLastClr write WriteXmlAttrLastClr; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value); function ReadXmlAttrLastClr(); function WriteXmlAttrLastClr(_value); public // Attributes XmlAttrVal: OpenXmlAttribute; XmlAttrLastClr: OpenXmlAttribute; end; type Clr2 = 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: Clr2);override; public // normal property property SrgbClr read ReadXmlChildSrgbClr; function ReadXmlChildSrgbClr(): SrgbClr; public // Children XmlChildSrgbClr: SrgbClr; end; type SrgbClr = 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: SrgbClr);override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value); // normal property property Alpha read ReadXmlChildAlpha; function ReadXmlChildAlpha(): PureVal; public // Attributes XmlAttrVal: OpenXmlAttribute; // Children XmlChildAlpha: PureVal; end; type PureVal = 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: PureVal);override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value); public // Attributes XmlAttrVal: OpenXmlAttribute; end; type FontScheme = 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: FontScheme);override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value); // normal property property Majorfont read ReadXmlChildMajorfont; property Minorfont read ReadXmlChildMinorfont; function ReadXmlChildMajorfont(): Mfont; function ReadXmlChildMinorfont(): Mfont; public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildMajorfont: Mfont; XmlChildMinorfont: Mfont; end; type MFont = 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: MFont);override; public // normal property property Latin read ReadXmlChildLatin; property Ea read ReadXmlChildEa; property Cs read ReadXmlChildCs; function ReadXmlChildLatin(): Latin; function ReadXmlChildEa(): Latin; function ReadXmlChildCs(): Latin; // multi property property Fonts read ReadFonts; function ReadFonts(_index); function AddFont(): Font; function AppendFont(): Font; public // Children XmlChildLatin: Latin; XmlChildEa: Latin; XmlChildCs: Latin; end; type Font = 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: Font);override; public // attributes property property Script read ReadXmlAttrScript write WriteXmlAttrScript; property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; function ReadXmlAttrScript(); function WriteXmlAttrScript(_value); function ReadXmlAttrTypeface(); function WriteXmlAttrTypeface(_value); public // Attributes XmlAttrScript: OpenXmlAttribute; XmlAttrTypeface: OpenXmlAttribute; end; type FmtScheme = 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: FmtScheme);override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value); // normal property property FillStyleLst read ReadXmlChildFillStyleLst; property LnStyleLst read ReadXmlChildLnStyleLst; property EffectStyleLst read ReadXmlChildEffectStyleLst; property BgFillStyleLst read ReadXmlChildBgFillStyleLst; function ReadXmlChildFillStyleLst(): FillStyleLst; function ReadXmlChildLnStyleLst(): LnStyleLst; function ReadXmlChildEffectStyleLst(): EffectStyleLst; function ReadXmlChildBgFillStyleLst(): FillStyleLst; public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildFillStyleLst: FillStyleLst; XmlChildLnStyleLst: LnStyleLst; XmlChildEffectStyleLst: EffectStyleLst; XmlChildBgFillStyleLst: FillStyleLst; end; type FillStyleLst = 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: FillStyleLst);override; public // multi property property SolidFills read ReadSolidFills; property GradFills read ReadGradFills; function ReadSolidFills(_index); function ReadGradFills(_index); function AddSolidFill(): SolidFill; function AddGradFill(): GradFill; function AppendSolidFill(): SolidFill; function AppendGradFill(): GradFill; public // Children end; type SolidFill = 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: SolidFill);override; public // normal property property SchemeClr read ReadXmlChildSchemeClr; function ReadXmlChildSchemeClr(): SchemeClr; public // Children XmlChildSchemeClr: SchemeClr; end; type SchemeClr = 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: SchemeClr);override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value); // normal property property LumMod read ReadXmlChildLumMod; property SatMod read ReadXmlChildSatMod; property Tint read ReadXmlChildTint; function ReadXmlChildLumMod(): PureVal; function ReadXmlChildSatMod(): PureVal; function ReadXmlChildTint(): PureVal; public // Attributes XmlAttrVal: OpenXmlAttribute; // Children XmlChildLumMod: PureVal; XmlChildSatMod: PureVal; XmlChildTint: PureVal; end; type GradFill = 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: GradFill);override; public // attributes property property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; function ReadXmlAttrRotWithShape(); function WriteXmlAttrRotWithShape(_value); // normal property property GsLst read ReadXmlChildGsLst; property Lin read ReadXmlChildLin; function ReadXmlChildGsLst(): GsLst; function ReadXmlChildLin(): Lin; public // Attributes XmlAttrRotWithShape: OpenXmlAttribute; // Children XmlChildGsLst: GsLst; XmlChildLin: Lin; end; type GsLst = 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: GsLst);override; public // multi property property Gses read ReadGses; function ReadGses(_index); function AddGs(): Gs; function AppendGs(): Gs; public // Children end; type Gs = 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: Gs);override; public // attributes property property Pos read ReadXmlAttrPos write WriteXmlAttrPos; function ReadXmlAttrPos(); function WriteXmlAttrPos(_value); // normal property property SchemeClr read ReadXmlChildSchemeClr; function ReadXmlChildSchemeClr(): SchemeClr; public // Attributes XmlAttrPos: OpenXmlAttribute; // Children XmlChildSchemeClr: SchemeClr; end; type Lin = 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: Lin);override; public // attributes property property Ang read ReadXmlAttrAng write WriteXmlAttrAng; property Scaled read ReadXmlAttrScaled write WriteXmlAttrScaled; function ReadXmlAttrAng(); function WriteXmlAttrAng(_value); function ReadXmlAttrScaled(); function WriteXmlAttrScaled(_value); public // Attributes XmlAttrAng: OpenXmlAttribute; XmlAttrScaled: OpenXmlAttribute; end; type LnStyleLst = 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: LnStyleLst);override; public // multi property property Lns read ReadLns; function ReadLns(_index); function AddLn(): Ln; function AppendLn(): Ln; public // Children end; type EffectStyleLst = 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: EffectStyleLst);override; public // multi property property EffectStyles read ReadEffectStyles; function ReadEffectStyles(_index); function AddEffectStyle(): EffectStyle; function AppendEffectStyle(): EffectStyle; public // Children end; type EffectStyle = 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: EffectStyle);override; public // normal property property EffectLst read ReadXmlChildEffectLst; function ReadXmlChildEffectLst(): EffectLst; public // Children XmlChildEffectLst: EffectLst; end; type OuterShdw = 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: OuterShdw);override; public // attributes property property BlurRad read ReadXmlAttrBlurRad write WriteXmlAttrBlurRad; property Dist read ReadXmlAttrDist write WriteXmlAttrDist; property Dir read ReadXmlAttrDir write WriteXmlAttrDir; property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; function ReadXmlAttrBlurRad(); function WriteXmlAttrBlurRad(_value); function ReadXmlAttrDist(); function WriteXmlAttrDist(_value); function ReadXmlAttrDir(); function WriteXmlAttrDir(_value); function ReadXmlAttrAlgn(); function WriteXmlAttrAlgn(_value); function ReadXmlAttrRotWithShape(); function WriteXmlAttrRotWithShape(_value); // normal property property SrgbClr read ReadXmlChildSrgbClr; function ReadXmlChildSrgbClr(): SrgbClr; public // Attributes XmlAttrBlurRad: OpenXmlAttribute; XmlAttrDist: OpenXmlAttribute; XmlAttrDir: OpenXmlAttribute; XmlAttrAlgn: OpenXmlAttribute; XmlAttrRotWithShape: OpenXmlAttribute; // Children XmlChildSrgbClr: SrgbClr; end; type ExtLst = 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: ExtLst);override; public // multi property property Exts read ReadExts; function ReadExts(_index); function AddExt(): Ext; function AppendExt(): Ext; public // Children end; type Ext = 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: Ext);override; public // attributes property property Uri read ReadXmlAttrUri write WriteXmlAttrUri; function ReadXmlAttrUri(); function WriteXmlAttrUri(_value); // normal property property Thm15ThemeFamily read ReadXmlChildThm15ThemeFamily; property UniqueId read ReadXmlChildUniqueId; property SlicerStyles read ReadXmlChildSlicerStyles; property TimelineStyles read ReadXmlChildTimelineStyles; function ReadXmlChildThm15ThemeFamily(): ThemeFamily; function ReadXmlChildUniqueId(): PureVal; function ReadXmlChildSlicerStyles(): SlicerStyles; function ReadXmlChildTimelineStyles(): TimelineStyles; public // Attributes XmlAttrUri: OpenXmlAttribute; // Children XmlChildThm15ThemeFamily: ThemeFamily; XmlChildUniqueId: PureVal; XmlChildSlicerStyles: SlicerStyles; XmlChildTimelineStyles: TimelineStyles; end; type SlicerStyles = 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: SlicerStyles);override; public // attributes property property DefaultSlicerStyle read ReadXmlAttrDefaultSlicerStyle write WriteXmlAttrDefaultSlicerStyle; function ReadXmlAttrDefaultSlicerStyle(); function WriteXmlAttrDefaultSlicerStyle(_value); public // Attributes XmlAttrDefaultSlicerStyle: OpenXmlAttribute; end; type TimelineStyles = 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: TimelineStyles);override; public // attributes property property DefaultTimelineStyle read ReadXmlAttrDefaultTimelineStyle write WriteXmlAttrDefaultTimelineStyle; function ReadXmlAttrDefaultTimelineStyle(); function WriteXmlAttrDefaultTimelineStyle(_value); public // Attributes XmlAttrDefaultTimelineStyle: OpenXmlAttribute; end; type ThemeFamily = 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: ThemeFamily);override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; property Id read ReadXmlAttrId write WriteXmlAttrId; property Vid read ReadXmlAttrVid write WriteXmlAttrVid; function ReadXmlAttrName(); function WriteXmlAttrName(_value); function ReadXmlAttrId(); function WriteXmlAttrId(_value); function ReadXmlAttrVid(); function WriteXmlAttrVid(_value); public // Attributes XmlAttrName: OpenXmlAttribute; XmlAttrId: OpenXmlAttribute; XmlAttrVid: OpenXmlAttribute; end; type ChartSpace = 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: ChartSpace);override; public // empty property property Lang read ReadXmlChildLang write WriteXmlChildLang; function ReadXmlChildLang(); function WriteXmlChildLang(_value); // normal property property Date1904 read ReadXmlChildDate1904; property AlternateContent read ReadXmlChildAlternateContent; property Chart read ReadXmlChildChart; property SpPr read ReadXmlChildSpPr; property ExternalData read ReadXmlChildExternalData; function ReadXmlChildDate1904(): PureVal; function ReadXmlChildAlternateContent(): AlternateContent; function ReadXmlChildChart(): Chart; function ReadXmlChildSpPr(): SpPr; function ReadXmlChildExternalData(): ExternalData; public // Children XmlChildDate1904: PureVal; XmlChildLang: OpenXmlEmpty; XmlChildAlternateContent: AlternateContent; XmlChildChart: Chart; XmlChildSpPr: SpPr; XmlChildExternalData: ExternalData; end; type Chart = 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: Chart);override; public // attributes property property Id read ReadXmlAttrId write WriteXmlAttrId; function ReadXmlAttrId(); function WriteXmlAttrId(_value); // normal property property Title read ReadXmlChildTitle; property AutoTitleDeleted read ReadXmlChildAutoTitleDeleted; property View3D read ReadXmlChildView3D; property PlotArea read ReadXmlChildPlotArea; property Legend read ReadXmlChildLegend; property PlotVisOnly read ReadXmlChildPlotVisOnly; property DispBlanksAs read ReadXmlChildDispBlanksAs; property ShowDLblsOverMax read ReadXmlChildShowDLblsOverMax; function ReadXmlChildTitle(): Title; function ReadXmlChildAutoTitleDeleted(): PureVal; function ReadXmlChildView3D(): View3D; function ReadXmlChildPlotArea(): PlotArea; function ReadXmlChildLegend(): Legend; function ReadXmlChildPlotVisOnly(): PureVal; function ReadXmlChildDispBlanksAs(): PureVal; function ReadXmlChildShowDLblsOverMax(): PureVal; public // Attributes XmlAttrId: OpenXmlAttribute; // Children XmlChildTitle: Title; XmlChildAutoTitleDeleted: PureVal; XmlChildView3D: View3D; XmlChildPlotArea: PlotArea; XmlChildLegend: Legend; XmlChildPlotVisOnly: PureVal; XmlChildDispBlanksAs: PureVal; XmlChildShowDLblsOverMax: PureVal; end; type Legend = 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: Legend);override; public // empty property property Layout read ReadXmlChildLayout write WriteXmlChildLayout; function ReadXmlChildLayout(); function WriteXmlChildLayout(_value); // normal property property LegendPos read ReadXmlChildLegendPos; property Overlay read ReadXmlChildOverlay; property TxPr read ReadXmlChildTxPr; function ReadXmlChildLegendPos(): PureVal; function ReadXmlChildOverlay(): PureVal; function ReadXmlChildTxPr(): TxPr; public // Children XmlChildLegendPos: PureVal; XmlChildLayout: OpenXmlEmpty; XmlChildOverlay: PureVal; XmlChildTxPr: TxPr; end; type View3D = 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: View3D);override; public // normal property property RotX read ReadXmlChildRotX; property RotY read ReadXmlChildRotY; property RAngAx read ReadXmlChildRAngAx; function ReadXmlChildRotX(): PureVal; function ReadXmlChildRotY(): PureVal; function ReadXmlChildRAngAx(): PureVal; public // Children XmlChildRotX: PureVal; XmlChildRotY: PureVal; XmlChildRAngAx: PureVal; end; type PlotArea = 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: PlotArea);override; public // empty property property Layout read ReadXmlChildLayout write WriteXmlChildLayout; function ReadXmlChildLayout(); function WriteXmlChildLayout(_value); // normal property property BarChart read ReadXmlChildBarChart; property CatAx read ReadXmlChildCatAx; property ValAx read ReadXmlChildValAx; property DTable read ReadXmlChildDTable; property SpPr read ReadXmlChildSpPr; function ReadXmlChildBarChart(): BarChart; function ReadXmlChildCatAx(): Ax; function ReadXmlChildValAx(): Ax; function ReadXmlChildDTable(): DTable; function ReadXmlChildSpPr(): SpPr; public // Children XmlChildLayout: OpenXmlEmpty; XmlChildBarChart: BarChart; XmlChildCatAx: Ax; XmlChildValAx: Ax; XmlChildDTable: DTable; XmlChildSpPr: SpPr; end; type BarChart = 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: BarChart);override; public // normal property property BarDir read ReadXmlChildBarDir; property Grouping read ReadXmlChildGrouping; property VaryColors read ReadXmlChildVaryColors; property GapWidth read ReadXmlChildGapWidth; function ReadXmlChildBarDir(): PureVal; function ReadXmlChildGrouping(): PureVal; function ReadXmlChildVaryColors(): PureVal; function ReadXmlChildGapWidth(): PureVal; // multi property property Sers read ReadSers; property AxIds read ReadAxIds; function ReadSers(_index); function ReadAxIds(_index); function AddSer(): Ser; function AddAxId(): PureVal; function AppendSer(): Ser; function AppendAxId(): PureVal; public // Children XmlChildBarDir: PureVal; XmlChildGrouping: PureVal; XmlChildVaryColors: PureVal; XmlChildGapWidth: PureVal; end; type Ser = 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: Ser);override; public // normal property property Idx read ReadXmlChildIdx; property _Order read ReadXmlChild_Order; property Tx read ReadXmlChildTx; property InvertIfNegative read ReadXmlChildInvertIfNegative; property DLbls read ReadXmlChildDLbls; property Cat read ReadXmlChildCat; property Val read ReadXmlChildVal; property ExtLst read ReadXmlChildExtLst; function ReadXmlChildIdx(): PureVal; function ReadXmlChild_Order(): PureVal; function ReadXmlChildTx(): Tx; function ReadXmlChildInvertIfNegative(): PureVal; function ReadXmlChildDLbls(): DLbls; function ReadXmlChildCat(): Cat; function ReadXmlChildVal(): Val; function ReadXmlChildExtLst(): ExtLst; public // Children XmlChildIdx: PureVal; XmlChild_Order: PureVal; XmlChildTx: Tx; XmlChildInvertIfNegative: PureVal; XmlChildDLbls: DLbls; XmlChildCat: Cat; XmlChildVal: Val; XmlChildExtLst: ExtLst; end; type DLbls = 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: DLbls);override; public // normal property property SpPr read ReadXmlChildSpPr; property ShowLegendKey read ReadXmlChildShowLegendKey; property ShowVal read ReadXmlChildShowVal; property ShowCatName read ReadXmlChildShowCatName; property ShowSerName read ReadXmlChildShowSerName; property ShowPercent read ReadXmlChildShowPercent; property ShowBubbleSize read ReadXmlChildShowBubbleSize; property ShowLeaderLines read ReadXmlChildShowLeaderLines; property ExtLst read ReadXmlChildExtLst; function ReadXmlChildSpPr(): SpPr; function ReadXmlChildShowLegendKey(): PureVal; function ReadXmlChildShowVal(): PureVal; function ReadXmlChildShowCatName(): PureVal; function ReadXmlChildShowSerName(): PureVal; function ReadXmlChildShowPercent(): PureVal; function ReadXmlChildShowBubbleSize(): PureVal; function ReadXmlChildShowLeaderLines(): PureVal; function ReadXmlChildExtLst(): ExtLst; public // Children XmlChildSpPr: SpPr; XmlChildShowLegendKey: PureVal; XmlChildShowVal: PureVal; XmlChildShowCatName: PureVal; XmlChildShowSerName: PureVal; XmlChildShowPercent: PureVal; XmlChildShowBubbleSize: PureVal; XmlChildShowLeaderLines: PureVal; XmlChildExtLst: ExtLst; end; type Cat = 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: Cat);override; public // normal property property StrRef read ReadXmlChildStrRef; function ReadXmlChildStrRef(): StrRef; public // Children XmlChildStrRef: StrRef; end; type StrRef = 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: StrRef);override; public // pcdata property property F read ReadXmlChildF; function ReadXmlChildF(); // normal property property StrCache read ReadXmlChildStrCache; function ReadXmlChildStrCache(): StrCache; public // Children XmlChildF: OpenXmlPcdata; XmlChildStrCache: StrCache; end; type Val = 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: Val);override; public // normal property property NumRef read ReadXmlChildNumRef; function ReadXmlChildNumRef(): NumRef; public // Children XmlChildNumRef: NumRef; end; type NumRef = 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: NumRef);override; public // pcdata property property F read ReadXmlChildF; function ReadXmlChildF(); // normal property property NumCache read ReadXmlChildNumCache; function ReadXmlChildNumCache(): NumCache; public // Children XmlChildF: OpenXmlPcdata; XmlChildNumCache: NumCache; end; type StrCache = 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: StrCache);override; public // normal property property PtCount read ReadXmlChildPtCount; function ReadXmlChildPtCount(): PureVal; // multi property property Pts read ReadPts; function ReadPts(_index); function AddPt(): Pt; function AppendPt(): Pt; public // Children XmlChildPtCount: PureVal; end; type NumCache = 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: NumCache);override; public // pcdata property property FormatCode read ReadXmlChildFormatCode; function ReadXmlChildFormatCode(); // normal property property PtCount read ReadXmlChildPtCount; function ReadXmlChildPtCount(): PureVal; // multi property property Pts read ReadPts; function ReadPts(_index); function AddPt(): Pt; function AppendPt(): Pt; public // Children XmlChildFormatCode: OpenXmlPcdata; XmlChildPtCount: PureVal; end; type Pt = 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: Pt);override; public // attributes property property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; function ReadXmlAttrIdx(); function WriteXmlAttrIdx(_value); // pcdata property property V read ReadXmlChildV; function ReadXmlChildV(); public // Attributes XmlAttrIdx: OpenXmlAttribute; // Children XmlChildV: OpenXmlPcdata; end; type Ax = 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: Ax);override; public // normal property property AxId read ReadXmlChildAxId; property Scaling read ReadXmlChildScaling; property _Delete read ReadXmlChild_Delete; property AxPos read ReadXmlChildAxPos; property NumFmt read ReadXmlChildNumFmt; property MajorTickMark read ReadXmlChildMajorTickMark; property MinorTickMark read ReadXmlChildMinorTickMark; property TickLblPos read ReadXmlChildTickLblPos; property SpPr read ReadXmlChildSpPr; property TxPr read ReadXmlChildTxPr; property CrossAx read ReadXmlChildCrossAx; property Crosses read ReadXmlChildCrosses; property CrossBetween read ReadXmlChildCrossBetween; property Auto read ReadXmlChildAuto; property LblAlgn read ReadXmlChildLblAlgn; property LblOffset read ReadXmlChildLblOffset; property NoMultiLvlLbl read ReadXmlChildNoMultiLvlLbl; function ReadXmlChildAxId(): PureVal; function ReadXmlChildScaling(): Scaling; function ReadXmlChild_Delete(): PureVal; function ReadXmlChildAxPos(): PureVal; function ReadXmlChildNumFmt(): NumFmt; function ReadXmlChildMajorTickMark(): PureVal; function ReadXmlChildMinorTickMark(): PureVal; function ReadXmlChildTickLblPos(): PureVal; function ReadXmlChildSpPr(): SpPr; function ReadXmlChildTxPr(): TxPr; function ReadXmlChildCrossAx(): PureVal; function ReadXmlChildCrosses(): PureVal; function ReadXmlChildCrossBetween(): PureVal; function ReadXmlChildAuto(): PureVal; function ReadXmlChildLblAlgn(): PureVal; function ReadXmlChildLblOffset(): PureVal; function ReadXmlChildNoMultiLvlLbl(): PureVal; public // Children XmlChildAxId: PureVal; XmlChildScaling: Scaling; XmlChild_Delete: PureVal; XmlChildAxPos: PureVal; XmlChildNumFmt: NumFmt; XmlChildMajorTickMark: PureVal; XmlChildMinorTickMark: PureVal; XmlChildTickLblPos: PureVal; XmlChildSpPr: SpPr; XmlChildTxPr: TxPr; XmlChildCrossAx: PureVal; XmlChildCrosses: PureVal; XmlChildCrossBetween: PureVal; XmlChildAuto: PureVal; XmlChildLblAlgn: PureVal; XmlChildLblOffset: PureVal; XmlChildNoMultiLvlLbl: PureVal; end; type NumFmt = 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: NumFmt);override; public // attributes property property FormatCode read ReadXmlAttrFormatCode write WriteXmlAttrFormatCode; property SourceLinked read ReadXmlAttrSourceLinked write WriteXmlAttrSourceLinked; function ReadXmlAttrFormatCode(); function WriteXmlAttrFormatCode(_value); function ReadXmlAttrSourceLinked(); function WriteXmlAttrSourceLinked(_value); public // Attributes XmlAttrFormatCode: OpenXmlAttribute; XmlAttrSourceLinked: OpenXmlAttribute; end; type Scaling = 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: Scaling);override; public // empty property property Orientation read ReadXmlChildOrientation write WriteXmlChildOrientation; function ReadXmlChildOrientation(); function WriteXmlChildOrientation(_value); public // Children XmlChildOrientation: OpenXmlEmpty; end; type DTable = 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: DTable);override; public // normal property property ShowHorzBorder read ReadXmlChildShowHorzBorder; property ShowVertBorder read ReadXmlChildShowVertBorder; property ShowOutline read ReadXmlChildShowOutline; property ShowKeys read ReadXmlChildShowKeys; property TxPr read ReadXmlChildTxPr; function ReadXmlChildShowHorzBorder(): PureVal; function ReadXmlChildShowVertBorder(): PureVal; function ReadXmlChildShowOutline(): PureVal; function ReadXmlChildShowKeys(): PureVal; function ReadXmlChildTxPr(): TxPr; public // Children XmlChildShowHorzBorder: PureVal; XmlChildShowVertBorder: PureVal; XmlChildShowOutline: PureVal; XmlChildShowKeys: PureVal; XmlChildTxPr: TxPr; end; type TxPr = 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: TxPr);override; public // empty property property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; function ReadXmlChildLstStyle(); function WriteXmlChildLstStyle(_value); // normal property property BodyPr read ReadXmlChildBodyPr; function ReadXmlChildBodyPr(): BodyPr; // multi property property Ps read ReadPs; function ReadPs(_index); function AddP(): P; function AppendP(): P; public // Children XmlChildBodyPr: BodyPr; XmlChildLstStyle: OpenXmlEmpty; end; type Title = 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: Title);override; public // empty property property Layout read ReadXmlChildLayout write WriteXmlChildLayout; function ReadXmlChildLayout(); function WriteXmlChildLayout(_value); // normal property property Tx read ReadXmlChildTx; property Overlay read ReadXmlChildOverlay; function ReadXmlChildTx(): Tx; function ReadXmlChildOverlay(): PureVal; public // Children XmlChildTx: Tx; XmlChildLayout: OpenXmlEmpty; XmlChildOverlay: PureVal; end; type Tx = 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: Tx);override; public // normal property property StrRef read ReadXmlChildStrRef; property Rich read ReadXmlChildRich; function ReadXmlChildStrRef(): StrRef; function ReadXmlChildRich(): Rich; public // Children XmlChildStrRef: StrRef; XmlChildRich: Rich; end; type Rich = 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: Rich);override; public // empty property property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; function ReadXmlChildLstStyle(); function WriteXmlChildLstStyle(_value); // normal property property BodyPr read ReadXmlChildBodyPr; function ReadXmlChildBodyPr(): BodyPr; // multi property property Ps read ReadPs; function ReadPs(_index); function AddP(): P; function AppendP(): P; public // Children XmlChildBodyPr: BodyPr; XmlChildLstStyle: OpenXmlEmpty; end; type BodyPr = 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: BodyPr);override; public // attributes property property Rot read ReadXmlAttrRot write WriteXmlAttrRot; property SpcFirstLastPara read ReadXmlAttrSpcFirstLastPara write WriteXmlAttrSpcFirstLastPara; property VertOverflow read ReadXmlAttrVertOverflow write WriteXmlAttrVertOverflow; property HorzOverflow read ReadXmlAttrHorzOverflow write WriteXmlAttrHorzOverflow; property Vert read ReadXmlAttrVert write WriteXmlAttrVert; property Wrap read ReadXmlAttrWrap write WriteXmlAttrWrap; property LIns read ReadXmlAttrLIns write WriteXmlAttrLIns; property TIns read ReadXmlAttrTIns write WriteXmlAttrTIns; property RIns read ReadXmlAttrRIns write WriteXmlAttrRIns; property BIns read ReadXmlAttrBIns write WriteXmlAttrBIns; property NumCol read ReadXmlAttrNumCol write WriteXmlAttrNumCol; property SpcCol read ReadXmlAttrSpcCol write WriteXmlAttrSpcCol; property RtlCol read ReadXmlAttrRtlCol write WriteXmlAttrRtlCol; property FromWordArt read ReadXmlAttrFromWordArt write WriteXmlAttrFromWordArt; property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; property AnchorCtr read ReadXmlAttrAnchorCtr write WriteXmlAttrAnchorCtr; property ForceAA read ReadXmlAttrForceAA write WriteXmlAttrForceAA; property CompatLnSpc read ReadXmlAttrCompatLnSpc write WriteXmlAttrCompatLnSpc; function ReadXmlAttrRot(); function WriteXmlAttrRot(_value); function ReadXmlAttrSpcFirstLastPara(); function WriteXmlAttrSpcFirstLastPara(_value); function ReadXmlAttrVertOverflow(); function WriteXmlAttrVertOverflow(_value); function ReadXmlAttrHorzOverflow(); function WriteXmlAttrHorzOverflow(_value); function ReadXmlAttrVert(); function WriteXmlAttrVert(_value); function ReadXmlAttrWrap(); function WriteXmlAttrWrap(_value); function ReadXmlAttrLIns(); function WriteXmlAttrLIns(_value); function ReadXmlAttrTIns(); function WriteXmlAttrTIns(_value); function ReadXmlAttrRIns(); function WriteXmlAttrRIns(_value); function ReadXmlAttrBIns(); function WriteXmlAttrBIns(_value); function ReadXmlAttrNumCol(); function WriteXmlAttrNumCol(_value); function ReadXmlAttrSpcCol(); function WriteXmlAttrSpcCol(_value); function ReadXmlAttrRtlCol(); function WriteXmlAttrRtlCol(_value); function ReadXmlAttrFromWordArt(); function WriteXmlAttrFromWordArt(_value); function ReadXmlAttrAnchor(); function WriteXmlAttrAnchor(_value); function ReadXmlAttrAnchorCtr(); function WriteXmlAttrAnchorCtr(_value); function ReadXmlAttrForceAA(); function WriteXmlAttrForceAA(_value); function ReadXmlAttrCompatLnSpc(); function WriteXmlAttrCompatLnSpc(_value); // empty property property NoAutofit read ReadXmlChildNoAutofit write WriteXmlChildNoAutofit; function ReadXmlChildNoAutofit(); function WriteXmlChildNoAutofit(_value); // normal property property PrstTxWrap read ReadXmlChildPrstTxWrap; function ReadXmlChildPrstTxWrap(): PrstTxWrap; public // Attributes XmlAttrRot: OpenXmlAttribute; XmlAttrSpcFirstLastPara: OpenXmlAttribute; XmlAttrVertOverflow: OpenXmlAttribute; XmlAttrHorzOverflow: OpenXmlAttribute; XmlAttrVert: OpenXmlAttribute; XmlAttrWrap: OpenXmlAttribute; XmlAttrLIns: OpenXmlAttribute; XmlAttrTIns: OpenXmlAttribute; XmlAttrRIns: OpenXmlAttribute; XmlAttrBIns: OpenXmlAttribute; XmlAttrNumCol: OpenXmlAttribute; XmlAttrSpcCol: OpenXmlAttribute; XmlAttrRtlCol: OpenXmlAttribute; XmlAttrFromWordArt: OpenXmlAttribute; XmlAttrAnchor: OpenXmlAttribute; XmlAttrAnchorCtr: OpenXmlAttribute; XmlAttrForceAA: OpenXmlAttribute; XmlAttrCompatLnSpc: OpenXmlAttribute; // Children XmlChildPrstTxWrap: PrstTxWrap; XmlChildNoAutofit: OpenXmlEmpty; end; type PrstTxWrap = 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: PrstTxWrap);override; public // attributes property property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; function ReadXmlAttrPrst(); function WriteXmlAttrPrst(_value); // empty property property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst; function ReadXmlChildAvLst(); function WriteXmlChildAvLst(_value); public // Attributes XmlAttrPrst: OpenXmlAttribute; // Children XmlChildAvLst: OpenXmlEmpty; end; type P = 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: P);override; public // normal property property PPr read ReadXmlChildPPr; property EndParaRPr read ReadXmlChildEndParaRPr; function ReadXmlChildPPr(): PPr; function ReadXmlChildEndParaRPr(): RPr; // multi property property Rs read ReadRs; function ReadRs(_index); function AddR(): R; function AppendR(): R; public // Children XmlChildPPr: PPr; XmlChildEndParaRPr: RPr; 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 // attributes property property Lang read ReadXmlAttrLang write WriteXmlAttrLang; property AltLang read ReadXmlAttrAltLang write WriteXmlAttrAltLang; property B read ReadXmlAttrB write WriteXmlAttrB; property Baseline read ReadXmlAttrBaseline write WriteXmlAttrBaseline; property I read ReadXmlAttrI write WriteXmlAttrI; property Kern read ReadXmlAttrKern write WriteXmlAttrKern; property Spc read ReadXmlAttrSpc write WriteXmlAttrSpc; property Strike read ReadXmlAttrStrike write WriteXmlAttrStrike; property Sz read ReadXmlAttrSz write WriteXmlAttrSz; property U read ReadXmlAttrU write WriteXmlAttrU; function ReadXmlAttrLang(); function WriteXmlAttrLang(_value); function ReadXmlAttrAltLang(); function WriteXmlAttrAltLang(_value); function ReadXmlAttrB(); function WriteXmlAttrB(_value); function ReadXmlAttrBaseline(); function WriteXmlAttrBaseline(_value); function ReadXmlAttrI(); function WriteXmlAttrI(_value); function ReadXmlAttrKern(); function WriteXmlAttrKern(_value); function ReadXmlAttrSpc(); function WriteXmlAttrSpc(_value); function ReadXmlAttrStrike(); function WriteXmlAttrStrike(_value); function ReadXmlAttrSz(); function WriteXmlAttrSz(_value); function ReadXmlAttrU(); function WriteXmlAttrU(_value); // normal property property SolidFill read ReadXmlChildSolidFill; property Latin read ReadXmlChildLatin; property Ea read ReadXmlChildEa; property Cs read ReadXmlChildCs; function ReadXmlChildSolidFill(): SolidFill; function ReadXmlChildLatin(): Latin; function ReadXmlChildEa(): Latin; function ReadXmlChildCs(): Latin; public // Attributes XmlAttrLang: OpenXmlAttribute; XmlAttrAltLang: OpenXmlAttribute; XmlAttrB: OpenXmlAttribute; XmlAttrBaseline: OpenXmlAttribute; XmlAttrI: OpenXmlAttribute; XmlAttrKern: OpenXmlAttribute; XmlAttrSpc: OpenXmlAttribute; XmlAttrStrike: OpenXmlAttribute; XmlAttrSz: OpenXmlAttribute; XmlAttrU: OpenXmlAttribute; // Children XmlChildSolidFill: SolidFill; XmlChildLatin: Latin; XmlChildEa: Latin; XmlChildCs: Latin; end; type PPr = 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: PPr);override; public // normal property property DefRPr read ReadXmlChildDefRPr; function ReadXmlChildDefRPr(): RPr; public // Children XmlChildDefRPr: RPr; end; type Latin = 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: Latin);override; public // attributes property property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; function ReadXmlAttrTypeface(); function WriteXmlAttrTypeface(_value); public // Attributes XmlAttrTypeface: OpenXmlAttribute; 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 T read ReadXmlChildT; function ReadXmlChildRPr(): RPr; function ReadXmlChildT(): T; public // Children XmlChildRPr: RPr; XmlChildT: T; end; type ExternalData = 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: ExternalData);override; public // attributes property property Id read ReadXmlAttrId write WriteXmlAttrId; function ReadXmlAttrId(); function WriteXmlAttrId(_value); // normal property property AutoUpdate read ReadXmlChildAutoUpdate; function ReadXmlChildAutoUpdate(): PureVal; public // Attributes XmlAttrId: OpenXmlAttribute; // Children XmlChildAutoUpdate: PureVal; end; type _Inline = 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: _Inline);override; public // attributes property property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT; property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB; property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL; property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR; property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId; function ReadXmlAttrDistT(); function WriteXmlAttrDistT(_value); function ReadXmlAttrDistB(); function WriteXmlAttrDistB(_value); function ReadXmlAttrDistL(); function WriteXmlAttrDistL(_value); function ReadXmlAttrDistR(); function WriteXmlAttrDistR(_value); function ReadXmlAttrAnchorId(); function WriteXmlAttrAnchorId(_value); function ReadXmlAttrEditId(); function WriteXmlAttrEditId(_value); // normal property property Extent read ReadXmlChildExtent; property EffectExtent read ReadXmlChildEffectExtent; property DocPr read ReadXmlChildDocPr; property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr; property Graphic read ReadXmlChildGraphic; function ReadXmlChildExtent(): CXY; function ReadXmlChildEffectExtent(): EffectExtent; function ReadXmlChildDocPr(): DocPr; function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; function ReadXmlChildGraphic(): Graphic; public // Attributes XmlAttrDistT: OpenXmlAttribute; XmlAttrDistB: OpenXmlAttribute; XmlAttrDistL: OpenXmlAttribute; XmlAttrDistR: OpenXmlAttribute; XmlAttrAnchorId: OpenXmlAttribute; XmlAttrEditId: OpenXmlAttribute; // Children XmlChildExtent: CXY; XmlChildEffectExtent: EffectExtent; XmlChildDocPr: DocPr; XmlChildCNvGraphicFramePr: CNvGraphicFramePr; XmlChildGraphic: Graphic; end; type EffectExtent = 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: EffectExtent);override; public // attributes property property L read ReadXmlAttrL write WriteXmlAttrL; property T read ReadXmlAttrT write WriteXmlAttrT; property R read ReadXmlAttrR write WriteXmlAttrR; property B read ReadXmlAttrB write WriteXmlAttrB; function ReadXmlAttrL(); function WriteXmlAttrL(_value); function ReadXmlAttrT(); function WriteXmlAttrT(_value); function ReadXmlAttrR(); function WriteXmlAttrR(_value); function ReadXmlAttrB(); function WriteXmlAttrB(_value); public // Attributes XmlAttrL: OpenXmlAttribute; XmlAttrT: OpenXmlAttribute; XmlAttrR: OpenXmlAttribute; XmlAttrB: OpenXmlAttribute; end; type DocPr = 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: DocPr);override; public // attributes property property Id read ReadXmlAttrId write WriteXmlAttrId; property Name read ReadXmlAttrName write WriteXmlAttrName; property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr; function ReadXmlAttrId(); function WriteXmlAttrId(_value); function ReadXmlAttrName(); function WriteXmlAttrName(_value); function ReadXmlAttrDescr(); function WriteXmlAttrDescr(_value); // normal property property ExtLst read ReadXmlChildExtLst; function ReadXmlChildExtLst(): ExtLst; public // Attributes XmlAttrId: OpenXmlAttribute; XmlAttrName: OpenXmlAttribute; XmlAttrDescr: OpenXmlAttribute; // Children XmlChildExtLst: ExtLst; end; type CNvGraphicFramePr = 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: CNvGraphicFramePr);override; public // normal property property GraphicFrameLocks read ReadXmlChildGraphicFrameLocks; function ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks; public // Children XmlChildGraphicFrameLocks: GraphicFrameLocks; end; type GraphicFrameLocks = 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: GraphicFrameLocks);override; public // attributes property property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; function ReadXmlAttrNoChangeAspect(); function WriteXmlAttrNoChangeAspect(_value); public // Attributes XmlAttrNoChangeAspect: OpenXmlAttribute; end; type Graphic = 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: Graphic);override; public // normal property property GraphicData read ReadXmlChildGraphicData; function ReadXmlChildGraphicData(): GraphicData; public // Children XmlChildGraphicData: GraphicData; end; type GraphicData = 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: GraphicData);override; public // attributes property property Uri read ReadXmlAttrUri write WriteXmlAttrUri; function ReadXmlAttrUri(); function WriteXmlAttrUri(_value); // normal property property Pic read ReadXmlChildPic; property Chart read ReadXmlChildChart; property Wsp read ReadXmlChildWsp; function ReadXmlChildPic(): Pic; function ReadXmlChildChart(): Chart; function ReadXmlChildWsp(): Wsp; public // Attributes XmlAttrUri: OpenXmlAttribute; // Children XmlChildPic: Pic; XmlChildChart: Chart; XmlChildWsp: Wsp; end; type Wsp = 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: Wsp);override; public // normal property property CNvSpPr read ReadXmlChildCNvSpPr; property SpPr read ReadXmlChildSpPr; property Txbx read ReadXmlChildTxbx; property Style read ReadXmlChildStyle; property BodyPr read ReadXmlChildBodyPr; function ReadXmlChildCNvSpPr(): CNvSpPr; function ReadXmlChildSpPr(): SpPr; function ReadXmlChildTxbx(): Txbx; function ReadXmlChildStyle(): WpsStyle; function ReadXmlChildBodyPr(): BodyPr; public // Children XmlChildCNvSpPr: CNvSpPr; XmlChildSpPr: SpPr; XmlChildTxbx: Txbx; XmlChildStyle: WpsStyle; XmlChildBodyPr: BodyPr; end; type WpsStyle = 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: WpsStyle);override; public // normal property property LnRef read ReadXmlChildLnRef; property FillRef read ReadXmlChildFillRef; property EffectRef read ReadXmlChildEffectRef; property FontRef read ReadXmlChildFontRef; function ReadXmlChildLnRef(): XRef; function ReadXmlChildFillRef(): XRef; function ReadXmlChildEffectRef(): XRef; function ReadXmlChildFontRef(): XRef; public // Children XmlChildLnRef: XRef; XmlChildFillRef: XRef; XmlChildEffectRef: XRef; XmlChildFontRef: XRef; end; type XRef = 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: XRef);override; public // attributes property property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; function ReadXmlAttrIdx(); function WriteXmlAttrIdx(_value); // normal property property SchemeClr read ReadXmlChildSchemeClr; function ReadXmlChildSchemeClr(): SchemeClr; public // Attributes XmlAttrIdx: OpenXmlAttribute; // Children XmlChildSchemeClr: SchemeClr; end; type Txbx = 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: Txbx);override; public // normal property property TxbxContent read ReadXmlChildTxbxContent; function ReadXmlChildTxbxContent(): TxbxContent; public // Children XmlChildTxbxContent: TxbxContent; end; type CNvSpPr = 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: CNvSpPr);override; public // attributes property property TxBox read ReadXmlAttrTxBox write WriteXmlAttrTxBox; function ReadXmlAttrTxBox(); function WriteXmlAttrTxBox(_value); // normal property property SpLocks read ReadXmlChildSpLocks; function ReadXmlChildSpLocks(): SpLocks; public // Attributes XmlAttrTxBox: OpenXmlAttribute; // Children XmlChildSpLocks: SpLocks; end; type SpLocks = 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: SpLocks);override; public // attributes property property NoChangeArrowheads read ReadXmlAttrNoChangeArrowheads write WriteXmlAttrNoChangeArrowheads; function ReadXmlAttrNoChangeArrowheads(); function WriteXmlAttrNoChangeArrowheads(_value); public // Attributes XmlAttrNoChangeArrowheads: OpenXmlAttribute; end; type Pic = 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: Pic);override; public // normal property property NvPicPr read ReadXmlChildNvPicPr; property BlipFill read ReadXmlChildBlipFill; property SpPr read ReadXmlChildSpPr; function ReadXmlChildNvPicPr(): NvPicPr; function ReadXmlChildBlipFill(): BlipFill; function ReadXmlChildSpPr(): SpPr; public // Children XmlChildNvPicPr: NvPicPr; XmlChildBlipFill: BlipFill; XmlChildSpPr: SpPr; end; type NvPicPr = 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: NvPicPr);override; public // normal property property CNvPr read ReadXmlChildCNvPr; property CNvPicPr read ReadXmlChildCNvPicPr; function ReadXmlChildCNvPr(): CNvPr; function ReadXmlChildCNvPicPr(): CNvPicPr; public // Children XmlChildCNvPr: CNvPr; XmlChildCNvPicPr: CNvPicPr; end; type CNvPr = 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: CNvPr);override; public // attributes property property Id read ReadXmlAttrId write WriteXmlAttrId; property Name read ReadXmlAttrName write WriteXmlAttrName; property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr; function ReadXmlAttrId(); function WriteXmlAttrId(_value); function ReadXmlAttrName(); function WriteXmlAttrName(_value); function ReadXmlAttrDescr(); function WriteXmlAttrDescr(_value); public // Attributes XmlAttrId: OpenXmlAttribute; XmlAttrName: OpenXmlAttribute; XmlAttrDescr: OpenXmlAttribute; end; type CNvPicPr = 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: CNvPicPr);override; public // normal property property PicLocks read ReadXmlChildPicLocks; function ReadXmlChildPicLocks(): PicLocks; public // Children XmlChildPicLocks: PicLocks; end; type PicLocks = 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: PicLocks);override; public // attributes property property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; function ReadXmlAttrNoChangeAspect(); function WriteXmlAttrNoChangeAspect(_value); public // Attributes XmlAttrNoChangeAspect: OpenXmlAttribute; end; type BlipFill = 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: BlipFill);override; public // normal property property Blip read ReadXmlChildBlip; property Stretch read ReadXmlChildStretch; function ReadXmlChildBlip(): Blip; function ReadXmlChildStretch(): Stretch; public // Children XmlChildBlip: Blip; XmlChildStretch: Stretch; end; type Blip = 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: Blip);override; public // attributes property property Embed read ReadXmlAttrEmbed write WriteXmlAttrEmbed; property Cstate read ReadXmlAttrCstate write WriteXmlAttrCstate; function ReadXmlAttrEmbed(); function WriteXmlAttrEmbed(_value); function ReadXmlAttrCstate(); function WriteXmlAttrCstate(_value); public // Attributes XmlAttrEmbed: OpenXmlAttribute; XmlAttrCstate: OpenXmlAttribute; end; type Stretch = 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: Stretch);override; public // normal property property FillRect read ReadXmlChildFillRect; function ReadXmlChildFillRect(): PureVal; public // Children XmlChildFillRect: PureVal; end; type SpPr = 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: SpPr);override; public // attributes property property BwMode read ReadXmlAttrBwMode write WriteXmlAttrBwMode; function ReadXmlAttrBwMode(); function WriteXmlAttrBwMode(_value); // empty property property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; function ReadXmlChildNoFill(); function WriteXmlChildNoFill(_value); // normal property property Xfrm read ReadXmlChildXfrm; property PrstGeom read ReadXmlChildPrstGeom; property SolidFill read ReadXmlChildSolidFill; property Ln read ReadXmlChildLn; property EffectLst read ReadXmlChildEffectLst; function ReadXmlChildXfrm(): Xfrm; function ReadXmlChildPrstGeom(): PrstGeom; function ReadXmlChildSolidFill(): SolidFill; function ReadXmlChildLn(): Ln; function ReadXmlChildEffectLst(): EffectLst; public // Attributes XmlAttrBwMode: OpenXmlAttribute; // Children XmlChildXfrm: Xfrm; XmlChildPrstGeom: PrstGeom; XmlChildNoFill: OpenXmlEmpty; XmlChildSolidFill: SolidFill; XmlChildLn: Ln; XmlChildEffectLst: EffectLst; end; type EffectLst = 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: EffectLst);override; public // normal property property OuterShdw read ReadXmlChildOuterShdw; function ReadXmlChildOuterShdw(): OuterShdw; public // Children XmlChildOuterShdw: OuterShdw; end; type Ln = 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: Ln);override; public // attributes property property W read ReadXmlAttrW write WriteXmlAttrW; property Cap read ReadXmlAttrCap write WriteXmlAttrCap; property Cmpd read ReadXmlAttrCmpd write WriteXmlAttrCmpd; property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; function ReadXmlAttrW(); function WriteXmlAttrW(_value); function ReadXmlAttrCap(); function WriteXmlAttrCap(_value); function ReadXmlAttrCmpd(); function WriteXmlAttrCmpd(_value); function ReadXmlAttrAlgn(); function WriteXmlAttrAlgn(_value); // empty property property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; property HeadEnd read ReadXmlChildHeadEnd write WriteXmlChildHeadEnd; property TailEnd read ReadXmlChildTailEnd write WriteXmlChildTailEnd; function ReadXmlChildNoFill(); function WriteXmlChildNoFill(_value); function ReadXmlChildHeadEnd(); function WriteXmlChildHeadEnd(_value); function ReadXmlChildTailEnd(); function WriteXmlChildTailEnd(_value); // normal property property SolidFill read ReadXmlChildSolidFill; property PrstDash read ReadXmlChildPrstDash; property Miter read ReadXmlChildMiter; function ReadXmlChildSolidFill(): SolidFill; function ReadXmlChildPrstDash(): PureVal; function ReadXmlChildMiter(): Miter; public // Attributes XmlAttrW: OpenXmlAttribute; XmlAttrCap: OpenXmlAttribute; XmlAttrCmpd: OpenXmlAttribute; XmlAttrAlgn: OpenXmlAttribute; // Children XmlChildNoFill: OpenXmlEmpty; XmlChildSolidFill: SolidFill; XmlChildPrstDash: PureVal; XmlChildMiter: Miter; XmlChildHeadEnd: OpenXmlEmpty; XmlChildTailEnd: OpenXmlEmpty; end; type Miter = 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: Miter);override; public // attributes property property Lim read ReadXmlAttrLim write WriteXmlAttrLim; function ReadXmlAttrLim(); function WriteXmlAttrLim(_value); public // Attributes XmlAttrLim: OpenXmlAttribute; end; type Xfrm = 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: Xfrm);override; public // normal property property Off read ReadXmlChildOff; property Ext read ReadXmlChildExt; function ReadXmlChildOff(): XY; function ReadXmlChildExt(): CXY; public // Children XmlChildOff: XY; XmlChildExt: CXY; end; type XY = 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: XY);override; public // attributes property property X read ReadXmlAttrX write WriteXmlAttrX; property Y read ReadXmlAttrY write WriteXmlAttrY; function ReadXmlAttrX(); function WriteXmlAttrX(_value); function ReadXmlAttrY(); function WriteXmlAttrY(_value); public // Attributes XmlAttrX: OpenXmlAttribute; XmlAttrY: OpenXmlAttribute; end; type CXY = 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: CXY);override; public // attributes property property Cx read ReadXmlAttrCx write WriteXmlAttrCx; property Cy read ReadXmlAttrCy write WriteXmlAttrCy; function ReadXmlAttrCx(); function WriteXmlAttrCx(_value); function ReadXmlAttrCy(); function WriteXmlAttrCy(_value); public // Attributes XmlAttrCx: OpenXmlAttribute; XmlAttrCy: OpenXmlAttribute; end; type PrstGeom = 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: PrstGeom);override; public // attributes property property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; function ReadXmlAttrPrst(); function WriteXmlAttrPrst(_value); // normal property property AvLst read ReadXmlChildAvLst; function ReadXmlChildAvLst(): PureVal; public // Attributes XmlAttrPrst: OpenXmlAttribute; // Children XmlChildAvLst: PureVal; end; type Anchor = 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: Anchor);override; public // attributes property property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT; property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB; property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL; property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR; property SimplePos read ReadXmlAttrSimplePos write WriteXmlAttrSimplePos; property RelativeHeight read ReadXmlAttrRelativeHeight write WriteXmlAttrRelativeHeight; property BehindDoc read ReadXmlAttrBehindDoc write WriteXmlAttrBehindDoc; property Locked read ReadXmlAttrLocked write WriteXmlAttrLocked; property Hidden read ReadXmlAttrHidden write WriteXmlAttrHidden; property LayoutInCell read ReadXmlAttrLayoutInCell write WriteXmlAttrLayoutInCell; property AllowOverlap read ReadXmlAttrAllowOverlap write WriteXmlAttrAllowOverlap; property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId; function ReadXmlAttrDistT(); function WriteXmlAttrDistT(_value); function ReadXmlAttrDistB(); function WriteXmlAttrDistB(_value); function ReadXmlAttrDistL(); function WriteXmlAttrDistL(_value); function ReadXmlAttrDistR(); function WriteXmlAttrDistR(_value); function ReadXmlAttrSimplePos(); function WriteXmlAttrSimplePos(_value); function ReadXmlAttrRelativeHeight(); function WriteXmlAttrRelativeHeight(_value); function ReadXmlAttrBehindDoc(); function WriteXmlAttrBehindDoc(_value); function ReadXmlAttrLocked(); function WriteXmlAttrLocked(_value); function ReadXmlAttrHidden(); function WriteXmlAttrHidden(_value); function ReadXmlAttrLayoutInCell(); function WriteXmlAttrLayoutInCell(_value); function ReadXmlAttrAllowOverlap(); function WriteXmlAttrAllowOverlap(_value); function ReadXmlAttrAnchorId(); function WriteXmlAttrAnchorId(_value); function ReadXmlAttrEditId(); function WriteXmlAttrEditId(_value); // empty property property WrapNone read ReadXmlChildWrapNone write WriteXmlChildWrapNone; function ReadXmlChildWrapNone(); function WriteXmlChildWrapNone(_value); // normal property property SimplePos read ReadXmlChildSimplePos; property PositionH read ReadXmlChildPositionH; property PositionV read ReadXmlChildPositionV; property Extent read ReadXmlChildExtent; property EffectExtent read ReadXmlChildEffectExtent; property DocPr read ReadXmlChildDocPr; property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr; property Graphic read ReadXmlChildGraphic; property SizeRelH read ReadXmlChildSizeRelH; property SizeRelV read ReadXmlChildSizeRelV; function ReadXmlChildSimplePos(): XY; function ReadXmlChildPositionH(): PositionH; function ReadXmlChildPositionV(): PositionV; function ReadXmlChildExtent(): CXY; function ReadXmlChildEffectExtent(): EffectExtent; function ReadXmlChildDocPr(): DocPr; function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; function ReadXmlChildGraphic(): Graphic; function ReadXmlChildSizeRelH(): SizeRelH; function ReadXmlChildSizeRelV(): SizeRelV; public // Attributes XmlAttrDistT: OpenXmlAttribute; XmlAttrDistB: OpenXmlAttribute; XmlAttrDistL: OpenXmlAttribute; XmlAttrDistR: OpenXmlAttribute; XmlAttrSimplePos: OpenXmlAttribute; XmlAttrRelativeHeight: OpenXmlAttribute; XmlAttrBehindDoc: OpenXmlAttribute; XmlAttrLocked: OpenXmlAttribute; XmlAttrHidden: OpenXmlAttribute; XmlAttrLayoutInCell: OpenXmlAttribute; XmlAttrAllowOverlap: OpenXmlAttribute; XmlAttrAnchorId: OpenXmlAttribute; XmlAttrEditId: OpenXmlAttribute; // Children XmlChildSimplePos: XY; XmlChildPositionH: PositionH; XmlChildPositionV: PositionV; XmlChildExtent: CXY; XmlChildEffectExtent: EffectExtent; XmlChildWrapNone: OpenXmlEmpty; XmlChildDocPr: DocPr; XmlChildCNvGraphicFramePr: CNvGraphicFramePr; XmlChildGraphic: Graphic; XmlChildSizeRelH: SizeRelH; XmlChildSizeRelV: SizeRelV; end; type PositionV = 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: PositionV);override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value); // pcdata property property PosOffset read ReadXmlChildPosOffset; function ReadXmlChildPosOffset(); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPosOffset: OpenXmlPcdata; end; type PositionH = 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: PositionH);override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value); // pcdata property property PosOffset read ReadXmlChildPosOffset; function ReadXmlChildPosOffset(); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPosOffset: OpenXmlPcdata; end; type SizeRelH = 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: SizeRelH);override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value); // pcdata property property PctWidth read ReadXmlChildPctWidth; function ReadXmlChildPctWidth(); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPctWidth: OpenXmlPcdata; end; type SizeRelV = 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: SizeRelV);override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value); // pcdata property property PctHeight read ReadXmlChildPctHeight; function ReadXmlChildPctHeight(); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPctHeight: OpenXmlPcdata; end; implementation function Theme.Create();overload; begin {self.}Create(nil, "a", "theme"); end; function Theme.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Theme.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 Theme.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "name": makeweakref(thisFunction(WriteXmlAttrName)), ); sorted_child_ := array( pre + "themeElements": array(0, makeweakref(thisFunction(ReadXmlChildThemeElements))), pre + "objectDefaults": array(1, makeweakref(thisFunction(ReadXmlChildObjectDefaults))), pre + "extraClrSchemeLst": array(2, makeweakref(thisFunction(ReadXmlChildExtraClrSchemeLst))), pre + "extLst": array(3, makeweakref(thisFunction(ReadXmlChildExtLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Theme.Copy(_obj: Theme);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.XmlChildThemeElements) then {self.}ThemeElements.Copy(_obj.XmlChildThemeElements); if not ifnil(_obj.XmlChildObjectDefaults) then ifnil({self.}XmlChildObjectDefaults) ? {self.}ObjectDefaults.Copy(_obj.XmlChildObjectDefaults) : {self.}XmlChildObjectDefaults.Copy(_obj.XmlChildObjectDefaults); if not ifnil(_obj.XmlChildExtraClrSchemeLst) then ifnil({self.}XmlChildExtraClrSchemeLst) ? {self.}ExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst) : {self.}XmlChildExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst); if not ifnil(_obj.XmlChildExtLst) then {self.}ExtLst.Copy(_obj.XmlChildExtLst); tslassigning := tslassigning_backup; end; function Theme.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function Theme.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function Theme.ReadXmlChildObjectDefaults(); begin if tslassigning then begin if ifnil({self.}XmlChildObjectDefaults) then begin {self.}XmlChildObjectDefaults := new OpenXmlEmpty(self, {self.}Prefix, "objectDefaults"); container_.Set({self.}XmlChildObjectDefaults); end return {self.}XmlChildObjectDefaults; end return ifnil({self.}XmlChildObjectDefaults) ? nil : {self.}XmlChildObjectDefaults.BoolValue(); end; function Theme.WriteXmlChildObjectDefaults(_value); begin if ifnil({self.}XmlChildObjectDefaults) then begin {self.}XmlChildObjectDefaults := new OpenXmlEmpty(self, {self.}Prefix, "objectDefaults"); container_.Set({self.}XmlChildObjectDefaults); end {self.}XmlChildObjectDefaults.Value := _value; end; function Theme.ReadXmlChildExtraClrSchemeLst(); begin if tslassigning then begin if ifnil({self.}XmlChildExtraClrSchemeLst) then begin {self.}XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, {self.}Prefix, "extraClrSchemeLst"); container_.Set({self.}XmlChildExtraClrSchemeLst); end return {self.}XmlChildExtraClrSchemeLst; end return ifnil({self.}XmlChildExtraClrSchemeLst) ? nil : {self.}XmlChildExtraClrSchemeLst.BoolValue(); end; function Theme.WriteXmlChildExtraClrSchemeLst(_value); begin if ifnil({self.}XmlChildExtraClrSchemeLst) then begin {self.}XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, {self.}Prefix, "extraClrSchemeLst"); container_.Set({self.}XmlChildExtraClrSchemeLst); end {self.}XmlChildExtraClrSchemeLst.Value := _value; end; function Theme.ReadXmlChildThemeElements(): ThemeElements; begin if tslassigning and ifnil({self.}XmlChildThemeElements) then begin {self.}XmlChildThemeElements := new ThemeElements(self, {self.}Prefix, "themeElements"); container_.Set({self.}XmlChildThemeElements); end return {self.}XmlChildThemeElements; end; function Theme.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and ifnil({self.}XmlChildExtLst) then begin {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst; end; function ThemeElements.Create();overload; begin {self.}Create(nil, "a", "themeElements"); end; function ThemeElements.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function ThemeElements.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 ThemeElements.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "name": makeweakref(thisFunction(WriteXmlAttrName)), ); sorted_child_ := array( pre + "clrScheme": array(0, makeweakref(thisFunction(ReadXmlChildClrScheme))), pre + "fontScheme": array(1, makeweakref(thisFunction(ReadXmlChildFontScheme))), pre + "fmtScheme": array(2, makeweakref(thisFunction(ReadXmlChildFmtScheme))), ); container_ := new TSOfficeContainer(sorted_child_); end; function ThemeElements.Copy(_obj: ThemeElements);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.XmlChildClrScheme) then {self.}ClrScheme.Copy(_obj.XmlChildClrScheme); if not ifnil(_obj.XmlChildFontScheme) then {self.}FontScheme.Copy(_obj.XmlChildFontScheme); if not ifnil(_obj.XmlChildFmtScheme) then {self.}FmtScheme.Copy(_obj.XmlChildFmtScheme); tslassigning := tslassigning_backup; end; function ThemeElements.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function ThemeElements.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function ThemeElements.ReadXmlChildClrScheme(): ClrScheme; begin if tslassigning and ifnil({self.}XmlChildClrScheme) then begin {self.}XmlChildClrScheme := new ClrScheme(self, {self.}Prefix, "clrScheme"); container_.Set({self.}XmlChildClrScheme); end return {self.}XmlChildClrScheme; end; function ThemeElements.ReadXmlChildFontScheme(): FontScheme; begin if tslassigning and ifnil({self.}XmlChildFontScheme) then begin {self.}XmlChildFontScheme := new FontScheme(self, {self.}Prefix, "fontScheme"); container_.Set({self.}XmlChildFontScheme); end return {self.}XmlChildFontScheme; end; function ThemeElements.ReadXmlChildFmtScheme(): FmtScheme; begin if tslassigning and ifnil({self.}XmlChildFmtScheme) then begin {self.}XmlChildFmtScheme := new FmtScheme(self, {self.}Prefix, "fmtScheme"); container_.Set({self.}XmlChildFmtScheme); end return {self.}XmlChildFmtScheme; end; function ClrScheme.Create();overload; begin {self.}Create(nil, "a", "clrScheme"); end; function ClrScheme.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function ClrScheme.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 ClrScheme.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "name": makeweakref(thisFunction(WriteXmlAttrName)), ); sorted_child_ := array( pre + "dk1": array(0, makeweakref(thisFunction(ReadXmlChildDk1))), pre + "lt1": array(1, makeweakref(thisFunction(ReadXmlChildLt1))), pre + "dk2": array(2, makeweakref(thisFunction(ReadXmlChildDk2))), pre + "lt2": array(3, makeweakref(thisFunction(ReadXmlChildLt2))), pre + "accent1": array(4, makeweakref(thisFunction(ReadXmlChildAccent1))), pre + "accent2": array(5, makeweakref(thisFunction(ReadXmlChildAccent2))), pre + "accent3": array(6, makeweakref(thisFunction(ReadXmlChildAccent3))), pre + "accent4": array(7, makeweakref(thisFunction(ReadXmlChildAccent4))), pre + "accent5": array(8, makeweakref(thisFunction(ReadXmlChildAccent5))), pre + "accent6": array(9, makeweakref(thisFunction(ReadXmlChildAccent6))), pre + "hlink": array(10, makeweakref(thisFunction(ReadXmlChildHlink))), pre + "folHlink": array(11, makeweakref(thisFunction(ReadXmlChildFolHlink))), ); container_ := new TSOfficeContainer(sorted_child_); end; function ClrScheme.Copy(_obj: ClrScheme);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.XmlChildDk1) then {self.}Dk1.Copy(_obj.XmlChildDk1); if not ifnil(_obj.XmlChildLt1) then {self.}Lt1.Copy(_obj.XmlChildLt1); if not ifnil(_obj.XmlChildDk2) then {self.}Dk2.Copy(_obj.XmlChildDk2); if not ifnil(_obj.XmlChildLt2) then {self.}Lt2.Copy(_obj.XmlChildLt2); if not ifnil(_obj.XmlChildAccent1) then {self.}Accent1.Copy(_obj.XmlChildAccent1); if not ifnil(_obj.XmlChildAccent2) then {self.}Accent2.Copy(_obj.XmlChildAccent2); if not ifnil(_obj.XmlChildAccent3) then {self.}Accent3.Copy(_obj.XmlChildAccent3); if not ifnil(_obj.XmlChildAccent4) then {self.}Accent4.Copy(_obj.XmlChildAccent4); if not ifnil(_obj.XmlChildAccent5) then {self.}Accent5.Copy(_obj.XmlChildAccent5); if not ifnil(_obj.XmlChildAccent6) then {self.}Accent6.Copy(_obj.XmlChildAccent6); if not ifnil(_obj.XmlChildHlink) then {self.}Hlink.Copy(_obj.XmlChildHlink); if not ifnil(_obj.XmlChildFolHlink) then {self.}FolHlink.Copy(_obj.XmlChildFolHlink); tslassigning := tslassigning_backup; end; function ClrScheme.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function ClrScheme.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function ClrScheme.ReadXmlChildDk1(): Clr1; begin if tslassigning and ifnil({self.}XmlChildDk1) then begin {self.}XmlChildDk1 := new Clr1(self, {self.}Prefix, "dk1"); container_.Set({self.}XmlChildDk1); end return {self.}XmlChildDk1; end; function ClrScheme.ReadXmlChildLt1(): Clr1; begin if tslassigning and ifnil({self.}XmlChildLt1) then begin {self.}XmlChildLt1 := new Clr1(self, {self.}Prefix, "lt1"); container_.Set({self.}XmlChildLt1); end return {self.}XmlChildLt1; end; function ClrScheme.ReadXmlChildDk2(): Clr2; begin if tslassigning and ifnil({self.}XmlChildDk2) then begin {self.}XmlChildDk2 := new Clr2(self, {self.}Prefix, "dk2"); container_.Set({self.}XmlChildDk2); end return {self.}XmlChildDk2; end; function ClrScheme.ReadXmlChildLt2(): Clr2; begin if tslassigning and ifnil({self.}XmlChildLt2) then begin {self.}XmlChildLt2 := new Clr2(self, {self.}Prefix, "lt2"); container_.Set({self.}XmlChildLt2); end return {self.}XmlChildLt2; end; function ClrScheme.ReadXmlChildAccent1(): Clr2; begin if tslassigning and ifnil({self.}XmlChildAccent1) then begin {self.}XmlChildAccent1 := new Clr2(self, {self.}Prefix, "accent1"); container_.Set({self.}XmlChildAccent1); end return {self.}XmlChildAccent1; end; function ClrScheme.ReadXmlChildAccent2(): Clr2; begin if tslassigning and ifnil({self.}XmlChildAccent2) then begin {self.}XmlChildAccent2 := new Clr2(self, {self.}Prefix, "accent2"); container_.Set({self.}XmlChildAccent2); end return {self.}XmlChildAccent2; end; function ClrScheme.ReadXmlChildAccent3(): Clr2; begin if tslassigning and ifnil({self.}XmlChildAccent3) then begin {self.}XmlChildAccent3 := new Clr2(self, {self.}Prefix, "accent3"); container_.Set({self.}XmlChildAccent3); end return {self.}XmlChildAccent3; end; function ClrScheme.ReadXmlChildAccent4(): Clr2; begin if tslassigning and ifnil({self.}XmlChildAccent4) then begin {self.}XmlChildAccent4 := new Clr2(self, {self.}Prefix, "accent4"); container_.Set({self.}XmlChildAccent4); end return {self.}XmlChildAccent4; end; function ClrScheme.ReadXmlChildAccent5(): Clr2; begin if tslassigning and ifnil({self.}XmlChildAccent5) then begin {self.}XmlChildAccent5 := new Clr2(self, {self.}Prefix, "accent5"); container_.Set({self.}XmlChildAccent5); end return {self.}XmlChildAccent5; end; function ClrScheme.ReadXmlChildAccent6(): Clr2; begin if tslassigning and ifnil({self.}XmlChildAccent6) then begin {self.}XmlChildAccent6 := new Clr2(self, {self.}Prefix, "accent6"); container_.Set({self.}XmlChildAccent6); end return {self.}XmlChildAccent6; end; function ClrScheme.ReadXmlChildHlink(): Clr2; begin if tslassigning and ifnil({self.}XmlChildHlink) then begin {self.}XmlChildHlink := new Clr2(self, {self.}Prefix, "hlink"); container_.Set({self.}XmlChildHlink); end return {self.}XmlChildHlink; end; function ClrScheme.ReadXmlChildFolHlink(): Clr2; begin if tslassigning and ifnil({self.}XmlChildFolHlink) then begin {self.}XmlChildFolHlink := new Clr2(self, {self.}Prefix, "folHlink"); container_.Set({self.}XmlChildFolHlink); end return {self.}XmlChildFolHlink; end; function Clr1.Create();overload; begin {self.}Create(nil, "a", ""); end; function Clr1.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Clr1.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 Clr1.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "sysClr": array(0, makeweakref(thisFunction(ReadXmlChildSysClr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Clr1.Copy(_obj: Clr1);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildSysClr) then {self.}SysClr.Copy(_obj.XmlChildSysClr); tslassigning := tslassigning_backup; end; function Clr1.ReadXmlChildSysClr(): SysClr; begin if tslassigning and ifnil({self.}XmlChildSysClr) then begin {self.}XmlChildSysClr := new SysClr(self, {self.}Prefix, "sysClr"); container_.Set({self.}XmlChildSysClr); end return {self.}XmlChildSysClr; end; function SysClr.Create();overload; begin {self.}Create(nil, "a", "sysClr"); end; function SysClr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SysClr.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 SysClr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "val": makeweakref(thisFunction(WriteXmlAttrVal)), "LastClr": makeweakref(thisFunction(WriteXmlAttrLastClr)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function SysClr.Copy(_obj: SysClr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Val) then {self.}Val := _obj.Val; if not ifnil(_obj.LastClr) then {self.}LastClr := _obj.LastClr; tslassigning := tslassigning_backup; end; function SysClr.ReadXmlAttrVal(); begin return {self.}XmlAttrVal.Value; end; function SysClr.WriteXmlAttrVal(_value); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_[length(attributes_)] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function SysClr.ReadXmlAttrLastClr(); begin return {self.}XmlAttrLastClr.Value; end; function SysClr.WriteXmlAttrLastClr(_value); begin if ifnil({self.}XmlAttrLastClr) then begin {self.}XmlAttrLastClr := new OpenXmlAttribute("", "LastClr", nil); attributes_[length(attributes_)] := {self.}XmlAttrLastClr; end {self.}XmlAttrLastClr.Value := _value; end; function Clr2.Create();overload; begin {self.}Create(nil, "a", ""); end; function Clr2.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Clr2.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 Clr2.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Clr2.Copy(_obj: Clr2);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildSrgbClr) then {self.}SrgbClr.Copy(_obj.XmlChildSrgbClr); tslassigning := tslassigning_backup; end; function Clr2.ReadXmlChildSrgbClr(): SrgbClr; begin if tslassigning and ifnil({self.}XmlChildSrgbClr) then begin {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); container_.Set({self.}XmlChildSrgbClr); end return {self.}XmlChildSrgbClr; end; function SrgbClr.Create();overload; begin {self.}Create(nil, "a", "srgbClr"); end; function SrgbClr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SrgbClr.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 SrgbClr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "val": makeweakref(thisFunction(WriteXmlAttrVal)), ); sorted_child_ := array( pre + "aplha": array(0, makeweakref(thisFunction(ReadXmlChildAlpha))), ); container_ := new TSOfficeContainer(sorted_child_); end; function SrgbClr.Copy(_obj: SrgbClr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Val) then {self.}Val := _obj.Val; if not ifnil(_obj.XmlChildAlpha) then {self.}Alpha.Copy(_obj.XmlChildAlpha); tslassigning := tslassigning_backup; end; function SrgbClr.ReadXmlAttrVal(); begin return {self.}XmlAttrVal.Value; end; function SrgbClr.WriteXmlAttrVal(_value); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_[length(attributes_)] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function SrgbClr.ReadXmlChildAlpha(): PureVal; begin if tslassigning and ifnil({self.}XmlChildAlpha) then begin {self.}XmlChildAlpha := new PureVal(self, {self.}Prefix, "aplha"); container_.Set({self.}XmlChildAlpha); end return {self.}XmlChildAlpha; end; function PureVal.Create();overload; begin {self.}Create(nil, "", ""); end; function PureVal.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PureVal.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 PureVal.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "val": makeweakref(thisFunction(WriteXmlAttrVal)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function PureVal.Copy(_obj: PureVal);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 PureVal.ReadXmlAttrVal(); begin return {self.}XmlAttrVal.Value; end; function PureVal.WriteXmlAttrVal(_value); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_[length(attributes_)] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function FontScheme.Create();overload; begin {self.}Create(nil, "a", "fontScheme"); end; function FontScheme.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function FontScheme.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 FontScheme.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "name": makeweakref(thisFunction(WriteXmlAttrName)), ); sorted_child_ := array( pre + "majorFont": array(0, makeweakref(thisFunction(ReadXmlChildMajorfont))), pre + "minorFont": array(1, makeweakref(thisFunction(ReadXmlChildMinorfont))), ); container_ := new TSOfficeContainer(sorted_child_); end; function FontScheme.Copy(_obj: FontScheme);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.XmlChildMajorfont) then {self.}Majorfont.Copy(_obj.XmlChildMajorfont); if not ifnil(_obj.XmlChildMinorfont) then {self.}Minorfont.Copy(_obj.XmlChildMinorfont); tslassigning := tslassigning_backup; end; function FontScheme.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function FontScheme.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function FontScheme.ReadXmlChildMajorfont(): Mfont; begin if tslassigning and ifnil({self.}XmlChildMajorfont) then begin {self.}XmlChildMajorfont := new Mfont(self, {self.}Prefix, "majorFont"); container_.Set({self.}XmlChildMajorfont); end return {self.}XmlChildMajorfont; end; function FontScheme.ReadXmlChildMinorfont(): Mfont; begin if tslassigning and ifnil({self.}XmlChildMinorfont) then begin {self.}XmlChildMinorfont := new Mfont(self, {self.}Prefix, "minorFont"); container_.Set({self.}XmlChildMinorfont); end return {self.}XmlChildMinorfont; end; function MFont.Create();overload; begin {self.}Create(nil, "a", ""); end; function MFont.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function MFont.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 MFont.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "latin": array(0, makeweakref(thisFunction(ReadXmlChildLatin))), pre + "ea": array(1, makeweakref(thisFunction(ReadXmlChildEa))), pre + "cs": array(2, makeweakref(thisFunction(ReadXmlChildCs))), pre + "font": array(3, makeweakref(thisFunction(AppendFont))), ); container_ := new TSOfficeContainer(sorted_child_); end; function MFont.Copy(_obj: MFont);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildLatin) then {self.}Latin.Copy(_obj.XmlChildLatin); if not ifnil(_obj.XmlChildEa) then {self.}Ea.Copy(_obj.XmlChildEa); if not ifnil(_obj.XmlChildCs) then {self.}Cs.Copy(_obj.XmlChildCs); tslassigning := tslassigning_backup; end; function MFont.ReadXmlChildLatin(): Latin; begin if tslassigning and ifnil({self.}XmlChildLatin) then begin {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); container_.Set({self.}XmlChildLatin); end return {self.}XmlChildLatin; end; function MFont.ReadXmlChildEa(): Latin; begin if tslassigning and ifnil({self.}XmlChildEa) then begin {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); container_.Set({self.}XmlChildEa); end return {self.}XmlChildEa; end; function MFont.ReadXmlChildCs(): Latin; begin if tslassigning and ifnil({self.}XmlChildCs) then begin {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); container_.Set({self.}XmlChildCs); end return {self.}XmlChildCs; end; function MFont.ReadFonts(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "font", ind); end; function MFont.AddFont(): Font; begin obj := new Font(self, {self.}Prefix, "font"); container_.Insert(obj); return obj; end; function MFont.AppendFont(): Font; begin obj := new Font(self, {self.}Prefix, "font"); container_.Append(obj); return obj; end; function Font.Create();overload; begin {self.}Create(nil, "a", "font"); end; function Font.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Font.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 Font.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "script": makeweakref(thisFunction(WriteXmlAttrScript)), "typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function Font.Copy(_obj: Font);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Script) then {self.}Script := _obj.Script; if not ifnil(_obj.Typeface) then {self.}Typeface := _obj.Typeface; tslassigning := tslassigning_backup; end; function Font.ReadXmlAttrScript(); begin return {self.}XmlAttrScript.Value; end; function Font.WriteXmlAttrScript(_value); begin if ifnil({self.}XmlAttrScript) then begin {self.}XmlAttrScript := new OpenXmlAttribute("", "script", nil); attributes_[length(attributes_)] := {self.}XmlAttrScript; end {self.}XmlAttrScript.Value := _value; end; function Font.ReadXmlAttrTypeface(); begin return {self.}XmlAttrTypeface.Value; end; function Font.WriteXmlAttrTypeface(_value); begin if ifnil({self.}XmlAttrTypeface) then begin {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); attributes_[length(attributes_)] := {self.}XmlAttrTypeface; end {self.}XmlAttrTypeface.Value := _value; end; function FmtScheme.Create();overload; begin {self.}Create(nil, "a", "fmtScheme"); end; function FmtScheme.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function FmtScheme.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 FmtScheme.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "name": makeweakref(thisFunction(WriteXmlAttrName)), ); sorted_child_ := array( pre + "fillStyleLst": array(0, makeweakref(thisFunction(ReadXmlChildFillStyleLst))), pre + "lnStyleLst": array(1, makeweakref(thisFunction(ReadXmlChildLnStyleLst))), pre + "effectStyleLst": array(2, makeweakref(thisFunction(ReadXmlChildEffectStyleLst))), pre + "bgFillStyleLst": array(3, makeweakref(thisFunction(ReadXmlChildBgFillStyleLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function FmtScheme.Copy(_obj: FmtScheme);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.XmlChildFillStyleLst) then {self.}FillStyleLst.Copy(_obj.XmlChildFillStyleLst); if not ifnil(_obj.XmlChildLnStyleLst) then {self.}LnStyleLst.Copy(_obj.XmlChildLnStyleLst); if not ifnil(_obj.XmlChildEffectStyleLst) then {self.}EffectStyleLst.Copy(_obj.XmlChildEffectStyleLst); if not ifnil(_obj.XmlChildBgFillStyleLst) then {self.}BgFillStyleLst.Copy(_obj.XmlChildBgFillStyleLst); tslassigning := tslassigning_backup; end; function FmtScheme.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function FmtScheme.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function FmtScheme.ReadXmlChildFillStyleLst(): FillStyleLst; begin if tslassigning and ifnil({self.}XmlChildFillStyleLst) then begin {self.}XmlChildFillStyleLst := new FillStyleLst(self, {self.}Prefix, "fillStyleLst"); container_.Set({self.}XmlChildFillStyleLst); end return {self.}XmlChildFillStyleLst; end; function FmtScheme.ReadXmlChildLnStyleLst(): LnStyleLst; begin if tslassigning and ifnil({self.}XmlChildLnStyleLst) then begin {self.}XmlChildLnStyleLst := new LnStyleLst(self, {self.}Prefix, "lnStyleLst"); container_.Set({self.}XmlChildLnStyleLst); end return {self.}XmlChildLnStyleLst; end; function FmtScheme.ReadXmlChildEffectStyleLst(): EffectStyleLst; begin if tslassigning and ifnil({self.}XmlChildEffectStyleLst) then begin {self.}XmlChildEffectStyleLst := new EffectStyleLst(self, {self.}Prefix, "effectStyleLst"); container_.Set({self.}XmlChildEffectStyleLst); end return {self.}XmlChildEffectStyleLst; end; function FmtScheme.ReadXmlChildBgFillStyleLst(): FillStyleLst; begin if tslassigning and ifnil({self.}XmlChildBgFillStyleLst) then begin {self.}XmlChildBgFillStyleLst := new FillStyleLst(self, {self.}Prefix, "bgFillStyleLst"); container_.Set({self.}XmlChildBgFillStyleLst); end return {self.}XmlChildBgFillStyleLst; end; function FillStyleLst.Create();overload; begin {self.}Create(nil, "a", "fillStyleLst"); end; function FillStyleLst.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function FillStyleLst.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 FillStyleLst.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "solidFill": array(0, makeweakref(thisFunction(AppendSolidFill))), pre + "gradFill": array(1, makeweakref(thisFunction(AppendGradFill))), ); container_ := new TSOfficeContainer(sorted_child_); end; function FillStyleLst.Copy(_obj: FillStyleLst);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); tslassigning := tslassigning_backup; end; function FillStyleLst.ReadSolidFills(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "solidFill", ind); end; function FillStyleLst.ReadGradFills(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "gradFill", ind); end; function FillStyleLst.AddSolidFill(): SolidFill; begin obj := new SolidFill(self, {self.}Prefix, "solidFill"); container_.Insert(obj); return obj; end; function FillStyleLst.AddGradFill(): GradFill; begin obj := new GradFill(self, {self.}Prefix, "gradFill"); container_.Insert(obj); return obj; end; function FillStyleLst.AppendSolidFill(): SolidFill; begin obj := new SolidFill(self, {self.}Prefix, "solidFill"); container_.Append(obj); return obj; end; function FillStyleLst.AppendGradFill(): GradFill; begin obj := new GradFill(self, {self.}Prefix, "gradFill"); container_.Append(obj); return obj; end; function SolidFill.Create();overload; begin {self.}Create(nil, "a", "solidFill"); end; function SolidFill.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SolidFill.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 SolidFill.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function SolidFill.Copy(_obj: SolidFill);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildSchemeClr) then {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); tslassigning := tslassigning_backup; end; function SolidFill.ReadXmlChildSchemeClr(): SchemeClr; begin if tslassigning and ifnil({self.}XmlChildSchemeClr) then begin {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); container_.Set({self.}XmlChildSchemeClr); end return {self.}XmlChildSchemeClr; end; function SchemeClr.Create();overload; begin {self.}Create(nil, "a", "schemeClr"); end; function SchemeClr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SchemeClr.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 SchemeClr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "val": makeweakref(thisFunction(WriteXmlAttrVal)), ); sorted_child_ := array( pre + "lumMod": array(0, makeweakref(thisFunction(ReadXmlChildLumMod))), pre + "satMod": array(1, makeweakref(thisFunction(ReadXmlChildSatMod))), pre + "tint": array(2, makeweakref(thisFunction(ReadXmlChildTint))), ); container_ := new TSOfficeContainer(sorted_child_); end; function SchemeClr.Copy(_obj: SchemeClr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Val) then {self.}Val := _obj.Val; if not ifnil(_obj.XmlChildLumMod) then {self.}LumMod.Copy(_obj.XmlChildLumMod); if not ifnil(_obj.XmlChildSatMod) then {self.}SatMod.Copy(_obj.XmlChildSatMod); if not ifnil(_obj.XmlChildTint) then {self.}Tint.Copy(_obj.XmlChildTint); tslassigning := tslassigning_backup; end; function SchemeClr.ReadXmlAttrVal(); begin return {self.}XmlAttrVal.Value; end; function SchemeClr.WriteXmlAttrVal(_value); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_[length(attributes_)] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function SchemeClr.ReadXmlChildLumMod(): PureVal; begin if tslassigning and ifnil({self.}XmlChildLumMod) then begin {self.}XmlChildLumMod := new PureVal(self, {self.}Prefix, "lumMod"); container_.Set({self.}XmlChildLumMod); end return {self.}XmlChildLumMod; end; function SchemeClr.ReadXmlChildSatMod(): PureVal; begin if tslassigning and ifnil({self.}XmlChildSatMod) then begin {self.}XmlChildSatMod := new PureVal(self, {self.}Prefix, "satMod"); container_.Set({self.}XmlChildSatMod); end return {self.}XmlChildSatMod; end; function SchemeClr.ReadXmlChildTint(): PureVal; begin if tslassigning and ifnil({self.}XmlChildTint) then begin {self.}XmlChildTint := new PureVal(self, {self.}Prefix, "tint"); container_.Set({self.}XmlChildTint); end return {self.}XmlChildTint; end; function GradFill.Create();overload; begin {self.}Create(nil, "a", "gradFill"); end; function GradFill.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function GradFill.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 GradFill.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)), ); sorted_child_ := array( pre + "gsLst": array(0, makeweakref(thisFunction(ReadXmlChildGsLst))), pre + "lin": array(1, makeweakref(thisFunction(ReadXmlChildLin))), ); container_ := new TSOfficeContainer(sorted_child_); end; function GradFill.Copy(_obj: GradFill);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.RotWithShape) then {self.}RotWithShape := _obj.RotWithShape; if not ifnil(_obj.XmlChildGsLst) then {self.}GsLst.Copy(_obj.XmlChildGsLst); if not ifnil(_obj.XmlChildLin) then {self.}Lin.Copy(_obj.XmlChildLin); tslassigning := tslassigning_backup; end; function GradFill.ReadXmlAttrRotWithShape(); begin return {self.}XmlAttrRotWithShape.Value; end; function GradFill.WriteXmlAttrRotWithShape(_value); begin if ifnil({self.}XmlAttrRotWithShape) then begin {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); attributes_[length(attributes_)] := {self.}XmlAttrRotWithShape; end {self.}XmlAttrRotWithShape.Value := _value; end; function GradFill.ReadXmlChildGsLst(): GsLst; begin if tslassigning and ifnil({self.}XmlChildGsLst) then begin {self.}XmlChildGsLst := new GsLst(self, {self.}Prefix, "gsLst"); container_.Set({self.}XmlChildGsLst); end return {self.}XmlChildGsLst; end; function GradFill.ReadXmlChildLin(): Lin; begin if tslassigning and ifnil({self.}XmlChildLin) then begin {self.}XmlChildLin := new Lin(self, {self.}Prefix, "lin"); container_.Set({self.}XmlChildLin); end return {self.}XmlChildLin; end; function GsLst.Create();overload; begin {self.}Create(nil, "a", "gsLst"); end; function GsLst.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function GsLst.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 GsLst.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "gs": array(0, makeweakref(thisFunction(AppendGs))), ); container_ := new TSOfficeContainer(sorted_child_); end; function GsLst.Copy(_obj: GsLst);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); tslassigning := tslassigning_backup; end; function GsLst.ReadGses(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "gs", ind); end; function GsLst.AddGs(): Gs; begin obj := new Gs(self, {self.}Prefix, "gs"); container_.Insert(obj); return obj; end; function GsLst.AppendGs(): Gs; begin obj := new Gs(self, {self.}Prefix, "gs"); container_.Append(obj); return obj; end; function Gs.Create();overload; begin {self.}Create(nil, "a", "gs"); end; function Gs.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Gs.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 Gs.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "pos": makeweakref(thisFunction(WriteXmlAttrPos)), ); sorted_child_ := array( pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Gs.Copy(_obj: Gs);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Pos) then {self.}Pos := _obj.Pos; if not ifnil(_obj.XmlChildSchemeClr) then {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); tslassigning := tslassigning_backup; end; function Gs.ReadXmlAttrPos(); begin return {self.}XmlAttrPos.Value; end; function Gs.WriteXmlAttrPos(_value); begin if ifnil({self.}XmlAttrPos) then begin {self.}XmlAttrPos := new OpenXmlAttribute("", "pos", nil); attributes_[length(attributes_)] := {self.}XmlAttrPos; end {self.}XmlAttrPos.Value := _value; end; function Gs.ReadXmlChildSchemeClr(): SchemeClr; begin if tslassigning and ifnil({self.}XmlChildSchemeClr) then begin {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); container_.Set({self.}XmlChildSchemeClr); end return {self.}XmlChildSchemeClr; end; function Lin.Create();overload; begin {self.}Create(nil, "a", "lin"); end; function Lin.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Lin.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 Lin.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "ang": makeweakref(thisFunction(WriteXmlAttrAng)), "scaled": makeweakref(thisFunction(WriteXmlAttrScaled)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function Lin.Copy(_obj: Lin);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Ang) then {self.}Ang := _obj.Ang; if not ifnil(_obj.Scaled) then {self.}Scaled := _obj.Scaled; tslassigning := tslassigning_backup; end; function Lin.ReadXmlAttrAng(); begin return {self.}XmlAttrAng.Value; end; function Lin.WriteXmlAttrAng(_value); begin if ifnil({self.}XmlAttrAng) then begin {self.}XmlAttrAng := new OpenXmlAttribute("", "ang", nil); attributes_[length(attributes_)] := {self.}XmlAttrAng; end {self.}XmlAttrAng.Value := _value; end; function Lin.ReadXmlAttrScaled(); begin return {self.}XmlAttrScaled.Value; end; function Lin.WriteXmlAttrScaled(_value); begin if ifnil({self.}XmlAttrScaled) then begin {self.}XmlAttrScaled := new OpenXmlAttribute("", "scaled", nil); attributes_[length(attributes_)] := {self.}XmlAttrScaled; end {self.}XmlAttrScaled.Value := _value; end; function LnStyleLst.Create();overload; begin {self.}Create(nil, "a", "lnStyleLst"); end; function LnStyleLst.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function LnStyleLst.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 LnStyleLst.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "ln": array(0, makeweakref(thisFunction(AppendLn))), ); container_ := new TSOfficeContainer(sorted_child_); end; function LnStyleLst.Copy(_obj: LnStyleLst);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); tslassigning := tslassigning_backup; end; function LnStyleLst.ReadLns(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "ln", ind); end; function LnStyleLst.AddLn(): Ln; begin obj := new Ln(self, {self.}Prefix, "ln"); container_.Insert(obj); return obj; end; function LnStyleLst.AppendLn(): Ln; begin obj := new Ln(self, {self.}Prefix, "ln"); container_.Append(obj); return obj; end; function EffectStyleLst.Create();overload; begin {self.}Create(nil, "a", "effectStyleLst"); end; function EffectStyleLst.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function EffectStyleLst.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 EffectStyleLst.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "effectStyle": array(0, makeweakref(thisFunction(AppendEffectStyle))), ); container_ := new TSOfficeContainer(sorted_child_); end; function EffectStyleLst.Copy(_obj: EffectStyleLst);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); tslassigning := tslassigning_backup; end; function EffectStyleLst.ReadEffectStyles(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "effectStyle", ind); end; function EffectStyleLst.AddEffectStyle(): EffectStyle; begin obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); container_.Insert(obj); return obj; end; function EffectStyleLst.AppendEffectStyle(): EffectStyle; begin obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); container_.Append(obj); return obj; end; function EffectStyle.Create();overload; begin {self.}Create(nil, "a", "effectStyle"); end; function EffectStyle.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function EffectStyle.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 EffectStyle.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "effectLst": array(0, makeweakref(thisFunction(ReadXmlChildEffectLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function EffectStyle.Copy(_obj: EffectStyle);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildEffectLst) then {self.}EffectLst.Copy(_obj.XmlChildEffectLst); tslassigning := tslassigning_backup; end; function EffectStyle.ReadXmlChildEffectLst(): EffectLst; begin if tslassigning and ifnil({self.}XmlChildEffectLst) then begin {self.}XmlChildEffectLst := new EffectLst(self, {self.}Prefix, "effectLst"); container_.Set({self.}XmlChildEffectLst); end return {self.}XmlChildEffectLst; end; function OuterShdw.Create();overload; begin {self.}Create(nil, "a", "outerShdw"); end; function OuterShdw.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function OuterShdw.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 OuterShdw.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "blurRad": makeweakref(thisFunction(WriteXmlAttrBlurRad)), "dist": makeweakref(thisFunction(WriteXmlAttrDist)), "dir": makeweakref(thisFunction(WriteXmlAttrDir)), "algn": makeweakref(thisFunction(WriteXmlAttrAlgn)), "rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)), ); sorted_child_ := array( pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function OuterShdw.Copy(_obj: OuterShdw);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.BlurRad) then {self.}BlurRad := _obj.BlurRad; if not ifnil(_obj.Dist) then {self.}Dist := _obj.Dist; if not ifnil(_obj.Dir) then {self.}Dir := _obj.Dir; if not ifnil(_obj.Algn) then {self.}Algn := _obj.Algn; if not ifnil(_obj.RotWithShape) then {self.}RotWithShape := _obj.RotWithShape; if not ifnil(_obj.XmlChildSrgbClr) then {self.}SrgbClr.Copy(_obj.XmlChildSrgbClr); tslassigning := tslassigning_backup; end; function OuterShdw.ReadXmlAttrBlurRad(); begin return {self.}XmlAttrBlurRad.Value; end; function OuterShdw.WriteXmlAttrBlurRad(_value); begin if ifnil({self.}XmlAttrBlurRad) then begin {self.}XmlAttrBlurRad := new OpenXmlAttribute("", "blurRad", nil); attributes_[length(attributes_)] := {self.}XmlAttrBlurRad; end {self.}XmlAttrBlurRad.Value := _value; end; function OuterShdw.ReadXmlAttrDist(); begin return {self.}XmlAttrDist.Value; end; function OuterShdw.WriteXmlAttrDist(_value); begin if ifnil({self.}XmlAttrDist) then begin {self.}XmlAttrDist := new OpenXmlAttribute("", "dist", nil); attributes_[length(attributes_)] := {self.}XmlAttrDist; end {self.}XmlAttrDist.Value := _value; end; function OuterShdw.ReadXmlAttrDir(); begin return {self.}XmlAttrDir.Value; end; function OuterShdw.WriteXmlAttrDir(_value); begin if ifnil({self.}XmlAttrDir) then begin {self.}XmlAttrDir := new OpenXmlAttribute("", "dir", nil); attributes_[length(attributes_)] := {self.}XmlAttrDir; end {self.}XmlAttrDir.Value := _value; end; function OuterShdw.ReadXmlAttrAlgn(); begin return {self.}XmlAttrAlgn.Value; end; function OuterShdw.WriteXmlAttrAlgn(_value); begin if ifnil({self.}XmlAttrAlgn) then begin {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); attributes_[length(attributes_)] := {self.}XmlAttrAlgn; end {self.}XmlAttrAlgn.Value := _value; end; function OuterShdw.ReadXmlAttrRotWithShape(); begin return {self.}XmlAttrRotWithShape.Value; end; function OuterShdw.WriteXmlAttrRotWithShape(_value); begin if ifnil({self.}XmlAttrRotWithShape) then begin {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); attributes_[length(attributes_)] := {self.}XmlAttrRotWithShape; end {self.}XmlAttrRotWithShape.Value := _value; end; function OuterShdw.ReadXmlChildSrgbClr(): SrgbClr; begin if tslassigning and ifnil({self.}XmlChildSrgbClr) then begin {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); container_.Set({self.}XmlChildSrgbClr); end return {self.}XmlChildSrgbClr; end; function ExtLst.Create();overload; begin {self.}Create(nil, "a", "extLst"); end; function ExtLst.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function ExtLst.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 ExtLst.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "ext": array(0, makeweakref(thisFunction(AppendExt))), ); container_ := new TSOfficeContainer(sorted_child_); end; function ExtLst.Copy(_obj: ExtLst);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); tslassigning := tslassigning_backup; end; function ExtLst.ReadExts(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "ext", ind); end; function ExtLst.AddExt(): Ext; begin obj := new Ext(self, {self.}Prefix, "ext"); container_.Insert(obj); return obj; end; function ExtLst.AppendExt(): Ext; begin obj := new Ext(self, {self.}Prefix, "ext"); container_.Append(obj); return obj; end; function Ext.Create();overload; begin {self.}Create(nil, "a", "ext"); end; function Ext.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Ext.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 Ext.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "uri": makeweakref(thisFunction(WriteXmlAttrUri)), ); sorted_child_ := array( "thm15:themeFamily": array(0, makeweakref(thisFunction(ReadXmlChildThm15ThemeFamily))), "c16:uniquedId": array(1, makeweakref(thisFunction(ReadXmlChildUniqueId))), "x14:slicerStyles": array(2, makeweakref(thisFunction(ReadXmlChildSlicerStyles))), "x15:timelineStyles": array(3, makeweakref(thisFunction(ReadXmlChildTimelineStyles))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Ext.Copy(_obj: Ext);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Uri) then {self.}Uri := _obj.Uri; if not ifnil(_obj.XmlChildThm15ThemeFamily) then {self.}Thm15ThemeFamily.Copy(_obj.XmlChildThm15ThemeFamily); if not ifnil(_obj.XmlChildUniqueId) then {self.}UniqueId.Copy(_obj.XmlChildUniqueId); if not ifnil(_obj.XmlChildSlicerStyles) then {self.}SlicerStyles.Copy(_obj.XmlChildSlicerStyles); if not ifnil(_obj.XmlChildTimelineStyles) then {self.}TimelineStyles.Copy(_obj.XmlChildTimelineStyles); tslassigning := tslassigning_backup; end; function Ext.ReadXmlAttrUri(); begin return {self.}XmlAttrUri.Value; end; function Ext.WriteXmlAttrUri(_value); begin if ifnil({self.}XmlAttrUri) then begin {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); attributes_[length(attributes_)] := {self.}XmlAttrUri; end {self.}XmlAttrUri.Value := _value; end; function Ext.ReadXmlChildThm15ThemeFamily(): ThemeFamily; begin if tslassigning and ifnil({self.}XmlChildThm15ThemeFamily) then begin {self.}XmlChildThm15ThemeFamily := new ThemeFamily(self, "thm15", "themeFamily"); container_.Set({self.}XmlChildThm15ThemeFamily); end return {self.}XmlChildThm15ThemeFamily; end; function Ext.ReadXmlChildUniqueId(): PureVal; begin if tslassigning and ifnil({self.}XmlChildUniqueId) then begin {self.}XmlChildUniqueId := new PureVal(self, "c16", "uniquedId"); container_.Set({self.}XmlChildUniqueId); end return {self.}XmlChildUniqueId; end; function Ext.ReadXmlChildSlicerStyles(): SlicerStyles; begin if tslassigning and ifnil({self.}XmlChildSlicerStyles) then begin {self.}XmlChildSlicerStyles := new SlicerStyles(self, "x14", "slicerStyles"); container_.Set({self.}XmlChildSlicerStyles); end return {self.}XmlChildSlicerStyles; end; function Ext.ReadXmlChildTimelineStyles(): TimelineStyles; begin if tslassigning and ifnil({self.}XmlChildTimelineStyles) then begin {self.}XmlChildTimelineStyles := new TimelineStyles(self, "x15", "timelineStyles"); container_.Set({self.}XmlChildTimelineStyles); end return {self.}XmlChildTimelineStyles; end; function SlicerStyles.Create();overload; begin {self.}Create(nil, "", "slicerStyles"); end; function SlicerStyles.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SlicerStyles.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 SlicerStyles.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "defaultSlicerStyle": makeweakref(thisFunction(WriteXmlAttrDefaultSlicerStyle)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function SlicerStyles.Copy(_obj: SlicerStyles);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.DefaultSlicerStyle) then {self.}DefaultSlicerStyle := _obj.DefaultSlicerStyle; tslassigning := tslassigning_backup; end; function SlicerStyles.ReadXmlAttrDefaultSlicerStyle(); begin return {self.}XmlAttrDefaultSlicerStyle.Value; end; function SlicerStyles.WriteXmlAttrDefaultSlicerStyle(_value); begin if ifnil({self.}XmlAttrDefaultSlicerStyle) then begin {self.}XmlAttrDefaultSlicerStyle := new OpenXmlAttribute("", "defaultSlicerStyle", nil); attributes_[length(attributes_)] := {self.}XmlAttrDefaultSlicerStyle; end {self.}XmlAttrDefaultSlicerStyle.Value := _value; end; function TimelineStyles.Create();overload; begin {self.}Create(nil, "", "timelineStyles"); end; function TimelineStyles.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function TimelineStyles.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 TimelineStyles.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "defaultTimelineStyle": makeweakref(thisFunction(WriteXmlAttrDefaultTimelineStyle)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function TimelineStyles.Copy(_obj: TimelineStyles);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.DefaultTimelineStyle) then {self.}DefaultTimelineStyle := _obj.DefaultTimelineStyle; tslassigning := tslassigning_backup; end; function TimelineStyles.ReadXmlAttrDefaultTimelineStyle(); begin return {self.}XmlAttrDefaultTimelineStyle.Value; end; function TimelineStyles.WriteXmlAttrDefaultTimelineStyle(_value); begin if ifnil({self.}XmlAttrDefaultTimelineStyle) then begin {self.}XmlAttrDefaultTimelineStyle := new OpenXmlAttribute("", "defaultTimelineStyle", nil); attributes_[length(attributes_)] := {self.}XmlAttrDefaultTimelineStyle; end {self.}XmlAttrDefaultTimelineStyle.Value := _value; end; function ThemeFamily.Create();overload; begin {self.}Create(nil, "thm15", "themeFamily"); end; function ThemeFamily.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function ThemeFamily.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 ThemeFamily.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "name": makeweakref(thisFunction(WriteXmlAttrName)), "Id": makeweakref(thisFunction(WriteXmlAttrId)), "vid": makeweakref(thisFunction(WriteXmlAttrVid)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function ThemeFamily.Copy(_obj: ThemeFamily);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.Id) then {self.}Id := _obj.Id; if not ifnil(_obj.Vid) then {self.}Vid := _obj.Vid; tslassigning := tslassigning_backup; end; function ThemeFamily.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function ThemeFamily.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function ThemeFamily.ReadXmlAttrId(); begin return {self.}XmlAttrId.Value; end; function ThemeFamily.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 ThemeFamily.ReadXmlAttrVid(); begin return {self.}XmlAttrVid.Value; end; function ThemeFamily.WriteXmlAttrVid(_value); begin if ifnil({self.}XmlAttrVid) then begin {self.}XmlAttrVid := new OpenXmlAttribute("", "vid", nil); attributes_[length(attributes_)] := {self.}XmlAttrVid; end {self.}XmlAttrVid.Value := _value; end; function ChartSpace.Create();overload; begin {self.}Create(nil, "c", "chartSpace"); end; function ChartSpace.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function ChartSpace.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 ChartSpace.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "date1904": array(0, makeweakref(thisFunction(ReadXmlChildDate1904))), pre + "lang": array(1, makeweakref(thisFunction(ReadXmlChildLang))), "mc:AlternateContent": array(2, makeweakref(thisFunction(ReadXmlChildAlternateContent))), pre + "chart": array(3, makeweakref(thisFunction(ReadXmlChildChart))), pre + "spPr": array(4, makeweakref(thisFunction(ReadXmlChildSpPr))), pre + "externalData": array(5, makeweakref(thisFunction(ReadXmlChildExternalData))), ); container_ := new TSOfficeContainer(sorted_child_); end; function ChartSpace.Copy(_obj: ChartSpace);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildDate1904) then {self.}Date1904.Copy(_obj.XmlChildDate1904); if not ifnil(_obj.XmlChildLang) then ifnil({self.}XmlChildLang) ? {self.}Lang.Copy(_obj.XmlChildLang) : {self.}XmlChildLang.Copy(_obj.XmlChildLang); if not ifnil(_obj.XmlChildAlternateContent) then {self.}AlternateContent.Copy(_obj.XmlChildAlternateContent); if not ifnil(_obj.XmlChildChart) then {self.}Chart.Copy(_obj.XmlChildChart); if not ifnil(_obj.XmlChildSpPr) then {self.}SpPr.Copy(_obj.XmlChildSpPr); if not ifnil(_obj.XmlChildExternalData) then {self.}ExternalData.Copy(_obj.XmlChildExternalData); tslassigning := tslassigning_backup; end; function ChartSpace.ReadXmlChildLang(); begin if tslassigning then begin if ifnil({self.}XmlChildLang) then begin {self.}XmlChildLang := new OpenXmlEmpty(self, {self.}Prefix, "lang"); container_.Set({self.}XmlChildLang); end return {self.}XmlChildLang; end return ifnil({self.}XmlChildLang) ? nil : {self.}XmlChildLang.BoolValue(); end; function ChartSpace.WriteXmlChildLang(_value); begin if ifnil({self.}XmlChildLang) then begin {self.}XmlChildLang := new OpenXmlEmpty(self, {self.}Prefix, "lang"); container_.Set({self.}XmlChildLang); end {self.}XmlChildLang.Value := _value; end; function ChartSpace.ReadXmlChildDate1904(): PureVal; begin if tslassigning and ifnil({self.}XmlChildDate1904) then begin {self.}XmlChildDate1904 := new PureVal(self, {self.}Prefix, "date1904"); container_.Set({self.}XmlChildDate1904); end return {self.}XmlChildDate1904; end; function ChartSpace.ReadXmlChildAlternateContent(): AlternateContent; begin if tslassigning and ifnil({self.}XmlChildAlternateContent) then begin {self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent"); container_.Set({self.}XmlChildAlternateContent); end return {self.}XmlChildAlternateContent; end; function ChartSpace.ReadXmlChildChart(): Chart; begin if tslassigning and ifnil({self.}XmlChildChart) then begin {self.}XmlChildChart := new Chart(self, {self.}Prefix, "chart"); container_.Set({self.}XmlChildChart); end return {self.}XmlChildChart; end; function ChartSpace.ReadXmlChildSpPr(): SpPr; begin if tslassigning and ifnil({self.}XmlChildSpPr) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr; end; function ChartSpace.ReadXmlChildExternalData(): ExternalData; begin if tslassigning and ifnil({self.}XmlChildExternalData) then begin {self.}XmlChildExternalData := new ExternalData(self, {self.}Prefix, "externalData"); container_.Set({self.}XmlChildExternalData); end return {self.}XmlChildExternalData; end; function Chart.Create();overload; begin {self.}Create(nil, "c", "chart"); end; function Chart.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Chart.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 Chart.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "r:id": makeweakref(thisFunction(WriteXmlAttrId)), ); sorted_child_ := array( pre + "title": array(0, makeweakref(thisFunction(ReadXmlChildTitle))), pre + "autoTitleDeleted": array(1, makeweakref(thisFunction(ReadXmlChildAutoTitleDeleted))), pre + "view3D": array(2, makeweakref(thisFunction(ReadXmlChildView3D))), pre + "plotArea": array(3, makeweakref(thisFunction(ReadXmlChildPlotArea))), pre + "legend": array(4, makeweakref(thisFunction(ReadXmlChildLegend))), pre + "plotVisOnly": array(5, makeweakref(thisFunction(ReadXmlChildPlotVisOnly))), pre + "dispBlanksAs": array(6, makeweakref(thisFunction(ReadXmlChildDispBlanksAs))), pre + "showDLblsOverMax": array(7, makeweakref(thisFunction(ReadXmlChildShowDLblsOverMax))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Chart.Copy(_obj: Chart);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.XmlChildTitle) then {self.}Title.Copy(_obj.XmlChildTitle); if not ifnil(_obj.XmlChildAutoTitleDeleted) then {self.}AutoTitleDeleted.Copy(_obj.XmlChildAutoTitleDeleted); if not ifnil(_obj.XmlChildView3D) then {self.}View3D.Copy(_obj.XmlChildView3D); if not ifnil(_obj.XmlChildPlotArea) then {self.}PlotArea.Copy(_obj.XmlChildPlotArea); if not ifnil(_obj.XmlChildLegend) then {self.}Legend.Copy(_obj.XmlChildLegend); if not ifnil(_obj.XmlChildPlotVisOnly) then {self.}PlotVisOnly.Copy(_obj.XmlChildPlotVisOnly); if not ifnil(_obj.XmlChildDispBlanksAs) then {self.}DispBlanksAs.Copy(_obj.XmlChildDispBlanksAs); if not ifnil(_obj.XmlChildShowDLblsOverMax) then {self.}ShowDLblsOverMax.Copy(_obj.XmlChildShowDLblsOverMax); tslassigning := tslassigning_backup; end; function Chart.ReadXmlAttrId(); begin return {self.}XmlAttrId.Value; end; function Chart.WriteXmlAttrId(_value); begin if ifnil({self.}XmlAttrId) then begin {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); attributes_[length(attributes_)] := {self.}XmlAttrId; end {self.}XmlAttrId.Value := _value; end; function Chart.ReadXmlChildTitle(): Title; begin if tslassigning and ifnil({self.}XmlChildTitle) then begin {self.}XmlChildTitle := new Title(self, {self.}Prefix, "title"); container_.Set({self.}XmlChildTitle); end return {self.}XmlChildTitle; end; function Chart.ReadXmlChildAutoTitleDeleted(): PureVal; begin if tslassigning and ifnil({self.}XmlChildAutoTitleDeleted) then begin {self.}XmlChildAutoTitleDeleted := new PureVal(self, {self.}Prefix, "autoTitleDeleted"); container_.Set({self.}XmlChildAutoTitleDeleted); end return {self.}XmlChildAutoTitleDeleted; end; function Chart.ReadXmlChildView3D(): View3D; begin if tslassigning and ifnil({self.}XmlChildView3D) then begin {self.}XmlChildView3D := new View3D(self, {self.}Prefix, "view3D"); container_.Set({self.}XmlChildView3D); end return {self.}XmlChildView3D; end; function Chart.ReadXmlChildPlotArea(): PlotArea; begin if tslassigning and ifnil({self.}XmlChildPlotArea) then begin {self.}XmlChildPlotArea := new PlotArea(self, {self.}Prefix, "plotArea"); container_.Set({self.}XmlChildPlotArea); end return {self.}XmlChildPlotArea; end; function Chart.ReadXmlChildLegend(): Legend; begin if tslassigning and ifnil({self.}XmlChildLegend) then begin {self.}XmlChildLegend := new Legend(self, {self.}Prefix, "legend"); container_.Set({self.}XmlChildLegend); end return {self.}XmlChildLegend; end; function Chart.ReadXmlChildPlotVisOnly(): PureVal; begin if tslassigning and ifnil({self.}XmlChildPlotVisOnly) then begin {self.}XmlChildPlotVisOnly := new PureVal(self, {self.}Prefix, "plotVisOnly"); container_.Set({self.}XmlChildPlotVisOnly); end return {self.}XmlChildPlotVisOnly; end; function Chart.ReadXmlChildDispBlanksAs(): PureVal; begin if tslassigning and ifnil({self.}XmlChildDispBlanksAs) then begin {self.}XmlChildDispBlanksAs := new PureVal(self, {self.}Prefix, "dispBlanksAs"); container_.Set({self.}XmlChildDispBlanksAs); end return {self.}XmlChildDispBlanksAs; end; function Chart.ReadXmlChildShowDLblsOverMax(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowDLblsOverMax) then begin {self.}XmlChildShowDLblsOverMax := new PureVal(self, {self.}Prefix, "showDLblsOverMax"); container_.Set({self.}XmlChildShowDLblsOverMax); end return {self.}XmlChildShowDLblsOverMax; end; function Legend.Create();overload; begin {self.}Create(nil, "c", "legend"); end; function Legend.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Legend.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 Legend.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "legendPos": array(0, makeweakref(thisFunction(ReadXmlChildLegendPos))), pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))), pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))), pre + "txPr": array(3, makeweakref(thisFunction(ReadXmlChildTxPr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Legend.Copy(_obj: Legend);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildLegendPos) then {self.}LegendPos.Copy(_obj.XmlChildLegendPos); if not ifnil(_obj.XmlChildLayout) then ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); if not ifnil(_obj.XmlChildOverlay) then {self.}Overlay.Copy(_obj.XmlChildOverlay); if not ifnil(_obj.XmlChildTxPr) then {self.}TxPr.Copy(_obj.XmlChildTxPr); tslassigning := tslassigning_backup; end; function Legend.ReadXmlChildLayout(); begin if tslassigning then begin if ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end return {self.}XmlChildLayout; end return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); end; function Legend.WriteXmlChildLayout(_value); begin if ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end {self.}XmlChildLayout.Value := _value; end; function Legend.ReadXmlChildLegendPos(): PureVal; begin if tslassigning and ifnil({self.}XmlChildLegendPos) then begin {self.}XmlChildLegendPos := new PureVal(self, {self.}Prefix, "legendPos"); container_.Set({self.}XmlChildLegendPos); end return {self.}XmlChildLegendPos; end; function Legend.ReadXmlChildOverlay(): PureVal; begin if tslassigning and ifnil({self.}XmlChildOverlay) then begin {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); container_.Set({self.}XmlChildOverlay); end return {self.}XmlChildOverlay; end; function Legend.ReadXmlChildTxPr(): TxPr; begin if tslassigning and ifnil({self.}XmlChildTxPr) then begin {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); container_.Set({self.}XmlChildTxPr); end return {self.}XmlChildTxPr; end; function View3D.Create();overload; begin {self.}Create(nil, "c", "view3D"); end; function View3D.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function View3D.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 View3D.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "rotX": array(0, makeweakref(thisFunction(ReadXmlChildRotX))), pre + "rotY": array(1, makeweakref(thisFunction(ReadXmlChildRotY))), pre + "rAngAx": array(2, makeweakref(thisFunction(ReadXmlChildRAngAx))), ); container_ := new TSOfficeContainer(sorted_child_); end; function View3D.Copy(_obj: View3D);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildRotX) then {self.}RotX.Copy(_obj.XmlChildRotX); if not ifnil(_obj.XmlChildRotY) then {self.}RotY.Copy(_obj.XmlChildRotY); if not ifnil(_obj.XmlChildRAngAx) then {self.}RAngAx.Copy(_obj.XmlChildRAngAx); tslassigning := tslassigning_backup; end; function View3D.ReadXmlChildRotX(): PureVal; begin if tslassigning and ifnil({self.}XmlChildRotX) then begin {self.}XmlChildRotX := new PureVal(self, {self.}Prefix, "rotX"); container_.Set({self.}XmlChildRotX); end return {self.}XmlChildRotX; end; function View3D.ReadXmlChildRotY(): PureVal; begin if tslassigning and ifnil({self.}XmlChildRotY) then begin {self.}XmlChildRotY := new PureVal(self, {self.}Prefix, "rotY"); container_.Set({self.}XmlChildRotY); end return {self.}XmlChildRotY; end; function View3D.ReadXmlChildRAngAx(): PureVal; begin if tslassigning and ifnil({self.}XmlChildRAngAx) then begin {self.}XmlChildRAngAx := new PureVal(self, {self.}Prefix, "rAngAx"); container_.Set({self.}XmlChildRAngAx); end return {self.}XmlChildRAngAx; end; function PlotArea.Create();overload; begin {self.}Create(nil, "c", "plotArea"); end; function PlotArea.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PlotArea.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 PlotArea.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "layout": array(0, makeweakref(thisFunction(ReadXmlChildLayout))), pre + "barChart": array(1, makeweakref(thisFunction(ReadXmlChildBarChart))), pre + "catAx": array(2, makeweakref(thisFunction(ReadXmlChildCatAx))), pre + "ValAx": array(3, makeweakref(thisFunction(ReadXmlChildValAx))), pre + "dTable": array(4, makeweakref(thisFunction(ReadXmlChildDTable))), pre + "SpPr": array(5, makeweakref(thisFunction(ReadXmlChildSpPr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function PlotArea.Copy(_obj: PlotArea);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildLayout) then ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); if not ifnil(_obj.XmlChildBarChart) then {self.}BarChart.Copy(_obj.XmlChildBarChart); if not ifnil(_obj.XmlChildCatAx) then {self.}CatAx.Copy(_obj.XmlChildCatAx); if not ifnil(_obj.XmlChildValAx) then {self.}ValAx.Copy(_obj.XmlChildValAx); if not ifnil(_obj.XmlChildDTable) then {self.}DTable.Copy(_obj.XmlChildDTable); if not ifnil(_obj.XmlChildSpPr) then {self.}SpPr.Copy(_obj.XmlChildSpPr); tslassigning := tslassigning_backup; end; function PlotArea.ReadXmlChildLayout(); begin if tslassigning then begin if ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end return {self.}XmlChildLayout; end return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); end; function PlotArea.WriteXmlChildLayout(_value); begin if ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end {self.}XmlChildLayout.Value := _value; end; function PlotArea.ReadXmlChildBarChart(): BarChart; begin if tslassigning and ifnil({self.}XmlChildBarChart) then begin {self.}XmlChildBarChart := new BarChart(self, {self.}Prefix, "barChart"); container_.Set({self.}XmlChildBarChart); end return {self.}XmlChildBarChart; end; function PlotArea.ReadXmlChildCatAx(): Ax; begin if tslassigning and ifnil({self.}XmlChildCatAx) then begin {self.}XmlChildCatAx := new Ax(self, {self.}Prefix, "catAx"); container_.Set({self.}XmlChildCatAx); end return {self.}XmlChildCatAx; end; function PlotArea.ReadXmlChildValAx(): Ax; begin if tslassigning and ifnil({self.}XmlChildValAx) then begin {self.}XmlChildValAx := new Ax(self, {self.}Prefix, "ValAx"); container_.Set({self.}XmlChildValAx); end return {self.}XmlChildValAx; end; function PlotArea.ReadXmlChildDTable(): DTable; begin if tslassigning and ifnil({self.}XmlChildDTable) then begin {self.}XmlChildDTable := new DTable(self, {self.}Prefix, "dTable"); container_.Set({self.}XmlChildDTable); end return {self.}XmlChildDTable; end; function PlotArea.ReadXmlChildSpPr(): SpPr; begin if tslassigning and ifnil({self.}XmlChildSpPr) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "SpPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr; end; function BarChart.Create();overload; begin {self.}Create(nil, "c", "barChart"); end; function BarChart.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function BarChart.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 BarChart.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "barDir": array(0, makeweakref(thisFunction(ReadXmlChildBarDir))), pre + "grouping": array(1, makeweakref(thisFunction(ReadXmlChildGrouping))), pre + "varyColors": array(2, makeweakref(thisFunction(ReadXmlChildVaryColors))), pre + "ser": array(3, makeweakref(thisFunction(AppendSer))), pre + "gapWidth": array(4, makeweakref(thisFunction(ReadXmlChildGapWidth))), pre + "axId": array(5, makeweakref(thisFunction(AppendAxId))), ); container_ := new TSOfficeContainer(sorted_child_); end; function BarChart.Copy(_obj: BarChart);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildBarDir) then {self.}BarDir.Copy(_obj.XmlChildBarDir); if not ifnil(_obj.XmlChildGrouping) then {self.}Grouping.Copy(_obj.XmlChildGrouping); if not ifnil(_obj.XmlChildVaryColors) then {self.}VaryColors.Copy(_obj.XmlChildVaryColors); if not ifnil(_obj.XmlChildGapWidth) then {self.}GapWidth.Copy(_obj.XmlChildGapWidth); tslassigning := tslassigning_backup; end; function BarChart.ReadXmlChildBarDir(): PureVal; begin if tslassigning and ifnil({self.}XmlChildBarDir) then begin {self.}XmlChildBarDir := new PureVal(self, {self.}Prefix, "barDir"); container_.Set({self.}XmlChildBarDir); end return {self.}XmlChildBarDir; end; function BarChart.ReadXmlChildGrouping(): PureVal; begin if tslassigning and ifnil({self.}XmlChildGrouping) then begin {self.}XmlChildGrouping := new PureVal(self, {self.}Prefix, "grouping"); container_.Set({self.}XmlChildGrouping); end return {self.}XmlChildGrouping; end; function BarChart.ReadXmlChildVaryColors(): PureVal; begin if tslassigning and ifnil({self.}XmlChildVaryColors) then begin {self.}XmlChildVaryColors := new PureVal(self, {self.}Prefix, "varyColors"); container_.Set({self.}XmlChildVaryColors); end return {self.}XmlChildVaryColors; end; function BarChart.ReadXmlChildGapWidth(): PureVal; begin if tslassigning and ifnil({self.}XmlChildGapWidth) then begin {self.}XmlChildGapWidth := new PureVal(self, {self.}Prefix, "gapWidth"); container_.Set({self.}XmlChildGapWidth); end return {self.}XmlChildGapWidth; end; function BarChart.ReadSers(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "ser", ind); end; function BarChart.ReadAxIds(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "axId", ind); end; function BarChart.AddSer(): Ser; begin obj := new Ser(self, {self.}Prefix, "ser"); container_.Insert(obj); return obj; end; function BarChart.AddAxId(): PureVal; begin obj := new PureVal(self, {self.}Prefix, "axId"); container_.Insert(obj); return obj; end; function BarChart.AppendSer(): Ser; begin obj := new Ser(self, {self.}Prefix, "ser"); container_.Append(obj); return obj; end; function BarChart.AppendAxId(): PureVal; begin obj := new PureVal(self, {self.}Prefix, "axId"); container_.Append(obj); return obj; end; function Ser.Create();overload; begin {self.}Create(nil, "c", "ser"); end; function Ser.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Ser.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 Ser.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "idx": array(0, makeweakref(thisFunction(ReadXmlChildIdx))), pre + "order": array(1, makeweakref(thisFunction(ReadXmlChild_Order))), pre + "tx": array(2, makeweakref(thisFunction(ReadXmlChildTx))), pre + "invertIfNegative": array(3, makeweakref(thisFunction(ReadXmlChildInvertIfNegative))), pre + "dLbls": array(4, makeweakref(thisFunction(ReadXmlChildDLbls))), pre + "cat": array(5, makeweakref(thisFunction(ReadXmlChildCat))), pre + "val": array(6, makeweakref(thisFunction(ReadXmlChildVal))), pre + "extLst": array(7, makeweakref(thisFunction(ReadXmlChildExtLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Ser.Copy(_obj: Ser);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildIdx) then {self.}Idx.Copy(_obj.XmlChildIdx); if not ifnil(_obj.XmlChild_Order) then {self.}_Order.Copy(_obj.XmlChild_Order); if not ifnil(_obj.XmlChildTx) then {self.}Tx.Copy(_obj.XmlChildTx); if not ifnil(_obj.XmlChildInvertIfNegative) then {self.}InvertIfNegative.Copy(_obj.XmlChildInvertIfNegative); if not ifnil(_obj.XmlChildDLbls) then {self.}DLbls.Copy(_obj.XmlChildDLbls); if not ifnil(_obj.XmlChildCat) then {self.}Cat.Copy(_obj.XmlChildCat); if not ifnil(_obj.XmlChildVal) then {self.}Val.Copy(_obj.XmlChildVal); if not ifnil(_obj.XmlChildExtLst) then {self.}ExtLst.Copy(_obj.XmlChildExtLst); tslassigning := tslassigning_backup; end; function Ser.ReadXmlChildIdx(): PureVal; begin if tslassigning and ifnil({self.}XmlChildIdx) then begin {self.}XmlChildIdx := new PureVal(self, {self.}Prefix, "idx"); container_.Set({self.}XmlChildIdx); end return {self.}XmlChildIdx; end; function Ser.ReadXmlChild_Order(): PureVal; begin if tslassigning and ifnil({self.}XmlChild_Order) then begin {self.}XmlChild_Order := new PureVal(self, {self.}Prefix, "order"); container_.Set({self.}XmlChild_Order); end return {self.}XmlChild_Order; end; function Ser.ReadXmlChildTx(): Tx; begin if tslassigning and ifnil({self.}XmlChildTx) then begin {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); container_.Set({self.}XmlChildTx); end return {self.}XmlChildTx; end; function Ser.ReadXmlChildInvertIfNegative(): PureVal; begin if tslassigning and ifnil({self.}XmlChildInvertIfNegative) then begin {self.}XmlChildInvertIfNegative := new PureVal(self, {self.}Prefix, "invertIfNegative"); container_.Set({self.}XmlChildInvertIfNegative); end return {self.}XmlChildInvertIfNegative; end; function Ser.ReadXmlChildDLbls(): DLbls; begin if tslassigning and ifnil({self.}XmlChildDLbls) then begin {self.}XmlChildDLbls := new DLbls(self, {self.}Prefix, "dLbls"); container_.Set({self.}XmlChildDLbls); end return {self.}XmlChildDLbls; end; function Ser.ReadXmlChildCat(): Cat; begin if tslassigning and ifnil({self.}XmlChildCat) then begin {self.}XmlChildCat := new Cat(self, {self.}Prefix, "cat"); container_.Set({self.}XmlChildCat); end return {self.}XmlChildCat; end; function Ser.ReadXmlChildVal(): Val; begin if tslassigning and ifnil({self.}XmlChildVal) then begin {self.}XmlChildVal := new Val(self, {self.}Prefix, "val"); container_.Set({self.}XmlChildVal); end return {self.}XmlChildVal; end; function Ser.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and ifnil({self.}XmlChildExtLst) then begin {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst; end; function DLbls.Create();overload; begin {self.}Create(nil, "c", "dLbls"); end; function DLbls.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function DLbls.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 DLbls.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "spPr": array(0, makeweakref(thisFunction(ReadXmlChildSpPr))), pre + "showLegendKey": array(1, makeweakref(thisFunction(ReadXmlChildShowLegendKey))), pre + "showVal": array(2, makeweakref(thisFunction(ReadXmlChildShowVal))), pre + "showCatName": array(3, makeweakref(thisFunction(ReadXmlChildShowCatName))), pre + "showSerName": array(4, makeweakref(thisFunction(ReadXmlChildShowSerName))), pre + "showPercent": array(5, makeweakref(thisFunction(ReadXmlChildShowPercent))), pre + "showBubbleSize": array(6, makeweakref(thisFunction(ReadXmlChildShowBubbleSize))), pre + "showLeaderLines": array(7, makeweakref(thisFunction(ReadXmlChildShowLeaderLines))), pre + "extLst": array(8, makeweakref(thisFunction(ReadXmlChildExtLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function DLbls.Copy(_obj: DLbls);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildSpPr) then {self.}SpPr.Copy(_obj.XmlChildSpPr); if not ifnil(_obj.XmlChildShowLegendKey) then {self.}ShowLegendKey.Copy(_obj.XmlChildShowLegendKey); if not ifnil(_obj.XmlChildShowVal) then {self.}ShowVal.Copy(_obj.XmlChildShowVal); if not ifnil(_obj.XmlChildShowCatName) then {self.}ShowCatName.Copy(_obj.XmlChildShowCatName); if not ifnil(_obj.XmlChildShowSerName) then {self.}ShowSerName.Copy(_obj.XmlChildShowSerName); if not ifnil(_obj.XmlChildShowPercent) then {self.}ShowPercent.Copy(_obj.XmlChildShowPercent); if not ifnil(_obj.XmlChildShowBubbleSize) then {self.}ShowBubbleSize.Copy(_obj.XmlChildShowBubbleSize); if not ifnil(_obj.XmlChildShowLeaderLines) then {self.}ShowLeaderLines.Copy(_obj.XmlChildShowLeaderLines); if not ifnil(_obj.XmlChildExtLst) then {self.}ExtLst.Copy(_obj.XmlChildExtLst); tslassigning := tslassigning_backup; end; function DLbls.ReadXmlChildSpPr(): SpPr; begin if tslassigning and ifnil({self.}XmlChildSpPr) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr; end; function DLbls.ReadXmlChildShowLegendKey(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowLegendKey) then begin {self.}XmlChildShowLegendKey := new PureVal(self, {self.}Prefix, "showLegendKey"); container_.Set({self.}XmlChildShowLegendKey); end return {self.}XmlChildShowLegendKey; end; function DLbls.ReadXmlChildShowVal(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowVal) then begin {self.}XmlChildShowVal := new PureVal(self, {self.}Prefix, "showVal"); container_.Set({self.}XmlChildShowVal); end return {self.}XmlChildShowVal; end; function DLbls.ReadXmlChildShowCatName(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowCatName) then begin {self.}XmlChildShowCatName := new PureVal(self, {self.}Prefix, "showCatName"); container_.Set({self.}XmlChildShowCatName); end return {self.}XmlChildShowCatName; end; function DLbls.ReadXmlChildShowSerName(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowSerName) then begin {self.}XmlChildShowSerName := new PureVal(self, {self.}Prefix, "showSerName"); container_.Set({self.}XmlChildShowSerName); end return {self.}XmlChildShowSerName; end; function DLbls.ReadXmlChildShowPercent(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowPercent) then begin {self.}XmlChildShowPercent := new PureVal(self, {self.}Prefix, "showPercent"); container_.Set({self.}XmlChildShowPercent); end return {self.}XmlChildShowPercent; end; function DLbls.ReadXmlChildShowBubbleSize(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowBubbleSize) then begin {self.}XmlChildShowBubbleSize := new PureVal(self, {self.}Prefix, "showBubbleSize"); container_.Set({self.}XmlChildShowBubbleSize); end return {self.}XmlChildShowBubbleSize; end; function DLbls.ReadXmlChildShowLeaderLines(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowLeaderLines) then begin {self.}XmlChildShowLeaderLines := new PureVal(self, {self.}Prefix, "showLeaderLines"); container_.Set({self.}XmlChildShowLeaderLines); end return {self.}XmlChildShowLeaderLines; end; function DLbls.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and ifnil({self.}XmlChildExtLst) then begin {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst; end; function Cat.Create();overload; begin {self.}Create(nil, "c", "cat"); end; function Cat.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Cat.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 Cat.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Cat.Copy(_obj: Cat);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildStrRef) then {self.}StrRef.Copy(_obj.XmlChildStrRef); tslassigning := tslassigning_backup; end; function Cat.ReadXmlChildStrRef(): StrRef; begin if tslassigning and ifnil({self.}XmlChildStrRef) then begin {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); container_.Set({self.}XmlChildStrRef); end return {self.}XmlChildStrRef; end; function StrRef.Create();overload; begin {self.}Create(nil, "c", "strRef"); end; function StrRef.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function StrRef.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 StrRef.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))), pre + "strCache": array(1, makeweakref(thisFunction(ReadXmlChildStrCache))), ); container_ := new TSOfficeContainer(sorted_child_); end; function StrRef.Copy(_obj: StrRef);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.XmlChildStrCache) then {self.}StrCache.Copy(_obj.XmlChildStrCache); tslassigning := tslassigning_backup; end; function StrRef.ReadXmlChildF(); begin if tslassigning and ifnil({self.}XmlChildF) then begin {self.}XmlChildF := new OpenXmlPcdata(self, {self.}Prefix, "f"); container_.Set({self.}XmlChildF); end return {self.}XmlChildF; end; function StrRef.ReadXmlChildStrCache(): StrCache; begin if tslassigning and ifnil({self.}XmlChildStrCache) then begin {self.}XmlChildStrCache := new StrCache(self, {self.}Prefix, "strCache"); container_.Set({self.}XmlChildStrCache); end return {self.}XmlChildStrCache; end; function Val.Create();overload; begin {self.}Create(nil, "c", "val"); end; function Val.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Val.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 Val.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "numRef": array(0, makeweakref(thisFunction(ReadXmlChildNumRef))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Val.Copy(_obj: Val);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildNumRef) then {self.}NumRef.Copy(_obj.XmlChildNumRef); tslassigning := tslassigning_backup; end; function Val.ReadXmlChildNumRef(): NumRef; begin if tslassigning and ifnil({self.}XmlChildNumRef) then begin {self.}XmlChildNumRef := new NumRef(self, {self.}Prefix, "numRef"); container_.Set({self.}XmlChildNumRef); end return {self.}XmlChildNumRef; end; function NumRef.Create();overload; begin {self.}Create(nil, "c", "numRef"); end; function NumRef.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function NumRef.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 NumRef.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))), pre + "numCache": array(1, makeweakref(thisFunction(ReadXmlChildNumCache))), ); container_ := new TSOfficeContainer(sorted_child_); end; function NumRef.Copy(_obj: NumRef);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.XmlChildNumCache) then {self.}NumCache.Copy(_obj.XmlChildNumCache); tslassigning := tslassigning_backup; end; function NumRef.ReadXmlChildF(); begin if tslassigning and ifnil({self.}XmlChildF) then begin {self.}XmlChildF := new OpenXmlPcdata(self, {self.}Prefix, "f"); container_.Set({self.}XmlChildF); end return {self.}XmlChildF; end; function NumRef.ReadXmlChildNumCache(): NumCache; begin if tslassigning and ifnil({self.}XmlChildNumCache) then begin {self.}XmlChildNumCache := new NumCache(self, {self.}Prefix, "numCache"); container_.Set({self.}XmlChildNumCache); end return {self.}XmlChildNumCache; end; function StrCache.Create();overload; begin {self.}Create(nil, "c", ""); end; function StrCache.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function StrCache.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 StrCache.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "ptCount": array(0, makeweakref(thisFunction(ReadXmlChildPtCount))), pre + "pt": array(1, makeweakref(thisFunction(AppendPt))), ); container_ := new TSOfficeContainer(sorted_child_); end; function StrCache.Copy(_obj: StrCache);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildPtCount) then {self.}PtCount.Copy(_obj.XmlChildPtCount); tslassigning := tslassigning_backup; end; function StrCache.ReadXmlChildPtCount(): PureVal; begin if tslassigning and ifnil({self.}XmlChildPtCount) then begin {self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount"); container_.Set({self.}XmlChildPtCount); end return {self.}XmlChildPtCount; end; function StrCache.ReadPts(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "pt", ind); end; function StrCache.AddPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); container_.Insert(obj); return obj; end; function StrCache.AppendPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); container_.Append(obj); return obj; end; function NumCache.Create();overload; begin {self.}Create(nil, "c", ""); end; function NumCache.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function NumCache.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 NumCache.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "formatCode": array(0, makeweakref(thisFunction(ReadXmlChildFormatCode))), pre + "ptCount": array(1, makeweakref(thisFunction(ReadXmlChildPtCount))), pre + "pt": array(2, makeweakref(thisFunction(AppendPt))), ); container_ := new TSOfficeContainer(sorted_child_); end; function NumCache.Copy(_obj: NumCache);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildFormatCode) then {self.}FormatCode.Copy(_obj.XmlChildFormatCode); if not ifnil(_obj.XmlChildPtCount) then {self.}PtCount.Copy(_obj.XmlChildPtCount); tslassigning := tslassigning_backup; end; function NumCache.ReadXmlChildFormatCode(); begin if tslassigning and ifnil({self.}XmlChildFormatCode) then begin {self.}XmlChildFormatCode := new OpenXmlPcdata(self, {self.}Prefix, "formatCode"); container_.Set({self.}XmlChildFormatCode); end return {self.}XmlChildFormatCode; end; function NumCache.ReadXmlChildPtCount(): PureVal; begin if tslassigning and ifnil({self.}XmlChildPtCount) then begin {self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount"); container_.Set({self.}XmlChildPtCount); end return {self.}XmlChildPtCount; end; function NumCache.ReadPts(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "pt", ind); end; function NumCache.AddPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); container_.Insert(obj); return obj; end; function NumCache.AppendPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); container_.Append(obj); return obj; end; function Pt.Create();overload; begin {self.}Create(nil, "c", "pt"); end; function Pt.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Pt.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 Pt.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "idx": makeweakref(thisFunction(WriteXmlAttrIdx)), ); sorted_child_ := array( pre + "v": array(0, makeweakref(thisFunction(ReadXmlChildV))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Pt.Copy(_obj: Pt);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Idx) then {self.}Idx := _obj.Idx; if not ifnil(_obj.XmlChildV) then {self.}V.Copy(_obj.XmlChildV); tslassigning := tslassigning_backup; end; function Pt.ReadXmlAttrIdx(); begin return {self.}XmlAttrIdx.Value; end; function Pt.WriteXmlAttrIdx(_value); begin if ifnil({self.}XmlAttrIdx) then begin {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); attributes_[length(attributes_)] := {self.}XmlAttrIdx; end {self.}XmlAttrIdx.Value := _value; end; function Pt.ReadXmlChildV(); begin if tslassigning and ifnil({self.}XmlChildV) then begin {self.}XmlChildV := new OpenXmlPcdata(self, {self.}Prefix, "v"); container_.Set({self.}XmlChildV); end return {self.}XmlChildV; end; function Ax.Create();overload; begin {self.}Create(nil, "c", ""); end; function Ax.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Ax.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 Ax.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "axId": array(0, makeweakref(thisFunction(ReadXmlChildAxId))), pre + "scaling": array(1, makeweakref(thisFunction(ReadXmlChildScaling))), pre + "delete": array(2, makeweakref(thisFunction(ReadXmlChild_Delete))), pre + "axPos": array(3, makeweakref(thisFunction(ReadXmlChildAxPos))), pre + "numFmt": array(4, makeweakref(thisFunction(ReadXmlChildNumFmt))), pre + "majorTickMark": array(5, makeweakref(thisFunction(ReadXmlChildMajorTickMark))), pre + "minorTickMark": array(6, makeweakref(thisFunction(ReadXmlChildMinorTickMark))), pre + "tickLblPos": array(7, makeweakref(thisFunction(ReadXmlChildTickLblPos))), pre + "spPr": array(8, makeweakref(thisFunction(ReadXmlChildSpPr))), pre + "txPr": array(9, makeweakref(thisFunction(ReadXmlChildTxPr))), pre + "crossAx": array(10, makeweakref(thisFunction(ReadXmlChildCrossAx))), pre + "crosses": array(11, makeweakref(thisFunction(ReadXmlChildCrosses))), pre + "crossBetween": array(12, makeweakref(thisFunction(ReadXmlChildCrossBetween))), pre + "auto": array(13, makeweakref(thisFunction(ReadXmlChildAuto))), pre + "lblAlgn": array(14, makeweakref(thisFunction(ReadXmlChildLblAlgn))), pre + "lblOffset": array(15, makeweakref(thisFunction(ReadXmlChildLblOffset))), pre + "noMultiLvlLbl": array(16, makeweakref(thisFunction(ReadXmlChildNoMultiLvlLbl))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Ax.Copy(_obj: Ax);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildAxId) then {self.}AxId.Copy(_obj.XmlChildAxId); if not ifnil(_obj.XmlChildScaling) then {self.}Scaling.Copy(_obj.XmlChildScaling); if not ifnil(_obj.XmlChild_Delete) then {self.}_Delete.Copy(_obj.XmlChild_Delete); if not ifnil(_obj.XmlChildAxPos) then {self.}AxPos.Copy(_obj.XmlChildAxPos); if not ifnil(_obj.XmlChildNumFmt) then {self.}NumFmt.Copy(_obj.XmlChildNumFmt); if not ifnil(_obj.XmlChildMajorTickMark) then {self.}MajorTickMark.Copy(_obj.XmlChildMajorTickMark); if not ifnil(_obj.XmlChildMinorTickMark) then {self.}MinorTickMark.Copy(_obj.XmlChildMinorTickMark); if not ifnil(_obj.XmlChildTickLblPos) then {self.}TickLblPos.Copy(_obj.XmlChildTickLblPos); if not ifnil(_obj.XmlChildSpPr) then {self.}SpPr.Copy(_obj.XmlChildSpPr); if not ifnil(_obj.XmlChildTxPr) then {self.}TxPr.Copy(_obj.XmlChildTxPr); if not ifnil(_obj.XmlChildCrossAx) then {self.}CrossAx.Copy(_obj.XmlChildCrossAx); if not ifnil(_obj.XmlChildCrosses) then {self.}Crosses.Copy(_obj.XmlChildCrosses); if not ifnil(_obj.XmlChildCrossBetween) then {self.}CrossBetween.Copy(_obj.XmlChildCrossBetween); if not ifnil(_obj.XmlChildAuto) then {self.}Auto.Copy(_obj.XmlChildAuto); if not ifnil(_obj.XmlChildLblAlgn) then {self.}LblAlgn.Copy(_obj.XmlChildLblAlgn); if not ifnil(_obj.XmlChildLblOffset) then {self.}LblOffset.Copy(_obj.XmlChildLblOffset); if not ifnil(_obj.XmlChildNoMultiLvlLbl) then {self.}NoMultiLvlLbl.Copy(_obj.XmlChildNoMultiLvlLbl); tslassigning := tslassigning_backup; end; function Ax.ReadXmlChildAxId(): PureVal; begin if tslassigning and ifnil({self.}XmlChildAxId) then begin {self.}XmlChildAxId := new PureVal(self, {self.}Prefix, "axId"); container_.Set({self.}XmlChildAxId); end return {self.}XmlChildAxId; end; function Ax.ReadXmlChildScaling(): Scaling; begin if tslassigning and ifnil({self.}XmlChildScaling) then begin {self.}XmlChildScaling := new Scaling(self, {self.}Prefix, "scaling"); container_.Set({self.}XmlChildScaling); end return {self.}XmlChildScaling; end; function Ax.ReadXmlChild_Delete(): PureVal; begin if tslassigning and ifnil({self.}XmlChild_Delete) then begin {self.}XmlChild_Delete := new PureVal(self, {self.}Prefix, "delete"); container_.Set({self.}XmlChild_Delete); end return {self.}XmlChild_Delete; end; function Ax.ReadXmlChildAxPos(): PureVal; begin if tslassigning and ifnil({self.}XmlChildAxPos) then begin {self.}XmlChildAxPos := new PureVal(self, {self.}Prefix, "axPos"); container_.Set({self.}XmlChildAxPos); end return {self.}XmlChildAxPos; end; function Ax.ReadXmlChildNumFmt(): NumFmt; begin if tslassigning and ifnil({self.}XmlChildNumFmt) then begin {self.}XmlChildNumFmt := new NumFmt(self, {self.}Prefix, "numFmt"); container_.Set({self.}XmlChildNumFmt); end return {self.}XmlChildNumFmt; end; function Ax.ReadXmlChildMajorTickMark(): PureVal; begin if tslassigning and ifnil({self.}XmlChildMajorTickMark) then begin {self.}XmlChildMajorTickMark := new PureVal(self, {self.}Prefix, "majorTickMark"); container_.Set({self.}XmlChildMajorTickMark); end return {self.}XmlChildMajorTickMark; end; function Ax.ReadXmlChildMinorTickMark(): PureVal; begin if tslassigning and ifnil({self.}XmlChildMinorTickMark) then begin {self.}XmlChildMinorTickMark := new PureVal(self, {self.}Prefix, "minorTickMark"); container_.Set({self.}XmlChildMinorTickMark); end return {self.}XmlChildMinorTickMark; end; function Ax.ReadXmlChildTickLblPos(): PureVal; begin if tslassigning and ifnil({self.}XmlChildTickLblPos) then begin {self.}XmlChildTickLblPos := new PureVal(self, {self.}Prefix, "tickLblPos"); container_.Set({self.}XmlChildTickLblPos); end return {self.}XmlChildTickLblPos; end; function Ax.ReadXmlChildSpPr(): SpPr; begin if tslassigning and ifnil({self.}XmlChildSpPr) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr; end; function Ax.ReadXmlChildTxPr(): TxPr; begin if tslassigning and ifnil({self.}XmlChildTxPr) then begin {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); container_.Set({self.}XmlChildTxPr); end return {self.}XmlChildTxPr; end; function Ax.ReadXmlChildCrossAx(): PureVal; begin if tslassigning and ifnil({self.}XmlChildCrossAx) then begin {self.}XmlChildCrossAx := new PureVal(self, {self.}Prefix, "crossAx"); container_.Set({self.}XmlChildCrossAx); end return {self.}XmlChildCrossAx; end; function Ax.ReadXmlChildCrosses(): PureVal; begin if tslassigning and ifnil({self.}XmlChildCrosses) then begin {self.}XmlChildCrosses := new PureVal(self, {self.}Prefix, "crosses"); container_.Set({self.}XmlChildCrosses); end return {self.}XmlChildCrosses; end; function Ax.ReadXmlChildCrossBetween(): PureVal; begin if tslassigning and ifnil({self.}XmlChildCrossBetween) then begin {self.}XmlChildCrossBetween := new PureVal(self, {self.}Prefix, "crossBetween"); container_.Set({self.}XmlChildCrossBetween); end return {self.}XmlChildCrossBetween; end; function Ax.ReadXmlChildAuto(): PureVal; begin if tslassigning and ifnil({self.}XmlChildAuto) then begin {self.}XmlChildAuto := new PureVal(self, {self.}Prefix, "auto"); container_.Set({self.}XmlChildAuto); end return {self.}XmlChildAuto; end; function Ax.ReadXmlChildLblAlgn(): PureVal; begin if tslassigning and ifnil({self.}XmlChildLblAlgn) then begin {self.}XmlChildLblAlgn := new PureVal(self, {self.}Prefix, "lblAlgn"); container_.Set({self.}XmlChildLblAlgn); end return {self.}XmlChildLblAlgn; end; function Ax.ReadXmlChildLblOffset(): PureVal; begin if tslassigning and ifnil({self.}XmlChildLblOffset) then begin {self.}XmlChildLblOffset := new PureVal(self, {self.}Prefix, "lblOffset"); container_.Set({self.}XmlChildLblOffset); end return {self.}XmlChildLblOffset; end; function Ax.ReadXmlChildNoMultiLvlLbl(): PureVal; begin if tslassigning and ifnil({self.}XmlChildNoMultiLvlLbl) then begin {self.}XmlChildNoMultiLvlLbl := new PureVal(self, {self.}Prefix, "noMultiLvlLbl"); container_.Set({self.}XmlChildNoMultiLvlLbl); end return {self.}XmlChildNoMultiLvlLbl; end; function NumFmt.Create();overload; begin {self.}Create(nil, "c", "numFmt"); end; function NumFmt.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function NumFmt.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 NumFmt.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "formatCode": makeweakref(thisFunction(WriteXmlAttrFormatCode)), "sourceLinked": makeweakref(thisFunction(WriteXmlAttrSourceLinked)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function NumFmt.Copy(_obj: NumFmt);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.FormatCode) then {self.}FormatCode := _obj.FormatCode; if not ifnil(_obj.SourceLinked) then {self.}SourceLinked := _obj.SourceLinked; tslassigning := tslassigning_backup; end; function NumFmt.ReadXmlAttrFormatCode(); begin return {self.}XmlAttrFormatCode.Value; end; function NumFmt.WriteXmlAttrFormatCode(_value); begin if ifnil({self.}XmlAttrFormatCode) then begin {self.}XmlAttrFormatCode := new OpenXmlAttribute("", "formatCode", nil); attributes_[length(attributes_)] := {self.}XmlAttrFormatCode; end {self.}XmlAttrFormatCode.Value := _value; end; function NumFmt.ReadXmlAttrSourceLinked(); begin return {self.}XmlAttrSourceLinked.Value; end; function NumFmt.WriteXmlAttrSourceLinked(_value); begin if ifnil({self.}XmlAttrSourceLinked) then begin {self.}XmlAttrSourceLinked := new OpenXmlAttribute("", "sourceLinked", nil); attributes_[length(attributes_)] := {self.}XmlAttrSourceLinked; end {self.}XmlAttrSourceLinked.Value := _value; end; function Scaling.Create();overload; begin {self.}Create(nil, "c", "scaling"); end; function Scaling.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Scaling.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 Scaling.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "orientation": array(0, makeweakref(thisFunction(ReadXmlChildOrientation))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Scaling.Copy(_obj: Scaling);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildOrientation) then ifnil({self.}XmlChildOrientation) ? {self.}Orientation.Copy(_obj.XmlChildOrientation) : {self.}XmlChildOrientation.Copy(_obj.XmlChildOrientation); tslassigning := tslassigning_backup; end; function Scaling.ReadXmlChildOrientation(); begin if tslassigning then begin if ifnil({self.}XmlChildOrientation) then begin {self.}XmlChildOrientation := new OpenXmlEmpty(self, {self.}Prefix, "orientation"); container_.Set({self.}XmlChildOrientation); end return {self.}XmlChildOrientation; end return ifnil({self.}XmlChildOrientation) ? nil : {self.}XmlChildOrientation.BoolValue(); end; function Scaling.WriteXmlChildOrientation(_value); begin if ifnil({self.}XmlChildOrientation) then begin {self.}XmlChildOrientation := new OpenXmlEmpty(self, {self.}Prefix, "orientation"); container_.Set({self.}XmlChildOrientation); end {self.}XmlChildOrientation.Value := _value; end; function DTable.Create();overload; begin {self.}Create(nil, "c", "dTable"); end; function DTable.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function DTable.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 DTable.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "showHorzBorder": array(0, makeweakref(thisFunction(ReadXmlChildShowHorzBorder))), pre + "showVertBorder": array(1, makeweakref(thisFunction(ReadXmlChildShowVertBorder))), pre + "showOutline": array(2, makeweakref(thisFunction(ReadXmlChildShowOutline))), pre + "showKeys": array(3, makeweakref(thisFunction(ReadXmlChildShowKeys))), pre + "txPr": array(4, makeweakref(thisFunction(ReadXmlChildTxPr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function DTable.Copy(_obj: DTable);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildShowHorzBorder) then {self.}ShowHorzBorder.Copy(_obj.XmlChildShowHorzBorder); if not ifnil(_obj.XmlChildShowVertBorder) then {self.}ShowVertBorder.Copy(_obj.XmlChildShowVertBorder); if not ifnil(_obj.XmlChildShowOutline) then {self.}ShowOutline.Copy(_obj.XmlChildShowOutline); if not ifnil(_obj.XmlChildShowKeys) then {self.}ShowKeys.Copy(_obj.XmlChildShowKeys); if not ifnil(_obj.XmlChildTxPr) then {self.}TxPr.Copy(_obj.XmlChildTxPr); tslassigning := tslassigning_backup; end; function DTable.ReadXmlChildShowHorzBorder(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowHorzBorder) then begin {self.}XmlChildShowHorzBorder := new PureVal(self, {self.}Prefix, "showHorzBorder"); container_.Set({self.}XmlChildShowHorzBorder); end return {self.}XmlChildShowHorzBorder; end; function DTable.ReadXmlChildShowVertBorder(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowVertBorder) then begin {self.}XmlChildShowVertBorder := new PureVal(self, {self.}Prefix, "showVertBorder"); container_.Set({self.}XmlChildShowVertBorder); end return {self.}XmlChildShowVertBorder; end; function DTable.ReadXmlChildShowOutline(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowOutline) then begin {self.}XmlChildShowOutline := new PureVal(self, {self.}Prefix, "showOutline"); container_.Set({self.}XmlChildShowOutline); end return {self.}XmlChildShowOutline; end; function DTable.ReadXmlChildShowKeys(): PureVal; begin if tslassigning and ifnil({self.}XmlChildShowKeys) then begin {self.}XmlChildShowKeys := new PureVal(self, {self.}Prefix, "showKeys"); container_.Set({self.}XmlChildShowKeys); end return {self.}XmlChildShowKeys; end; function DTable.ReadXmlChildTxPr(): TxPr; begin if tslassigning and ifnil({self.}XmlChildTxPr) then begin {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); container_.Set({self.}XmlChildTxPr); end return {self.}XmlChildTxPr; end; function TxPr.Create();overload; begin {self.}Create(nil, "c", "txPr"); end; function TxPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function TxPr.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 TxPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))), "a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))), "a:p": array(2, makeweakref(thisFunction(AppendP))), ); container_ := new TSOfficeContainer(sorted_child_); end; function TxPr.Copy(_obj: TxPr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildBodyPr) then {self.}BodyPr.Copy(_obj.XmlChildBodyPr); if not ifnil(_obj.XmlChildLstStyle) then ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle); tslassigning := tslassigning_backup; end; function TxPr.ReadXmlChildLstStyle(); begin if tslassigning then begin if ifnil({self.}XmlChildLstStyle) then begin {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); container_.Set({self.}XmlChildLstStyle); end return {self.}XmlChildLstStyle; end return ifnil({self.}XmlChildLstStyle) ? nil : {self.}XmlChildLstStyle.BoolValue(); end; function TxPr.WriteXmlChildLstStyle(_value); begin if ifnil({self.}XmlChildLstStyle) then begin {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); container_.Set({self.}XmlChildLstStyle); end {self.}XmlChildLstStyle.Value := _value; end; function TxPr.ReadXmlChildBodyPr(): BodyPr; begin if tslassigning and ifnil({self.}XmlChildBodyPr) then begin {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); container_.Set({self.}XmlChildBodyPr); end return {self.}XmlChildBodyPr; end; function TxPr.ReadPs(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get("a:p", ind); end; function TxPr.AddP(): P; begin obj := new P(self, "a", "p"); container_.Insert(obj); return obj; end; function TxPr.AppendP(): P; begin obj := new P(self, "a", "p"); container_.Append(obj); return obj; end; function Title.Create();overload; begin {self.}Create(nil, "c", "title"); end; function Title.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Title.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 Title.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "tx": array(0, makeweakref(thisFunction(ReadXmlChildTx))), pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))), pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Title.Copy(_obj: Title);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildTx) then {self.}Tx.Copy(_obj.XmlChildTx); if not ifnil(_obj.XmlChildLayout) then ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); if not ifnil(_obj.XmlChildOverlay) then {self.}Overlay.Copy(_obj.XmlChildOverlay); tslassigning := tslassigning_backup; end; function Title.ReadXmlChildLayout(); begin if tslassigning then begin if ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end return {self.}XmlChildLayout; end return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); end; function Title.WriteXmlChildLayout(_value); begin if ifnil({self.}XmlChildLayout) then begin {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end {self.}XmlChildLayout.Value := _value; end; function Title.ReadXmlChildTx(): Tx; begin if tslassigning and ifnil({self.}XmlChildTx) then begin {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); container_.Set({self.}XmlChildTx); end return {self.}XmlChildTx; end; function Title.ReadXmlChildOverlay(): PureVal; begin if tslassigning and ifnil({self.}XmlChildOverlay) then begin {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); container_.Set({self.}XmlChildOverlay); end return {self.}XmlChildOverlay; end; function Tx.Create();overload; begin {self.}Create(nil, "c", "tx"); end; function Tx.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Tx.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 Tx.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))), pre + "rich": array(1, makeweakref(thisFunction(ReadXmlChildRich))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Tx.Copy(_obj: Tx);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildStrRef) then {self.}StrRef.Copy(_obj.XmlChildStrRef); if not ifnil(_obj.XmlChildRich) then {self.}Rich.Copy(_obj.XmlChildRich); tslassigning := tslassigning_backup; end; function Tx.ReadXmlChildStrRef(): StrRef; begin if tslassigning and ifnil({self.}XmlChildStrRef) then begin {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); container_.Set({self.}XmlChildStrRef); end return {self.}XmlChildStrRef; end; function Tx.ReadXmlChildRich(): Rich; begin if tslassigning and ifnil({self.}XmlChildRich) then begin {self.}XmlChildRich := new Rich(self, {self.}Prefix, "rich"); container_.Set({self.}XmlChildRich); end return {self.}XmlChildRich; end; function Rich.Create();overload; begin {self.}Create(nil, "c", "rich"); end; function Rich.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Rich.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 Rich.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))), "a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))), "a:p": array(2, makeweakref(thisFunction(AppendP))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Rich.Copy(_obj: Rich);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildBodyPr) then {self.}BodyPr.Copy(_obj.XmlChildBodyPr); if not ifnil(_obj.XmlChildLstStyle) then ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle); tslassigning := tslassigning_backup; end; function Rich.ReadXmlChildLstStyle(); begin if tslassigning then begin if ifnil({self.}XmlChildLstStyle) then begin {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); container_.Set({self.}XmlChildLstStyle); end return {self.}XmlChildLstStyle; end return ifnil({self.}XmlChildLstStyle) ? nil : {self.}XmlChildLstStyle.BoolValue(); end; function Rich.WriteXmlChildLstStyle(_value); begin if ifnil({self.}XmlChildLstStyle) then begin {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); container_.Set({self.}XmlChildLstStyle); end {self.}XmlChildLstStyle.Value := _value; end; function Rich.ReadXmlChildBodyPr(): BodyPr; begin if tslassigning and ifnil({self.}XmlChildBodyPr) then begin {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); container_.Set({self.}XmlChildBodyPr); end return {self.}XmlChildBodyPr; end; function Rich.ReadPs(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get("a:p", ind); end; function Rich.AddP(): P; begin obj := new P(self, "a", "p"); container_.Insert(obj); return obj; end; function Rich.AppendP(): P; begin obj := new P(self, "a", "p"); container_.Append(obj); return obj; end; function BodyPr.Create();overload; begin {self.}Create(nil, "a", "bodyPr"); end; function BodyPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function BodyPr.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 BodyPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "rot": makeweakref(thisFunction(WriteXmlAttrRot)), "spcFirstLastPara": makeweakref(thisFunction(WriteXmlAttrSpcFirstLastPara)), "vertOverflow": makeweakref(thisFunction(WriteXmlAttrVertOverflow)), "horzOverflow": makeweakref(thisFunction(WriteXmlAttrHorzOverflow)), "vert": makeweakref(thisFunction(WriteXmlAttrVert)), "wrap": makeweakref(thisFunction(WriteXmlAttrWrap)), "lIns": makeweakref(thisFunction(WriteXmlAttrLIns)), "TIns": makeweakref(thisFunction(WriteXmlAttrTIns)), "rIns": makeweakref(thisFunction(WriteXmlAttrRIns)), "bIns": makeweakref(thisFunction(WriteXmlAttrBIns)), "numCol": makeweakref(thisFunction(WriteXmlAttrNumCol)), "spcCol": makeweakref(thisFunction(WriteXmlAttrSpcCol)), "rtlCol": makeweakref(thisFunction(WriteXmlAttrRtlCol)), "fromWordArt": makeweakref(thisFunction(WriteXmlAttrFromWordArt)), "anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)), "anchorCtr": makeweakref(thisFunction(WriteXmlAttrAnchorCtr)), "forceAA": makeweakref(thisFunction(WriteXmlAttrForceAA)), "compatLnSpc": makeweakref(thisFunction(WriteXmlAttrCompatLnSpc)), ); sorted_child_ := array( "a:prstTxWrap": array(0, makeweakref(thisFunction(ReadXmlChildPrstTxWrap))), "a:noAutofit": array(1, makeweakref(thisFunction(ReadXmlChildNoAutofit))), ); container_ := new TSOfficeContainer(sorted_child_); end; function BodyPr.Copy(_obj: BodyPr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Rot) then {self.}Rot := _obj.Rot; if not ifnil(_obj.SpcFirstLastPara) then {self.}SpcFirstLastPara := _obj.SpcFirstLastPara; if not ifnil(_obj.VertOverflow) then {self.}VertOverflow := _obj.VertOverflow; if not ifnil(_obj.HorzOverflow) then {self.}HorzOverflow := _obj.HorzOverflow; if not ifnil(_obj.Vert) then {self.}Vert := _obj.Vert; if not ifnil(_obj.Wrap) then {self.}Wrap := _obj.Wrap; if not ifnil(_obj.LIns) then {self.}LIns := _obj.LIns; if not ifnil(_obj.TIns) then {self.}TIns := _obj.TIns; if not ifnil(_obj.RIns) then {self.}RIns := _obj.RIns; if not ifnil(_obj.BIns) then {self.}BIns := _obj.BIns; if not ifnil(_obj.NumCol) then {self.}NumCol := _obj.NumCol; if not ifnil(_obj.SpcCol) then {self.}SpcCol := _obj.SpcCol; if not ifnil(_obj.RtlCol) then {self.}RtlCol := _obj.RtlCol; if not ifnil(_obj.FromWordArt) then {self.}FromWordArt := _obj.FromWordArt; if not ifnil(_obj.Anchor) then {self.}Anchor := _obj.Anchor; if not ifnil(_obj.AnchorCtr) then {self.}AnchorCtr := _obj.AnchorCtr; if not ifnil(_obj.ForceAA) then {self.}ForceAA := _obj.ForceAA; if not ifnil(_obj.CompatLnSpc) then {self.}CompatLnSpc := _obj.CompatLnSpc; if not ifnil(_obj.XmlChildPrstTxWrap) then {self.}PrstTxWrap.Copy(_obj.XmlChildPrstTxWrap); if not ifnil(_obj.XmlChildNoAutofit) then ifnil({self.}XmlChildNoAutofit) ? {self.}NoAutofit.Copy(_obj.XmlChildNoAutofit) : {self.}XmlChildNoAutofit.Copy(_obj.XmlChildNoAutofit); tslassigning := tslassigning_backup; end; function BodyPr.ReadXmlAttrRot(); begin return {self.}XmlAttrRot.Value; end; function BodyPr.WriteXmlAttrRot(_value); begin if ifnil({self.}XmlAttrRot) then begin {self.}XmlAttrRot := new OpenXmlAttribute("", "rot", nil); attributes_[length(attributes_)] := {self.}XmlAttrRot; end {self.}XmlAttrRot.Value := _value; end; function BodyPr.ReadXmlAttrSpcFirstLastPara(); begin return {self.}XmlAttrSpcFirstLastPara.Value; end; function BodyPr.WriteXmlAttrSpcFirstLastPara(_value); begin if ifnil({self.}XmlAttrSpcFirstLastPara) then begin {self.}XmlAttrSpcFirstLastPara := new OpenXmlAttribute("", "spcFirstLastPara", nil); attributes_[length(attributes_)] := {self.}XmlAttrSpcFirstLastPara; end {self.}XmlAttrSpcFirstLastPara.Value := _value; end; function BodyPr.ReadXmlAttrVertOverflow(); begin return {self.}XmlAttrVertOverflow.Value; end; function BodyPr.WriteXmlAttrVertOverflow(_value); begin if ifnil({self.}XmlAttrVertOverflow) then begin {self.}XmlAttrVertOverflow := new OpenXmlAttribute("", "vertOverflow", nil); attributes_[length(attributes_)] := {self.}XmlAttrVertOverflow; end {self.}XmlAttrVertOverflow.Value := _value; end; function BodyPr.ReadXmlAttrHorzOverflow(); begin return {self.}XmlAttrHorzOverflow.Value; end; function BodyPr.WriteXmlAttrHorzOverflow(_value); begin if ifnil({self.}XmlAttrHorzOverflow) then begin {self.}XmlAttrHorzOverflow := new OpenXmlAttribute("", "horzOverflow", nil); attributes_[length(attributes_)] := {self.}XmlAttrHorzOverflow; end {self.}XmlAttrHorzOverflow.Value := _value; end; function BodyPr.ReadXmlAttrVert(); begin return {self.}XmlAttrVert.Value; end; function BodyPr.WriteXmlAttrVert(_value); begin if ifnil({self.}XmlAttrVert) then begin {self.}XmlAttrVert := new OpenXmlAttribute("", "vert", nil); attributes_[length(attributes_)] := {self.}XmlAttrVert; end {self.}XmlAttrVert.Value := _value; end; function BodyPr.ReadXmlAttrWrap(); begin return {self.}XmlAttrWrap.Value; end; function BodyPr.WriteXmlAttrWrap(_value); begin if ifnil({self.}XmlAttrWrap) then begin {self.}XmlAttrWrap := new OpenXmlAttribute("", "wrap", nil); attributes_[length(attributes_)] := {self.}XmlAttrWrap; end {self.}XmlAttrWrap.Value := _value; end; function BodyPr.ReadXmlAttrLIns(); begin return {self.}XmlAttrLIns.Value; end; function BodyPr.WriteXmlAttrLIns(_value); begin if ifnil({self.}XmlAttrLIns) then begin {self.}XmlAttrLIns := new OpenXmlAttribute("", "lIns", nil); attributes_[length(attributes_)] := {self.}XmlAttrLIns; end {self.}XmlAttrLIns.Value := _value; end; function BodyPr.ReadXmlAttrTIns(); begin return {self.}XmlAttrTIns.Value; end; function BodyPr.WriteXmlAttrTIns(_value); begin if ifnil({self.}XmlAttrTIns) then begin {self.}XmlAttrTIns := new OpenXmlAttribute("", "TIns", nil); attributes_[length(attributes_)] := {self.}XmlAttrTIns; end {self.}XmlAttrTIns.Value := _value; end; function BodyPr.ReadXmlAttrRIns(); begin return {self.}XmlAttrRIns.Value; end; function BodyPr.WriteXmlAttrRIns(_value); begin if ifnil({self.}XmlAttrRIns) then begin {self.}XmlAttrRIns := new OpenXmlAttribute("", "rIns", nil); attributes_[length(attributes_)] := {self.}XmlAttrRIns; end {self.}XmlAttrRIns.Value := _value; end; function BodyPr.ReadXmlAttrBIns(); begin return {self.}XmlAttrBIns.Value; end; function BodyPr.WriteXmlAttrBIns(_value); begin if ifnil({self.}XmlAttrBIns) then begin {self.}XmlAttrBIns := new OpenXmlAttribute("", "bIns", nil); attributes_[length(attributes_)] := {self.}XmlAttrBIns; end {self.}XmlAttrBIns.Value := _value; end; function BodyPr.ReadXmlAttrNumCol(); begin return {self.}XmlAttrNumCol.Value; end; function BodyPr.WriteXmlAttrNumCol(_value); begin if ifnil({self.}XmlAttrNumCol) then begin {self.}XmlAttrNumCol := new OpenXmlAttribute("", "numCol", nil); attributes_[length(attributes_)] := {self.}XmlAttrNumCol; end {self.}XmlAttrNumCol.Value := _value; end; function BodyPr.ReadXmlAttrSpcCol(); begin return {self.}XmlAttrSpcCol.Value; end; function BodyPr.WriteXmlAttrSpcCol(_value); begin if ifnil({self.}XmlAttrSpcCol) then begin {self.}XmlAttrSpcCol := new OpenXmlAttribute("", "spcCol", nil); attributes_[length(attributes_)] := {self.}XmlAttrSpcCol; end {self.}XmlAttrSpcCol.Value := _value; end; function BodyPr.ReadXmlAttrRtlCol(); begin return {self.}XmlAttrRtlCol.Value; end; function BodyPr.WriteXmlAttrRtlCol(_value); begin if ifnil({self.}XmlAttrRtlCol) then begin {self.}XmlAttrRtlCol := new OpenXmlAttribute("", "rtlCol", nil); attributes_[length(attributes_)] := {self.}XmlAttrRtlCol; end {self.}XmlAttrRtlCol.Value := _value; end; function BodyPr.ReadXmlAttrFromWordArt(); begin return {self.}XmlAttrFromWordArt.Value; end; function BodyPr.WriteXmlAttrFromWordArt(_value); begin if ifnil({self.}XmlAttrFromWordArt) then begin {self.}XmlAttrFromWordArt := new OpenXmlAttribute("", "fromWordArt", nil); attributes_[length(attributes_)] := {self.}XmlAttrFromWordArt; end {self.}XmlAttrFromWordArt.Value := _value; end; function BodyPr.ReadXmlAttrAnchor(); begin return {self.}XmlAttrAnchor.Value; end; function BodyPr.WriteXmlAttrAnchor(_value); begin if ifnil({self.}XmlAttrAnchor) then begin {self.}XmlAttrAnchor := new OpenXmlAttribute("", "anchor", nil); attributes_[length(attributes_)] := {self.}XmlAttrAnchor; end {self.}XmlAttrAnchor.Value := _value; end; function BodyPr.ReadXmlAttrAnchorCtr(); begin return {self.}XmlAttrAnchorCtr.Value; end; function BodyPr.WriteXmlAttrAnchorCtr(_value); begin if ifnil({self.}XmlAttrAnchorCtr) then begin {self.}XmlAttrAnchorCtr := new OpenXmlAttribute("", "anchorCtr", nil); attributes_[length(attributes_)] := {self.}XmlAttrAnchorCtr; end {self.}XmlAttrAnchorCtr.Value := _value; end; function BodyPr.ReadXmlAttrForceAA(); begin return {self.}XmlAttrForceAA.Value; end; function BodyPr.WriteXmlAttrForceAA(_value); begin if ifnil({self.}XmlAttrForceAA) then begin {self.}XmlAttrForceAA := new OpenXmlAttribute("", "forceAA", nil); attributes_[length(attributes_)] := {self.}XmlAttrForceAA; end {self.}XmlAttrForceAA.Value := _value; end; function BodyPr.ReadXmlAttrCompatLnSpc(); begin return {self.}XmlAttrCompatLnSpc.Value; end; function BodyPr.WriteXmlAttrCompatLnSpc(_value); begin if ifnil({self.}XmlAttrCompatLnSpc) then begin {self.}XmlAttrCompatLnSpc := new OpenXmlAttribute("", "compatLnSpc", nil); attributes_[length(attributes_)] := {self.}XmlAttrCompatLnSpc; end {self.}XmlAttrCompatLnSpc.Value := _value; end; function BodyPr.ReadXmlChildNoAutofit(); begin if tslassigning then begin if ifnil({self.}XmlChildNoAutofit) then begin {self.}XmlChildNoAutofit := new OpenXmlEmpty(self, "a", "noAutofit"); container_.Set({self.}XmlChildNoAutofit); end return {self.}XmlChildNoAutofit; end return ifnil({self.}XmlChildNoAutofit) ? nil : {self.}XmlChildNoAutofit.BoolValue(); end; function BodyPr.WriteXmlChildNoAutofit(_value); begin if ifnil({self.}XmlChildNoAutofit) then begin {self.}XmlChildNoAutofit := new OpenXmlEmpty(self, "a", "noAutofit"); container_.Set({self.}XmlChildNoAutofit); end {self.}XmlChildNoAutofit.Value := _value; end; function BodyPr.ReadXmlChildPrstTxWrap(): PrstTxWrap; begin if tslassigning and ifnil({self.}XmlChildPrstTxWrap) then begin {self.}XmlChildPrstTxWrap := new PrstTxWrap(self, "a", "prstTxWrap"); container_.Set({self.}XmlChildPrstTxWrap); end return {self.}XmlChildPrstTxWrap; end; function PrstTxWrap.Create();overload; begin {self.}Create(nil, "a", "prstTxWrap"); end; function PrstTxWrap.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PrstTxWrap.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 PrstTxWrap.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "prst": makeweakref(thisFunction(WriteXmlAttrPrst)), ); sorted_child_ := array( "a:avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function PrstTxWrap.Copy(_obj: PrstTxWrap);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Prst) then {self.}Prst := _obj.Prst; if not ifnil(_obj.XmlChildAvLst) then ifnil({self.}XmlChildAvLst) ? {self.}AvLst.Copy(_obj.XmlChildAvLst) : {self.}XmlChildAvLst.Copy(_obj.XmlChildAvLst); tslassigning := tslassigning_backup; end; function PrstTxWrap.ReadXmlAttrPrst(); begin return {self.}XmlAttrPrst.Value; end; function PrstTxWrap.WriteXmlAttrPrst(_value); begin if ifnil({self.}XmlAttrPrst) then begin {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); attributes_[length(attributes_)] := {self.}XmlAttrPrst; end {self.}XmlAttrPrst.Value := _value; end; function PrstTxWrap.ReadXmlChildAvLst(); begin if tslassigning then begin if ifnil({self.}XmlChildAvLst) then begin {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); container_.Set({self.}XmlChildAvLst); end return {self.}XmlChildAvLst; end return ifnil({self.}XmlChildAvLst) ? nil : {self.}XmlChildAvLst.BoolValue(); end; function PrstTxWrap.WriteXmlChildAvLst(_value); begin if ifnil({self.}XmlChildAvLst) then begin {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); container_.Set({self.}XmlChildAvLst); end {self.}XmlChildAvLst.Value := _value; end; function P.Create();overload; begin {self.}Create(nil, "a", "p"); end; function P.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function P.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 P.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), pre + "endParaRPr": array(1, makeweakref(thisFunction(ReadXmlChildEndParaRPr))), pre + "r": array(2, makeweakref(thisFunction(AppendR))), ); container_ := new TSOfficeContainer(sorted_child_); end; function P.Copy(_obj: P);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildPPr) then {self.}PPr.Copy(_obj.XmlChildPPr); if not ifnil(_obj.XmlChildEndParaRPr) then {self.}EndParaRPr.Copy(_obj.XmlChildEndParaRPr); tslassigning := tslassigning_backup; end; function P.ReadXmlChildPPr(): PPr; begin if tslassigning and ifnil({self.}XmlChildPPr) then begin {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); container_.Set({self.}XmlChildPPr); end return {self.}XmlChildPPr; end; function P.ReadXmlChildEndParaRPr(): RPr; begin if tslassigning and ifnil({self.}XmlChildEndParaRPr) then begin {self.}XmlChildEndParaRPr := new RPr(self, {self.}Prefix, "endParaRPr"); container_.Set({self.}XmlChildEndParaRPr); end return {self.}XmlChildEndParaRPr; end; function P.ReadRs(_index); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "r", ind); end; function P.AddR(): R; begin obj := new R(self, {self.}Prefix, "r"); container_.Insert(obj); return obj; end; function P.AppendR(): R; begin obj := new R(self, {self.}Prefix, "r"); container_.Append(obj); return obj; end; function RPr.Create();overload; begin {self.}Create(nil, "a", "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( "lang": makeweakref(thisFunction(WriteXmlAttrLang)), "altLang": makeweakref(thisFunction(WriteXmlAttrAltLang)), "b": makeweakref(thisFunction(WriteXmlAttrB)), "baseline": makeweakref(thisFunction(WriteXmlAttrBaseline)), "i": makeweakref(thisFunction(WriteXmlAttrI)), "kern": makeweakref(thisFunction(WriteXmlAttrKern)), "spc": makeweakref(thisFunction(WriteXmlAttrSpc)), "strike": makeweakref(thisFunction(WriteXmlAttrStrike)), "sz": makeweakref(thisFunction(WriteXmlAttrSz)), "u": makeweakref(thisFunction(WriteXmlAttrU)), ); sorted_child_ := array( pre + "solidFill": array(0, makeweakref(thisFunction(ReadXmlChildSolidFill))), pre + "latin": array(1, makeweakref(thisFunction(ReadXmlChildLatin))), pre + "ea": array(2, makeweakref(thisFunction(ReadXmlChildEa))), pre + "cs": array(3, makeweakref(thisFunction(ReadXmlChildCs))), ); 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.Lang) then {self.}Lang := _obj.Lang; if not ifnil(_obj.AltLang) then {self.}AltLang := _obj.AltLang; if not ifnil(_obj.B) then {self.}B := _obj.B; if not ifnil(_obj.Baseline) then {self.}Baseline := _obj.Baseline; if not ifnil(_obj.I) then {self.}I := _obj.I; if not ifnil(_obj.Kern) then {self.}Kern := _obj.Kern; if not ifnil(_obj.Spc) then {self.}Spc := _obj.Spc; if not ifnil(_obj.Strike) then {self.}Strike := _obj.Strike; if not ifnil(_obj.Sz) then {self.}Sz := _obj.Sz; if not ifnil(_obj.U) then {self.}U := _obj.U; if not ifnil(_obj.XmlChildSolidFill) then {self.}SolidFill.Copy(_obj.XmlChildSolidFill); if not ifnil(_obj.XmlChildLatin) then {self.}Latin.Copy(_obj.XmlChildLatin); if not ifnil(_obj.XmlChildEa) then {self.}Ea.Copy(_obj.XmlChildEa); if not ifnil(_obj.XmlChildCs) then {self.}Cs.Copy(_obj.XmlChildCs); tslassigning := tslassigning_backup; end; function RPr.ReadXmlAttrLang(); begin return {self.}XmlAttrLang.Value; end; function RPr.WriteXmlAttrLang(_value); begin if ifnil({self.}XmlAttrLang) then begin {self.}XmlAttrLang := new OpenXmlAttribute("", "lang", nil); attributes_[length(attributes_)] := {self.}XmlAttrLang; end {self.}XmlAttrLang.Value := _value; end; function RPr.ReadXmlAttrAltLang(); begin return {self.}XmlAttrAltLang.Value; end; function RPr.WriteXmlAttrAltLang(_value); begin if ifnil({self.}XmlAttrAltLang) then begin {self.}XmlAttrAltLang := new OpenXmlAttribute("", "altLang", nil); attributes_[length(attributes_)] := {self.}XmlAttrAltLang; end {self.}XmlAttrAltLang.Value := _value; end; function RPr.ReadXmlAttrB(); begin return {self.}XmlAttrB.Value; end; function RPr.WriteXmlAttrB(_value); begin if ifnil({self.}XmlAttrB) then begin {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); attributes_[length(attributes_)] := {self.}XmlAttrB; end {self.}XmlAttrB.Value := _value; end; function RPr.ReadXmlAttrBaseline(); begin return {self.}XmlAttrBaseline.Value; end; function RPr.WriteXmlAttrBaseline(_value); begin if ifnil({self.}XmlAttrBaseline) then begin {self.}XmlAttrBaseline := new OpenXmlAttribute("", "baseline", nil); attributes_[length(attributes_)] := {self.}XmlAttrBaseline; end {self.}XmlAttrBaseline.Value := _value; end; function RPr.ReadXmlAttrI(); begin return {self.}XmlAttrI.Value; end; function RPr.WriteXmlAttrI(_value); begin if ifnil({self.}XmlAttrI) then begin {self.}XmlAttrI := new OpenXmlAttribute("", "i", nil); attributes_[length(attributes_)] := {self.}XmlAttrI; end {self.}XmlAttrI.Value := _value; end; function RPr.ReadXmlAttrKern(); begin return {self.}XmlAttrKern.Value; end; function RPr.WriteXmlAttrKern(_value); begin if ifnil({self.}XmlAttrKern) then begin {self.}XmlAttrKern := new OpenXmlAttribute("", "kern", nil); attributes_[length(attributes_)] := {self.}XmlAttrKern; end {self.}XmlAttrKern.Value := _value; end; function RPr.ReadXmlAttrSpc(); begin return {self.}XmlAttrSpc.Value; end; function RPr.WriteXmlAttrSpc(_value); begin if ifnil({self.}XmlAttrSpc) then begin {self.}XmlAttrSpc := new OpenXmlAttribute("", "spc", nil); attributes_[length(attributes_)] := {self.}XmlAttrSpc; end {self.}XmlAttrSpc.Value := _value; end; function RPr.ReadXmlAttrStrike(); begin return {self.}XmlAttrStrike.Value; end; function RPr.WriteXmlAttrStrike(_value); begin if ifnil({self.}XmlAttrStrike) then begin {self.}XmlAttrStrike := new OpenXmlAttribute("", "strike", nil); attributes_[length(attributes_)] := {self.}XmlAttrStrike; end {self.}XmlAttrStrike.Value := _value; end; function RPr.ReadXmlAttrSz(); begin return {self.}XmlAttrSz.Value; end; function RPr.WriteXmlAttrSz(_value); begin if ifnil({self.}XmlAttrSz) then begin {self.}XmlAttrSz := new OpenXmlAttribute("", "sz", nil); attributes_[length(attributes_)] := {self.}XmlAttrSz; end {self.}XmlAttrSz.Value := _value; end; function RPr.ReadXmlAttrU(); begin return {self.}XmlAttrU.Value; end; function RPr.WriteXmlAttrU(_value); begin if ifnil({self.}XmlAttrU) then begin {self.}XmlAttrU := new OpenXmlAttribute("", "u", nil); attributes_[length(attributes_)] := {self.}XmlAttrU; end {self.}XmlAttrU.Value := _value; end; function RPr.ReadXmlChildSolidFill(): SolidFill; begin if tslassigning and ifnil({self.}XmlChildSolidFill) then begin {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); container_.Set({self.}XmlChildSolidFill); end return {self.}XmlChildSolidFill; end; function RPr.ReadXmlChildLatin(): Latin; begin if tslassigning and ifnil({self.}XmlChildLatin) then begin {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); container_.Set({self.}XmlChildLatin); end return {self.}XmlChildLatin; end; function RPr.ReadXmlChildEa(): Latin; begin if tslassigning and ifnil({self.}XmlChildEa) then begin {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); container_.Set({self.}XmlChildEa); end return {self.}XmlChildEa; end; function RPr.ReadXmlChildCs(): Latin; begin if tslassigning and ifnil({self.}XmlChildCs) then begin {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); container_.Set({self.}XmlChildCs); end return {self.}XmlChildCs; end; function PPr.Create();overload; begin {self.}Create(nil, "a", "pPr"); end; function PPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PPr.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 PPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "defRPr": array(0, makeweakref(thisFunction(ReadXmlChildDefRPr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function PPr.Copy(_obj: PPr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildDefRPr) then {self.}DefRPr.Copy(_obj.XmlChildDefRPr); tslassigning := tslassigning_backup; end; function PPr.ReadXmlChildDefRPr(): RPr; begin if tslassigning and ifnil({self.}XmlChildDefRPr) then begin {self.}XmlChildDefRPr := new RPr(self, {self.}Prefix, "defRPr"); container_.Set({self.}XmlChildDefRPr); end return {self.}XmlChildDefRPr; end; function Latin.Create();overload; begin {self.}Create(nil, "a", "latin"); end; function Latin.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Latin.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 Latin.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function Latin.Copy(_obj: Latin);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Typeface) then {self.}Typeface := _obj.Typeface; tslassigning := tslassigning_backup; end; function Latin.ReadXmlAttrTypeface(); begin return {self.}XmlAttrTypeface.Value; end; function Latin.WriteXmlAttrTypeface(_value); begin if ifnil({self.}XmlAttrTypeface) then begin {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); attributes_[length(attributes_)] := {self.}XmlAttrTypeface; end {self.}XmlAttrTypeface.Value := _value; end; function R.Create();overload; begin {self.}Create(nil, "a", "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))), pre + "t": array(1, 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.XmlChildT) then {self.}T.Copy(_obj.XmlChildT); tslassigning := tslassigning_backup; end; function R.ReadXmlChildRPr(): RPr; begin 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.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 ExternalData.Create();overload; begin {self.}Create(nil, "c", "externalData"); end; function ExternalData.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function ExternalData.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 ExternalData.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "r:id": makeweakref(thisFunction(WriteXmlAttrId)), ); sorted_child_ := array( pre + "autoUpdate": array(0, makeweakref(thisFunction(ReadXmlChildAutoUpdate))), ); container_ := new TSOfficeContainer(sorted_child_); end; function ExternalData.Copy(_obj: ExternalData);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.XmlChildAutoUpdate) then {self.}AutoUpdate.Copy(_obj.XmlChildAutoUpdate); tslassigning := tslassigning_backup; end; function ExternalData.ReadXmlAttrId(); begin return {self.}XmlAttrId.Value; end; function ExternalData.WriteXmlAttrId(_value); begin if ifnil({self.}XmlAttrId) then begin {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); attributes_[length(attributes_)] := {self.}XmlAttrId; end {self.}XmlAttrId.Value := _value; end; function ExternalData.ReadXmlChildAutoUpdate(): PureVal; begin if tslassigning and ifnil({self.}XmlChildAutoUpdate) then begin {self.}XmlChildAutoUpdate := new PureVal(self, {self.}Prefix, "autoUpdate"); container_.Set({self.}XmlChildAutoUpdate); end return {self.}XmlChildAutoUpdate; end; function _Inline.Create();overload; begin {self.}Create(nil, "wp", "inline"); end; function _Inline.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function _Inline.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 _Inline.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "distT": makeweakref(thisFunction(WriteXmlAttrDistT)), "distB": makeweakref(thisFunction(WriteXmlAttrDistB)), "distL": makeweakref(thisFunction(WriteXmlAttrDistL)), "distR": makeweakref(thisFunction(WriteXmlAttrDistR)), "wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), "wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)), ); sorted_child_ := array( pre + "extent": array(0, makeweakref(thisFunction(ReadXmlChildExtent))), pre + "effectExtent": array(1, makeweakref(thisFunction(ReadXmlChildEffectExtent))), pre + "docPr": array(2, makeweakref(thisFunction(ReadXmlChildDocPr))), pre + "cNvGraphicFramePr": array(3, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))), "a:graphic": array(4, makeweakref(thisFunction(ReadXmlChildGraphic))), ); container_ := new TSOfficeContainer(sorted_child_); end; function _Inline.Copy(_obj: _Inline);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.DistT) then {self.}DistT := _obj.DistT; if not ifnil(_obj.DistB) then {self.}DistB := _obj.DistB; if not ifnil(_obj.DistL) then {self.}DistL := _obj.DistL; if not ifnil(_obj.DistR) then {self.}DistR := _obj.DistR; if not ifnil(_obj.AnchorId) then {self.}AnchorId := _obj.AnchorId; if not ifnil(_obj.EditId) then {self.}EditId := _obj.EditId; if not ifnil(_obj.XmlChildExtent) then {self.}Extent.Copy(_obj.XmlChildExtent); if not ifnil(_obj.XmlChildEffectExtent) then {self.}EffectExtent.Copy(_obj.XmlChildEffectExtent); if not ifnil(_obj.XmlChildDocPr) then {self.}DocPr.Copy(_obj.XmlChildDocPr); if not ifnil(_obj.XmlChildCNvGraphicFramePr) then {self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr); if not ifnil(_obj.XmlChildGraphic) then {self.}Graphic.Copy(_obj.XmlChildGraphic); tslassigning := tslassigning_backup; end; function _Inline.ReadXmlAttrDistT(); begin return {self.}XmlAttrDistT.Value; end; function _Inline.WriteXmlAttrDistT(_value); begin if ifnil({self.}XmlAttrDistT) then begin {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistT; end {self.}XmlAttrDistT.Value := _value; end; function _Inline.ReadXmlAttrDistB(); begin return {self.}XmlAttrDistB.Value; end; function _Inline.WriteXmlAttrDistB(_value); begin if ifnil({self.}XmlAttrDistB) then begin {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistB; end {self.}XmlAttrDistB.Value := _value; end; function _Inline.ReadXmlAttrDistL(); begin return {self.}XmlAttrDistL.Value; end; function _Inline.WriteXmlAttrDistL(_value); begin if ifnil({self.}XmlAttrDistL) then begin {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistL; end {self.}XmlAttrDistL.Value := _value; end; function _Inline.ReadXmlAttrDistR(); begin return {self.}XmlAttrDistR.Value; end; function _Inline.WriteXmlAttrDistR(_value); begin if ifnil({self.}XmlAttrDistR) then begin {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistR; end {self.}XmlAttrDistR.Value := _value; end; function _Inline.ReadXmlAttrAnchorId(); begin return {self.}XmlAttrAnchorId.Value; end; function _Inline.WriteXmlAttrAnchorId(_value); begin if ifnil({self.}XmlAttrAnchorId) then begin {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; end {self.}XmlAttrAnchorId.Value := _value; end; function _Inline.ReadXmlAttrEditId(); begin return {self.}XmlAttrEditId.Value; end; function _Inline.WriteXmlAttrEditId(_value); begin if ifnil({self.}XmlAttrEditId) then begin {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); attributes_[length(attributes_)] := {self.}XmlAttrEditId; end {self.}XmlAttrEditId.Value := _value; end; function _Inline.ReadXmlChildExtent(): CXY; begin if tslassigning and ifnil({self.}XmlChildExtent) then begin {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); container_.Set({self.}XmlChildExtent); end return {self.}XmlChildExtent; end; function _Inline.ReadXmlChildEffectExtent(): EffectExtent; begin if tslassigning and ifnil({self.}XmlChildEffectExtent) then begin {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); container_.Set({self.}XmlChildEffectExtent); end return {self.}XmlChildEffectExtent; end; function _Inline.ReadXmlChildDocPr(): DocPr; begin if tslassigning and ifnil({self.}XmlChildDocPr) then begin {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); container_.Set({self.}XmlChildDocPr); end return {self.}XmlChildDocPr; end; function _Inline.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; begin if tslassigning and ifnil({self.}XmlChildCNvGraphicFramePr) then begin {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); container_.Set({self.}XmlChildCNvGraphicFramePr); end return {self.}XmlChildCNvGraphicFramePr; end; function _Inline.ReadXmlChildGraphic(): Graphic; begin if tslassigning and ifnil({self.}XmlChildGraphic) then begin {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); container_.Set({self.}XmlChildGraphic); end return {self.}XmlChildGraphic; end; function EffectExtent.Create();overload; begin {self.}Create(nil, "wp", "effectExtent"); end; function EffectExtent.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function EffectExtent.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 EffectExtent.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "l": makeweakref(thisFunction(WriteXmlAttrL)), "t": makeweakref(thisFunction(WriteXmlAttrT)), "r": makeweakref(thisFunction(WriteXmlAttrR)), "b": makeweakref(thisFunction(WriteXmlAttrB)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function EffectExtent.Copy(_obj: EffectExtent);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.L) then {self.}L := _obj.L; if not ifnil(_obj.T) then {self.}T := _obj.T; if not ifnil(_obj.R) then {self.}R := _obj.R; if not ifnil(_obj.B) then {self.}B := _obj.B; tslassigning := tslassigning_backup; end; function EffectExtent.ReadXmlAttrL(); begin return {self.}XmlAttrL.Value; end; function EffectExtent.WriteXmlAttrL(_value); begin if ifnil({self.}XmlAttrL) then begin {self.}XmlAttrL := new OpenXmlAttribute("", "l", nil); attributes_[length(attributes_)] := {self.}XmlAttrL; end {self.}XmlAttrL.Value := _value; end; function EffectExtent.ReadXmlAttrT(); begin return {self.}XmlAttrT.Value; end; function EffectExtent.WriteXmlAttrT(_value); begin if ifnil({self.}XmlAttrT) then begin {self.}XmlAttrT := new OpenXmlAttribute("", "t", nil); attributes_[length(attributes_)] := {self.}XmlAttrT; end {self.}XmlAttrT.Value := _value; end; function EffectExtent.ReadXmlAttrR(); begin return {self.}XmlAttrR.Value; end; function EffectExtent.WriteXmlAttrR(_value); begin if ifnil({self.}XmlAttrR) then begin {self.}XmlAttrR := new OpenXmlAttribute("", "r", nil); attributes_[length(attributes_)] := {self.}XmlAttrR; end {self.}XmlAttrR.Value := _value; end; function EffectExtent.ReadXmlAttrB(); begin return {self.}XmlAttrB.Value; end; function EffectExtent.WriteXmlAttrB(_value); begin if ifnil({self.}XmlAttrB) then begin {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); attributes_[length(attributes_)] := {self.}XmlAttrB; end {self.}XmlAttrB.Value := _value; end; function DocPr.Create();overload; begin {self.}Create(nil, "wp", "docPr"); end; function DocPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function DocPr.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 DocPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "id": makeweakref(thisFunction(WriteXmlAttrId)), "name": makeweakref(thisFunction(WriteXmlAttrName)), "descr": makeweakref(thisFunction(WriteXmlAttrDescr)), ); sorted_child_ := array( pre + "extLst": array(0, makeweakref(thisFunction(ReadXmlChildExtLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function DocPr.Copy(_obj: DocPr);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.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.Descr) then {self.}Descr := _obj.Descr; if not ifnil(_obj.XmlChildExtLst) then {self.}ExtLst.Copy(_obj.XmlChildExtLst); tslassigning := tslassigning_backup; end; function DocPr.ReadXmlAttrId(); begin return {self.}XmlAttrId.Value; end; function DocPr.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 DocPr.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function DocPr.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function DocPr.ReadXmlAttrDescr(); begin return {self.}XmlAttrDescr.Value; end; function DocPr.WriteXmlAttrDescr(_value); begin if ifnil({self.}XmlAttrDescr) then begin {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); attributes_[length(attributes_)] := {self.}XmlAttrDescr; end {self.}XmlAttrDescr.Value := _value; end; function DocPr.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and ifnil({self.}XmlChildExtLst) then begin {self.}XmlChildExtLst := new DrawingML.ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst; end; function CNvGraphicFramePr.Create();overload; begin {self.}Create(nil, "w", "cNvGraphicFramePr"); end; function CNvGraphicFramePr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function CNvGraphicFramePr.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 CNvGraphicFramePr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "graphicFrameLocks": array(0, makeweakref(thisFunction(ReadXmlChildGraphicFrameLocks))), ); container_ := new TSOfficeContainer(sorted_child_); end; function CNvGraphicFramePr.Copy(_obj: CNvGraphicFramePr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildGraphicFrameLocks) then {self.}GraphicFrameLocks.Copy(_obj.XmlChildGraphicFrameLocks); tslassigning := tslassigning_backup; end; function CNvGraphicFramePr.ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks; begin if tslassigning and ifnil({self.}XmlChildGraphicFrameLocks) then begin {self.}XmlChildGraphicFrameLocks := new GraphicFrameLocks(self, {self.}Prefix, "graphicFrameLocks"); container_.Set({self.}XmlChildGraphicFrameLocks); end return {self.}XmlChildGraphicFrameLocks; end; function GraphicFrameLocks.Create();overload; begin {self.}Create(nil, "", ""); end; function GraphicFrameLocks.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function GraphicFrameLocks.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 GraphicFrameLocks.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function GraphicFrameLocks.Copy(_obj: GraphicFrameLocks);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.NoChangeAspect) then {self.}NoChangeAspect := _obj.NoChangeAspect; tslassigning := tslassigning_backup; end; function GraphicFrameLocks.ReadXmlAttrNoChangeAspect(); begin return {self.}XmlAttrNoChangeAspect.Value; end; function GraphicFrameLocks.WriteXmlAttrNoChangeAspect(_value); begin if ifnil({self.}XmlAttrNoChangeAspect) then begin {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); attributes_[length(attributes_)] := {self.}XmlAttrNoChangeAspect; end {self.}XmlAttrNoChangeAspect.Value := _value; end; function Graphic.Create();overload; begin {self.}Create(nil, "a", "graphic"); end; function Graphic.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Graphic.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 Graphic.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "a:graphicData": array(0, makeweakref(thisFunction(ReadXmlChildGraphicData))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Graphic.Copy(_obj: Graphic);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildGraphicData) then {self.}GraphicData.Copy(_obj.XmlChildGraphicData); tslassigning := tslassigning_backup; end; function Graphic.ReadXmlChildGraphicData(): GraphicData; begin if tslassigning and ifnil({self.}XmlChildGraphicData) then begin {self.}XmlChildGraphicData := new GraphicData(self, "a", "graphicData"); container_.Set({self.}XmlChildGraphicData); end return {self.}XmlChildGraphicData; end; function GraphicData.Create();overload; begin {self.}Create(nil, "a", "graphicData"); end; function GraphicData.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function GraphicData.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 GraphicData.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "uri": makeweakref(thisFunction(WriteXmlAttrUri)), ); sorted_child_ := array( "pic:pic": array(0, makeweakref(thisFunction(ReadXmlChildPic))), "c:chart": array(1, makeweakref(thisFunction(ReadXmlChildChart))), "wps:wsp": array(2, makeweakref(thisFunction(ReadXmlChildWsp))), ); container_ := new TSOfficeContainer(sorted_child_); end; function GraphicData.Copy(_obj: GraphicData);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Uri) then {self.}Uri := _obj.Uri; if not ifnil(_obj.XmlChildPic) then {self.}Pic.Copy(_obj.XmlChildPic); if not ifnil(_obj.XmlChildChart) then {self.}Chart.Copy(_obj.XmlChildChart); if not ifnil(_obj.XmlChildWsp) then {self.}Wsp.Copy(_obj.XmlChildWsp); tslassigning := tslassigning_backup; end; function GraphicData.ReadXmlAttrUri(); begin return {self.}XmlAttrUri.Value; end; function GraphicData.WriteXmlAttrUri(_value); begin if ifnil({self.}XmlAttrUri) then begin {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); attributes_[length(attributes_)] := {self.}XmlAttrUri; end {self.}XmlAttrUri.Value := _value; end; function GraphicData.ReadXmlChildPic(): Pic; begin if tslassigning and ifnil({self.}XmlChildPic) then begin {self.}XmlChildPic := new Pic(self, "pic", "pic"); container_.Set({self.}XmlChildPic); end return {self.}XmlChildPic; end; function GraphicData.ReadXmlChildChart(): Chart; begin if tslassigning and ifnil({self.}XmlChildChart) then begin {self.}XmlChildChart := new Chart(self, "c", "chart"); container_.Set({self.}XmlChildChart); end return {self.}XmlChildChart; end; function GraphicData.ReadXmlChildWsp(): Wsp; begin if tslassigning and ifnil({self.}XmlChildWsp) then begin {self.}XmlChildWsp := new Wsp(self, "wps", "wsp"); container_.Set({self.}XmlChildWsp); end return {self.}XmlChildWsp; end; function Wsp.Create();overload; begin {self.}Create(nil, "wps", "wsp"); end; function Wsp.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Wsp.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 Wsp.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "cNvSpPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvSpPr))), pre + "spPr": array(1, makeweakref(thisFunction(ReadXmlChildSpPr))), pre + "txbx": array(2, makeweakref(thisFunction(ReadXmlChildTxbx))), pre + "style": array(3, makeweakref(thisFunction(ReadXmlChildStyle))), pre + "bodyPr": array(4, makeweakref(thisFunction(ReadXmlChildBodyPr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Wsp.Copy(_obj: Wsp);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildCNvSpPr) then {self.}CNvSpPr.Copy(_obj.XmlChildCNvSpPr); if not ifnil(_obj.XmlChildSpPr) then {self.}SpPr.Copy(_obj.XmlChildSpPr); if not ifnil(_obj.XmlChildTxbx) then {self.}Txbx.Copy(_obj.XmlChildTxbx); if not ifnil(_obj.XmlChildStyle) then {self.}Style.Copy(_obj.XmlChildStyle); if not ifnil(_obj.XmlChildBodyPr) then {self.}BodyPr.Copy(_obj.XmlChildBodyPr); tslassigning := tslassigning_backup; end; function Wsp.ReadXmlChildCNvSpPr(): CNvSpPr; begin if tslassigning and ifnil({self.}XmlChildCNvSpPr) then begin {self.}XmlChildCNvSpPr := new CNvSpPr(self, {self.}Prefix, "cNvSpPr"); container_.Set({self.}XmlChildCNvSpPr); end return {self.}XmlChildCNvSpPr; end; function Wsp.ReadXmlChildSpPr(): SpPr; begin if tslassigning and ifnil({self.}XmlChildSpPr) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr; end; function Wsp.ReadXmlChildTxbx(): Txbx; begin if tslassigning and ifnil({self.}XmlChildTxbx) then begin {self.}XmlChildTxbx := new Txbx(self, {self.}Prefix, "txbx"); container_.Set({self.}XmlChildTxbx); end return {self.}XmlChildTxbx; end; function Wsp.ReadXmlChildStyle(): WpsStyle; begin if tslassigning and ifnil({self.}XmlChildStyle) then begin {self.}XmlChildStyle := new WpsStyle(self, {self.}Prefix, "style"); container_.Set({self.}XmlChildStyle); end return {self.}XmlChildStyle; end; function Wsp.ReadXmlChildBodyPr(): BodyPr; begin if tslassigning and ifnil({self.}XmlChildBodyPr) then begin {self.}XmlChildBodyPr := new BodyPr(self, {self.}Prefix, "bodyPr"); container_.Set({self.}XmlChildBodyPr); end return {self.}XmlChildBodyPr; end; function WpsStyle.Create();overload; begin {self.}Create(nil, "wps", "style"); end; function WpsStyle.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function WpsStyle.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 WpsStyle.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "a:lnRef": array(0, makeweakref(thisFunction(ReadXmlChildLnRef))), "a:fillRef": array(1, makeweakref(thisFunction(ReadXmlChildFillRef))), "a:effectRef": array(2, makeweakref(thisFunction(ReadXmlChildEffectRef))), "a:fontRef": array(3, makeweakref(thisFunction(ReadXmlChildFontRef))), ); container_ := new TSOfficeContainer(sorted_child_); end; function WpsStyle.Copy(_obj: WpsStyle);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildLnRef) then {self.}LnRef.Copy(_obj.XmlChildLnRef); if not ifnil(_obj.XmlChildFillRef) then {self.}FillRef.Copy(_obj.XmlChildFillRef); if not ifnil(_obj.XmlChildEffectRef) then {self.}EffectRef.Copy(_obj.XmlChildEffectRef); if not ifnil(_obj.XmlChildFontRef) then {self.}FontRef.Copy(_obj.XmlChildFontRef); tslassigning := tslassigning_backup; end; function WpsStyle.ReadXmlChildLnRef(): XRef; begin if tslassigning and ifnil({self.}XmlChildLnRef) then begin {self.}XmlChildLnRef := new XRef(self, "a", "lnRef"); container_.Set({self.}XmlChildLnRef); end return {self.}XmlChildLnRef; end; function WpsStyle.ReadXmlChildFillRef(): XRef; begin if tslassigning and ifnil({self.}XmlChildFillRef) then begin {self.}XmlChildFillRef := new XRef(self, "a", "fillRef"); container_.Set({self.}XmlChildFillRef); end return {self.}XmlChildFillRef; end; function WpsStyle.ReadXmlChildEffectRef(): XRef; begin if tslassigning and ifnil({self.}XmlChildEffectRef) then begin {self.}XmlChildEffectRef := new XRef(self, "a", "effectRef"); container_.Set({self.}XmlChildEffectRef); end return {self.}XmlChildEffectRef; end; function WpsStyle.ReadXmlChildFontRef(): XRef; begin if tslassigning and ifnil({self.}XmlChildFontRef) then begin {self.}XmlChildFontRef := new XRef(self, "a", "fontRef"); container_.Set({self.}XmlChildFontRef); end return {self.}XmlChildFontRef; end; function XRef.Create();overload; begin {self.}Create(nil, "a", "lnRef"); end; function XRef.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function XRef.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 XRef.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "idx": makeweakref(thisFunction(WriteXmlAttrIdx)), ); sorted_child_ := array( "a:schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function XRef.Copy(_obj: XRef);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Idx) then {self.}Idx := _obj.Idx; if not ifnil(_obj.XmlChildSchemeClr) then {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); tslassigning := tslassigning_backup; end; function XRef.ReadXmlAttrIdx(); begin return {self.}XmlAttrIdx.Value; end; function XRef.WriteXmlAttrIdx(_value); begin if ifnil({self.}XmlAttrIdx) then begin {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); attributes_[length(attributes_)] := {self.}XmlAttrIdx; end {self.}XmlAttrIdx.Value := _value; end; function XRef.ReadXmlChildSchemeClr(): SchemeClr; begin if tslassigning and ifnil({self.}XmlChildSchemeClr) then begin {self.}XmlChildSchemeClr := new SchemeClr(self, "a", "schemeClr"); container_.Set({self.}XmlChildSchemeClr); end return {self.}XmlChildSchemeClr; end; function Txbx.Create();overload; begin {self.}Create(nil, "wps", "txbx"); end; function Txbx.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Txbx.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 Txbx.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "w:txbxContent": array(0, makeweakref(thisFunction(ReadXmlChildTxbxContent))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Txbx.Copy(_obj: Txbx);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildTxbxContent) then {self.}TxbxContent.Copy(_obj.XmlChildTxbxContent); tslassigning := tslassigning_backup; end; function Txbx.ReadXmlChildTxbxContent(): TxbxContent; begin if tslassigning and ifnil({self.}XmlChildTxbxContent) then begin {self.}XmlChildTxbxContent := new TxbxContent(self, "w", "txbxContent"); container_.Set({self.}XmlChildTxbxContent); end return {self.}XmlChildTxbxContent; end; function CNvSpPr.Create();overload; begin {self.}Create(nil, "wps", "cNvSpPr"); end; function CNvSpPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function CNvSpPr.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 CNvSpPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "txBox": makeweakref(thisFunction(WriteXmlAttrTxBox)), ); sorted_child_ := array( "a:spLocks": array(0, makeweakref(thisFunction(ReadXmlChildSpLocks))), ); container_ := new TSOfficeContainer(sorted_child_); end; function CNvSpPr.Copy(_obj: CNvSpPr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.TxBox) then {self.}TxBox := _obj.TxBox; if not ifnil(_obj.XmlChildSpLocks) then {self.}SpLocks.Copy(_obj.XmlChildSpLocks); tslassigning := tslassigning_backup; end; function CNvSpPr.ReadXmlAttrTxBox(); begin return {self.}XmlAttrTxBox.Value; end; function CNvSpPr.WriteXmlAttrTxBox(_value); begin if ifnil({self.}XmlAttrTxBox) then begin {self.}XmlAttrTxBox := new OpenXmlAttribute("", "txBox", nil); attributes_[length(attributes_)] := {self.}XmlAttrTxBox; end {self.}XmlAttrTxBox.Value := _value; end; function CNvSpPr.ReadXmlChildSpLocks(): SpLocks; begin if tslassigning and ifnil({self.}XmlChildSpLocks) then begin {self.}XmlChildSpLocks := new SpLocks(self, "a", "spLocks"); container_.Set({self.}XmlChildSpLocks); end return {self.}XmlChildSpLocks; end; function SpLocks.Create();overload; begin {self.}Create(nil, "a", "spLocks"); end; function SpLocks.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SpLocks.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 SpLocks.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "noChangeArrowheads": makeweakref(thisFunction(WriteXmlAttrNoChangeArrowheads)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function SpLocks.Copy(_obj: SpLocks);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.NoChangeArrowheads) then {self.}NoChangeArrowheads := _obj.NoChangeArrowheads; tslassigning := tslassigning_backup; end; function SpLocks.ReadXmlAttrNoChangeArrowheads(); begin return {self.}XmlAttrNoChangeArrowheads.Value; end; function SpLocks.WriteXmlAttrNoChangeArrowheads(_value); begin if ifnil({self.}XmlAttrNoChangeArrowheads) then begin {self.}XmlAttrNoChangeArrowheads := new OpenXmlAttribute("", "noChangeArrowheads", nil); attributes_[length(attributes_)] := {self.}XmlAttrNoChangeArrowheads; end {self.}XmlAttrNoChangeArrowheads.Value := _value; end; function Pic.Create();overload; begin {self.}Create(nil, "pic", "pic"); end; function Pic.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Pic.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 Pic.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "nvPicPr": array(0, makeweakref(thisFunction(ReadXmlChildNvPicPr))), pre + "blipFill": array(1, makeweakref(thisFunction(ReadXmlChildBlipFill))), pre + "spPr": array(2, makeweakref(thisFunction(ReadXmlChildSpPr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Pic.Copy(_obj: Pic);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildNvPicPr) then {self.}NvPicPr.Copy(_obj.XmlChildNvPicPr); if not ifnil(_obj.XmlChildBlipFill) then {self.}BlipFill.Copy(_obj.XmlChildBlipFill); if not ifnil(_obj.XmlChildSpPr) then {self.}SpPr.Copy(_obj.XmlChildSpPr); tslassigning := tslassigning_backup; end; function Pic.ReadXmlChildNvPicPr(): NvPicPr; begin if tslassigning and ifnil({self.}XmlChildNvPicPr) then begin {self.}XmlChildNvPicPr := new NvPicPr(self, {self.}Prefix, "nvPicPr"); container_.Set({self.}XmlChildNvPicPr); end return {self.}XmlChildNvPicPr; end; function Pic.ReadXmlChildBlipFill(): BlipFill; begin if tslassigning and ifnil({self.}XmlChildBlipFill) then begin {self.}XmlChildBlipFill := new BlipFill(self, {self.}Prefix, "blipFill"); container_.Set({self.}XmlChildBlipFill); end return {self.}XmlChildBlipFill; end; function Pic.ReadXmlChildSpPr(): SpPr; begin if tslassigning and ifnil({self.}XmlChildSpPr) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr; end; function NvPicPr.Create();overload; begin {self.}Create(nil, "pic", "nvPicPr"); end; function NvPicPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function NvPicPr.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 NvPicPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "pic:cNvPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvPr))), "pic:cNvPicPr": array(1, makeweakref(thisFunction(ReadXmlChildCNvPicPr))), ); container_ := new TSOfficeContainer(sorted_child_); end; function NvPicPr.Copy(_obj: NvPicPr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildCNvPr) then {self.}CNvPr.Copy(_obj.XmlChildCNvPr); if not ifnil(_obj.XmlChildCNvPicPr) then {self.}CNvPicPr.Copy(_obj.XmlChildCNvPicPr); tslassigning := tslassigning_backup; end; function NvPicPr.ReadXmlChildCNvPr(): CNvPr; begin if tslassigning and ifnil({self.}XmlChildCNvPr) then begin {self.}XmlChildCNvPr := new CNvPr(self, "pic", "cNvPr"); container_.Set({self.}XmlChildCNvPr); end return {self.}XmlChildCNvPr; end; function NvPicPr.ReadXmlChildCNvPicPr(): CNvPicPr; begin if tslassigning and ifnil({self.}XmlChildCNvPicPr) then begin {self.}XmlChildCNvPicPr := new CNvPicPr(self, "pic", "cNvPicPr"); container_.Set({self.}XmlChildCNvPicPr); end return {self.}XmlChildCNvPicPr; end; function CNvPr.Create();overload; begin {self.}Create(nil, "pic", "cNvPr"); end; function CNvPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function CNvPr.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 CNvPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "id": makeweakref(thisFunction(WriteXmlAttrId)), "name": makeweakref(thisFunction(WriteXmlAttrName)), "descr": makeweakref(thisFunction(WriteXmlAttrDescr)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function CNvPr.Copy(_obj: CNvPr);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.Name) then {self.}Name := _obj.Name; if not ifnil(_obj.Descr) then {self.}Descr := _obj.Descr; tslassigning := tslassigning_backup; end; function CNvPr.ReadXmlAttrId(); begin return {self.}XmlAttrId.Value; end; function CNvPr.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 CNvPr.ReadXmlAttrName(); begin return {self.}XmlAttrName.Value; end; function CNvPr.WriteXmlAttrName(_value); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_[length(attributes_)] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function CNvPr.ReadXmlAttrDescr(); begin return {self.}XmlAttrDescr.Value; end; function CNvPr.WriteXmlAttrDescr(_value); begin if ifnil({self.}XmlAttrDescr) then begin {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); attributes_[length(attributes_)] := {self.}XmlAttrDescr; end {self.}XmlAttrDescr.Value := _value; end; function CNvPicPr.Create();overload; begin {self.}Create(nil, "pic", "cNvPicPr"); end; function CNvPicPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function CNvPicPr.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 CNvPicPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "a:picLocks": array(0, makeweakref(thisFunction(ReadXmlChildPicLocks))), ); container_ := new TSOfficeContainer(sorted_child_); end; function CNvPicPr.Copy(_obj: CNvPicPr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildPicLocks) then {self.}PicLocks.Copy(_obj.XmlChildPicLocks); tslassigning := tslassigning_backup; end; function CNvPicPr.ReadXmlChildPicLocks(): PicLocks; begin if tslassigning and ifnil({self.}XmlChildPicLocks) then begin {self.}XmlChildPicLocks := new PicLocks(self, "a", "picLocks"); container_.Set({self.}XmlChildPicLocks); end return {self.}XmlChildPicLocks; end; function PicLocks.Create();overload; begin {self.}Create(nil, "a", "picLocks"); end; function PicLocks.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PicLocks.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 PicLocks.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function PicLocks.Copy(_obj: PicLocks);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.NoChangeAspect) then {self.}NoChangeAspect := _obj.NoChangeAspect; tslassigning := tslassigning_backup; end; function PicLocks.ReadXmlAttrNoChangeAspect(); begin return {self.}XmlAttrNoChangeAspect.Value; end; function PicLocks.WriteXmlAttrNoChangeAspect(_value); begin if ifnil({self.}XmlAttrNoChangeAspect) then begin {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); attributes_[length(attributes_)] := {self.}XmlAttrNoChangeAspect; end {self.}XmlAttrNoChangeAspect.Value := _value; end; function BlipFill.Create();overload; begin {self.}Create(nil, "pic", "blipFill"); end; function BlipFill.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function BlipFill.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 BlipFill.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "a:blip": array(0, makeweakref(thisFunction(ReadXmlChildBlip))), "a:stretch": array(1, makeweakref(thisFunction(ReadXmlChildStretch))), ); container_ := new TSOfficeContainer(sorted_child_); end; function BlipFill.Copy(_obj: BlipFill);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildBlip) then {self.}Blip.Copy(_obj.XmlChildBlip); if not ifnil(_obj.XmlChildStretch) then {self.}Stretch.Copy(_obj.XmlChildStretch); tslassigning := tslassigning_backup; end; function BlipFill.ReadXmlChildBlip(): Blip; begin if tslassigning and ifnil({self.}XmlChildBlip) then begin {self.}XmlChildBlip := new Blip(self, "a", "blip"); container_.Set({self.}XmlChildBlip); end return {self.}XmlChildBlip; end; function BlipFill.ReadXmlChildStretch(): Stretch; begin if tslassigning and ifnil({self.}XmlChildStretch) then begin {self.}XmlChildStretch := new Stretch(self, "a", "stretch"); container_.Set({self.}XmlChildStretch); end return {self.}XmlChildStretch; end; function Blip.Create();overload; begin {self.}Create(nil, "a", "blip"); end; function Blip.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Blip.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 Blip.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "r:embed": makeweakref(thisFunction(WriteXmlAttrEmbed)), "cstate": makeweakref(thisFunction(WriteXmlAttrCstate)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function Blip.Copy(_obj: Blip);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Embed) then {self.}Embed := _obj.Embed; if not ifnil(_obj.Cstate) then {self.}Cstate := _obj.Cstate; tslassigning := tslassigning_backup; end; function Blip.ReadXmlAttrEmbed(); begin return {self.}XmlAttrEmbed.Value; end; function Blip.WriteXmlAttrEmbed(_value); begin if ifnil({self.}XmlAttrEmbed) then begin {self.}XmlAttrEmbed := new OpenXmlAttribute("r", "embed", nil); attributes_[length(attributes_)] := {self.}XmlAttrEmbed; end {self.}XmlAttrEmbed.Value := _value; end; function Blip.ReadXmlAttrCstate(); begin return {self.}XmlAttrCstate.Value; end; function Blip.WriteXmlAttrCstate(_value); begin if ifnil({self.}XmlAttrCstate) then begin {self.}XmlAttrCstate := new OpenXmlAttribute("", "cstate", nil); attributes_[length(attributes_)] := {self.}XmlAttrCstate; end {self.}XmlAttrCstate.Value := _value; end; function Stretch.Create();overload; begin {self.}Create(nil, "a", "stretch"); end; function Stretch.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Stretch.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 Stretch.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( "a:fillRect": array(0, makeweakref(thisFunction(ReadXmlChildFillRect))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Stretch.Copy(_obj: Stretch);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildFillRect) then {self.}FillRect.Copy(_obj.XmlChildFillRect); tslassigning := tslassigning_backup; end; function Stretch.ReadXmlChildFillRect(): PureVal; begin if tslassigning and ifnil({self.}XmlChildFillRect) then begin {self.}XmlChildFillRect := new PureVal(self, "a", "fillRect"); container_.Set({self.}XmlChildFillRect); end return {self.}XmlChildFillRect; end; function SpPr.Create();overload; begin {self.}Create(nil, "pic", "spPr"); end; function SpPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SpPr.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 SpPr.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "bwMode": makeweakref(thisFunction(WriteXmlAttrBwMode)), ); sorted_child_ := array( "a:xfrm": array(0, makeweakref(thisFunction(ReadXmlChildXfrm))), "a:prstGeom": array(1, makeweakref(thisFunction(ReadXmlChildPrstGeom))), "a:noFill": array(2, makeweakref(thisFunction(ReadXmlChildNoFill))), "a:solidFill": array(3, makeweakref(thisFunction(ReadXmlChildSolidFill))), "a:ln": array(4, makeweakref(thisFunction(ReadXmlChildLn))), "a:effectLst": array(5, makeweakref(thisFunction(ReadXmlChildEffectLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function SpPr.Copy(_obj: SpPr);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.BwMode) then {self.}BwMode := _obj.BwMode; if not ifnil(_obj.XmlChildXfrm) then {self.}Xfrm.Copy(_obj.XmlChildXfrm); if not ifnil(_obj.XmlChildPrstGeom) then {self.}PrstGeom.Copy(_obj.XmlChildPrstGeom); if not ifnil(_obj.XmlChildNoFill) then ifnil({self.}XmlChildNoFill) ? {self.}NoFill.Copy(_obj.XmlChildNoFill) : {self.}XmlChildNoFill.Copy(_obj.XmlChildNoFill); if not ifnil(_obj.XmlChildSolidFill) then {self.}SolidFill.Copy(_obj.XmlChildSolidFill); if not ifnil(_obj.XmlChildLn) then {self.}Ln.Copy(_obj.XmlChildLn); if not ifnil(_obj.XmlChildEffectLst) then {self.}EffectLst.Copy(_obj.XmlChildEffectLst); tslassigning := tslassigning_backup; end; function SpPr.ReadXmlAttrBwMode(); begin return {self.}XmlAttrBwMode.Value; end; function SpPr.WriteXmlAttrBwMode(_value); begin if ifnil({self.}XmlAttrBwMode) then begin {self.}XmlAttrBwMode := new OpenXmlAttribute("", "bwMode", nil); attributes_[length(attributes_)] := {self.}XmlAttrBwMode; end {self.}XmlAttrBwMode.Value := _value; end; function SpPr.ReadXmlChildNoFill(); begin if tslassigning then begin if ifnil({self.}XmlChildNoFill) then begin {self.}XmlChildNoFill := new OpenXmlEmpty(self, "a", "noFill"); container_.Set({self.}XmlChildNoFill); end return {self.}XmlChildNoFill; end return ifnil({self.}XmlChildNoFill) ? nil : {self.}XmlChildNoFill.BoolValue(); end; function SpPr.WriteXmlChildNoFill(_value); begin if ifnil({self.}XmlChildNoFill) then begin {self.}XmlChildNoFill := new OpenXmlEmpty(self, "a", "noFill"); container_.Set({self.}XmlChildNoFill); end {self.}XmlChildNoFill.Value := _value; end; function SpPr.ReadXmlChildXfrm(): Xfrm; begin if tslassigning and ifnil({self.}XmlChildXfrm) then begin {self.}XmlChildXfrm := new Xfrm(self, "a", "xfrm"); container_.Set({self.}XmlChildXfrm); end return {self.}XmlChildXfrm; end; function SpPr.ReadXmlChildPrstGeom(): PrstGeom; begin if tslassigning and ifnil({self.}XmlChildPrstGeom) then begin {self.}XmlChildPrstGeom := new PrstGeom(self, "a", "prstGeom"); container_.Set({self.}XmlChildPrstGeom); end return {self.}XmlChildPrstGeom; end; function SpPr.ReadXmlChildSolidFill(): SolidFill; begin if tslassigning and ifnil({self.}XmlChildSolidFill) then begin {self.}XmlChildSolidFill := new SolidFill(self, "a", "solidFill"); container_.Set({self.}XmlChildSolidFill); end return {self.}XmlChildSolidFill; end; function SpPr.ReadXmlChildLn(): Ln; begin if tslassigning and ifnil({self.}XmlChildLn) then begin {self.}XmlChildLn := new Ln(self, "a", "ln"); container_.Set({self.}XmlChildLn); end return {self.}XmlChildLn; end; function SpPr.ReadXmlChildEffectLst(): EffectLst; begin if tslassigning and ifnil({self.}XmlChildEffectLst) then begin {self.}XmlChildEffectLst := new EffectLst(self, "a", "effectLst"); container_.Set({self.}XmlChildEffectLst); end return {self.}XmlChildEffectLst; end; function EffectLst.Create();overload; begin {self.}Create(nil, "a", "effectLst"); end; function EffectLst.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function EffectLst.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 EffectLst.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "outerShdw": array(0, makeweakref(thisFunction(ReadXmlChildOuterShdw))), ); container_ := new TSOfficeContainer(sorted_child_); end; function EffectLst.Copy(_obj: EffectLst);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildOuterShdw) then {self.}OuterShdw.Copy(_obj.XmlChildOuterShdw); tslassigning := tslassigning_backup; end; function EffectLst.ReadXmlChildOuterShdw(): OuterShdw; begin if tslassigning and ifnil({self.}XmlChildOuterShdw) then begin {self.}XmlChildOuterShdw := new OuterShdw(self, {self.}Prefix, "outerShdw"); container_.Set({self.}XmlChildOuterShdw); end return {self.}XmlChildOuterShdw; end; function Ln.Create();overload; begin {self.}Create(nil, "a", "ln"); end; function Ln.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Ln.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 Ln.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "w": makeweakref(thisFunction(WriteXmlAttrW)), "cap": makeweakref(thisFunction(WriteXmlAttrCap)), "cmpd": makeweakref(thisFunction(WriteXmlAttrCmpd)), "algn": makeweakref(thisFunction(WriteXmlAttrAlgn)), ); sorted_child_ := array( pre + "noFill": array(0, makeweakref(thisFunction(ReadXmlChildNoFill))), pre + "solidFill": array(1, makeweakref(thisFunction(ReadXmlChildSolidFill))), pre + "prstDash": array(2, makeweakref(thisFunction(ReadXmlChildPrstDash))), pre + "miter": array(3, makeweakref(thisFunction(ReadXmlChildMiter))), pre + "headEnd": array(4, makeweakref(thisFunction(ReadXmlChildHeadEnd))), pre + "tailEnd": array(5, makeweakref(thisFunction(ReadXmlChildTailEnd))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Ln.Copy(_obj: Ln);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.W) then {self.}W := _obj.W; if not ifnil(_obj.Cap) then {self.}Cap := _obj.Cap; if not ifnil(_obj.Cmpd) then {self.}Cmpd := _obj.Cmpd; if not ifnil(_obj.Algn) then {self.}Algn := _obj.Algn; if not ifnil(_obj.XmlChildNoFill) then ifnil({self.}XmlChildNoFill) ? {self.}NoFill.Copy(_obj.XmlChildNoFill) : {self.}XmlChildNoFill.Copy(_obj.XmlChildNoFill); if not ifnil(_obj.XmlChildSolidFill) then {self.}SolidFill.Copy(_obj.XmlChildSolidFill); if not ifnil(_obj.XmlChildPrstDash) then {self.}PrstDash.Copy(_obj.XmlChildPrstDash); if not ifnil(_obj.XmlChildMiter) then {self.}Miter.Copy(_obj.XmlChildMiter); if not ifnil(_obj.XmlChildHeadEnd) then ifnil({self.}XmlChildHeadEnd) ? {self.}HeadEnd.Copy(_obj.XmlChildHeadEnd) : {self.}XmlChildHeadEnd.Copy(_obj.XmlChildHeadEnd); if not ifnil(_obj.XmlChildTailEnd) then ifnil({self.}XmlChildTailEnd) ? {self.}TailEnd.Copy(_obj.XmlChildTailEnd) : {self.}XmlChildTailEnd.Copy(_obj.XmlChildTailEnd); tslassigning := tslassigning_backup; end; function Ln.ReadXmlAttrW(); begin return {self.}XmlAttrW.Value; end; function Ln.WriteXmlAttrW(_value); begin if ifnil({self.}XmlAttrW) then begin {self.}XmlAttrW := new OpenXmlAttribute("", "w", nil); attributes_[length(attributes_)] := {self.}XmlAttrW; end {self.}XmlAttrW.Value := _value; end; function Ln.ReadXmlAttrCap(); begin return {self.}XmlAttrCap.Value; end; function Ln.WriteXmlAttrCap(_value); begin if ifnil({self.}XmlAttrCap) then begin {self.}XmlAttrCap := new OpenXmlAttribute("", "cap", nil); attributes_[length(attributes_)] := {self.}XmlAttrCap; end {self.}XmlAttrCap.Value := _value; end; function Ln.ReadXmlAttrCmpd(); begin return {self.}XmlAttrCmpd.Value; end; function Ln.WriteXmlAttrCmpd(_value); begin if ifnil({self.}XmlAttrCmpd) then begin {self.}XmlAttrCmpd := new OpenXmlAttribute("", "cmpd", nil); attributes_[length(attributes_)] := {self.}XmlAttrCmpd; end {self.}XmlAttrCmpd.Value := _value; end; function Ln.ReadXmlAttrAlgn(); begin return {self.}XmlAttrAlgn.Value; end; function Ln.WriteXmlAttrAlgn(_value); begin if ifnil({self.}XmlAttrAlgn) then begin {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); attributes_[length(attributes_)] := {self.}XmlAttrAlgn; end {self.}XmlAttrAlgn.Value := _value; end; function Ln.ReadXmlChildNoFill(); begin if tslassigning then begin if ifnil({self.}XmlChildNoFill) then begin {self.}XmlChildNoFill := new OpenXmlEmpty(self, {self.}Prefix, "noFill"); container_.Set({self.}XmlChildNoFill); end return {self.}XmlChildNoFill; end return ifnil({self.}XmlChildNoFill) ? nil : {self.}XmlChildNoFill.BoolValue(); end; function Ln.WriteXmlChildNoFill(_value); begin if ifnil({self.}XmlChildNoFill) then begin {self.}XmlChildNoFill := new OpenXmlEmpty(self, {self.}Prefix, "noFill"); container_.Set({self.}XmlChildNoFill); end {self.}XmlChildNoFill.Value := _value; end; function Ln.ReadXmlChildHeadEnd(); begin if tslassigning then begin if ifnil({self.}XmlChildHeadEnd) then begin {self.}XmlChildHeadEnd := new OpenXmlEmpty(self, {self.}Prefix, "headEnd"); container_.Set({self.}XmlChildHeadEnd); end return {self.}XmlChildHeadEnd; end return ifnil({self.}XmlChildHeadEnd) ? nil : {self.}XmlChildHeadEnd.BoolValue(); end; function Ln.WriteXmlChildHeadEnd(_value); begin if ifnil({self.}XmlChildHeadEnd) then begin {self.}XmlChildHeadEnd := new OpenXmlEmpty(self, {self.}Prefix, "headEnd"); container_.Set({self.}XmlChildHeadEnd); end {self.}XmlChildHeadEnd.Value := _value; end; function Ln.ReadXmlChildTailEnd(); begin if tslassigning then begin if ifnil({self.}XmlChildTailEnd) then begin {self.}XmlChildTailEnd := new OpenXmlEmpty(self, {self.}Prefix, "tailEnd"); container_.Set({self.}XmlChildTailEnd); end return {self.}XmlChildTailEnd; end return ifnil({self.}XmlChildTailEnd) ? nil : {self.}XmlChildTailEnd.BoolValue(); end; function Ln.WriteXmlChildTailEnd(_value); begin if ifnil({self.}XmlChildTailEnd) then begin {self.}XmlChildTailEnd := new OpenXmlEmpty(self, {self.}Prefix, "tailEnd"); container_.Set({self.}XmlChildTailEnd); end {self.}XmlChildTailEnd.Value := _value; end; function Ln.ReadXmlChildSolidFill(): SolidFill; begin if tslassigning and ifnil({self.}XmlChildSolidFill) then begin {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); container_.Set({self.}XmlChildSolidFill); end return {self.}XmlChildSolidFill; end; function Ln.ReadXmlChildPrstDash(): PureVal; begin if tslassigning and ifnil({self.}XmlChildPrstDash) then begin {self.}XmlChildPrstDash := new PureVal(self, {self.}Prefix, "prstDash"); container_.Set({self.}XmlChildPrstDash); end return {self.}XmlChildPrstDash; end; function Ln.ReadXmlChildMiter(): Miter; begin if tslassigning and ifnil({self.}XmlChildMiter) then begin {self.}XmlChildMiter := new Miter(self, {self.}Prefix, "miter"); container_.Set({self.}XmlChildMiter); end return {self.}XmlChildMiter; end; function Miter.Create();overload; begin {self.}Create(nil, "a", "miter"); end; function Miter.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Miter.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 Miter.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "lim": makeweakref(thisFunction(WriteXmlAttrLim)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function Miter.Copy(_obj: Miter);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Lim) then {self.}Lim := _obj.Lim; tslassigning := tslassigning_backup; end; function Miter.ReadXmlAttrLim(); begin return {self.}XmlAttrLim.Value; end; function Miter.WriteXmlAttrLim(_value); begin if ifnil({self.}XmlAttrLim) then begin {self.}XmlAttrLim := new OpenXmlAttribute("", "lim", nil); attributes_[length(attributes_)] := {self.}XmlAttrLim; end {self.}XmlAttrLim.Value := _value; end; function Xfrm.Create();overload; begin {self.}Create(nil, "a", "xfrm"); end; function Xfrm.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Xfrm.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 Xfrm.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( ); sorted_child_ := array( pre + "off": array(0, makeweakref(thisFunction(ReadXmlChildOff))), pre + "ext": array(1, makeweakref(thisFunction(ReadXmlChildExt))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Xfrm.Copy(_obj: Xfrm);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.XmlChildOff) then {self.}Off.Copy(_obj.XmlChildOff); if not ifnil(_obj.XmlChildExt) then {self.}Ext.Copy(_obj.XmlChildExt); tslassigning := tslassigning_backup; end; function Xfrm.ReadXmlChildOff(): XY; begin if tslassigning and ifnil({self.}XmlChildOff) then begin {self.}XmlChildOff := new XY(self, {self.}Prefix, "off"); container_.Set({self.}XmlChildOff); end return {self.}XmlChildOff; end; function Xfrm.ReadXmlChildExt(): CXY; begin if tslassigning and ifnil({self.}XmlChildExt) then begin {self.}XmlChildExt := new CXY(self, {self.}Prefix, "ext"); container_.Set({self.}XmlChildExt); end return {self.}XmlChildExt; end; function XY.Create();overload; begin {self.}Create(nil, "", ""); end; function XY.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function XY.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 XY.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "x": makeweakref(thisFunction(WriteXmlAttrX)), "y": makeweakref(thisFunction(WriteXmlAttrY)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function XY.Copy(_obj: XY);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.X) then {self.}X := _obj.X; if not ifnil(_obj.Y) then {self.}Y := _obj.Y; tslassigning := tslassigning_backup; end; function XY.ReadXmlAttrX(); begin return {self.}XmlAttrX.Value; end; function XY.WriteXmlAttrX(_value); begin if ifnil({self.}XmlAttrX) then begin {self.}XmlAttrX := new OpenXmlAttribute("", "x", nil); attributes_[length(attributes_)] := {self.}XmlAttrX; end {self.}XmlAttrX.Value := _value; end; function XY.ReadXmlAttrY(); begin return {self.}XmlAttrY.Value; end; function XY.WriteXmlAttrY(_value); begin if ifnil({self.}XmlAttrY) then begin {self.}XmlAttrY := new OpenXmlAttribute("", "y", nil); attributes_[length(attributes_)] := {self.}XmlAttrY; end {self.}XmlAttrY.Value := _value; end; function CXY.Create();overload; begin {self.}Create(nil, "", ""); end; function CXY.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function CXY.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 CXY.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "cx": makeweakref(thisFunction(WriteXmlAttrCx)), "cy": makeweakref(thisFunction(WriteXmlAttrCy)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function CXY.Copy(_obj: CXY);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Cx) then {self.}Cx := _obj.Cx; if not ifnil(_obj.Cy) then {self.}Cy := _obj.Cy; tslassigning := tslassigning_backup; end; function CXY.ReadXmlAttrCx(); begin return {self.}XmlAttrCx.Value; end; function CXY.WriteXmlAttrCx(_value); begin if ifnil({self.}XmlAttrCx) then begin {self.}XmlAttrCx := new OpenXmlAttribute("", "cx", nil); attributes_[length(attributes_)] := {self.}XmlAttrCx; end {self.}XmlAttrCx.Value := _value; end; function CXY.ReadXmlAttrCy(); begin return {self.}XmlAttrCy.Value; end; function CXY.WriteXmlAttrCy(_value); begin if ifnil({self.}XmlAttrCy) then begin {self.}XmlAttrCy := new OpenXmlAttribute("", "cy", nil); attributes_[length(attributes_)] := {self.}XmlAttrCy; end {self.}XmlAttrCy.Value := _value; end; function PrstGeom.Create();overload; begin {self.}Create(nil, "a", "prstGeom"); end; function PrstGeom.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PrstGeom.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 PrstGeom.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "prst": makeweakref(thisFunction(WriteXmlAttrPrst)), ); sorted_child_ := array( pre + "avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function PrstGeom.Copy(_obj: PrstGeom);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Prst) then {self.}Prst := _obj.Prst; if not ifnil(_obj.XmlChildAvLst) then {self.}AvLst.Copy(_obj.XmlChildAvLst); tslassigning := tslassigning_backup; end; function PrstGeom.ReadXmlAttrPrst(); begin return {self.}XmlAttrPrst.Value; end; function PrstGeom.WriteXmlAttrPrst(_value); begin if ifnil({self.}XmlAttrPrst) then begin {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); attributes_[length(attributes_)] := {self.}XmlAttrPrst; end {self.}XmlAttrPrst.Value := _value; end; function PrstGeom.ReadXmlChildAvLst(): PureVal; begin if tslassigning and ifnil({self.}XmlChildAvLst) then begin {self.}XmlChildAvLst := new PureVal(self, {self.}Prefix, "avLst"); container_.Set({self.}XmlChildAvLst); end return {self.}XmlChildAvLst; end; function Anchor.Create();overload; begin {self.}Create(nil, "wp", "anchor"); end; function Anchor.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Anchor.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 Anchor.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "distT": makeweakref(thisFunction(WriteXmlAttrDistT)), "distB": makeweakref(thisFunction(WriteXmlAttrDistB)), "distL": makeweakref(thisFunction(WriteXmlAttrDistL)), "distR": makeweakref(thisFunction(WriteXmlAttrDistR)), "simplePos": makeweakref(thisFunction(WriteXmlAttrSimplePos)), "relativeHeight": makeweakref(thisFunction(WriteXmlAttrRelativeHeight)), "behindDoc": makeweakref(thisFunction(WriteXmlAttrBehindDoc)), "locked": makeweakref(thisFunction(WriteXmlAttrLocked)), "hidden": makeweakref(thisFunction(WriteXmlAttrHidden)), "layoutInCell": makeweakref(thisFunction(WriteXmlAttrLayoutInCell)), "allowOverlap": makeweakref(thisFunction(WriteXmlAttrAllowOverlap)), "wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), "wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)), ); sorted_child_ := array( pre + "simplePos": array(0, makeweakref(thisFunction(ReadXmlChildSimplePos))), pre + "positionH": array(1, makeweakref(thisFunction(ReadXmlChildPositionH))), pre + "positionV": array(2, makeweakref(thisFunction(ReadXmlChildPositionV))), pre + "extent": array(3, makeweakref(thisFunction(ReadXmlChildExtent))), pre + "effectExtent": array(4, makeweakref(thisFunction(ReadXmlChildEffectExtent))), pre + "wrapNone": array(5, makeweakref(thisFunction(ReadXmlChildWrapNone))), pre + "docPr": array(6, makeweakref(thisFunction(ReadXmlChildDocPr))), pre + "cNvGraphicFramePr": array(7, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))), "a:graphic": array(8, makeweakref(thisFunction(ReadXmlChildGraphic))), "wp14:sizeRelH": array(9, makeweakref(thisFunction(ReadXmlChildSizeRelH))), "wp14:sizeRelV": array(10, makeweakref(thisFunction(ReadXmlChildSizeRelV))), ); container_ := new TSOfficeContainer(sorted_child_); end; function Anchor.Copy(_obj: Anchor);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.DistT) then {self.}DistT := _obj.DistT; if not ifnil(_obj.DistB) then {self.}DistB := _obj.DistB; if not ifnil(_obj.DistL) then {self.}DistL := _obj.DistL; if not ifnil(_obj.DistR) then {self.}DistR := _obj.DistR; if not ifnil(_obj.SimplePos) then {self.}SimplePos := _obj.SimplePos; if not ifnil(_obj.RelativeHeight) then {self.}RelativeHeight := _obj.RelativeHeight; if not ifnil(_obj.BehindDoc) then {self.}BehindDoc := _obj.BehindDoc; if not ifnil(_obj.Locked) then {self.}Locked := _obj.Locked; if not ifnil(_obj.Hidden) then {self.}Hidden := _obj.Hidden; if not ifnil(_obj.LayoutInCell) then {self.}LayoutInCell := _obj.LayoutInCell; if not ifnil(_obj.AllowOverlap) then {self.}AllowOverlap := _obj.AllowOverlap; if not ifnil(_obj.AnchorId) then {self.}AnchorId := _obj.AnchorId; if not ifnil(_obj.EditId) then {self.}EditId := _obj.EditId; if not ifnil(_obj.XmlChildSimplePos) then {self.}SimplePos.Copy(_obj.XmlChildSimplePos); if not ifnil(_obj.XmlChildPositionH) then {self.}PositionH.Copy(_obj.XmlChildPositionH); if not ifnil(_obj.XmlChildPositionV) then {self.}PositionV.Copy(_obj.XmlChildPositionV); if not ifnil(_obj.XmlChildExtent) then {self.}Extent.Copy(_obj.XmlChildExtent); if not ifnil(_obj.XmlChildEffectExtent) then {self.}EffectExtent.Copy(_obj.XmlChildEffectExtent); if not ifnil(_obj.XmlChildWrapNone) then ifnil({self.}XmlChildWrapNone) ? {self.}WrapNone.Copy(_obj.XmlChildWrapNone) : {self.}XmlChildWrapNone.Copy(_obj.XmlChildWrapNone); if not ifnil(_obj.XmlChildDocPr) then {self.}DocPr.Copy(_obj.XmlChildDocPr); if not ifnil(_obj.XmlChildCNvGraphicFramePr) then {self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr); if not ifnil(_obj.XmlChildGraphic) then {self.}Graphic.Copy(_obj.XmlChildGraphic); if not ifnil(_obj.XmlChildSizeRelH) then {self.}SizeRelH.Copy(_obj.XmlChildSizeRelH); if not ifnil(_obj.XmlChildSizeRelV) then {self.}SizeRelV.Copy(_obj.XmlChildSizeRelV); tslassigning := tslassigning_backup; end; function Anchor.ReadXmlAttrDistT(); begin return {self.}XmlAttrDistT.Value; end; function Anchor.WriteXmlAttrDistT(_value); begin if ifnil({self.}XmlAttrDistT) then begin {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistT; end {self.}XmlAttrDistT.Value := _value; end; function Anchor.ReadXmlAttrDistB(); begin return {self.}XmlAttrDistB.Value; end; function Anchor.WriteXmlAttrDistB(_value); begin if ifnil({self.}XmlAttrDistB) then begin {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistB; end {self.}XmlAttrDistB.Value := _value; end; function Anchor.ReadXmlAttrDistL(); begin return {self.}XmlAttrDistL.Value; end; function Anchor.WriteXmlAttrDistL(_value); begin if ifnil({self.}XmlAttrDistL) then begin {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistL; end {self.}XmlAttrDistL.Value := _value; end; function Anchor.ReadXmlAttrDistR(); begin return {self.}XmlAttrDistR.Value; end; function Anchor.WriteXmlAttrDistR(_value); begin if ifnil({self.}XmlAttrDistR) then begin {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); attributes_[length(attributes_)] := {self.}XmlAttrDistR; end {self.}XmlAttrDistR.Value := _value; end; function Anchor.ReadXmlAttrSimplePos(); begin return {self.}XmlAttrSimplePos.Value; end; function Anchor.WriteXmlAttrSimplePos(_value); begin if ifnil({self.}XmlAttrSimplePos) then begin {self.}XmlAttrSimplePos := new OpenXmlAttribute("", "simplePos", nil); attributes_[length(attributes_)] := {self.}XmlAttrSimplePos; end {self.}XmlAttrSimplePos.Value := _value; end; function Anchor.ReadXmlAttrRelativeHeight(); begin return {self.}XmlAttrRelativeHeight.Value; end; function Anchor.WriteXmlAttrRelativeHeight(_value); begin if ifnil({self.}XmlAttrRelativeHeight) then begin {self.}XmlAttrRelativeHeight := new OpenXmlAttribute("", "relativeHeight", nil); attributes_[length(attributes_)] := {self.}XmlAttrRelativeHeight; end {self.}XmlAttrRelativeHeight.Value := _value; end; function Anchor.ReadXmlAttrBehindDoc(); begin return {self.}XmlAttrBehindDoc.Value; end; function Anchor.WriteXmlAttrBehindDoc(_value); begin if ifnil({self.}XmlAttrBehindDoc) then begin {self.}XmlAttrBehindDoc := new OpenXmlAttribute("", "behindDoc", nil); attributes_[length(attributes_)] := {self.}XmlAttrBehindDoc; end {self.}XmlAttrBehindDoc.Value := _value; end; function Anchor.ReadXmlAttrLocked(); begin return {self.}XmlAttrLocked.Value; end; function Anchor.WriteXmlAttrLocked(_value); begin if ifnil({self.}XmlAttrLocked) then begin {self.}XmlAttrLocked := new OpenXmlAttribute("", "locked", nil); attributes_[length(attributes_)] := {self.}XmlAttrLocked; end {self.}XmlAttrLocked.Value := _value; end; function Anchor.ReadXmlAttrHidden(); begin return {self.}XmlAttrHidden.Value; end; function Anchor.WriteXmlAttrHidden(_value); begin if ifnil({self.}XmlAttrHidden) then begin {self.}XmlAttrHidden := new OpenXmlAttribute("", "hidden", nil); attributes_[length(attributes_)] := {self.}XmlAttrHidden; end {self.}XmlAttrHidden.Value := _value; end; function Anchor.ReadXmlAttrLayoutInCell(); begin return {self.}XmlAttrLayoutInCell.Value; end; function Anchor.WriteXmlAttrLayoutInCell(_value); begin if ifnil({self.}XmlAttrLayoutInCell) then begin {self.}XmlAttrLayoutInCell := new OpenXmlAttribute("", "layoutInCell", nil); attributes_[length(attributes_)] := {self.}XmlAttrLayoutInCell; end {self.}XmlAttrLayoutInCell.Value := _value; end; function Anchor.ReadXmlAttrAllowOverlap(); begin return {self.}XmlAttrAllowOverlap.Value; end; function Anchor.WriteXmlAttrAllowOverlap(_value); begin if ifnil({self.}XmlAttrAllowOverlap) then begin {self.}XmlAttrAllowOverlap := new OpenXmlAttribute("", "allowOverlap", nil); attributes_[length(attributes_)] := {self.}XmlAttrAllowOverlap; end {self.}XmlAttrAllowOverlap.Value := _value; end; function Anchor.ReadXmlAttrAnchorId(); begin return {self.}XmlAttrAnchorId.Value; end; function Anchor.WriteXmlAttrAnchorId(_value); begin if ifnil({self.}XmlAttrAnchorId) then begin {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; end {self.}XmlAttrAnchorId.Value := _value; end; function Anchor.ReadXmlAttrEditId(); begin return {self.}XmlAttrEditId.Value; end; function Anchor.WriteXmlAttrEditId(_value); begin if ifnil({self.}XmlAttrEditId) then begin {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); attributes_[length(attributes_)] := {self.}XmlAttrEditId; end {self.}XmlAttrEditId.Value := _value; end; function Anchor.ReadXmlChildWrapNone(); begin if tslassigning then begin if ifnil({self.}XmlChildWrapNone) then begin {self.}XmlChildWrapNone := new OpenXmlEmpty(self, {self.}Prefix, "wrapNone"); container_.Set({self.}XmlChildWrapNone); end return {self.}XmlChildWrapNone; end return ifnil({self.}XmlChildWrapNone) ? nil : {self.}XmlChildWrapNone.BoolValue(); end; function Anchor.WriteXmlChildWrapNone(_value); begin if ifnil({self.}XmlChildWrapNone) then begin {self.}XmlChildWrapNone := new OpenXmlEmpty(self, {self.}Prefix, "wrapNone"); container_.Set({self.}XmlChildWrapNone); end {self.}XmlChildWrapNone.Value := _value; end; function Anchor.ReadXmlChildSimplePos(): XY; begin if tslassigning and ifnil({self.}XmlChildSimplePos) then begin {self.}XmlChildSimplePos := new XY(self, {self.}Prefix, "simplePos"); container_.Set({self.}XmlChildSimplePos); end return {self.}XmlChildSimplePos; end; function Anchor.ReadXmlChildPositionH(): PositionH; begin if tslassigning and ifnil({self.}XmlChildPositionH) then begin {self.}XmlChildPositionH := new PositionH(self, {self.}Prefix, "positionH"); container_.Set({self.}XmlChildPositionH); end return {self.}XmlChildPositionH; end; function Anchor.ReadXmlChildPositionV(): PositionV; begin if tslassigning and ifnil({self.}XmlChildPositionV) then begin {self.}XmlChildPositionV := new PositionV(self, {self.}Prefix, "positionV"); container_.Set({self.}XmlChildPositionV); end return {self.}XmlChildPositionV; end; function Anchor.ReadXmlChildExtent(): CXY; begin if tslassigning and ifnil({self.}XmlChildExtent) then begin {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); container_.Set({self.}XmlChildExtent); end return {self.}XmlChildExtent; end; function Anchor.ReadXmlChildEffectExtent(): EffectExtent; begin if tslassigning and ifnil({self.}XmlChildEffectExtent) then begin {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); container_.Set({self.}XmlChildEffectExtent); end return {self.}XmlChildEffectExtent; end; function Anchor.ReadXmlChildDocPr(): DocPr; begin if tslassigning and ifnil({self.}XmlChildDocPr) then begin {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); container_.Set({self.}XmlChildDocPr); end return {self.}XmlChildDocPr; end; function Anchor.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; begin if tslassigning and ifnil({self.}XmlChildCNvGraphicFramePr) then begin {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); container_.Set({self.}XmlChildCNvGraphicFramePr); end return {self.}XmlChildCNvGraphicFramePr; end; function Anchor.ReadXmlChildGraphic(): Graphic; begin if tslassigning and ifnil({self.}XmlChildGraphic) then begin {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); container_.Set({self.}XmlChildGraphic); end return {self.}XmlChildGraphic; end; function Anchor.ReadXmlChildSizeRelH(): SizeRelH; begin if tslassigning and ifnil({self.}XmlChildSizeRelH) then begin {self.}XmlChildSizeRelH := new SizeRelH(self, "wp14", "sizeRelH"); container_.Set({self.}XmlChildSizeRelH); end return {self.}XmlChildSizeRelH; end; function Anchor.ReadXmlChildSizeRelV(): SizeRelV; begin if tslassigning and ifnil({self.}XmlChildSizeRelV) then begin {self.}XmlChildSizeRelV := new SizeRelV(self, "wp14", "sizeRelV"); container_.Set({self.}XmlChildSizeRelV); end return {self.}XmlChildSizeRelV; end; function PositionV.Create();overload; begin {self.}Create(nil, "wp", "positionV"); end; function PositionV.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PositionV.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 PositionV.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), ); sorted_child_ := array( pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))), ); container_ := new TSOfficeContainer(sorted_child_); end; function PositionV.Copy(_obj: PositionV);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.RelativeFrom) then {self.}RelativeFrom := _obj.RelativeFrom; if not ifnil(_obj.XmlChildPosOffset) then {self.}PosOffset.Copy(_obj.XmlChildPosOffset); tslassigning := tslassigning_backup; end; function PositionV.ReadXmlAttrRelativeFrom(); begin return {self.}XmlAttrRelativeFrom.Value; end; function PositionV.WriteXmlAttrRelativeFrom(_value); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function PositionV.ReadXmlChildPosOffset(); begin if tslassigning and ifnil({self.}XmlChildPosOffset) then begin {self.}XmlChildPosOffset := new OpenXmlPcdata(self, {self.}Prefix, "posOffset"); container_.Set({self.}XmlChildPosOffset); end return {self.}XmlChildPosOffset; end; function PositionH.Create();overload; begin {self.}Create(nil, "wp", "positionH"); end; function PositionH.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PositionH.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 PositionH.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), ); sorted_child_ := array( pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))), ); container_ := new TSOfficeContainer(sorted_child_); end; function PositionH.Copy(_obj: PositionH);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.RelativeFrom) then {self.}RelativeFrom := _obj.RelativeFrom; if not ifnil(_obj.XmlChildPosOffset) then {self.}PosOffset.Copy(_obj.XmlChildPosOffset); tslassigning := tslassigning_backup; end; function PositionH.ReadXmlAttrRelativeFrom(); begin return {self.}XmlAttrRelativeFrom.Value; end; function PositionH.WriteXmlAttrRelativeFrom(_value); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function PositionH.ReadXmlChildPosOffset(); begin if tslassigning and ifnil({self.}XmlChildPosOffset) then begin {self.}XmlChildPosOffset := new OpenXmlPcdata(self, {self.}Prefix, "posOffset"); container_.Set({self.}XmlChildPosOffset); end return {self.}XmlChildPosOffset; end; function SizeRelH.Create();overload; begin {self.}Create(nil, "wp14", "sizeRelH"); end; function SizeRelH.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SizeRelH.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 SizeRelH.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), ); sorted_child_ := array( pre + "pctWidth": array(0, makeweakref(thisFunction(ReadXmlChildPctWidth))), ); container_ := new TSOfficeContainer(sorted_child_); end; function SizeRelH.Copy(_obj: SizeRelH);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.RelativeFrom) then {self.}RelativeFrom := _obj.RelativeFrom; if not ifnil(_obj.XmlChildPctWidth) then {self.}PctWidth.Copy(_obj.XmlChildPctWidth); tslassigning := tslassigning_backup; end; function SizeRelH.ReadXmlAttrRelativeFrom(); begin return {self.}XmlAttrRelativeFrom.Value; end; function SizeRelH.WriteXmlAttrRelativeFrom(_value); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function SizeRelH.ReadXmlChildPctWidth(); begin if tslassigning and ifnil({self.}XmlChildPctWidth) then begin {self.}XmlChildPctWidth := new OpenXmlPcdata(self, {self.}Prefix, "pctWidth"); container_.Set({self.}XmlChildPctWidth); end return {self.}XmlChildPctWidth; end; function SizeRelV.Create();overload; begin {self.}Create(nil, "wp14", "sizeRelV"); end; function SizeRelV.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function SizeRelV.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 SizeRelV.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), ); sorted_child_ := array( pre + "pctHeight": array(0, makeweakref(thisFunction(ReadXmlChildPctHeight))), ); container_ := new TSOfficeContainer(sorted_child_); end; function SizeRelV.Copy(_obj: SizeRelV);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.RelativeFrom) then {self.}RelativeFrom := _obj.RelativeFrom; if not ifnil(_obj.XmlChildPctHeight) then {self.}PctHeight.Copy(_obj.XmlChildPctHeight); tslassigning := tslassigning_backup; end; function SizeRelV.ReadXmlAttrRelativeFrom(); begin return {self.}XmlAttrRelativeFrom.Value; end; function SizeRelV.WriteXmlAttrRelativeFrom(_value); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function SizeRelV.ReadXmlChildPctHeight(); begin if tslassigning and ifnil({self.}XmlChildPctHeight) then begin {self.}XmlChildPctHeight := new OpenXmlPcdata(self, {self.}Prefix, "pctHeight"); container_.Set({self.}XmlChildPctHeight); end return {self.}XmlChildPctHeight; end; end.