unit DrawingML; interface uses TSSafeUnitConverter, DocxML; type Theme = class(OpenXmlCompositeElement) 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; function Clone(): Theme;override; function ConvertToPoint();override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value: any); // simple_type property property ObjectDefaults read ReadXmlChildObjectDefaults write WriteXmlChildObjectDefaults; property ExtraClrSchemeLst read ReadXmlChildExtraClrSchemeLst write WriteXmlChildExtraClrSchemeLst; function ReadXmlChildObjectDefaults(): OpenXmlSimpleType; function WriteXmlChildObjectDefaults(_value: nil_or_OpenXmlSimpleType); function ReadXmlChildExtraClrSchemeLst(): OpenXmlSimpleType; function WriteXmlChildExtraClrSchemeLst(_value: nil_or_OpenXmlSimpleType); // normal property property ThemeElements read ReadXmlChildThemeElements write WriteXmlChildThemeElements; property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst; function ReadXmlChildThemeElements(): ThemeElements; function WriteXmlChildThemeElements(_p1: any; _p2: any); function ReadXmlChildExtLst(): ExtLst; function WriteXmlChildExtLst(_p1: any; _p2: any); public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildThemeElements: ThemeElements; XmlChildObjectDefaults: OpenXmlSimpleType; XmlChildExtraClrSchemeLst: OpenXmlSimpleType; XmlChildExtLst: ExtLst; end; type ThemeElements = class(OpenXmlCompositeElement) 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; function Clone(): ThemeElements;override; function ConvertToPoint();override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value: any); // normal property property ClrScheme read ReadXmlChildClrScheme write WriteXmlChildClrScheme; property FontScheme read ReadXmlChildFontScheme write WriteXmlChildFontScheme; property FmtScheme read ReadXmlChildFmtScheme write WriteXmlChildFmtScheme; function ReadXmlChildClrScheme(): ClrScheme; function WriteXmlChildClrScheme(_p1: any; _p2: any); function ReadXmlChildFontScheme(): FontScheme; function WriteXmlChildFontScheme(_p1: any; _p2: any); function ReadXmlChildFmtScheme(): FmtScheme; function WriteXmlChildFmtScheme(_p1: any; _p2: any); public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildClrScheme: ClrScheme; XmlChildFontScheme: FontScheme; XmlChildFmtScheme: FmtScheme; end; type ClrScheme = class(OpenXmlCompositeElement) 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; function Clone(): ClrScheme;override; function ConvertToPoint();override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value: any); // normal property property Dk1 read ReadXmlChildDk1 write WriteXmlChildDk1; property Lt1 read ReadXmlChildLt1 write WriteXmlChildLt1; property Dk2 read ReadXmlChildDk2 write WriteXmlChildDk2; property Lt2 read ReadXmlChildLt2 write WriteXmlChildLt2; property Accent1 read ReadXmlChildAccent1 write WriteXmlChildAccent1; property Accent2 read ReadXmlChildAccent2 write WriteXmlChildAccent2; property Accent3 read ReadXmlChildAccent3 write WriteXmlChildAccent3; property Accent4 read ReadXmlChildAccent4 write WriteXmlChildAccent4; property Accent5 read ReadXmlChildAccent5 write WriteXmlChildAccent5; property Accent6 read ReadXmlChildAccent6 write WriteXmlChildAccent6; property Hlink read ReadXmlChildHlink write WriteXmlChildHlink; property FolHlink read ReadXmlChildFolHlink write WriteXmlChildFolHlink; function ReadXmlChildDk1(): Clr1; function WriteXmlChildDk1(_p1: any; _p2: any); function ReadXmlChildLt1(): Clr1; function WriteXmlChildLt1(_p1: any; _p2: any); function ReadXmlChildDk2(): Clr2; function WriteXmlChildDk2(_p1: any; _p2: any); function ReadXmlChildLt2(): Clr2; function WriteXmlChildLt2(_p1: any; _p2: any); function ReadXmlChildAccent1(): Clr2; function WriteXmlChildAccent1(_p1: any; _p2: any); function ReadXmlChildAccent2(): Clr2; function WriteXmlChildAccent2(_p1: any; _p2: any); function ReadXmlChildAccent3(): Clr2; function WriteXmlChildAccent3(_p1: any; _p2: any); function ReadXmlChildAccent4(): Clr2; function WriteXmlChildAccent4(_p1: any; _p2: any); function ReadXmlChildAccent5(): Clr2; function WriteXmlChildAccent5(_p1: any; _p2: any); function ReadXmlChildAccent6(): Clr2; function WriteXmlChildAccent6(_p1: any; _p2: any); function ReadXmlChildHlink(): Clr2; function WriteXmlChildHlink(_p1: any; _p2: any); function ReadXmlChildFolHlink(): Clr2; function WriteXmlChildFolHlink(_p1: any; _p2: any); 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(OpenXmlCompositeElement) 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; function Clone(): Clr1;override; function ConvertToPoint();override; public // normal property property SysClr read ReadXmlChildSysClr write WriteXmlChildSysClr; function ReadXmlChildSysClr(): SysClr; function WriteXmlChildSysClr(_p1: any; _p2: any); public // Children XmlChildSysClr: SysClr; end; type SysClr = class(OpenXmlCompositeElement) 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; function Clone(): SysClr;override; function ConvertToPoint();override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; property LastClr read ReadXmlAttrLastClr write WriteXmlAttrLastClr; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value: any); function ReadXmlAttrLastClr(); function WriteXmlAttrLastClr(_value: any); public // Attributes XmlAttrVal: OpenXmlAttribute; XmlAttrLastClr: OpenXmlAttribute; end; type Clr2 = class(OpenXmlCompositeElement) 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; function Clone(): Clr2;override; function ConvertToPoint();override; public // normal property property SrgbClr read ReadXmlChildSrgbClr write WriteXmlChildSrgbClr; function ReadXmlChildSrgbClr(): SrgbClr; function WriteXmlChildSrgbClr(_p1: any; _p2: any); public // Children XmlChildSrgbClr: SrgbClr; end; type SrgbClr = class(OpenXmlCompositeElement) 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; function Clone(): SrgbClr;override; function ConvertToPoint();override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value: any); // normal property property Alpha read ReadXmlChildAlpha write WriteXmlChildAlpha; function ReadXmlChildAlpha(): PureVal; function WriteXmlChildAlpha(_p1: any; _p2: any); public // Attributes XmlAttrVal: OpenXmlAttribute; // Children XmlChildAlpha: PureVal; end; type PureVal = class(OpenXmlCompositeElement) 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; function Clone(): PureVal;override; function ConvertToPoint();override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value: any); public // Attributes XmlAttrVal: OpenXmlAttribute; end; type FontScheme = class(OpenXmlCompositeElement) 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; function Clone(): FontScheme;override; function ConvertToPoint();override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value: any); // normal property property Majorfont read ReadXmlChildMajorfont write WriteXmlChildMajorfont; property Minorfont read ReadXmlChildMinorfont write WriteXmlChildMinorfont; function ReadXmlChildMajorfont(): Mfont; function WriteXmlChildMajorfont(_p1: any; _p2: any); function ReadXmlChildMinorfont(): Mfont; function WriteXmlChildMinorfont(_p1: any; _p2: any); public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildMajorfont: Mfont; XmlChildMinorfont: Mfont; end; type MFont = class(OpenXmlCompositeElement) 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; function Clone(): MFont;override; function ConvertToPoint();override; public // normal property property Latin read ReadXmlChildLatin write WriteXmlChildLatin; property Ea read ReadXmlChildEa write WriteXmlChildEa; property Cs read ReadXmlChildCs write WriteXmlChildCs; function ReadXmlChildLatin(): Latin; function WriteXmlChildLatin(_p1: any; _p2: any); function ReadXmlChildEa(): Latin; function WriteXmlChildEa(_p1: any; _p2: any); function ReadXmlChildCs(): Latin; function WriteXmlChildCs(_p1: any; _p2: any); // multi property property Fonts read ReadFonts write WriteFonts; function ReadFonts(_index: integer); function WriteFonts(_index: integer; _value: nil_OR_Font); function AddFont(): Font; function AppendFont(): Font; public // Children XmlChildLatin: Latin; XmlChildEa: Latin; XmlChildCs: Latin; end; type Font = class(OpenXmlCompositeElement) 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; function Clone(): Font;override; function ConvertToPoint();override; public // attributes property property Script read ReadXmlAttrScript write WriteXmlAttrScript; property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; function ReadXmlAttrScript(); function WriteXmlAttrScript(_value: any); function ReadXmlAttrTypeface(); function WriteXmlAttrTypeface(_value: any); public // Attributes XmlAttrScript: OpenXmlAttribute; XmlAttrTypeface: OpenXmlAttribute; end; type FmtScheme = class(OpenXmlCompositeElement) 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; function Clone(): FmtScheme;override; function ConvertToPoint();override; public // attributes property property Name read ReadXmlAttrName write WriteXmlAttrName; function ReadXmlAttrName(); function WriteXmlAttrName(_value: any); // normal property property FillStyleLst read ReadXmlChildFillStyleLst write WriteXmlChildFillStyleLst; property LnStyleLst read ReadXmlChildLnStyleLst write WriteXmlChildLnStyleLst; property EffectStyleLst read ReadXmlChildEffectStyleLst write WriteXmlChildEffectStyleLst; property BgFillStyleLst read ReadXmlChildBgFillStyleLst write WriteXmlChildBgFillStyleLst; function ReadXmlChildFillStyleLst(): FillStyleLst; function WriteXmlChildFillStyleLst(_p1: any; _p2: any); function ReadXmlChildLnStyleLst(): LnStyleLst; function WriteXmlChildLnStyleLst(_p1: any; _p2: any); function ReadXmlChildEffectStyleLst(): EffectStyleLst; function WriteXmlChildEffectStyleLst(_p1: any; _p2: any); function ReadXmlChildBgFillStyleLst(): FillStyleLst; function WriteXmlChildBgFillStyleLst(_p1: any; _p2: any); public // Attributes XmlAttrName: OpenXmlAttribute; // Children XmlChildFillStyleLst: FillStyleLst; XmlChildLnStyleLst: LnStyleLst; XmlChildEffectStyleLst: EffectStyleLst; XmlChildBgFillStyleLst: FillStyleLst; end; type FillStyleLst = class(OpenXmlCompositeElement) 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; function Clone(): FillStyleLst;override; function ConvertToPoint();override; public // multi property property SolidFills read ReadSolidFills write WriteSolidFills; property GradFills read ReadGradFills write WriteGradFills; function ReadSolidFills(_index: integer); function WriteSolidFills(_index: integer; _value: nil_OR_SolidFill); function ReadGradFills(_index: integer); function WriteGradFills(_index: integer; _value: nil_OR_GradFill); function AddSolidFill(): SolidFill; function AddGradFill(): GradFill; function AppendSolidFill(): SolidFill; function AppendGradFill(): GradFill; public // Children end; type SolidFill = class(OpenXmlCompositeElement) 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; function Clone(): SolidFill;override; function ConvertToPoint();override; public // normal property property SchemeClr read ReadXmlChildSchemeClr write WriteXmlChildSchemeClr; function ReadXmlChildSchemeClr(): SchemeClr; function WriteXmlChildSchemeClr(_p1: any; _p2: any); public // Children XmlChildSchemeClr: SchemeClr; end; type SchemeClr = class(OpenXmlCompositeElement) 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; function Clone(): SchemeClr;override; function ConvertToPoint();override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value: any); // normal property property LumMod read ReadXmlChildLumMod write WriteXmlChildLumMod; property SatMod read ReadXmlChildSatMod write WriteXmlChildSatMod; property Tint read ReadXmlChildTint write WriteXmlChildTint; function ReadXmlChildLumMod(): PureVal; function WriteXmlChildLumMod(_p1: any; _p2: any); function ReadXmlChildSatMod(): PureVal; function WriteXmlChildSatMod(_p1: any; _p2: any); function ReadXmlChildTint(): PureVal; function WriteXmlChildTint(_p1: any; _p2: any); public // Attributes XmlAttrVal: OpenXmlAttribute; // Children XmlChildLumMod: PureVal; XmlChildSatMod: PureVal; XmlChildTint: PureVal; end; type GradFill = class(OpenXmlCompositeElement) 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; function Clone(): GradFill;override; function ConvertToPoint();override; public // attributes property property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; function ReadXmlAttrRotWithShape(); function WriteXmlAttrRotWithShape(_value: any); // normal property property GsLst read ReadXmlChildGsLst write WriteXmlChildGsLst; property Lin read ReadXmlChildLin write WriteXmlChildLin; function ReadXmlChildGsLst(): GsLst; function WriteXmlChildGsLst(_p1: any; _p2: any); function ReadXmlChildLin(): Lin; function WriteXmlChildLin(_p1: any; _p2: any); public // Attributes XmlAttrRotWithShape: OpenXmlAttribute; // Children XmlChildGsLst: GsLst; XmlChildLin: Lin; end; type GsLst = class(OpenXmlCompositeElement) 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; function Clone(): GsLst;override; function ConvertToPoint();override; public // multi property property Gses read ReadGses write WriteGses; function ReadGses(_index: integer); function WriteGses(_index: integer; _value: nil_OR_Gs); function AddGs(): Gs; function AppendGs(): Gs; public // Children end; type Gs = class(OpenXmlCompositeElement) 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; function Clone(): Gs;override; function ConvertToPoint();override; public // attributes property property Pos read ReadXmlAttrPos write WriteXmlAttrPos; function ReadXmlAttrPos(); function WriteXmlAttrPos(_value: any); // normal property property SchemeClr read ReadXmlChildSchemeClr write WriteXmlChildSchemeClr; function ReadXmlChildSchemeClr(): SchemeClr; function WriteXmlChildSchemeClr(_p1: any; _p2: any); public // Attributes XmlAttrPos: OpenXmlAttribute; // Children XmlChildSchemeClr: SchemeClr; end; type Lin = class(OpenXmlCompositeElement) 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; function Clone(): Lin;override; function ConvertToPoint();override; public // attributes property property Ang read ReadXmlAttrAng write WriteXmlAttrAng; property Scaled read ReadXmlAttrScaled write WriteXmlAttrScaled; function ReadXmlAttrAng(); function WriteXmlAttrAng(_value: any); function ReadXmlAttrScaled(); function WriteXmlAttrScaled(_value: any); public // Attributes XmlAttrAng: OpenXmlAttribute; XmlAttrScaled: OpenXmlAttribute; end; type LnStyleLst = class(OpenXmlCompositeElement) 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; function Clone(): LnStyleLst;override; function ConvertToPoint();override; public // multi property property Lns read ReadLns write WriteLns; function ReadLns(_index: integer); function WriteLns(_index: integer; _value: nil_OR_Ln); function AddLn(): Ln; function AppendLn(): Ln; public // Children end; type EffectStyleLst = class(OpenXmlCompositeElement) 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; function Clone(): EffectStyleLst;override; function ConvertToPoint();override; public // multi property property EffectStyles read ReadEffectStyles write WriteEffectStyles; function ReadEffectStyles(_index: integer); function WriteEffectStyles(_index: integer; _value: nil_OR_EffectStyle); function AddEffectStyle(): EffectStyle; function AppendEffectStyle(): EffectStyle; public // Children end; type EffectStyle = class(OpenXmlCompositeElement) 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; function Clone(): EffectStyle;override; function ConvertToPoint();override; public // normal property property EffectLst read ReadXmlChildEffectLst write WriteXmlChildEffectLst; function ReadXmlChildEffectLst(): EffectLst; function WriteXmlChildEffectLst(_p1: any; _p2: any); public // Children XmlChildEffectLst: EffectLst; end; type OuterShdw = class(OpenXmlCompositeElement) 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; function Clone(): OuterShdw;override; function ConvertToPoint();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: any); function ReadXmlAttrDist(); function WriteXmlAttrDist(_value: any); function ReadXmlAttrDir(); function WriteXmlAttrDir(_value: any); function ReadXmlAttrAlgn(); function WriteXmlAttrAlgn(_value: any); function ReadXmlAttrRotWithShape(); function WriteXmlAttrRotWithShape(_value: any); // normal property property SrgbClr read ReadXmlChildSrgbClr write WriteXmlChildSrgbClr; function ReadXmlChildSrgbClr(): SrgbClr; function WriteXmlChildSrgbClr(_p1: any; _p2: any); public // Attributes XmlAttrBlurRad: OpenXmlAttribute; XmlAttrDist: OpenXmlAttribute; XmlAttrDir: OpenXmlAttribute; XmlAttrAlgn: OpenXmlAttribute; XmlAttrRotWithShape: OpenXmlAttribute; // Children XmlChildSrgbClr: SrgbClr; end; type ExtLst = class(OpenXmlCompositeElement) 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; function Clone(): ExtLst;override; function ConvertToPoint();override; public // multi property property Exts read ReadExts write WriteExts; function ReadExts(_index: integer); function WriteExts(_index: integer; _value: nil_OR_Ext); function AddExt(): Ext; function AppendExt(): Ext; public // Children end; type Ext = class(OpenXmlCompositeElement) 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; function Clone(): Ext;override; function ConvertToPoint();override; public // attributes property property Uri read ReadXmlAttrUri write WriteXmlAttrUri; function ReadXmlAttrUri(); function WriteXmlAttrUri(_value: any); // normal property property Thm15ThemeFamily read ReadXmlChildThm15ThemeFamily write WriteXmlChildThm15ThemeFamily; property UniqueId read ReadXmlChildUniqueId write WriteXmlChildUniqueId; property SlicerStyles read ReadXmlChildSlicerStyles write WriteXmlChildSlicerStyles; property TimelineStyles read ReadXmlChildTimelineStyles write WriteXmlChildTimelineStyles; function ReadXmlChildThm15ThemeFamily(): ThemeFamily; function WriteXmlChildThm15ThemeFamily(_p1: any; _p2: any); function ReadXmlChildUniqueId(): PureVal; function WriteXmlChildUniqueId(_p1: any; _p2: any); function ReadXmlChildSlicerStyles(): SlicerStyles; function WriteXmlChildSlicerStyles(_p1: any; _p2: any); function ReadXmlChildTimelineStyles(): TimelineStyles; function WriteXmlChildTimelineStyles(_p1: any; _p2: any); public // Attributes XmlAttrUri: OpenXmlAttribute; // Children XmlChildThm15ThemeFamily: ThemeFamily; XmlChildUniqueId: PureVal; XmlChildSlicerStyles: SlicerStyles; XmlChildTimelineStyles: TimelineStyles; end; type SlicerStyles = class(OpenXmlCompositeElement) 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; function Clone(): SlicerStyles;override; function ConvertToPoint();override; public // attributes property property DefaultSlicerStyle read ReadXmlAttrDefaultSlicerStyle write WriteXmlAttrDefaultSlicerStyle; function ReadXmlAttrDefaultSlicerStyle(); function WriteXmlAttrDefaultSlicerStyle(_value: any); public // Attributes XmlAttrDefaultSlicerStyle: OpenXmlAttribute; end; type TimelineStyles = class(OpenXmlCompositeElement) 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; function Clone(): TimelineStyles;override; function ConvertToPoint();override; public // attributes property property DefaultTimelineStyle read ReadXmlAttrDefaultTimelineStyle write WriteXmlAttrDefaultTimelineStyle; function ReadXmlAttrDefaultTimelineStyle(); function WriteXmlAttrDefaultTimelineStyle(_value: any); public // Attributes XmlAttrDefaultTimelineStyle: OpenXmlAttribute; end; type ThemeFamily = class(OpenXmlCompositeElement) 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; function Clone(): ThemeFamily;override; function ConvertToPoint();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: any); function ReadXmlAttrId(); function WriteXmlAttrId(_value: any); function ReadXmlAttrVid(); function WriteXmlAttrVid(_value: any); public // Attributes XmlAttrName: OpenXmlAttribute; XmlAttrId: OpenXmlAttribute; XmlAttrVid: OpenXmlAttribute; end; type ChartSpace = class(OpenXmlCompositeElement) 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; function Clone(): ChartSpace;override; function ConvertToPoint();override; public // simple_type property property Lang read ReadXmlChildLang write WriteXmlChildLang; function ReadXmlChildLang(): OpenXmlSimpleType; function WriteXmlChildLang(_value: nil_or_OpenXmlSimpleType); // normal property property Date1904 read ReadXmlChildDate1904 write WriteXmlChildDate1904; property AlternateContent read ReadXmlChildAlternateContent write WriteXmlChildAlternateContent; property Chart read ReadXmlChildChart write WriteXmlChildChart; property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr; property ExternalData read ReadXmlChildExternalData write WriteXmlChildExternalData; function ReadXmlChildDate1904(): PureVal; function WriteXmlChildDate1904(_p1: any; _p2: any); function ReadXmlChildAlternateContent(): AlternateContent; function WriteXmlChildAlternateContent(_p1: any; _p2: any); function ReadXmlChildChart(): Chart; function WriteXmlChildChart(_p1: any; _p2: any); function ReadXmlChildSpPr(): SpPr; function WriteXmlChildSpPr(_p1: any; _p2: any); function ReadXmlChildExternalData(): ExternalData; function WriteXmlChildExternalData(_p1: any; _p2: any); public // Children XmlChildDate1904: PureVal; XmlChildLang: OpenXmlSimpleType; XmlChildAlternateContent: AlternateContent; XmlChildChart: Chart; XmlChildSpPr: SpPr; XmlChildExternalData: ExternalData; end; type Chart = class(OpenXmlCompositeElement) 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; function Clone(): Chart;override; function ConvertToPoint();override; public // attributes property property Id read ReadXmlAttrId write WriteXmlAttrId; function ReadXmlAttrId(); function WriteXmlAttrId(_value: any); // normal property property Title read ReadXmlChildTitle write WriteXmlChildTitle; property AutoTitleDeleted read ReadXmlChildAutoTitleDeleted write WriteXmlChildAutoTitleDeleted; property View3D read ReadXmlChildView3D write WriteXmlChildView3D; property PlotArea read ReadXmlChildPlotArea write WriteXmlChildPlotArea; property Legend read ReadXmlChildLegend write WriteXmlChildLegend; property PlotVisOnly read ReadXmlChildPlotVisOnly write WriteXmlChildPlotVisOnly; property DispBlanksAs read ReadXmlChildDispBlanksAs write WriteXmlChildDispBlanksAs; property ShowDLblsOverMax read ReadXmlChildShowDLblsOverMax write WriteXmlChildShowDLblsOverMax; function ReadXmlChildTitle(): Title; function WriteXmlChildTitle(_p1: any; _p2: any); function ReadXmlChildAutoTitleDeleted(): PureVal; function WriteXmlChildAutoTitleDeleted(_p1: any; _p2: any); function ReadXmlChildView3D(): View3D; function WriteXmlChildView3D(_p1: any; _p2: any); function ReadXmlChildPlotArea(): PlotArea; function WriteXmlChildPlotArea(_p1: any; _p2: any); function ReadXmlChildLegend(): Legend; function WriteXmlChildLegend(_p1: any; _p2: any); function ReadXmlChildPlotVisOnly(): PureVal; function WriteXmlChildPlotVisOnly(_p1: any; _p2: any); function ReadXmlChildDispBlanksAs(): PureVal; function WriteXmlChildDispBlanksAs(_p1: any; _p2: any); function ReadXmlChildShowDLblsOverMax(): PureVal; function WriteXmlChildShowDLblsOverMax(_p1: any; _p2: any); 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(OpenXmlCompositeElement) 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; function Clone(): Legend;override; function ConvertToPoint();override; public // simple_type property property Layout read ReadXmlChildLayout write WriteXmlChildLayout; function ReadXmlChildLayout(): OpenXmlSimpleType; function WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType); // normal property property LegendPos read ReadXmlChildLegendPos write WriteXmlChildLegendPos; property Overlay read ReadXmlChildOverlay write WriteXmlChildOverlay; property TxPr read ReadXmlChildTxPr write WriteXmlChildTxPr; function ReadXmlChildLegendPos(): PureVal; function WriteXmlChildLegendPos(_p1: any; _p2: any); function ReadXmlChildOverlay(): PureVal; function WriteXmlChildOverlay(_p1: any; _p2: any); function ReadXmlChildTxPr(): TxPr; function WriteXmlChildTxPr(_p1: any; _p2: any); public // Children XmlChildLegendPos: PureVal; XmlChildLayout: OpenXmlSimpleType; XmlChildOverlay: PureVal; XmlChildTxPr: TxPr; end; type View3D = class(OpenXmlCompositeElement) 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; function Clone(): View3D;override; function ConvertToPoint();override; public // normal property property RotX read ReadXmlChildRotX write WriteXmlChildRotX; property RotY read ReadXmlChildRotY write WriteXmlChildRotY; property RAngAx read ReadXmlChildRAngAx write WriteXmlChildRAngAx; function ReadXmlChildRotX(): PureVal; function WriteXmlChildRotX(_p1: any; _p2: any); function ReadXmlChildRotY(): PureVal; function WriteXmlChildRotY(_p1: any; _p2: any); function ReadXmlChildRAngAx(): PureVal; function WriteXmlChildRAngAx(_p1: any; _p2: any); public // Children XmlChildRotX: PureVal; XmlChildRotY: PureVal; XmlChildRAngAx: PureVal; end; type PlotArea = class(OpenXmlCompositeElement) 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; function Clone(): PlotArea;override; function ConvertToPoint();override; public // simple_type property property Layout read ReadXmlChildLayout write WriteXmlChildLayout; function ReadXmlChildLayout(): OpenXmlSimpleType; function WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType); // normal property property BarChart read ReadXmlChildBarChart write WriteXmlChildBarChart; property CatAx read ReadXmlChildCatAx write WriteXmlChildCatAx; property ValAx read ReadXmlChildValAx write WriteXmlChildValAx; property DTable read ReadXmlChildDTable write WriteXmlChildDTable; property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr; function ReadXmlChildBarChart(): BarChart; function WriteXmlChildBarChart(_p1: any; _p2: any); function ReadXmlChildCatAx(): Ax; function WriteXmlChildCatAx(_p1: any; _p2: any); function ReadXmlChildValAx(): Ax; function WriteXmlChildValAx(_p1: any; _p2: any); function ReadXmlChildDTable(): DTable; function WriteXmlChildDTable(_p1: any; _p2: any); function ReadXmlChildSpPr(): SpPr; function WriteXmlChildSpPr(_p1: any; _p2: any); public // Children XmlChildLayout: OpenXmlSimpleType; XmlChildBarChart: BarChart; XmlChildCatAx: Ax; XmlChildValAx: Ax; XmlChildDTable: DTable; XmlChildSpPr: SpPr; end; type BarChart = class(OpenXmlCompositeElement) 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; function Clone(): BarChart;override; function ConvertToPoint();override; public // normal property property BarDir read ReadXmlChildBarDir write WriteXmlChildBarDir; property Grouping read ReadXmlChildGrouping write WriteXmlChildGrouping; property VaryColors read ReadXmlChildVaryColors write WriteXmlChildVaryColors; property GapWidth read ReadXmlChildGapWidth write WriteXmlChildGapWidth; function ReadXmlChildBarDir(): PureVal; function WriteXmlChildBarDir(_p1: any; _p2: any); function ReadXmlChildGrouping(): PureVal; function WriteXmlChildGrouping(_p1: any; _p2: any); function ReadXmlChildVaryColors(): PureVal; function WriteXmlChildVaryColors(_p1: any; _p2: any); function ReadXmlChildGapWidth(): PureVal; function WriteXmlChildGapWidth(_p1: any; _p2: any); // multi property property Sers read ReadSers write WriteSers; property AxIds read ReadAxIds write WriteAxIds; function ReadSers(_index: integer); function WriteSers(_index: integer; _value: nil_OR_Ser); function ReadAxIds(_index: integer); function WriteAxIds(_index: integer; _value: nil_OR_PureVal); 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(OpenXmlCompositeElement) 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; function Clone(): Ser;override; function ConvertToPoint();override; public // normal property property Idx read ReadXmlChildIdx write WriteXmlChildIdx; property _Order read ReadXmlChild_Order write WriteXmlChild_Order; property Tx read ReadXmlChildTx write WriteXmlChildTx; property InvertIfNegative read ReadXmlChildInvertIfNegative write WriteXmlChildInvertIfNegative; property DLbls read ReadXmlChildDLbls write WriteXmlChildDLbls; property Cat read ReadXmlChildCat write WriteXmlChildCat; property Val read ReadXmlChildVal write WriteXmlChildVal; property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst; function ReadXmlChildIdx(): PureVal; function WriteXmlChildIdx(_p1: any; _p2: any); function ReadXmlChild_Order(): PureVal; function WriteXmlChild_Order(_p1: any; _p2: any); function ReadXmlChildTx(): Tx; function WriteXmlChildTx(_p1: any; _p2: any); function ReadXmlChildInvertIfNegative(): PureVal; function WriteXmlChildInvertIfNegative(_p1: any; _p2: any); function ReadXmlChildDLbls(): DLbls; function WriteXmlChildDLbls(_p1: any; _p2: any); function ReadXmlChildCat(): Cat; function WriteXmlChildCat(_p1: any; _p2: any); function ReadXmlChildVal(): Val; function WriteXmlChildVal(_p1: any; _p2: any); function ReadXmlChildExtLst(): ExtLst; function WriteXmlChildExtLst(_p1: any; _p2: any); public // Children XmlChildIdx: PureVal; XmlChild_Order: PureVal; XmlChildTx: Tx; XmlChildInvertIfNegative: PureVal; XmlChildDLbls: DLbls; XmlChildCat: Cat; XmlChildVal: Val; XmlChildExtLst: ExtLst; end; type DLbls = class(OpenXmlCompositeElement) 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; function Clone(): DLbls;override; function ConvertToPoint();override; public // normal property property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr; property ShowLegendKey read ReadXmlChildShowLegendKey write WriteXmlChildShowLegendKey; property ShowVal read ReadXmlChildShowVal write WriteXmlChildShowVal; property ShowCatName read ReadXmlChildShowCatName write WriteXmlChildShowCatName; property ShowSerName read ReadXmlChildShowSerName write WriteXmlChildShowSerName; property ShowPercent read ReadXmlChildShowPercent write WriteXmlChildShowPercent; property ShowBubbleSize read ReadXmlChildShowBubbleSize write WriteXmlChildShowBubbleSize; property ShowLeaderLines read ReadXmlChildShowLeaderLines write WriteXmlChildShowLeaderLines; property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst; function ReadXmlChildSpPr(): SpPr; function WriteXmlChildSpPr(_p1: any; _p2: any); function ReadXmlChildShowLegendKey(): PureVal; function WriteXmlChildShowLegendKey(_p1: any; _p2: any); function ReadXmlChildShowVal(): PureVal; function WriteXmlChildShowVal(_p1: any; _p2: any); function ReadXmlChildShowCatName(): PureVal; function WriteXmlChildShowCatName(_p1: any; _p2: any); function ReadXmlChildShowSerName(): PureVal; function WriteXmlChildShowSerName(_p1: any; _p2: any); function ReadXmlChildShowPercent(): PureVal; function WriteXmlChildShowPercent(_p1: any; _p2: any); function ReadXmlChildShowBubbleSize(): PureVal; function WriteXmlChildShowBubbleSize(_p1: any; _p2: any); function ReadXmlChildShowLeaderLines(): PureVal; function WriteXmlChildShowLeaderLines(_p1: any; _p2: any); function ReadXmlChildExtLst(): ExtLst; function WriteXmlChildExtLst(_p1: any; _p2: any); public // Children XmlChildSpPr: SpPr; XmlChildShowLegendKey: PureVal; XmlChildShowVal: PureVal; XmlChildShowCatName: PureVal; XmlChildShowSerName: PureVal; XmlChildShowPercent: PureVal; XmlChildShowBubbleSize: PureVal; XmlChildShowLeaderLines: PureVal; XmlChildExtLst: ExtLst; end; type Cat = class(OpenXmlCompositeElement) 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; function Clone(): Cat;override; function ConvertToPoint();override; public // normal property property StrRef read ReadXmlChildStrRef write WriteXmlChildStrRef; function ReadXmlChildStrRef(): StrRef; function WriteXmlChildStrRef(_p1: any; _p2: any); public // Children XmlChildStrRef: StrRef; end; type StrRef = class(OpenXmlCompositeElement) 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; function Clone(): StrRef;override; function ConvertToPoint();override; public // pcdata property property F read ReadXmlChildF write WriteXmlChildF; function ReadXmlChildF(); function WriteXmlChildF(_value: nil_or_OpenXmlTextElement); // normal property property StrCache read ReadXmlChildStrCache write WriteXmlChildStrCache; function ReadXmlChildStrCache(): StrCache; function WriteXmlChildStrCache(_p1: any; _p2: any); public // Children XmlChildF: OpenXmlTextElement; XmlChildStrCache: StrCache; end; type Val = class(OpenXmlCompositeElement) 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; function Clone(): Val;override; function ConvertToPoint();override; public // normal property property NumRef read ReadXmlChildNumRef write WriteXmlChildNumRef; function ReadXmlChildNumRef(): NumRef; function WriteXmlChildNumRef(_p1: any; _p2: any); public // Children XmlChildNumRef: NumRef; end; type NumRef = class(OpenXmlCompositeElement) 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; function Clone(): NumRef;override; function ConvertToPoint();override; public // pcdata property property F read ReadXmlChildF write WriteXmlChildF; function ReadXmlChildF(); function WriteXmlChildF(_value: nil_or_OpenXmlTextElement); // normal property property NumCache read ReadXmlChildNumCache write WriteXmlChildNumCache; function ReadXmlChildNumCache(): NumCache; function WriteXmlChildNumCache(_p1: any; _p2: any); public // Children XmlChildF: OpenXmlTextElement; XmlChildNumCache: NumCache; end; type StrCache = class(OpenXmlCompositeElement) 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; function Clone(): StrCache;override; function ConvertToPoint();override; public // normal property property PtCount read ReadXmlChildPtCount write WriteXmlChildPtCount; function ReadXmlChildPtCount(): PureVal; function WriteXmlChildPtCount(_p1: any; _p2: any); // multi property property Pts read ReadPts write WritePts; function ReadPts(_index: integer); function WritePts(_index: integer; _value: nil_OR_Pt); function AddPt(): Pt; function AppendPt(): Pt; public // Children XmlChildPtCount: PureVal; end; type NumCache = class(OpenXmlCompositeElement) 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; function Clone(): NumCache;override; function ConvertToPoint();override; public // pcdata property property FormatCode read ReadXmlChildFormatCode write WriteXmlChildFormatCode; function ReadXmlChildFormatCode(); function WriteXmlChildFormatCode(_value: nil_or_OpenXmlTextElement); // normal property property PtCount read ReadXmlChildPtCount write WriteXmlChildPtCount; function ReadXmlChildPtCount(): PureVal; function WriteXmlChildPtCount(_p1: any; _p2: any); // multi property property Pts read ReadPts write WritePts; function ReadPts(_index: integer); function WritePts(_index: integer; _value: nil_OR_Pt); function AddPt(): Pt; function AppendPt(): Pt; public // Children XmlChildFormatCode: OpenXmlTextElement; XmlChildPtCount: PureVal; end; type Pt = class(OpenXmlCompositeElement) 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; function Clone(): Pt;override; function ConvertToPoint();override; public // attributes property property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; function ReadXmlAttrIdx(); function WriteXmlAttrIdx(_value: any); // pcdata property property V read ReadXmlChildV write WriteXmlChildV; function ReadXmlChildV(); function WriteXmlChildV(_value: nil_or_OpenXmlTextElement); public // Attributes XmlAttrIdx: OpenXmlAttribute; // Children XmlChildV: OpenXmlTextElement; end; type Ax = class(OpenXmlCompositeElement) 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; function Clone(): Ax;override; function ConvertToPoint();override; public // normal property property AxId read ReadXmlChildAxId write WriteXmlChildAxId; property Scaling read ReadXmlChildScaling write WriteXmlChildScaling; property _Delete read ReadXmlChild_Delete write WriteXmlChild_Delete; property AxPos read ReadXmlChildAxPos write WriteXmlChildAxPos; property NumFmt read ReadXmlChildNumFmt write WriteXmlChildNumFmt; property MajorTickMark read ReadXmlChildMajorTickMark write WriteXmlChildMajorTickMark; property MinorTickMark read ReadXmlChildMinorTickMark write WriteXmlChildMinorTickMark; property TickLblPos read ReadXmlChildTickLblPos write WriteXmlChildTickLblPos; property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr; property TxPr read ReadXmlChildTxPr write WriteXmlChildTxPr; property CrossAx read ReadXmlChildCrossAx write WriteXmlChildCrossAx; property Crosses read ReadXmlChildCrosses write WriteXmlChildCrosses; property CrossBetween read ReadXmlChildCrossBetween write WriteXmlChildCrossBetween; property Auto read ReadXmlChildAuto write WriteXmlChildAuto; property LblAlgn read ReadXmlChildLblAlgn write WriteXmlChildLblAlgn; property LblOffset read ReadXmlChildLblOffset write WriteXmlChildLblOffset; property NoMultiLvlLbl read ReadXmlChildNoMultiLvlLbl write WriteXmlChildNoMultiLvlLbl; function ReadXmlChildAxId(): PureVal; function WriteXmlChildAxId(_p1: any; _p2: any); function ReadXmlChildScaling(): Scaling; function WriteXmlChildScaling(_p1: any; _p2: any); function ReadXmlChild_Delete(): PureVal; function WriteXmlChild_Delete(_p1: any; _p2: any); function ReadXmlChildAxPos(): PureVal; function WriteXmlChildAxPos(_p1: any; _p2: any); function ReadXmlChildNumFmt(): NumFmt; function WriteXmlChildNumFmt(_p1: any; _p2: any); function ReadXmlChildMajorTickMark(): PureVal; function WriteXmlChildMajorTickMark(_p1: any; _p2: any); function ReadXmlChildMinorTickMark(): PureVal; function WriteXmlChildMinorTickMark(_p1: any; _p2: any); function ReadXmlChildTickLblPos(): PureVal; function WriteXmlChildTickLblPos(_p1: any; _p2: any); function ReadXmlChildSpPr(): SpPr; function WriteXmlChildSpPr(_p1: any; _p2: any); function ReadXmlChildTxPr(): TxPr; function WriteXmlChildTxPr(_p1: any; _p2: any); function ReadXmlChildCrossAx(): PureVal; function WriteXmlChildCrossAx(_p1: any; _p2: any); function ReadXmlChildCrosses(): PureVal; function WriteXmlChildCrosses(_p1: any; _p2: any); function ReadXmlChildCrossBetween(): PureVal; function WriteXmlChildCrossBetween(_p1: any; _p2: any); function ReadXmlChildAuto(): PureVal; function WriteXmlChildAuto(_p1: any; _p2: any); function ReadXmlChildLblAlgn(): PureVal; function WriteXmlChildLblAlgn(_p1: any; _p2: any); function ReadXmlChildLblOffset(): PureVal; function WriteXmlChildLblOffset(_p1: any; _p2: any); function ReadXmlChildNoMultiLvlLbl(): PureVal; function WriteXmlChildNoMultiLvlLbl(_p1: any; _p2: any); 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(OpenXmlCompositeElement) 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; function Clone(): NumFmt;override; function ConvertToPoint();override; public // attributes property property FormatCode read ReadXmlAttrFormatCode write WriteXmlAttrFormatCode; property SourceLinked read ReadXmlAttrSourceLinked write WriteXmlAttrSourceLinked; function ReadXmlAttrFormatCode(); function WriteXmlAttrFormatCode(_value: any); function ReadXmlAttrSourceLinked(); function WriteXmlAttrSourceLinked(_value: any); public // Attributes XmlAttrFormatCode: OpenXmlAttribute; XmlAttrSourceLinked: OpenXmlAttribute; end; type Scaling = class(OpenXmlCompositeElement) 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; function Clone(): Scaling;override; function ConvertToPoint();override; public // simple_type property property Orientation read ReadXmlChildOrientation write WriteXmlChildOrientation; function ReadXmlChildOrientation(): OpenXmlSimpleType; function WriteXmlChildOrientation(_value: nil_or_OpenXmlSimpleType); public // Children XmlChildOrientation: OpenXmlSimpleType; end; type DTable = class(OpenXmlCompositeElement) 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; function Clone(): DTable;override; function ConvertToPoint();override; public // normal property property ShowHorzBorder read ReadXmlChildShowHorzBorder write WriteXmlChildShowHorzBorder; property ShowVertBorder read ReadXmlChildShowVertBorder write WriteXmlChildShowVertBorder; property ShowOutline read ReadXmlChildShowOutline write WriteXmlChildShowOutline; property ShowKeys read ReadXmlChildShowKeys write WriteXmlChildShowKeys; property TxPr read ReadXmlChildTxPr write WriteXmlChildTxPr; function ReadXmlChildShowHorzBorder(): PureVal; function WriteXmlChildShowHorzBorder(_p1: any; _p2: any); function ReadXmlChildShowVertBorder(): PureVal; function WriteXmlChildShowVertBorder(_p1: any; _p2: any); function ReadXmlChildShowOutline(): PureVal; function WriteXmlChildShowOutline(_p1: any; _p2: any); function ReadXmlChildShowKeys(): PureVal; function WriteXmlChildShowKeys(_p1: any; _p2: any); function ReadXmlChildTxPr(): TxPr; function WriteXmlChildTxPr(_p1: any; _p2: any); public // Children XmlChildShowHorzBorder: PureVal; XmlChildShowVertBorder: PureVal; XmlChildShowOutline: PureVal; XmlChildShowKeys: PureVal; XmlChildTxPr: TxPr; end; type TxPr = class(OpenXmlCompositeElement) 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; function Clone(): TxPr;override; function ConvertToPoint();override; public // simple_type property property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; function ReadXmlChildLstStyle(): OpenXmlSimpleType; function WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType); // normal property property BodyPr read ReadXmlChildBodyPr write WriteXmlChildBodyPr; function ReadXmlChildBodyPr(): BodyPr; function WriteXmlChildBodyPr(_p1: any; _p2: any); // multi property property Ps read ReadPs write WritePs; function ReadPs(_index: integer); function WritePs(_index: integer; _value: nil_OR_P); function AddP(): P; function AppendP(): P; public // Children XmlChildBodyPr: BodyPr; XmlChildLstStyle: OpenXmlSimpleType; end; type Title = class(OpenXmlCompositeElement) 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; function Clone(): Title;override; function ConvertToPoint();override; public // simple_type property property Layout read ReadXmlChildLayout write WriteXmlChildLayout; function ReadXmlChildLayout(): OpenXmlSimpleType; function WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType); // normal property property Tx read ReadXmlChildTx write WriteXmlChildTx; property Overlay read ReadXmlChildOverlay write WriteXmlChildOverlay; function ReadXmlChildTx(): Tx; function WriteXmlChildTx(_p1: any; _p2: any); function ReadXmlChildOverlay(): PureVal; function WriteXmlChildOverlay(_p1: any; _p2: any); public // Children XmlChildTx: Tx; XmlChildLayout: OpenXmlSimpleType; XmlChildOverlay: PureVal; end; type Tx = class(OpenXmlCompositeElement) 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; function Clone(): Tx;override; function ConvertToPoint();override; public // normal property property StrRef read ReadXmlChildStrRef write WriteXmlChildStrRef; property Rich read ReadXmlChildRich write WriteXmlChildRich; function ReadXmlChildStrRef(): StrRef; function WriteXmlChildStrRef(_p1: any; _p2: any); function ReadXmlChildRich(): Rich; function WriteXmlChildRich(_p1: any; _p2: any); public // Children XmlChildStrRef: StrRef; XmlChildRich: Rich; end; type Rich = class(OpenXmlCompositeElement) 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; function Clone(): Rich;override; function ConvertToPoint();override; public // simple_type property property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; function ReadXmlChildLstStyle(): OpenXmlSimpleType; function WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType); // normal property property BodyPr read ReadXmlChildBodyPr write WriteXmlChildBodyPr; function ReadXmlChildBodyPr(): BodyPr; function WriteXmlChildBodyPr(_p1: any; _p2: any); // multi property property Ps read ReadPs write WritePs; function ReadPs(_index: integer); function WritePs(_index: integer; _value: nil_OR_P); function AddP(): P; function AppendP(): P; public // Children XmlChildBodyPr: BodyPr; XmlChildLstStyle: OpenXmlSimpleType; end; type BodyPr = class(OpenXmlCompositeElement) 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; function Clone(): BodyPr;override; function ConvertToPoint();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: any); function ReadXmlAttrSpcFirstLastPara(); function WriteXmlAttrSpcFirstLastPara(_value: any); function ReadXmlAttrVertOverflow(); function WriteXmlAttrVertOverflow(_value: any); function ReadXmlAttrHorzOverflow(); function WriteXmlAttrHorzOverflow(_value: any); function ReadXmlAttrVert(); function WriteXmlAttrVert(_value: any); function ReadXmlAttrWrap(); function WriteXmlAttrWrap(_value: any); function ReadXmlAttrLIns(); function WriteXmlAttrLIns(_value: any); function ReadXmlAttrTIns(); function WriteXmlAttrTIns(_value: any); function ReadXmlAttrRIns(); function WriteXmlAttrRIns(_value: any); function ReadXmlAttrBIns(); function WriteXmlAttrBIns(_value: any); function ReadXmlAttrNumCol(); function WriteXmlAttrNumCol(_value: any); function ReadXmlAttrSpcCol(); function WriteXmlAttrSpcCol(_value: any); function ReadXmlAttrRtlCol(); function WriteXmlAttrRtlCol(_value: any); function ReadXmlAttrFromWordArt(); function WriteXmlAttrFromWordArt(_value: any); function ReadXmlAttrAnchor(); function WriteXmlAttrAnchor(_value: any); function ReadXmlAttrAnchorCtr(); function WriteXmlAttrAnchorCtr(_value: any); function ReadXmlAttrForceAA(); function WriteXmlAttrForceAA(_value: any); function ReadXmlAttrCompatLnSpc(); function WriteXmlAttrCompatLnSpc(_value: any); // simple_type property property NoAutofit read ReadXmlChildNoAutofit write WriteXmlChildNoAutofit; function ReadXmlChildNoAutofit(): OpenXmlSimpleType; function WriteXmlChildNoAutofit(_value: nil_or_OpenXmlSimpleType); // normal property property PrstTxWrap read ReadXmlChildPrstTxWrap write WriteXmlChildPrstTxWrap; function ReadXmlChildPrstTxWrap(): PrstTxWrap; function WriteXmlChildPrstTxWrap(_p1: any; _p2: any); 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: OpenXmlSimpleType; end; type PrstTxWrap = class(OpenXmlCompositeElement) 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; function Clone(): PrstTxWrap;override; function ConvertToPoint();override; public // attributes property property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; function ReadXmlAttrPrst(); function WriteXmlAttrPrst(_value: any); // simple_type property property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst; function ReadXmlChildAvLst(): OpenXmlSimpleType; function WriteXmlChildAvLst(_value: nil_or_OpenXmlSimpleType); public // Attributes XmlAttrPrst: OpenXmlAttribute; // Children XmlChildAvLst: OpenXmlSimpleType; end; type P = class(OpenXmlCompositeElement) 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; function Clone(): P;override; function ConvertToPoint();override; public // normal property property PPr read ReadXmlChildPPr write WriteXmlChildPPr; property EndParaRPr read ReadXmlChildEndParaRPr write WriteXmlChildEndParaRPr; function ReadXmlChildPPr(): PPr; function WriteXmlChildPPr(_p1: any; _p2: any); function ReadXmlChildEndParaRPr(): RPr; function WriteXmlChildEndParaRPr(_p1: any; _p2: any); // multi property property Rs read ReadRs write WriteRs; function ReadRs(_index: integer); function WriteRs(_index: integer; _value: nil_OR_R); function AddR(): R; function AppendR(): R; public // Children XmlChildPPr: PPr; XmlChildEndParaRPr: RPr; end; type RPr = class(OpenXmlCompositeElement) 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; function Clone(): RPr;override; function ConvertToPoint();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: any); function ReadXmlAttrAltLang(); function WriteXmlAttrAltLang(_value: any); function ReadXmlAttrB(); function WriteXmlAttrB(_value: any); function ReadXmlAttrBaseline(); function WriteXmlAttrBaseline(_value: any); function ReadXmlAttrI(); function WriteXmlAttrI(_value: any); function ReadXmlAttrKern(); function WriteXmlAttrKern(_value: any); function ReadXmlAttrSpc(); function WriteXmlAttrSpc(_value: any); function ReadXmlAttrStrike(); function WriteXmlAttrStrike(_value: any); function ReadXmlAttrSz(); function WriteXmlAttrSz(_value: any); function ReadXmlAttrU(); function WriteXmlAttrU(_value: any); // normal property property SolidFill read ReadXmlChildSolidFill write WriteXmlChildSolidFill; property Latin read ReadXmlChildLatin write WriteXmlChildLatin; property Ea read ReadXmlChildEa write WriteXmlChildEa; property Cs read ReadXmlChildCs write WriteXmlChildCs; function ReadXmlChildSolidFill(): SolidFill; function WriteXmlChildSolidFill(_p1: any; _p2: any); function ReadXmlChildLatin(): Latin; function WriteXmlChildLatin(_p1: any; _p2: any); function ReadXmlChildEa(): Latin; function WriteXmlChildEa(_p1: any; _p2: any); function ReadXmlChildCs(): Latin; function WriteXmlChildCs(_p1: any; _p2: any); 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(OpenXmlCompositeElement) 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; function Clone(): PPr;override; function ConvertToPoint();override; public // normal property property DefRPr read ReadXmlChildDefRPr write WriteXmlChildDefRPr; function ReadXmlChildDefRPr(): RPr; function WriteXmlChildDefRPr(_p1: any; _p2: any); public // Children XmlChildDefRPr: RPr; end; type Latin = class(OpenXmlCompositeElement) 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; function Clone(): Latin;override; function ConvertToPoint();override; public // attributes property property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; function ReadXmlAttrTypeface(); function WriteXmlAttrTypeface(_value: any); public // Attributes XmlAttrTypeface: OpenXmlAttribute; end; type R = class(OpenXmlCompositeElement) 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; function Clone(): R;override; function ConvertToPoint();override; public // normal property property RPr read ReadXmlChildRPr write WriteXmlChildRPr; property T read ReadXmlChildT write WriteXmlChildT; function ReadXmlChildRPr(): RPr; function WriteXmlChildRPr(_p1: any; _p2: any); function ReadXmlChildT(): T; function WriteXmlChildT(_p1: any; _p2: any); public // Children XmlChildRPr: RPr; XmlChildT: T; end; type ExternalData = class(OpenXmlCompositeElement) 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; function Clone(): ExternalData;override; function ConvertToPoint();override; public // attributes property property Id read ReadXmlAttrId write WriteXmlAttrId; function ReadXmlAttrId(); function WriteXmlAttrId(_value: any); // normal property property AutoUpdate read ReadXmlChildAutoUpdate write WriteXmlChildAutoUpdate; function ReadXmlChildAutoUpdate(): PureVal; function WriteXmlChildAutoUpdate(_p1: any; _p2: any); public // Attributes XmlAttrId: OpenXmlAttribute; // Children XmlChildAutoUpdate: PureVal; end; type _Inline = class(OpenXmlCompositeElement) 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; function Clone(): _Inline;override; function ConvertToPoint();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: any); function ReadXmlAttrDistB(); function WriteXmlAttrDistB(_value: any); function ReadXmlAttrDistL(); function WriteXmlAttrDistL(_value: any); function ReadXmlAttrDistR(); function WriteXmlAttrDistR(_value: any); function ReadXmlAttrAnchorId(); function WriteXmlAttrAnchorId(_value: any); function ReadXmlAttrEditId(); function WriteXmlAttrEditId(_value: any); // normal property property Extent read ReadXmlChildExtent write WriteXmlChildExtent; property EffectExtent read ReadXmlChildEffectExtent write WriteXmlChildEffectExtent; property DocPr read ReadXmlChildDocPr write WriteXmlChildDocPr; property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr write WriteXmlChildCNvGraphicFramePr; property Graphic read ReadXmlChildGraphic write WriteXmlChildGraphic; function ReadXmlChildExtent(): CXY; function WriteXmlChildExtent(_p1: any; _p2: any); function ReadXmlChildEffectExtent(): EffectExtent; function WriteXmlChildEffectExtent(_p1: any; _p2: any); function ReadXmlChildDocPr(): DocPr; function WriteXmlChildDocPr(_p1: any; _p2: any); function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; function WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any); function ReadXmlChildGraphic(): Graphic; function WriteXmlChildGraphic(_p1: any; _p2: any); 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(OpenXmlCompositeElement) 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; function Clone(): EffectExtent;override; function ConvertToPoint();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: any); function ReadXmlAttrT(); function WriteXmlAttrT(_value: any); function ReadXmlAttrR(); function WriteXmlAttrR(_value: any); function ReadXmlAttrB(); function WriteXmlAttrB(_value: any); public // Attributes XmlAttrL: OpenXmlAttribute; XmlAttrT: OpenXmlAttribute; XmlAttrR: OpenXmlAttribute; XmlAttrB: OpenXmlAttribute; end; type DocPr = class(OpenXmlCompositeElement) 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; function Clone(): DocPr;override; function ConvertToPoint();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: any); function ReadXmlAttrName(); function WriteXmlAttrName(_value: any); function ReadXmlAttrDescr(); function WriteXmlAttrDescr(_value: any); // normal property property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst; function ReadXmlChildExtLst(): ExtLst; function WriteXmlChildExtLst(_p1: any; _p2: any); public // Attributes XmlAttrId: OpenXmlAttribute; XmlAttrName: OpenXmlAttribute; XmlAttrDescr: OpenXmlAttribute; // Children XmlChildExtLst: ExtLst; end; type CNvGraphicFramePr = class(OpenXmlCompositeElement) 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; function Clone(): CNvGraphicFramePr;override; function ConvertToPoint();override; public // normal property property GraphicFrameLocks read ReadXmlChildGraphicFrameLocks write WriteXmlChildGraphicFrameLocks; function ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks; function WriteXmlChildGraphicFrameLocks(_p1: any; _p2: any); public // Children XmlChildGraphicFrameLocks: GraphicFrameLocks; end; type GraphicFrameLocks = class(OpenXmlCompositeElement) 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; function Clone(): GraphicFrameLocks;override; function ConvertToPoint();override; public // attributes property property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; function ReadXmlAttrNoChangeAspect(); function WriteXmlAttrNoChangeAspect(_value: any); public // Attributes XmlAttrNoChangeAspect: OpenXmlAttribute; end; type Graphic = class(OpenXmlCompositeElement) 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; function Clone(): Graphic;override; function ConvertToPoint();override; public // normal property property GraphicData read ReadXmlChildGraphicData write WriteXmlChildGraphicData; function ReadXmlChildGraphicData(): GraphicData; function WriteXmlChildGraphicData(_p1: any; _p2: any); public // Children XmlChildGraphicData: GraphicData; end; type GraphicData = class(OpenXmlCompositeElement) 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; function Clone(): GraphicData;override; function ConvertToPoint();override; public // attributes property property Uri read ReadXmlAttrUri write WriteXmlAttrUri; function ReadXmlAttrUri(); function WriteXmlAttrUri(_value: any); // normal property property Pic read ReadXmlChildPic write WriteXmlChildPic; property Chart read ReadXmlChildChart write WriteXmlChildChart; property Wsp read ReadXmlChildWsp write WriteXmlChildWsp; function ReadXmlChildPic(): Pic; function WriteXmlChildPic(_p1: any; _p2: any); function ReadXmlChildChart(): Chart; function WriteXmlChildChart(_p1: any; _p2: any); function ReadXmlChildWsp(): Wsp; function WriteXmlChildWsp(_p1: any; _p2: any); public // Attributes XmlAttrUri: OpenXmlAttribute; // Children XmlChildPic: Pic; XmlChildChart: Chart; XmlChildWsp: Wsp; end; type Wsp = class(OpenXmlCompositeElement) 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; function Clone(): Wsp;override; function ConvertToPoint();override; public // normal property property CNvSpPr read ReadXmlChildCNvSpPr write WriteXmlChildCNvSpPr; property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr; property Txbx read ReadXmlChildTxbx write WriteXmlChildTxbx; property Style read ReadXmlChildStyle write WriteXmlChildStyle; property BodyPr read ReadXmlChildBodyPr write WriteXmlChildBodyPr; function ReadXmlChildCNvSpPr(): CNvSpPr; function WriteXmlChildCNvSpPr(_p1: any; _p2: any); function ReadXmlChildSpPr(): SpPr; function WriteXmlChildSpPr(_p1: any; _p2: any); function ReadXmlChildTxbx(): Txbx; function WriteXmlChildTxbx(_p1: any; _p2: any); function ReadXmlChildStyle(): WpsStyle; function WriteXmlChildStyle(_p1: any; _p2: any); function ReadXmlChildBodyPr(): BodyPr; function WriteXmlChildBodyPr(_p1: any; _p2: any); public // Children XmlChildCNvSpPr: CNvSpPr; XmlChildSpPr: SpPr; XmlChildTxbx: Txbx; XmlChildStyle: WpsStyle; XmlChildBodyPr: BodyPr; end; type WpsStyle = class(OpenXmlCompositeElement) 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; function Clone(): WpsStyle;override; function ConvertToPoint();override; public // normal property property LnRef read ReadXmlChildLnRef write WriteXmlChildLnRef; property FillRef read ReadXmlChildFillRef write WriteXmlChildFillRef; property EffectRef read ReadXmlChildEffectRef write WriteXmlChildEffectRef; property FontRef read ReadXmlChildFontRef write WriteXmlChildFontRef; function ReadXmlChildLnRef(): XRef; function WriteXmlChildLnRef(_p1: any; _p2: any); function ReadXmlChildFillRef(): XRef; function WriteXmlChildFillRef(_p1: any; _p2: any); function ReadXmlChildEffectRef(): XRef; function WriteXmlChildEffectRef(_p1: any; _p2: any); function ReadXmlChildFontRef(): XRef; function WriteXmlChildFontRef(_p1: any; _p2: any); public // Children XmlChildLnRef: XRef; XmlChildFillRef: XRef; XmlChildEffectRef: XRef; XmlChildFontRef: XRef; end; type XRef = class(OpenXmlCompositeElement) 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; function Clone(): XRef;override; function ConvertToPoint();override; public // attributes property property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; function ReadXmlAttrIdx(); function WriteXmlAttrIdx(_value: any); // normal property property SchemeClr read ReadXmlChildSchemeClr write WriteXmlChildSchemeClr; function ReadXmlChildSchemeClr(): SchemeClr; function WriteXmlChildSchemeClr(_p1: any; _p2: any); public // Attributes XmlAttrIdx: OpenXmlAttribute; // Children XmlChildSchemeClr: SchemeClr; end; type Txbx = class(OpenXmlCompositeElement) 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; function Clone(): Txbx;override; function ConvertToPoint();override; public // normal property property TxbxContent read ReadXmlChildTxbxContent write WriteXmlChildTxbxContent; function ReadXmlChildTxbxContent(): TxbxContent; function WriteXmlChildTxbxContent(_p1: any; _p2: any); public // Children XmlChildTxbxContent: TxbxContent; end; type CNvSpPr = class(OpenXmlCompositeElement) 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; function Clone(): CNvSpPr;override; function ConvertToPoint();override; public // attributes property property TxBox read ReadXmlAttrTxBox write WriteXmlAttrTxBox; function ReadXmlAttrTxBox(); function WriteXmlAttrTxBox(_value: any); // normal property property SpLocks read ReadXmlChildSpLocks write WriteXmlChildSpLocks; function ReadXmlChildSpLocks(): SpLocks; function WriteXmlChildSpLocks(_p1: any; _p2: any); public // Attributes XmlAttrTxBox: OpenXmlAttribute; // Children XmlChildSpLocks: SpLocks; end; type SpLocks = class(OpenXmlCompositeElement) 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; function Clone(): SpLocks;override; function ConvertToPoint();override; public // attributes property property NoChangeArrowheads read ReadXmlAttrNoChangeArrowheads write WriteXmlAttrNoChangeArrowheads; function ReadXmlAttrNoChangeArrowheads(); function WriteXmlAttrNoChangeArrowheads(_value: any); public // Attributes XmlAttrNoChangeArrowheads: OpenXmlAttribute; end; type Pic = class(OpenXmlCompositeElement) 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; function Clone(): Pic;override; function ConvertToPoint();override; public // normal property property NvPicPr read ReadXmlChildNvPicPr write WriteXmlChildNvPicPr; property BlipFill read ReadXmlChildBlipFill write WriteXmlChildBlipFill; property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr; function ReadXmlChildNvPicPr(): NvPicPr; function WriteXmlChildNvPicPr(_p1: any; _p2: any); function ReadXmlChildBlipFill(): BlipFill; function WriteXmlChildBlipFill(_p1: any; _p2: any); function ReadXmlChildSpPr(): SpPr; function WriteXmlChildSpPr(_p1: any; _p2: any); public // Children XmlChildNvPicPr: NvPicPr; XmlChildBlipFill: BlipFill; XmlChildSpPr: SpPr; end; type NvPicPr = class(OpenXmlCompositeElement) 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; function Clone(): NvPicPr;override; function ConvertToPoint();override; public // normal property property CNvPr read ReadXmlChildCNvPr write WriteXmlChildCNvPr; property CNvPicPr read ReadXmlChildCNvPicPr write WriteXmlChildCNvPicPr; function ReadXmlChildCNvPr(): CNvPr; function WriteXmlChildCNvPr(_p1: any; _p2: any); function ReadXmlChildCNvPicPr(): CNvPicPr; function WriteXmlChildCNvPicPr(_p1: any; _p2: any); public // Children XmlChildCNvPr: CNvPr; XmlChildCNvPicPr: CNvPicPr; end; type CNvPr = class(OpenXmlCompositeElement) 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; function Clone(): CNvPr;override; function ConvertToPoint();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: any); function ReadXmlAttrName(); function WriteXmlAttrName(_value: any); function ReadXmlAttrDescr(); function WriteXmlAttrDescr(_value: any); public // Attributes XmlAttrId: OpenXmlAttribute; XmlAttrName: OpenXmlAttribute; XmlAttrDescr: OpenXmlAttribute; end; type CNvPicPr = class(OpenXmlCompositeElement) 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; function Clone(): CNvPicPr;override; function ConvertToPoint();override; public // normal property property PicLocks read ReadXmlChildPicLocks write WriteXmlChildPicLocks; function ReadXmlChildPicLocks(): PicLocks; function WriteXmlChildPicLocks(_p1: any; _p2: any); public // Children XmlChildPicLocks: PicLocks; end; type PicLocks = class(OpenXmlCompositeElement) 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; function Clone(): PicLocks;override; function ConvertToPoint();override; public // attributes property property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; function ReadXmlAttrNoChangeAspect(); function WriteXmlAttrNoChangeAspect(_value: any); public // Attributes XmlAttrNoChangeAspect: OpenXmlAttribute; end; type BlipFill = class(OpenXmlCompositeElement) 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; function Clone(): BlipFill;override; function ConvertToPoint();override; public // normal property property Blip read ReadXmlChildBlip write WriteXmlChildBlip; property Stretch read ReadXmlChildStretch write WriteXmlChildStretch; function ReadXmlChildBlip(): Blip; function WriteXmlChildBlip(_p1: any; _p2: any); function ReadXmlChildStretch(): Stretch; function WriteXmlChildStretch(_p1: any; _p2: any); public // Children XmlChildBlip: Blip; XmlChildStretch: Stretch; end; type Blip = class(OpenXmlCompositeElement) 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; function Clone(): Blip;override; function ConvertToPoint();override; public // attributes property property Embed read ReadXmlAttrEmbed write WriteXmlAttrEmbed; property Cstate read ReadXmlAttrCstate write WriteXmlAttrCstate; function ReadXmlAttrEmbed(); function WriteXmlAttrEmbed(_value: any); function ReadXmlAttrCstate(); function WriteXmlAttrCstate(_value: any); public // Attributes XmlAttrEmbed: OpenXmlAttribute; XmlAttrCstate: OpenXmlAttribute; end; type Stretch = class(OpenXmlCompositeElement) 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; function Clone(): Stretch;override; function ConvertToPoint();override; public // normal property property FillRect read ReadXmlChildFillRect write WriteXmlChildFillRect; function ReadXmlChildFillRect(): PureVal; function WriteXmlChildFillRect(_p1: any; _p2: any); public // Children XmlChildFillRect: PureVal; end; type SpPr = class(OpenXmlCompositeElement) 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; function Clone(): SpPr;override; function ConvertToPoint();override; public // attributes property property BwMode read ReadXmlAttrBwMode write WriteXmlAttrBwMode; function ReadXmlAttrBwMode(); function WriteXmlAttrBwMode(_value: any); // simple_type property property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; function ReadXmlChildNoFill(): OpenXmlSimpleType; function WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType); // normal property property Xfrm read ReadXmlChildXfrm write WriteXmlChildXfrm; property PrstGeom read ReadXmlChildPrstGeom write WriteXmlChildPrstGeom; property SolidFill read ReadXmlChildSolidFill write WriteXmlChildSolidFill; property Ln read ReadXmlChildLn write WriteXmlChildLn; property EffectLst read ReadXmlChildEffectLst write WriteXmlChildEffectLst; function ReadXmlChildXfrm(): Xfrm; function WriteXmlChildXfrm(_p1: any; _p2: any); function ReadXmlChildPrstGeom(): PrstGeom; function WriteXmlChildPrstGeom(_p1: any; _p2: any); function ReadXmlChildSolidFill(): SolidFill; function WriteXmlChildSolidFill(_p1: any; _p2: any); function ReadXmlChildLn(): Ln; function WriteXmlChildLn(_p1: any; _p2: any); function ReadXmlChildEffectLst(): EffectLst; function WriteXmlChildEffectLst(_p1: any; _p2: any); public // Attributes XmlAttrBwMode: OpenXmlAttribute; // Children XmlChildXfrm: Xfrm; XmlChildPrstGeom: PrstGeom; XmlChildNoFill: OpenXmlSimpleType; XmlChildSolidFill: SolidFill; XmlChildLn: Ln; XmlChildEffectLst: EffectLst; end; type EffectLst = class(OpenXmlCompositeElement) 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; function Clone(): EffectLst;override; function ConvertToPoint();override; public // normal property property OuterShdw read ReadXmlChildOuterShdw write WriteXmlChildOuterShdw; function ReadXmlChildOuterShdw(): OuterShdw; function WriteXmlChildOuterShdw(_p1: any; _p2: any); public // Children XmlChildOuterShdw: OuterShdw; end; type Ln = class(OpenXmlCompositeElement) 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; function Clone(): Ln;override; function ConvertToPoint();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: any); function ReadXmlAttrCap(); function WriteXmlAttrCap(_value: any); function ReadXmlAttrCmpd(); function WriteXmlAttrCmpd(_value: any); function ReadXmlAttrAlgn(); function WriteXmlAttrAlgn(_value: any); // simple_type property property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; property HeadEnd read ReadXmlChildHeadEnd write WriteXmlChildHeadEnd; property TailEnd read ReadXmlChildTailEnd write WriteXmlChildTailEnd; function ReadXmlChildNoFill(): OpenXmlSimpleType; function WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType); function ReadXmlChildHeadEnd(): OpenXmlSimpleType; function WriteXmlChildHeadEnd(_value: nil_or_OpenXmlSimpleType); function ReadXmlChildTailEnd(): OpenXmlSimpleType; function WriteXmlChildTailEnd(_value: nil_or_OpenXmlSimpleType); // normal property property SolidFill read ReadXmlChildSolidFill write WriteXmlChildSolidFill; property PrstDash read ReadXmlChildPrstDash write WriteXmlChildPrstDash; property Miter read ReadXmlChildMiter write WriteXmlChildMiter; function ReadXmlChildSolidFill(): SolidFill; function WriteXmlChildSolidFill(_p1: any; _p2: any); function ReadXmlChildPrstDash(): PureVal; function WriteXmlChildPrstDash(_p1: any; _p2: any); function ReadXmlChildMiter(): Miter; function WriteXmlChildMiter(_p1: any; _p2: any); public // Attributes XmlAttrW: OpenXmlAttribute; XmlAttrCap: OpenXmlAttribute; XmlAttrCmpd: OpenXmlAttribute; XmlAttrAlgn: OpenXmlAttribute; // Children XmlChildNoFill: OpenXmlSimpleType; XmlChildSolidFill: SolidFill; XmlChildPrstDash: PureVal; XmlChildMiter: Miter; XmlChildHeadEnd: OpenXmlSimpleType; XmlChildTailEnd: OpenXmlSimpleType; end; type Miter = class(OpenXmlCompositeElement) 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; function Clone(): Miter;override; function ConvertToPoint();override; public // attributes property property Lim read ReadXmlAttrLim write WriteXmlAttrLim; function ReadXmlAttrLim(); function WriteXmlAttrLim(_value: any); public // Attributes XmlAttrLim: OpenXmlAttribute; end; type Xfrm = class(OpenXmlCompositeElement) 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; function Clone(): Xfrm;override; function ConvertToPoint();override; public // attributes property property FlipH read ReadXmlAttrFlipH write WriteXmlAttrFlipH; property FlipV read ReadXmlAttrFlipV write WriteXmlAttrFlipV; property Rot read ReadXmlAttrRot write WriteXmlAttrRot; function ReadXmlAttrFlipH(); function WriteXmlAttrFlipH(_value: any); function ReadXmlAttrFlipV(); function WriteXmlAttrFlipV(_value: any); function ReadXmlAttrRot(); function WriteXmlAttrRot(_value: any); // normal property property Off read ReadXmlChildOff write WriteXmlChildOff; property Ext read ReadXmlChildExt write WriteXmlChildExt; function ReadXmlChildOff(): XY; function WriteXmlChildOff(_p1: any; _p2: any); function ReadXmlChildExt(): CXY; function WriteXmlChildExt(_p1: any; _p2: any); public // Attributes XmlAttrFlipH: OpenXmlAttribute; XmlAttrFlipV: OpenXmlAttribute; XmlAttrRot: OpenXmlAttribute; // Children XmlChildOff: XY; XmlChildExt: CXY; end; type XY = class(OpenXmlCompositeElement) 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; function Clone(): XY;override; function ConvertToPoint();override; public // attributes property property X read ReadXmlAttrX write WriteXmlAttrX; property Y read ReadXmlAttrY write WriteXmlAttrY; function ReadXmlAttrX(); function WriteXmlAttrX(_value: any); function ReadXmlAttrY(); function WriteXmlAttrY(_value: any); public // Attributes XmlAttrX: OpenXmlAttribute; XmlAttrY: OpenXmlAttribute; end; type CXY = class(OpenXmlCompositeElement) 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; function Clone(): CXY;override; function ConvertToPoint();override; public // attributes property property Cx read ReadXmlAttrCx write WriteXmlAttrCx; property Cy read ReadXmlAttrCy write WriteXmlAttrCy; function ReadXmlAttrCx(); function WriteXmlAttrCx(_value: any); function ReadXmlAttrCy(); function WriteXmlAttrCy(_value: any); public // Attributes XmlAttrCx: OpenXmlAttribute; XmlAttrCy: OpenXmlAttribute; end; type PrstGeom = class(OpenXmlCompositeElement) 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; function Clone(): PrstGeom;override; function ConvertToPoint();override; public // attributes property property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; function ReadXmlAttrPrst(); function WriteXmlAttrPrst(_value: any); // normal property property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst; function ReadXmlChildAvLst(): PureVal; function WriteXmlChildAvLst(_p1: any; _p2: any); public // Attributes XmlAttrPrst: OpenXmlAttribute; // Children XmlChildAvLst: PureVal; end; type Anchor = class(OpenXmlCompositeElement) 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; function Clone(): Anchor;override; function ConvertToPoint();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: any); function ReadXmlAttrDistB(); function WriteXmlAttrDistB(_value: any); function ReadXmlAttrDistL(); function WriteXmlAttrDistL(_value: any); function ReadXmlAttrDistR(); function WriteXmlAttrDistR(_value: any); function ReadXmlAttrSimplePos(); function WriteXmlAttrSimplePos(_value: any); function ReadXmlAttrRelativeHeight(); function WriteXmlAttrRelativeHeight(_value: any); function ReadXmlAttrBehindDoc(); function WriteXmlAttrBehindDoc(_value: any); function ReadXmlAttrLocked(); function WriteXmlAttrLocked(_value: any); function ReadXmlAttrHidden(); function WriteXmlAttrHidden(_value: any); function ReadXmlAttrLayoutInCell(); function WriteXmlAttrLayoutInCell(_value: any); function ReadXmlAttrAllowOverlap(); function WriteXmlAttrAllowOverlap(_value: any); function ReadXmlAttrAnchorId(); function WriteXmlAttrAnchorId(_value: any); function ReadXmlAttrEditId(); function WriteXmlAttrEditId(_value: any); // simple_type property property WrapNone read ReadXmlChildWrapNone write WriteXmlChildWrapNone; function ReadXmlChildWrapNone(): OpenXmlSimpleType; function WriteXmlChildWrapNone(_value: nil_or_OpenXmlSimpleType); // normal property property SimplePos read ReadXmlChildSimplePos write WriteXmlChildSimplePos; property PositionH read ReadXmlChildPositionH write WriteXmlChildPositionH; property PositionV read ReadXmlChildPositionV write WriteXmlChildPositionV; property Extent read ReadXmlChildExtent write WriteXmlChildExtent; property EffectExtent read ReadXmlChildEffectExtent write WriteXmlChildEffectExtent; property DocPr read ReadXmlChildDocPr write WriteXmlChildDocPr; property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr write WriteXmlChildCNvGraphicFramePr; property Graphic read ReadXmlChildGraphic write WriteXmlChildGraphic; property SizeRelH read ReadXmlChildSizeRelH write WriteXmlChildSizeRelH; property SizeRelV read ReadXmlChildSizeRelV write WriteXmlChildSizeRelV; function ReadXmlChildSimplePos(): XY; function WriteXmlChildSimplePos(_p1: any; _p2: any); function ReadXmlChildPositionH(): PositionH; function WriteXmlChildPositionH(_p1: any; _p2: any); function ReadXmlChildPositionV(): PositionV; function WriteXmlChildPositionV(_p1: any; _p2: any); function ReadXmlChildExtent(): CXY; function WriteXmlChildExtent(_p1: any; _p2: any); function ReadXmlChildEffectExtent(): EffectExtent; function WriteXmlChildEffectExtent(_p1: any; _p2: any); function ReadXmlChildDocPr(): DocPr; function WriteXmlChildDocPr(_p1: any; _p2: any); function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; function WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any); function ReadXmlChildGraphic(): Graphic; function WriteXmlChildGraphic(_p1: any; _p2: any); function ReadXmlChildSizeRelH(): SizeRelH; function WriteXmlChildSizeRelH(_p1: any; _p2: any); function ReadXmlChildSizeRelV(): SizeRelV; function WriteXmlChildSizeRelV(_p1: any; _p2: any); 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: OpenXmlSimpleType; XmlChildDocPr: DocPr; XmlChildCNvGraphicFramePr: CNvGraphicFramePr; XmlChildGraphic: Graphic; XmlChildSizeRelH: SizeRelH; XmlChildSizeRelV: SizeRelV; end; type PositionV = class(OpenXmlCompositeElement) 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; function Clone(): PositionV;override; function ConvertToPoint();override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value: any); // pcdata property property PosOffset read ReadXmlChildPosOffset write WriteXmlChildPosOffset; function ReadXmlChildPosOffset(); function WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPosOffset: OpenXmlTextElement; end; type PositionH = class(OpenXmlCompositeElement) 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; function Clone(): PositionH;override; function ConvertToPoint();override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value: any); // pcdata property property PosOffset read ReadXmlChildPosOffset write WriteXmlChildPosOffset; function ReadXmlChildPosOffset(); function WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPosOffset: OpenXmlTextElement; end; type SizeRelH = class(OpenXmlCompositeElement) 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; function Clone(): SizeRelH;override; function ConvertToPoint();override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value: any); // pcdata property property PctWidth read ReadXmlChildPctWidth write WriteXmlChildPctWidth; function ReadXmlChildPctWidth(); function WriteXmlChildPctWidth(_value: nil_or_OpenXmlTextElement); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPctWidth: OpenXmlTextElement; end; type SizeRelV = class(OpenXmlCompositeElement) 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; function Clone(): SizeRelV;override; function ConvertToPoint();override; public // attributes property property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; function ReadXmlAttrRelativeFrom(); function WriteXmlAttrRelativeFrom(_value: any); // pcdata property property PctHeight read ReadXmlChildPctHeight write WriteXmlChildPctHeight; function ReadXmlChildPctHeight(); function WriteXmlChildPctHeight(_value: nil_or_OpenXmlTextElement); public // Attributes XmlAttrRelativeFrom: OpenXmlAttribute; // Children XmlChildPctHeight: OpenXmlTextElement; end; implementation function Theme.create();overload; begin {self.}create(nil, "a", "theme"); end; function Theme.create(_node: XmlNode);overload; begin inherited create(_node); end; function Theme.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Theme;override; begin obj := new Theme(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Name) then obj.Name := {self.}Name; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "themeElements": obj.ThemeElements := element.Clone(); pre + "objectDefaults": obj.ObjectDefaults := element.Clone(); pre + "extraClrSchemeLst": obj.ExtraClrSchemeLst := element.Clone(); pre + "extLst": obj.ExtLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Theme.ConvertToPoint();override; begin if not ifnil({self.}XmlChildThemeElements) then {self.}XmlChildThemeElements.ConvertToPoint(); if not ifnil({self.}XmlChildExtLst) then {self.}XmlChildExtLst.ConvertToPoint(); end; function Theme.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function Theme.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function Theme.ReadXmlChildObjectDefaults(); begin if tslassigning and (ifnil({self.}XmlChildObjectDefaults) or {self.}XmlChildObjectDefaults.Removed) then begin {self.}XmlChildObjectDefaults := new OpenXmlSimpleType(self, {self.}Prefix, "objectDefaults"); container_.Set({self.}XmlChildObjectDefaults); end return {self.}XmlChildObjectDefaults and not {self.}XmlChildObjectDefaults.Removed ? {self.}XmlChildObjectDefaults : fallback_.ObjectDefaults; end; function Theme.WriteXmlChildObjectDefaults(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildObjectDefaults) then {self.}RemoveChild({self.}XmlChildObjectDefaults); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildObjectDefaults := _value; container_.Set({self.}XmlChildObjectDefaults); end else begin raise "Invalid assignment: ObjectDefaults expects nil or OpenXmlSimpleType"; end end; function Theme.ReadXmlChildExtraClrSchemeLst(); begin if tslassigning and (ifnil({self.}XmlChildExtraClrSchemeLst) or {self.}XmlChildExtraClrSchemeLst.Removed) then begin {self.}XmlChildExtraClrSchemeLst := new OpenXmlSimpleType(self, {self.}Prefix, "extraClrSchemeLst"); container_.Set({self.}XmlChildExtraClrSchemeLst); end return {self.}XmlChildExtraClrSchemeLst and not {self.}XmlChildExtraClrSchemeLst.Removed ? {self.}XmlChildExtraClrSchemeLst : fallback_.ExtraClrSchemeLst; end; function Theme.WriteXmlChildExtraClrSchemeLst(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildExtraClrSchemeLst) then {self.}RemoveChild({self.}XmlChildExtraClrSchemeLst); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildExtraClrSchemeLst := _value; container_.Set({self.}XmlChildExtraClrSchemeLst); end else begin raise "Invalid assignment: ExtraClrSchemeLst expects nil or OpenXmlSimpleType"; end end; function Theme.ReadXmlChildThemeElements(): ThemeElements; begin if tslassigning and (ifnil({self.}XmlChildThemeElements) or {self.}XmlChildThemeElements.Removed) then begin {self.}XmlChildThemeElements := new ThemeElements(self, {self.}Prefix, "themeElements"); container_.Set({self.}XmlChildThemeElements); end return {self.}XmlChildThemeElements and not {self.}XmlChildThemeElements.Removed ? {self.}XmlChildThemeElements : fallback_.ThemeElements; end; function Theme.WriteXmlChildThemeElements(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildThemeElements) then {self.}RemoveChild({self.}XmlChildThemeElements); end else if v is class(ThemeElements) then begin v.Parent := self; {self.}XmlChildThemeElements := v; container_.Set({self.}XmlChildThemeElements); end else begin raise "Invalid assignment: ThemeElements expects ThemeElements or nil"; end end; function Theme.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then begin {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst; end; function Theme.WriteXmlChildExtLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExtLst) then {self.}RemoveChild({self.}XmlChildExtLst); end else if v is class(ExtLst) then begin v.Parent := self; {self.}XmlChildExtLst := v; container_.Set({self.}XmlChildExtLst); end else begin raise "Invalid assignment: ExtLst expects ExtLst or nil"; end end; function ThemeElements.create();overload; begin {self.}create(nil, "a", "themeElements"); end; function ThemeElements.create(_node: XmlNode);overload; begin inherited create(_node); end; function ThemeElements.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): ThemeElements;override; begin obj := new ThemeElements(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Name) then obj.Name := {self.}Name; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "clrScheme": obj.ClrScheme := element.Clone(); pre + "fontScheme": obj.FontScheme := element.Clone(); pre + "fmtScheme": obj.FmtScheme := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function ThemeElements.ConvertToPoint();override; begin if not ifnil({self.}XmlChildClrScheme) then {self.}XmlChildClrScheme.ConvertToPoint(); if not ifnil({self.}XmlChildFontScheme) then {self.}XmlChildFontScheme.ConvertToPoint(); if not ifnil({self.}XmlChildFmtScheme) then {self.}XmlChildFmtScheme.ConvertToPoint(); end; function ThemeElements.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function ThemeElements.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function ThemeElements.ReadXmlChildClrScheme(): ClrScheme; begin if tslassigning and (ifnil({self.}XmlChildClrScheme) or {self.}XmlChildClrScheme.Removed) then begin {self.}XmlChildClrScheme := new ClrScheme(self, {self.}Prefix, "clrScheme"); container_.Set({self.}XmlChildClrScheme); end return {self.}XmlChildClrScheme and not {self.}XmlChildClrScheme.Removed ? {self.}XmlChildClrScheme : fallback_.ClrScheme; end; function ThemeElements.WriteXmlChildClrScheme(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildClrScheme) then {self.}RemoveChild({self.}XmlChildClrScheme); end else if v is class(ClrScheme) then begin v.Parent := self; {self.}XmlChildClrScheme := v; container_.Set({self.}XmlChildClrScheme); end else begin raise "Invalid assignment: ClrScheme expects ClrScheme or nil"; end end; function ThemeElements.ReadXmlChildFontScheme(): FontScheme; begin if tslassigning and (ifnil({self.}XmlChildFontScheme) or {self.}XmlChildFontScheme.Removed) then begin {self.}XmlChildFontScheme := new FontScheme(self, {self.}Prefix, "fontScheme"); container_.Set({self.}XmlChildFontScheme); end return {self.}XmlChildFontScheme and not {self.}XmlChildFontScheme.Removed ? {self.}XmlChildFontScheme : fallback_.FontScheme; end; function ThemeElements.WriteXmlChildFontScheme(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildFontScheme) then {self.}RemoveChild({self.}XmlChildFontScheme); end else if v is class(FontScheme) then begin v.Parent := self; {self.}XmlChildFontScheme := v; container_.Set({self.}XmlChildFontScheme); end else begin raise "Invalid assignment: FontScheme expects FontScheme or nil"; end end; function ThemeElements.ReadXmlChildFmtScheme(): FmtScheme; begin if tslassigning and (ifnil({self.}XmlChildFmtScheme) or {self.}XmlChildFmtScheme.Removed) then begin {self.}XmlChildFmtScheme := new FmtScheme(self, {self.}Prefix, "fmtScheme"); container_.Set({self.}XmlChildFmtScheme); end return {self.}XmlChildFmtScheme and not {self.}XmlChildFmtScheme.Removed ? {self.}XmlChildFmtScheme : fallback_.FmtScheme; end; function ThemeElements.WriteXmlChildFmtScheme(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildFmtScheme) then {self.}RemoveChild({self.}XmlChildFmtScheme); end else if v is class(FmtScheme) then begin v.Parent := self; {self.}XmlChildFmtScheme := v; container_.Set({self.}XmlChildFmtScheme); end else begin raise "Invalid assignment: FmtScheme expects FmtScheme or nil"; end end; function ClrScheme.create();overload; begin {self.}create(nil, "a", "clrScheme"); end; function ClrScheme.create(_node: XmlNode);overload; begin inherited create(_node); end; function ClrScheme.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): ClrScheme;override; begin obj := new ClrScheme(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Name) then obj.Name := {self.}Name; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "dk1": obj.Dk1 := element.Clone(); pre + "lt1": obj.Lt1 := element.Clone(); pre + "dk2": obj.Dk2 := element.Clone(); pre + "lt2": obj.Lt2 := element.Clone(); pre + "accent1": obj.Accent1 := element.Clone(); pre + "accent2": obj.Accent2 := element.Clone(); pre + "accent3": obj.Accent3 := element.Clone(); pre + "accent4": obj.Accent4 := element.Clone(); pre + "accent5": obj.Accent5 := element.Clone(); pre + "accent6": obj.Accent6 := element.Clone(); pre + "hlink": obj.Hlink := element.Clone(); pre + "folHlink": obj.FolHlink := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function ClrScheme.ConvertToPoint();override; begin if not ifnil({self.}XmlChildDk1) then {self.}XmlChildDk1.ConvertToPoint(); if not ifnil({self.}XmlChildLt1) then {self.}XmlChildLt1.ConvertToPoint(); if not ifnil({self.}XmlChildDk2) then {self.}XmlChildDk2.ConvertToPoint(); if not ifnil({self.}XmlChildLt2) then {self.}XmlChildLt2.ConvertToPoint(); if not ifnil({self.}XmlChildAccent1) then {self.}XmlChildAccent1.ConvertToPoint(); if not ifnil({self.}XmlChildAccent2) then {self.}XmlChildAccent2.ConvertToPoint(); if not ifnil({self.}XmlChildAccent3) then {self.}XmlChildAccent3.ConvertToPoint(); if not ifnil({self.}XmlChildAccent4) then {self.}XmlChildAccent4.ConvertToPoint(); if not ifnil({self.}XmlChildAccent5) then {self.}XmlChildAccent5.ConvertToPoint(); if not ifnil({self.}XmlChildAccent6) then {self.}XmlChildAccent6.ConvertToPoint(); if not ifnil({self.}XmlChildHlink) then {self.}XmlChildHlink.ConvertToPoint(); if not ifnil({self.}XmlChildFolHlink) then {self.}XmlChildFolHlink.ConvertToPoint(); end; function ClrScheme.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function ClrScheme.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function ClrScheme.ReadXmlChildDk1(): Clr1; begin if tslassigning and (ifnil({self.}XmlChildDk1) or {self.}XmlChildDk1.Removed) then begin {self.}XmlChildDk1 := new Clr1(self, {self.}Prefix, "dk1"); container_.Set({self.}XmlChildDk1); end return {self.}XmlChildDk1 and not {self.}XmlChildDk1.Removed ? {self.}XmlChildDk1 : fallback_.Dk1; end; function ClrScheme.WriteXmlChildDk1(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDk1) then {self.}RemoveChild({self.}XmlChildDk1); end else if v is class(Clr1) then begin v.Parent := self; {self.}XmlChildDk1 := v; container_.Set({self.}XmlChildDk1); end else begin raise "Invalid assignment: Dk1 expects Clr1 or nil"; end end; function ClrScheme.ReadXmlChildLt1(): Clr1; begin if tslassigning and (ifnil({self.}XmlChildLt1) or {self.}XmlChildLt1.Removed) then begin {self.}XmlChildLt1 := new Clr1(self, {self.}Prefix, "lt1"); container_.Set({self.}XmlChildLt1); end return {self.}XmlChildLt1 and not {self.}XmlChildLt1.Removed ? {self.}XmlChildLt1 : fallback_.Lt1; end; function ClrScheme.WriteXmlChildLt1(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLt1) then {self.}RemoveChild({self.}XmlChildLt1); end else if v is class(Clr1) then begin v.Parent := self; {self.}XmlChildLt1 := v; container_.Set({self.}XmlChildLt1); end else begin raise "Invalid assignment: Lt1 expects Clr1 or nil"; end end; function ClrScheme.ReadXmlChildDk2(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildDk2) or {self.}XmlChildDk2.Removed) then begin {self.}XmlChildDk2 := new Clr2(self, {self.}Prefix, "dk2"); container_.Set({self.}XmlChildDk2); end return {self.}XmlChildDk2 and not {self.}XmlChildDk2.Removed ? {self.}XmlChildDk2 : fallback_.Dk2; end; function ClrScheme.WriteXmlChildDk2(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDk2) then {self.}RemoveChild({self.}XmlChildDk2); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildDk2 := v; container_.Set({self.}XmlChildDk2); end else begin raise "Invalid assignment: Dk2 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildLt2(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildLt2) or {self.}XmlChildLt2.Removed) then begin {self.}XmlChildLt2 := new Clr2(self, {self.}Prefix, "lt2"); container_.Set({self.}XmlChildLt2); end return {self.}XmlChildLt2 and not {self.}XmlChildLt2.Removed ? {self.}XmlChildLt2 : fallback_.Lt2; end; function ClrScheme.WriteXmlChildLt2(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLt2) then {self.}RemoveChild({self.}XmlChildLt2); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildLt2 := v; container_.Set({self.}XmlChildLt2); end else begin raise "Invalid assignment: Lt2 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildAccent1(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildAccent1) or {self.}XmlChildAccent1.Removed) then begin {self.}XmlChildAccent1 := new Clr2(self, {self.}Prefix, "accent1"); container_.Set({self.}XmlChildAccent1); end return {self.}XmlChildAccent1 and not {self.}XmlChildAccent1.Removed ? {self.}XmlChildAccent1 : fallback_.Accent1; end; function ClrScheme.WriteXmlChildAccent1(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAccent1) then {self.}RemoveChild({self.}XmlChildAccent1); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildAccent1 := v; container_.Set({self.}XmlChildAccent1); end else begin raise "Invalid assignment: Accent1 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildAccent2(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildAccent2) or {self.}XmlChildAccent2.Removed) then begin {self.}XmlChildAccent2 := new Clr2(self, {self.}Prefix, "accent2"); container_.Set({self.}XmlChildAccent2); end return {self.}XmlChildAccent2 and not {self.}XmlChildAccent2.Removed ? {self.}XmlChildAccent2 : fallback_.Accent2; end; function ClrScheme.WriteXmlChildAccent2(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAccent2) then {self.}RemoveChild({self.}XmlChildAccent2); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildAccent2 := v; container_.Set({self.}XmlChildAccent2); end else begin raise "Invalid assignment: Accent2 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildAccent3(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildAccent3) or {self.}XmlChildAccent3.Removed) then begin {self.}XmlChildAccent3 := new Clr2(self, {self.}Prefix, "accent3"); container_.Set({self.}XmlChildAccent3); end return {self.}XmlChildAccent3 and not {self.}XmlChildAccent3.Removed ? {self.}XmlChildAccent3 : fallback_.Accent3; end; function ClrScheme.WriteXmlChildAccent3(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAccent3) then {self.}RemoveChild({self.}XmlChildAccent3); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildAccent3 := v; container_.Set({self.}XmlChildAccent3); end else begin raise "Invalid assignment: Accent3 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildAccent4(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildAccent4) or {self.}XmlChildAccent4.Removed) then begin {self.}XmlChildAccent4 := new Clr2(self, {self.}Prefix, "accent4"); container_.Set({self.}XmlChildAccent4); end return {self.}XmlChildAccent4 and not {self.}XmlChildAccent4.Removed ? {self.}XmlChildAccent4 : fallback_.Accent4; end; function ClrScheme.WriteXmlChildAccent4(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAccent4) then {self.}RemoveChild({self.}XmlChildAccent4); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildAccent4 := v; container_.Set({self.}XmlChildAccent4); end else begin raise "Invalid assignment: Accent4 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildAccent5(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildAccent5) or {self.}XmlChildAccent5.Removed) then begin {self.}XmlChildAccent5 := new Clr2(self, {self.}Prefix, "accent5"); container_.Set({self.}XmlChildAccent5); end return {self.}XmlChildAccent5 and not {self.}XmlChildAccent5.Removed ? {self.}XmlChildAccent5 : fallback_.Accent5; end; function ClrScheme.WriteXmlChildAccent5(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAccent5) then {self.}RemoveChild({self.}XmlChildAccent5); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildAccent5 := v; container_.Set({self.}XmlChildAccent5); end else begin raise "Invalid assignment: Accent5 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildAccent6(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildAccent6) or {self.}XmlChildAccent6.Removed) then begin {self.}XmlChildAccent6 := new Clr2(self, {self.}Prefix, "accent6"); container_.Set({self.}XmlChildAccent6); end return {self.}XmlChildAccent6 and not {self.}XmlChildAccent6.Removed ? {self.}XmlChildAccent6 : fallback_.Accent6; end; function ClrScheme.WriteXmlChildAccent6(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAccent6) then {self.}RemoveChild({self.}XmlChildAccent6); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildAccent6 := v; container_.Set({self.}XmlChildAccent6); end else begin raise "Invalid assignment: Accent6 expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildHlink(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildHlink) or {self.}XmlChildHlink.Removed) then begin {self.}XmlChildHlink := new Clr2(self, {self.}Prefix, "hlink"); container_.Set({self.}XmlChildHlink); end return {self.}XmlChildHlink and not {self.}XmlChildHlink.Removed ? {self.}XmlChildHlink : fallback_.Hlink; end; function ClrScheme.WriteXmlChildHlink(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildHlink) then {self.}RemoveChild({self.}XmlChildHlink); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildHlink := v; container_.Set({self.}XmlChildHlink); end else begin raise "Invalid assignment: Hlink expects Clr2 or nil"; end end; function ClrScheme.ReadXmlChildFolHlink(): Clr2; begin if tslassigning and (ifnil({self.}XmlChildFolHlink) or {self.}XmlChildFolHlink.Removed) then begin {self.}XmlChildFolHlink := new Clr2(self, {self.}Prefix, "folHlink"); container_.Set({self.}XmlChildFolHlink); end return {self.}XmlChildFolHlink and not {self.}XmlChildFolHlink.Removed ? {self.}XmlChildFolHlink : fallback_.FolHlink; end; function ClrScheme.WriteXmlChildFolHlink(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildFolHlink) then {self.}RemoveChild({self.}XmlChildFolHlink); end else if v is class(Clr2) then begin v.Parent := self; {self.}XmlChildFolHlink := v; container_.Set({self.}XmlChildFolHlink); end else begin raise "Invalid assignment: FolHlink expects Clr2 or nil"; end end; function Clr1.create();overload; begin {self.}create(nil, "a", ""); end; function Clr1.create(_node: XmlNode);overload; begin inherited create(_node); end; function Clr1.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildSysClr) then {self.}SysClr.Copy(_obj.XmlChildSysClr); tslassigning := tslassigning_backup; end; function Clr1.Clone(): Clr1;override; begin obj := new Clr1(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "sysClr": obj.SysClr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Clr1.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSysClr) then {self.}XmlChildSysClr.ConvertToPoint(); end; function Clr1.ReadXmlChildSysClr(): SysClr; begin if tslassigning and (ifnil({self.}XmlChildSysClr) or {self.}XmlChildSysClr.Removed) then begin {self.}XmlChildSysClr := new SysClr(self, {self.}Prefix, "sysClr"); container_.Set({self.}XmlChildSysClr); end return {self.}XmlChildSysClr and not {self.}XmlChildSysClr.Removed ? {self.}XmlChildSysClr : fallback_.SysClr; end; function Clr1.WriteXmlChildSysClr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSysClr) then {self.}RemoveChild({self.}XmlChildSysClr); end else if v is class(SysClr) then begin v.Parent := self; {self.}XmlChildSysClr := v; container_.Set({self.}XmlChildSysClr); end else begin raise "Invalid assignment: SysClr expects SysClr or nil"; end end; function SysClr.create();overload; begin {self.}create(nil, "a", "sysClr"); end; function SysClr.create(_node: XmlNode);overload; begin inherited create(_node); end; function SysClr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): SysClr;override; begin obj := new SysClr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Val) then obj.Val := {self.}Val; if not ifnil({self.}LastClr) then obj.LastClr := {self.}LastClr; return obj; end; function SysClr.ConvertToPoint();override; begin end; function SysClr.ReadXmlAttrVal(); begin return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value; end; function SysClr.WriteXmlAttrVal(_value: any); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_["val"] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function SysClr.ReadXmlAttrLastClr(); begin return ifnil({self.}XmlAttrLastClr.Value) ? fallback_.XmlAttrLastClr.Value : {self.}XmlAttrLastClr.Value; end; function SysClr.WriteXmlAttrLastClr(_value: any); begin if ifnil({self.}XmlAttrLastClr) then begin {self.}XmlAttrLastClr := new OpenXmlAttribute("", "LastClr", nil); attributes_["LastClr"] := {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 inherited create(_node); end; function Clr2.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildSrgbClr) then {self.}SrgbClr.Copy(_obj.XmlChildSrgbClr); tslassigning := tslassigning_backup; end; function Clr2.Clone(): Clr2;override; begin obj := new Clr2(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "srgbClr": obj.SrgbClr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Clr2.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSrgbClr) then {self.}XmlChildSrgbClr.ConvertToPoint(); end; function Clr2.ReadXmlChildSrgbClr(): SrgbClr; begin if tslassigning and (ifnil({self.}XmlChildSrgbClr) or {self.}XmlChildSrgbClr.Removed) then begin {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); container_.Set({self.}XmlChildSrgbClr); end return {self.}XmlChildSrgbClr and not {self.}XmlChildSrgbClr.Removed ? {self.}XmlChildSrgbClr : fallback_.SrgbClr; end; function Clr2.WriteXmlChildSrgbClr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSrgbClr) then {self.}RemoveChild({self.}XmlChildSrgbClr); end else if v is class(SrgbClr) then begin v.Parent := self; {self.}XmlChildSrgbClr := v; container_.Set({self.}XmlChildSrgbClr); end else begin raise "Invalid assignment: SrgbClr expects SrgbClr or nil"; end end; function SrgbClr.create();overload; begin {self.}create(nil, "a", "srgbClr"); end; function SrgbClr.create(_node: XmlNode);overload; begin inherited create(_node); end; function SrgbClr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): SrgbClr;override; begin obj := new SrgbClr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Val) then obj.Val := {self.}Val; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "aplha": obj.Alpha := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function SrgbClr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildAlpha) then {self.}XmlChildAlpha.ConvertToPoint(); end; function SrgbClr.ReadXmlAttrVal(); begin return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value; end; function SrgbClr.WriteXmlAttrVal(_value: any); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_["val"] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function SrgbClr.ReadXmlChildAlpha(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildAlpha) or {self.}XmlChildAlpha.Removed) then begin {self.}XmlChildAlpha := new PureVal(self, {self.}Prefix, "aplha"); container_.Set({self.}XmlChildAlpha); end return {self.}XmlChildAlpha and not {self.}XmlChildAlpha.Removed ? {self.}XmlChildAlpha : fallback_.Alpha; end; function SrgbClr.WriteXmlChildAlpha(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAlpha) then {self.}RemoveChild({self.}XmlChildAlpha); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildAlpha := v; container_.Set({self.}XmlChildAlpha); end else begin raise "Invalid assignment: Alpha expects PureVal or nil"; end end; function PureVal.create();overload; begin {self.}create(nil, "", ""); end; function PureVal.create(_node: XmlNode);overload; begin inherited create(_node); end; function PureVal.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.Val) then {self.}Val := _obj.Val; tslassigning := tslassigning_backup; end; function PureVal.Clone(): PureVal;override; begin obj := new PureVal(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Val) then obj.Val := {self.}Val; return obj; end; function PureVal.ConvertToPoint();override; begin end; function PureVal.ReadXmlAttrVal(); begin return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value; end; function PureVal.WriteXmlAttrVal(_value: any); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_["val"] := {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 inherited create(_node); end; function FontScheme.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): FontScheme;override; begin obj := new FontScheme(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Name) then obj.Name := {self.}Name; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "majorFont": obj.Majorfont := element.Clone(); pre + "minorFont": obj.Minorfont := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function FontScheme.ConvertToPoint();override; begin if not ifnil({self.}XmlChildMajorfont) then {self.}XmlChildMajorfont.ConvertToPoint(); if not ifnil({self.}XmlChildMinorfont) then {self.}XmlChildMinorfont.ConvertToPoint(); end; function FontScheme.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function FontScheme.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function FontScheme.ReadXmlChildMajorfont(): Mfont; begin if tslassigning and (ifnil({self.}XmlChildMajorfont) or {self.}XmlChildMajorfont.Removed) then begin {self.}XmlChildMajorfont := new Mfont(self, {self.}Prefix, "majorFont"); container_.Set({self.}XmlChildMajorfont); end return {self.}XmlChildMajorfont and not {self.}XmlChildMajorfont.Removed ? {self.}XmlChildMajorfont : fallback_.Majorfont; end; function FontScheme.WriteXmlChildMajorfont(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildMajorfont) then {self.}RemoveChild({self.}XmlChildMajorfont); end else if v is class(Mfont) then begin v.Parent := self; {self.}XmlChildMajorfont := v; container_.Set({self.}XmlChildMajorfont); end else begin raise "Invalid assignment: Majorfont expects Mfont or nil"; end end; function FontScheme.ReadXmlChildMinorfont(): Mfont; begin if tslassigning and (ifnil({self.}XmlChildMinorfont) or {self.}XmlChildMinorfont.Removed) then begin {self.}XmlChildMinorfont := new Mfont(self, {self.}Prefix, "minorFont"); container_.Set({self.}XmlChildMinorfont); end return {self.}XmlChildMinorfont and not {self.}XmlChildMinorfont.Removed ? {self.}XmlChildMinorfont : fallback_.Minorfont; end; function FontScheme.WriteXmlChildMinorfont(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildMinorfont) then {self.}RemoveChild({self.}XmlChildMinorfont); end else if v is class(Mfont) then begin v.Parent := self; {self.}XmlChildMinorfont := v; container_.Set({self.}XmlChildMinorfont); end else begin raise "Invalid assignment: Minorfont expects Mfont or nil"; end end; function MFont.create();overload; begin {self.}create(nil, "a", ""); end; function MFont.create(_node: XmlNode);overload; begin inherited create(_node); end; function MFont.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): MFont;override; begin obj := new MFont(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "latin": obj.Latin := element.Clone(); pre + "ea": obj.Ea := element.Clone(); pre + "cs": obj.Cs := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function MFont.ConvertToPoint();override; begin if not ifnil({self.}XmlChildLatin) then {self.}XmlChildLatin.ConvertToPoint(); if not ifnil({self.}XmlChildEa) then {self.}XmlChildEa.ConvertToPoint(); if not ifnil({self.}XmlChildCs) then {self.}XmlChildCs.ConvertToPoint(); elems := {self.}Fonts(); for _,elem in elems do elem.ConvertToPoint(); end; function MFont.ReadXmlChildLatin(): Latin; begin if tslassigning and (ifnil({self.}XmlChildLatin) or {self.}XmlChildLatin.Removed) then begin {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); container_.Set({self.}XmlChildLatin); end return {self.}XmlChildLatin and not {self.}XmlChildLatin.Removed ? {self.}XmlChildLatin : fallback_.Latin; end; function MFont.WriteXmlChildLatin(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLatin) then {self.}RemoveChild({self.}XmlChildLatin); end else if v is class(Latin) then begin v.Parent := self; {self.}XmlChildLatin := v; container_.Set({self.}XmlChildLatin); end else begin raise "Invalid assignment: Latin expects Latin or nil"; end end; function MFont.ReadXmlChildEa(): Latin; begin if tslassigning and (ifnil({self.}XmlChildEa) or {self.}XmlChildEa.Removed) then begin {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); container_.Set({self.}XmlChildEa); end return {self.}XmlChildEa and not {self.}XmlChildEa.Removed ? {self.}XmlChildEa : fallback_.Ea; end; function MFont.WriteXmlChildEa(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEa) then {self.}RemoveChild({self.}XmlChildEa); end else if v is class(Latin) then begin v.Parent := self; {self.}XmlChildEa := v; container_.Set({self.}XmlChildEa); end else begin raise "Invalid assignment: Ea expects Latin or nil"; end end; function MFont.ReadXmlChildCs(): Latin; begin if tslassigning and (ifnil({self.}XmlChildCs) or {self.}XmlChildCs.Removed) then begin {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); container_.Set({self.}XmlChildCs); end return {self.}XmlChildCs and not {self.}XmlChildCs.Removed ? {self.}XmlChildCs : fallback_.Cs; end; function MFont.WriteXmlChildCs(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCs) then {self.}RemoveChild({self.}XmlChildCs); end else if v is class(Latin) then begin v.Parent := self; {self.}XmlChildCs := v; container_.Set({self.}XmlChildCs); end else begin raise "Invalid assignment: Cs expects Latin or nil"; end end; function MFont.ReadFonts(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "font", ind); end; function MFont.WriteFonts(_index: integer; _value: nil_OR_Font); begin if ifnil(_value) then begin obj := {self.}ReadFonts(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "font", ind, _value) then raise format("Index out of range: Fonts[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Fonts expects nil or Font"; end end; function MFont.AddFont(): Font; begin obj := new Font(self, {self.}Prefix, "font"); obj.Enable := true; container_.Insert(obj); return obj; end; function MFont.AppendFont(): Font; begin obj := new Font(self, {self.}Prefix, "font"); obj.Enable := true; container_.Append(obj); return obj; end; function Font.create();overload; begin {self.}create(nil, "a", "font"); end; function Font.create(_node: XmlNode);overload; begin inherited create(_node); end; function Font.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Font;override; begin obj := new Font(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Script) then obj.Script := {self.}Script; if not ifnil({self.}Typeface) then obj.Typeface := {self.}Typeface; return obj; end; function Font.ConvertToPoint();override; begin end; function Font.ReadXmlAttrScript(); begin return ifnil({self.}XmlAttrScript.Value) ? fallback_.XmlAttrScript.Value : {self.}XmlAttrScript.Value; end; function Font.WriteXmlAttrScript(_value: any); begin if ifnil({self.}XmlAttrScript) then begin {self.}XmlAttrScript := new OpenXmlAttribute("", "script", nil); attributes_["script"] := {self.}XmlAttrScript; end {self.}XmlAttrScript.Value := _value; end; function Font.ReadXmlAttrTypeface(); begin return ifnil({self.}XmlAttrTypeface.Value) ? fallback_.XmlAttrTypeface.Value : {self.}XmlAttrTypeface.Value; end; function Font.WriteXmlAttrTypeface(_value: any); begin if ifnil({self.}XmlAttrTypeface) then begin {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); attributes_["typeface"] := {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 inherited create(_node); end; function FmtScheme.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): FmtScheme;override; begin obj := new FmtScheme(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Name) then obj.Name := {self.}Name; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "fillStyleLst": obj.FillStyleLst := element.Clone(); pre + "lnStyleLst": obj.LnStyleLst := element.Clone(); pre + "effectStyleLst": obj.EffectStyleLst := element.Clone(); pre + "bgFillStyleLst": obj.BgFillStyleLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function FmtScheme.ConvertToPoint();override; begin if not ifnil({self.}XmlChildFillStyleLst) then {self.}XmlChildFillStyleLst.ConvertToPoint(); if not ifnil({self.}XmlChildLnStyleLst) then {self.}XmlChildLnStyleLst.ConvertToPoint(); if not ifnil({self.}XmlChildEffectStyleLst) then {self.}XmlChildEffectStyleLst.ConvertToPoint(); if not ifnil({self.}XmlChildBgFillStyleLst) then {self.}XmlChildBgFillStyleLst.ConvertToPoint(); end; function FmtScheme.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function FmtScheme.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function FmtScheme.ReadXmlChildFillStyleLst(): FillStyleLst; begin if tslassigning and (ifnil({self.}XmlChildFillStyleLst) or {self.}XmlChildFillStyleLst.Removed) then begin {self.}XmlChildFillStyleLst := new FillStyleLst(self, {self.}Prefix, "fillStyleLst"); container_.Set({self.}XmlChildFillStyleLst); end return {self.}XmlChildFillStyleLst and not {self.}XmlChildFillStyleLst.Removed ? {self.}XmlChildFillStyleLst : fallback_.FillStyleLst; end; function FmtScheme.WriteXmlChildFillStyleLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildFillStyleLst) then {self.}RemoveChild({self.}XmlChildFillStyleLst); end else if v is class(FillStyleLst) then begin v.Parent := self; {self.}XmlChildFillStyleLst := v; container_.Set({self.}XmlChildFillStyleLst); end else begin raise "Invalid assignment: FillStyleLst expects FillStyleLst or nil"; end end; function FmtScheme.ReadXmlChildLnStyleLst(): LnStyleLst; begin if tslassigning and (ifnil({self.}XmlChildLnStyleLst) or {self.}XmlChildLnStyleLst.Removed) then begin {self.}XmlChildLnStyleLst := new LnStyleLst(self, {self.}Prefix, "lnStyleLst"); container_.Set({self.}XmlChildLnStyleLst); end return {self.}XmlChildLnStyleLst and not {self.}XmlChildLnStyleLst.Removed ? {self.}XmlChildLnStyleLst : fallback_.LnStyleLst; end; function FmtScheme.WriteXmlChildLnStyleLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLnStyleLst) then {self.}RemoveChild({self.}XmlChildLnStyleLst); end else if v is class(LnStyleLst) then begin v.Parent := self; {self.}XmlChildLnStyleLst := v; container_.Set({self.}XmlChildLnStyleLst); end else begin raise "Invalid assignment: LnStyleLst expects LnStyleLst or nil"; end end; function FmtScheme.ReadXmlChildEffectStyleLst(): EffectStyleLst; begin if tslassigning and (ifnil({self.}XmlChildEffectStyleLst) or {self.}XmlChildEffectStyleLst.Removed) then begin {self.}XmlChildEffectStyleLst := new EffectStyleLst(self, {self.}Prefix, "effectStyleLst"); container_.Set({self.}XmlChildEffectStyleLst); end return {self.}XmlChildEffectStyleLst and not {self.}XmlChildEffectStyleLst.Removed ? {self.}XmlChildEffectStyleLst : fallback_.EffectStyleLst; end; function FmtScheme.WriteXmlChildEffectStyleLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEffectStyleLst) then {self.}RemoveChild({self.}XmlChildEffectStyleLst); end else if v is class(EffectStyleLst) then begin v.Parent := self; {self.}XmlChildEffectStyleLst := v; container_.Set({self.}XmlChildEffectStyleLst); end else begin raise "Invalid assignment: EffectStyleLst expects EffectStyleLst or nil"; end end; function FmtScheme.ReadXmlChildBgFillStyleLst(): FillStyleLst; begin if tslassigning and (ifnil({self.}XmlChildBgFillStyleLst) or {self.}XmlChildBgFillStyleLst.Removed) then begin {self.}XmlChildBgFillStyleLst := new FillStyleLst(self, {self.}Prefix, "bgFillStyleLst"); container_.Set({self.}XmlChildBgFillStyleLst); end return {self.}XmlChildBgFillStyleLst and not {self.}XmlChildBgFillStyleLst.Removed ? {self.}XmlChildBgFillStyleLst : fallback_.BgFillStyleLst; end; function FmtScheme.WriteXmlChildBgFillStyleLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBgFillStyleLst) then {self.}RemoveChild({self.}XmlChildBgFillStyleLst); end else if v is class(FillStyleLst) then begin v.Parent := self; {self.}XmlChildBgFillStyleLst := v; container_.Set({self.}XmlChildBgFillStyleLst); end else begin raise "Invalid assignment: BgFillStyleLst expects FillStyleLst or nil"; end end; function FillStyleLst.create();overload; begin {self.}create(nil, "a", "fillStyleLst"); end; function FillStyleLst.create(_node: XmlNode);overload; begin inherited create(_node); end; function FillStyleLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); tslassigning := tslassigning_backup; end; function FillStyleLst.Clone(): FillStyleLst;override; begin obj := new FillStyleLst(nil, {self.}Prefix, {self.}LocalName); elements := {self.}Elements(); for _,element in elements do obj.AppendChild(element.Clone()); return obj; end; function FillStyleLst.ConvertToPoint();override; begin elems := {self.}SolidFills(); for _,elem in elems do elem.ConvertToPoint(); elems := {self.}GradFills(); for _,elem in elems do elem.ConvertToPoint(); end; function FillStyleLst.ReadSolidFills(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "solidFill", ind); end; function FillStyleLst.WriteSolidFills(_index: integer; _value: nil_OR_SolidFill); begin if ifnil(_value) then begin obj := {self.}ReadSolidFills(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "solidFill", ind, _value) then raise format("Index out of range: SolidFills[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: SolidFills expects nil or SolidFill"; end end; function FillStyleLst.ReadGradFills(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "gradFill", ind); end; function FillStyleLst.WriteGradFills(_index: integer; _value: nil_OR_GradFill); begin if ifnil(_value) then begin obj := {self.}ReadGradFills(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "gradFill", ind, _value) then raise format("Index out of range: GradFills[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: GradFills expects nil or GradFill"; end end; function FillStyleLst.AddSolidFill(): SolidFill; begin obj := new SolidFill(self, {self.}Prefix, "solidFill"); obj.Enable := true; container_.Insert(obj); return obj; end; function FillStyleLst.AddGradFill(): GradFill; begin obj := new GradFill(self, {self.}Prefix, "gradFill"); obj.Enable := true; container_.Insert(obj); return obj; end; function FillStyleLst.AppendSolidFill(): SolidFill; begin obj := new SolidFill(self, {self.}Prefix, "solidFill"); obj.Enable := true; container_.Append(obj); return obj; end; function FillStyleLst.AppendGradFill(): GradFill; begin obj := new GradFill(self, {self.}Prefix, "gradFill"); obj.Enable := true; container_.Append(obj); return obj; end; function SolidFill.create();overload; begin {self.}create(nil, "a", "solidFill"); end; function SolidFill.create(_node: XmlNode);overload; begin inherited create(_node); end; function SolidFill.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildSchemeClr) then {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); tslassigning := tslassigning_backup; end; function SolidFill.Clone(): SolidFill;override; begin obj := new SolidFill(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "schemeClr": obj.SchemeClr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function SolidFill.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSchemeClr) then {self.}XmlChildSchemeClr.ConvertToPoint(); end; function SolidFill.ReadXmlChildSchemeClr(): SchemeClr; begin if tslassigning and (ifnil({self.}XmlChildSchemeClr) or {self.}XmlChildSchemeClr.Removed) then begin {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); container_.Set({self.}XmlChildSchemeClr); end return {self.}XmlChildSchemeClr and not {self.}XmlChildSchemeClr.Removed ? {self.}XmlChildSchemeClr : fallback_.SchemeClr; end; function SolidFill.WriteXmlChildSchemeClr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSchemeClr) then {self.}RemoveChild({self.}XmlChildSchemeClr); end else if v is class(SchemeClr) then begin v.Parent := self; {self.}XmlChildSchemeClr := v; container_.Set({self.}XmlChildSchemeClr); end else begin raise "Invalid assignment: SchemeClr expects SchemeClr or nil"; end end; function SchemeClr.create();overload; begin {self.}create(nil, "a", "schemeClr"); end; function SchemeClr.create(_node: XmlNode);overload; begin inherited create(_node); end; function SchemeClr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): SchemeClr;override; begin obj := new SchemeClr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Val) then obj.Val := {self.}Val; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "lumMod": obj.LumMod := element.Clone(); pre + "satMod": obj.SatMod := element.Clone(); pre + "tint": obj.Tint := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function SchemeClr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildLumMod) then {self.}XmlChildLumMod.ConvertToPoint(); if not ifnil({self.}XmlChildSatMod) then {self.}XmlChildSatMod.ConvertToPoint(); if not ifnil({self.}XmlChildTint) then {self.}XmlChildTint.ConvertToPoint(); end; function SchemeClr.ReadXmlAttrVal(); begin return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value; end; function SchemeClr.WriteXmlAttrVal(_value: any); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); attributes_["val"] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function SchemeClr.ReadXmlChildLumMod(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildLumMod) or {self.}XmlChildLumMod.Removed) then begin {self.}XmlChildLumMod := new PureVal(self, {self.}Prefix, "lumMod"); container_.Set({self.}XmlChildLumMod); end return {self.}XmlChildLumMod and not {self.}XmlChildLumMod.Removed ? {self.}XmlChildLumMod : fallback_.LumMod; end; function SchemeClr.WriteXmlChildLumMod(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLumMod) then {self.}RemoveChild({self.}XmlChildLumMod); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildLumMod := v; container_.Set({self.}XmlChildLumMod); end else begin raise "Invalid assignment: LumMod expects PureVal or nil"; end end; function SchemeClr.ReadXmlChildSatMod(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildSatMod) or {self.}XmlChildSatMod.Removed) then begin {self.}XmlChildSatMod := new PureVal(self, {self.}Prefix, "satMod"); container_.Set({self.}XmlChildSatMod); end return {self.}XmlChildSatMod and not {self.}XmlChildSatMod.Removed ? {self.}XmlChildSatMod : fallback_.SatMod; end; function SchemeClr.WriteXmlChildSatMod(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSatMod) then {self.}RemoveChild({self.}XmlChildSatMod); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildSatMod := v; container_.Set({self.}XmlChildSatMod); end else begin raise "Invalid assignment: SatMod expects PureVal or nil"; end end; function SchemeClr.ReadXmlChildTint(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildTint) or {self.}XmlChildTint.Removed) then begin {self.}XmlChildTint := new PureVal(self, {self.}Prefix, "tint"); container_.Set({self.}XmlChildTint); end return {self.}XmlChildTint and not {self.}XmlChildTint.Removed ? {self.}XmlChildTint : fallback_.Tint; end; function SchemeClr.WriteXmlChildTint(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTint) then {self.}RemoveChild({self.}XmlChildTint); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildTint := v; container_.Set({self.}XmlChildTint); end else begin raise "Invalid assignment: Tint expects PureVal or nil"; end end; function GradFill.create();overload; begin {self.}create(nil, "a", "gradFill"); end; function GradFill.create(_node: XmlNode);overload; begin inherited create(_node); end; function GradFill.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): GradFill;override; begin obj := new GradFill(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}RotWithShape) then obj.RotWithShape := {self.}RotWithShape; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "gsLst": obj.GsLst := element.Clone(); pre + "lin": obj.Lin := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function GradFill.ConvertToPoint();override; begin if not ifnil({self.}XmlChildGsLst) then {self.}XmlChildGsLst.ConvertToPoint(); if not ifnil({self.}XmlChildLin) then {self.}XmlChildLin.ConvertToPoint(); end; function GradFill.ReadXmlAttrRotWithShape(); begin return ifnil({self.}XmlAttrRotWithShape.Value) ? fallback_.XmlAttrRotWithShape.Value : {self.}XmlAttrRotWithShape.Value; end; function GradFill.WriteXmlAttrRotWithShape(_value: any); begin if ifnil({self.}XmlAttrRotWithShape) then begin {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); attributes_["rotWithShape"] := {self.}XmlAttrRotWithShape; end {self.}XmlAttrRotWithShape.Value := _value; end; function GradFill.ReadXmlChildGsLst(): GsLst; begin if tslassigning and (ifnil({self.}XmlChildGsLst) or {self.}XmlChildGsLst.Removed) then begin {self.}XmlChildGsLst := new GsLst(self, {self.}Prefix, "gsLst"); container_.Set({self.}XmlChildGsLst); end return {self.}XmlChildGsLst and not {self.}XmlChildGsLst.Removed ? {self.}XmlChildGsLst : fallback_.GsLst; end; function GradFill.WriteXmlChildGsLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildGsLst) then {self.}RemoveChild({self.}XmlChildGsLst); end else if v is class(GsLst) then begin v.Parent := self; {self.}XmlChildGsLst := v; container_.Set({self.}XmlChildGsLst); end else begin raise "Invalid assignment: GsLst expects GsLst or nil"; end end; function GradFill.ReadXmlChildLin(): Lin; begin if tslassigning and (ifnil({self.}XmlChildLin) or {self.}XmlChildLin.Removed) then begin {self.}XmlChildLin := new Lin(self, {self.}Prefix, "lin"); container_.Set({self.}XmlChildLin); end return {self.}XmlChildLin and not {self.}XmlChildLin.Removed ? {self.}XmlChildLin : fallback_.Lin; end; function GradFill.WriteXmlChildLin(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLin) then {self.}RemoveChild({self.}XmlChildLin); end else if v is class(Lin) then begin v.Parent := self; {self.}XmlChildLin := v; container_.Set({self.}XmlChildLin); end else begin raise "Invalid assignment: Lin expects Lin or nil"; end end; function GsLst.create();overload; begin {self.}create(nil, "a", "gsLst"); end; function GsLst.create(_node: XmlNode);overload; begin inherited create(_node); end; function GsLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); tslassigning := tslassigning_backup; end; function GsLst.Clone(): GsLst;override; begin obj := new GsLst(nil, {self.}Prefix, {self.}LocalName); elements := {self.}Elements(); for _,element in elements do obj.AppendChild(element.Clone()); return obj; end; function GsLst.ConvertToPoint();override; begin elems := {self.}Gses(); for _,elem in elems do elem.ConvertToPoint(); end; function GsLst.ReadGses(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "gs", ind); end; function GsLst.WriteGses(_index: integer; _value: nil_OR_Gs); begin if ifnil(_value) then begin obj := {self.}ReadGses(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "gs", ind, _value) then raise format("Index out of range: Gses[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Gses expects nil or Gs"; end end; function GsLst.AddGs(): Gs; begin obj := new Gs(self, {self.}Prefix, "gs"); obj.Enable := true; container_.Insert(obj); return obj; end; function GsLst.AppendGs(): Gs; begin obj := new Gs(self, {self.}Prefix, "gs"); obj.Enable := true; container_.Append(obj); return obj; end; function Gs.create();overload; begin {self.}create(nil, "a", "gs"); end; function Gs.create(_node: XmlNode);overload; begin inherited create(_node); end; function Gs.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Gs;override; begin obj := new Gs(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Pos) then obj.Pos := {self.}Pos; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "schemeClr": obj.SchemeClr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Gs.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSchemeClr) then {self.}XmlChildSchemeClr.ConvertToPoint(); end; function Gs.ReadXmlAttrPos(); begin return ifnil({self.}XmlAttrPos.Value) ? fallback_.XmlAttrPos.Value : {self.}XmlAttrPos.Value; end; function Gs.WriteXmlAttrPos(_value: any); begin if ifnil({self.}XmlAttrPos) then begin {self.}XmlAttrPos := new OpenXmlAttribute("", "pos", nil); attributes_["pos"] := {self.}XmlAttrPos; end {self.}XmlAttrPos.Value := _value; end; function Gs.ReadXmlChildSchemeClr(): SchemeClr; begin if tslassigning and (ifnil({self.}XmlChildSchemeClr) or {self.}XmlChildSchemeClr.Removed) then begin {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); container_.Set({self.}XmlChildSchemeClr); end return {self.}XmlChildSchemeClr and not {self.}XmlChildSchemeClr.Removed ? {self.}XmlChildSchemeClr : fallback_.SchemeClr; end; function Gs.WriteXmlChildSchemeClr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSchemeClr) then {self.}RemoveChild({self.}XmlChildSchemeClr); end else if v is class(SchemeClr) then begin v.Parent := self; {self.}XmlChildSchemeClr := v; container_.Set({self.}XmlChildSchemeClr); end else begin raise "Invalid assignment: SchemeClr expects SchemeClr or nil"; end end; function Lin.create();overload; begin {self.}create(nil, "a", "lin"); end; function Lin.create(_node: XmlNode);overload; begin inherited create(_node); end; function Lin.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Lin;override; begin obj := new Lin(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Ang) then obj.Ang := {self.}Ang; if not ifnil({self.}Scaled) then obj.Scaled := {self.}Scaled; return obj; end; function Lin.ConvertToPoint();override; begin end; function Lin.ReadXmlAttrAng(); begin return ifnil({self.}XmlAttrAng.Value) ? fallback_.XmlAttrAng.Value : {self.}XmlAttrAng.Value; end; function Lin.WriteXmlAttrAng(_value: any); begin if ifnil({self.}XmlAttrAng) then begin {self.}XmlAttrAng := new OpenXmlAttribute("", "ang", nil); attributes_["ang"] := {self.}XmlAttrAng; end {self.}XmlAttrAng.Value := _value; end; function Lin.ReadXmlAttrScaled(); begin return ifnil({self.}XmlAttrScaled.Value) ? fallback_.XmlAttrScaled.Value : {self.}XmlAttrScaled.Value; end; function Lin.WriteXmlAttrScaled(_value: any); begin if ifnil({self.}XmlAttrScaled) then begin {self.}XmlAttrScaled := new OpenXmlAttribute("", "scaled", nil); attributes_["scaled"] := {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 inherited create(_node); end; function LnStyleLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); tslassigning := tslassigning_backup; end; function LnStyleLst.Clone(): LnStyleLst;override; begin obj := new LnStyleLst(nil, {self.}Prefix, {self.}LocalName); elements := {self.}Elements(); for _,element in elements do obj.AppendChild(element.Clone()); return obj; end; function LnStyleLst.ConvertToPoint();override; begin elems := {self.}Lns(); for _,elem in elems do elem.ConvertToPoint(); end; function LnStyleLst.ReadLns(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "ln", ind); end; function LnStyleLst.WriteLns(_index: integer; _value: nil_OR_Ln); begin if ifnil(_value) then begin obj := {self.}ReadLns(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "ln", ind, _value) then raise format("Index out of range: Lns[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Lns expects nil or Ln"; end end; function LnStyleLst.AddLn(): Ln; begin obj := new Ln(self, {self.}Prefix, "ln"); obj.Enable := true; container_.Insert(obj); return obj; end; function LnStyleLst.AppendLn(): Ln; begin obj := new Ln(self, {self.}Prefix, "ln"); obj.Enable := true; container_.Append(obj); return obj; end; function EffectStyleLst.create();overload; begin {self.}create(nil, "a", "effectStyleLst"); end; function EffectStyleLst.create(_node: XmlNode);overload; begin inherited create(_node); end; function EffectStyleLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); tslassigning := tslassigning_backup; end; function EffectStyleLst.Clone(): EffectStyleLst;override; begin obj := new EffectStyleLst(nil, {self.}Prefix, {self.}LocalName); elements := {self.}Elements(); for _,element in elements do obj.AppendChild(element.Clone()); return obj; end; function EffectStyleLst.ConvertToPoint();override; begin elems := {self.}EffectStyles(); for _,elem in elems do elem.ConvertToPoint(); end; function EffectStyleLst.ReadEffectStyles(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "effectStyle", ind); end; function EffectStyleLst.WriteEffectStyles(_index: integer; _value: nil_OR_EffectStyle); begin if ifnil(_value) then begin obj := {self.}ReadEffectStyles(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "effectStyle", ind, _value) then raise format("Index out of range: EffectStyles[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: EffectStyles expects nil or EffectStyle"; end end; function EffectStyleLst.AddEffectStyle(): EffectStyle; begin obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); obj.Enable := true; container_.Insert(obj); return obj; end; function EffectStyleLst.AppendEffectStyle(): EffectStyle; begin obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); obj.Enable := true; container_.Append(obj); return obj; end; function EffectStyle.create();overload; begin {self.}create(nil, "a", "effectStyle"); end; function EffectStyle.create(_node: XmlNode);overload; begin inherited create(_node); end; function EffectStyle.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildEffectLst) then {self.}EffectLst.Copy(_obj.XmlChildEffectLst); tslassigning := tslassigning_backup; end; function EffectStyle.Clone(): EffectStyle;override; begin obj := new EffectStyle(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "effectLst": obj.EffectLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function EffectStyle.ConvertToPoint();override; begin if not ifnil({self.}XmlChildEffectLst) then {self.}XmlChildEffectLst.ConvertToPoint(); end; function EffectStyle.ReadXmlChildEffectLst(): EffectLst; begin if tslassigning and (ifnil({self.}XmlChildEffectLst) or {self.}XmlChildEffectLst.Removed) then begin {self.}XmlChildEffectLst := new EffectLst(self, {self.}Prefix, "effectLst"); container_.Set({self.}XmlChildEffectLst); end return {self.}XmlChildEffectLst and not {self.}XmlChildEffectLst.Removed ? {self.}XmlChildEffectLst : fallback_.EffectLst; end; function EffectStyle.WriteXmlChildEffectLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEffectLst) then {self.}RemoveChild({self.}XmlChildEffectLst); end else if v is class(EffectLst) then begin v.Parent := self; {self.}XmlChildEffectLst := v; container_.Set({self.}XmlChildEffectLst); end else begin raise "Invalid assignment: EffectLst expects EffectLst or nil"; end end; function OuterShdw.create();overload; begin {self.}create(nil, "a", "outerShdw"); end; function OuterShdw.create(_node: XmlNode);overload; begin inherited create(_node); end; function OuterShdw.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): OuterShdw;override; begin obj := new OuterShdw(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}BlurRad) then obj.BlurRad := {self.}BlurRad; if not ifnil({self.}Dist) then obj.Dist := {self.}Dist; if not ifnil({self.}Dir) then obj.Dir := {self.}Dir; if not ifnil({self.}Algn) then obj.Algn := {self.}Algn; if not ifnil({self.}RotWithShape) then obj.RotWithShape := {self.}RotWithShape; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "srgbClr": obj.SrgbClr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function OuterShdw.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSrgbClr) then {self.}XmlChildSrgbClr.ConvertToPoint(); end; function OuterShdw.ReadXmlAttrBlurRad(); begin return ifnil({self.}XmlAttrBlurRad.Value) ? fallback_.XmlAttrBlurRad.Value : {self.}XmlAttrBlurRad.Value; end; function OuterShdw.WriteXmlAttrBlurRad(_value: any); begin if ifnil({self.}XmlAttrBlurRad) then begin {self.}XmlAttrBlurRad := new OpenXmlAttribute("", "blurRad", nil); attributes_["blurRad"] := {self.}XmlAttrBlurRad; end {self.}XmlAttrBlurRad.Value := _value; end; function OuterShdw.ReadXmlAttrDist(); begin return ifnil({self.}XmlAttrDist.Value) ? fallback_.XmlAttrDist.Value : {self.}XmlAttrDist.Value; end; function OuterShdw.WriteXmlAttrDist(_value: any); begin if ifnil({self.}XmlAttrDist) then begin {self.}XmlAttrDist := new OpenXmlAttribute("", "dist", nil); attributes_["dist"] := {self.}XmlAttrDist; end {self.}XmlAttrDist.Value := _value; end; function OuterShdw.ReadXmlAttrDir(); begin return ifnil({self.}XmlAttrDir.Value) ? fallback_.XmlAttrDir.Value : {self.}XmlAttrDir.Value; end; function OuterShdw.WriteXmlAttrDir(_value: any); begin if ifnil({self.}XmlAttrDir) then begin {self.}XmlAttrDir := new OpenXmlAttribute("", "dir", nil); attributes_["dir"] := {self.}XmlAttrDir; end {self.}XmlAttrDir.Value := _value; end; function OuterShdw.ReadXmlAttrAlgn(); begin return ifnil({self.}XmlAttrAlgn.Value) ? fallback_.XmlAttrAlgn.Value : {self.}XmlAttrAlgn.Value; end; function OuterShdw.WriteXmlAttrAlgn(_value: any); begin if ifnil({self.}XmlAttrAlgn) then begin {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); attributes_["algn"] := {self.}XmlAttrAlgn; end {self.}XmlAttrAlgn.Value := _value; end; function OuterShdw.ReadXmlAttrRotWithShape(); begin return ifnil({self.}XmlAttrRotWithShape.Value) ? fallback_.XmlAttrRotWithShape.Value : {self.}XmlAttrRotWithShape.Value; end; function OuterShdw.WriteXmlAttrRotWithShape(_value: any); begin if ifnil({self.}XmlAttrRotWithShape) then begin {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); attributes_["rotWithShape"] := {self.}XmlAttrRotWithShape; end {self.}XmlAttrRotWithShape.Value := _value; end; function OuterShdw.ReadXmlChildSrgbClr(): SrgbClr; begin if tslassigning and (ifnil({self.}XmlChildSrgbClr) or {self.}XmlChildSrgbClr.Removed) then begin {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); container_.Set({self.}XmlChildSrgbClr); end return {self.}XmlChildSrgbClr and not {self.}XmlChildSrgbClr.Removed ? {self.}XmlChildSrgbClr : fallback_.SrgbClr; end; function OuterShdw.WriteXmlChildSrgbClr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSrgbClr) then {self.}RemoveChild({self.}XmlChildSrgbClr); end else if v is class(SrgbClr) then begin v.Parent := self; {self.}XmlChildSrgbClr := v; container_.Set({self.}XmlChildSrgbClr); end else begin raise "Invalid assignment: SrgbClr expects SrgbClr or nil"; end end; function ExtLst.create();overload; begin {self.}create(nil, "a", "extLst"); end; function ExtLst.create(_node: XmlNode);overload; begin inherited create(_node); end; function ExtLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); tslassigning := tslassigning_backup; end; function ExtLst.Clone(): ExtLst;override; begin obj := new ExtLst(nil, {self.}Prefix, {self.}LocalName); elements := {self.}Elements(); for _,element in elements do obj.AppendChild(element.Clone()); return obj; end; function ExtLst.ConvertToPoint();override; begin elems := {self.}Exts(); for _,elem in elems do elem.ConvertToPoint(); end; function ExtLst.ReadExts(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "ext", ind); end; function ExtLst.WriteExts(_index: integer; _value: nil_OR_Ext); begin if ifnil(_value) then begin obj := {self.}ReadExts(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "ext", ind, _value) then raise format("Index out of range: Exts[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Exts expects nil or Ext"; end end; function ExtLst.AddExt(): Ext; begin obj := new Ext(self, {self.}Prefix, "ext"); obj.Enable := true; container_.Insert(obj); return obj; end; function ExtLst.AppendExt(): Ext; begin obj := new Ext(self, {self.}Prefix, "ext"); obj.Enable := true; container_.Append(obj); return obj; end; function Ext.create();overload; begin {self.}create(nil, "a", "ext"); end; function Ext.create(_node: XmlNode);overload; begin inherited create(_node); end; function Ext.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Ext;override; begin obj := new Ext(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Uri) then obj.Uri := {self.}Uri; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "thm15:themeFamily": obj.Thm15ThemeFamily := element.Clone(); "c16:uniquedId": obj.UniqueId := element.Clone(); "x14:slicerStyles": obj.SlicerStyles := element.Clone(); "x15:timelineStyles": obj.TimelineStyles := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Ext.ConvertToPoint();override; begin if not ifnil({self.}XmlChildThm15ThemeFamily) then {self.}XmlChildThm15ThemeFamily.ConvertToPoint(); if not ifnil({self.}XmlChildUniqueId) then {self.}XmlChildUniqueId.ConvertToPoint(); if not ifnil({self.}XmlChildSlicerStyles) then {self.}XmlChildSlicerStyles.ConvertToPoint(); if not ifnil({self.}XmlChildTimelineStyles) then {self.}XmlChildTimelineStyles.ConvertToPoint(); end; function Ext.ReadXmlAttrUri(); begin return ifnil({self.}XmlAttrUri.Value) ? fallback_.XmlAttrUri.Value : {self.}XmlAttrUri.Value; end; function Ext.WriteXmlAttrUri(_value: any); begin if ifnil({self.}XmlAttrUri) then begin {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); attributes_["uri"] := {self.}XmlAttrUri; end {self.}XmlAttrUri.Value := _value; end; function Ext.ReadXmlChildThm15ThemeFamily(): ThemeFamily; begin if tslassigning and (ifnil({self.}XmlChildThm15ThemeFamily) or {self.}XmlChildThm15ThemeFamily.Removed) then begin {self.}XmlChildThm15ThemeFamily := new ThemeFamily(self, "thm15", "themeFamily"); container_.Set({self.}XmlChildThm15ThemeFamily); end return {self.}XmlChildThm15ThemeFamily and not {self.}XmlChildThm15ThemeFamily.Removed ? {self.}XmlChildThm15ThemeFamily : fallback_.Thm15ThemeFamily; end; function Ext.WriteXmlChildThm15ThemeFamily(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildThm15ThemeFamily) then {self.}RemoveChild({self.}XmlChildThm15ThemeFamily); end else if v is class(ThemeFamily) then begin v.Parent := self; {self.}XmlChildThm15ThemeFamily := v; container_.Set({self.}XmlChildThm15ThemeFamily); end else begin raise "Invalid assignment: Thm15ThemeFamily expects ThemeFamily or nil"; end end; function Ext.ReadXmlChildUniqueId(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildUniqueId) or {self.}XmlChildUniqueId.Removed) then begin {self.}XmlChildUniqueId := new PureVal(self, "c16", "uniquedId"); container_.Set({self.}XmlChildUniqueId); end return {self.}XmlChildUniqueId and not {self.}XmlChildUniqueId.Removed ? {self.}XmlChildUniqueId : fallback_.UniqueId; end; function Ext.WriteXmlChildUniqueId(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildUniqueId) then {self.}RemoveChild({self.}XmlChildUniqueId); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildUniqueId := v; container_.Set({self.}XmlChildUniqueId); end else begin raise "Invalid assignment: UniqueId expects PureVal or nil"; end end; function Ext.ReadXmlChildSlicerStyles(): SlicerStyles; begin if tslassigning and (ifnil({self.}XmlChildSlicerStyles) or {self.}XmlChildSlicerStyles.Removed) then begin {self.}XmlChildSlicerStyles := new SlicerStyles(self, "x14", "slicerStyles"); container_.Set({self.}XmlChildSlicerStyles); end return {self.}XmlChildSlicerStyles and not {self.}XmlChildSlicerStyles.Removed ? {self.}XmlChildSlicerStyles : fallback_.SlicerStyles; end; function Ext.WriteXmlChildSlicerStyles(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSlicerStyles) then {self.}RemoveChild({self.}XmlChildSlicerStyles); end else if v is class(SlicerStyles) then begin v.Parent := self; {self.}XmlChildSlicerStyles := v; container_.Set({self.}XmlChildSlicerStyles); end else begin raise "Invalid assignment: SlicerStyles expects SlicerStyles or nil"; end end; function Ext.ReadXmlChildTimelineStyles(): TimelineStyles; begin if tslassigning and (ifnil({self.}XmlChildTimelineStyles) or {self.}XmlChildTimelineStyles.Removed) then begin {self.}XmlChildTimelineStyles := new TimelineStyles(self, "x15", "timelineStyles"); container_.Set({self.}XmlChildTimelineStyles); end return {self.}XmlChildTimelineStyles and not {self.}XmlChildTimelineStyles.Removed ? {self.}XmlChildTimelineStyles : fallback_.TimelineStyles; end; function Ext.WriteXmlChildTimelineStyles(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTimelineStyles) then {self.}RemoveChild({self.}XmlChildTimelineStyles); end else if v is class(TimelineStyles) then begin v.Parent := self; {self.}XmlChildTimelineStyles := v; container_.Set({self.}XmlChildTimelineStyles); end else begin raise "Invalid assignment: TimelineStyles expects TimelineStyles or nil"; end end; function SlicerStyles.create();overload; begin {self.}create(nil, "", "slicerStyles"); end; function SlicerStyles.create(_node: XmlNode);overload; begin inherited create(_node); end; function SlicerStyles.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.DefaultSlicerStyle) then {self.}DefaultSlicerStyle := _obj.DefaultSlicerStyle; tslassigning := tslassigning_backup; end; function SlicerStyles.Clone(): SlicerStyles;override; begin obj := new SlicerStyles(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}DefaultSlicerStyle) then obj.DefaultSlicerStyle := {self.}DefaultSlicerStyle; return obj; end; function SlicerStyles.ConvertToPoint();override; begin end; function SlicerStyles.ReadXmlAttrDefaultSlicerStyle(); begin return ifnil({self.}XmlAttrDefaultSlicerStyle.Value) ? fallback_.XmlAttrDefaultSlicerStyle.Value : {self.}XmlAttrDefaultSlicerStyle.Value; end; function SlicerStyles.WriteXmlAttrDefaultSlicerStyle(_value: any); begin if ifnil({self.}XmlAttrDefaultSlicerStyle) then begin {self.}XmlAttrDefaultSlicerStyle := new OpenXmlAttribute("", "defaultSlicerStyle", nil); attributes_["defaultSlicerStyle"] := {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 inherited create(_node); end; function TimelineStyles.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.DefaultTimelineStyle) then {self.}DefaultTimelineStyle := _obj.DefaultTimelineStyle; tslassigning := tslassigning_backup; end; function TimelineStyles.Clone(): TimelineStyles;override; begin obj := new TimelineStyles(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}DefaultTimelineStyle) then obj.DefaultTimelineStyle := {self.}DefaultTimelineStyle; return obj; end; function TimelineStyles.ConvertToPoint();override; begin end; function TimelineStyles.ReadXmlAttrDefaultTimelineStyle(); begin return ifnil({self.}XmlAttrDefaultTimelineStyle.Value) ? fallback_.XmlAttrDefaultTimelineStyle.Value : {self.}XmlAttrDefaultTimelineStyle.Value; end; function TimelineStyles.WriteXmlAttrDefaultTimelineStyle(_value: any); begin if ifnil({self.}XmlAttrDefaultTimelineStyle) then begin {self.}XmlAttrDefaultTimelineStyle := new OpenXmlAttribute("", "defaultTimelineStyle", nil); attributes_["defaultTimelineStyle"] := {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 inherited create(_node); end; function ThemeFamily.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): ThemeFamily;override; begin obj := new ThemeFamily(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Name) then obj.Name := {self.}Name; if not ifnil({self.}Id) then obj.Id := {self.}Id; if not ifnil({self.}Vid) then obj.Vid := {self.}Vid; return obj; end; function ThemeFamily.ConvertToPoint();override; begin end; function ThemeFamily.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function ThemeFamily.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function ThemeFamily.ReadXmlAttrId(); begin return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value; end; function ThemeFamily.WriteXmlAttrId(_value: any); begin if ifnil({self.}XmlAttrId) then begin {self.}XmlAttrId := new OpenXmlAttribute("", "Id", nil); attributes_["Id"] := {self.}XmlAttrId; end {self.}XmlAttrId.Value := _value; end; function ThemeFamily.ReadXmlAttrVid(); begin return ifnil({self.}XmlAttrVid.Value) ? fallback_.XmlAttrVid.Value : {self.}XmlAttrVid.Value; end; function ThemeFamily.WriteXmlAttrVid(_value: any); begin if ifnil({self.}XmlAttrVid) then begin {self.}XmlAttrVid := new OpenXmlAttribute("", "vid", nil); attributes_["vid"] := {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 inherited create(_node); end; function ChartSpace.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): ChartSpace;override; begin obj := new ChartSpace(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "date1904": obj.Date1904 := element.Clone(); pre + "lang": obj.Lang := element.Clone(); "mc:AlternateContent": obj.AlternateContent := element.Clone(); pre + "chart": obj.Chart := element.Clone(); pre + "spPr": obj.SpPr := element.Clone(); pre + "externalData": obj.ExternalData := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function ChartSpace.ConvertToPoint();override; begin if not ifnil({self.}XmlChildDate1904) then {self.}XmlChildDate1904.ConvertToPoint(); if not ifnil({self.}XmlChildAlternateContent) then {self.}XmlChildAlternateContent.ConvertToPoint(); if not ifnil({self.}XmlChildChart) then {self.}XmlChildChart.ConvertToPoint(); if not ifnil({self.}XmlChildSpPr) then {self.}XmlChildSpPr.ConvertToPoint(); if not ifnil({self.}XmlChildExternalData) then {self.}XmlChildExternalData.ConvertToPoint(); end; function ChartSpace.ReadXmlChildLang(); begin if tslassigning and (ifnil({self.}XmlChildLang) or {self.}XmlChildLang.Removed) then begin {self.}XmlChildLang := new OpenXmlSimpleType(self, {self.}Prefix, "lang"); container_.Set({self.}XmlChildLang); end return {self.}XmlChildLang and not {self.}XmlChildLang.Removed ? {self.}XmlChildLang : fallback_.Lang; end; function ChartSpace.WriteXmlChildLang(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildLang) then {self.}RemoveChild({self.}XmlChildLang); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildLang := _value; container_.Set({self.}XmlChildLang); end else begin raise "Invalid assignment: Lang expects nil or OpenXmlSimpleType"; end end; function ChartSpace.ReadXmlChildDate1904(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildDate1904) or {self.}XmlChildDate1904.Removed) then begin {self.}XmlChildDate1904 := new PureVal(self, {self.}Prefix, "date1904"); container_.Set({self.}XmlChildDate1904); end return {self.}XmlChildDate1904 and not {self.}XmlChildDate1904.Removed ? {self.}XmlChildDate1904 : fallback_.Date1904; end; function ChartSpace.WriteXmlChildDate1904(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDate1904) then {self.}RemoveChild({self.}XmlChildDate1904); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildDate1904 := v; container_.Set({self.}XmlChildDate1904); end else begin raise "Invalid assignment: Date1904 expects PureVal or nil"; end end; function ChartSpace.ReadXmlChildAlternateContent(): AlternateContent; begin if tslassigning and (ifnil({self.}XmlChildAlternateContent) or {self.}XmlChildAlternateContent.Removed) then begin {self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent"); container_.Set({self.}XmlChildAlternateContent); end return {self.}XmlChildAlternateContent and not {self.}XmlChildAlternateContent.Removed ? {self.}XmlChildAlternateContent : fallback_.AlternateContent; end; function ChartSpace.WriteXmlChildAlternateContent(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAlternateContent) then {self.}RemoveChild({self.}XmlChildAlternateContent); end else if v is class(AlternateContent) then begin v.Parent := self; {self.}XmlChildAlternateContent := v; container_.Set({self.}XmlChildAlternateContent); end else begin raise "Invalid assignment: AlternateContent expects AlternateContent or nil"; end end; function ChartSpace.ReadXmlChildChart(): Chart; begin if tslassigning and (ifnil({self.}XmlChildChart) or {self.}XmlChildChart.Removed) then begin {self.}XmlChildChart := new Chart(self, {self.}Prefix, "chart"); container_.Set({self.}XmlChildChart); end return {self.}XmlChildChart and not {self.}XmlChildChart.Removed ? {self.}XmlChildChart : fallback_.Chart; end; function ChartSpace.WriteXmlChildChart(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildChart) then {self.}RemoveChild({self.}XmlChildChart); end else if v is class(Chart) then begin v.Parent := self; {self.}XmlChildChart := v; container_.Set({self.}XmlChildChart); end else begin raise "Invalid assignment: Chart expects Chart or nil"; end end; function ChartSpace.ReadXmlChildSpPr(): SpPr; begin if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr; end; function ChartSpace.WriteXmlChildSpPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSpPr) then {self.}RemoveChild({self.}XmlChildSpPr); end else if v is class(SpPr) then begin v.Parent := self; {self.}XmlChildSpPr := v; container_.Set({self.}XmlChildSpPr); end else begin raise "Invalid assignment: SpPr expects SpPr or nil"; end end; function ChartSpace.ReadXmlChildExternalData(): ExternalData; begin if tslassigning and (ifnil({self.}XmlChildExternalData) or {self.}XmlChildExternalData.Removed) then begin {self.}XmlChildExternalData := new ExternalData(self, {self.}Prefix, "externalData"); container_.Set({self.}XmlChildExternalData); end return {self.}XmlChildExternalData and not {self.}XmlChildExternalData.Removed ? {self.}XmlChildExternalData : fallback_.ExternalData; end; function ChartSpace.WriteXmlChildExternalData(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExternalData) then {self.}RemoveChild({self.}XmlChildExternalData); end else if v is class(ExternalData) then begin v.Parent := self; {self.}XmlChildExternalData := v; container_.Set({self.}XmlChildExternalData); end else begin raise "Invalid assignment: ExternalData expects ExternalData or nil"; end end; function Chart.create();overload; begin {self.}create(nil, "c", "chart"); end; function Chart.create(_node: XmlNode);overload; begin inherited create(_node); end; function Chart.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Chart;override; begin obj := new Chart(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Id) then obj.Id := {self.}Id; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "title": obj.Title := element.Clone(); pre + "autoTitleDeleted": obj.AutoTitleDeleted := element.Clone(); pre + "view3D": obj.View3D := element.Clone(); pre + "plotArea": obj.PlotArea := element.Clone(); pre + "legend": obj.Legend := element.Clone(); pre + "plotVisOnly": obj.PlotVisOnly := element.Clone(); pre + "dispBlanksAs": obj.DispBlanksAs := element.Clone(); pre + "showDLblsOverMax": obj.ShowDLblsOverMax := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Chart.ConvertToPoint();override; begin if not ifnil({self.}XmlChildTitle) then {self.}XmlChildTitle.ConvertToPoint(); if not ifnil({self.}XmlChildAutoTitleDeleted) then {self.}XmlChildAutoTitleDeleted.ConvertToPoint(); if not ifnil({self.}XmlChildView3D) then {self.}XmlChildView3D.ConvertToPoint(); if not ifnil({self.}XmlChildPlotArea) then {self.}XmlChildPlotArea.ConvertToPoint(); if not ifnil({self.}XmlChildLegend) then {self.}XmlChildLegend.ConvertToPoint(); if not ifnil({self.}XmlChildPlotVisOnly) then {self.}XmlChildPlotVisOnly.ConvertToPoint(); if not ifnil({self.}XmlChildDispBlanksAs) then {self.}XmlChildDispBlanksAs.ConvertToPoint(); if not ifnil({self.}XmlChildShowDLblsOverMax) then {self.}XmlChildShowDLblsOverMax.ConvertToPoint(); end; function Chart.ReadXmlAttrId(); begin return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value; end; function Chart.WriteXmlAttrId(_value: any); begin if ifnil({self.}XmlAttrId) then begin {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); attributes_["r:id"] := {self.}XmlAttrId; end {self.}XmlAttrId.Value := _value; end; function Chart.ReadXmlChildTitle(): Title; begin if tslassigning and (ifnil({self.}XmlChildTitle) or {self.}XmlChildTitle.Removed) then begin {self.}XmlChildTitle := new Title(self, {self.}Prefix, "title"); container_.Set({self.}XmlChildTitle); end return {self.}XmlChildTitle and not {self.}XmlChildTitle.Removed ? {self.}XmlChildTitle : fallback_.Title; end; function Chart.WriteXmlChildTitle(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTitle) then {self.}RemoveChild({self.}XmlChildTitle); end else if v is class(Title) then begin v.Parent := self; {self.}XmlChildTitle := v; container_.Set({self.}XmlChildTitle); end else begin raise "Invalid assignment: Title expects Title or nil"; end end; function Chart.ReadXmlChildAutoTitleDeleted(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildAutoTitleDeleted) or {self.}XmlChildAutoTitleDeleted.Removed) then begin {self.}XmlChildAutoTitleDeleted := new PureVal(self, {self.}Prefix, "autoTitleDeleted"); container_.Set({self.}XmlChildAutoTitleDeleted); end return {self.}XmlChildAutoTitleDeleted and not {self.}XmlChildAutoTitleDeleted.Removed ? {self.}XmlChildAutoTitleDeleted : fallback_.AutoTitleDeleted; end; function Chart.WriteXmlChildAutoTitleDeleted(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAutoTitleDeleted) then {self.}RemoveChild({self.}XmlChildAutoTitleDeleted); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildAutoTitleDeleted := v; container_.Set({self.}XmlChildAutoTitleDeleted); end else begin raise "Invalid assignment: AutoTitleDeleted expects PureVal or nil"; end end; function Chart.ReadXmlChildView3D(): View3D; begin if tslassigning and (ifnil({self.}XmlChildView3D) or {self.}XmlChildView3D.Removed) then begin {self.}XmlChildView3D := new View3D(self, {self.}Prefix, "view3D"); container_.Set({self.}XmlChildView3D); end return {self.}XmlChildView3D and not {self.}XmlChildView3D.Removed ? {self.}XmlChildView3D : fallback_.View3D; end; function Chart.WriteXmlChildView3D(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildView3D) then {self.}RemoveChild({self.}XmlChildView3D); end else if v is class(View3D) then begin v.Parent := self; {self.}XmlChildView3D := v; container_.Set({self.}XmlChildView3D); end else begin raise "Invalid assignment: View3D expects View3D or nil"; end end; function Chart.ReadXmlChildPlotArea(): PlotArea; begin if tslassigning and (ifnil({self.}XmlChildPlotArea) or {self.}XmlChildPlotArea.Removed) then begin {self.}XmlChildPlotArea := new PlotArea(self, {self.}Prefix, "plotArea"); container_.Set({self.}XmlChildPlotArea); end return {self.}XmlChildPlotArea and not {self.}XmlChildPlotArea.Removed ? {self.}XmlChildPlotArea : fallback_.PlotArea; end; function Chart.WriteXmlChildPlotArea(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPlotArea) then {self.}RemoveChild({self.}XmlChildPlotArea); end else if v is class(PlotArea) then begin v.Parent := self; {self.}XmlChildPlotArea := v; container_.Set({self.}XmlChildPlotArea); end else begin raise "Invalid assignment: PlotArea expects PlotArea or nil"; end end; function Chart.ReadXmlChildLegend(): Legend; begin if tslassigning and (ifnil({self.}XmlChildLegend) or {self.}XmlChildLegend.Removed) then begin {self.}XmlChildLegend := new Legend(self, {self.}Prefix, "legend"); container_.Set({self.}XmlChildLegend); end return {self.}XmlChildLegend and not {self.}XmlChildLegend.Removed ? {self.}XmlChildLegend : fallback_.Legend; end; function Chart.WriteXmlChildLegend(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLegend) then {self.}RemoveChild({self.}XmlChildLegend); end else if v is class(Legend) then begin v.Parent := self; {self.}XmlChildLegend := v; container_.Set({self.}XmlChildLegend); end else begin raise "Invalid assignment: Legend expects Legend or nil"; end end; function Chart.ReadXmlChildPlotVisOnly(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildPlotVisOnly) or {self.}XmlChildPlotVisOnly.Removed) then begin {self.}XmlChildPlotVisOnly := new PureVal(self, {self.}Prefix, "plotVisOnly"); container_.Set({self.}XmlChildPlotVisOnly); end return {self.}XmlChildPlotVisOnly and not {self.}XmlChildPlotVisOnly.Removed ? {self.}XmlChildPlotVisOnly : fallback_.PlotVisOnly; end; function Chart.WriteXmlChildPlotVisOnly(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPlotVisOnly) then {self.}RemoveChild({self.}XmlChildPlotVisOnly); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildPlotVisOnly := v; container_.Set({self.}XmlChildPlotVisOnly); end else begin raise "Invalid assignment: PlotVisOnly expects PureVal or nil"; end end; function Chart.ReadXmlChildDispBlanksAs(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildDispBlanksAs) or {self.}XmlChildDispBlanksAs.Removed) then begin {self.}XmlChildDispBlanksAs := new PureVal(self, {self.}Prefix, "dispBlanksAs"); container_.Set({self.}XmlChildDispBlanksAs); end return {self.}XmlChildDispBlanksAs and not {self.}XmlChildDispBlanksAs.Removed ? {self.}XmlChildDispBlanksAs : fallback_.DispBlanksAs; end; function Chart.WriteXmlChildDispBlanksAs(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDispBlanksAs) then {self.}RemoveChild({self.}XmlChildDispBlanksAs); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildDispBlanksAs := v; container_.Set({self.}XmlChildDispBlanksAs); end else begin raise "Invalid assignment: DispBlanksAs expects PureVal or nil"; end end; function Chart.ReadXmlChildShowDLblsOverMax(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowDLblsOverMax) or {self.}XmlChildShowDLblsOverMax.Removed) then begin {self.}XmlChildShowDLblsOverMax := new PureVal(self, {self.}Prefix, "showDLblsOverMax"); container_.Set({self.}XmlChildShowDLblsOverMax); end return {self.}XmlChildShowDLblsOverMax and not {self.}XmlChildShowDLblsOverMax.Removed ? {self.}XmlChildShowDLblsOverMax : fallback_.ShowDLblsOverMax; end; function Chart.WriteXmlChildShowDLblsOverMax(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowDLblsOverMax) then {self.}RemoveChild({self.}XmlChildShowDLblsOverMax); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowDLblsOverMax := v; container_.Set({self.}XmlChildShowDLblsOverMax); end else begin raise "Invalid assignment: ShowDLblsOverMax expects PureVal or nil"; end end; function Legend.create();overload; begin {self.}create(nil, "c", "legend"); end; function Legend.create(_node: XmlNode);overload; begin inherited create(_node); end; function Legend.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Legend;override; begin obj := new Legend(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "legendPos": obj.LegendPos := element.Clone(); pre + "layout": obj.Layout := element.Clone(); pre + "overlay": obj.Overlay := element.Clone(); pre + "txPr": obj.TxPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Legend.ConvertToPoint();override; begin if not ifnil({self.}XmlChildLegendPos) then {self.}XmlChildLegendPos.ConvertToPoint(); if not ifnil({self.}XmlChildOverlay) then {self.}XmlChildOverlay.ConvertToPoint(); if not ifnil({self.}XmlChildTxPr) then {self.}XmlChildTxPr.ConvertToPoint(); end; function Legend.ReadXmlChildLayout(); begin if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then begin {self.}XmlChildLayout := new OpenXmlSimpleType(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end return {self.}XmlChildLayout and not {self.}XmlChildLayout.Removed ? {self.}XmlChildLayout : fallback_.Layout; end; function Legend.WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildLayout) then {self.}RemoveChild({self.}XmlChildLayout); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildLayout := _value; container_.Set({self.}XmlChildLayout); end else begin raise "Invalid assignment: Layout expects nil or OpenXmlSimpleType"; end end; function Legend.ReadXmlChildLegendPos(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildLegendPos) or {self.}XmlChildLegendPos.Removed) then begin {self.}XmlChildLegendPos := new PureVal(self, {self.}Prefix, "legendPos"); container_.Set({self.}XmlChildLegendPos); end return {self.}XmlChildLegendPos and not {self.}XmlChildLegendPos.Removed ? {self.}XmlChildLegendPos : fallback_.LegendPos; end; function Legend.WriteXmlChildLegendPos(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLegendPos) then {self.}RemoveChild({self.}XmlChildLegendPos); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildLegendPos := v; container_.Set({self.}XmlChildLegendPos); end else begin raise "Invalid assignment: LegendPos expects PureVal or nil"; end end; function Legend.ReadXmlChildOverlay(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildOverlay) or {self.}XmlChildOverlay.Removed) then begin {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); container_.Set({self.}XmlChildOverlay); end return {self.}XmlChildOverlay and not {self.}XmlChildOverlay.Removed ? {self.}XmlChildOverlay : fallback_.Overlay; end; function Legend.WriteXmlChildOverlay(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildOverlay) then {self.}RemoveChild({self.}XmlChildOverlay); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildOverlay := v; container_.Set({self.}XmlChildOverlay); end else begin raise "Invalid assignment: Overlay expects PureVal or nil"; end end; function Legend.ReadXmlChildTxPr(): TxPr; begin if tslassigning and (ifnil({self.}XmlChildTxPr) or {self.}XmlChildTxPr.Removed) then begin {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); container_.Set({self.}XmlChildTxPr); end return {self.}XmlChildTxPr and not {self.}XmlChildTxPr.Removed ? {self.}XmlChildTxPr : fallback_.TxPr; end; function Legend.WriteXmlChildTxPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTxPr) then {self.}RemoveChild({self.}XmlChildTxPr); end else if v is class(TxPr) then begin v.Parent := self; {self.}XmlChildTxPr := v; container_.Set({self.}XmlChildTxPr); end else begin raise "Invalid assignment: TxPr expects TxPr or nil"; end end; function View3D.create();overload; begin {self.}create(nil, "c", "view3D"); end; function View3D.create(_node: XmlNode);overload; begin inherited create(_node); end; function View3D.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): View3D;override; begin obj := new View3D(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "rotX": obj.RotX := element.Clone(); pre + "rotY": obj.RotY := element.Clone(); pre + "rAngAx": obj.RAngAx := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function View3D.ConvertToPoint();override; begin if not ifnil({self.}XmlChildRotX) then {self.}XmlChildRotX.ConvertToPoint(); if not ifnil({self.}XmlChildRotY) then {self.}XmlChildRotY.ConvertToPoint(); if not ifnil({self.}XmlChildRAngAx) then {self.}XmlChildRAngAx.ConvertToPoint(); end; function View3D.ReadXmlChildRotX(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildRotX) or {self.}XmlChildRotX.Removed) then begin {self.}XmlChildRotX := new PureVal(self, {self.}Prefix, "rotX"); container_.Set({self.}XmlChildRotX); end return {self.}XmlChildRotX and not {self.}XmlChildRotX.Removed ? {self.}XmlChildRotX : fallback_.RotX; end; function View3D.WriteXmlChildRotX(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildRotX) then {self.}RemoveChild({self.}XmlChildRotX); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildRotX := v; container_.Set({self.}XmlChildRotX); end else begin raise "Invalid assignment: RotX expects PureVal or nil"; end end; function View3D.ReadXmlChildRotY(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildRotY) or {self.}XmlChildRotY.Removed) then begin {self.}XmlChildRotY := new PureVal(self, {self.}Prefix, "rotY"); container_.Set({self.}XmlChildRotY); end return {self.}XmlChildRotY and not {self.}XmlChildRotY.Removed ? {self.}XmlChildRotY : fallback_.RotY; end; function View3D.WriteXmlChildRotY(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildRotY) then {self.}RemoveChild({self.}XmlChildRotY); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildRotY := v; container_.Set({self.}XmlChildRotY); end else begin raise "Invalid assignment: RotY expects PureVal or nil"; end end; function View3D.ReadXmlChildRAngAx(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildRAngAx) or {self.}XmlChildRAngAx.Removed) then begin {self.}XmlChildRAngAx := new PureVal(self, {self.}Prefix, "rAngAx"); container_.Set({self.}XmlChildRAngAx); end return {self.}XmlChildRAngAx and not {self.}XmlChildRAngAx.Removed ? {self.}XmlChildRAngAx : fallback_.RAngAx; end; function View3D.WriteXmlChildRAngAx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildRAngAx) then {self.}RemoveChild({self.}XmlChildRAngAx); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildRAngAx := v; container_.Set({self.}XmlChildRAngAx); end else begin raise "Invalid assignment: RAngAx expects PureVal or nil"; end end; function PlotArea.create();overload; begin {self.}create(nil, "c", "plotArea"); end; function PlotArea.create(_node: XmlNode);overload; begin inherited create(_node); end; function PlotArea.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): PlotArea;override; begin obj := new PlotArea(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "layout": obj.Layout := element.Clone(); pre + "barChart": obj.BarChart := element.Clone(); pre + "catAx": obj.CatAx := element.Clone(); pre + "ValAx": obj.ValAx := element.Clone(); pre + "dTable": obj.DTable := element.Clone(); pre + "SpPr": obj.SpPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function PlotArea.ConvertToPoint();override; begin if not ifnil({self.}XmlChildBarChart) then {self.}XmlChildBarChart.ConvertToPoint(); if not ifnil({self.}XmlChildCatAx) then {self.}XmlChildCatAx.ConvertToPoint(); if not ifnil({self.}XmlChildValAx) then {self.}XmlChildValAx.ConvertToPoint(); if not ifnil({self.}XmlChildDTable) then {self.}XmlChildDTable.ConvertToPoint(); if not ifnil({self.}XmlChildSpPr) then {self.}XmlChildSpPr.ConvertToPoint(); end; function PlotArea.ReadXmlChildLayout(); begin if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then begin {self.}XmlChildLayout := new OpenXmlSimpleType(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end return {self.}XmlChildLayout and not {self.}XmlChildLayout.Removed ? {self.}XmlChildLayout : fallback_.Layout; end; function PlotArea.WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildLayout) then {self.}RemoveChild({self.}XmlChildLayout); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildLayout := _value; container_.Set({self.}XmlChildLayout); end else begin raise "Invalid assignment: Layout expects nil or OpenXmlSimpleType"; end end; function PlotArea.ReadXmlChildBarChart(): BarChart; begin if tslassigning and (ifnil({self.}XmlChildBarChart) or {self.}XmlChildBarChart.Removed) then begin {self.}XmlChildBarChart := new BarChart(self, {self.}Prefix, "barChart"); container_.Set({self.}XmlChildBarChart); end return {self.}XmlChildBarChart and not {self.}XmlChildBarChart.Removed ? {self.}XmlChildBarChart : fallback_.BarChart; end; function PlotArea.WriteXmlChildBarChart(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBarChart) then {self.}RemoveChild({self.}XmlChildBarChart); end else if v is class(BarChart) then begin v.Parent := self; {self.}XmlChildBarChart := v; container_.Set({self.}XmlChildBarChart); end else begin raise "Invalid assignment: BarChart expects BarChart or nil"; end end; function PlotArea.ReadXmlChildCatAx(): Ax; begin if tslassigning and (ifnil({self.}XmlChildCatAx) or {self.}XmlChildCatAx.Removed) then begin {self.}XmlChildCatAx := new Ax(self, {self.}Prefix, "catAx"); container_.Set({self.}XmlChildCatAx); end return {self.}XmlChildCatAx and not {self.}XmlChildCatAx.Removed ? {self.}XmlChildCatAx : fallback_.CatAx; end; function PlotArea.WriteXmlChildCatAx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCatAx) then {self.}RemoveChild({self.}XmlChildCatAx); end else if v is class(Ax) then begin v.Parent := self; {self.}XmlChildCatAx := v; container_.Set({self.}XmlChildCatAx); end else begin raise "Invalid assignment: CatAx expects Ax or nil"; end end; function PlotArea.ReadXmlChildValAx(): Ax; begin if tslassigning and (ifnil({self.}XmlChildValAx) or {self.}XmlChildValAx.Removed) then begin {self.}XmlChildValAx := new Ax(self, {self.}Prefix, "ValAx"); container_.Set({self.}XmlChildValAx); end return {self.}XmlChildValAx and not {self.}XmlChildValAx.Removed ? {self.}XmlChildValAx : fallback_.ValAx; end; function PlotArea.WriteXmlChildValAx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildValAx) then {self.}RemoveChild({self.}XmlChildValAx); end else if v is class(Ax) then begin v.Parent := self; {self.}XmlChildValAx := v; container_.Set({self.}XmlChildValAx); end else begin raise "Invalid assignment: ValAx expects Ax or nil"; end end; function PlotArea.ReadXmlChildDTable(): DTable; begin if tslassigning and (ifnil({self.}XmlChildDTable) or {self.}XmlChildDTable.Removed) then begin {self.}XmlChildDTable := new DTable(self, {self.}Prefix, "dTable"); container_.Set({self.}XmlChildDTable); end return {self.}XmlChildDTable and not {self.}XmlChildDTable.Removed ? {self.}XmlChildDTable : fallback_.DTable; end; function PlotArea.WriteXmlChildDTable(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDTable) then {self.}RemoveChild({self.}XmlChildDTable); end else if v is class(DTable) then begin v.Parent := self; {self.}XmlChildDTable := v; container_.Set({self.}XmlChildDTable); end else begin raise "Invalid assignment: DTable expects DTable or nil"; end end; function PlotArea.ReadXmlChildSpPr(): SpPr; begin if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "SpPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr; end; function PlotArea.WriteXmlChildSpPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSpPr) then {self.}RemoveChild({self.}XmlChildSpPr); end else if v is class(SpPr) then begin v.Parent := self; {self.}XmlChildSpPr := v; container_.Set({self.}XmlChildSpPr); end else begin raise "Invalid assignment: SpPr expects SpPr or nil"; end end; function BarChart.create();overload; begin {self.}create(nil, "c", "barChart"); end; function BarChart.create(_node: XmlNode);overload; begin inherited create(_node); end; function BarChart.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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 + "gapWidth": array(3, makeweakref(thisFunction(ReadXmlChildGapWidth))), pre + "ser": array(4, makeweakref(thisFunction(AppendSer))), 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; inherited 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.Clone(): BarChart;override; begin obj := new BarChart(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "barDir": obj.BarDir := element.Clone(); pre + "grouping": obj.Grouping := element.Clone(); pre + "varyColors": obj.VaryColors := element.Clone(); pre + "gapWidth": obj.GapWidth := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function BarChart.ConvertToPoint();override; begin if not ifnil({self.}XmlChildBarDir) then {self.}XmlChildBarDir.ConvertToPoint(); if not ifnil({self.}XmlChildGrouping) then {self.}XmlChildGrouping.ConvertToPoint(); if not ifnil({self.}XmlChildVaryColors) then {self.}XmlChildVaryColors.ConvertToPoint(); if not ifnil({self.}XmlChildGapWidth) then {self.}XmlChildGapWidth.ConvertToPoint(); elems := {self.}Sers(); for _,elem in elems do elem.ConvertToPoint(); elems := {self.}AxIds(); for _,elem in elems do elem.ConvertToPoint(); end; function BarChart.ReadXmlChildBarDir(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildBarDir) or {self.}XmlChildBarDir.Removed) then begin {self.}XmlChildBarDir := new PureVal(self, {self.}Prefix, "barDir"); container_.Set({self.}XmlChildBarDir); end return {self.}XmlChildBarDir and not {self.}XmlChildBarDir.Removed ? {self.}XmlChildBarDir : fallback_.BarDir; end; function BarChart.WriteXmlChildBarDir(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBarDir) then {self.}RemoveChild({self.}XmlChildBarDir); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildBarDir := v; container_.Set({self.}XmlChildBarDir); end else begin raise "Invalid assignment: BarDir expects PureVal or nil"; end end; function BarChart.ReadXmlChildGrouping(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildGrouping) or {self.}XmlChildGrouping.Removed) then begin {self.}XmlChildGrouping := new PureVal(self, {self.}Prefix, "grouping"); container_.Set({self.}XmlChildGrouping); end return {self.}XmlChildGrouping and not {self.}XmlChildGrouping.Removed ? {self.}XmlChildGrouping : fallback_.Grouping; end; function BarChart.WriteXmlChildGrouping(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildGrouping) then {self.}RemoveChild({self.}XmlChildGrouping); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildGrouping := v; container_.Set({self.}XmlChildGrouping); end else begin raise "Invalid assignment: Grouping expects PureVal or nil"; end end; function BarChart.ReadXmlChildVaryColors(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildVaryColors) or {self.}XmlChildVaryColors.Removed) then begin {self.}XmlChildVaryColors := new PureVal(self, {self.}Prefix, "varyColors"); container_.Set({self.}XmlChildVaryColors); end return {self.}XmlChildVaryColors and not {self.}XmlChildVaryColors.Removed ? {self.}XmlChildVaryColors : fallback_.VaryColors; end; function BarChart.WriteXmlChildVaryColors(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildVaryColors) then {self.}RemoveChild({self.}XmlChildVaryColors); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildVaryColors := v; container_.Set({self.}XmlChildVaryColors); end else begin raise "Invalid assignment: VaryColors expects PureVal or nil"; end end; function BarChart.ReadXmlChildGapWidth(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildGapWidth) or {self.}XmlChildGapWidth.Removed) then begin {self.}XmlChildGapWidth := new PureVal(self, {self.}Prefix, "gapWidth"); container_.Set({self.}XmlChildGapWidth); end return {self.}XmlChildGapWidth and not {self.}XmlChildGapWidth.Removed ? {self.}XmlChildGapWidth : fallback_.GapWidth; end; function BarChart.WriteXmlChildGapWidth(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildGapWidth) then {self.}RemoveChild({self.}XmlChildGapWidth); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildGapWidth := v; container_.Set({self.}XmlChildGapWidth); end else begin raise "Invalid assignment: GapWidth expects PureVal or nil"; end end; function BarChart.ReadSers(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "ser", ind); end; function BarChart.WriteSers(_index: integer; _value: nil_OR_Ser); begin if ifnil(_value) then begin obj := {self.}ReadSers(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "ser", ind, _value) then raise format("Index out of range: Sers[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Sers expects nil or Ser"; end end; function BarChart.ReadAxIds(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "axId", ind); end; function BarChart.WriteAxIds(_index: integer; _value: nil_OR_PureVal); begin if ifnil(_value) then begin obj := {self.}ReadAxIds(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "axId", ind, _value) then raise format("Index out of range: AxIds[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: AxIds expects nil or PureVal"; end end; function BarChart.AddSer(): Ser; begin obj := new Ser(self, {self.}Prefix, "ser"); obj.Enable := true; container_.Insert(obj); return obj; end; function BarChart.AddAxId(): PureVal; begin obj := new PureVal(self, {self.}Prefix, "axId"); obj.Enable := true; container_.Insert(obj); return obj; end; function BarChart.AppendSer(): Ser; begin obj := new Ser(self, {self.}Prefix, "ser"); obj.Enable := true; container_.Append(obj); return obj; end; function BarChart.AppendAxId(): PureVal; begin obj := new PureVal(self, {self.}Prefix, "axId"); obj.Enable := true; container_.Append(obj); return obj; end; function Ser.create();overload; begin {self.}create(nil, "c", "ser"); end; function Ser.create(_node: XmlNode);overload; begin inherited create(_node); end; function Ser.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Ser;override; begin obj := new Ser(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "idx": obj.Idx := element.Clone(); pre + "order": obj._Order := element.Clone(); pre + "tx": obj.Tx := element.Clone(); pre + "invertIfNegative": obj.InvertIfNegative := element.Clone(); pre + "dLbls": obj.DLbls := element.Clone(); pre + "cat": obj.Cat := element.Clone(); pre + "val": obj.Val := element.Clone(); pre + "extLst": obj.ExtLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Ser.ConvertToPoint();override; begin if not ifnil({self.}XmlChildIdx) then {self.}XmlChildIdx.ConvertToPoint(); if not ifnil({self.}XmlChild_Order) then {self.}XmlChild_Order.ConvertToPoint(); if not ifnil({self.}XmlChildTx) then {self.}XmlChildTx.ConvertToPoint(); if not ifnil({self.}XmlChildInvertIfNegative) then {self.}XmlChildInvertIfNegative.ConvertToPoint(); if not ifnil({self.}XmlChildDLbls) then {self.}XmlChildDLbls.ConvertToPoint(); if not ifnil({self.}XmlChildCat) then {self.}XmlChildCat.ConvertToPoint(); if not ifnil({self.}XmlChildVal) then {self.}XmlChildVal.ConvertToPoint(); if not ifnil({self.}XmlChildExtLst) then {self.}XmlChildExtLst.ConvertToPoint(); end; function Ser.ReadXmlChildIdx(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildIdx) or {self.}XmlChildIdx.Removed) then begin {self.}XmlChildIdx := new PureVal(self, {self.}Prefix, "idx"); container_.Set({self.}XmlChildIdx); end return {self.}XmlChildIdx and not {self.}XmlChildIdx.Removed ? {self.}XmlChildIdx : fallback_.Idx; end; function Ser.WriteXmlChildIdx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildIdx) then {self.}RemoveChild({self.}XmlChildIdx); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildIdx := v; container_.Set({self.}XmlChildIdx); end else begin raise "Invalid assignment: Idx expects PureVal or nil"; end end; function Ser.ReadXmlChild_Order(): PureVal; begin if tslassigning and (ifnil({self.}XmlChild_Order) or {self.}XmlChild_Order.Removed) then begin {self.}XmlChild_Order := new PureVal(self, {self.}Prefix, "order"); container_.Set({self.}XmlChild_Order); end return {self.}XmlChild_Order and not {self.}XmlChild_Order.Removed ? {self.}XmlChild_Order : fallback_._Order; end; function Ser.WriteXmlChild_Order(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChild_Order) then {self.}RemoveChild({self.}XmlChild_Order); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChild_Order := v; container_.Set({self.}XmlChild_Order); end else begin raise "Invalid assignment: _Order expects PureVal or nil"; end end; function Ser.ReadXmlChildTx(): Tx; begin if tslassigning and (ifnil({self.}XmlChildTx) or {self.}XmlChildTx.Removed) then begin {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); container_.Set({self.}XmlChildTx); end return {self.}XmlChildTx and not {self.}XmlChildTx.Removed ? {self.}XmlChildTx : fallback_.Tx; end; function Ser.WriteXmlChildTx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTx) then {self.}RemoveChild({self.}XmlChildTx); end else if v is class(Tx) then begin v.Parent := self; {self.}XmlChildTx := v; container_.Set({self.}XmlChildTx); end else begin raise "Invalid assignment: Tx expects Tx or nil"; end end; function Ser.ReadXmlChildInvertIfNegative(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildInvertIfNegative) or {self.}XmlChildInvertIfNegative.Removed) then begin {self.}XmlChildInvertIfNegative := new PureVal(self, {self.}Prefix, "invertIfNegative"); container_.Set({self.}XmlChildInvertIfNegative); end return {self.}XmlChildInvertIfNegative and not {self.}XmlChildInvertIfNegative.Removed ? {self.}XmlChildInvertIfNegative : fallback_.InvertIfNegative; end; function Ser.WriteXmlChildInvertIfNegative(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildInvertIfNegative) then {self.}RemoveChild({self.}XmlChildInvertIfNegative); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildInvertIfNegative := v; container_.Set({self.}XmlChildInvertIfNegative); end else begin raise "Invalid assignment: InvertIfNegative expects PureVal or nil"; end end; function Ser.ReadXmlChildDLbls(): DLbls; begin if tslassigning and (ifnil({self.}XmlChildDLbls) or {self.}XmlChildDLbls.Removed) then begin {self.}XmlChildDLbls := new DLbls(self, {self.}Prefix, "dLbls"); container_.Set({self.}XmlChildDLbls); end return {self.}XmlChildDLbls and not {self.}XmlChildDLbls.Removed ? {self.}XmlChildDLbls : fallback_.DLbls; end; function Ser.WriteXmlChildDLbls(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDLbls) then {self.}RemoveChild({self.}XmlChildDLbls); end else if v is class(DLbls) then begin v.Parent := self; {self.}XmlChildDLbls := v; container_.Set({self.}XmlChildDLbls); end else begin raise "Invalid assignment: DLbls expects DLbls or nil"; end end; function Ser.ReadXmlChildCat(): Cat; begin if tslassigning and (ifnil({self.}XmlChildCat) or {self.}XmlChildCat.Removed) then begin {self.}XmlChildCat := new Cat(self, {self.}Prefix, "cat"); container_.Set({self.}XmlChildCat); end return {self.}XmlChildCat and not {self.}XmlChildCat.Removed ? {self.}XmlChildCat : fallback_.Cat; end; function Ser.WriteXmlChildCat(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCat) then {self.}RemoveChild({self.}XmlChildCat); end else if v is class(Cat) then begin v.Parent := self; {self.}XmlChildCat := v; container_.Set({self.}XmlChildCat); end else begin raise "Invalid assignment: Cat expects Cat or nil"; end end; function Ser.ReadXmlChildVal(): Val; begin if tslassigning and (ifnil({self.}XmlChildVal) or {self.}XmlChildVal.Removed) then begin {self.}XmlChildVal := new Val(self, {self.}Prefix, "val"); container_.Set({self.}XmlChildVal); end return {self.}XmlChildVal and not {self.}XmlChildVal.Removed ? {self.}XmlChildVal : fallback_.Val; end; function Ser.WriteXmlChildVal(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildVal) then {self.}RemoveChild({self.}XmlChildVal); end else if v is class(Val) then begin v.Parent := self; {self.}XmlChildVal := v; container_.Set({self.}XmlChildVal); end else begin raise "Invalid assignment: Val expects Val or nil"; end end; function Ser.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then begin {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst; end; function Ser.WriteXmlChildExtLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExtLst) then {self.}RemoveChild({self.}XmlChildExtLst); end else if v is class(ExtLst) then begin v.Parent := self; {self.}XmlChildExtLst := v; container_.Set({self.}XmlChildExtLst); end else begin raise "Invalid assignment: ExtLst expects ExtLst or nil"; end end; function DLbls.create();overload; begin {self.}create(nil, "c", "dLbls"); end; function DLbls.create(_node: XmlNode);overload; begin inherited create(_node); end; function DLbls.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): DLbls;override; begin obj := new DLbls(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "spPr": obj.SpPr := element.Clone(); pre + "showLegendKey": obj.ShowLegendKey := element.Clone(); pre + "showVal": obj.ShowVal := element.Clone(); pre + "showCatName": obj.ShowCatName := element.Clone(); pre + "showSerName": obj.ShowSerName := element.Clone(); pre + "showPercent": obj.ShowPercent := element.Clone(); pre + "showBubbleSize": obj.ShowBubbleSize := element.Clone(); pre + "showLeaderLines": obj.ShowLeaderLines := element.Clone(); pre + "extLst": obj.ExtLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function DLbls.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSpPr) then {self.}XmlChildSpPr.ConvertToPoint(); if not ifnil({self.}XmlChildShowLegendKey) then {self.}XmlChildShowLegendKey.ConvertToPoint(); if not ifnil({self.}XmlChildShowVal) then {self.}XmlChildShowVal.ConvertToPoint(); if not ifnil({self.}XmlChildShowCatName) then {self.}XmlChildShowCatName.ConvertToPoint(); if not ifnil({self.}XmlChildShowSerName) then {self.}XmlChildShowSerName.ConvertToPoint(); if not ifnil({self.}XmlChildShowPercent) then {self.}XmlChildShowPercent.ConvertToPoint(); if not ifnil({self.}XmlChildShowBubbleSize) then {self.}XmlChildShowBubbleSize.ConvertToPoint(); if not ifnil({self.}XmlChildShowLeaderLines) then {self.}XmlChildShowLeaderLines.ConvertToPoint(); if not ifnil({self.}XmlChildExtLst) then {self.}XmlChildExtLst.ConvertToPoint(); end; function DLbls.ReadXmlChildSpPr(): SpPr; begin if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr; end; function DLbls.WriteXmlChildSpPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSpPr) then {self.}RemoveChild({self.}XmlChildSpPr); end else if v is class(SpPr) then begin v.Parent := self; {self.}XmlChildSpPr := v; container_.Set({self.}XmlChildSpPr); end else begin raise "Invalid assignment: SpPr expects SpPr or nil"; end end; function DLbls.ReadXmlChildShowLegendKey(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowLegendKey) or {self.}XmlChildShowLegendKey.Removed) then begin {self.}XmlChildShowLegendKey := new PureVal(self, {self.}Prefix, "showLegendKey"); container_.Set({self.}XmlChildShowLegendKey); end return {self.}XmlChildShowLegendKey and not {self.}XmlChildShowLegendKey.Removed ? {self.}XmlChildShowLegendKey : fallback_.ShowLegendKey; end; function DLbls.WriteXmlChildShowLegendKey(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowLegendKey) then {self.}RemoveChild({self.}XmlChildShowLegendKey); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowLegendKey := v; container_.Set({self.}XmlChildShowLegendKey); end else begin raise "Invalid assignment: ShowLegendKey expects PureVal or nil"; end end; function DLbls.ReadXmlChildShowVal(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowVal) or {self.}XmlChildShowVal.Removed) then begin {self.}XmlChildShowVal := new PureVal(self, {self.}Prefix, "showVal"); container_.Set({self.}XmlChildShowVal); end return {self.}XmlChildShowVal and not {self.}XmlChildShowVal.Removed ? {self.}XmlChildShowVal : fallback_.ShowVal; end; function DLbls.WriteXmlChildShowVal(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowVal) then {self.}RemoveChild({self.}XmlChildShowVal); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowVal := v; container_.Set({self.}XmlChildShowVal); end else begin raise "Invalid assignment: ShowVal expects PureVal or nil"; end end; function DLbls.ReadXmlChildShowCatName(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowCatName) or {self.}XmlChildShowCatName.Removed) then begin {self.}XmlChildShowCatName := new PureVal(self, {self.}Prefix, "showCatName"); container_.Set({self.}XmlChildShowCatName); end return {self.}XmlChildShowCatName and not {self.}XmlChildShowCatName.Removed ? {self.}XmlChildShowCatName : fallback_.ShowCatName; end; function DLbls.WriteXmlChildShowCatName(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowCatName) then {self.}RemoveChild({self.}XmlChildShowCatName); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowCatName := v; container_.Set({self.}XmlChildShowCatName); end else begin raise "Invalid assignment: ShowCatName expects PureVal or nil"; end end; function DLbls.ReadXmlChildShowSerName(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowSerName) or {self.}XmlChildShowSerName.Removed) then begin {self.}XmlChildShowSerName := new PureVal(self, {self.}Prefix, "showSerName"); container_.Set({self.}XmlChildShowSerName); end return {self.}XmlChildShowSerName and not {self.}XmlChildShowSerName.Removed ? {self.}XmlChildShowSerName : fallback_.ShowSerName; end; function DLbls.WriteXmlChildShowSerName(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowSerName) then {self.}RemoveChild({self.}XmlChildShowSerName); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowSerName := v; container_.Set({self.}XmlChildShowSerName); end else begin raise "Invalid assignment: ShowSerName expects PureVal or nil"; end end; function DLbls.ReadXmlChildShowPercent(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowPercent) or {self.}XmlChildShowPercent.Removed) then begin {self.}XmlChildShowPercent := new PureVal(self, {self.}Prefix, "showPercent"); container_.Set({self.}XmlChildShowPercent); end return {self.}XmlChildShowPercent and not {self.}XmlChildShowPercent.Removed ? {self.}XmlChildShowPercent : fallback_.ShowPercent; end; function DLbls.WriteXmlChildShowPercent(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowPercent) then {self.}RemoveChild({self.}XmlChildShowPercent); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowPercent := v; container_.Set({self.}XmlChildShowPercent); end else begin raise "Invalid assignment: ShowPercent expects PureVal or nil"; end end; function DLbls.ReadXmlChildShowBubbleSize(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowBubbleSize) or {self.}XmlChildShowBubbleSize.Removed) then begin {self.}XmlChildShowBubbleSize := new PureVal(self, {self.}Prefix, "showBubbleSize"); container_.Set({self.}XmlChildShowBubbleSize); end return {self.}XmlChildShowBubbleSize and not {self.}XmlChildShowBubbleSize.Removed ? {self.}XmlChildShowBubbleSize : fallback_.ShowBubbleSize; end; function DLbls.WriteXmlChildShowBubbleSize(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowBubbleSize) then {self.}RemoveChild({self.}XmlChildShowBubbleSize); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowBubbleSize := v; container_.Set({self.}XmlChildShowBubbleSize); end else begin raise "Invalid assignment: ShowBubbleSize expects PureVal or nil"; end end; function DLbls.ReadXmlChildShowLeaderLines(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowLeaderLines) or {self.}XmlChildShowLeaderLines.Removed) then begin {self.}XmlChildShowLeaderLines := new PureVal(self, {self.}Prefix, "showLeaderLines"); container_.Set({self.}XmlChildShowLeaderLines); end return {self.}XmlChildShowLeaderLines and not {self.}XmlChildShowLeaderLines.Removed ? {self.}XmlChildShowLeaderLines : fallback_.ShowLeaderLines; end; function DLbls.WriteXmlChildShowLeaderLines(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowLeaderLines) then {self.}RemoveChild({self.}XmlChildShowLeaderLines); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowLeaderLines := v; container_.Set({self.}XmlChildShowLeaderLines); end else begin raise "Invalid assignment: ShowLeaderLines expects PureVal or nil"; end end; function DLbls.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then begin {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst; end; function DLbls.WriteXmlChildExtLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExtLst) then {self.}RemoveChild({self.}XmlChildExtLst); end else if v is class(ExtLst) then begin v.Parent := self; {self.}XmlChildExtLst := v; container_.Set({self.}XmlChildExtLst); end else begin raise "Invalid assignment: ExtLst expects ExtLst or nil"; end end; function Cat.create();overload; begin {self.}create(nil, "c", "cat"); end; function Cat.create(_node: XmlNode);overload; begin inherited create(_node); end; function Cat.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildStrRef) then {self.}StrRef.Copy(_obj.XmlChildStrRef); tslassigning := tslassigning_backup; end; function Cat.Clone(): Cat;override; begin obj := new Cat(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "strRef": obj.StrRef := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Cat.ConvertToPoint();override; begin if not ifnil({self.}XmlChildStrRef) then {self.}XmlChildStrRef.ConvertToPoint(); end; function Cat.ReadXmlChildStrRef(): StrRef; begin if tslassigning and (ifnil({self.}XmlChildStrRef) or {self.}XmlChildStrRef.Removed) then begin {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); container_.Set({self.}XmlChildStrRef); end return {self.}XmlChildStrRef and not {self.}XmlChildStrRef.Removed ? {self.}XmlChildStrRef : fallback_.StrRef; end; function Cat.WriteXmlChildStrRef(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildStrRef) then {self.}RemoveChild({self.}XmlChildStrRef); end else if v is class(StrRef) then begin v.Parent := self; {self.}XmlChildStrRef := v; container_.Set({self.}XmlChildStrRef); end else begin raise "Invalid assignment: StrRef expects StrRef or nil"; end end; function StrRef.create();overload; begin {self.}create(nil, "c", "strRef"); end; function StrRef.create(_node: XmlNode);overload; begin inherited create(_node); end; function StrRef.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): StrRef;override; begin obj := new StrRef(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "f": obj.F := element.Clone(); pre + "strCache": obj.StrCache := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function StrRef.ConvertToPoint();override; begin if not ifnil({self.}XmlChildStrCache) then {self.}XmlChildStrCache.ConvertToPoint(); end; function StrRef.ReadXmlChildF(); begin if tslassigning and (ifnil({self.}XmlChildF) or {self.}XmlChildF.Removed) then begin {self.}XmlChildF := new OpenXmlTextElement(self, {self.}Prefix, "f"); container_.Set({self.}XmlChildF); end return {self.}XmlChildF and not {self.}XmlChildF.Removed ? {self.}XmlChildF : fallback_.F; end; function StrRef.WriteXmlChildF(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildF) then {self.}RemoveChild({self.}XmlChildF); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildF := _value; container_.Set({self.}XmlChildF); end else begin raise "Invalid assignment: F expects nil or OpenXmlTextElement"; end end; function StrRef.ReadXmlChildStrCache(): StrCache; begin if tslassigning and (ifnil({self.}XmlChildStrCache) or {self.}XmlChildStrCache.Removed) then begin {self.}XmlChildStrCache := new StrCache(self, {self.}Prefix, "strCache"); container_.Set({self.}XmlChildStrCache); end return {self.}XmlChildStrCache and not {self.}XmlChildStrCache.Removed ? {self.}XmlChildStrCache : fallback_.StrCache; end; function StrRef.WriteXmlChildStrCache(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildStrCache) then {self.}RemoveChild({self.}XmlChildStrCache); end else if v is class(StrCache) then begin v.Parent := self; {self.}XmlChildStrCache := v; container_.Set({self.}XmlChildStrCache); end else begin raise "Invalid assignment: StrCache expects StrCache or nil"; end end; function Val.create();overload; begin {self.}create(nil, "c", "val"); end; function Val.create(_node: XmlNode);overload; begin inherited create(_node); end; function Val.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildNumRef) then {self.}NumRef.Copy(_obj.XmlChildNumRef); tslassigning := tslassigning_backup; end; function Val.Clone(): Val;override; begin obj := new Val(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "numRef": obj.NumRef := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Val.ConvertToPoint();override; begin if not ifnil({self.}XmlChildNumRef) then {self.}XmlChildNumRef.ConvertToPoint(); end; function Val.ReadXmlChildNumRef(): NumRef; begin if tslassigning and (ifnil({self.}XmlChildNumRef) or {self.}XmlChildNumRef.Removed) then begin {self.}XmlChildNumRef := new NumRef(self, {self.}Prefix, "numRef"); container_.Set({self.}XmlChildNumRef); end return {self.}XmlChildNumRef and not {self.}XmlChildNumRef.Removed ? {self.}XmlChildNumRef : fallback_.NumRef; end; function Val.WriteXmlChildNumRef(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildNumRef) then {self.}RemoveChild({self.}XmlChildNumRef); end else if v is class(NumRef) then begin v.Parent := self; {self.}XmlChildNumRef := v; container_.Set({self.}XmlChildNumRef); end else begin raise "Invalid assignment: NumRef expects NumRef or nil"; end end; function NumRef.create();overload; begin {self.}create(nil, "c", "numRef"); end; function NumRef.create(_node: XmlNode);overload; begin inherited create(_node); end; function NumRef.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): NumRef;override; begin obj := new NumRef(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "f": obj.F := element.Clone(); pre + "numCache": obj.NumCache := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function NumRef.ConvertToPoint();override; begin if not ifnil({self.}XmlChildNumCache) then {self.}XmlChildNumCache.ConvertToPoint(); end; function NumRef.ReadXmlChildF(); begin if tslassigning and (ifnil({self.}XmlChildF) or {self.}XmlChildF.Removed) then begin {self.}XmlChildF := new OpenXmlTextElement(self, {self.}Prefix, "f"); container_.Set({self.}XmlChildF); end return {self.}XmlChildF and not {self.}XmlChildF.Removed ? {self.}XmlChildF : fallback_.F; end; function NumRef.WriteXmlChildF(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildF) then {self.}RemoveChild({self.}XmlChildF); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildF := _value; container_.Set({self.}XmlChildF); end else begin raise "Invalid assignment: F expects nil or OpenXmlTextElement"; end end; function NumRef.ReadXmlChildNumCache(): NumCache; begin if tslassigning and (ifnil({self.}XmlChildNumCache) or {self.}XmlChildNumCache.Removed) then begin {self.}XmlChildNumCache := new NumCache(self, {self.}Prefix, "numCache"); container_.Set({self.}XmlChildNumCache); end return {self.}XmlChildNumCache and not {self.}XmlChildNumCache.Removed ? {self.}XmlChildNumCache : fallback_.NumCache; end; function NumRef.WriteXmlChildNumCache(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildNumCache) then {self.}RemoveChild({self.}XmlChildNumCache); end else if v is class(NumCache) then begin v.Parent := self; {self.}XmlChildNumCache := v; container_.Set({self.}XmlChildNumCache); end else begin raise "Invalid assignment: NumCache expects NumCache or nil"; end end; function StrCache.create();overload; begin {self.}create(nil, "c", ""); end; function StrCache.create(_node: XmlNode);overload; begin inherited create(_node); end; function StrCache.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildPtCount) then {self.}PtCount.Copy(_obj.XmlChildPtCount); tslassigning := tslassigning_backup; end; function StrCache.Clone(): StrCache;override; begin obj := new StrCache(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "ptCount": obj.PtCount := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function StrCache.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPtCount) then {self.}XmlChildPtCount.ConvertToPoint(); elems := {self.}Pts(); for _,elem in elems do elem.ConvertToPoint(); end; function StrCache.ReadXmlChildPtCount(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildPtCount) or {self.}XmlChildPtCount.Removed) then begin {self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount"); container_.Set({self.}XmlChildPtCount); end return {self.}XmlChildPtCount and not {self.}XmlChildPtCount.Removed ? {self.}XmlChildPtCount : fallback_.PtCount; end; function StrCache.WriteXmlChildPtCount(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPtCount) then {self.}RemoveChild({self.}XmlChildPtCount); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildPtCount := v; container_.Set({self.}XmlChildPtCount); end else begin raise "Invalid assignment: PtCount expects PureVal or nil"; end end; function StrCache.ReadPts(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "pt", ind); end; function StrCache.WritePts(_index: integer; _value: nil_OR_Pt); begin if ifnil(_value) then begin obj := {self.}ReadPts(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "pt", ind, _value) then raise format("Index out of range: Pts[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Pts expects nil or Pt"; end end; function StrCache.AddPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); obj.Enable := true; container_.Insert(obj); return obj; end; function StrCache.AppendPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); obj.Enable := true; container_.Append(obj); return obj; end; function NumCache.create();overload; begin {self.}create(nil, "c", ""); end; function NumCache.create(_node: XmlNode);overload; begin inherited create(_node); end; function NumCache.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): NumCache;override; begin obj := new NumCache(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "formatCode": obj.FormatCode := element.Clone(); pre + "ptCount": obj.PtCount := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function NumCache.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPtCount) then {self.}XmlChildPtCount.ConvertToPoint(); elems := {self.}Pts(); for _,elem in elems do elem.ConvertToPoint(); end; function NumCache.ReadXmlChildFormatCode(); begin if tslassigning and (ifnil({self.}XmlChildFormatCode) or {self.}XmlChildFormatCode.Removed) then begin {self.}XmlChildFormatCode := new OpenXmlTextElement(self, {self.}Prefix, "formatCode"); container_.Set({self.}XmlChildFormatCode); end return {self.}XmlChildFormatCode and not {self.}XmlChildFormatCode.Removed ? {self.}XmlChildFormatCode : fallback_.FormatCode; end; function NumCache.WriteXmlChildFormatCode(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildFormatCode) then {self.}RemoveChild({self.}XmlChildFormatCode); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildFormatCode := _value; container_.Set({self.}XmlChildFormatCode); end else begin raise "Invalid assignment: FormatCode expects nil or OpenXmlTextElement"; end end; function NumCache.ReadXmlChildPtCount(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildPtCount) or {self.}XmlChildPtCount.Removed) then begin {self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount"); container_.Set({self.}XmlChildPtCount); end return {self.}XmlChildPtCount and not {self.}XmlChildPtCount.Removed ? {self.}XmlChildPtCount : fallback_.PtCount; end; function NumCache.WriteXmlChildPtCount(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPtCount) then {self.}RemoveChild({self.}XmlChildPtCount); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildPtCount := v; container_.Set({self.}XmlChildPtCount); end else begin raise "Invalid assignment: PtCount expects PureVal or nil"; end end; function NumCache.ReadPts(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "pt", ind); end; function NumCache.WritePts(_index: integer; _value: nil_OR_Pt); begin if ifnil(_value) then begin obj := {self.}ReadPts(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "pt", ind, _value) then raise format("Index out of range: Pts[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Pts expects nil or Pt"; end end; function NumCache.AddPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); obj.Enable := true; container_.Insert(obj); return obj; end; function NumCache.AppendPt(): Pt; begin obj := new Pt(self, {self.}Prefix, "pt"); obj.Enable := true; container_.Append(obj); return obj; end; function Pt.create();overload; begin {self.}create(nil, "c", "pt"); end; function Pt.create(_node: XmlNode);overload; begin inherited create(_node); end; function Pt.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Pt;override; begin obj := new Pt(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Idx) then obj.Idx := {self.}Idx; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "v": obj.V := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Pt.ConvertToPoint();override; begin end; function Pt.ReadXmlAttrIdx(); begin return ifnil({self.}XmlAttrIdx.Value) ? fallback_.XmlAttrIdx.Value : {self.}XmlAttrIdx.Value; end; function Pt.WriteXmlAttrIdx(_value: any); begin if ifnil({self.}XmlAttrIdx) then begin {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); attributes_["idx"] := {self.}XmlAttrIdx; end {self.}XmlAttrIdx.Value := _value; end; function Pt.ReadXmlChildV(); begin if tslassigning and (ifnil({self.}XmlChildV) or {self.}XmlChildV.Removed) then begin {self.}XmlChildV := new OpenXmlTextElement(self, {self.}Prefix, "v"); container_.Set({self.}XmlChildV); end return {self.}XmlChildV and not {self.}XmlChildV.Removed ? {self.}XmlChildV : fallback_.V; end; function Pt.WriteXmlChildV(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildV) then {self.}RemoveChild({self.}XmlChildV); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildV := _value; container_.Set({self.}XmlChildV); end else begin raise "Invalid assignment: V expects nil or OpenXmlTextElement"; end end; function Ax.create();overload; begin {self.}create(nil, "c", ""); end; function Ax.create(_node: XmlNode);overload; begin inherited create(_node); end; function Ax.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Ax;override; begin obj := new Ax(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "axId": obj.AxId := element.Clone(); pre + "scaling": obj.Scaling := element.Clone(); pre + "delete": obj._Delete := element.Clone(); pre + "axPos": obj.AxPos := element.Clone(); pre + "numFmt": obj.NumFmt := element.Clone(); pre + "majorTickMark": obj.MajorTickMark := element.Clone(); pre + "minorTickMark": obj.MinorTickMark := element.Clone(); pre + "tickLblPos": obj.TickLblPos := element.Clone(); pre + "spPr": obj.SpPr := element.Clone(); pre + "txPr": obj.TxPr := element.Clone(); pre + "crossAx": obj.CrossAx := element.Clone(); pre + "crosses": obj.Crosses := element.Clone(); pre + "crossBetween": obj.CrossBetween := element.Clone(); pre + "auto": obj.Auto := element.Clone(); pre + "lblAlgn": obj.LblAlgn := element.Clone(); pre + "lblOffset": obj.LblOffset := element.Clone(); pre + "noMultiLvlLbl": obj.NoMultiLvlLbl := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Ax.ConvertToPoint();override; begin if not ifnil({self.}XmlChildAxId) then {self.}XmlChildAxId.ConvertToPoint(); if not ifnil({self.}XmlChildScaling) then {self.}XmlChildScaling.ConvertToPoint(); if not ifnil({self.}XmlChild_Delete) then {self.}XmlChild_Delete.ConvertToPoint(); if not ifnil({self.}XmlChildAxPos) then {self.}XmlChildAxPos.ConvertToPoint(); if not ifnil({self.}XmlChildNumFmt) then {self.}XmlChildNumFmt.ConvertToPoint(); if not ifnil({self.}XmlChildMajorTickMark) then {self.}XmlChildMajorTickMark.ConvertToPoint(); if not ifnil({self.}XmlChildMinorTickMark) then {self.}XmlChildMinorTickMark.ConvertToPoint(); if not ifnil({self.}XmlChildTickLblPos) then {self.}XmlChildTickLblPos.ConvertToPoint(); if not ifnil({self.}XmlChildSpPr) then {self.}XmlChildSpPr.ConvertToPoint(); if not ifnil({self.}XmlChildTxPr) then {self.}XmlChildTxPr.ConvertToPoint(); if not ifnil({self.}XmlChildCrossAx) then {self.}XmlChildCrossAx.ConvertToPoint(); if not ifnil({self.}XmlChildCrosses) then {self.}XmlChildCrosses.ConvertToPoint(); if not ifnil({self.}XmlChildCrossBetween) then {self.}XmlChildCrossBetween.ConvertToPoint(); if not ifnil({self.}XmlChildAuto) then {self.}XmlChildAuto.ConvertToPoint(); if not ifnil({self.}XmlChildLblAlgn) then {self.}XmlChildLblAlgn.ConvertToPoint(); if not ifnil({self.}XmlChildLblOffset) then {self.}XmlChildLblOffset.ConvertToPoint(); if not ifnil({self.}XmlChildNoMultiLvlLbl) then {self.}XmlChildNoMultiLvlLbl.ConvertToPoint(); end; function Ax.ReadXmlChildAxId(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildAxId) or {self.}XmlChildAxId.Removed) then begin {self.}XmlChildAxId := new PureVal(self, {self.}Prefix, "axId"); container_.Set({self.}XmlChildAxId); end return {self.}XmlChildAxId and not {self.}XmlChildAxId.Removed ? {self.}XmlChildAxId : fallback_.AxId; end; function Ax.WriteXmlChildAxId(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAxId) then {self.}RemoveChild({self.}XmlChildAxId); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildAxId := v; container_.Set({self.}XmlChildAxId); end else begin raise "Invalid assignment: AxId expects PureVal or nil"; end end; function Ax.ReadXmlChildScaling(): Scaling; begin if tslassigning and (ifnil({self.}XmlChildScaling) or {self.}XmlChildScaling.Removed) then begin {self.}XmlChildScaling := new Scaling(self, {self.}Prefix, "scaling"); container_.Set({self.}XmlChildScaling); end return {self.}XmlChildScaling and not {self.}XmlChildScaling.Removed ? {self.}XmlChildScaling : fallback_.Scaling; end; function Ax.WriteXmlChildScaling(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildScaling) then {self.}RemoveChild({self.}XmlChildScaling); end else if v is class(Scaling) then begin v.Parent := self; {self.}XmlChildScaling := v; container_.Set({self.}XmlChildScaling); end else begin raise "Invalid assignment: Scaling expects Scaling or nil"; end end; function Ax.ReadXmlChild_Delete(): PureVal; begin if tslassigning and (ifnil({self.}XmlChild_Delete) or {self.}XmlChild_Delete.Removed) then begin {self.}XmlChild_Delete := new PureVal(self, {self.}Prefix, "delete"); container_.Set({self.}XmlChild_Delete); end return {self.}XmlChild_Delete and not {self.}XmlChild_Delete.Removed ? {self.}XmlChild_Delete : fallback_._Delete; end; function Ax.WriteXmlChild_Delete(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChild_Delete) then {self.}RemoveChild({self.}XmlChild_Delete); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChild_Delete := v; container_.Set({self.}XmlChild_Delete); end else begin raise "Invalid assignment: _Delete expects PureVal or nil"; end end; function Ax.ReadXmlChildAxPos(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildAxPos) or {self.}XmlChildAxPos.Removed) then begin {self.}XmlChildAxPos := new PureVal(self, {self.}Prefix, "axPos"); container_.Set({self.}XmlChildAxPos); end return {self.}XmlChildAxPos and not {self.}XmlChildAxPos.Removed ? {self.}XmlChildAxPos : fallback_.AxPos; end; function Ax.WriteXmlChildAxPos(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAxPos) then {self.}RemoveChild({self.}XmlChildAxPos); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildAxPos := v; container_.Set({self.}XmlChildAxPos); end else begin raise "Invalid assignment: AxPos expects PureVal or nil"; end end; function Ax.ReadXmlChildNumFmt(): NumFmt; begin if tslassigning and (ifnil({self.}XmlChildNumFmt) or {self.}XmlChildNumFmt.Removed) then begin {self.}XmlChildNumFmt := new NumFmt(self, {self.}Prefix, "numFmt"); container_.Set({self.}XmlChildNumFmt); end return {self.}XmlChildNumFmt and not {self.}XmlChildNumFmt.Removed ? {self.}XmlChildNumFmt : fallback_.NumFmt; end; function Ax.WriteXmlChildNumFmt(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildNumFmt) then {self.}RemoveChild({self.}XmlChildNumFmt); end else if v is class(NumFmt) then begin v.Parent := self; {self.}XmlChildNumFmt := v; container_.Set({self.}XmlChildNumFmt); end else begin raise "Invalid assignment: NumFmt expects NumFmt or nil"; end end; function Ax.ReadXmlChildMajorTickMark(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildMajorTickMark) or {self.}XmlChildMajorTickMark.Removed) then begin {self.}XmlChildMajorTickMark := new PureVal(self, {self.}Prefix, "majorTickMark"); container_.Set({self.}XmlChildMajorTickMark); end return {self.}XmlChildMajorTickMark and not {self.}XmlChildMajorTickMark.Removed ? {self.}XmlChildMajorTickMark : fallback_.MajorTickMark; end; function Ax.WriteXmlChildMajorTickMark(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildMajorTickMark) then {self.}RemoveChild({self.}XmlChildMajorTickMark); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildMajorTickMark := v; container_.Set({self.}XmlChildMajorTickMark); end else begin raise "Invalid assignment: MajorTickMark expects PureVal or nil"; end end; function Ax.ReadXmlChildMinorTickMark(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildMinorTickMark) or {self.}XmlChildMinorTickMark.Removed) then begin {self.}XmlChildMinorTickMark := new PureVal(self, {self.}Prefix, "minorTickMark"); container_.Set({self.}XmlChildMinorTickMark); end return {self.}XmlChildMinorTickMark and not {self.}XmlChildMinorTickMark.Removed ? {self.}XmlChildMinorTickMark : fallback_.MinorTickMark; end; function Ax.WriteXmlChildMinorTickMark(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildMinorTickMark) then {self.}RemoveChild({self.}XmlChildMinorTickMark); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildMinorTickMark := v; container_.Set({self.}XmlChildMinorTickMark); end else begin raise "Invalid assignment: MinorTickMark expects PureVal or nil"; end end; function Ax.ReadXmlChildTickLblPos(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildTickLblPos) or {self.}XmlChildTickLblPos.Removed) then begin {self.}XmlChildTickLblPos := new PureVal(self, {self.}Prefix, "tickLblPos"); container_.Set({self.}XmlChildTickLblPos); end return {self.}XmlChildTickLblPos and not {self.}XmlChildTickLblPos.Removed ? {self.}XmlChildTickLblPos : fallback_.TickLblPos; end; function Ax.WriteXmlChildTickLblPos(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTickLblPos) then {self.}RemoveChild({self.}XmlChildTickLblPos); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildTickLblPos := v; container_.Set({self.}XmlChildTickLblPos); end else begin raise "Invalid assignment: TickLblPos expects PureVal or nil"; end end; function Ax.ReadXmlChildSpPr(): SpPr; begin if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr; end; function Ax.WriteXmlChildSpPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSpPr) then {self.}RemoveChild({self.}XmlChildSpPr); end else if v is class(SpPr) then begin v.Parent := self; {self.}XmlChildSpPr := v; container_.Set({self.}XmlChildSpPr); end else begin raise "Invalid assignment: SpPr expects SpPr or nil"; end end; function Ax.ReadXmlChildTxPr(): TxPr; begin if tslassigning and (ifnil({self.}XmlChildTxPr) or {self.}XmlChildTxPr.Removed) then begin {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); container_.Set({self.}XmlChildTxPr); end return {self.}XmlChildTxPr and not {self.}XmlChildTxPr.Removed ? {self.}XmlChildTxPr : fallback_.TxPr; end; function Ax.WriteXmlChildTxPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTxPr) then {self.}RemoveChild({self.}XmlChildTxPr); end else if v is class(TxPr) then begin v.Parent := self; {self.}XmlChildTxPr := v; container_.Set({self.}XmlChildTxPr); end else begin raise "Invalid assignment: TxPr expects TxPr or nil"; end end; function Ax.ReadXmlChildCrossAx(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildCrossAx) or {self.}XmlChildCrossAx.Removed) then begin {self.}XmlChildCrossAx := new PureVal(self, {self.}Prefix, "crossAx"); container_.Set({self.}XmlChildCrossAx); end return {self.}XmlChildCrossAx and not {self.}XmlChildCrossAx.Removed ? {self.}XmlChildCrossAx : fallback_.CrossAx; end; function Ax.WriteXmlChildCrossAx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCrossAx) then {self.}RemoveChild({self.}XmlChildCrossAx); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildCrossAx := v; container_.Set({self.}XmlChildCrossAx); end else begin raise "Invalid assignment: CrossAx expects PureVal or nil"; end end; function Ax.ReadXmlChildCrosses(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildCrosses) or {self.}XmlChildCrosses.Removed) then begin {self.}XmlChildCrosses := new PureVal(self, {self.}Prefix, "crosses"); container_.Set({self.}XmlChildCrosses); end return {self.}XmlChildCrosses and not {self.}XmlChildCrosses.Removed ? {self.}XmlChildCrosses : fallback_.Crosses; end; function Ax.WriteXmlChildCrosses(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCrosses) then {self.}RemoveChild({self.}XmlChildCrosses); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildCrosses := v; container_.Set({self.}XmlChildCrosses); end else begin raise "Invalid assignment: Crosses expects PureVal or nil"; end end; function Ax.ReadXmlChildCrossBetween(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildCrossBetween) or {self.}XmlChildCrossBetween.Removed) then begin {self.}XmlChildCrossBetween := new PureVal(self, {self.}Prefix, "crossBetween"); container_.Set({self.}XmlChildCrossBetween); end return {self.}XmlChildCrossBetween and not {self.}XmlChildCrossBetween.Removed ? {self.}XmlChildCrossBetween : fallback_.CrossBetween; end; function Ax.WriteXmlChildCrossBetween(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCrossBetween) then {self.}RemoveChild({self.}XmlChildCrossBetween); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildCrossBetween := v; container_.Set({self.}XmlChildCrossBetween); end else begin raise "Invalid assignment: CrossBetween expects PureVal or nil"; end end; function Ax.ReadXmlChildAuto(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildAuto) or {self.}XmlChildAuto.Removed) then begin {self.}XmlChildAuto := new PureVal(self, {self.}Prefix, "auto"); container_.Set({self.}XmlChildAuto); end return {self.}XmlChildAuto and not {self.}XmlChildAuto.Removed ? {self.}XmlChildAuto : fallback_.Auto; end; function Ax.WriteXmlChildAuto(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAuto) then {self.}RemoveChild({self.}XmlChildAuto); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildAuto := v; container_.Set({self.}XmlChildAuto); end else begin raise "Invalid assignment: Auto expects PureVal or nil"; end end; function Ax.ReadXmlChildLblAlgn(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildLblAlgn) or {self.}XmlChildLblAlgn.Removed) then begin {self.}XmlChildLblAlgn := new PureVal(self, {self.}Prefix, "lblAlgn"); container_.Set({self.}XmlChildLblAlgn); end return {self.}XmlChildLblAlgn and not {self.}XmlChildLblAlgn.Removed ? {self.}XmlChildLblAlgn : fallback_.LblAlgn; end; function Ax.WriteXmlChildLblAlgn(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLblAlgn) then {self.}RemoveChild({self.}XmlChildLblAlgn); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildLblAlgn := v; container_.Set({self.}XmlChildLblAlgn); end else begin raise "Invalid assignment: LblAlgn expects PureVal or nil"; end end; function Ax.ReadXmlChildLblOffset(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildLblOffset) or {self.}XmlChildLblOffset.Removed) then begin {self.}XmlChildLblOffset := new PureVal(self, {self.}Prefix, "lblOffset"); container_.Set({self.}XmlChildLblOffset); end return {self.}XmlChildLblOffset and not {self.}XmlChildLblOffset.Removed ? {self.}XmlChildLblOffset : fallback_.LblOffset; end; function Ax.WriteXmlChildLblOffset(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLblOffset) then {self.}RemoveChild({self.}XmlChildLblOffset); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildLblOffset := v; container_.Set({self.}XmlChildLblOffset); end else begin raise "Invalid assignment: LblOffset expects PureVal or nil"; end end; function Ax.ReadXmlChildNoMultiLvlLbl(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildNoMultiLvlLbl) or {self.}XmlChildNoMultiLvlLbl.Removed) then begin {self.}XmlChildNoMultiLvlLbl := new PureVal(self, {self.}Prefix, "noMultiLvlLbl"); container_.Set({self.}XmlChildNoMultiLvlLbl); end return {self.}XmlChildNoMultiLvlLbl and not {self.}XmlChildNoMultiLvlLbl.Removed ? {self.}XmlChildNoMultiLvlLbl : fallback_.NoMultiLvlLbl; end; function Ax.WriteXmlChildNoMultiLvlLbl(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildNoMultiLvlLbl) then {self.}RemoveChild({self.}XmlChildNoMultiLvlLbl); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildNoMultiLvlLbl := v; container_.Set({self.}XmlChildNoMultiLvlLbl); end else begin raise "Invalid assignment: NoMultiLvlLbl expects PureVal or nil"; end end; function NumFmt.create();overload; begin {self.}create(nil, "c", "numFmt"); end; function NumFmt.create(_node: XmlNode);overload; begin inherited create(_node); end; function NumFmt.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): NumFmt;override; begin obj := new NumFmt(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}FormatCode) then obj.FormatCode := {self.}FormatCode; if not ifnil({self.}SourceLinked) then obj.SourceLinked := {self.}SourceLinked; return obj; end; function NumFmt.ConvertToPoint();override; begin end; function NumFmt.ReadXmlAttrFormatCode(); begin return ifnil({self.}XmlAttrFormatCode.Value) ? fallback_.XmlAttrFormatCode.Value : {self.}XmlAttrFormatCode.Value; end; function NumFmt.WriteXmlAttrFormatCode(_value: any); begin if ifnil({self.}XmlAttrFormatCode) then begin {self.}XmlAttrFormatCode := new OpenXmlAttribute("", "formatCode", nil); attributes_["formatCode"] := {self.}XmlAttrFormatCode; end {self.}XmlAttrFormatCode.Value := _value; end; function NumFmt.ReadXmlAttrSourceLinked(); begin return ifnil({self.}XmlAttrSourceLinked.Value) ? fallback_.XmlAttrSourceLinked.Value : {self.}XmlAttrSourceLinked.Value; end; function NumFmt.WriteXmlAttrSourceLinked(_value: any); begin if ifnil({self.}XmlAttrSourceLinked) then begin {self.}XmlAttrSourceLinked := new OpenXmlAttribute("", "sourceLinked", nil); attributes_["sourceLinked"] := {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 inherited create(_node); end; function Scaling.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Scaling;override; begin obj := new Scaling(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "orientation": obj.Orientation := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Scaling.ConvertToPoint();override; begin end; function Scaling.ReadXmlChildOrientation(); begin if tslassigning and (ifnil({self.}XmlChildOrientation) or {self.}XmlChildOrientation.Removed) then begin {self.}XmlChildOrientation := new OpenXmlSimpleType(self, {self.}Prefix, "orientation"); container_.Set({self.}XmlChildOrientation); end return {self.}XmlChildOrientation and not {self.}XmlChildOrientation.Removed ? {self.}XmlChildOrientation : fallback_.Orientation; end; function Scaling.WriteXmlChildOrientation(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildOrientation) then {self.}RemoveChild({self.}XmlChildOrientation); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildOrientation := _value; container_.Set({self.}XmlChildOrientation); end else begin raise "Invalid assignment: Orientation expects nil or OpenXmlSimpleType"; end end; function DTable.create();overload; begin {self.}create(nil, "c", "dTable"); end; function DTable.create(_node: XmlNode);overload; begin inherited create(_node); end; function DTable.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): DTable;override; begin obj := new DTable(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "showHorzBorder": obj.ShowHorzBorder := element.Clone(); pre + "showVertBorder": obj.ShowVertBorder := element.Clone(); pre + "showOutline": obj.ShowOutline := element.Clone(); pre + "showKeys": obj.ShowKeys := element.Clone(); pre + "txPr": obj.TxPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function DTable.ConvertToPoint();override; begin if not ifnil({self.}XmlChildShowHorzBorder) then {self.}XmlChildShowHorzBorder.ConvertToPoint(); if not ifnil({self.}XmlChildShowVertBorder) then {self.}XmlChildShowVertBorder.ConvertToPoint(); if not ifnil({self.}XmlChildShowOutline) then {self.}XmlChildShowOutline.ConvertToPoint(); if not ifnil({self.}XmlChildShowKeys) then {self.}XmlChildShowKeys.ConvertToPoint(); if not ifnil({self.}XmlChildTxPr) then {self.}XmlChildTxPr.ConvertToPoint(); end; function DTable.ReadXmlChildShowHorzBorder(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowHorzBorder) or {self.}XmlChildShowHorzBorder.Removed) then begin {self.}XmlChildShowHorzBorder := new PureVal(self, {self.}Prefix, "showHorzBorder"); container_.Set({self.}XmlChildShowHorzBorder); end return {self.}XmlChildShowHorzBorder and not {self.}XmlChildShowHorzBorder.Removed ? {self.}XmlChildShowHorzBorder : fallback_.ShowHorzBorder; end; function DTable.WriteXmlChildShowHorzBorder(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowHorzBorder) then {self.}RemoveChild({self.}XmlChildShowHorzBorder); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowHorzBorder := v; container_.Set({self.}XmlChildShowHorzBorder); end else begin raise "Invalid assignment: ShowHorzBorder expects PureVal or nil"; end end; function DTable.ReadXmlChildShowVertBorder(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowVertBorder) or {self.}XmlChildShowVertBorder.Removed) then begin {self.}XmlChildShowVertBorder := new PureVal(self, {self.}Prefix, "showVertBorder"); container_.Set({self.}XmlChildShowVertBorder); end return {self.}XmlChildShowVertBorder and not {self.}XmlChildShowVertBorder.Removed ? {self.}XmlChildShowVertBorder : fallback_.ShowVertBorder; end; function DTable.WriteXmlChildShowVertBorder(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowVertBorder) then {self.}RemoveChild({self.}XmlChildShowVertBorder); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowVertBorder := v; container_.Set({self.}XmlChildShowVertBorder); end else begin raise "Invalid assignment: ShowVertBorder expects PureVal or nil"; end end; function DTable.ReadXmlChildShowOutline(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowOutline) or {self.}XmlChildShowOutline.Removed) then begin {self.}XmlChildShowOutline := new PureVal(self, {self.}Prefix, "showOutline"); container_.Set({self.}XmlChildShowOutline); end return {self.}XmlChildShowOutline and not {self.}XmlChildShowOutline.Removed ? {self.}XmlChildShowOutline : fallback_.ShowOutline; end; function DTable.WriteXmlChildShowOutline(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowOutline) then {self.}RemoveChild({self.}XmlChildShowOutline); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowOutline := v; container_.Set({self.}XmlChildShowOutline); end else begin raise "Invalid assignment: ShowOutline expects PureVal or nil"; end end; function DTable.ReadXmlChildShowKeys(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildShowKeys) or {self.}XmlChildShowKeys.Removed) then begin {self.}XmlChildShowKeys := new PureVal(self, {self.}Prefix, "showKeys"); container_.Set({self.}XmlChildShowKeys); end return {self.}XmlChildShowKeys and not {self.}XmlChildShowKeys.Removed ? {self.}XmlChildShowKeys : fallback_.ShowKeys; end; function DTable.WriteXmlChildShowKeys(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildShowKeys) then {self.}RemoveChild({self.}XmlChildShowKeys); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildShowKeys := v; container_.Set({self.}XmlChildShowKeys); end else begin raise "Invalid assignment: ShowKeys expects PureVal or nil"; end end; function DTable.ReadXmlChildTxPr(): TxPr; begin if tslassigning and (ifnil({self.}XmlChildTxPr) or {self.}XmlChildTxPr.Removed) then begin {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); container_.Set({self.}XmlChildTxPr); end return {self.}XmlChildTxPr and not {self.}XmlChildTxPr.Removed ? {self.}XmlChildTxPr : fallback_.TxPr; end; function DTable.WriteXmlChildTxPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTxPr) then {self.}RemoveChild({self.}XmlChildTxPr); end else if v is class(TxPr) then begin v.Parent := self; {self.}XmlChildTxPr := v; container_.Set({self.}XmlChildTxPr); end else begin raise "Invalid assignment: TxPr expects TxPr or nil"; end end; function TxPr.create();overload; begin {self.}create(nil, "c", "txPr"); end; function TxPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function TxPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): TxPr;override; begin obj := new TxPr(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:bodyPr": obj.BodyPr := element.Clone(); "a:lstStyle": obj.LstStyle := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function TxPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildBodyPr) then {self.}XmlChildBodyPr.ConvertToPoint(); elems := {self.}Ps(); for _,elem in elems do elem.ConvertToPoint(); end; function TxPr.ReadXmlChildLstStyle(); begin if tslassigning and (ifnil({self.}XmlChildLstStyle) or {self.}XmlChildLstStyle.Removed) then begin {self.}XmlChildLstStyle := new OpenXmlSimpleType(self, "a", "lstStyle"); container_.Set({self.}XmlChildLstStyle); end return {self.}XmlChildLstStyle and not {self.}XmlChildLstStyle.Removed ? {self.}XmlChildLstStyle : fallback_.LstStyle; end; function TxPr.WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildLstStyle) then {self.}RemoveChild({self.}XmlChildLstStyle); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildLstStyle := _value; container_.Set({self.}XmlChildLstStyle); end else begin raise "Invalid assignment: LstStyle expects nil or OpenXmlSimpleType"; end end; function TxPr.ReadXmlChildBodyPr(): BodyPr; begin if tslassigning and (ifnil({self.}XmlChildBodyPr) or {self.}XmlChildBodyPr.Removed) then begin {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); container_.Set({self.}XmlChildBodyPr); end return {self.}XmlChildBodyPr and not {self.}XmlChildBodyPr.Removed ? {self.}XmlChildBodyPr : fallback_.BodyPr; end; function TxPr.WriteXmlChildBodyPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBodyPr) then {self.}RemoveChild({self.}XmlChildBodyPr); end else if v is class(BodyPr) then begin v.Parent := self; {self.}XmlChildBodyPr := v; container_.Set({self.}XmlChildBodyPr); end else begin raise "Invalid assignment: BodyPr expects BodyPr or nil"; end end; function TxPr.ReadPs(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get("a:p", ind); end; function TxPr.WritePs(_index: integer; _value: nil_OR_P); begin if ifnil(_value) then begin obj := {self.}ReadPs(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "p", ind, _value) then raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Ps expects nil or P"; end end; function TxPr.AddP(): P; begin obj := new P(self, "a", "p"); obj.Enable := true; container_.Insert(obj); return obj; end; function TxPr.AppendP(): P; begin obj := new P(self, "a", "p"); obj.Enable := true; container_.Append(obj); return obj; end; function Title.create();overload; begin {self.}create(nil, "c", "title"); end; function Title.create(_node: XmlNode);overload; begin inherited create(_node); end; function Title.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Title;override; begin obj := new Title(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "tx": obj.Tx := element.Clone(); pre + "layout": obj.Layout := element.Clone(); pre + "overlay": obj.Overlay := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Title.ConvertToPoint();override; begin if not ifnil({self.}XmlChildTx) then {self.}XmlChildTx.ConvertToPoint(); if not ifnil({self.}XmlChildOverlay) then {self.}XmlChildOverlay.ConvertToPoint(); end; function Title.ReadXmlChildLayout(); begin if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then begin {self.}XmlChildLayout := new OpenXmlSimpleType(self, {self.}Prefix, "layout"); container_.Set({self.}XmlChildLayout); end return {self.}XmlChildLayout and not {self.}XmlChildLayout.Removed ? {self.}XmlChildLayout : fallback_.Layout; end; function Title.WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildLayout) then {self.}RemoveChild({self.}XmlChildLayout); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildLayout := _value; container_.Set({self.}XmlChildLayout); end else begin raise "Invalid assignment: Layout expects nil or OpenXmlSimpleType"; end end; function Title.ReadXmlChildTx(): Tx; begin if tslassigning and (ifnil({self.}XmlChildTx) or {self.}XmlChildTx.Removed) then begin {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); container_.Set({self.}XmlChildTx); end return {self.}XmlChildTx and not {self.}XmlChildTx.Removed ? {self.}XmlChildTx : fallback_.Tx; end; function Title.WriteXmlChildTx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTx) then {self.}RemoveChild({self.}XmlChildTx); end else if v is class(Tx) then begin v.Parent := self; {self.}XmlChildTx := v; container_.Set({self.}XmlChildTx); end else begin raise "Invalid assignment: Tx expects Tx or nil"; end end; function Title.ReadXmlChildOverlay(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildOverlay) or {self.}XmlChildOverlay.Removed) then begin {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); container_.Set({self.}XmlChildOverlay); end return {self.}XmlChildOverlay and not {self.}XmlChildOverlay.Removed ? {self.}XmlChildOverlay : fallback_.Overlay; end; function Title.WriteXmlChildOverlay(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildOverlay) then {self.}RemoveChild({self.}XmlChildOverlay); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildOverlay := v; container_.Set({self.}XmlChildOverlay); end else begin raise "Invalid assignment: Overlay expects PureVal or nil"; end end; function Tx.create();overload; begin {self.}create(nil, "c", "tx"); end; function Tx.create(_node: XmlNode);overload; begin inherited create(_node); end; function Tx.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Tx;override; begin obj := new Tx(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "strRef": obj.StrRef := element.Clone(); pre + "rich": obj.Rich := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Tx.ConvertToPoint();override; begin if not ifnil({self.}XmlChildStrRef) then {self.}XmlChildStrRef.ConvertToPoint(); if not ifnil({self.}XmlChildRich) then {self.}XmlChildRich.ConvertToPoint(); end; function Tx.ReadXmlChildStrRef(): StrRef; begin if tslassigning and (ifnil({self.}XmlChildStrRef) or {self.}XmlChildStrRef.Removed) then begin {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); container_.Set({self.}XmlChildStrRef); end return {self.}XmlChildStrRef and not {self.}XmlChildStrRef.Removed ? {self.}XmlChildStrRef : fallback_.StrRef; end; function Tx.WriteXmlChildStrRef(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildStrRef) then {self.}RemoveChild({self.}XmlChildStrRef); end else if v is class(StrRef) then begin v.Parent := self; {self.}XmlChildStrRef := v; container_.Set({self.}XmlChildStrRef); end else begin raise "Invalid assignment: StrRef expects StrRef or nil"; end end; function Tx.ReadXmlChildRich(): Rich; begin if tslassigning and (ifnil({self.}XmlChildRich) or {self.}XmlChildRich.Removed) then begin {self.}XmlChildRich := new Rich(self, {self.}Prefix, "rich"); container_.Set({self.}XmlChildRich); end return {self.}XmlChildRich and not {self.}XmlChildRich.Removed ? {self.}XmlChildRich : fallback_.Rich; end; function Tx.WriteXmlChildRich(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildRich) then {self.}RemoveChild({self.}XmlChildRich); end else if v is class(Rich) then begin v.Parent := self; {self.}XmlChildRich := v; container_.Set({self.}XmlChildRich); end else begin raise "Invalid assignment: Rich expects Rich or nil"; end end; function Rich.create();overload; begin {self.}create(nil, "c", "rich"); end; function Rich.create(_node: XmlNode);overload; begin inherited create(_node); end; function Rich.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Rich;override; begin obj := new Rich(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:bodyPr": obj.BodyPr := element.Clone(); "a:lstStyle": obj.LstStyle := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Rich.ConvertToPoint();override; begin if not ifnil({self.}XmlChildBodyPr) then {self.}XmlChildBodyPr.ConvertToPoint(); elems := {self.}Ps(); for _,elem in elems do elem.ConvertToPoint(); end; function Rich.ReadXmlChildLstStyle(); begin if tslassigning and (ifnil({self.}XmlChildLstStyle) or {self.}XmlChildLstStyle.Removed) then begin {self.}XmlChildLstStyle := new OpenXmlSimpleType(self, "a", "lstStyle"); container_.Set({self.}XmlChildLstStyle); end return {self.}XmlChildLstStyle and not {self.}XmlChildLstStyle.Removed ? {self.}XmlChildLstStyle : fallback_.LstStyle; end; function Rich.WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildLstStyle) then {self.}RemoveChild({self.}XmlChildLstStyle); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildLstStyle := _value; container_.Set({self.}XmlChildLstStyle); end else begin raise "Invalid assignment: LstStyle expects nil or OpenXmlSimpleType"; end end; function Rich.ReadXmlChildBodyPr(): BodyPr; begin if tslassigning and (ifnil({self.}XmlChildBodyPr) or {self.}XmlChildBodyPr.Removed) then begin {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); container_.Set({self.}XmlChildBodyPr); end return {self.}XmlChildBodyPr and not {self.}XmlChildBodyPr.Removed ? {self.}XmlChildBodyPr : fallback_.BodyPr; end; function Rich.WriteXmlChildBodyPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBodyPr) then {self.}RemoveChild({self.}XmlChildBodyPr); end else if v is class(BodyPr) then begin v.Parent := self; {self.}XmlChildBodyPr := v; container_.Set({self.}XmlChildBodyPr); end else begin raise "Invalid assignment: BodyPr expects BodyPr or nil"; end end; function Rich.ReadPs(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get("a:p", ind); end; function Rich.WritePs(_index: integer; _value: nil_OR_P); begin if ifnil(_value) then begin obj := {self.}ReadPs(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "p", ind, _value) then raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Ps expects nil or P"; end end; function Rich.AddP(): P; begin obj := new P(self, "a", "p"); obj.Enable := true; container_.Insert(obj); return obj; end; function Rich.AppendP(): P; begin obj := new P(self, "a", "p"); obj.Enable := true; container_.Append(obj); return obj; end; function BodyPr.create();overload; begin {self.}create(nil, "a", "bodyPr"); end; function BodyPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function BodyPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): BodyPr;override; begin obj := new BodyPr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Rot) then obj.Rot := {self.}Rot; if not ifnil({self.}SpcFirstLastPara) then obj.SpcFirstLastPara := {self.}SpcFirstLastPara; if not ifnil({self.}VertOverflow) then obj.VertOverflow := {self.}VertOverflow; if not ifnil({self.}HorzOverflow) then obj.HorzOverflow := {self.}HorzOverflow; if not ifnil({self.}Vert) then obj.Vert := {self.}Vert; if not ifnil({self.}Wrap) then obj.Wrap := {self.}Wrap; if not ifnil({self.}LIns) then obj.LIns := {self.}LIns; if not ifnil({self.}TIns) then obj.TIns := {self.}TIns; if not ifnil({self.}RIns) then obj.RIns := {self.}RIns; if not ifnil({self.}BIns) then obj.BIns := {self.}BIns; if not ifnil({self.}NumCol) then obj.NumCol := {self.}NumCol; if not ifnil({self.}SpcCol) then obj.SpcCol := {self.}SpcCol; if not ifnil({self.}RtlCol) then obj.RtlCol := {self.}RtlCol; if not ifnil({self.}FromWordArt) then obj.FromWordArt := {self.}FromWordArt; if not ifnil({self.}Anchor) then obj.Anchor := {self.}Anchor; if not ifnil({self.}AnchorCtr) then obj.AnchorCtr := {self.}AnchorCtr; if not ifnil({self.}ForceAA) then obj.ForceAA := {self.}ForceAA; if not ifnil({self.}CompatLnSpc) then obj.CompatLnSpc := {self.}CompatLnSpc; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:prstTxWrap": obj.PrstTxWrap := element.Clone(); "a:noAutofit": obj.NoAutofit := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function BodyPr.ConvertToPoint();override; begin if not ifnil({self.}XmlAttrLIns) then {self.}LIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrLIns.Value); if not ifnil({self.}XmlAttrTIns) then {self.}TIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrTIns.Value); if not ifnil({self.}XmlAttrRIns) then {self.}RIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrRIns.Value); if not ifnil({self.}XmlAttrBIns) then {self.}BIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrBIns.Value); if not ifnil({self.}XmlChildPrstTxWrap) then {self.}XmlChildPrstTxWrap.ConvertToPoint(); end; function BodyPr.ReadXmlAttrRot(); begin return ifnil({self.}XmlAttrRot.Value) ? fallback_.XmlAttrRot.Value : {self.}XmlAttrRot.Value; end; function BodyPr.WriteXmlAttrRot(_value: any); begin if ifnil({self.}XmlAttrRot) then begin {self.}XmlAttrRot := new OpenXmlAttribute("", "rot", nil); attributes_["rot"] := {self.}XmlAttrRot; end {self.}XmlAttrRot.Value := _value; end; function BodyPr.ReadXmlAttrSpcFirstLastPara(); begin return ifnil({self.}XmlAttrSpcFirstLastPara.Value) ? fallback_.XmlAttrSpcFirstLastPara.Value : {self.}XmlAttrSpcFirstLastPara.Value; end; function BodyPr.WriteXmlAttrSpcFirstLastPara(_value: any); begin if ifnil({self.}XmlAttrSpcFirstLastPara) then begin {self.}XmlAttrSpcFirstLastPara := new OpenXmlAttribute("", "spcFirstLastPara", nil); attributes_["spcFirstLastPara"] := {self.}XmlAttrSpcFirstLastPara; end {self.}XmlAttrSpcFirstLastPara.Value := _value; end; function BodyPr.ReadXmlAttrVertOverflow(); begin return ifnil({self.}XmlAttrVertOverflow.Value) ? fallback_.XmlAttrVertOverflow.Value : {self.}XmlAttrVertOverflow.Value; end; function BodyPr.WriteXmlAttrVertOverflow(_value: any); begin if ifnil({self.}XmlAttrVertOverflow) then begin {self.}XmlAttrVertOverflow := new OpenXmlAttribute("", "vertOverflow", nil); attributes_["vertOverflow"] := {self.}XmlAttrVertOverflow; end {self.}XmlAttrVertOverflow.Value := _value; end; function BodyPr.ReadXmlAttrHorzOverflow(); begin return ifnil({self.}XmlAttrHorzOverflow.Value) ? fallback_.XmlAttrHorzOverflow.Value : {self.}XmlAttrHorzOverflow.Value; end; function BodyPr.WriteXmlAttrHorzOverflow(_value: any); begin if ifnil({self.}XmlAttrHorzOverflow) then begin {self.}XmlAttrHorzOverflow := new OpenXmlAttribute("", "horzOverflow", nil); attributes_["horzOverflow"] := {self.}XmlAttrHorzOverflow; end {self.}XmlAttrHorzOverflow.Value := _value; end; function BodyPr.ReadXmlAttrVert(); begin return ifnil({self.}XmlAttrVert.Value) ? fallback_.XmlAttrVert.Value : {self.}XmlAttrVert.Value; end; function BodyPr.WriteXmlAttrVert(_value: any); begin if ifnil({self.}XmlAttrVert) then begin {self.}XmlAttrVert := new OpenXmlAttribute("", "vert", nil); attributes_["vert"] := {self.}XmlAttrVert; end {self.}XmlAttrVert.Value := _value; end; function BodyPr.ReadXmlAttrWrap(); begin return ifnil({self.}XmlAttrWrap.Value) ? fallback_.XmlAttrWrap.Value : {self.}XmlAttrWrap.Value; end; function BodyPr.WriteXmlAttrWrap(_value: any); begin if ifnil({self.}XmlAttrWrap) then begin {self.}XmlAttrWrap := new OpenXmlAttribute("", "wrap", nil); attributes_["wrap"] := {self.}XmlAttrWrap; end {self.}XmlAttrWrap.Value := _value; end; function BodyPr.ReadXmlAttrLIns(); begin return ifnil({self.}XmlAttrLIns.Value) ? fallback_.XmlAttrLIns.Value : {self.}XmlAttrLIns.Value; end; function BodyPr.WriteXmlAttrLIns(_value: any); begin if ifnil({self.}XmlAttrLIns) then begin {self.}XmlAttrLIns := new OpenXmlAttribute("", "lIns", nil); attributes_["lIns"] := {self.}XmlAttrLIns; end {self.}XmlAttrLIns.Value := _value; end; function BodyPr.ReadXmlAttrTIns(); begin return ifnil({self.}XmlAttrTIns.Value) ? fallback_.XmlAttrTIns.Value : {self.}XmlAttrTIns.Value; end; function BodyPr.WriteXmlAttrTIns(_value: any); begin if ifnil({self.}XmlAttrTIns) then begin {self.}XmlAttrTIns := new OpenXmlAttribute("", "TIns", nil); attributes_["TIns"] := {self.}XmlAttrTIns; end {self.}XmlAttrTIns.Value := _value; end; function BodyPr.ReadXmlAttrRIns(); begin return ifnil({self.}XmlAttrRIns.Value) ? fallback_.XmlAttrRIns.Value : {self.}XmlAttrRIns.Value; end; function BodyPr.WriteXmlAttrRIns(_value: any); begin if ifnil({self.}XmlAttrRIns) then begin {self.}XmlAttrRIns := new OpenXmlAttribute("", "rIns", nil); attributes_["rIns"] := {self.}XmlAttrRIns; end {self.}XmlAttrRIns.Value := _value; end; function BodyPr.ReadXmlAttrBIns(); begin return ifnil({self.}XmlAttrBIns.Value) ? fallback_.XmlAttrBIns.Value : {self.}XmlAttrBIns.Value; end; function BodyPr.WriteXmlAttrBIns(_value: any); begin if ifnil({self.}XmlAttrBIns) then begin {self.}XmlAttrBIns := new OpenXmlAttribute("", "bIns", nil); attributes_["bIns"] := {self.}XmlAttrBIns; end {self.}XmlAttrBIns.Value := _value; end; function BodyPr.ReadXmlAttrNumCol(); begin return ifnil({self.}XmlAttrNumCol.Value) ? fallback_.XmlAttrNumCol.Value : {self.}XmlAttrNumCol.Value; end; function BodyPr.WriteXmlAttrNumCol(_value: any); begin if ifnil({self.}XmlAttrNumCol) then begin {self.}XmlAttrNumCol := new OpenXmlAttribute("", "numCol", nil); attributes_["numCol"] := {self.}XmlAttrNumCol; end {self.}XmlAttrNumCol.Value := _value; end; function BodyPr.ReadXmlAttrSpcCol(); begin return ifnil({self.}XmlAttrSpcCol.Value) ? fallback_.XmlAttrSpcCol.Value : {self.}XmlAttrSpcCol.Value; end; function BodyPr.WriteXmlAttrSpcCol(_value: any); begin if ifnil({self.}XmlAttrSpcCol) then begin {self.}XmlAttrSpcCol := new OpenXmlAttribute("", "spcCol", nil); attributes_["spcCol"] := {self.}XmlAttrSpcCol; end {self.}XmlAttrSpcCol.Value := _value; end; function BodyPr.ReadXmlAttrRtlCol(); begin return ifnil({self.}XmlAttrRtlCol.Value) ? fallback_.XmlAttrRtlCol.Value : {self.}XmlAttrRtlCol.Value; end; function BodyPr.WriteXmlAttrRtlCol(_value: any); begin if ifnil({self.}XmlAttrRtlCol) then begin {self.}XmlAttrRtlCol := new OpenXmlAttribute("", "rtlCol", nil); attributes_["rtlCol"] := {self.}XmlAttrRtlCol; end {self.}XmlAttrRtlCol.Value := _value; end; function BodyPr.ReadXmlAttrFromWordArt(); begin return ifnil({self.}XmlAttrFromWordArt.Value) ? fallback_.XmlAttrFromWordArt.Value : {self.}XmlAttrFromWordArt.Value; end; function BodyPr.WriteXmlAttrFromWordArt(_value: any); begin if ifnil({self.}XmlAttrFromWordArt) then begin {self.}XmlAttrFromWordArt := new OpenXmlAttribute("", "fromWordArt", nil); attributes_["fromWordArt"] := {self.}XmlAttrFromWordArt; end {self.}XmlAttrFromWordArt.Value := _value; end; function BodyPr.ReadXmlAttrAnchor(); begin return ifnil({self.}XmlAttrAnchor.Value) ? fallback_.XmlAttrAnchor.Value : {self.}XmlAttrAnchor.Value; end; function BodyPr.WriteXmlAttrAnchor(_value: any); begin if ifnil({self.}XmlAttrAnchor) then begin {self.}XmlAttrAnchor := new OpenXmlAttribute("", "anchor", nil); attributes_["anchor"] := {self.}XmlAttrAnchor; end {self.}XmlAttrAnchor.Value := _value; end; function BodyPr.ReadXmlAttrAnchorCtr(); begin return ifnil({self.}XmlAttrAnchorCtr.Value) ? fallback_.XmlAttrAnchorCtr.Value : {self.}XmlAttrAnchorCtr.Value; end; function BodyPr.WriteXmlAttrAnchorCtr(_value: any); begin if ifnil({self.}XmlAttrAnchorCtr) then begin {self.}XmlAttrAnchorCtr := new OpenXmlAttribute("", "anchorCtr", nil); attributes_["anchorCtr"] := {self.}XmlAttrAnchorCtr; end {self.}XmlAttrAnchorCtr.Value := _value; end; function BodyPr.ReadXmlAttrForceAA(); begin return ifnil({self.}XmlAttrForceAA.Value) ? fallback_.XmlAttrForceAA.Value : {self.}XmlAttrForceAA.Value; end; function BodyPr.WriteXmlAttrForceAA(_value: any); begin if ifnil({self.}XmlAttrForceAA) then begin {self.}XmlAttrForceAA := new OpenXmlAttribute("", "forceAA", nil); attributes_["forceAA"] := {self.}XmlAttrForceAA; end {self.}XmlAttrForceAA.Value := _value; end; function BodyPr.ReadXmlAttrCompatLnSpc(); begin return ifnil({self.}XmlAttrCompatLnSpc.Value) ? fallback_.XmlAttrCompatLnSpc.Value : {self.}XmlAttrCompatLnSpc.Value; end; function BodyPr.WriteXmlAttrCompatLnSpc(_value: any); begin if ifnil({self.}XmlAttrCompatLnSpc) then begin {self.}XmlAttrCompatLnSpc := new OpenXmlAttribute("", "compatLnSpc", nil); attributes_["compatLnSpc"] := {self.}XmlAttrCompatLnSpc; end {self.}XmlAttrCompatLnSpc.Value := _value; end; function BodyPr.ReadXmlChildNoAutofit(); begin if tslassigning and (ifnil({self.}XmlChildNoAutofit) or {self.}XmlChildNoAutofit.Removed) then begin {self.}XmlChildNoAutofit := new OpenXmlSimpleType(self, "a", "noAutofit"); container_.Set({self.}XmlChildNoAutofit); end return {self.}XmlChildNoAutofit and not {self.}XmlChildNoAutofit.Removed ? {self.}XmlChildNoAutofit : fallback_.NoAutofit; end; function BodyPr.WriteXmlChildNoAutofit(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildNoAutofit) then {self.}RemoveChild({self.}XmlChildNoAutofit); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildNoAutofit := _value; container_.Set({self.}XmlChildNoAutofit); end else begin raise "Invalid assignment: NoAutofit expects nil or OpenXmlSimpleType"; end end; function BodyPr.ReadXmlChildPrstTxWrap(): PrstTxWrap; begin if tslassigning and (ifnil({self.}XmlChildPrstTxWrap) or {self.}XmlChildPrstTxWrap.Removed) then begin {self.}XmlChildPrstTxWrap := new PrstTxWrap(self, "a", "prstTxWrap"); container_.Set({self.}XmlChildPrstTxWrap); end return {self.}XmlChildPrstTxWrap and not {self.}XmlChildPrstTxWrap.Removed ? {self.}XmlChildPrstTxWrap : fallback_.PrstTxWrap; end; function BodyPr.WriteXmlChildPrstTxWrap(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPrstTxWrap) then {self.}RemoveChild({self.}XmlChildPrstTxWrap); end else if v is class(PrstTxWrap) then begin v.Parent := self; {self.}XmlChildPrstTxWrap := v; container_.Set({self.}XmlChildPrstTxWrap); end else begin raise "Invalid assignment: PrstTxWrap expects PrstTxWrap or nil"; end end; function PrstTxWrap.create();overload; begin {self.}create(nil, "a", "prstTxWrap"); end; function PrstTxWrap.create(_node: XmlNode);overload; begin inherited create(_node); end; function PrstTxWrap.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): PrstTxWrap;override; begin obj := new PrstTxWrap(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Prst) then obj.Prst := {self.}Prst; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:avLst": obj.AvLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function PrstTxWrap.ConvertToPoint();override; begin end; function PrstTxWrap.ReadXmlAttrPrst(); begin return ifnil({self.}XmlAttrPrst.Value) ? fallback_.XmlAttrPrst.Value : {self.}XmlAttrPrst.Value; end; function PrstTxWrap.WriteXmlAttrPrst(_value: any); begin if ifnil({self.}XmlAttrPrst) then begin {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); attributes_["prst"] := {self.}XmlAttrPrst; end {self.}XmlAttrPrst.Value := _value; end; function PrstTxWrap.ReadXmlChildAvLst(); begin if tslassigning and (ifnil({self.}XmlChildAvLst) or {self.}XmlChildAvLst.Removed) then begin {self.}XmlChildAvLst := new OpenXmlSimpleType(self, "a", "avLst"); container_.Set({self.}XmlChildAvLst); end return {self.}XmlChildAvLst and not {self.}XmlChildAvLst.Removed ? {self.}XmlChildAvLst : fallback_.AvLst; end; function PrstTxWrap.WriteXmlChildAvLst(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildAvLst) then {self.}RemoveChild({self.}XmlChildAvLst); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildAvLst := _value; container_.Set({self.}XmlChildAvLst); end else begin raise "Invalid assignment: AvLst expects nil or OpenXmlSimpleType"; end end; function P.create();overload; begin {self.}create(nil, "a", "p"); end; function P.create(_node: XmlNode);overload; begin inherited create(_node); end; function P.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): P;override; begin obj := new P(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "pPr": obj.PPr := element.Clone(); pre + "endParaRPr": obj.EndParaRPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function P.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPPr) then {self.}XmlChildPPr.ConvertToPoint(); if not ifnil({self.}XmlChildEndParaRPr) then {self.}XmlChildEndParaRPr.ConvertToPoint(); elems := {self.}Rs(); for _,elem in elems do elem.ConvertToPoint(); end; function P.ReadXmlChildPPr(): PPr; begin if tslassigning and (ifnil({self.}XmlChildPPr) or {self.}XmlChildPPr.Removed) then begin {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); container_.Set({self.}XmlChildPPr); end return {self.}XmlChildPPr and not {self.}XmlChildPPr.Removed ? {self.}XmlChildPPr : fallback_.PPr; end; function P.WriteXmlChildPPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPPr) then {self.}RemoveChild({self.}XmlChildPPr); end else if v is class(PPr) then begin v.Parent := self; {self.}XmlChildPPr := v; container_.Set({self.}XmlChildPPr); end else begin raise "Invalid assignment: PPr expects PPr or nil"; end end; function P.ReadXmlChildEndParaRPr(): RPr; begin if tslassigning and (ifnil({self.}XmlChildEndParaRPr) or {self.}XmlChildEndParaRPr.Removed) then begin {self.}XmlChildEndParaRPr := new RPr(self, {self.}Prefix, "endParaRPr"); container_.Set({self.}XmlChildEndParaRPr); end return {self.}XmlChildEndParaRPr and not {self.}XmlChildEndParaRPr.Removed ? {self.}XmlChildEndParaRPr : fallback_.EndParaRPr; end; function P.WriteXmlChildEndParaRPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEndParaRPr) then {self.}RemoveChild({self.}XmlChildEndParaRPr); end else if v is class(RPr) then begin v.Parent := self; {self.}XmlChildEndParaRPr := v; container_.Set({self.}XmlChildEndParaRPr); end else begin raise "Invalid assignment: EndParaRPr expects RPr or nil"; end end; function P.ReadRs(_index: integer); begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; return container_.Get(pre + "r", ind); end; function P.WriteRs(_index: integer; _value: nil_OR_R); begin if ifnil(_value) then begin obj := {self.}ReadRs(_index); {self.}RemoveChild(obj); end else if ifInt(_index) or ifInt64(_index) then begin ind := ifnil(_index) ? -2 : _index; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; if not container_.Set(pre + "r", ind, _value) then raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index); end else begin raise "Invalid assignment: Rs expects nil or R"; end end; function P.AddR(): R; begin obj := new R(self, {self.}Prefix, "r"); obj.Enable := true; container_.Insert(obj); return obj; end; function P.AppendR(): R; begin obj := new R(self, {self.}Prefix, "r"); obj.Enable := true; container_.Append(obj); return obj; end; function RPr.create();overload; begin {self.}create(nil, "a", "rPr"); end; function RPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function RPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): RPr;override; begin obj := new RPr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Lang) then obj.Lang := {self.}Lang; if not ifnil({self.}AltLang) then obj.AltLang := {self.}AltLang; if not ifnil({self.}B) then obj.B := {self.}B; if not ifnil({self.}Baseline) then obj.Baseline := {self.}Baseline; if not ifnil({self.}I) then obj.I := {self.}I; if not ifnil({self.}Kern) then obj.Kern := {self.}Kern; if not ifnil({self.}Spc) then obj.Spc := {self.}Spc; if not ifnil({self.}Strike) then obj.Strike := {self.}Strike; if not ifnil({self.}Sz) then obj.Sz := {self.}Sz; if not ifnil({self.}U) then obj.U := {self.}U; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "solidFill": obj.SolidFill := element.Clone(); pre + "latin": obj.Latin := element.Clone(); pre + "ea": obj.Ea := element.Clone(); pre + "cs": obj.Cs := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function RPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSolidFill) then {self.}XmlChildSolidFill.ConvertToPoint(); if not ifnil({self.}XmlChildLatin) then {self.}XmlChildLatin.ConvertToPoint(); if not ifnil({self.}XmlChildEa) then {self.}XmlChildEa.ConvertToPoint(); if not ifnil({self.}XmlChildCs) then {self.}XmlChildCs.ConvertToPoint(); end; function RPr.ReadXmlAttrLang(); begin return ifnil({self.}XmlAttrLang.Value) ? fallback_.XmlAttrLang.Value : {self.}XmlAttrLang.Value; end; function RPr.WriteXmlAttrLang(_value: any); begin if ifnil({self.}XmlAttrLang) then begin {self.}XmlAttrLang := new OpenXmlAttribute("", "lang", nil); attributes_["lang"] := {self.}XmlAttrLang; end {self.}XmlAttrLang.Value := _value; end; function RPr.ReadXmlAttrAltLang(); begin return ifnil({self.}XmlAttrAltLang.Value) ? fallback_.XmlAttrAltLang.Value : {self.}XmlAttrAltLang.Value; end; function RPr.WriteXmlAttrAltLang(_value: any); begin if ifnil({self.}XmlAttrAltLang) then begin {self.}XmlAttrAltLang := new OpenXmlAttribute("", "altLang", nil); attributes_["altLang"] := {self.}XmlAttrAltLang; end {self.}XmlAttrAltLang.Value := _value; end; function RPr.ReadXmlAttrB(); begin return ifnil({self.}XmlAttrB.Value) ? fallback_.XmlAttrB.Value : {self.}XmlAttrB.Value; end; function RPr.WriteXmlAttrB(_value: any); begin if ifnil({self.}XmlAttrB) then begin {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); attributes_["b"] := {self.}XmlAttrB; end {self.}XmlAttrB.Value := _value; end; function RPr.ReadXmlAttrBaseline(); begin return ifnil({self.}XmlAttrBaseline.Value) ? fallback_.XmlAttrBaseline.Value : {self.}XmlAttrBaseline.Value; end; function RPr.WriteXmlAttrBaseline(_value: any); begin if ifnil({self.}XmlAttrBaseline) then begin {self.}XmlAttrBaseline := new OpenXmlAttribute("", "baseline", nil); attributes_["baseline"] := {self.}XmlAttrBaseline; end {self.}XmlAttrBaseline.Value := _value; end; function RPr.ReadXmlAttrI(); begin return ifnil({self.}XmlAttrI.Value) ? fallback_.XmlAttrI.Value : {self.}XmlAttrI.Value; end; function RPr.WriteXmlAttrI(_value: any); begin if ifnil({self.}XmlAttrI) then begin {self.}XmlAttrI := new OpenXmlAttribute("", "i", nil); attributes_["i"] := {self.}XmlAttrI; end {self.}XmlAttrI.Value := _value; end; function RPr.ReadXmlAttrKern(); begin return ifnil({self.}XmlAttrKern.Value) ? fallback_.XmlAttrKern.Value : {self.}XmlAttrKern.Value; end; function RPr.WriteXmlAttrKern(_value: any); begin if ifnil({self.}XmlAttrKern) then begin {self.}XmlAttrKern := new OpenXmlAttribute("", "kern", nil); attributes_["kern"] := {self.}XmlAttrKern; end {self.}XmlAttrKern.Value := _value; end; function RPr.ReadXmlAttrSpc(); begin return ifnil({self.}XmlAttrSpc.Value) ? fallback_.XmlAttrSpc.Value : {self.}XmlAttrSpc.Value; end; function RPr.WriteXmlAttrSpc(_value: any); begin if ifnil({self.}XmlAttrSpc) then begin {self.}XmlAttrSpc := new OpenXmlAttribute("", "spc", nil); attributes_["spc"] := {self.}XmlAttrSpc; end {self.}XmlAttrSpc.Value := _value; end; function RPr.ReadXmlAttrStrike(); begin return ifnil({self.}XmlAttrStrike.Value) ? fallback_.XmlAttrStrike.Value : {self.}XmlAttrStrike.Value; end; function RPr.WriteXmlAttrStrike(_value: any); begin if ifnil({self.}XmlAttrStrike) then begin {self.}XmlAttrStrike := new OpenXmlAttribute("", "strike", nil); attributes_["strike"] := {self.}XmlAttrStrike; end {self.}XmlAttrStrike.Value := _value; end; function RPr.ReadXmlAttrSz(); begin return ifnil({self.}XmlAttrSz.Value) ? fallback_.XmlAttrSz.Value : {self.}XmlAttrSz.Value; end; function RPr.WriteXmlAttrSz(_value: any); begin if ifnil({self.}XmlAttrSz) then begin {self.}XmlAttrSz := new OpenXmlAttribute("", "sz", nil); attributes_["sz"] := {self.}XmlAttrSz; end {self.}XmlAttrSz.Value := _value; end; function RPr.ReadXmlAttrU(); begin return ifnil({self.}XmlAttrU.Value) ? fallback_.XmlAttrU.Value : {self.}XmlAttrU.Value; end; function RPr.WriteXmlAttrU(_value: any); begin if ifnil({self.}XmlAttrU) then begin {self.}XmlAttrU := new OpenXmlAttribute("", "u", nil); attributes_["u"] := {self.}XmlAttrU; end {self.}XmlAttrU.Value := _value; end; function RPr.ReadXmlChildSolidFill(): SolidFill; begin if tslassigning and (ifnil({self.}XmlChildSolidFill) or {self.}XmlChildSolidFill.Removed) then begin {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); container_.Set({self.}XmlChildSolidFill); end return {self.}XmlChildSolidFill and not {self.}XmlChildSolidFill.Removed ? {self.}XmlChildSolidFill : fallback_.SolidFill; end; function RPr.WriteXmlChildSolidFill(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSolidFill) then {self.}RemoveChild({self.}XmlChildSolidFill); end else if v is class(SolidFill) then begin v.Parent := self; {self.}XmlChildSolidFill := v; container_.Set({self.}XmlChildSolidFill); end else begin raise "Invalid assignment: SolidFill expects SolidFill or nil"; end end; function RPr.ReadXmlChildLatin(): Latin; begin if tslassigning and (ifnil({self.}XmlChildLatin) or {self.}XmlChildLatin.Removed) then begin {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); container_.Set({self.}XmlChildLatin); end return {self.}XmlChildLatin and not {self.}XmlChildLatin.Removed ? {self.}XmlChildLatin : fallback_.Latin; end; function RPr.WriteXmlChildLatin(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLatin) then {self.}RemoveChild({self.}XmlChildLatin); end else if v is class(Latin) then begin v.Parent := self; {self.}XmlChildLatin := v; container_.Set({self.}XmlChildLatin); end else begin raise "Invalid assignment: Latin expects Latin or nil"; end end; function RPr.ReadXmlChildEa(): Latin; begin if tslassigning and (ifnil({self.}XmlChildEa) or {self.}XmlChildEa.Removed) then begin {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); container_.Set({self.}XmlChildEa); end return {self.}XmlChildEa and not {self.}XmlChildEa.Removed ? {self.}XmlChildEa : fallback_.Ea; end; function RPr.WriteXmlChildEa(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEa) then {self.}RemoveChild({self.}XmlChildEa); end else if v is class(Latin) then begin v.Parent := self; {self.}XmlChildEa := v; container_.Set({self.}XmlChildEa); end else begin raise "Invalid assignment: Ea expects Latin or nil"; end end; function RPr.ReadXmlChildCs(): Latin; begin if tslassigning and (ifnil({self.}XmlChildCs) or {self.}XmlChildCs.Removed) then begin {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); container_.Set({self.}XmlChildCs); end return {self.}XmlChildCs and not {self.}XmlChildCs.Removed ? {self.}XmlChildCs : fallback_.Cs; end; function RPr.WriteXmlChildCs(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCs) then {self.}RemoveChild({self.}XmlChildCs); end else if v is class(Latin) then begin v.Parent := self; {self.}XmlChildCs := v; container_.Set({self.}XmlChildCs); end else begin raise "Invalid assignment: Cs expects Latin or nil"; end end; function PPr.create();overload; begin {self.}create(nil, "a", "pPr"); end; function PPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function PPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildDefRPr) then {self.}DefRPr.Copy(_obj.XmlChildDefRPr); tslassigning := tslassigning_backup; end; function PPr.Clone(): PPr;override; begin obj := new PPr(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "defRPr": obj.DefRPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function PPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildDefRPr) then {self.}XmlChildDefRPr.ConvertToPoint(); end; function PPr.ReadXmlChildDefRPr(): RPr; begin if tslassigning and (ifnil({self.}XmlChildDefRPr) or {self.}XmlChildDefRPr.Removed) then begin {self.}XmlChildDefRPr := new RPr(self, {self.}Prefix, "defRPr"); container_.Set({self.}XmlChildDefRPr); end return {self.}XmlChildDefRPr and not {self.}XmlChildDefRPr.Removed ? {self.}XmlChildDefRPr : fallback_.DefRPr; end; function PPr.WriteXmlChildDefRPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDefRPr) then {self.}RemoveChild({self.}XmlChildDefRPr); end else if v is class(RPr) then begin v.Parent := self; {self.}XmlChildDefRPr := v; container_.Set({self.}XmlChildDefRPr); end else begin raise "Invalid assignment: DefRPr expects RPr or nil"; end end; function Latin.create();overload; begin {self.}create(nil, "a", "latin"); end; function Latin.create(_node: XmlNode);overload; begin inherited create(_node); end; function Latin.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.Typeface) then {self.}Typeface := _obj.Typeface; tslassigning := tslassigning_backup; end; function Latin.Clone(): Latin;override; begin obj := new Latin(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Typeface) then obj.Typeface := {self.}Typeface; return obj; end; function Latin.ConvertToPoint();override; begin end; function Latin.ReadXmlAttrTypeface(); begin return ifnil({self.}XmlAttrTypeface.Value) ? fallback_.XmlAttrTypeface.Value : {self.}XmlAttrTypeface.Value; end; function Latin.WriteXmlAttrTypeface(_value: any); begin if ifnil({self.}XmlAttrTypeface) then begin {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); attributes_["typeface"] := {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 inherited create(_node); end; function R.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): R;override; begin obj := new R(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "rPr": obj.RPr := element.Clone(); pre + "t": obj.T := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function R.ConvertToPoint();override; begin if not ifnil({self.}XmlChildRPr) then {self.}XmlChildRPr.ConvertToPoint(); if not ifnil({self.}XmlChildT) then {self.}XmlChildT.ConvertToPoint(); end; function R.ReadXmlChildRPr(): RPr; begin if tslassigning and (ifnil({self.}XmlChildRPr) or {self.}XmlChildRPr.Removed) then begin {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); container_.Set({self.}XmlChildRPr); end return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.RPr; end; function R.WriteXmlChildRPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildRPr) then {self.}RemoveChild({self.}XmlChildRPr); end else if v is class(RPr) then begin v.Parent := self; {self.}XmlChildRPr := v; container_.Set({self.}XmlChildRPr); end else begin raise "Invalid assignment: RPr expects RPr or nil"; end end; function R.ReadXmlChildT(): T; begin if tslassigning and (ifnil({self.}XmlChildT) or {self.}XmlChildT.Removed) then begin {self.}XmlChildT := new T(self, {self.}Prefix, "t"); container_.Set({self.}XmlChildT); end return {self.}XmlChildT and not {self.}XmlChildT.Removed ? {self.}XmlChildT : fallback_.T; end; function R.WriteXmlChildT(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildT) then {self.}RemoveChild({self.}XmlChildT); end else if v is class(T) then begin v.Parent := self; {self.}XmlChildT := v; container_.Set({self.}XmlChildT); end else begin raise "Invalid assignment: T expects T or nil"; end end; function ExternalData.create();overload; begin {self.}create(nil, "c", "externalData"); end; function ExternalData.create(_node: XmlNode);overload; begin inherited create(_node); end; function ExternalData.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): ExternalData;override; begin obj := new ExternalData(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Id) then obj.Id := {self.}Id; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "autoUpdate": obj.AutoUpdate := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function ExternalData.ConvertToPoint();override; begin if not ifnil({self.}XmlChildAutoUpdate) then {self.}XmlChildAutoUpdate.ConvertToPoint(); end; function ExternalData.ReadXmlAttrId(); begin return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value; end; function ExternalData.WriteXmlAttrId(_value: any); begin if ifnil({self.}XmlAttrId) then begin {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); attributes_["r:id"] := {self.}XmlAttrId; end {self.}XmlAttrId.Value := _value; end; function ExternalData.ReadXmlChildAutoUpdate(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildAutoUpdate) or {self.}XmlChildAutoUpdate.Removed) then begin {self.}XmlChildAutoUpdate := new PureVal(self, {self.}Prefix, "autoUpdate"); container_.Set({self.}XmlChildAutoUpdate); end return {self.}XmlChildAutoUpdate and not {self.}XmlChildAutoUpdate.Removed ? {self.}XmlChildAutoUpdate : fallback_.AutoUpdate; end; function ExternalData.WriteXmlChildAutoUpdate(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAutoUpdate) then {self.}RemoveChild({self.}XmlChildAutoUpdate); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildAutoUpdate := v; container_.Set({self.}XmlChildAutoUpdate); end else begin raise "Invalid assignment: AutoUpdate expects PureVal or nil"; end end; function _Inline.create();overload; begin {self.}create(nil, "wp", "inline"); end; function _Inline.create(_node: XmlNode);overload; begin inherited create(_node); end; function _Inline.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): _Inline;override; begin obj := new _Inline(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}DistT) then obj.DistT := {self.}DistT; if not ifnil({self.}DistB) then obj.DistB := {self.}DistB; if not ifnil({self.}DistL) then obj.DistL := {self.}DistL; if not ifnil({self.}DistR) then obj.DistR := {self.}DistR; if not ifnil({self.}AnchorId) then obj.AnchorId := {self.}AnchorId; if not ifnil({self.}EditId) then obj.EditId := {self.}EditId; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "extent": obj.Extent := element.Clone(); pre + "effectExtent": obj.EffectExtent := element.Clone(); pre + "docPr": obj.DocPr := element.Clone(); pre + "cNvGraphicFramePr": obj.CNvGraphicFramePr := element.Clone(); "a:graphic": obj.Graphic := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function _Inline.ConvertToPoint();override; begin if not ifnil({self.}XmlChildExtent) then {self.}XmlChildExtent.ConvertToPoint(); if not ifnil({self.}XmlChildEffectExtent) then {self.}XmlChildEffectExtent.ConvertToPoint(); if not ifnil({self.}XmlChildDocPr) then {self.}XmlChildDocPr.ConvertToPoint(); if not ifnil({self.}XmlChildCNvGraphicFramePr) then {self.}XmlChildCNvGraphicFramePr.ConvertToPoint(); if not ifnil({self.}XmlChildGraphic) then {self.}XmlChildGraphic.ConvertToPoint(); end; function _Inline.ReadXmlAttrDistT(); begin return ifnil({self.}XmlAttrDistT.Value) ? fallback_.XmlAttrDistT.Value : {self.}XmlAttrDistT.Value; end; function _Inline.WriteXmlAttrDistT(_value: any); begin if ifnil({self.}XmlAttrDistT) then begin {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); attributes_["distT"] := {self.}XmlAttrDistT; end {self.}XmlAttrDistT.Value := _value; end; function _Inline.ReadXmlAttrDistB(); begin return ifnil({self.}XmlAttrDistB.Value) ? fallback_.XmlAttrDistB.Value : {self.}XmlAttrDistB.Value; end; function _Inline.WriteXmlAttrDistB(_value: any); begin if ifnil({self.}XmlAttrDistB) then begin {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); attributes_["distB"] := {self.}XmlAttrDistB; end {self.}XmlAttrDistB.Value := _value; end; function _Inline.ReadXmlAttrDistL(); begin return ifnil({self.}XmlAttrDistL.Value) ? fallback_.XmlAttrDistL.Value : {self.}XmlAttrDistL.Value; end; function _Inline.WriteXmlAttrDistL(_value: any); begin if ifnil({self.}XmlAttrDistL) then begin {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); attributes_["distL"] := {self.}XmlAttrDistL; end {self.}XmlAttrDistL.Value := _value; end; function _Inline.ReadXmlAttrDistR(); begin return ifnil({self.}XmlAttrDistR.Value) ? fallback_.XmlAttrDistR.Value : {self.}XmlAttrDistR.Value; end; function _Inline.WriteXmlAttrDistR(_value: any); begin if ifnil({self.}XmlAttrDistR) then begin {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); attributes_["distR"] := {self.}XmlAttrDistR; end {self.}XmlAttrDistR.Value := _value; end; function _Inline.ReadXmlAttrAnchorId(); begin return ifnil({self.}XmlAttrAnchorId.Value) ? fallback_.XmlAttrAnchorId.Value : {self.}XmlAttrAnchorId.Value; end; function _Inline.WriteXmlAttrAnchorId(_value: any); begin if ifnil({self.}XmlAttrAnchorId) then begin {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); attributes_["wp14:anchorId"] := {self.}XmlAttrAnchorId; end {self.}XmlAttrAnchorId.Value := _value; end; function _Inline.ReadXmlAttrEditId(); begin return ifnil({self.}XmlAttrEditId.Value) ? fallback_.XmlAttrEditId.Value : {self.}XmlAttrEditId.Value; end; function _Inline.WriteXmlAttrEditId(_value: any); begin if ifnil({self.}XmlAttrEditId) then begin {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); attributes_["wp14:editId"] := {self.}XmlAttrEditId; end {self.}XmlAttrEditId.Value := _value; end; function _Inline.ReadXmlChildExtent(): CXY; begin if tslassigning and (ifnil({self.}XmlChildExtent) or {self.}XmlChildExtent.Removed) then begin {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); container_.Set({self.}XmlChildExtent); end return {self.}XmlChildExtent and not {self.}XmlChildExtent.Removed ? {self.}XmlChildExtent : fallback_.Extent; end; function _Inline.WriteXmlChildExtent(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExtent) then {self.}RemoveChild({self.}XmlChildExtent); end else if v is class(CXY) then begin v.Parent := self; {self.}XmlChildExtent := v; container_.Set({self.}XmlChildExtent); end else begin raise "Invalid assignment: Extent expects CXY or nil"; end end; function _Inline.ReadXmlChildEffectExtent(): EffectExtent; begin if tslassigning and (ifnil({self.}XmlChildEffectExtent) or {self.}XmlChildEffectExtent.Removed) then begin {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); container_.Set({self.}XmlChildEffectExtent); end return {self.}XmlChildEffectExtent and not {self.}XmlChildEffectExtent.Removed ? {self.}XmlChildEffectExtent : fallback_.EffectExtent; end; function _Inline.WriteXmlChildEffectExtent(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEffectExtent) then {self.}RemoveChild({self.}XmlChildEffectExtent); end else if v is class(EffectExtent) then begin v.Parent := self; {self.}XmlChildEffectExtent := v; container_.Set({self.}XmlChildEffectExtent); end else begin raise "Invalid assignment: EffectExtent expects EffectExtent or nil"; end end; function _Inline.ReadXmlChildDocPr(): DocPr; begin if tslassigning and (ifnil({self.}XmlChildDocPr) or {self.}XmlChildDocPr.Removed) then begin {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); container_.Set({self.}XmlChildDocPr); end return {self.}XmlChildDocPr and not {self.}XmlChildDocPr.Removed ? {self.}XmlChildDocPr : fallback_.DocPr; end; function _Inline.WriteXmlChildDocPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDocPr) then {self.}RemoveChild({self.}XmlChildDocPr); end else if v is class(DocPr) then begin v.Parent := self; {self.}XmlChildDocPr := v; container_.Set({self.}XmlChildDocPr); end else begin raise "Invalid assignment: DocPr expects DocPr or nil"; end end; function _Inline.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; begin if tslassigning and (ifnil({self.}XmlChildCNvGraphicFramePr) or {self.}XmlChildCNvGraphicFramePr.Removed) then begin {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); container_.Set({self.}XmlChildCNvGraphicFramePr); end return {self.}XmlChildCNvGraphicFramePr and not {self.}XmlChildCNvGraphicFramePr.Removed ? {self.}XmlChildCNvGraphicFramePr : fallback_.CNvGraphicFramePr; end; function _Inline.WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCNvGraphicFramePr) then {self.}RemoveChild({self.}XmlChildCNvGraphicFramePr); end else if v is class(CNvGraphicFramePr) then begin v.Parent := self; {self.}XmlChildCNvGraphicFramePr := v; container_.Set({self.}XmlChildCNvGraphicFramePr); end else begin raise "Invalid assignment: CNvGraphicFramePr expects CNvGraphicFramePr or nil"; end end; function _Inline.ReadXmlChildGraphic(): Graphic; begin if tslassigning and (ifnil({self.}XmlChildGraphic) or {self.}XmlChildGraphic.Removed) then begin {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); container_.Set({self.}XmlChildGraphic); end return {self.}XmlChildGraphic and not {self.}XmlChildGraphic.Removed ? {self.}XmlChildGraphic : fallback_.Graphic; end; function _Inline.WriteXmlChildGraphic(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildGraphic) then {self.}RemoveChild({self.}XmlChildGraphic); end else if v is class(Graphic) then begin v.Parent := self; {self.}XmlChildGraphic := v; container_.Set({self.}XmlChildGraphic); end else begin raise "Invalid assignment: Graphic expects Graphic or nil"; end end; function EffectExtent.create();overload; begin {self.}create(nil, "wp", "effectExtent"); end; function EffectExtent.create(_node: XmlNode);overload; begin inherited create(_node); end; function EffectExtent.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): EffectExtent;override; begin obj := new EffectExtent(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}L) then obj.L := {self.}L; if not ifnil({self.}T) then obj.T := {self.}T; if not ifnil({self.}R) then obj.R := {self.}R; if not ifnil({self.}B) then obj.B := {self.}B; return obj; end; function EffectExtent.ConvertToPoint();override; begin end; function EffectExtent.ReadXmlAttrL(); begin return ifnil({self.}XmlAttrL.Value) ? fallback_.XmlAttrL.Value : {self.}XmlAttrL.Value; end; function EffectExtent.WriteXmlAttrL(_value: any); begin if ifnil({self.}XmlAttrL) then begin {self.}XmlAttrL := new OpenXmlAttribute("", "l", nil); attributes_["l"] := {self.}XmlAttrL; end {self.}XmlAttrL.Value := _value; end; function EffectExtent.ReadXmlAttrT(); begin return ifnil({self.}XmlAttrT.Value) ? fallback_.XmlAttrT.Value : {self.}XmlAttrT.Value; end; function EffectExtent.WriteXmlAttrT(_value: any); begin if ifnil({self.}XmlAttrT) then begin {self.}XmlAttrT := new OpenXmlAttribute("", "t", nil); attributes_["t"] := {self.}XmlAttrT; end {self.}XmlAttrT.Value := _value; end; function EffectExtent.ReadXmlAttrR(); begin return ifnil({self.}XmlAttrR.Value) ? fallback_.XmlAttrR.Value : {self.}XmlAttrR.Value; end; function EffectExtent.WriteXmlAttrR(_value: any); begin if ifnil({self.}XmlAttrR) then begin {self.}XmlAttrR := new OpenXmlAttribute("", "r", nil); attributes_["r"] := {self.}XmlAttrR; end {self.}XmlAttrR.Value := _value; end; function EffectExtent.ReadXmlAttrB(); begin return ifnil({self.}XmlAttrB.Value) ? fallback_.XmlAttrB.Value : {self.}XmlAttrB.Value; end; function EffectExtent.WriteXmlAttrB(_value: any); begin if ifnil({self.}XmlAttrB) then begin {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); attributes_["b"] := {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 inherited create(_node); end; function DocPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): DocPr;override; begin obj := new DocPr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Id) then obj.Id := {self.}Id; if not ifnil({self.}Name) then obj.Name := {self.}Name; if not ifnil({self.}Descr) then obj.Descr := {self.}Descr; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "extLst": obj.ExtLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function DocPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildExtLst) then {self.}XmlChildExtLst.ConvertToPoint(); end; function DocPr.ReadXmlAttrId(); begin return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value; end; function DocPr.WriteXmlAttrId(_value: any); begin if ifnil({self.}XmlAttrId) then begin {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); attributes_["id"] := {self.}XmlAttrId; end {self.}XmlAttrId.Value := _value; end; function DocPr.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function DocPr.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function DocPr.ReadXmlAttrDescr(); begin return ifnil({self.}XmlAttrDescr.Value) ? fallback_.XmlAttrDescr.Value : {self.}XmlAttrDescr.Value; end; function DocPr.WriteXmlAttrDescr(_value: any); begin if ifnil({self.}XmlAttrDescr) then begin {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); attributes_["descr"] := {self.}XmlAttrDescr; end {self.}XmlAttrDescr.Value := _value; end; function DocPr.ReadXmlChildExtLst(): ExtLst; begin if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then begin {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); container_.Set({self.}XmlChildExtLst); end return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst; end; function DocPr.WriteXmlChildExtLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExtLst) then {self.}RemoveChild({self.}XmlChildExtLst); end else if v is class(ExtLst) then begin v.Parent := self; {self.}XmlChildExtLst := v; container_.Set({self.}XmlChildExtLst); end else begin raise "Invalid assignment: ExtLst expects ExtLst or nil"; end end; function CNvGraphicFramePr.create();overload; begin {self.}create(nil, "w", "cNvGraphicFramePr"); end; function CNvGraphicFramePr.create(_node: XmlNode);overload; begin inherited create(_node); end; function CNvGraphicFramePr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildGraphicFrameLocks) then {self.}GraphicFrameLocks.Copy(_obj.XmlChildGraphicFrameLocks); tslassigning := tslassigning_backup; end; function CNvGraphicFramePr.Clone(): CNvGraphicFramePr;override; begin obj := new CNvGraphicFramePr(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "graphicFrameLocks": obj.GraphicFrameLocks := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function CNvGraphicFramePr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildGraphicFrameLocks) then {self.}XmlChildGraphicFrameLocks.ConvertToPoint(); end; function CNvGraphicFramePr.ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks; begin if tslassigning and (ifnil({self.}XmlChildGraphicFrameLocks) or {self.}XmlChildGraphicFrameLocks.Removed) then begin {self.}XmlChildGraphicFrameLocks := new GraphicFrameLocks(self, {self.}Prefix, "graphicFrameLocks"); container_.Set({self.}XmlChildGraphicFrameLocks); end return {self.}XmlChildGraphicFrameLocks and not {self.}XmlChildGraphicFrameLocks.Removed ? {self.}XmlChildGraphicFrameLocks : fallback_.GraphicFrameLocks; end; function CNvGraphicFramePr.WriteXmlChildGraphicFrameLocks(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildGraphicFrameLocks) then {self.}RemoveChild({self.}XmlChildGraphicFrameLocks); end else if v is class(GraphicFrameLocks) then begin v.Parent := self; {self.}XmlChildGraphicFrameLocks := v; container_.Set({self.}XmlChildGraphicFrameLocks); end else begin raise "Invalid assignment: GraphicFrameLocks expects GraphicFrameLocks or nil"; end end; function GraphicFrameLocks.create();overload; begin {self.}create(nil, "", ""); end; function GraphicFrameLocks.create(_node: XmlNode);overload; begin inherited create(_node); end; function GraphicFrameLocks.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.NoChangeAspect) then {self.}NoChangeAspect := _obj.NoChangeAspect; tslassigning := tslassigning_backup; end; function GraphicFrameLocks.Clone(): GraphicFrameLocks;override; begin obj := new GraphicFrameLocks(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}NoChangeAspect) then obj.NoChangeAspect := {self.}NoChangeAspect; return obj; end; function GraphicFrameLocks.ConvertToPoint();override; begin end; function GraphicFrameLocks.ReadXmlAttrNoChangeAspect(); begin return ifnil({self.}XmlAttrNoChangeAspect.Value) ? fallback_.XmlAttrNoChangeAspect.Value : {self.}XmlAttrNoChangeAspect.Value; end; function GraphicFrameLocks.WriteXmlAttrNoChangeAspect(_value: any); begin if ifnil({self.}XmlAttrNoChangeAspect) then begin {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); attributes_["noChangeAspect"] := {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 inherited create(_node); end; function Graphic.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildGraphicData) then {self.}GraphicData.Copy(_obj.XmlChildGraphicData); tslassigning := tslassigning_backup; end; function Graphic.Clone(): Graphic;override; begin obj := new Graphic(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:graphicData": obj.GraphicData := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Graphic.ConvertToPoint();override; begin if not ifnil({self.}XmlChildGraphicData) then {self.}XmlChildGraphicData.ConvertToPoint(); end; function Graphic.ReadXmlChildGraphicData(): GraphicData; begin if tslassigning and (ifnil({self.}XmlChildGraphicData) or {self.}XmlChildGraphicData.Removed) then begin {self.}XmlChildGraphicData := new GraphicData(self, "a", "graphicData"); container_.Set({self.}XmlChildGraphicData); end return {self.}XmlChildGraphicData and not {self.}XmlChildGraphicData.Removed ? {self.}XmlChildGraphicData : fallback_.GraphicData; end; function Graphic.WriteXmlChildGraphicData(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildGraphicData) then {self.}RemoveChild({self.}XmlChildGraphicData); end else if v is class(GraphicData) then begin v.Parent := self; {self.}XmlChildGraphicData := v; container_.Set({self.}XmlChildGraphicData); end else begin raise "Invalid assignment: GraphicData expects GraphicData or nil"; end end; function GraphicData.create();overload; begin {self.}create(nil, "a", "graphicData"); end; function GraphicData.create(_node: XmlNode);overload; begin inherited create(_node); end; function GraphicData.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): GraphicData;override; begin obj := new GraphicData(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Uri) then obj.Uri := {self.}Uri; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "pic:pic": obj.Pic := element.Clone(); "c:chart": obj.Chart := element.Clone(); "wps:wsp": obj.Wsp := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function GraphicData.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPic) then {self.}XmlChildPic.ConvertToPoint(); if not ifnil({self.}XmlChildChart) then {self.}XmlChildChart.ConvertToPoint(); if not ifnil({self.}XmlChildWsp) then {self.}XmlChildWsp.ConvertToPoint(); end; function GraphicData.ReadXmlAttrUri(); begin return ifnil({self.}XmlAttrUri.Value) ? fallback_.XmlAttrUri.Value : {self.}XmlAttrUri.Value; end; function GraphicData.WriteXmlAttrUri(_value: any); begin if ifnil({self.}XmlAttrUri) then begin {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); attributes_["uri"] := {self.}XmlAttrUri; end {self.}XmlAttrUri.Value := _value; end; function GraphicData.ReadXmlChildPic(): Pic; begin if tslassigning and (ifnil({self.}XmlChildPic) or {self.}XmlChildPic.Removed) then begin {self.}XmlChildPic := new Pic(self, "pic", "pic"); container_.Set({self.}XmlChildPic); end return {self.}XmlChildPic and not {self.}XmlChildPic.Removed ? {self.}XmlChildPic : fallback_.Pic; end; function GraphicData.WriteXmlChildPic(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPic) then {self.}RemoveChild({self.}XmlChildPic); end else if v is class(Pic) then begin v.Parent := self; {self.}XmlChildPic := v; container_.Set({self.}XmlChildPic); end else begin raise "Invalid assignment: Pic expects Pic or nil"; end end; function GraphicData.ReadXmlChildChart(): Chart; begin if tslassigning and (ifnil({self.}XmlChildChart) or {self.}XmlChildChart.Removed) then begin {self.}XmlChildChart := new Chart(self, "c", "chart"); container_.Set({self.}XmlChildChart); end return {self.}XmlChildChart and not {self.}XmlChildChart.Removed ? {self.}XmlChildChart : fallback_.Chart; end; function GraphicData.WriteXmlChildChart(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildChart) then {self.}RemoveChild({self.}XmlChildChart); end else if v is class(Chart) then begin v.Parent := self; {self.}XmlChildChart := v; container_.Set({self.}XmlChildChart); end else begin raise "Invalid assignment: Chart expects Chart or nil"; end end; function GraphicData.ReadXmlChildWsp(): Wsp; begin if tslassigning and (ifnil({self.}XmlChildWsp) or {self.}XmlChildWsp.Removed) then begin {self.}XmlChildWsp := new Wsp(self, "wps", "wsp"); container_.Set({self.}XmlChildWsp); end return {self.}XmlChildWsp and not {self.}XmlChildWsp.Removed ? {self.}XmlChildWsp : fallback_.Wsp; end; function GraphicData.WriteXmlChildWsp(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildWsp) then {self.}RemoveChild({self.}XmlChildWsp); end else if v is class(Wsp) then begin v.Parent := self; {self.}XmlChildWsp := v; container_.Set({self.}XmlChildWsp); end else begin raise "Invalid assignment: Wsp expects Wsp or nil"; end end; function Wsp.create();overload; begin {self.}create(nil, "wps", "wsp"); end; function Wsp.create(_node: XmlNode);overload; begin inherited create(_node); end; function Wsp.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Wsp;override; begin obj := new Wsp(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "cNvSpPr": obj.CNvSpPr := element.Clone(); pre + "spPr": obj.SpPr := element.Clone(); pre + "txbx": obj.Txbx := element.Clone(); pre + "style": obj.Style := element.Clone(); pre + "bodyPr": obj.BodyPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Wsp.ConvertToPoint();override; begin if not ifnil({self.}XmlChildCNvSpPr) then {self.}XmlChildCNvSpPr.ConvertToPoint(); if not ifnil({self.}XmlChildSpPr) then {self.}XmlChildSpPr.ConvertToPoint(); if not ifnil({self.}XmlChildTxbx) then {self.}XmlChildTxbx.ConvertToPoint(); if not ifnil({self.}XmlChildStyle) then {self.}XmlChildStyle.ConvertToPoint(); if not ifnil({self.}XmlChildBodyPr) then {self.}XmlChildBodyPr.ConvertToPoint(); end; function Wsp.ReadXmlChildCNvSpPr(): CNvSpPr; begin if tslassigning and (ifnil({self.}XmlChildCNvSpPr) or {self.}XmlChildCNvSpPr.Removed) then begin {self.}XmlChildCNvSpPr := new CNvSpPr(self, {self.}Prefix, "cNvSpPr"); container_.Set({self.}XmlChildCNvSpPr); end return {self.}XmlChildCNvSpPr and not {self.}XmlChildCNvSpPr.Removed ? {self.}XmlChildCNvSpPr : fallback_.CNvSpPr; end; function Wsp.WriteXmlChildCNvSpPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCNvSpPr) then {self.}RemoveChild({self.}XmlChildCNvSpPr); end else if v is class(CNvSpPr) then begin v.Parent := self; {self.}XmlChildCNvSpPr := v; container_.Set({self.}XmlChildCNvSpPr); end else begin raise "Invalid assignment: CNvSpPr expects CNvSpPr or nil"; end end; function Wsp.ReadXmlChildSpPr(): SpPr; begin if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr; end; function Wsp.WriteXmlChildSpPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSpPr) then {self.}RemoveChild({self.}XmlChildSpPr); end else if v is class(SpPr) then begin v.Parent := self; {self.}XmlChildSpPr := v; container_.Set({self.}XmlChildSpPr); end else begin raise "Invalid assignment: SpPr expects SpPr or nil"; end end; function Wsp.ReadXmlChildTxbx(): Txbx; begin if tslassigning and (ifnil({self.}XmlChildTxbx) or {self.}XmlChildTxbx.Removed) then begin {self.}XmlChildTxbx := new Txbx(self, {self.}Prefix, "txbx"); container_.Set({self.}XmlChildTxbx); end return {self.}XmlChildTxbx and not {self.}XmlChildTxbx.Removed ? {self.}XmlChildTxbx : fallback_.Txbx; end; function Wsp.WriteXmlChildTxbx(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTxbx) then {self.}RemoveChild({self.}XmlChildTxbx); end else if v is class(Txbx) then begin v.Parent := self; {self.}XmlChildTxbx := v; container_.Set({self.}XmlChildTxbx); end else begin raise "Invalid assignment: Txbx expects Txbx or nil"; end end; function Wsp.ReadXmlChildStyle(): WpsStyle; begin if tslassigning and (ifnil({self.}XmlChildStyle) or {self.}XmlChildStyle.Removed) then begin {self.}XmlChildStyle := new WpsStyle(self, {self.}Prefix, "style"); container_.Set({self.}XmlChildStyle); end return {self.}XmlChildStyle and not {self.}XmlChildStyle.Removed ? {self.}XmlChildStyle : fallback_.Style; end; function Wsp.WriteXmlChildStyle(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildStyle) then {self.}RemoveChild({self.}XmlChildStyle); end else if v is class(WpsStyle) then begin v.Parent := self; {self.}XmlChildStyle := v; container_.Set({self.}XmlChildStyle); end else begin raise "Invalid assignment: Style expects WpsStyle or nil"; end end; function Wsp.ReadXmlChildBodyPr(): BodyPr; begin if tslassigning and (ifnil({self.}XmlChildBodyPr) or {self.}XmlChildBodyPr.Removed) then begin {self.}XmlChildBodyPr := new BodyPr(self, {self.}Prefix, "bodyPr"); container_.Set({self.}XmlChildBodyPr); end return {self.}XmlChildBodyPr and not {self.}XmlChildBodyPr.Removed ? {self.}XmlChildBodyPr : fallback_.BodyPr; end; function Wsp.WriteXmlChildBodyPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBodyPr) then {self.}RemoveChild({self.}XmlChildBodyPr); end else if v is class(BodyPr) then begin v.Parent := self; {self.}XmlChildBodyPr := v; container_.Set({self.}XmlChildBodyPr); end else begin raise "Invalid assignment: BodyPr expects BodyPr or nil"; end end; function WpsStyle.create();overload; begin {self.}create(nil, "wps", "style"); end; function WpsStyle.create(_node: XmlNode);overload; begin inherited create(_node); end; function WpsStyle.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): WpsStyle;override; begin obj := new WpsStyle(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:lnRef": obj.LnRef := element.Clone(); "a:fillRef": obj.FillRef := element.Clone(); "a:effectRef": obj.EffectRef := element.Clone(); "a:fontRef": obj.FontRef := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function WpsStyle.ConvertToPoint();override; begin if not ifnil({self.}XmlChildLnRef) then {self.}XmlChildLnRef.ConvertToPoint(); if not ifnil({self.}XmlChildFillRef) then {self.}XmlChildFillRef.ConvertToPoint(); if not ifnil({self.}XmlChildEffectRef) then {self.}XmlChildEffectRef.ConvertToPoint(); if not ifnil({self.}XmlChildFontRef) then {self.}XmlChildFontRef.ConvertToPoint(); end; function WpsStyle.ReadXmlChildLnRef(): XRef; begin if tslassigning and (ifnil({self.}XmlChildLnRef) or {self.}XmlChildLnRef.Removed) then begin {self.}XmlChildLnRef := new XRef(self, "a", "lnRef"); container_.Set({self.}XmlChildLnRef); end return {self.}XmlChildLnRef and not {self.}XmlChildLnRef.Removed ? {self.}XmlChildLnRef : fallback_.LnRef; end; function WpsStyle.WriteXmlChildLnRef(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLnRef) then {self.}RemoveChild({self.}XmlChildLnRef); end else if v is class(XRef) then begin v.Parent := self; {self.}XmlChildLnRef := v; container_.Set({self.}XmlChildLnRef); end else begin raise "Invalid assignment: LnRef expects XRef or nil"; end end; function WpsStyle.ReadXmlChildFillRef(): XRef; begin if tslassigning and (ifnil({self.}XmlChildFillRef) or {self.}XmlChildFillRef.Removed) then begin {self.}XmlChildFillRef := new XRef(self, "a", "fillRef"); container_.Set({self.}XmlChildFillRef); end return {self.}XmlChildFillRef and not {self.}XmlChildFillRef.Removed ? {self.}XmlChildFillRef : fallback_.FillRef; end; function WpsStyle.WriteXmlChildFillRef(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildFillRef) then {self.}RemoveChild({self.}XmlChildFillRef); end else if v is class(XRef) then begin v.Parent := self; {self.}XmlChildFillRef := v; container_.Set({self.}XmlChildFillRef); end else begin raise "Invalid assignment: FillRef expects XRef or nil"; end end; function WpsStyle.ReadXmlChildEffectRef(): XRef; begin if tslassigning and (ifnil({self.}XmlChildEffectRef) or {self.}XmlChildEffectRef.Removed) then begin {self.}XmlChildEffectRef := new XRef(self, "a", "effectRef"); container_.Set({self.}XmlChildEffectRef); end return {self.}XmlChildEffectRef and not {self.}XmlChildEffectRef.Removed ? {self.}XmlChildEffectRef : fallback_.EffectRef; end; function WpsStyle.WriteXmlChildEffectRef(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEffectRef) then {self.}RemoveChild({self.}XmlChildEffectRef); end else if v is class(XRef) then begin v.Parent := self; {self.}XmlChildEffectRef := v; container_.Set({self.}XmlChildEffectRef); end else begin raise "Invalid assignment: EffectRef expects XRef or nil"; end end; function WpsStyle.ReadXmlChildFontRef(): XRef; begin if tslassigning and (ifnil({self.}XmlChildFontRef) or {self.}XmlChildFontRef.Removed) then begin {self.}XmlChildFontRef := new XRef(self, "a", "fontRef"); container_.Set({self.}XmlChildFontRef); end return {self.}XmlChildFontRef and not {self.}XmlChildFontRef.Removed ? {self.}XmlChildFontRef : fallback_.FontRef; end; function WpsStyle.WriteXmlChildFontRef(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildFontRef) then {self.}RemoveChild({self.}XmlChildFontRef); end else if v is class(XRef) then begin v.Parent := self; {self.}XmlChildFontRef := v; container_.Set({self.}XmlChildFontRef); end else begin raise "Invalid assignment: FontRef expects XRef or nil"; end end; function XRef.create();overload; begin {self.}create(nil, "a", "lnRef"); end; function XRef.create(_node: XmlNode);overload; begin inherited create(_node); end; function XRef.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): XRef;override; begin obj := new XRef(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Idx) then obj.Idx := {self.}Idx; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:schemeClr": obj.SchemeClr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function XRef.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSchemeClr) then {self.}XmlChildSchemeClr.ConvertToPoint(); end; function XRef.ReadXmlAttrIdx(); begin return ifnil({self.}XmlAttrIdx.Value) ? fallback_.XmlAttrIdx.Value : {self.}XmlAttrIdx.Value; end; function XRef.WriteXmlAttrIdx(_value: any); begin if ifnil({self.}XmlAttrIdx) then begin {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); attributes_["idx"] := {self.}XmlAttrIdx; end {self.}XmlAttrIdx.Value := _value; end; function XRef.ReadXmlChildSchemeClr(): SchemeClr; begin if tslassigning and (ifnil({self.}XmlChildSchemeClr) or {self.}XmlChildSchemeClr.Removed) then begin {self.}XmlChildSchemeClr := new SchemeClr(self, "a", "schemeClr"); container_.Set({self.}XmlChildSchemeClr); end return {self.}XmlChildSchemeClr and not {self.}XmlChildSchemeClr.Removed ? {self.}XmlChildSchemeClr : fallback_.SchemeClr; end; function XRef.WriteXmlChildSchemeClr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSchemeClr) then {self.}RemoveChild({self.}XmlChildSchemeClr); end else if v is class(SchemeClr) then begin v.Parent := self; {self.}XmlChildSchemeClr := v; container_.Set({self.}XmlChildSchemeClr); end else begin raise "Invalid assignment: SchemeClr expects SchemeClr or nil"; end end; function Txbx.create();overload; begin {self.}create(nil, "wps", "txbx"); end; function Txbx.create(_node: XmlNode);overload; begin inherited create(_node); end; function Txbx.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildTxbxContent) then {self.}TxbxContent.Copy(_obj.XmlChildTxbxContent); tslassigning := tslassigning_backup; end; function Txbx.Clone(): Txbx;override; begin obj := new Txbx(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "w:txbxContent": obj.TxbxContent := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Txbx.ConvertToPoint();override; begin if not ifnil({self.}XmlChildTxbxContent) then {self.}XmlChildTxbxContent.ConvertToPoint(); end; function Txbx.ReadXmlChildTxbxContent(): TxbxContent; begin if tslassigning and (ifnil({self.}XmlChildTxbxContent) or {self.}XmlChildTxbxContent.Removed) then begin {self.}XmlChildTxbxContent := new DocxML.TxbxContent(self, "w", "txbxContent"); container_.Set({self.}XmlChildTxbxContent); end return {self.}XmlChildTxbxContent and not {self.}XmlChildTxbxContent.Removed ? {self.}XmlChildTxbxContent : fallback_.TxbxContent; end; function Txbx.WriteXmlChildTxbxContent(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildTxbxContent) then {self.}RemoveChild({self.}XmlChildTxbxContent); end else if v is class(TxbxContent) then begin v.Parent := self; {self.}XmlChildTxbxContent := v; container_.Set({self.}XmlChildTxbxContent); end else begin raise "Invalid assignment: TxbxContent expects TxbxContent or nil"; end end; function CNvSpPr.create();overload; begin {self.}create(nil, "wps", "cNvSpPr"); end; function CNvSpPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function CNvSpPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): CNvSpPr;override; begin obj := new CNvSpPr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}TxBox) then obj.TxBox := {self.}TxBox; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:spLocks": obj.SpLocks := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function CNvSpPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSpLocks) then {self.}XmlChildSpLocks.ConvertToPoint(); end; function CNvSpPr.ReadXmlAttrTxBox(); begin return ifnil({self.}XmlAttrTxBox.Value) ? fallback_.XmlAttrTxBox.Value : {self.}XmlAttrTxBox.Value; end; function CNvSpPr.WriteXmlAttrTxBox(_value: any); begin if ifnil({self.}XmlAttrTxBox) then begin {self.}XmlAttrTxBox := new OpenXmlAttribute("", "txBox", nil); attributes_["txBox"] := {self.}XmlAttrTxBox; end {self.}XmlAttrTxBox.Value := _value; end; function CNvSpPr.ReadXmlChildSpLocks(): SpLocks; begin if tslassigning and (ifnil({self.}XmlChildSpLocks) or {self.}XmlChildSpLocks.Removed) then begin {self.}XmlChildSpLocks := new SpLocks(self, "a", "spLocks"); container_.Set({self.}XmlChildSpLocks); end return {self.}XmlChildSpLocks and not {self.}XmlChildSpLocks.Removed ? {self.}XmlChildSpLocks : fallback_.SpLocks; end; function CNvSpPr.WriteXmlChildSpLocks(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSpLocks) then {self.}RemoveChild({self.}XmlChildSpLocks); end else if v is class(SpLocks) then begin v.Parent := self; {self.}XmlChildSpLocks := v; container_.Set({self.}XmlChildSpLocks); end else begin raise "Invalid assignment: SpLocks expects SpLocks or nil"; end end; function SpLocks.create();overload; begin {self.}create(nil, "a", "spLocks"); end; function SpLocks.create(_node: XmlNode);overload; begin inherited create(_node); end; function SpLocks.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.NoChangeArrowheads) then {self.}NoChangeArrowheads := _obj.NoChangeArrowheads; tslassigning := tslassigning_backup; end; function SpLocks.Clone(): SpLocks;override; begin obj := new SpLocks(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}NoChangeArrowheads) then obj.NoChangeArrowheads := {self.}NoChangeArrowheads; return obj; end; function SpLocks.ConvertToPoint();override; begin end; function SpLocks.ReadXmlAttrNoChangeArrowheads(); begin return ifnil({self.}XmlAttrNoChangeArrowheads.Value) ? fallback_.XmlAttrNoChangeArrowheads.Value : {self.}XmlAttrNoChangeArrowheads.Value; end; function SpLocks.WriteXmlAttrNoChangeArrowheads(_value: any); begin if ifnil({self.}XmlAttrNoChangeArrowheads) then begin {self.}XmlAttrNoChangeArrowheads := new OpenXmlAttribute("", "noChangeArrowheads", nil); attributes_["noChangeArrowheads"] := {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 inherited create(_node); end; function Pic.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Pic;override; begin obj := new Pic(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "nvPicPr": obj.NvPicPr := element.Clone(); pre + "blipFill": obj.BlipFill := element.Clone(); pre + "spPr": obj.SpPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Pic.ConvertToPoint();override; begin if not ifnil({self.}XmlChildNvPicPr) then {self.}XmlChildNvPicPr.ConvertToPoint(); if not ifnil({self.}XmlChildBlipFill) then {self.}XmlChildBlipFill.ConvertToPoint(); if not ifnil({self.}XmlChildSpPr) then {self.}XmlChildSpPr.ConvertToPoint(); end; function Pic.ReadXmlChildNvPicPr(): NvPicPr; begin if tslassigning and (ifnil({self.}XmlChildNvPicPr) or {self.}XmlChildNvPicPr.Removed) then begin {self.}XmlChildNvPicPr := new NvPicPr(self, {self.}Prefix, "nvPicPr"); container_.Set({self.}XmlChildNvPicPr); end return {self.}XmlChildNvPicPr and not {self.}XmlChildNvPicPr.Removed ? {self.}XmlChildNvPicPr : fallback_.NvPicPr; end; function Pic.WriteXmlChildNvPicPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildNvPicPr) then {self.}RemoveChild({self.}XmlChildNvPicPr); end else if v is class(NvPicPr) then begin v.Parent := self; {self.}XmlChildNvPicPr := v; container_.Set({self.}XmlChildNvPicPr); end else begin raise "Invalid assignment: NvPicPr expects NvPicPr or nil"; end end; function Pic.ReadXmlChildBlipFill(): BlipFill; begin if tslassigning and (ifnil({self.}XmlChildBlipFill) or {self.}XmlChildBlipFill.Removed) then begin {self.}XmlChildBlipFill := new BlipFill(self, {self.}Prefix, "blipFill"); container_.Set({self.}XmlChildBlipFill); end return {self.}XmlChildBlipFill and not {self.}XmlChildBlipFill.Removed ? {self.}XmlChildBlipFill : fallback_.BlipFill; end; function Pic.WriteXmlChildBlipFill(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBlipFill) then {self.}RemoveChild({self.}XmlChildBlipFill); end else if v is class(BlipFill) then begin v.Parent := self; {self.}XmlChildBlipFill := v; container_.Set({self.}XmlChildBlipFill); end else begin raise "Invalid assignment: BlipFill expects BlipFill or nil"; end end; function Pic.ReadXmlChildSpPr(): SpPr; begin if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then begin {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); container_.Set({self.}XmlChildSpPr); end return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr; end; function Pic.WriteXmlChildSpPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSpPr) then {self.}RemoveChild({self.}XmlChildSpPr); end else if v is class(SpPr) then begin v.Parent := self; {self.}XmlChildSpPr := v; container_.Set({self.}XmlChildSpPr); end else begin raise "Invalid assignment: SpPr expects SpPr or nil"; end end; function NvPicPr.create();overload; begin {self.}create(nil, "pic", "nvPicPr"); end; function NvPicPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function NvPicPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): NvPicPr;override; begin obj := new NvPicPr(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "pic:cNvPr": obj.CNvPr := element.Clone(); "pic:cNvPicPr": obj.CNvPicPr := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function NvPicPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildCNvPr) then {self.}XmlChildCNvPr.ConvertToPoint(); if not ifnil({self.}XmlChildCNvPicPr) then {self.}XmlChildCNvPicPr.ConvertToPoint(); end; function NvPicPr.ReadXmlChildCNvPr(): CNvPr; begin if tslassigning and (ifnil({self.}XmlChildCNvPr) or {self.}XmlChildCNvPr.Removed) then begin {self.}XmlChildCNvPr := new CNvPr(self, "pic", "cNvPr"); container_.Set({self.}XmlChildCNvPr); end return {self.}XmlChildCNvPr and not {self.}XmlChildCNvPr.Removed ? {self.}XmlChildCNvPr : fallback_.CNvPr; end; function NvPicPr.WriteXmlChildCNvPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCNvPr) then {self.}RemoveChild({self.}XmlChildCNvPr); end else if v is class(CNvPr) then begin v.Parent := self; {self.}XmlChildCNvPr := v; container_.Set({self.}XmlChildCNvPr); end else begin raise "Invalid assignment: CNvPr expects CNvPr or nil"; end end; function NvPicPr.ReadXmlChildCNvPicPr(): CNvPicPr; begin if tslassigning and (ifnil({self.}XmlChildCNvPicPr) or {self.}XmlChildCNvPicPr.Removed) then begin {self.}XmlChildCNvPicPr := new CNvPicPr(self, "pic", "cNvPicPr"); container_.Set({self.}XmlChildCNvPicPr); end return {self.}XmlChildCNvPicPr and not {self.}XmlChildCNvPicPr.Removed ? {self.}XmlChildCNvPicPr : fallback_.CNvPicPr; end; function NvPicPr.WriteXmlChildCNvPicPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCNvPicPr) then {self.}RemoveChild({self.}XmlChildCNvPicPr); end else if v is class(CNvPicPr) then begin v.Parent := self; {self.}XmlChildCNvPicPr := v; container_.Set({self.}XmlChildCNvPicPr); end else begin raise "Invalid assignment: CNvPicPr expects CNvPicPr or nil"; end end; function CNvPr.create();overload; begin {self.}create(nil, "pic", "cNvPr"); end; function CNvPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function CNvPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): CNvPr;override; begin obj := new CNvPr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Id) then obj.Id := {self.}Id; if not ifnil({self.}Name) then obj.Name := {self.}Name; if not ifnil({self.}Descr) then obj.Descr := {self.}Descr; return obj; end; function CNvPr.ConvertToPoint();override; begin end; function CNvPr.ReadXmlAttrId(); begin return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value; end; function CNvPr.WriteXmlAttrId(_value: any); begin if ifnil({self.}XmlAttrId) then begin {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); attributes_["id"] := {self.}XmlAttrId; end {self.}XmlAttrId.Value := _value; end; function CNvPr.ReadXmlAttrName(); begin return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value; end; function CNvPr.WriteXmlAttrName(_value: any); begin if ifnil({self.}XmlAttrName) then begin {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); attributes_["name"] := {self.}XmlAttrName; end {self.}XmlAttrName.Value := _value; end; function CNvPr.ReadXmlAttrDescr(); begin return ifnil({self.}XmlAttrDescr.Value) ? fallback_.XmlAttrDescr.Value : {self.}XmlAttrDescr.Value; end; function CNvPr.WriteXmlAttrDescr(_value: any); begin if ifnil({self.}XmlAttrDescr) then begin {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); attributes_["descr"] := {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 inherited create(_node); end; function CNvPicPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildPicLocks) then {self.}PicLocks.Copy(_obj.XmlChildPicLocks); tslassigning := tslassigning_backup; end; function CNvPicPr.Clone(): CNvPicPr;override; begin obj := new CNvPicPr(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:picLocks": obj.PicLocks := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function CNvPicPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPicLocks) then {self.}XmlChildPicLocks.ConvertToPoint(); end; function CNvPicPr.ReadXmlChildPicLocks(): PicLocks; begin if tslassigning and (ifnil({self.}XmlChildPicLocks) or {self.}XmlChildPicLocks.Removed) then begin {self.}XmlChildPicLocks := new PicLocks(self, "a", "picLocks"); container_.Set({self.}XmlChildPicLocks); end return {self.}XmlChildPicLocks and not {self.}XmlChildPicLocks.Removed ? {self.}XmlChildPicLocks : fallback_.PicLocks; end; function CNvPicPr.WriteXmlChildPicLocks(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPicLocks) then {self.}RemoveChild({self.}XmlChildPicLocks); end else if v is class(PicLocks) then begin v.Parent := self; {self.}XmlChildPicLocks := v; container_.Set({self.}XmlChildPicLocks); end else begin raise "Invalid assignment: PicLocks expects PicLocks or nil"; end end; function PicLocks.create();overload; begin {self.}create(nil, "a", "picLocks"); end; function PicLocks.create(_node: XmlNode);overload; begin inherited create(_node); end; function PicLocks.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.NoChangeAspect) then {self.}NoChangeAspect := _obj.NoChangeAspect; tslassigning := tslassigning_backup; end; function PicLocks.Clone(): PicLocks;override; begin obj := new PicLocks(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}NoChangeAspect) then obj.NoChangeAspect := {self.}NoChangeAspect; return obj; end; function PicLocks.ConvertToPoint();override; begin end; function PicLocks.ReadXmlAttrNoChangeAspect(); begin return ifnil({self.}XmlAttrNoChangeAspect.Value) ? fallback_.XmlAttrNoChangeAspect.Value : {self.}XmlAttrNoChangeAspect.Value; end; function PicLocks.WriteXmlAttrNoChangeAspect(_value: any); begin if ifnil({self.}XmlAttrNoChangeAspect) then begin {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); attributes_["noChangeAspect"] := {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 inherited create(_node); end; function BlipFill.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): BlipFill;override; begin obj := new BlipFill(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:blip": obj.Blip := element.Clone(); "a:stretch": obj.Stretch := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function BlipFill.ConvertToPoint();override; begin if not ifnil({self.}XmlChildBlip) then {self.}XmlChildBlip.ConvertToPoint(); if not ifnil({self.}XmlChildStretch) then {self.}XmlChildStretch.ConvertToPoint(); end; function BlipFill.ReadXmlChildBlip(): Blip; begin if tslassigning and (ifnil({self.}XmlChildBlip) or {self.}XmlChildBlip.Removed) then begin {self.}XmlChildBlip := new Blip(self, "a", "blip"); container_.Set({self.}XmlChildBlip); end return {self.}XmlChildBlip and not {self.}XmlChildBlip.Removed ? {self.}XmlChildBlip : fallback_.Blip; end; function BlipFill.WriteXmlChildBlip(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildBlip) then {self.}RemoveChild({self.}XmlChildBlip); end else if v is class(Blip) then begin v.Parent := self; {self.}XmlChildBlip := v; container_.Set({self.}XmlChildBlip); end else begin raise "Invalid assignment: Blip expects Blip or nil"; end end; function BlipFill.ReadXmlChildStretch(): Stretch; begin if tslassigning and (ifnil({self.}XmlChildStretch) or {self.}XmlChildStretch.Removed) then begin {self.}XmlChildStretch := new Stretch(self, "a", "stretch"); container_.Set({self.}XmlChildStretch); end return {self.}XmlChildStretch and not {self.}XmlChildStretch.Removed ? {self.}XmlChildStretch : fallback_.Stretch; end; function BlipFill.WriteXmlChildStretch(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildStretch) then {self.}RemoveChild({self.}XmlChildStretch); end else if v is class(Stretch) then begin v.Parent := self; {self.}XmlChildStretch := v; container_.Set({self.}XmlChildStretch); end else begin raise "Invalid assignment: Stretch expects Stretch or nil"; end end; function Blip.create();overload; begin {self.}create(nil, "a", "blip"); end; function Blip.create(_node: XmlNode);overload; begin inherited create(_node); end; function Blip.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Blip;override; begin obj := new Blip(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Embed) then obj.Embed := {self.}Embed; if not ifnil({self.}Cstate) then obj.Cstate := {self.}Cstate; return obj; end; function Blip.ConvertToPoint();override; begin end; function Blip.ReadXmlAttrEmbed(); begin return ifnil({self.}XmlAttrEmbed.Value) ? fallback_.XmlAttrEmbed.Value : {self.}XmlAttrEmbed.Value; end; function Blip.WriteXmlAttrEmbed(_value: any); begin if ifnil({self.}XmlAttrEmbed) then begin {self.}XmlAttrEmbed := new OpenXmlAttribute("r", "embed", nil); attributes_["r:embed"] := {self.}XmlAttrEmbed; end {self.}XmlAttrEmbed.Value := _value; end; function Blip.ReadXmlAttrCstate(); begin return ifnil({self.}XmlAttrCstate.Value) ? fallback_.XmlAttrCstate.Value : {self.}XmlAttrCstate.Value; end; function Blip.WriteXmlAttrCstate(_value: any); begin if ifnil({self.}XmlAttrCstate) then begin {self.}XmlAttrCstate := new OpenXmlAttribute("", "cstate", nil); attributes_["cstate"] := {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 inherited create(_node); end; function Stretch.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildFillRect) then {self.}FillRect.Copy(_obj.XmlChildFillRect); tslassigning := tslassigning_backup; end; function Stretch.Clone(): Stretch;override; begin obj := new Stretch(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:fillRect": obj.FillRect := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Stretch.ConvertToPoint();override; begin if not ifnil({self.}XmlChildFillRect) then {self.}XmlChildFillRect.ConvertToPoint(); end; function Stretch.ReadXmlChildFillRect(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildFillRect) or {self.}XmlChildFillRect.Removed) then begin {self.}XmlChildFillRect := new PureVal(self, "a", "fillRect"); container_.Set({self.}XmlChildFillRect); end return {self.}XmlChildFillRect and not {self.}XmlChildFillRect.Removed ? {self.}XmlChildFillRect : fallback_.FillRect; end; function Stretch.WriteXmlChildFillRect(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildFillRect) then {self.}RemoveChild({self.}XmlChildFillRect); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildFillRect := v; container_.Set({self.}XmlChildFillRect); end else begin raise "Invalid assignment: FillRect expects PureVal or nil"; end end; function SpPr.create();overload; begin {self.}create(nil, "pic", "spPr"); end; function SpPr.create(_node: XmlNode);overload; begin inherited create(_node); end; function SpPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): SpPr;override; begin obj := new SpPr(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}BwMode) then obj.BwMode := {self.}BwMode; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of "a:xfrm": obj.Xfrm := element.Clone(); "a:prstGeom": obj.PrstGeom := element.Clone(); "a:noFill": obj.NoFill := element.Clone(); "a:solidFill": obj.SolidFill := element.Clone(); "a:ln": obj.Ln := element.Clone(); "a:effectLst": obj.EffectLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function SpPr.ConvertToPoint();override; begin if not ifnil({self.}XmlChildXfrm) then {self.}XmlChildXfrm.ConvertToPoint(); if not ifnil({self.}XmlChildPrstGeom) then {self.}XmlChildPrstGeom.ConvertToPoint(); if not ifnil({self.}XmlChildSolidFill) then {self.}XmlChildSolidFill.ConvertToPoint(); if not ifnil({self.}XmlChildLn) then {self.}XmlChildLn.ConvertToPoint(); if not ifnil({self.}XmlChildEffectLst) then {self.}XmlChildEffectLst.ConvertToPoint(); end; function SpPr.ReadXmlAttrBwMode(); begin return ifnil({self.}XmlAttrBwMode.Value) ? fallback_.XmlAttrBwMode.Value : {self.}XmlAttrBwMode.Value; end; function SpPr.WriteXmlAttrBwMode(_value: any); begin if ifnil({self.}XmlAttrBwMode) then begin {self.}XmlAttrBwMode := new OpenXmlAttribute("", "bwMode", nil); attributes_["bwMode"] := {self.}XmlAttrBwMode; end {self.}XmlAttrBwMode.Value := _value; end; function SpPr.ReadXmlChildNoFill(); begin if tslassigning and (ifnil({self.}XmlChildNoFill) or {self.}XmlChildNoFill.Removed) then begin {self.}XmlChildNoFill := new OpenXmlSimpleType(self, "a", "noFill"); container_.Set({self.}XmlChildNoFill); end return {self.}XmlChildNoFill and not {self.}XmlChildNoFill.Removed ? {self.}XmlChildNoFill : fallback_.NoFill; end; function SpPr.WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildNoFill) then {self.}RemoveChild({self.}XmlChildNoFill); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildNoFill := _value; container_.Set({self.}XmlChildNoFill); end else begin raise "Invalid assignment: NoFill expects nil or OpenXmlSimpleType"; end end; function SpPr.ReadXmlChildXfrm(): Xfrm; begin if tslassigning and (ifnil({self.}XmlChildXfrm) or {self.}XmlChildXfrm.Removed) then begin {self.}XmlChildXfrm := new Xfrm(self, "a", "xfrm"); container_.Set({self.}XmlChildXfrm); end return {self.}XmlChildXfrm and not {self.}XmlChildXfrm.Removed ? {self.}XmlChildXfrm : fallback_.Xfrm; end; function SpPr.WriteXmlChildXfrm(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildXfrm) then {self.}RemoveChild({self.}XmlChildXfrm); end else if v is class(Xfrm) then begin v.Parent := self; {self.}XmlChildXfrm := v; container_.Set({self.}XmlChildXfrm); end else begin raise "Invalid assignment: Xfrm expects Xfrm or nil"; end end; function SpPr.ReadXmlChildPrstGeom(): PrstGeom; begin if tslassigning and (ifnil({self.}XmlChildPrstGeom) or {self.}XmlChildPrstGeom.Removed) then begin {self.}XmlChildPrstGeom := new PrstGeom(self, "a", "prstGeom"); container_.Set({self.}XmlChildPrstGeom); end return {self.}XmlChildPrstGeom and not {self.}XmlChildPrstGeom.Removed ? {self.}XmlChildPrstGeom : fallback_.PrstGeom; end; function SpPr.WriteXmlChildPrstGeom(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPrstGeom) then {self.}RemoveChild({self.}XmlChildPrstGeom); end else if v is class(PrstGeom) then begin v.Parent := self; {self.}XmlChildPrstGeom := v; container_.Set({self.}XmlChildPrstGeom); end else begin raise "Invalid assignment: PrstGeom expects PrstGeom or nil"; end end; function SpPr.ReadXmlChildSolidFill(): SolidFill; begin if tslassigning and (ifnil({self.}XmlChildSolidFill) or {self.}XmlChildSolidFill.Removed) then begin {self.}XmlChildSolidFill := new SolidFill(self, "a", "solidFill"); container_.Set({self.}XmlChildSolidFill); end return {self.}XmlChildSolidFill and not {self.}XmlChildSolidFill.Removed ? {self.}XmlChildSolidFill : fallback_.SolidFill; end; function SpPr.WriteXmlChildSolidFill(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSolidFill) then {self.}RemoveChild({self.}XmlChildSolidFill); end else if v is class(SolidFill) then begin v.Parent := self; {self.}XmlChildSolidFill := v; container_.Set({self.}XmlChildSolidFill); end else begin raise "Invalid assignment: SolidFill expects SolidFill or nil"; end end; function SpPr.ReadXmlChildLn(): Ln; begin if tslassigning and (ifnil({self.}XmlChildLn) or {self.}XmlChildLn.Removed) then begin {self.}XmlChildLn := new Ln(self, "a", "ln"); container_.Set({self.}XmlChildLn); end return {self.}XmlChildLn and not {self.}XmlChildLn.Removed ? {self.}XmlChildLn : fallback_.Ln; end; function SpPr.WriteXmlChildLn(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildLn) then {self.}RemoveChild({self.}XmlChildLn); end else if v is class(Ln) then begin v.Parent := self; {self.}XmlChildLn := v; container_.Set({self.}XmlChildLn); end else begin raise "Invalid assignment: Ln expects Ln or nil"; end end; function SpPr.ReadXmlChildEffectLst(): EffectLst; begin if tslassigning and (ifnil({self.}XmlChildEffectLst) or {self.}XmlChildEffectLst.Removed) then begin {self.}XmlChildEffectLst := new EffectLst(self, "a", "effectLst"); container_.Set({self.}XmlChildEffectLst); end return {self.}XmlChildEffectLst and not {self.}XmlChildEffectLst.Removed ? {self.}XmlChildEffectLst : fallback_.EffectLst; end; function SpPr.WriteXmlChildEffectLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEffectLst) then {self.}RemoveChild({self.}XmlChildEffectLst); end else if v is class(EffectLst) then begin v.Parent := self; {self.}XmlChildEffectLst := v; container_.Set({self.}XmlChildEffectLst); end else begin raise "Invalid assignment: EffectLst expects EffectLst or nil"; end end; function EffectLst.create();overload; begin {self.}create(nil, "a", "effectLst"); end; function EffectLst.create(_node: XmlNode);overload; begin inherited create(_node); end; function EffectLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.XmlChildOuterShdw) then {self.}OuterShdw.Copy(_obj.XmlChildOuterShdw); tslassigning := tslassigning_backup; end; function EffectLst.Clone(): EffectLst;override; begin obj := new EffectLst(nil, {self.}Prefix, {self.}LocalName); pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "outerShdw": obj.OuterShdw := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function EffectLst.ConvertToPoint();override; begin if not ifnil({self.}XmlChildOuterShdw) then {self.}XmlChildOuterShdw.ConvertToPoint(); end; function EffectLst.ReadXmlChildOuterShdw(): OuterShdw; begin if tslassigning and (ifnil({self.}XmlChildOuterShdw) or {self.}XmlChildOuterShdw.Removed) then begin {self.}XmlChildOuterShdw := new OuterShdw(self, {self.}Prefix, "outerShdw"); container_.Set({self.}XmlChildOuterShdw); end return {self.}XmlChildOuterShdw and not {self.}XmlChildOuterShdw.Removed ? {self.}XmlChildOuterShdw : fallback_.OuterShdw; end; function EffectLst.WriteXmlChildOuterShdw(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildOuterShdw) then {self.}RemoveChild({self.}XmlChildOuterShdw); end else if v is class(OuterShdw) then begin v.Parent := self; {self.}XmlChildOuterShdw := v; container_.Set({self.}XmlChildOuterShdw); end else begin raise "Invalid assignment: OuterShdw expects OuterShdw or nil"; end end; function Ln.create();overload; begin {self.}create(nil, "a", "ln"); end; function Ln.create(_node: XmlNode);overload; begin inherited create(_node); end; function Ln.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Ln;override; begin obj := new Ln(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}W) then obj.W := {self.}W; if not ifnil({self.}Cap) then obj.Cap := {self.}Cap; if not ifnil({self.}Cmpd) then obj.Cmpd := {self.}Cmpd; if not ifnil({self.}Algn) then obj.Algn := {self.}Algn; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "noFill": obj.NoFill := element.Clone(); pre + "solidFill": obj.SolidFill := element.Clone(); pre + "prstDash": obj.PrstDash := element.Clone(); pre + "miter": obj.Miter := element.Clone(); pre + "headEnd": obj.HeadEnd := element.Clone(); pre + "tailEnd": obj.TailEnd := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Ln.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSolidFill) then {self.}XmlChildSolidFill.ConvertToPoint(); if not ifnil({self.}XmlChildPrstDash) then {self.}XmlChildPrstDash.ConvertToPoint(); if not ifnil({self.}XmlChildMiter) then {self.}XmlChildMiter.ConvertToPoint(); end; function Ln.ReadXmlAttrW(); begin return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value; end; function Ln.WriteXmlAttrW(_value: any); begin if ifnil({self.}XmlAttrW) then begin {self.}XmlAttrW := new OpenXmlAttribute("", "w", nil); attributes_["w"] := {self.}XmlAttrW; end {self.}XmlAttrW.Value := _value; end; function Ln.ReadXmlAttrCap(); begin return ifnil({self.}XmlAttrCap.Value) ? fallback_.XmlAttrCap.Value : {self.}XmlAttrCap.Value; end; function Ln.WriteXmlAttrCap(_value: any); begin if ifnil({self.}XmlAttrCap) then begin {self.}XmlAttrCap := new OpenXmlAttribute("", "cap", nil); attributes_["cap"] := {self.}XmlAttrCap; end {self.}XmlAttrCap.Value := _value; end; function Ln.ReadXmlAttrCmpd(); begin return ifnil({self.}XmlAttrCmpd.Value) ? fallback_.XmlAttrCmpd.Value : {self.}XmlAttrCmpd.Value; end; function Ln.WriteXmlAttrCmpd(_value: any); begin if ifnil({self.}XmlAttrCmpd) then begin {self.}XmlAttrCmpd := new OpenXmlAttribute("", "cmpd", nil); attributes_["cmpd"] := {self.}XmlAttrCmpd; end {self.}XmlAttrCmpd.Value := _value; end; function Ln.ReadXmlAttrAlgn(); begin return ifnil({self.}XmlAttrAlgn.Value) ? fallback_.XmlAttrAlgn.Value : {self.}XmlAttrAlgn.Value; end; function Ln.WriteXmlAttrAlgn(_value: any); begin if ifnil({self.}XmlAttrAlgn) then begin {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); attributes_["algn"] := {self.}XmlAttrAlgn; end {self.}XmlAttrAlgn.Value := _value; end; function Ln.ReadXmlChildNoFill(); begin if tslassigning and (ifnil({self.}XmlChildNoFill) or {self.}XmlChildNoFill.Removed) then begin {self.}XmlChildNoFill := new OpenXmlSimpleType(self, {self.}Prefix, "noFill"); container_.Set({self.}XmlChildNoFill); end return {self.}XmlChildNoFill and not {self.}XmlChildNoFill.Removed ? {self.}XmlChildNoFill : fallback_.NoFill; end; function Ln.WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildNoFill) then {self.}RemoveChild({self.}XmlChildNoFill); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildNoFill := _value; container_.Set({self.}XmlChildNoFill); end else begin raise "Invalid assignment: NoFill expects nil or OpenXmlSimpleType"; end end; function Ln.ReadXmlChildHeadEnd(); begin if tslassigning and (ifnil({self.}XmlChildHeadEnd) or {self.}XmlChildHeadEnd.Removed) then begin {self.}XmlChildHeadEnd := new OpenXmlSimpleType(self, {self.}Prefix, "headEnd"); container_.Set({self.}XmlChildHeadEnd); end return {self.}XmlChildHeadEnd and not {self.}XmlChildHeadEnd.Removed ? {self.}XmlChildHeadEnd : fallback_.HeadEnd; end; function Ln.WriteXmlChildHeadEnd(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildHeadEnd) then {self.}RemoveChild({self.}XmlChildHeadEnd); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildHeadEnd := _value; container_.Set({self.}XmlChildHeadEnd); end else begin raise "Invalid assignment: HeadEnd expects nil or OpenXmlSimpleType"; end end; function Ln.ReadXmlChildTailEnd(); begin if tslassigning and (ifnil({self.}XmlChildTailEnd) or {self.}XmlChildTailEnd.Removed) then begin {self.}XmlChildTailEnd := new OpenXmlSimpleType(self, {self.}Prefix, "tailEnd"); container_.Set({self.}XmlChildTailEnd); end return {self.}XmlChildTailEnd and not {self.}XmlChildTailEnd.Removed ? {self.}XmlChildTailEnd : fallback_.TailEnd; end; function Ln.WriteXmlChildTailEnd(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildTailEnd) then {self.}RemoveChild({self.}XmlChildTailEnd); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildTailEnd := _value; container_.Set({self.}XmlChildTailEnd); end else begin raise "Invalid assignment: TailEnd expects nil or OpenXmlSimpleType"; end end; function Ln.ReadXmlChildSolidFill(): SolidFill; begin if tslassigning and (ifnil({self.}XmlChildSolidFill) or {self.}XmlChildSolidFill.Removed) then begin {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); container_.Set({self.}XmlChildSolidFill); end return {self.}XmlChildSolidFill and not {self.}XmlChildSolidFill.Removed ? {self.}XmlChildSolidFill : fallback_.SolidFill; end; function Ln.WriteXmlChildSolidFill(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSolidFill) then {self.}RemoveChild({self.}XmlChildSolidFill); end else if v is class(SolidFill) then begin v.Parent := self; {self.}XmlChildSolidFill := v; container_.Set({self.}XmlChildSolidFill); end else begin raise "Invalid assignment: SolidFill expects SolidFill or nil"; end end; function Ln.ReadXmlChildPrstDash(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildPrstDash) or {self.}XmlChildPrstDash.Removed) then begin {self.}XmlChildPrstDash := new PureVal(self, {self.}Prefix, "prstDash"); container_.Set({self.}XmlChildPrstDash); end return {self.}XmlChildPrstDash and not {self.}XmlChildPrstDash.Removed ? {self.}XmlChildPrstDash : fallback_.PrstDash; end; function Ln.WriteXmlChildPrstDash(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPrstDash) then {self.}RemoveChild({self.}XmlChildPrstDash); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildPrstDash := v; container_.Set({self.}XmlChildPrstDash); end else begin raise "Invalid assignment: PrstDash expects PureVal or nil"; end end; function Ln.ReadXmlChildMiter(): Miter; begin if tslassigning and (ifnil({self.}XmlChildMiter) or {self.}XmlChildMiter.Removed) then begin {self.}XmlChildMiter := new Miter(self, {self.}Prefix, "miter"); container_.Set({self.}XmlChildMiter); end return {self.}XmlChildMiter and not {self.}XmlChildMiter.Removed ? {self.}XmlChildMiter : fallback_.Miter; end; function Ln.WriteXmlChildMiter(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildMiter) then {self.}RemoveChild({self.}XmlChildMiter); end else if v is class(Miter) then begin v.Parent := self; {self.}XmlChildMiter := v; container_.Set({self.}XmlChildMiter); end else begin raise "Invalid assignment: Miter expects Miter or nil"; end end; function Miter.create();overload; begin {self.}create(nil, "a", "miter"); end; function Miter.create(_node: XmlNode);overload; begin inherited create(_node); end; function Miter.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited Copy(_obj); if not ifnil(_obj.Lim) then {self.}Lim := _obj.Lim; tslassigning := tslassigning_backup; end; function Miter.Clone(): Miter;override; begin obj := new Miter(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Lim) then obj.Lim := {self.}Lim; return obj; end; function Miter.ConvertToPoint();override; begin end; function Miter.ReadXmlAttrLim(); begin return ifnil({self.}XmlAttrLim.Value) ? fallback_.XmlAttrLim.Value : {self.}XmlAttrLim.Value; end; function Miter.WriteXmlAttrLim(_value: any); begin if ifnil({self.}XmlAttrLim) then begin {self.}XmlAttrLim := new OpenXmlAttribute("", "lim", nil); attributes_["lim"] := {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 inherited create(_node); end; function Xfrm.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited create(_parent, _prefix, _local_name); end; function Xfrm.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "filpH": makeweakref(thisFunction(WriteXmlAttrFlipH)), "filpV": makeweakref(thisFunction(WriteXmlAttrFlipV)), "rot": makeweakref(thisFunction(WriteXmlAttrRot)), ); 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; inherited Copy(_obj); if not ifnil(_obj.FlipH) then {self.}FlipH := _obj.FlipH; if not ifnil(_obj.FlipV) then {self.}FlipV := _obj.FlipV; if not ifnil(_obj.Rot) then {self.}Rot := _obj.Rot; 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.Clone(): Xfrm;override; begin obj := new Xfrm(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}FlipH) then obj.FlipH := {self.}FlipH; if not ifnil({self.}FlipV) then obj.FlipV := {self.}FlipV; if not ifnil({self.}Rot) then obj.Rot := {self.}Rot; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "off": obj.Off := element.Clone(); pre + "ext": obj.Ext := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Xfrm.ConvertToPoint();override; begin if not ifnil({self.}XmlChildOff) then {self.}XmlChildOff.ConvertToPoint(); if not ifnil({self.}XmlChildExt) then {self.}XmlChildExt.ConvertToPoint(); end; function Xfrm.ReadXmlAttrFlipH(); begin return ifnil({self.}XmlAttrFlipH.Value) ? fallback_.XmlAttrFlipH.Value : {self.}XmlAttrFlipH.Value; end; function Xfrm.WriteXmlAttrFlipH(_value: any); begin if ifnil({self.}XmlAttrFlipH) then begin {self.}XmlAttrFlipH := new OpenXmlAttribute("", "filpH", nil); attributes_["filpH"] := {self.}XmlAttrFlipH; end {self.}XmlAttrFlipH.Value := _value; end; function Xfrm.ReadXmlAttrFlipV(); begin return ifnil({self.}XmlAttrFlipV.Value) ? fallback_.XmlAttrFlipV.Value : {self.}XmlAttrFlipV.Value; end; function Xfrm.WriteXmlAttrFlipV(_value: any); begin if ifnil({self.}XmlAttrFlipV) then begin {self.}XmlAttrFlipV := new OpenXmlAttribute("", "filpV", nil); attributes_["filpV"] := {self.}XmlAttrFlipV; end {self.}XmlAttrFlipV.Value := _value; end; function Xfrm.ReadXmlAttrRot(); begin return ifnil({self.}XmlAttrRot.Value) ? fallback_.XmlAttrRot.Value : {self.}XmlAttrRot.Value; end; function Xfrm.WriteXmlAttrRot(_value: any); begin if ifnil({self.}XmlAttrRot) then begin {self.}XmlAttrRot := new OpenXmlAttribute("", "rot", nil); attributes_["rot"] := {self.}XmlAttrRot; end {self.}XmlAttrRot.Value := _value; end; function Xfrm.ReadXmlChildOff(): XY; begin if tslassigning and (ifnil({self.}XmlChildOff) or {self.}XmlChildOff.Removed) then begin {self.}XmlChildOff := new XY(self, {self.}Prefix, "off"); container_.Set({self.}XmlChildOff); end return {self.}XmlChildOff and not {self.}XmlChildOff.Removed ? {self.}XmlChildOff : fallback_.Off; end; function Xfrm.WriteXmlChildOff(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildOff) then {self.}RemoveChild({self.}XmlChildOff); end else if v is class(XY) then begin v.Parent := self; {self.}XmlChildOff := v; container_.Set({self.}XmlChildOff); end else begin raise "Invalid assignment: Off expects XY or nil"; end end; function Xfrm.ReadXmlChildExt(): CXY; begin if tslassigning and (ifnil({self.}XmlChildExt) or {self.}XmlChildExt.Removed) then begin {self.}XmlChildExt := new CXY(self, {self.}Prefix, "ext"); container_.Set({self.}XmlChildExt); end return {self.}XmlChildExt and not {self.}XmlChildExt.Removed ? {self.}XmlChildExt : fallback_.Ext; end; function Xfrm.WriteXmlChildExt(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExt) then {self.}RemoveChild({self.}XmlChildExt); end else if v is class(CXY) then begin v.Parent := self; {self.}XmlChildExt := v; container_.Set({self.}XmlChildExt); end else begin raise "Invalid assignment: Ext expects CXY or nil"; end end; function XY.create();overload; begin {self.}create(nil, "", ""); end; function XY.create(_node: XmlNode);overload; begin inherited create(_node); end; function XY.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): XY;override; begin obj := new XY(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}X) then obj.X := {self.}X; if not ifnil({self.}Y) then obj.Y := {self.}Y; return obj; end; function XY.ConvertToPoint();override; begin if not ifnil({self.}XmlAttrX) then {self.}X := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrX.Value); if not ifnil({self.}XmlAttrY) then {self.}Y := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrY.Value); end; function XY.ReadXmlAttrX(); begin return ifnil({self.}XmlAttrX.Value) ? fallback_.XmlAttrX.Value : {self.}XmlAttrX.Value; end; function XY.WriteXmlAttrX(_value: any); begin if ifnil({self.}XmlAttrX) then begin {self.}XmlAttrX := new OpenXmlAttribute("", "x", nil); attributes_["x"] := {self.}XmlAttrX; end {self.}XmlAttrX.Value := _value; end; function XY.ReadXmlAttrY(); begin return ifnil({self.}XmlAttrY.Value) ? fallback_.XmlAttrY.Value : {self.}XmlAttrY.Value; end; function XY.WriteXmlAttrY(_value: any); begin if ifnil({self.}XmlAttrY) then begin {self.}XmlAttrY := new OpenXmlAttribute("", "y", nil); attributes_["y"] := {self.}XmlAttrY; end {self.}XmlAttrY.Value := _value; end; function CXY.create();overload; begin {self.}create(nil, "", ""); end; function CXY.create(_node: XmlNode);overload; begin inherited create(_node); end; function CXY.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): CXY;override; begin obj := new CXY(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Cx) then obj.Cx := {self.}Cx; if not ifnil({self.}Cy) then obj.Cy := {self.}Cy; return obj; end; function CXY.ConvertToPoint();override; begin if not ifnil({self.}XmlAttrCx) then {self.}Cx := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrCx.Value); if not ifnil({self.}XmlAttrCy) then {self.}Cy := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrCy.Value); end; function CXY.ReadXmlAttrCx(); begin return ifnil({self.}XmlAttrCx.Value) ? fallback_.XmlAttrCx.Value : {self.}XmlAttrCx.Value; end; function CXY.WriteXmlAttrCx(_value: any); begin if ifnil({self.}XmlAttrCx) then begin {self.}XmlAttrCx := new OpenXmlAttribute("", "cx", nil); attributes_["cx"] := {self.}XmlAttrCx; end {self.}XmlAttrCx.Value := _value; end; function CXY.ReadXmlAttrCy(); begin return ifnil({self.}XmlAttrCy.Value) ? fallback_.XmlAttrCy.Value : {self.}XmlAttrCy.Value; end; function CXY.WriteXmlAttrCy(_value: any); begin if ifnil({self.}XmlAttrCy) then begin {self.}XmlAttrCy := new OpenXmlAttribute("", "cy", nil); attributes_["cy"] := {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 inherited create(_node); end; function PrstGeom.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): PrstGeom;override; begin obj := new PrstGeom(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}Prst) then obj.Prst := {self.}Prst; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "avLst": obj.AvLst := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function PrstGeom.ConvertToPoint();override; begin if not ifnil({self.}XmlChildAvLst) then {self.}XmlChildAvLst.ConvertToPoint(); end; function PrstGeom.ReadXmlAttrPrst(); begin return ifnil({self.}XmlAttrPrst.Value) ? fallback_.XmlAttrPrst.Value : {self.}XmlAttrPrst.Value; end; function PrstGeom.WriteXmlAttrPrst(_value: any); begin if ifnil({self.}XmlAttrPrst) then begin {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); attributes_["prst"] := {self.}XmlAttrPrst; end {self.}XmlAttrPrst.Value := _value; end; function PrstGeom.ReadXmlChildAvLst(): PureVal; begin if tslassigning and (ifnil({self.}XmlChildAvLst) or {self.}XmlChildAvLst.Removed) then begin {self.}XmlChildAvLst := new PureVal(self, {self.}Prefix, "avLst"); container_.Set({self.}XmlChildAvLst); end return {self.}XmlChildAvLst and not {self.}XmlChildAvLst.Removed ? {self.}XmlChildAvLst : fallback_.AvLst; end; function PrstGeom.WriteXmlChildAvLst(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildAvLst) then {self.}RemoveChild({self.}XmlChildAvLst); end else if v is class(PureVal) then begin v.Parent := self; {self.}XmlChildAvLst := v; container_.Set({self.}XmlChildAvLst); end else begin raise "Invalid assignment: AvLst expects PureVal or nil"; end end; function Anchor.create();overload; begin {self.}create(nil, "wp", "anchor"); end; function Anchor.create(_node: XmlNode);overload; begin inherited create(_node); end; function Anchor.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): Anchor;override; begin obj := new Anchor(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}DistT) then obj.DistT := {self.}DistT; if not ifnil({self.}DistB) then obj.DistB := {self.}DistB; if not ifnil({self.}DistL) then obj.DistL := {self.}DistL; if not ifnil({self.}DistR) then obj.DistR := {self.}DistR; if not ifnil({self.}SimplePos) then obj.SimplePos := {self.}SimplePos; if not ifnil({self.}RelativeHeight) then obj.RelativeHeight := {self.}RelativeHeight; if not ifnil({self.}BehindDoc) then obj.BehindDoc := {self.}BehindDoc; if not ifnil({self.}Locked) then obj.Locked := {self.}Locked; if not ifnil({self.}Hidden) then obj.Hidden := {self.}Hidden; if not ifnil({self.}LayoutInCell) then obj.LayoutInCell := {self.}LayoutInCell; if not ifnil({self.}AllowOverlap) then obj.AllowOverlap := {self.}AllowOverlap; if not ifnil({self.}AnchorId) then obj.AnchorId := {self.}AnchorId; if not ifnil({self.}EditId) then obj.EditId := {self.}EditId; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "simplePos": obj.SimplePos := element.Clone(); pre + "positionH": obj.PositionH := element.Clone(); pre + "positionV": obj.PositionV := element.Clone(); pre + "extent": obj.Extent := element.Clone(); pre + "effectExtent": obj.EffectExtent := element.Clone(); pre + "wrapNone": obj.WrapNone := element.Clone(); pre + "docPr": obj.DocPr := element.Clone(); pre + "cNvGraphicFramePr": obj.CNvGraphicFramePr := element.Clone(); "a:graphic": obj.Graphic := element.Clone(); "wp14:sizeRelH": obj.SizeRelH := element.Clone(); "wp14:sizeRelV": obj.SizeRelV := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function Anchor.ConvertToPoint();override; begin if not ifnil({self.}XmlChildSimplePos) then {self.}XmlChildSimplePos.ConvertToPoint(); if not ifnil({self.}XmlChildPositionH) then {self.}XmlChildPositionH.ConvertToPoint(); if not ifnil({self.}XmlChildPositionV) then {self.}XmlChildPositionV.ConvertToPoint(); if not ifnil({self.}XmlChildExtent) then {self.}XmlChildExtent.ConvertToPoint(); if not ifnil({self.}XmlChildEffectExtent) then {self.}XmlChildEffectExtent.ConvertToPoint(); if not ifnil({self.}XmlChildDocPr) then {self.}XmlChildDocPr.ConvertToPoint(); if not ifnil({self.}XmlChildCNvGraphicFramePr) then {self.}XmlChildCNvGraphicFramePr.ConvertToPoint(); if not ifnil({self.}XmlChildGraphic) then {self.}XmlChildGraphic.ConvertToPoint(); if not ifnil({self.}XmlChildSizeRelH) then {self.}XmlChildSizeRelH.ConvertToPoint(); if not ifnil({self.}XmlChildSizeRelV) then {self.}XmlChildSizeRelV.ConvertToPoint(); end; function Anchor.ReadXmlAttrDistT(); begin return ifnil({self.}XmlAttrDistT.Value) ? fallback_.XmlAttrDistT.Value : {self.}XmlAttrDistT.Value; end; function Anchor.WriteXmlAttrDistT(_value: any); begin if ifnil({self.}XmlAttrDistT) then begin {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); attributes_["distT"] := {self.}XmlAttrDistT; end {self.}XmlAttrDistT.Value := _value; end; function Anchor.ReadXmlAttrDistB(); begin return ifnil({self.}XmlAttrDistB.Value) ? fallback_.XmlAttrDistB.Value : {self.}XmlAttrDistB.Value; end; function Anchor.WriteXmlAttrDistB(_value: any); begin if ifnil({self.}XmlAttrDistB) then begin {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); attributes_["distB"] := {self.}XmlAttrDistB; end {self.}XmlAttrDistB.Value := _value; end; function Anchor.ReadXmlAttrDistL(); begin return ifnil({self.}XmlAttrDistL.Value) ? fallback_.XmlAttrDistL.Value : {self.}XmlAttrDistL.Value; end; function Anchor.WriteXmlAttrDistL(_value: any); begin if ifnil({self.}XmlAttrDistL) then begin {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); attributes_["distL"] := {self.}XmlAttrDistL; end {self.}XmlAttrDistL.Value := _value; end; function Anchor.ReadXmlAttrDistR(); begin return ifnil({self.}XmlAttrDistR.Value) ? fallback_.XmlAttrDistR.Value : {self.}XmlAttrDistR.Value; end; function Anchor.WriteXmlAttrDistR(_value: any); begin if ifnil({self.}XmlAttrDistR) then begin {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); attributes_["distR"] := {self.}XmlAttrDistR; end {self.}XmlAttrDistR.Value := _value; end; function Anchor.ReadXmlAttrSimplePos(); begin return ifnil({self.}XmlAttrSimplePos.Value) ? fallback_.XmlAttrSimplePos.Value : {self.}XmlAttrSimplePos.Value; end; function Anchor.WriteXmlAttrSimplePos(_value: any); begin if ifnil({self.}XmlAttrSimplePos) then begin {self.}XmlAttrSimplePos := new OpenXmlAttribute("", "simplePos", nil); attributes_["simplePos"] := {self.}XmlAttrSimplePos; end {self.}XmlAttrSimplePos.Value := _value; end; function Anchor.ReadXmlAttrRelativeHeight(); begin return ifnil({self.}XmlAttrRelativeHeight.Value) ? fallback_.XmlAttrRelativeHeight.Value : {self.}XmlAttrRelativeHeight.Value; end; function Anchor.WriteXmlAttrRelativeHeight(_value: any); begin if ifnil({self.}XmlAttrRelativeHeight) then begin {self.}XmlAttrRelativeHeight := new OpenXmlAttribute("", "relativeHeight", nil); attributes_["relativeHeight"] := {self.}XmlAttrRelativeHeight; end {self.}XmlAttrRelativeHeight.Value := _value; end; function Anchor.ReadXmlAttrBehindDoc(); begin return ifnil({self.}XmlAttrBehindDoc.Value) ? fallback_.XmlAttrBehindDoc.Value : {self.}XmlAttrBehindDoc.Value; end; function Anchor.WriteXmlAttrBehindDoc(_value: any); begin if ifnil({self.}XmlAttrBehindDoc) then begin {self.}XmlAttrBehindDoc := new OpenXmlAttribute("", "behindDoc", nil); attributes_["behindDoc"] := {self.}XmlAttrBehindDoc; end {self.}XmlAttrBehindDoc.Value := _value; end; function Anchor.ReadXmlAttrLocked(); begin return ifnil({self.}XmlAttrLocked.Value) ? fallback_.XmlAttrLocked.Value : {self.}XmlAttrLocked.Value; end; function Anchor.WriteXmlAttrLocked(_value: any); begin if ifnil({self.}XmlAttrLocked) then begin {self.}XmlAttrLocked := new OpenXmlAttribute("", "locked", nil); attributes_["locked"] := {self.}XmlAttrLocked; end {self.}XmlAttrLocked.Value := _value; end; function Anchor.ReadXmlAttrHidden(); begin return ifnil({self.}XmlAttrHidden.Value) ? fallback_.XmlAttrHidden.Value : {self.}XmlAttrHidden.Value; end; function Anchor.WriteXmlAttrHidden(_value: any); begin if ifnil({self.}XmlAttrHidden) then begin {self.}XmlAttrHidden := new OpenXmlAttribute("", "hidden", nil); attributes_["hidden"] := {self.}XmlAttrHidden; end {self.}XmlAttrHidden.Value := _value; end; function Anchor.ReadXmlAttrLayoutInCell(); begin return ifnil({self.}XmlAttrLayoutInCell.Value) ? fallback_.XmlAttrLayoutInCell.Value : {self.}XmlAttrLayoutInCell.Value; end; function Anchor.WriteXmlAttrLayoutInCell(_value: any); begin if ifnil({self.}XmlAttrLayoutInCell) then begin {self.}XmlAttrLayoutInCell := new OpenXmlAttribute("", "layoutInCell", nil); attributes_["layoutInCell"] := {self.}XmlAttrLayoutInCell; end {self.}XmlAttrLayoutInCell.Value := _value; end; function Anchor.ReadXmlAttrAllowOverlap(); begin return ifnil({self.}XmlAttrAllowOverlap.Value) ? fallback_.XmlAttrAllowOverlap.Value : {self.}XmlAttrAllowOverlap.Value; end; function Anchor.WriteXmlAttrAllowOverlap(_value: any); begin if ifnil({self.}XmlAttrAllowOverlap) then begin {self.}XmlAttrAllowOverlap := new OpenXmlAttribute("", "allowOverlap", nil); attributes_["allowOverlap"] := {self.}XmlAttrAllowOverlap; end {self.}XmlAttrAllowOverlap.Value := _value; end; function Anchor.ReadXmlAttrAnchorId(); begin return ifnil({self.}XmlAttrAnchorId.Value) ? fallback_.XmlAttrAnchorId.Value : {self.}XmlAttrAnchorId.Value; end; function Anchor.WriteXmlAttrAnchorId(_value: any); begin if ifnil({self.}XmlAttrAnchorId) then begin {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); attributes_["wp14:anchorId"] := {self.}XmlAttrAnchorId; end {self.}XmlAttrAnchorId.Value := _value; end; function Anchor.ReadXmlAttrEditId(); begin return ifnil({self.}XmlAttrEditId.Value) ? fallback_.XmlAttrEditId.Value : {self.}XmlAttrEditId.Value; end; function Anchor.WriteXmlAttrEditId(_value: any); begin if ifnil({self.}XmlAttrEditId) then begin {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); attributes_["wp14:editId"] := {self.}XmlAttrEditId; end {self.}XmlAttrEditId.Value := _value; end; function Anchor.ReadXmlChildWrapNone(); begin if tslassigning and (ifnil({self.}XmlChildWrapNone) or {self.}XmlChildWrapNone.Removed) then begin {self.}XmlChildWrapNone := new OpenXmlSimpleType(self, {self.}Prefix, "wrapNone"); container_.Set({self.}XmlChildWrapNone); end return {self.}XmlChildWrapNone and not {self.}XmlChildWrapNone.Removed ? {self.}XmlChildWrapNone : fallback_.WrapNone; end; function Anchor.WriteXmlChildWrapNone(_value: nil_or_OpenXmlSimpleType); begin if ifnil(_value) then begin if ifObj({self.}XmlChildWrapNone) then {self.}RemoveChild({self.}XmlChildWrapNone); end else if _value is class(OpenXmlSimpleType) then begin _value.Parent := self; {self.}XmlChildWrapNone := _value; container_.Set({self.}XmlChildWrapNone); end else begin raise "Invalid assignment: WrapNone expects nil or OpenXmlSimpleType"; end end; function Anchor.ReadXmlChildSimplePos(): XY; begin if tslassigning and (ifnil({self.}XmlChildSimplePos) or {self.}XmlChildSimplePos.Removed) then begin {self.}XmlChildSimplePos := new XY(self, {self.}Prefix, "simplePos"); container_.Set({self.}XmlChildSimplePos); end return {self.}XmlChildSimplePos and not {self.}XmlChildSimplePos.Removed ? {self.}XmlChildSimplePos : fallback_.SimplePos; end; function Anchor.WriteXmlChildSimplePos(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSimplePos) then {self.}RemoveChild({self.}XmlChildSimplePos); end else if v is class(XY) then begin v.Parent := self; {self.}XmlChildSimplePos := v; container_.Set({self.}XmlChildSimplePos); end else begin raise "Invalid assignment: SimplePos expects XY or nil"; end end; function Anchor.ReadXmlChildPositionH(): PositionH; begin if tslassigning and (ifnil({self.}XmlChildPositionH) or {self.}XmlChildPositionH.Removed) then begin {self.}XmlChildPositionH := new PositionH(self, {self.}Prefix, "positionH"); container_.Set({self.}XmlChildPositionH); end return {self.}XmlChildPositionH and not {self.}XmlChildPositionH.Removed ? {self.}XmlChildPositionH : fallback_.PositionH; end; function Anchor.WriteXmlChildPositionH(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPositionH) then {self.}RemoveChild({self.}XmlChildPositionH); end else if v is class(PositionH) then begin v.Parent := self; {self.}XmlChildPositionH := v; container_.Set({self.}XmlChildPositionH); end else begin raise "Invalid assignment: PositionH expects PositionH or nil"; end end; function Anchor.ReadXmlChildPositionV(): PositionV; begin if tslassigning and (ifnil({self.}XmlChildPositionV) or {self.}XmlChildPositionV.Removed) then begin {self.}XmlChildPositionV := new PositionV(self, {self.}Prefix, "positionV"); container_.Set({self.}XmlChildPositionV); end return {self.}XmlChildPositionV and not {self.}XmlChildPositionV.Removed ? {self.}XmlChildPositionV : fallback_.PositionV; end; function Anchor.WriteXmlChildPositionV(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildPositionV) then {self.}RemoveChild({self.}XmlChildPositionV); end else if v is class(PositionV) then begin v.Parent := self; {self.}XmlChildPositionV := v; container_.Set({self.}XmlChildPositionV); end else begin raise "Invalid assignment: PositionV expects PositionV or nil"; end end; function Anchor.ReadXmlChildExtent(): CXY; begin if tslassigning and (ifnil({self.}XmlChildExtent) or {self.}XmlChildExtent.Removed) then begin {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); container_.Set({self.}XmlChildExtent); end return {self.}XmlChildExtent and not {self.}XmlChildExtent.Removed ? {self.}XmlChildExtent : fallback_.Extent; end; function Anchor.WriteXmlChildExtent(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildExtent) then {self.}RemoveChild({self.}XmlChildExtent); end else if v is class(CXY) then begin v.Parent := self; {self.}XmlChildExtent := v; container_.Set({self.}XmlChildExtent); end else begin raise "Invalid assignment: Extent expects CXY or nil"; end end; function Anchor.ReadXmlChildEffectExtent(): EffectExtent; begin if tslassigning and (ifnil({self.}XmlChildEffectExtent) or {self.}XmlChildEffectExtent.Removed) then begin {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); container_.Set({self.}XmlChildEffectExtent); end return {self.}XmlChildEffectExtent and not {self.}XmlChildEffectExtent.Removed ? {self.}XmlChildEffectExtent : fallback_.EffectExtent; end; function Anchor.WriteXmlChildEffectExtent(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildEffectExtent) then {self.}RemoveChild({self.}XmlChildEffectExtent); end else if v is class(EffectExtent) then begin v.Parent := self; {self.}XmlChildEffectExtent := v; container_.Set({self.}XmlChildEffectExtent); end else begin raise "Invalid assignment: EffectExtent expects EffectExtent or nil"; end end; function Anchor.ReadXmlChildDocPr(): DocPr; begin if tslassigning and (ifnil({self.}XmlChildDocPr) or {self.}XmlChildDocPr.Removed) then begin {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); container_.Set({self.}XmlChildDocPr); end return {self.}XmlChildDocPr and not {self.}XmlChildDocPr.Removed ? {self.}XmlChildDocPr : fallback_.DocPr; end; function Anchor.WriteXmlChildDocPr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildDocPr) then {self.}RemoveChild({self.}XmlChildDocPr); end else if v is class(DocPr) then begin v.Parent := self; {self.}XmlChildDocPr := v; container_.Set({self.}XmlChildDocPr); end else begin raise "Invalid assignment: DocPr expects DocPr or nil"; end end; function Anchor.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; begin if tslassigning and (ifnil({self.}XmlChildCNvGraphicFramePr) or {self.}XmlChildCNvGraphicFramePr.Removed) then begin {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); container_.Set({self.}XmlChildCNvGraphicFramePr); end return {self.}XmlChildCNvGraphicFramePr and not {self.}XmlChildCNvGraphicFramePr.Removed ? {self.}XmlChildCNvGraphicFramePr : fallback_.CNvGraphicFramePr; end; function Anchor.WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildCNvGraphicFramePr) then {self.}RemoveChild({self.}XmlChildCNvGraphicFramePr); end else if v is class(CNvGraphicFramePr) then begin v.Parent := self; {self.}XmlChildCNvGraphicFramePr := v; container_.Set({self.}XmlChildCNvGraphicFramePr); end else begin raise "Invalid assignment: CNvGraphicFramePr expects CNvGraphicFramePr or nil"; end end; function Anchor.ReadXmlChildGraphic(): Graphic; begin if tslassigning and (ifnil({self.}XmlChildGraphic) or {self.}XmlChildGraphic.Removed) then begin {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); container_.Set({self.}XmlChildGraphic); end return {self.}XmlChildGraphic and not {self.}XmlChildGraphic.Removed ? {self.}XmlChildGraphic : fallback_.Graphic; end; function Anchor.WriteXmlChildGraphic(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildGraphic) then {self.}RemoveChild({self.}XmlChildGraphic); end else if v is class(Graphic) then begin v.Parent := self; {self.}XmlChildGraphic := v; container_.Set({self.}XmlChildGraphic); end else begin raise "Invalid assignment: Graphic expects Graphic or nil"; end end; function Anchor.ReadXmlChildSizeRelH(): SizeRelH; begin if tslassigning and (ifnil({self.}XmlChildSizeRelH) or {self.}XmlChildSizeRelH.Removed) then begin {self.}XmlChildSizeRelH := new SizeRelH(self, "wp14", "sizeRelH"); container_.Set({self.}XmlChildSizeRelH); end return {self.}XmlChildSizeRelH and not {self.}XmlChildSizeRelH.Removed ? {self.}XmlChildSizeRelH : fallback_.SizeRelH; end; function Anchor.WriteXmlChildSizeRelH(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSizeRelH) then {self.}RemoveChild({self.}XmlChildSizeRelH); end else if v is class(SizeRelH) then begin v.Parent := self; {self.}XmlChildSizeRelH := v; container_.Set({self.}XmlChildSizeRelH); end else begin raise "Invalid assignment: SizeRelH expects SizeRelH or nil"; end end; function Anchor.ReadXmlChildSizeRelV(): SizeRelV; begin if tslassigning and (ifnil({self.}XmlChildSizeRelV) or {self.}XmlChildSizeRelV.Removed) then begin {self.}XmlChildSizeRelV := new SizeRelV(self, "wp14", "sizeRelV"); container_.Set({self.}XmlChildSizeRelV); end return {self.}XmlChildSizeRelV and not {self.}XmlChildSizeRelV.Removed ? {self.}XmlChildSizeRelV : fallback_.SizeRelV; end; function Anchor.WriteXmlChildSizeRelV(_p1: any; _p2: any); begin v := realparamcount = 1 ? _p1 : _p2; if ifnil(v) then begin if ifObj({self.}XmlChildSizeRelV) then {self.}RemoveChild({self.}XmlChildSizeRelV); end else if v is class(SizeRelV) then begin v.Parent := self; {self.}XmlChildSizeRelV := v; container_.Set({self.}XmlChildSizeRelV); end else begin raise "Invalid assignment: SizeRelV expects SizeRelV or nil"; end end; function PositionV.create();overload; begin {self.}create(nil, "wp", "positionV"); end; function PositionV.create(_node: XmlNode);overload; begin inherited create(_node); end; function PositionV.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): PositionV;override; begin obj := new PositionV(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}RelativeFrom) then obj.RelativeFrom := {self.}RelativeFrom; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "posOffset": obj.PosOffset := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function PositionV.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPosOffset) then {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints({self.}PosOffset.Text); end; function PositionV.ReadXmlAttrRelativeFrom(); begin return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value; end; function PositionV.WriteXmlAttrRelativeFrom(_value: any); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function PositionV.ReadXmlChildPosOffset(); begin if tslassigning and (ifnil({self.}XmlChildPosOffset) or {self.}XmlChildPosOffset.Removed) then begin {self.}XmlChildPosOffset := new OpenXmlTextElement(self, {self.}Prefix, "posOffset"); container_.Set({self.}XmlChildPosOffset); end return {self.}XmlChildPosOffset and not {self.}XmlChildPosOffset.Removed ? {self.}XmlChildPosOffset : fallback_.PosOffset; end; function PositionV.WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildPosOffset) then {self.}RemoveChild({self.}XmlChildPosOffset); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildPosOffset := _value; container_.Set({self.}XmlChildPosOffset); end else begin raise "Invalid assignment: PosOffset expects nil or OpenXmlTextElement"; end end; function PositionH.create();overload; begin {self.}create(nil, "wp", "positionH"); end; function PositionH.create(_node: XmlNode);overload; begin inherited create(_node); end; function PositionH.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): PositionH;override; begin obj := new PositionH(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}RelativeFrom) then obj.RelativeFrom := {self.}RelativeFrom; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "posOffset": obj.PosOffset := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function PositionH.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPosOffset) then {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints({self.}PosOffset.Text); end; function PositionH.ReadXmlAttrRelativeFrom(); begin return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value; end; function PositionH.WriteXmlAttrRelativeFrom(_value: any); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function PositionH.ReadXmlChildPosOffset(); begin if tslassigning and (ifnil({self.}XmlChildPosOffset) or {self.}XmlChildPosOffset.Removed) then begin {self.}XmlChildPosOffset := new OpenXmlTextElement(self, {self.}Prefix, "posOffset"); container_.Set({self.}XmlChildPosOffset); end return {self.}XmlChildPosOffset and not {self.}XmlChildPosOffset.Removed ? {self.}XmlChildPosOffset : fallback_.PosOffset; end; function PositionH.WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildPosOffset) then {self.}RemoveChild({self.}XmlChildPosOffset); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildPosOffset := _value; container_.Set({self.}XmlChildPosOffset); end else begin raise "Invalid assignment: PosOffset expects nil or OpenXmlTextElement"; end end; function SizeRelH.create();overload; begin {self.}create(nil, "wp14", "sizeRelH"); end; function SizeRelH.create(_node: XmlNode);overload; begin inherited create(_node); end; function SizeRelH.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): SizeRelH;override; begin obj := new SizeRelH(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}RelativeFrom) then obj.RelativeFrom := {self.}RelativeFrom; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "pctWidth": obj.PctWidth := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function SizeRelH.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPctWidth) then {self.}PctWidth.Text := TSSafeUnitConverter.EmusToPoints({self.}PctWidth.Text); end; function SizeRelH.ReadXmlAttrRelativeFrom(); begin return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value; end; function SizeRelH.WriteXmlAttrRelativeFrom(_value: any); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function SizeRelH.ReadXmlChildPctWidth(); begin if tslassigning and (ifnil({self.}XmlChildPctWidth) or {self.}XmlChildPctWidth.Removed) then begin {self.}XmlChildPctWidth := new OpenXmlTextElement(self, {self.}Prefix, "pctWidth"); container_.Set({self.}XmlChildPctWidth); end return {self.}XmlChildPctWidth and not {self.}XmlChildPctWidth.Removed ? {self.}XmlChildPctWidth : fallback_.PctWidth; end; function SizeRelH.WriteXmlChildPctWidth(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildPctWidth) then {self.}RemoveChild({self.}XmlChildPctWidth); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildPctWidth := _value; container_.Set({self.}XmlChildPctWidth); end else begin raise "Invalid assignment: PctWidth expects nil or OpenXmlTextElement"; end end; function SizeRelV.create();overload; begin {self.}create(nil, "wp14", "sizeRelV"); end; function SizeRelV.create(_node: XmlNode);overload; begin inherited create(_node); end; function SizeRelV.create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); inherited 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; inherited 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.Clone(): SizeRelV;override; begin obj := new SizeRelV(nil, {self.}Prefix, {self.}LocalName); if not ifnil({self.}RelativeFrom) then obj.RelativeFrom := {self.}RelativeFrom; pre := {self.}Prefix ? {self.}Prefix + ":" : ""; elements := {self.}Elements(); for _,element in elements do begin case element.ElementName of pre + "pctHeight": obj.PctHeight := element.Clone(); else obj.AppendChild(element.Clone()); end end return obj; end; function SizeRelV.ConvertToPoint();override; begin if not ifnil({self.}XmlChildPctHeight) then {self.}PctHeight.Text := TSSafeUnitConverter.EmusToPoints({self.}PctHeight.Text); end; function SizeRelV.ReadXmlAttrRelativeFrom(); begin return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value; end; function SizeRelV.WriteXmlAttrRelativeFrom(_value: any); begin if ifnil({self.}XmlAttrRelativeFrom) then begin {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom; end {self.}XmlAttrRelativeFrom.Value := _value; end; function SizeRelV.ReadXmlChildPctHeight(); begin if tslassigning and (ifnil({self.}XmlChildPctHeight) or {self.}XmlChildPctHeight.Removed) then begin {self.}XmlChildPctHeight := new OpenXmlTextElement(self, {self.}Prefix, "pctHeight"); container_.Set({self.}XmlChildPctHeight); end return {self.}XmlChildPctHeight and not {self.}XmlChildPctHeight.Removed ? {self.}XmlChildPctHeight : fallback_.PctHeight; end; function SizeRelV.WriteXmlChildPctHeight(_value: nil_or_OpenXmlTextElement); begin if ifnil(_value) then begin if ifObj({self.}XmlChildPctHeight) then {self.}RemoveChild({self.}XmlChildPctHeight); end else if _value is class(OpenXmlTextElement) then begin _value.Parent := self; {self.}XmlChildPctHeight := _value; container_.Set({self.}XmlChildPctHeight); end else begin raise "Invalid assignment: PctHeight expects nil or OpenXmlTextElement"; end end; end.