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