18259 lines
573 KiB
Plaintext
18259 lines
573 KiB
Plaintext
unit DrawingML;
|
|
interface
|
|
uses TSSafeUnitConverter, DocxML;
|
|
|
|
type Theme = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Theme);override;
|
|
function Clone(): Theme;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
|
|
// simple_type property
|
|
property ObjectDefaults read ReadXmlChildObjectDefaults write WriteXmlChildObjectDefaults;
|
|
property ExtraClrSchemeLst read ReadXmlChildExtraClrSchemeLst write WriteXmlChildExtraClrSchemeLst;
|
|
function ReadXmlChildObjectDefaults(): OpenXmlSimpleType;
|
|
function WriteXmlChildObjectDefaults(_value: nil_or_OpenXmlSimpleType);
|
|
function ReadXmlChildExtraClrSchemeLst(): OpenXmlSimpleType;
|
|
function WriteXmlChildExtraClrSchemeLst(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property ThemeElements read ReadXmlChildThemeElements write WriteXmlChildThemeElements;
|
|
property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst;
|
|
function ReadXmlChildThemeElements(): ThemeElements;
|
|
function WriteXmlChildThemeElements(_p1: any; _p2: any);
|
|
function ReadXmlChildExtLst(): ExtLst;
|
|
function WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrName: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildThemeElements: ThemeElements;
|
|
XmlChildObjectDefaults: OpenXmlSimpleType;
|
|
XmlChildExtraClrSchemeLst: OpenXmlSimpleType;
|
|
XmlChildExtLst: ExtLst;
|
|
end;
|
|
|
|
type ThemeElements = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: ThemeElements);override;
|
|
function Clone(): ThemeElements;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
|
|
// normal property
|
|
property ClrScheme read ReadXmlChildClrScheme write WriteXmlChildClrScheme;
|
|
property FontScheme read ReadXmlChildFontScheme write WriteXmlChildFontScheme;
|
|
property FmtScheme read ReadXmlChildFmtScheme write WriteXmlChildFmtScheme;
|
|
function ReadXmlChildClrScheme(): ClrScheme;
|
|
function WriteXmlChildClrScheme(_p1: any; _p2: any);
|
|
function ReadXmlChildFontScheme(): FontScheme;
|
|
function WriteXmlChildFontScheme(_p1: any; _p2: any);
|
|
function ReadXmlChildFmtScheme(): FmtScheme;
|
|
function WriteXmlChildFmtScheme(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrName: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildClrScheme: ClrScheme;
|
|
XmlChildFontScheme: FontScheme;
|
|
XmlChildFmtScheme: FmtScheme;
|
|
end;
|
|
|
|
type ClrScheme = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: ClrScheme);override;
|
|
function Clone(): ClrScheme;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
|
|
// normal property
|
|
property Dk1 read ReadXmlChildDk1 write WriteXmlChildDk1;
|
|
property Lt1 read ReadXmlChildLt1 write WriteXmlChildLt1;
|
|
property Dk2 read ReadXmlChildDk2 write WriteXmlChildDk2;
|
|
property Lt2 read ReadXmlChildLt2 write WriteXmlChildLt2;
|
|
property Accent1 read ReadXmlChildAccent1 write WriteXmlChildAccent1;
|
|
property Accent2 read ReadXmlChildAccent2 write WriteXmlChildAccent2;
|
|
property Accent3 read ReadXmlChildAccent3 write WriteXmlChildAccent3;
|
|
property Accent4 read ReadXmlChildAccent4 write WriteXmlChildAccent4;
|
|
property Accent5 read ReadXmlChildAccent5 write WriteXmlChildAccent5;
|
|
property Accent6 read ReadXmlChildAccent6 write WriteXmlChildAccent6;
|
|
property Hlink read ReadXmlChildHlink write WriteXmlChildHlink;
|
|
property FolHlink read ReadXmlChildFolHlink write WriteXmlChildFolHlink;
|
|
function ReadXmlChildDk1(): Clr1;
|
|
function WriteXmlChildDk1(_p1: any; _p2: any);
|
|
function ReadXmlChildLt1(): Clr1;
|
|
function WriteXmlChildLt1(_p1: any; _p2: any);
|
|
function ReadXmlChildDk2(): Clr2;
|
|
function WriteXmlChildDk2(_p1: any; _p2: any);
|
|
function ReadXmlChildLt2(): Clr2;
|
|
function WriteXmlChildLt2(_p1: any; _p2: any);
|
|
function ReadXmlChildAccent1(): Clr2;
|
|
function WriteXmlChildAccent1(_p1: any; _p2: any);
|
|
function ReadXmlChildAccent2(): Clr2;
|
|
function WriteXmlChildAccent2(_p1: any; _p2: any);
|
|
function ReadXmlChildAccent3(): Clr2;
|
|
function WriteXmlChildAccent3(_p1: any; _p2: any);
|
|
function ReadXmlChildAccent4(): Clr2;
|
|
function WriteXmlChildAccent4(_p1: any; _p2: any);
|
|
function ReadXmlChildAccent5(): Clr2;
|
|
function WriteXmlChildAccent5(_p1: any; _p2: any);
|
|
function ReadXmlChildAccent6(): Clr2;
|
|
function WriteXmlChildAccent6(_p1: any; _p2: any);
|
|
function ReadXmlChildHlink(): Clr2;
|
|
function WriteXmlChildHlink(_p1: any; _p2: any);
|
|
function ReadXmlChildFolHlink(): Clr2;
|
|
function WriteXmlChildFolHlink(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrName: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildDk1: Clr1;
|
|
XmlChildLt1: Clr1;
|
|
XmlChildDk2: Clr2;
|
|
XmlChildLt2: Clr2;
|
|
XmlChildAccent1: Clr2;
|
|
XmlChildAccent2: Clr2;
|
|
XmlChildAccent3: Clr2;
|
|
XmlChildAccent4: Clr2;
|
|
XmlChildAccent5: Clr2;
|
|
XmlChildAccent6: Clr2;
|
|
XmlChildHlink: Clr2;
|
|
XmlChildFolHlink: Clr2;
|
|
end;
|
|
|
|
type Clr1 = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Clr1);override;
|
|
function Clone(): Clr1;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property SysClr read ReadXmlChildSysClr write WriteXmlChildSysClr;
|
|
function ReadXmlChildSysClr(): SysClr;
|
|
function WriteXmlChildSysClr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildSysClr: SysClr;
|
|
end;
|
|
|
|
type SysClr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SysClr);override;
|
|
function Clone(): SysClr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
|
|
property LastClr read ReadXmlAttrLastClr write WriteXmlAttrLastClr;
|
|
function ReadXmlAttrVal();
|
|
function WriteXmlAttrVal(_value: any);
|
|
function ReadXmlAttrLastClr();
|
|
function WriteXmlAttrLastClr(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrVal: OpenXmlAttribute;
|
|
XmlAttrLastClr: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Clr2 = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Clr2);override;
|
|
function Clone(): Clr2;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property SrgbClr read ReadXmlChildSrgbClr write WriteXmlChildSrgbClr;
|
|
function ReadXmlChildSrgbClr(): SrgbClr;
|
|
function WriteXmlChildSrgbClr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildSrgbClr: SrgbClr;
|
|
end;
|
|
|
|
type SrgbClr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SrgbClr);override;
|
|
function Clone(): SrgbClr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
|
|
function ReadXmlAttrVal();
|
|
function WriteXmlAttrVal(_value: any);
|
|
|
|
// normal property
|
|
property Alpha read ReadXmlChildAlpha write WriteXmlChildAlpha;
|
|
function ReadXmlChildAlpha(): PureVal;
|
|
function WriteXmlChildAlpha(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrVal: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildAlpha: PureVal;
|
|
end;
|
|
|
|
type PureVal = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PureVal);override;
|
|
function Clone(): PureVal;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
|
|
function ReadXmlAttrVal();
|
|
function WriteXmlAttrVal(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrVal: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type FontScheme = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: FontScheme);override;
|
|
function Clone(): FontScheme;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
|
|
// normal property
|
|
property Majorfont read ReadXmlChildMajorfont write WriteXmlChildMajorfont;
|
|
property Minorfont read ReadXmlChildMinorfont write WriteXmlChildMinorfont;
|
|
function ReadXmlChildMajorfont(): Mfont;
|
|
function WriteXmlChildMajorfont(_p1: any; _p2: any);
|
|
function ReadXmlChildMinorfont(): Mfont;
|
|
function WriteXmlChildMinorfont(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrName: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildMajorfont: Mfont;
|
|
XmlChildMinorfont: Mfont;
|
|
end;
|
|
|
|
type MFont = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: MFont);override;
|
|
function Clone(): MFont;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property Latin read ReadXmlChildLatin write WriteXmlChildLatin;
|
|
property Ea read ReadXmlChildEa write WriteXmlChildEa;
|
|
property Cs read ReadXmlChildCs write WriteXmlChildCs;
|
|
function ReadXmlChildLatin(): Latin;
|
|
function WriteXmlChildLatin(_p1: any; _p2: any);
|
|
function ReadXmlChildEa(): Latin;
|
|
function WriteXmlChildEa(_p1: any; _p2: any);
|
|
function ReadXmlChildCs(): Latin;
|
|
function WriteXmlChildCs(_p1: any; _p2: any);
|
|
|
|
// multi property
|
|
property Fonts read ReadFonts write WriteFonts;
|
|
function ReadFonts(_index: integer);
|
|
function WriteFonts(_index: integer; _value: nil_OR_Font);
|
|
function AddFont(): Font;
|
|
function AppendFont(): Font;
|
|
|
|
public
|
|
// Children
|
|
XmlChildLatin: Latin;
|
|
XmlChildEa: Latin;
|
|
XmlChildCs: Latin;
|
|
end;
|
|
|
|
type Font = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Font);override;
|
|
function Clone(): Font;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Script read ReadXmlAttrScript write WriteXmlAttrScript;
|
|
property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface;
|
|
function ReadXmlAttrScript();
|
|
function WriteXmlAttrScript(_value: any);
|
|
function ReadXmlAttrTypeface();
|
|
function WriteXmlAttrTypeface(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrScript: OpenXmlAttribute;
|
|
XmlAttrTypeface: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type FmtScheme = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: FmtScheme);override;
|
|
function Clone(): FmtScheme;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
|
|
// normal property
|
|
property FillStyleLst read ReadXmlChildFillStyleLst write WriteXmlChildFillStyleLst;
|
|
property LnStyleLst read ReadXmlChildLnStyleLst write WriteXmlChildLnStyleLst;
|
|
property EffectStyleLst read ReadXmlChildEffectStyleLst write WriteXmlChildEffectStyleLst;
|
|
property BgFillStyleLst read ReadXmlChildBgFillStyleLst write WriteXmlChildBgFillStyleLst;
|
|
function ReadXmlChildFillStyleLst(): FillStyleLst;
|
|
function WriteXmlChildFillStyleLst(_p1: any; _p2: any);
|
|
function ReadXmlChildLnStyleLst(): LnStyleLst;
|
|
function WriteXmlChildLnStyleLst(_p1: any; _p2: any);
|
|
function ReadXmlChildEffectStyleLst(): EffectStyleLst;
|
|
function WriteXmlChildEffectStyleLst(_p1: any; _p2: any);
|
|
function ReadXmlChildBgFillStyleLst(): FillStyleLst;
|
|
function WriteXmlChildBgFillStyleLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrName: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildFillStyleLst: FillStyleLst;
|
|
XmlChildLnStyleLst: LnStyleLst;
|
|
XmlChildEffectStyleLst: EffectStyleLst;
|
|
XmlChildBgFillStyleLst: FillStyleLst;
|
|
end;
|
|
|
|
type FillStyleLst = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: FillStyleLst);override;
|
|
function Clone(): FillStyleLst;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// multi property
|
|
property SolidFills read ReadSolidFills write WriteSolidFills;
|
|
property GradFills read ReadGradFills write WriteGradFills;
|
|
function ReadSolidFills(_index: integer);
|
|
function WriteSolidFills(_index: integer; _value: nil_OR_SolidFill);
|
|
function ReadGradFills(_index: integer);
|
|
function WriteGradFills(_index: integer; _value: nil_OR_GradFill);
|
|
function AddSolidFill(): SolidFill;
|
|
function AddGradFill(): GradFill;
|
|
function AppendSolidFill(): SolidFill;
|
|
function AppendGradFill(): GradFill;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type SolidFill = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SolidFill);override;
|
|
function Clone(): SolidFill;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property SchemeClr read ReadXmlChildSchemeClr write WriteXmlChildSchemeClr;
|
|
function ReadXmlChildSchemeClr(): SchemeClr;
|
|
function WriteXmlChildSchemeClr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildSchemeClr: SchemeClr;
|
|
end;
|
|
|
|
type SchemeClr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SchemeClr);override;
|
|
function Clone(): SchemeClr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
|
|
function ReadXmlAttrVal();
|
|
function WriteXmlAttrVal(_value: any);
|
|
|
|
// normal property
|
|
property LumMod read ReadXmlChildLumMod write WriteXmlChildLumMod;
|
|
property SatMod read ReadXmlChildSatMod write WriteXmlChildSatMod;
|
|
property Tint read ReadXmlChildTint write WriteXmlChildTint;
|
|
function ReadXmlChildLumMod(): PureVal;
|
|
function WriteXmlChildLumMod(_p1: any; _p2: any);
|
|
function ReadXmlChildSatMod(): PureVal;
|
|
function WriteXmlChildSatMod(_p1: any; _p2: any);
|
|
function ReadXmlChildTint(): PureVal;
|
|
function WriteXmlChildTint(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrVal: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildLumMod: PureVal;
|
|
XmlChildSatMod: PureVal;
|
|
XmlChildTint: PureVal;
|
|
end;
|
|
|
|
type GradFill = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: GradFill);override;
|
|
function Clone(): GradFill;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape;
|
|
function ReadXmlAttrRotWithShape();
|
|
function WriteXmlAttrRotWithShape(_value: any);
|
|
|
|
// normal property
|
|
property GsLst read ReadXmlChildGsLst write WriteXmlChildGsLst;
|
|
property Lin read ReadXmlChildLin write WriteXmlChildLin;
|
|
function ReadXmlChildGsLst(): GsLst;
|
|
function WriteXmlChildGsLst(_p1: any; _p2: any);
|
|
function ReadXmlChildLin(): Lin;
|
|
function WriteXmlChildLin(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrRotWithShape: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildGsLst: GsLst;
|
|
XmlChildLin: Lin;
|
|
end;
|
|
|
|
type GsLst = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: GsLst);override;
|
|
function Clone(): GsLst;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// multi property
|
|
property Gses read ReadGses write WriteGses;
|
|
function ReadGses(_index: integer);
|
|
function WriteGses(_index: integer; _value: nil_OR_Gs);
|
|
function AddGs(): Gs;
|
|
function AppendGs(): Gs;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type Gs = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Gs);override;
|
|
function Clone(): Gs;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Pos read ReadXmlAttrPos write WriteXmlAttrPos;
|
|
function ReadXmlAttrPos();
|
|
function WriteXmlAttrPos(_value: any);
|
|
|
|
// normal property
|
|
property SchemeClr read ReadXmlChildSchemeClr write WriteXmlChildSchemeClr;
|
|
function ReadXmlChildSchemeClr(): SchemeClr;
|
|
function WriteXmlChildSchemeClr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrPos: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildSchemeClr: SchemeClr;
|
|
end;
|
|
|
|
type Lin = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Lin);override;
|
|
function Clone(): Lin;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Ang read ReadXmlAttrAng write WriteXmlAttrAng;
|
|
property Scaled read ReadXmlAttrScaled write WriteXmlAttrScaled;
|
|
function ReadXmlAttrAng();
|
|
function WriteXmlAttrAng(_value: any);
|
|
function ReadXmlAttrScaled();
|
|
function WriteXmlAttrScaled(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrAng: OpenXmlAttribute;
|
|
XmlAttrScaled: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type LnStyleLst = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: LnStyleLst);override;
|
|
function Clone(): LnStyleLst;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// multi property
|
|
property Lns read ReadLns write WriteLns;
|
|
function ReadLns(_index: integer);
|
|
function WriteLns(_index: integer; _value: nil_OR_Ln);
|
|
function AddLn(): Ln;
|
|
function AppendLn(): Ln;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type EffectStyleLst = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: EffectStyleLst);override;
|
|
function Clone(): EffectStyleLst;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// multi property
|
|
property EffectStyles read ReadEffectStyles write WriteEffectStyles;
|
|
function ReadEffectStyles(_index: integer);
|
|
function WriteEffectStyles(_index: integer; _value: nil_OR_EffectStyle);
|
|
function AddEffectStyle(): EffectStyle;
|
|
function AppendEffectStyle(): EffectStyle;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type EffectStyle = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: EffectStyle);override;
|
|
function Clone(): EffectStyle;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property EffectLst read ReadXmlChildEffectLst write WriteXmlChildEffectLst;
|
|
function ReadXmlChildEffectLst(): EffectLst;
|
|
function WriteXmlChildEffectLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildEffectLst: EffectLst;
|
|
end;
|
|
|
|
type OuterShdw = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: OuterShdw);override;
|
|
function Clone(): OuterShdw;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property BlurRad read ReadXmlAttrBlurRad write WriteXmlAttrBlurRad;
|
|
property Dist read ReadXmlAttrDist write WriteXmlAttrDist;
|
|
property Dir read ReadXmlAttrDir write WriteXmlAttrDir;
|
|
property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn;
|
|
property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape;
|
|
function ReadXmlAttrBlurRad();
|
|
function WriteXmlAttrBlurRad(_value: any);
|
|
function ReadXmlAttrDist();
|
|
function WriteXmlAttrDist(_value: any);
|
|
function ReadXmlAttrDir();
|
|
function WriteXmlAttrDir(_value: any);
|
|
function ReadXmlAttrAlgn();
|
|
function WriteXmlAttrAlgn(_value: any);
|
|
function ReadXmlAttrRotWithShape();
|
|
function WriteXmlAttrRotWithShape(_value: any);
|
|
|
|
// normal property
|
|
property SrgbClr read ReadXmlChildSrgbClr write WriteXmlChildSrgbClr;
|
|
function ReadXmlChildSrgbClr(): SrgbClr;
|
|
function WriteXmlChildSrgbClr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrBlurRad: OpenXmlAttribute;
|
|
XmlAttrDist: OpenXmlAttribute;
|
|
XmlAttrDir: OpenXmlAttribute;
|
|
XmlAttrAlgn: OpenXmlAttribute;
|
|
XmlAttrRotWithShape: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildSrgbClr: SrgbClr;
|
|
end;
|
|
|
|
type ExtLst = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: ExtLst);override;
|
|
function Clone(): ExtLst;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// multi property
|
|
property Exts read ReadExts write WriteExts;
|
|
function ReadExts(_index: integer);
|
|
function WriteExts(_index: integer; _value: nil_OR_Ext);
|
|
function AddExt(): Ext;
|
|
function AppendExt(): Ext;
|
|
|
|
public
|
|
// Children
|
|
end;
|
|
|
|
type Ext = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Ext);override;
|
|
function Clone(): Ext;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Uri read ReadXmlAttrUri write WriteXmlAttrUri;
|
|
function ReadXmlAttrUri();
|
|
function WriteXmlAttrUri(_value: any);
|
|
|
|
// normal property
|
|
property Thm15ThemeFamily read ReadXmlChildThm15ThemeFamily write WriteXmlChildThm15ThemeFamily;
|
|
property UniqueId read ReadXmlChildUniqueId write WriteXmlChildUniqueId;
|
|
property SlicerStyles read ReadXmlChildSlicerStyles write WriteXmlChildSlicerStyles;
|
|
property TimelineStyles read ReadXmlChildTimelineStyles write WriteXmlChildTimelineStyles;
|
|
function ReadXmlChildThm15ThemeFamily(): ThemeFamily;
|
|
function WriteXmlChildThm15ThemeFamily(_p1: any; _p2: any);
|
|
function ReadXmlChildUniqueId(): PureVal;
|
|
function WriteXmlChildUniqueId(_p1: any; _p2: any);
|
|
function ReadXmlChildSlicerStyles(): SlicerStyles;
|
|
function WriteXmlChildSlicerStyles(_p1: any; _p2: any);
|
|
function ReadXmlChildTimelineStyles(): TimelineStyles;
|
|
function WriteXmlChildTimelineStyles(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrUri: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildThm15ThemeFamily: ThemeFamily;
|
|
XmlChildUniqueId: PureVal;
|
|
XmlChildSlicerStyles: SlicerStyles;
|
|
XmlChildTimelineStyles: TimelineStyles;
|
|
end;
|
|
|
|
type SlicerStyles = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SlicerStyles);override;
|
|
function Clone(): SlicerStyles;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property DefaultSlicerStyle read ReadXmlAttrDefaultSlicerStyle write WriteXmlAttrDefaultSlicerStyle;
|
|
function ReadXmlAttrDefaultSlicerStyle();
|
|
function WriteXmlAttrDefaultSlicerStyle(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrDefaultSlicerStyle: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type TimelineStyles = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: TimelineStyles);override;
|
|
function Clone(): TimelineStyles;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property DefaultTimelineStyle read ReadXmlAttrDefaultTimelineStyle write WriteXmlAttrDefaultTimelineStyle;
|
|
function ReadXmlAttrDefaultTimelineStyle();
|
|
function WriteXmlAttrDefaultTimelineStyle(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrDefaultTimelineStyle: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type ThemeFamily = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: ThemeFamily);override;
|
|
function Clone(): ThemeFamily;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
|
property Vid read ReadXmlAttrVid write WriteXmlAttrVid;
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
function ReadXmlAttrId();
|
|
function WriteXmlAttrId(_value: any);
|
|
function ReadXmlAttrVid();
|
|
function WriteXmlAttrVid(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrName: OpenXmlAttribute;
|
|
XmlAttrId: OpenXmlAttribute;
|
|
XmlAttrVid: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type ChartSpace = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: ChartSpace);override;
|
|
function Clone(): ChartSpace;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// simple_type property
|
|
property Lang read ReadXmlChildLang write WriteXmlChildLang;
|
|
function ReadXmlChildLang(): OpenXmlSimpleType;
|
|
function WriteXmlChildLang(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property Date1904 read ReadXmlChildDate1904 write WriteXmlChildDate1904;
|
|
property AlternateContent read ReadXmlChildAlternateContent write WriteXmlChildAlternateContent;
|
|
property Chart read ReadXmlChildChart write WriteXmlChildChart;
|
|
property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr;
|
|
property ExternalData read ReadXmlChildExternalData write WriteXmlChildExternalData;
|
|
function ReadXmlChildDate1904(): PureVal;
|
|
function WriteXmlChildDate1904(_p1: any; _p2: any);
|
|
function ReadXmlChildAlternateContent(): AlternateContent;
|
|
function WriteXmlChildAlternateContent(_p1: any; _p2: any);
|
|
function ReadXmlChildChart(): Chart;
|
|
function WriteXmlChildChart(_p1: any; _p2: any);
|
|
function ReadXmlChildSpPr(): SpPr;
|
|
function WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
function ReadXmlChildExternalData(): ExternalData;
|
|
function WriteXmlChildExternalData(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildDate1904: PureVal;
|
|
XmlChildLang: OpenXmlSimpleType;
|
|
XmlChildAlternateContent: AlternateContent;
|
|
XmlChildChart: Chart;
|
|
XmlChildSpPr: SpPr;
|
|
XmlChildExternalData: ExternalData;
|
|
end;
|
|
|
|
type Chart = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Chart);override;
|
|
function Clone(): Chart;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
|
function ReadXmlAttrId();
|
|
function WriteXmlAttrId(_value: any);
|
|
|
|
// normal property
|
|
property Title read ReadXmlChildTitle write WriteXmlChildTitle;
|
|
property AutoTitleDeleted read ReadXmlChildAutoTitleDeleted write WriteXmlChildAutoTitleDeleted;
|
|
property View3D read ReadXmlChildView3D write WriteXmlChildView3D;
|
|
property PlotArea read ReadXmlChildPlotArea write WriteXmlChildPlotArea;
|
|
property Legend read ReadXmlChildLegend write WriteXmlChildLegend;
|
|
property PlotVisOnly read ReadXmlChildPlotVisOnly write WriteXmlChildPlotVisOnly;
|
|
property DispBlanksAs read ReadXmlChildDispBlanksAs write WriteXmlChildDispBlanksAs;
|
|
property ShowDLblsOverMax read ReadXmlChildShowDLblsOverMax write WriteXmlChildShowDLblsOverMax;
|
|
function ReadXmlChildTitle(): Title;
|
|
function WriteXmlChildTitle(_p1: any; _p2: any);
|
|
function ReadXmlChildAutoTitleDeleted(): PureVal;
|
|
function WriteXmlChildAutoTitleDeleted(_p1: any; _p2: any);
|
|
function ReadXmlChildView3D(): View3D;
|
|
function WriteXmlChildView3D(_p1: any; _p2: any);
|
|
function ReadXmlChildPlotArea(): PlotArea;
|
|
function WriteXmlChildPlotArea(_p1: any; _p2: any);
|
|
function ReadXmlChildLegend(): Legend;
|
|
function WriteXmlChildLegend(_p1: any; _p2: any);
|
|
function ReadXmlChildPlotVisOnly(): PureVal;
|
|
function WriteXmlChildPlotVisOnly(_p1: any; _p2: any);
|
|
function ReadXmlChildDispBlanksAs(): PureVal;
|
|
function WriteXmlChildDispBlanksAs(_p1: any; _p2: any);
|
|
function ReadXmlChildShowDLblsOverMax(): PureVal;
|
|
function WriteXmlChildShowDLblsOverMax(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrId: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildTitle: Title;
|
|
XmlChildAutoTitleDeleted: PureVal;
|
|
XmlChildView3D: View3D;
|
|
XmlChildPlotArea: PlotArea;
|
|
XmlChildLegend: Legend;
|
|
XmlChildPlotVisOnly: PureVal;
|
|
XmlChildDispBlanksAs: PureVal;
|
|
XmlChildShowDLblsOverMax: PureVal;
|
|
end;
|
|
|
|
type Legend = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Legend);override;
|
|
function Clone(): Legend;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// simple_type property
|
|
property Layout read ReadXmlChildLayout write WriteXmlChildLayout;
|
|
function ReadXmlChildLayout(): OpenXmlSimpleType;
|
|
function WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property LegendPos read ReadXmlChildLegendPos write WriteXmlChildLegendPos;
|
|
property Overlay read ReadXmlChildOverlay write WriteXmlChildOverlay;
|
|
property TxPr read ReadXmlChildTxPr write WriteXmlChildTxPr;
|
|
function ReadXmlChildLegendPos(): PureVal;
|
|
function WriteXmlChildLegendPos(_p1: any; _p2: any);
|
|
function ReadXmlChildOverlay(): PureVal;
|
|
function WriteXmlChildOverlay(_p1: any; _p2: any);
|
|
function ReadXmlChildTxPr(): TxPr;
|
|
function WriteXmlChildTxPr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildLegendPos: PureVal;
|
|
XmlChildLayout: OpenXmlSimpleType;
|
|
XmlChildOverlay: PureVal;
|
|
XmlChildTxPr: TxPr;
|
|
end;
|
|
|
|
type View3D = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: View3D);override;
|
|
function Clone(): View3D;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property RotX read ReadXmlChildRotX write WriteXmlChildRotX;
|
|
property RotY read ReadXmlChildRotY write WriteXmlChildRotY;
|
|
property RAngAx read ReadXmlChildRAngAx write WriteXmlChildRAngAx;
|
|
function ReadXmlChildRotX(): PureVal;
|
|
function WriteXmlChildRotX(_p1: any; _p2: any);
|
|
function ReadXmlChildRotY(): PureVal;
|
|
function WriteXmlChildRotY(_p1: any; _p2: any);
|
|
function ReadXmlChildRAngAx(): PureVal;
|
|
function WriteXmlChildRAngAx(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildRotX: PureVal;
|
|
XmlChildRotY: PureVal;
|
|
XmlChildRAngAx: PureVal;
|
|
end;
|
|
|
|
type PlotArea = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PlotArea);override;
|
|
function Clone(): PlotArea;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// simple_type property
|
|
property Layout read ReadXmlChildLayout write WriteXmlChildLayout;
|
|
function ReadXmlChildLayout(): OpenXmlSimpleType;
|
|
function WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property BarChart read ReadXmlChildBarChart write WriteXmlChildBarChart;
|
|
property CatAx read ReadXmlChildCatAx write WriteXmlChildCatAx;
|
|
property ValAx read ReadXmlChildValAx write WriteXmlChildValAx;
|
|
property DTable read ReadXmlChildDTable write WriteXmlChildDTable;
|
|
property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr;
|
|
function ReadXmlChildBarChart(): BarChart;
|
|
function WriteXmlChildBarChart(_p1: any; _p2: any);
|
|
function ReadXmlChildCatAx(): Ax;
|
|
function WriteXmlChildCatAx(_p1: any; _p2: any);
|
|
function ReadXmlChildValAx(): Ax;
|
|
function WriteXmlChildValAx(_p1: any; _p2: any);
|
|
function ReadXmlChildDTable(): DTable;
|
|
function WriteXmlChildDTable(_p1: any; _p2: any);
|
|
function ReadXmlChildSpPr(): SpPr;
|
|
function WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildLayout: OpenXmlSimpleType;
|
|
XmlChildBarChart: BarChart;
|
|
XmlChildCatAx: Ax;
|
|
XmlChildValAx: Ax;
|
|
XmlChildDTable: DTable;
|
|
XmlChildSpPr: SpPr;
|
|
end;
|
|
|
|
type BarChart = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: BarChart);override;
|
|
function Clone(): BarChart;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property BarDir read ReadXmlChildBarDir write WriteXmlChildBarDir;
|
|
property Grouping read ReadXmlChildGrouping write WriteXmlChildGrouping;
|
|
property VaryColors read ReadXmlChildVaryColors write WriteXmlChildVaryColors;
|
|
property GapWidth read ReadXmlChildGapWidth write WriteXmlChildGapWidth;
|
|
function ReadXmlChildBarDir(): PureVal;
|
|
function WriteXmlChildBarDir(_p1: any; _p2: any);
|
|
function ReadXmlChildGrouping(): PureVal;
|
|
function WriteXmlChildGrouping(_p1: any; _p2: any);
|
|
function ReadXmlChildVaryColors(): PureVal;
|
|
function WriteXmlChildVaryColors(_p1: any; _p2: any);
|
|
function ReadXmlChildGapWidth(): PureVal;
|
|
function WriteXmlChildGapWidth(_p1: any; _p2: any);
|
|
|
|
// multi property
|
|
property Sers read ReadSers write WriteSers;
|
|
property AxIds read ReadAxIds write WriteAxIds;
|
|
function ReadSers(_index: integer);
|
|
function WriteSers(_index: integer; _value: nil_OR_Ser);
|
|
function ReadAxIds(_index: integer);
|
|
function WriteAxIds(_index: integer; _value: nil_OR_PureVal);
|
|
function AddSer(): Ser;
|
|
function AddAxId(): PureVal;
|
|
function AppendSer(): Ser;
|
|
function AppendAxId(): PureVal;
|
|
|
|
public
|
|
// Children
|
|
XmlChildBarDir: PureVal;
|
|
XmlChildGrouping: PureVal;
|
|
XmlChildVaryColors: PureVal;
|
|
XmlChildGapWidth: PureVal;
|
|
end;
|
|
|
|
type Ser = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Ser);override;
|
|
function Clone(): Ser;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property Idx read ReadXmlChildIdx write WriteXmlChildIdx;
|
|
property _Order read ReadXmlChild_Order write WriteXmlChild_Order;
|
|
property Tx read ReadXmlChildTx write WriteXmlChildTx;
|
|
property InvertIfNegative read ReadXmlChildInvertIfNegative write WriteXmlChildInvertIfNegative;
|
|
property DLbls read ReadXmlChildDLbls write WriteXmlChildDLbls;
|
|
property Cat read ReadXmlChildCat write WriteXmlChildCat;
|
|
property Val read ReadXmlChildVal write WriteXmlChildVal;
|
|
property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst;
|
|
function ReadXmlChildIdx(): PureVal;
|
|
function WriteXmlChildIdx(_p1: any; _p2: any);
|
|
function ReadXmlChild_Order(): PureVal;
|
|
function WriteXmlChild_Order(_p1: any; _p2: any);
|
|
function ReadXmlChildTx(): Tx;
|
|
function WriteXmlChildTx(_p1: any; _p2: any);
|
|
function ReadXmlChildInvertIfNegative(): PureVal;
|
|
function WriteXmlChildInvertIfNegative(_p1: any; _p2: any);
|
|
function ReadXmlChildDLbls(): DLbls;
|
|
function WriteXmlChildDLbls(_p1: any; _p2: any);
|
|
function ReadXmlChildCat(): Cat;
|
|
function WriteXmlChildCat(_p1: any; _p2: any);
|
|
function ReadXmlChildVal(): Val;
|
|
function WriteXmlChildVal(_p1: any; _p2: any);
|
|
function ReadXmlChildExtLst(): ExtLst;
|
|
function WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildIdx: PureVal;
|
|
XmlChild_Order: PureVal;
|
|
XmlChildTx: Tx;
|
|
XmlChildInvertIfNegative: PureVal;
|
|
XmlChildDLbls: DLbls;
|
|
XmlChildCat: Cat;
|
|
XmlChildVal: Val;
|
|
XmlChildExtLst: ExtLst;
|
|
end;
|
|
|
|
type DLbls = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: DLbls);override;
|
|
function Clone(): DLbls;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr;
|
|
property ShowLegendKey read ReadXmlChildShowLegendKey write WriteXmlChildShowLegendKey;
|
|
property ShowVal read ReadXmlChildShowVal write WriteXmlChildShowVal;
|
|
property ShowCatName read ReadXmlChildShowCatName write WriteXmlChildShowCatName;
|
|
property ShowSerName read ReadXmlChildShowSerName write WriteXmlChildShowSerName;
|
|
property ShowPercent read ReadXmlChildShowPercent write WriteXmlChildShowPercent;
|
|
property ShowBubbleSize read ReadXmlChildShowBubbleSize write WriteXmlChildShowBubbleSize;
|
|
property ShowLeaderLines read ReadXmlChildShowLeaderLines write WriteXmlChildShowLeaderLines;
|
|
property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst;
|
|
function ReadXmlChildSpPr(): SpPr;
|
|
function WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
function ReadXmlChildShowLegendKey(): PureVal;
|
|
function WriteXmlChildShowLegendKey(_p1: any; _p2: any);
|
|
function ReadXmlChildShowVal(): PureVal;
|
|
function WriteXmlChildShowVal(_p1: any; _p2: any);
|
|
function ReadXmlChildShowCatName(): PureVal;
|
|
function WriteXmlChildShowCatName(_p1: any; _p2: any);
|
|
function ReadXmlChildShowSerName(): PureVal;
|
|
function WriteXmlChildShowSerName(_p1: any; _p2: any);
|
|
function ReadXmlChildShowPercent(): PureVal;
|
|
function WriteXmlChildShowPercent(_p1: any; _p2: any);
|
|
function ReadXmlChildShowBubbleSize(): PureVal;
|
|
function WriteXmlChildShowBubbleSize(_p1: any; _p2: any);
|
|
function ReadXmlChildShowLeaderLines(): PureVal;
|
|
function WriteXmlChildShowLeaderLines(_p1: any; _p2: any);
|
|
function ReadXmlChildExtLst(): ExtLst;
|
|
function WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildSpPr: SpPr;
|
|
XmlChildShowLegendKey: PureVal;
|
|
XmlChildShowVal: PureVal;
|
|
XmlChildShowCatName: PureVal;
|
|
XmlChildShowSerName: PureVal;
|
|
XmlChildShowPercent: PureVal;
|
|
XmlChildShowBubbleSize: PureVal;
|
|
XmlChildShowLeaderLines: PureVal;
|
|
XmlChildExtLst: ExtLst;
|
|
end;
|
|
|
|
type Cat = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Cat);override;
|
|
function Clone(): Cat;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property StrRef read ReadXmlChildStrRef write WriteXmlChildStrRef;
|
|
function ReadXmlChildStrRef(): StrRef;
|
|
function WriteXmlChildStrRef(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildStrRef: StrRef;
|
|
end;
|
|
|
|
type StrRef = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: StrRef);override;
|
|
function Clone(): StrRef;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// pcdata property
|
|
property F read ReadXmlChildF write WriteXmlChildF;
|
|
function ReadXmlChildF();
|
|
function WriteXmlChildF(_value: nil_or_OpenXmlTextElement);
|
|
|
|
// normal property
|
|
property StrCache read ReadXmlChildStrCache write WriteXmlChildStrCache;
|
|
function ReadXmlChildStrCache(): StrCache;
|
|
function WriteXmlChildStrCache(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildF: OpenXmlTextElement;
|
|
XmlChildStrCache: StrCache;
|
|
end;
|
|
|
|
type Val = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Val);override;
|
|
function Clone(): Val;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property NumRef read ReadXmlChildNumRef write WriteXmlChildNumRef;
|
|
function ReadXmlChildNumRef(): NumRef;
|
|
function WriteXmlChildNumRef(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildNumRef: NumRef;
|
|
end;
|
|
|
|
type NumRef = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: NumRef);override;
|
|
function Clone(): NumRef;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// pcdata property
|
|
property F read ReadXmlChildF write WriteXmlChildF;
|
|
function ReadXmlChildF();
|
|
function WriteXmlChildF(_value: nil_or_OpenXmlTextElement);
|
|
|
|
// normal property
|
|
property NumCache read ReadXmlChildNumCache write WriteXmlChildNumCache;
|
|
function ReadXmlChildNumCache(): NumCache;
|
|
function WriteXmlChildNumCache(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildF: OpenXmlTextElement;
|
|
XmlChildNumCache: NumCache;
|
|
end;
|
|
|
|
type StrCache = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: StrCache);override;
|
|
function Clone(): StrCache;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property PtCount read ReadXmlChildPtCount write WriteXmlChildPtCount;
|
|
function ReadXmlChildPtCount(): PureVal;
|
|
function WriteXmlChildPtCount(_p1: any; _p2: any);
|
|
|
|
// multi property
|
|
property Pts read ReadPts write WritePts;
|
|
function ReadPts(_index: integer);
|
|
function WritePts(_index: integer; _value: nil_OR_Pt);
|
|
function AddPt(): Pt;
|
|
function AppendPt(): Pt;
|
|
|
|
public
|
|
// Children
|
|
XmlChildPtCount: PureVal;
|
|
end;
|
|
|
|
type NumCache = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: NumCache);override;
|
|
function Clone(): NumCache;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// pcdata property
|
|
property FormatCode read ReadXmlChildFormatCode write WriteXmlChildFormatCode;
|
|
function ReadXmlChildFormatCode();
|
|
function WriteXmlChildFormatCode(_value: nil_or_OpenXmlTextElement);
|
|
|
|
// normal property
|
|
property PtCount read ReadXmlChildPtCount write WriteXmlChildPtCount;
|
|
function ReadXmlChildPtCount(): PureVal;
|
|
function WriteXmlChildPtCount(_p1: any; _p2: any);
|
|
|
|
// multi property
|
|
property Pts read ReadPts write WritePts;
|
|
function ReadPts(_index: integer);
|
|
function WritePts(_index: integer; _value: nil_OR_Pt);
|
|
function AddPt(): Pt;
|
|
function AppendPt(): Pt;
|
|
|
|
public
|
|
// Children
|
|
XmlChildFormatCode: OpenXmlTextElement;
|
|
XmlChildPtCount: PureVal;
|
|
end;
|
|
|
|
type Pt = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Pt);override;
|
|
function Clone(): Pt;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx;
|
|
function ReadXmlAttrIdx();
|
|
function WriteXmlAttrIdx(_value: any);
|
|
|
|
// pcdata property
|
|
property V read ReadXmlChildV write WriteXmlChildV;
|
|
function ReadXmlChildV();
|
|
function WriteXmlChildV(_value: nil_or_OpenXmlTextElement);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrIdx: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildV: OpenXmlTextElement;
|
|
end;
|
|
|
|
type Ax = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Ax);override;
|
|
function Clone(): Ax;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property AxId read ReadXmlChildAxId write WriteXmlChildAxId;
|
|
property Scaling read ReadXmlChildScaling write WriteXmlChildScaling;
|
|
property _Delete read ReadXmlChild_Delete write WriteXmlChild_Delete;
|
|
property AxPos read ReadXmlChildAxPos write WriteXmlChildAxPos;
|
|
property NumFmt read ReadXmlChildNumFmt write WriteXmlChildNumFmt;
|
|
property MajorTickMark read ReadXmlChildMajorTickMark write WriteXmlChildMajorTickMark;
|
|
property MinorTickMark read ReadXmlChildMinorTickMark write WriteXmlChildMinorTickMark;
|
|
property TickLblPos read ReadXmlChildTickLblPos write WriteXmlChildTickLblPos;
|
|
property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr;
|
|
property TxPr read ReadXmlChildTxPr write WriteXmlChildTxPr;
|
|
property CrossAx read ReadXmlChildCrossAx write WriteXmlChildCrossAx;
|
|
property Crosses read ReadXmlChildCrosses write WriteXmlChildCrosses;
|
|
property CrossBetween read ReadXmlChildCrossBetween write WriteXmlChildCrossBetween;
|
|
property Auto read ReadXmlChildAuto write WriteXmlChildAuto;
|
|
property LblAlgn read ReadXmlChildLblAlgn write WriteXmlChildLblAlgn;
|
|
property LblOffset read ReadXmlChildLblOffset write WriteXmlChildLblOffset;
|
|
property NoMultiLvlLbl read ReadXmlChildNoMultiLvlLbl write WriteXmlChildNoMultiLvlLbl;
|
|
function ReadXmlChildAxId(): PureVal;
|
|
function WriteXmlChildAxId(_p1: any; _p2: any);
|
|
function ReadXmlChildScaling(): Scaling;
|
|
function WriteXmlChildScaling(_p1: any; _p2: any);
|
|
function ReadXmlChild_Delete(): PureVal;
|
|
function WriteXmlChild_Delete(_p1: any; _p2: any);
|
|
function ReadXmlChildAxPos(): PureVal;
|
|
function WriteXmlChildAxPos(_p1: any; _p2: any);
|
|
function ReadXmlChildNumFmt(): NumFmt;
|
|
function WriteXmlChildNumFmt(_p1: any; _p2: any);
|
|
function ReadXmlChildMajorTickMark(): PureVal;
|
|
function WriteXmlChildMajorTickMark(_p1: any; _p2: any);
|
|
function ReadXmlChildMinorTickMark(): PureVal;
|
|
function WriteXmlChildMinorTickMark(_p1: any; _p2: any);
|
|
function ReadXmlChildTickLblPos(): PureVal;
|
|
function WriteXmlChildTickLblPos(_p1: any; _p2: any);
|
|
function ReadXmlChildSpPr(): SpPr;
|
|
function WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
function ReadXmlChildTxPr(): TxPr;
|
|
function WriteXmlChildTxPr(_p1: any; _p2: any);
|
|
function ReadXmlChildCrossAx(): PureVal;
|
|
function WriteXmlChildCrossAx(_p1: any; _p2: any);
|
|
function ReadXmlChildCrosses(): PureVal;
|
|
function WriteXmlChildCrosses(_p1: any; _p2: any);
|
|
function ReadXmlChildCrossBetween(): PureVal;
|
|
function WriteXmlChildCrossBetween(_p1: any; _p2: any);
|
|
function ReadXmlChildAuto(): PureVal;
|
|
function WriteXmlChildAuto(_p1: any; _p2: any);
|
|
function ReadXmlChildLblAlgn(): PureVal;
|
|
function WriteXmlChildLblAlgn(_p1: any; _p2: any);
|
|
function ReadXmlChildLblOffset(): PureVal;
|
|
function WriteXmlChildLblOffset(_p1: any; _p2: any);
|
|
function ReadXmlChildNoMultiLvlLbl(): PureVal;
|
|
function WriteXmlChildNoMultiLvlLbl(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildAxId: PureVal;
|
|
XmlChildScaling: Scaling;
|
|
XmlChild_Delete: PureVal;
|
|
XmlChildAxPos: PureVal;
|
|
XmlChildNumFmt: NumFmt;
|
|
XmlChildMajorTickMark: PureVal;
|
|
XmlChildMinorTickMark: PureVal;
|
|
XmlChildTickLblPos: PureVal;
|
|
XmlChildSpPr: SpPr;
|
|
XmlChildTxPr: TxPr;
|
|
XmlChildCrossAx: PureVal;
|
|
XmlChildCrosses: PureVal;
|
|
XmlChildCrossBetween: PureVal;
|
|
XmlChildAuto: PureVal;
|
|
XmlChildLblAlgn: PureVal;
|
|
XmlChildLblOffset: PureVal;
|
|
XmlChildNoMultiLvlLbl: PureVal;
|
|
end;
|
|
|
|
type NumFmt = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: NumFmt);override;
|
|
function Clone(): NumFmt;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property FormatCode read ReadXmlAttrFormatCode write WriteXmlAttrFormatCode;
|
|
property SourceLinked read ReadXmlAttrSourceLinked write WriteXmlAttrSourceLinked;
|
|
function ReadXmlAttrFormatCode();
|
|
function WriteXmlAttrFormatCode(_value: any);
|
|
function ReadXmlAttrSourceLinked();
|
|
function WriteXmlAttrSourceLinked(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrFormatCode: OpenXmlAttribute;
|
|
XmlAttrSourceLinked: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Scaling = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Scaling);override;
|
|
function Clone(): Scaling;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// simple_type property
|
|
property Orientation read ReadXmlChildOrientation write WriteXmlChildOrientation;
|
|
function ReadXmlChildOrientation(): OpenXmlSimpleType;
|
|
function WriteXmlChildOrientation(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
public
|
|
// Children
|
|
XmlChildOrientation: OpenXmlSimpleType;
|
|
end;
|
|
|
|
type DTable = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: DTable);override;
|
|
function Clone(): DTable;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property ShowHorzBorder read ReadXmlChildShowHorzBorder write WriteXmlChildShowHorzBorder;
|
|
property ShowVertBorder read ReadXmlChildShowVertBorder write WriteXmlChildShowVertBorder;
|
|
property ShowOutline read ReadXmlChildShowOutline write WriteXmlChildShowOutline;
|
|
property ShowKeys read ReadXmlChildShowKeys write WriteXmlChildShowKeys;
|
|
property TxPr read ReadXmlChildTxPr write WriteXmlChildTxPr;
|
|
function ReadXmlChildShowHorzBorder(): PureVal;
|
|
function WriteXmlChildShowHorzBorder(_p1: any; _p2: any);
|
|
function ReadXmlChildShowVertBorder(): PureVal;
|
|
function WriteXmlChildShowVertBorder(_p1: any; _p2: any);
|
|
function ReadXmlChildShowOutline(): PureVal;
|
|
function WriteXmlChildShowOutline(_p1: any; _p2: any);
|
|
function ReadXmlChildShowKeys(): PureVal;
|
|
function WriteXmlChildShowKeys(_p1: any; _p2: any);
|
|
function ReadXmlChildTxPr(): TxPr;
|
|
function WriteXmlChildTxPr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildShowHorzBorder: PureVal;
|
|
XmlChildShowVertBorder: PureVal;
|
|
XmlChildShowOutline: PureVal;
|
|
XmlChildShowKeys: PureVal;
|
|
XmlChildTxPr: TxPr;
|
|
end;
|
|
|
|
type TxPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: TxPr);override;
|
|
function Clone(): TxPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// simple_type property
|
|
property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle;
|
|
function ReadXmlChildLstStyle(): OpenXmlSimpleType;
|
|
function WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property BodyPr read ReadXmlChildBodyPr write WriteXmlChildBodyPr;
|
|
function ReadXmlChildBodyPr(): BodyPr;
|
|
function WriteXmlChildBodyPr(_p1: any; _p2: any);
|
|
|
|
// multi property
|
|
property Ps read ReadPs write WritePs;
|
|
function ReadPs(_index: integer);
|
|
function WritePs(_index: integer; _value: nil_OR_P);
|
|
function AddP(): P;
|
|
function AppendP(): P;
|
|
|
|
public
|
|
// Children
|
|
XmlChildBodyPr: BodyPr;
|
|
XmlChildLstStyle: OpenXmlSimpleType;
|
|
end;
|
|
|
|
type Title = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Title);override;
|
|
function Clone(): Title;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// simple_type property
|
|
property Layout read ReadXmlChildLayout write WriteXmlChildLayout;
|
|
function ReadXmlChildLayout(): OpenXmlSimpleType;
|
|
function WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property Tx read ReadXmlChildTx write WriteXmlChildTx;
|
|
property Overlay read ReadXmlChildOverlay write WriteXmlChildOverlay;
|
|
function ReadXmlChildTx(): Tx;
|
|
function WriteXmlChildTx(_p1: any; _p2: any);
|
|
function ReadXmlChildOverlay(): PureVal;
|
|
function WriteXmlChildOverlay(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildTx: Tx;
|
|
XmlChildLayout: OpenXmlSimpleType;
|
|
XmlChildOverlay: PureVal;
|
|
end;
|
|
|
|
type Tx = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Tx);override;
|
|
function Clone(): Tx;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property StrRef read ReadXmlChildStrRef write WriteXmlChildStrRef;
|
|
property Rich read ReadXmlChildRich write WriteXmlChildRich;
|
|
function ReadXmlChildStrRef(): StrRef;
|
|
function WriteXmlChildStrRef(_p1: any; _p2: any);
|
|
function ReadXmlChildRich(): Rich;
|
|
function WriteXmlChildRich(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildStrRef: StrRef;
|
|
XmlChildRich: Rich;
|
|
end;
|
|
|
|
type Rich = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Rich);override;
|
|
function Clone(): Rich;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// simple_type property
|
|
property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle;
|
|
function ReadXmlChildLstStyle(): OpenXmlSimpleType;
|
|
function WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property BodyPr read ReadXmlChildBodyPr write WriteXmlChildBodyPr;
|
|
function ReadXmlChildBodyPr(): BodyPr;
|
|
function WriteXmlChildBodyPr(_p1: any; _p2: any);
|
|
|
|
// multi property
|
|
property Ps read ReadPs write WritePs;
|
|
function ReadPs(_index: integer);
|
|
function WritePs(_index: integer; _value: nil_OR_P);
|
|
function AddP(): P;
|
|
function AppendP(): P;
|
|
|
|
public
|
|
// Children
|
|
XmlChildBodyPr: BodyPr;
|
|
XmlChildLstStyle: OpenXmlSimpleType;
|
|
end;
|
|
|
|
type BodyPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: BodyPr);override;
|
|
function Clone(): BodyPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Rot read ReadXmlAttrRot write WriteXmlAttrRot;
|
|
property SpcFirstLastPara read ReadXmlAttrSpcFirstLastPara write WriteXmlAttrSpcFirstLastPara;
|
|
property VertOverflow read ReadXmlAttrVertOverflow write WriteXmlAttrVertOverflow;
|
|
property HorzOverflow read ReadXmlAttrHorzOverflow write WriteXmlAttrHorzOverflow;
|
|
property Vert read ReadXmlAttrVert write WriteXmlAttrVert;
|
|
property Wrap read ReadXmlAttrWrap write WriteXmlAttrWrap;
|
|
property LIns read ReadXmlAttrLIns write WriteXmlAttrLIns;
|
|
property TIns read ReadXmlAttrTIns write WriteXmlAttrTIns;
|
|
property RIns read ReadXmlAttrRIns write WriteXmlAttrRIns;
|
|
property BIns read ReadXmlAttrBIns write WriteXmlAttrBIns;
|
|
property NumCol read ReadXmlAttrNumCol write WriteXmlAttrNumCol;
|
|
property SpcCol read ReadXmlAttrSpcCol write WriteXmlAttrSpcCol;
|
|
property RtlCol read ReadXmlAttrRtlCol write WriteXmlAttrRtlCol;
|
|
property FromWordArt read ReadXmlAttrFromWordArt write WriteXmlAttrFromWordArt;
|
|
property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor;
|
|
property AnchorCtr read ReadXmlAttrAnchorCtr write WriteXmlAttrAnchorCtr;
|
|
property ForceAA read ReadXmlAttrForceAA write WriteXmlAttrForceAA;
|
|
property CompatLnSpc read ReadXmlAttrCompatLnSpc write WriteXmlAttrCompatLnSpc;
|
|
function ReadXmlAttrRot();
|
|
function WriteXmlAttrRot(_value: any);
|
|
function ReadXmlAttrSpcFirstLastPara();
|
|
function WriteXmlAttrSpcFirstLastPara(_value: any);
|
|
function ReadXmlAttrVertOverflow();
|
|
function WriteXmlAttrVertOverflow(_value: any);
|
|
function ReadXmlAttrHorzOverflow();
|
|
function WriteXmlAttrHorzOverflow(_value: any);
|
|
function ReadXmlAttrVert();
|
|
function WriteXmlAttrVert(_value: any);
|
|
function ReadXmlAttrWrap();
|
|
function WriteXmlAttrWrap(_value: any);
|
|
function ReadXmlAttrLIns();
|
|
function WriteXmlAttrLIns(_value: any);
|
|
function ReadXmlAttrTIns();
|
|
function WriteXmlAttrTIns(_value: any);
|
|
function ReadXmlAttrRIns();
|
|
function WriteXmlAttrRIns(_value: any);
|
|
function ReadXmlAttrBIns();
|
|
function WriteXmlAttrBIns(_value: any);
|
|
function ReadXmlAttrNumCol();
|
|
function WriteXmlAttrNumCol(_value: any);
|
|
function ReadXmlAttrSpcCol();
|
|
function WriteXmlAttrSpcCol(_value: any);
|
|
function ReadXmlAttrRtlCol();
|
|
function WriteXmlAttrRtlCol(_value: any);
|
|
function ReadXmlAttrFromWordArt();
|
|
function WriteXmlAttrFromWordArt(_value: any);
|
|
function ReadXmlAttrAnchor();
|
|
function WriteXmlAttrAnchor(_value: any);
|
|
function ReadXmlAttrAnchorCtr();
|
|
function WriteXmlAttrAnchorCtr(_value: any);
|
|
function ReadXmlAttrForceAA();
|
|
function WriteXmlAttrForceAA(_value: any);
|
|
function ReadXmlAttrCompatLnSpc();
|
|
function WriteXmlAttrCompatLnSpc(_value: any);
|
|
|
|
// simple_type property
|
|
property NoAutofit read ReadXmlChildNoAutofit write WriteXmlChildNoAutofit;
|
|
function ReadXmlChildNoAutofit(): OpenXmlSimpleType;
|
|
function WriteXmlChildNoAutofit(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property PrstTxWrap read ReadXmlChildPrstTxWrap write WriteXmlChildPrstTxWrap;
|
|
function ReadXmlChildPrstTxWrap(): PrstTxWrap;
|
|
function WriteXmlChildPrstTxWrap(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrRot: OpenXmlAttribute;
|
|
XmlAttrSpcFirstLastPara: OpenXmlAttribute;
|
|
XmlAttrVertOverflow: OpenXmlAttribute;
|
|
XmlAttrHorzOverflow: OpenXmlAttribute;
|
|
XmlAttrVert: OpenXmlAttribute;
|
|
XmlAttrWrap: OpenXmlAttribute;
|
|
XmlAttrLIns: OpenXmlAttribute;
|
|
XmlAttrTIns: OpenXmlAttribute;
|
|
XmlAttrRIns: OpenXmlAttribute;
|
|
XmlAttrBIns: OpenXmlAttribute;
|
|
XmlAttrNumCol: OpenXmlAttribute;
|
|
XmlAttrSpcCol: OpenXmlAttribute;
|
|
XmlAttrRtlCol: OpenXmlAttribute;
|
|
XmlAttrFromWordArt: OpenXmlAttribute;
|
|
XmlAttrAnchor: OpenXmlAttribute;
|
|
XmlAttrAnchorCtr: OpenXmlAttribute;
|
|
XmlAttrForceAA: OpenXmlAttribute;
|
|
XmlAttrCompatLnSpc: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildPrstTxWrap: PrstTxWrap;
|
|
XmlChildNoAutofit: OpenXmlSimpleType;
|
|
end;
|
|
|
|
type PrstTxWrap = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PrstTxWrap);override;
|
|
function Clone(): PrstTxWrap;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst;
|
|
function ReadXmlAttrPrst();
|
|
function WriteXmlAttrPrst(_value: any);
|
|
|
|
// simple_type property
|
|
property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst;
|
|
function ReadXmlChildAvLst(): OpenXmlSimpleType;
|
|
function WriteXmlChildAvLst(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrPrst: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildAvLst: OpenXmlSimpleType;
|
|
end;
|
|
|
|
type P = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: P);override;
|
|
function Clone(): P;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property PPr read ReadXmlChildPPr write WriteXmlChildPPr;
|
|
property EndParaRPr read ReadXmlChildEndParaRPr write WriteXmlChildEndParaRPr;
|
|
function ReadXmlChildPPr(): PPr;
|
|
function WriteXmlChildPPr(_p1: any; _p2: any);
|
|
function ReadXmlChildEndParaRPr(): RPr;
|
|
function WriteXmlChildEndParaRPr(_p1: any; _p2: any);
|
|
|
|
// multi property
|
|
property Rs read ReadRs write WriteRs;
|
|
function ReadRs(_index: integer);
|
|
function WriteRs(_index: integer; _value: nil_OR_R);
|
|
function AddR(): R;
|
|
function AppendR(): R;
|
|
|
|
public
|
|
// Children
|
|
XmlChildPPr: PPr;
|
|
XmlChildEndParaRPr: RPr;
|
|
end;
|
|
|
|
type RPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: RPr);override;
|
|
function Clone(): RPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Lang read ReadXmlAttrLang write WriteXmlAttrLang;
|
|
property AltLang read ReadXmlAttrAltLang write WriteXmlAttrAltLang;
|
|
property B read ReadXmlAttrB write WriteXmlAttrB;
|
|
property Baseline read ReadXmlAttrBaseline write WriteXmlAttrBaseline;
|
|
property I read ReadXmlAttrI write WriteXmlAttrI;
|
|
property Kern read ReadXmlAttrKern write WriteXmlAttrKern;
|
|
property Spc read ReadXmlAttrSpc write WriteXmlAttrSpc;
|
|
property Strike read ReadXmlAttrStrike write WriteXmlAttrStrike;
|
|
property Sz read ReadXmlAttrSz write WriteXmlAttrSz;
|
|
property U read ReadXmlAttrU write WriteXmlAttrU;
|
|
function ReadXmlAttrLang();
|
|
function WriteXmlAttrLang(_value: any);
|
|
function ReadXmlAttrAltLang();
|
|
function WriteXmlAttrAltLang(_value: any);
|
|
function ReadXmlAttrB();
|
|
function WriteXmlAttrB(_value: any);
|
|
function ReadXmlAttrBaseline();
|
|
function WriteXmlAttrBaseline(_value: any);
|
|
function ReadXmlAttrI();
|
|
function WriteXmlAttrI(_value: any);
|
|
function ReadXmlAttrKern();
|
|
function WriteXmlAttrKern(_value: any);
|
|
function ReadXmlAttrSpc();
|
|
function WriteXmlAttrSpc(_value: any);
|
|
function ReadXmlAttrStrike();
|
|
function WriteXmlAttrStrike(_value: any);
|
|
function ReadXmlAttrSz();
|
|
function WriteXmlAttrSz(_value: any);
|
|
function ReadXmlAttrU();
|
|
function WriteXmlAttrU(_value: any);
|
|
|
|
// normal property
|
|
property SolidFill read ReadXmlChildSolidFill write WriteXmlChildSolidFill;
|
|
property Latin read ReadXmlChildLatin write WriteXmlChildLatin;
|
|
property Ea read ReadXmlChildEa write WriteXmlChildEa;
|
|
property Cs read ReadXmlChildCs write WriteXmlChildCs;
|
|
function ReadXmlChildSolidFill(): SolidFill;
|
|
function WriteXmlChildSolidFill(_p1: any; _p2: any);
|
|
function ReadXmlChildLatin(): Latin;
|
|
function WriteXmlChildLatin(_p1: any; _p2: any);
|
|
function ReadXmlChildEa(): Latin;
|
|
function WriteXmlChildEa(_p1: any; _p2: any);
|
|
function ReadXmlChildCs(): Latin;
|
|
function WriteXmlChildCs(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrLang: OpenXmlAttribute;
|
|
XmlAttrAltLang: OpenXmlAttribute;
|
|
XmlAttrB: OpenXmlAttribute;
|
|
XmlAttrBaseline: OpenXmlAttribute;
|
|
XmlAttrI: OpenXmlAttribute;
|
|
XmlAttrKern: OpenXmlAttribute;
|
|
XmlAttrSpc: OpenXmlAttribute;
|
|
XmlAttrStrike: OpenXmlAttribute;
|
|
XmlAttrSz: OpenXmlAttribute;
|
|
XmlAttrU: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildSolidFill: SolidFill;
|
|
XmlChildLatin: Latin;
|
|
XmlChildEa: Latin;
|
|
XmlChildCs: Latin;
|
|
end;
|
|
|
|
type PPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PPr);override;
|
|
function Clone(): PPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property DefRPr read ReadXmlChildDefRPr write WriteXmlChildDefRPr;
|
|
function ReadXmlChildDefRPr(): RPr;
|
|
function WriteXmlChildDefRPr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildDefRPr: RPr;
|
|
end;
|
|
|
|
type Latin = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Latin);override;
|
|
function Clone(): Latin;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface;
|
|
function ReadXmlAttrTypeface();
|
|
function WriteXmlAttrTypeface(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrTypeface: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type R = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: R);override;
|
|
function Clone(): R;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
|
|
property T read ReadXmlChildT write WriteXmlChildT;
|
|
function ReadXmlChildRPr(): RPr;
|
|
function WriteXmlChildRPr(_p1: any; _p2: any);
|
|
function ReadXmlChildT(): T;
|
|
function WriteXmlChildT(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildRPr: RPr;
|
|
XmlChildT: T;
|
|
end;
|
|
|
|
type ExternalData = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: ExternalData);override;
|
|
function Clone(): ExternalData;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
|
function ReadXmlAttrId();
|
|
function WriteXmlAttrId(_value: any);
|
|
|
|
// normal property
|
|
property AutoUpdate read ReadXmlChildAutoUpdate write WriteXmlChildAutoUpdate;
|
|
function ReadXmlChildAutoUpdate(): PureVal;
|
|
function WriteXmlChildAutoUpdate(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrId: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildAutoUpdate: PureVal;
|
|
end;
|
|
|
|
type _Inline = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: _Inline);override;
|
|
function Clone(): _Inline;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT;
|
|
property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB;
|
|
property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL;
|
|
property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR;
|
|
property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId;
|
|
property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId;
|
|
function ReadXmlAttrDistT();
|
|
function WriteXmlAttrDistT(_value: any);
|
|
function ReadXmlAttrDistB();
|
|
function WriteXmlAttrDistB(_value: any);
|
|
function ReadXmlAttrDistL();
|
|
function WriteXmlAttrDistL(_value: any);
|
|
function ReadXmlAttrDistR();
|
|
function WriteXmlAttrDistR(_value: any);
|
|
function ReadXmlAttrAnchorId();
|
|
function WriteXmlAttrAnchorId(_value: any);
|
|
function ReadXmlAttrEditId();
|
|
function WriteXmlAttrEditId(_value: any);
|
|
|
|
// normal property
|
|
property Extent read ReadXmlChildExtent write WriteXmlChildExtent;
|
|
property EffectExtent read ReadXmlChildEffectExtent write WriteXmlChildEffectExtent;
|
|
property DocPr read ReadXmlChildDocPr write WriteXmlChildDocPr;
|
|
property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr write WriteXmlChildCNvGraphicFramePr;
|
|
property Graphic read ReadXmlChildGraphic write WriteXmlChildGraphic;
|
|
function ReadXmlChildExtent(): CXY;
|
|
function WriteXmlChildExtent(_p1: any; _p2: any);
|
|
function ReadXmlChildEffectExtent(): EffectExtent;
|
|
function WriteXmlChildEffectExtent(_p1: any; _p2: any);
|
|
function ReadXmlChildDocPr(): DocPr;
|
|
function WriteXmlChildDocPr(_p1: any; _p2: any);
|
|
function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr;
|
|
function WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any);
|
|
function ReadXmlChildGraphic(): Graphic;
|
|
function WriteXmlChildGraphic(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrDistT: OpenXmlAttribute;
|
|
XmlAttrDistB: OpenXmlAttribute;
|
|
XmlAttrDistL: OpenXmlAttribute;
|
|
XmlAttrDistR: OpenXmlAttribute;
|
|
XmlAttrAnchorId: OpenXmlAttribute;
|
|
XmlAttrEditId: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildExtent: CXY;
|
|
XmlChildEffectExtent: EffectExtent;
|
|
XmlChildDocPr: DocPr;
|
|
XmlChildCNvGraphicFramePr: CNvGraphicFramePr;
|
|
XmlChildGraphic: Graphic;
|
|
end;
|
|
|
|
type EffectExtent = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: EffectExtent);override;
|
|
function Clone(): EffectExtent;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property L read ReadXmlAttrL write WriteXmlAttrL;
|
|
property T read ReadXmlAttrT write WriteXmlAttrT;
|
|
property R read ReadXmlAttrR write WriteXmlAttrR;
|
|
property B read ReadXmlAttrB write WriteXmlAttrB;
|
|
function ReadXmlAttrL();
|
|
function WriteXmlAttrL(_value: any);
|
|
function ReadXmlAttrT();
|
|
function WriteXmlAttrT(_value: any);
|
|
function ReadXmlAttrR();
|
|
function WriteXmlAttrR(_value: any);
|
|
function ReadXmlAttrB();
|
|
function WriteXmlAttrB(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrL: OpenXmlAttribute;
|
|
XmlAttrT: OpenXmlAttribute;
|
|
XmlAttrR: OpenXmlAttribute;
|
|
XmlAttrB: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type DocPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: DocPr);override;
|
|
function Clone(): DocPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr;
|
|
function ReadXmlAttrId();
|
|
function WriteXmlAttrId(_value: any);
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
function ReadXmlAttrDescr();
|
|
function WriteXmlAttrDescr(_value: any);
|
|
|
|
// normal property
|
|
property ExtLst read ReadXmlChildExtLst write WriteXmlChildExtLst;
|
|
function ReadXmlChildExtLst(): ExtLst;
|
|
function WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrId: OpenXmlAttribute;
|
|
XmlAttrName: OpenXmlAttribute;
|
|
XmlAttrDescr: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildExtLst: ExtLst;
|
|
end;
|
|
|
|
type CNvGraphicFramePr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: CNvGraphicFramePr);override;
|
|
function Clone(): CNvGraphicFramePr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property GraphicFrameLocks read ReadXmlChildGraphicFrameLocks write WriteXmlChildGraphicFrameLocks;
|
|
function ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks;
|
|
function WriteXmlChildGraphicFrameLocks(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildGraphicFrameLocks: GraphicFrameLocks;
|
|
end;
|
|
|
|
type GraphicFrameLocks = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: GraphicFrameLocks);override;
|
|
function Clone(): GraphicFrameLocks;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect;
|
|
function ReadXmlAttrNoChangeAspect();
|
|
function WriteXmlAttrNoChangeAspect(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrNoChangeAspect: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Graphic = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Graphic);override;
|
|
function Clone(): Graphic;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property GraphicData read ReadXmlChildGraphicData write WriteXmlChildGraphicData;
|
|
function ReadXmlChildGraphicData(): GraphicData;
|
|
function WriteXmlChildGraphicData(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildGraphicData: GraphicData;
|
|
end;
|
|
|
|
type GraphicData = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: GraphicData);override;
|
|
function Clone(): GraphicData;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Uri read ReadXmlAttrUri write WriteXmlAttrUri;
|
|
function ReadXmlAttrUri();
|
|
function WriteXmlAttrUri(_value: any);
|
|
|
|
// normal property
|
|
property Pic read ReadXmlChildPic write WriteXmlChildPic;
|
|
property Chart read ReadXmlChildChart write WriteXmlChildChart;
|
|
property Wsp read ReadXmlChildWsp write WriteXmlChildWsp;
|
|
function ReadXmlChildPic(): Pic;
|
|
function WriteXmlChildPic(_p1: any; _p2: any);
|
|
function ReadXmlChildChart(): Chart;
|
|
function WriteXmlChildChart(_p1: any; _p2: any);
|
|
function ReadXmlChildWsp(): Wsp;
|
|
function WriteXmlChildWsp(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrUri: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildPic: Pic;
|
|
XmlChildChart: Chart;
|
|
XmlChildWsp: Wsp;
|
|
end;
|
|
|
|
type Wsp = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Wsp);override;
|
|
function Clone(): Wsp;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property CNvSpPr read ReadXmlChildCNvSpPr write WriteXmlChildCNvSpPr;
|
|
property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr;
|
|
property Txbx read ReadXmlChildTxbx write WriteXmlChildTxbx;
|
|
property Style read ReadXmlChildStyle write WriteXmlChildStyle;
|
|
property BodyPr read ReadXmlChildBodyPr write WriteXmlChildBodyPr;
|
|
function ReadXmlChildCNvSpPr(): CNvSpPr;
|
|
function WriteXmlChildCNvSpPr(_p1: any; _p2: any);
|
|
function ReadXmlChildSpPr(): SpPr;
|
|
function WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
function ReadXmlChildTxbx(): Txbx;
|
|
function WriteXmlChildTxbx(_p1: any; _p2: any);
|
|
function ReadXmlChildStyle(): WpsStyle;
|
|
function WriteXmlChildStyle(_p1: any; _p2: any);
|
|
function ReadXmlChildBodyPr(): BodyPr;
|
|
function WriteXmlChildBodyPr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildCNvSpPr: CNvSpPr;
|
|
XmlChildSpPr: SpPr;
|
|
XmlChildTxbx: Txbx;
|
|
XmlChildStyle: WpsStyle;
|
|
XmlChildBodyPr: BodyPr;
|
|
end;
|
|
|
|
type WpsStyle = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: WpsStyle);override;
|
|
function Clone(): WpsStyle;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property LnRef read ReadXmlChildLnRef write WriteXmlChildLnRef;
|
|
property FillRef read ReadXmlChildFillRef write WriteXmlChildFillRef;
|
|
property EffectRef read ReadXmlChildEffectRef write WriteXmlChildEffectRef;
|
|
property FontRef read ReadXmlChildFontRef write WriteXmlChildFontRef;
|
|
function ReadXmlChildLnRef(): XRef;
|
|
function WriteXmlChildLnRef(_p1: any; _p2: any);
|
|
function ReadXmlChildFillRef(): XRef;
|
|
function WriteXmlChildFillRef(_p1: any; _p2: any);
|
|
function ReadXmlChildEffectRef(): XRef;
|
|
function WriteXmlChildEffectRef(_p1: any; _p2: any);
|
|
function ReadXmlChildFontRef(): XRef;
|
|
function WriteXmlChildFontRef(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildLnRef: XRef;
|
|
XmlChildFillRef: XRef;
|
|
XmlChildEffectRef: XRef;
|
|
XmlChildFontRef: XRef;
|
|
end;
|
|
|
|
type XRef = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: XRef);override;
|
|
function Clone(): XRef;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx;
|
|
function ReadXmlAttrIdx();
|
|
function WriteXmlAttrIdx(_value: any);
|
|
|
|
// normal property
|
|
property SchemeClr read ReadXmlChildSchemeClr write WriteXmlChildSchemeClr;
|
|
function ReadXmlChildSchemeClr(): SchemeClr;
|
|
function WriteXmlChildSchemeClr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrIdx: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildSchemeClr: SchemeClr;
|
|
end;
|
|
|
|
type Txbx = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Txbx);override;
|
|
function Clone(): Txbx;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property TxbxContent read ReadXmlChildTxbxContent write WriteXmlChildTxbxContent;
|
|
function ReadXmlChildTxbxContent(): TxbxContent;
|
|
function WriteXmlChildTxbxContent(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildTxbxContent: TxbxContent;
|
|
end;
|
|
|
|
type CNvSpPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: CNvSpPr);override;
|
|
function Clone(): CNvSpPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property TxBox read ReadXmlAttrTxBox write WriteXmlAttrTxBox;
|
|
function ReadXmlAttrTxBox();
|
|
function WriteXmlAttrTxBox(_value: any);
|
|
|
|
// normal property
|
|
property SpLocks read ReadXmlChildSpLocks write WriteXmlChildSpLocks;
|
|
function ReadXmlChildSpLocks(): SpLocks;
|
|
function WriteXmlChildSpLocks(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrTxBox: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildSpLocks: SpLocks;
|
|
end;
|
|
|
|
type SpLocks = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SpLocks);override;
|
|
function Clone(): SpLocks;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property NoChangeArrowheads read ReadXmlAttrNoChangeArrowheads write WriteXmlAttrNoChangeArrowheads;
|
|
function ReadXmlAttrNoChangeArrowheads();
|
|
function WriteXmlAttrNoChangeArrowheads(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrNoChangeArrowheads: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Pic = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Pic);override;
|
|
function Clone(): Pic;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property NvPicPr read ReadXmlChildNvPicPr write WriteXmlChildNvPicPr;
|
|
property BlipFill read ReadXmlChildBlipFill write WriteXmlChildBlipFill;
|
|
property SpPr read ReadXmlChildSpPr write WriteXmlChildSpPr;
|
|
function ReadXmlChildNvPicPr(): NvPicPr;
|
|
function WriteXmlChildNvPicPr(_p1: any; _p2: any);
|
|
function ReadXmlChildBlipFill(): BlipFill;
|
|
function WriteXmlChildBlipFill(_p1: any; _p2: any);
|
|
function ReadXmlChildSpPr(): SpPr;
|
|
function WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildNvPicPr: NvPicPr;
|
|
XmlChildBlipFill: BlipFill;
|
|
XmlChildSpPr: SpPr;
|
|
end;
|
|
|
|
type NvPicPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: NvPicPr);override;
|
|
function Clone(): NvPicPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property CNvPr read ReadXmlChildCNvPr write WriteXmlChildCNvPr;
|
|
property CNvPicPr read ReadXmlChildCNvPicPr write WriteXmlChildCNvPicPr;
|
|
function ReadXmlChildCNvPr(): CNvPr;
|
|
function WriteXmlChildCNvPr(_p1: any; _p2: any);
|
|
function ReadXmlChildCNvPicPr(): CNvPicPr;
|
|
function WriteXmlChildCNvPicPr(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildCNvPr: CNvPr;
|
|
XmlChildCNvPicPr: CNvPicPr;
|
|
end;
|
|
|
|
type CNvPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: CNvPr);override;
|
|
function Clone(): CNvPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
|
property Name read ReadXmlAttrName write WriteXmlAttrName;
|
|
property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr;
|
|
function ReadXmlAttrId();
|
|
function WriteXmlAttrId(_value: any);
|
|
function ReadXmlAttrName();
|
|
function WriteXmlAttrName(_value: any);
|
|
function ReadXmlAttrDescr();
|
|
function WriteXmlAttrDescr(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrId: OpenXmlAttribute;
|
|
XmlAttrName: OpenXmlAttribute;
|
|
XmlAttrDescr: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type CNvPicPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: CNvPicPr);override;
|
|
function Clone(): CNvPicPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property PicLocks read ReadXmlChildPicLocks write WriteXmlChildPicLocks;
|
|
function ReadXmlChildPicLocks(): PicLocks;
|
|
function WriteXmlChildPicLocks(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildPicLocks: PicLocks;
|
|
end;
|
|
|
|
type PicLocks = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PicLocks);override;
|
|
function Clone(): PicLocks;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect;
|
|
function ReadXmlAttrNoChangeAspect();
|
|
function WriteXmlAttrNoChangeAspect(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrNoChangeAspect: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type BlipFill = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: BlipFill);override;
|
|
function Clone(): BlipFill;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property Blip read ReadXmlChildBlip write WriteXmlChildBlip;
|
|
property Stretch read ReadXmlChildStretch write WriteXmlChildStretch;
|
|
function ReadXmlChildBlip(): Blip;
|
|
function WriteXmlChildBlip(_p1: any; _p2: any);
|
|
function ReadXmlChildStretch(): Stretch;
|
|
function WriteXmlChildStretch(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildBlip: Blip;
|
|
XmlChildStretch: Stretch;
|
|
end;
|
|
|
|
type Blip = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Blip);override;
|
|
function Clone(): Blip;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Embed read ReadXmlAttrEmbed write WriteXmlAttrEmbed;
|
|
property Cstate read ReadXmlAttrCstate write WriteXmlAttrCstate;
|
|
function ReadXmlAttrEmbed();
|
|
function WriteXmlAttrEmbed(_value: any);
|
|
function ReadXmlAttrCstate();
|
|
function WriteXmlAttrCstate(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrEmbed: OpenXmlAttribute;
|
|
XmlAttrCstate: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Stretch = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Stretch);override;
|
|
function Clone(): Stretch;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property FillRect read ReadXmlChildFillRect write WriteXmlChildFillRect;
|
|
function ReadXmlChildFillRect(): PureVal;
|
|
function WriteXmlChildFillRect(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildFillRect: PureVal;
|
|
end;
|
|
|
|
type SpPr = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SpPr);override;
|
|
function Clone(): SpPr;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property BwMode read ReadXmlAttrBwMode write WriteXmlAttrBwMode;
|
|
function ReadXmlAttrBwMode();
|
|
function WriteXmlAttrBwMode(_value: any);
|
|
|
|
// simple_type property
|
|
property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill;
|
|
function ReadXmlChildNoFill(): OpenXmlSimpleType;
|
|
function WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property Xfrm read ReadXmlChildXfrm write WriteXmlChildXfrm;
|
|
property PrstGeom read ReadXmlChildPrstGeom write WriteXmlChildPrstGeom;
|
|
property SolidFill read ReadXmlChildSolidFill write WriteXmlChildSolidFill;
|
|
property Ln read ReadXmlChildLn write WriteXmlChildLn;
|
|
property EffectLst read ReadXmlChildEffectLst write WriteXmlChildEffectLst;
|
|
function ReadXmlChildXfrm(): Xfrm;
|
|
function WriteXmlChildXfrm(_p1: any; _p2: any);
|
|
function ReadXmlChildPrstGeom(): PrstGeom;
|
|
function WriteXmlChildPrstGeom(_p1: any; _p2: any);
|
|
function ReadXmlChildSolidFill(): SolidFill;
|
|
function WriteXmlChildSolidFill(_p1: any; _p2: any);
|
|
function ReadXmlChildLn(): Ln;
|
|
function WriteXmlChildLn(_p1: any; _p2: any);
|
|
function ReadXmlChildEffectLst(): EffectLst;
|
|
function WriteXmlChildEffectLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrBwMode: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildXfrm: Xfrm;
|
|
XmlChildPrstGeom: PrstGeom;
|
|
XmlChildNoFill: OpenXmlSimpleType;
|
|
XmlChildSolidFill: SolidFill;
|
|
XmlChildLn: Ln;
|
|
XmlChildEffectLst: EffectLst;
|
|
end;
|
|
|
|
type EffectLst = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: EffectLst);override;
|
|
function Clone(): EffectLst;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
|
|
// normal property
|
|
property OuterShdw read ReadXmlChildOuterShdw write WriteXmlChildOuterShdw;
|
|
function ReadXmlChildOuterShdw(): OuterShdw;
|
|
function WriteXmlChildOuterShdw(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Children
|
|
XmlChildOuterShdw: OuterShdw;
|
|
end;
|
|
|
|
type Ln = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Ln);override;
|
|
function Clone(): Ln;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property W read ReadXmlAttrW write WriteXmlAttrW;
|
|
property Cap read ReadXmlAttrCap write WriteXmlAttrCap;
|
|
property Cmpd read ReadXmlAttrCmpd write WriteXmlAttrCmpd;
|
|
property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn;
|
|
function ReadXmlAttrW();
|
|
function WriteXmlAttrW(_value: any);
|
|
function ReadXmlAttrCap();
|
|
function WriteXmlAttrCap(_value: any);
|
|
function ReadXmlAttrCmpd();
|
|
function WriteXmlAttrCmpd(_value: any);
|
|
function ReadXmlAttrAlgn();
|
|
function WriteXmlAttrAlgn(_value: any);
|
|
|
|
// simple_type property
|
|
property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill;
|
|
property HeadEnd read ReadXmlChildHeadEnd write WriteXmlChildHeadEnd;
|
|
property TailEnd read ReadXmlChildTailEnd write WriteXmlChildTailEnd;
|
|
function ReadXmlChildNoFill(): OpenXmlSimpleType;
|
|
function WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType);
|
|
function ReadXmlChildHeadEnd(): OpenXmlSimpleType;
|
|
function WriteXmlChildHeadEnd(_value: nil_or_OpenXmlSimpleType);
|
|
function ReadXmlChildTailEnd(): OpenXmlSimpleType;
|
|
function WriteXmlChildTailEnd(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property SolidFill read ReadXmlChildSolidFill write WriteXmlChildSolidFill;
|
|
property PrstDash read ReadXmlChildPrstDash write WriteXmlChildPrstDash;
|
|
property Miter read ReadXmlChildMiter write WriteXmlChildMiter;
|
|
function ReadXmlChildSolidFill(): SolidFill;
|
|
function WriteXmlChildSolidFill(_p1: any; _p2: any);
|
|
function ReadXmlChildPrstDash(): PureVal;
|
|
function WriteXmlChildPrstDash(_p1: any; _p2: any);
|
|
function ReadXmlChildMiter(): Miter;
|
|
function WriteXmlChildMiter(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrW: OpenXmlAttribute;
|
|
XmlAttrCap: OpenXmlAttribute;
|
|
XmlAttrCmpd: OpenXmlAttribute;
|
|
XmlAttrAlgn: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildNoFill: OpenXmlSimpleType;
|
|
XmlChildSolidFill: SolidFill;
|
|
XmlChildPrstDash: PureVal;
|
|
XmlChildMiter: Miter;
|
|
XmlChildHeadEnd: OpenXmlSimpleType;
|
|
XmlChildTailEnd: OpenXmlSimpleType;
|
|
end;
|
|
|
|
type Miter = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Miter);override;
|
|
function Clone(): Miter;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Lim read ReadXmlAttrLim write WriteXmlAttrLim;
|
|
function ReadXmlAttrLim();
|
|
function WriteXmlAttrLim(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrLim: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type Xfrm = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Xfrm);override;
|
|
function Clone(): Xfrm;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property FlipH read ReadXmlAttrFlipH write WriteXmlAttrFlipH;
|
|
property FlipV read ReadXmlAttrFlipV write WriteXmlAttrFlipV;
|
|
property Rot read ReadXmlAttrRot write WriteXmlAttrRot;
|
|
function ReadXmlAttrFlipH();
|
|
function WriteXmlAttrFlipH(_value: any);
|
|
function ReadXmlAttrFlipV();
|
|
function WriteXmlAttrFlipV(_value: any);
|
|
function ReadXmlAttrRot();
|
|
function WriteXmlAttrRot(_value: any);
|
|
|
|
// normal property
|
|
property Off read ReadXmlChildOff write WriteXmlChildOff;
|
|
property Ext read ReadXmlChildExt write WriteXmlChildExt;
|
|
function ReadXmlChildOff(): XY;
|
|
function WriteXmlChildOff(_p1: any; _p2: any);
|
|
function ReadXmlChildExt(): CXY;
|
|
function WriteXmlChildExt(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrFlipH: OpenXmlAttribute;
|
|
XmlAttrFlipV: OpenXmlAttribute;
|
|
XmlAttrRot: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildOff: XY;
|
|
XmlChildExt: CXY;
|
|
end;
|
|
|
|
type XY = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: XY);override;
|
|
function Clone(): XY;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property X read ReadXmlAttrX write WriteXmlAttrX;
|
|
property Y read ReadXmlAttrY write WriteXmlAttrY;
|
|
function ReadXmlAttrX();
|
|
function WriteXmlAttrX(_value: any);
|
|
function ReadXmlAttrY();
|
|
function WriteXmlAttrY(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrX: OpenXmlAttribute;
|
|
XmlAttrY: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type CXY = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: CXY);override;
|
|
function Clone(): CXY;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Cx read ReadXmlAttrCx write WriteXmlAttrCx;
|
|
property Cy read ReadXmlAttrCy write WriteXmlAttrCy;
|
|
function ReadXmlAttrCx();
|
|
function WriteXmlAttrCx(_value: any);
|
|
function ReadXmlAttrCy();
|
|
function WriteXmlAttrCy(_value: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrCx: OpenXmlAttribute;
|
|
XmlAttrCy: OpenXmlAttribute;
|
|
|
|
end;
|
|
|
|
type PrstGeom = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PrstGeom);override;
|
|
function Clone(): PrstGeom;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst;
|
|
function ReadXmlAttrPrst();
|
|
function WriteXmlAttrPrst(_value: any);
|
|
|
|
// normal property
|
|
property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst;
|
|
function ReadXmlChildAvLst(): PureVal;
|
|
function WriteXmlChildAvLst(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrPrst: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildAvLst: PureVal;
|
|
end;
|
|
|
|
type Anchor = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: Anchor);override;
|
|
function Clone(): Anchor;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT;
|
|
property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB;
|
|
property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL;
|
|
property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR;
|
|
property SimplePos read ReadXmlAttrSimplePos write WriteXmlAttrSimplePos;
|
|
property RelativeHeight read ReadXmlAttrRelativeHeight write WriteXmlAttrRelativeHeight;
|
|
property BehindDoc read ReadXmlAttrBehindDoc write WriteXmlAttrBehindDoc;
|
|
property Locked read ReadXmlAttrLocked write WriteXmlAttrLocked;
|
|
property Hidden read ReadXmlAttrHidden write WriteXmlAttrHidden;
|
|
property LayoutInCell read ReadXmlAttrLayoutInCell write WriteXmlAttrLayoutInCell;
|
|
property AllowOverlap read ReadXmlAttrAllowOverlap write WriteXmlAttrAllowOverlap;
|
|
property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId;
|
|
property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId;
|
|
function ReadXmlAttrDistT();
|
|
function WriteXmlAttrDistT(_value: any);
|
|
function ReadXmlAttrDistB();
|
|
function WriteXmlAttrDistB(_value: any);
|
|
function ReadXmlAttrDistL();
|
|
function WriteXmlAttrDistL(_value: any);
|
|
function ReadXmlAttrDistR();
|
|
function WriteXmlAttrDistR(_value: any);
|
|
function ReadXmlAttrSimplePos();
|
|
function WriteXmlAttrSimplePos(_value: any);
|
|
function ReadXmlAttrRelativeHeight();
|
|
function WriteXmlAttrRelativeHeight(_value: any);
|
|
function ReadXmlAttrBehindDoc();
|
|
function WriteXmlAttrBehindDoc(_value: any);
|
|
function ReadXmlAttrLocked();
|
|
function WriteXmlAttrLocked(_value: any);
|
|
function ReadXmlAttrHidden();
|
|
function WriteXmlAttrHidden(_value: any);
|
|
function ReadXmlAttrLayoutInCell();
|
|
function WriteXmlAttrLayoutInCell(_value: any);
|
|
function ReadXmlAttrAllowOverlap();
|
|
function WriteXmlAttrAllowOverlap(_value: any);
|
|
function ReadXmlAttrAnchorId();
|
|
function WriteXmlAttrAnchorId(_value: any);
|
|
function ReadXmlAttrEditId();
|
|
function WriteXmlAttrEditId(_value: any);
|
|
|
|
// simple_type property
|
|
property WrapNone read ReadXmlChildWrapNone write WriteXmlChildWrapNone;
|
|
function ReadXmlChildWrapNone(): OpenXmlSimpleType;
|
|
function WriteXmlChildWrapNone(_value: nil_or_OpenXmlSimpleType);
|
|
|
|
// normal property
|
|
property SimplePos read ReadXmlChildSimplePos write WriteXmlChildSimplePos;
|
|
property PositionH read ReadXmlChildPositionH write WriteXmlChildPositionH;
|
|
property PositionV read ReadXmlChildPositionV write WriteXmlChildPositionV;
|
|
property Extent read ReadXmlChildExtent write WriteXmlChildExtent;
|
|
property EffectExtent read ReadXmlChildEffectExtent write WriteXmlChildEffectExtent;
|
|
property DocPr read ReadXmlChildDocPr write WriteXmlChildDocPr;
|
|
property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr write WriteXmlChildCNvGraphicFramePr;
|
|
property Graphic read ReadXmlChildGraphic write WriteXmlChildGraphic;
|
|
property SizeRelH read ReadXmlChildSizeRelH write WriteXmlChildSizeRelH;
|
|
property SizeRelV read ReadXmlChildSizeRelV write WriteXmlChildSizeRelV;
|
|
function ReadXmlChildSimplePos(): XY;
|
|
function WriteXmlChildSimplePos(_p1: any; _p2: any);
|
|
function ReadXmlChildPositionH(): PositionH;
|
|
function WriteXmlChildPositionH(_p1: any; _p2: any);
|
|
function ReadXmlChildPositionV(): PositionV;
|
|
function WriteXmlChildPositionV(_p1: any; _p2: any);
|
|
function ReadXmlChildExtent(): CXY;
|
|
function WriteXmlChildExtent(_p1: any; _p2: any);
|
|
function ReadXmlChildEffectExtent(): EffectExtent;
|
|
function WriteXmlChildEffectExtent(_p1: any; _p2: any);
|
|
function ReadXmlChildDocPr(): DocPr;
|
|
function WriteXmlChildDocPr(_p1: any; _p2: any);
|
|
function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr;
|
|
function WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any);
|
|
function ReadXmlChildGraphic(): Graphic;
|
|
function WriteXmlChildGraphic(_p1: any; _p2: any);
|
|
function ReadXmlChildSizeRelH(): SizeRelH;
|
|
function WriteXmlChildSizeRelH(_p1: any; _p2: any);
|
|
function ReadXmlChildSizeRelV(): SizeRelV;
|
|
function WriteXmlChildSizeRelV(_p1: any; _p2: any);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrDistT: OpenXmlAttribute;
|
|
XmlAttrDistB: OpenXmlAttribute;
|
|
XmlAttrDistL: OpenXmlAttribute;
|
|
XmlAttrDistR: OpenXmlAttribute;
|
|
XmlAttrSimplePos: OpenXmlAttribute;
|
|
XmlAttrRelativeHeight: OpenXmlAttribute;
|
|
XmlAttrBehindDoc: OpenXmlAttribute;
|
|
XmlAttrLocked: OpenXmlAttribute;
|
|
XmlAttrHidden: OpenXmlAttribute;
|
|
XmlAttrLayoutInCell: OpenXmlAttribute;
|
|
XmlAttrAllowOverlap: OpenXmlAttribute;
|
|
XmlAttrAnchorId: OpenXmlAttribute;
|
|
XmlAttrEditId: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildSimplePos: XY;
|
|
XmlChildPositionH: PositionH;
|
|
XmlChildPositionV: PositionV;
|
|
XmlChildExtent: CXY;
|
|
XmlChildEffectExtent: EffectExtent;
|
|
XmlChildWrapNone: OpenXmlSimpleType;
|
|
XmlChildDocPr: DocPr;
|
|
XmlChildCNvGraphicFramePr: CNvGraphicFramePr;
|
|
XmlChildGraphic: Graphic;
|
|
XmlChildSizeRelH: SizeRelH;
|
|
XmlChildSizeRelV: SizeRelV;
|
|
end;
|
|
|
|
type PositionV = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PositionV);override;
|
|
function Clone(): PositionV;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
|
|
function ReadXmlAttrRelativeFrom();
|
|
function WriteXmlAttrRelativeFrom(_value: any);
|
|
|
|
// pcdata property
|
|
property PosOffset read ReadXmlChildPosOffset write WriteXmlChildPosOffset;
|
|
function ReadXmlChildPosOffset();
|
|
function WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrRelativeFrom: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildPosOffset: OpenXmlTextElement;
|
|
end;
|
|
|
|
type PositionH = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: PositionH);override;
|
|
function Clone(): PositionH;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
|
|
function ReadXmlAttrRelativeFrom();
|
|
function WriteXmlAttrRelativeFrom(_value: any);
|
|
|
|
// pcdata property
|
|
property PosOffset read ReadXmlChildPosOffset write WriteXmlChildPosOffset;
|
|
function ReadXmlChildPosOffset();
|
|
function WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrRelativeFrom: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildPosOffset: OpenXmlTextElement;
|
|
end;
|
|
|
|
type SizeRelH = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SizeRelH);override;
|
|
function Clone(): SizeRelH;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
|
|
function ReadXmlAttrRelativeFrom();
|
|
function WriteXmlAttrRelativeFrom(_value: any);
|
|
|
|
// pcdata property
|
|
property PctWidth read ReadXmlChildPctWidth write WriteXmlChildPctWidth;
|
|
function ReadXmlChildPctWidth();
|
|
function WriteXmlChildPctWidth(_value: nil_or_OpenXmlTextElement);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrRelativeFrom: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildPctWidth: OpenXmlTextElement;
|
|
end;
|
|
|
|
type SizeRelV = class(OpenXmlCompositeElement)
|
|
public
|
|
function create();overload;
|
|
function create(_node: XmlNode);overload;
|
|
function create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
function Init();override;
|
|
function Copy(_obj: SizeRelV);override;
|
|
function Clone(): SizeRelV;override;
|
|
function ConvertToPoint();override;
|
|
|
|
public
|
|
// attributes property
|
|
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
|
|
function ReadXmlAttrRelativeFrom();
|
|
function WriteXmlAttrRelativeFrom(_value: any);
|
|
|
|
// pcdata property
|
|
property PctHeight read ReadXmlChildPctHeight write WriteXmlChildPctHeight;
|
|
function ReadXmlChildPctHeight();
|
|
function WriteXmlChildPctHeight(_value: nil_or_OpenXmlTextElement);
|
|
|
|
public
|
|
// Attributes
|
|
XmlAttrRelativeFrom: OpenXmlAttribute;
|
|
|
|
// Children
|
|
XmlChildPctHeight: OpenXmlTextElement;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function Theme.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "theme");
|
|
end;
|
|
|
|
function Theme.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Theme.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Theme.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "themeElements": array(0, makeweakref(thisFunction(ReadXmlChildThemeElements))),
|
|
pre + "objectDefaults": array(1, makeweakref(thisFunction(ReadXmlChildObjectDefaults))),
|
|
pre + "extraClrSchemeLst": array(2, makeweakref(thisFunction(ReadXmlChildExtraClrSchemeLst))),
|
|
pre + "extLst": array(3, makeweakref(thisFunction(ReadXmlChildExtLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Theme.Copy(_obj: Theme);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.XmlChildThemeElements) then
|
|
{self.}ThemeElements.Copy(_obj.XmlChildThemeElements);
|
|
if not ifnil(_obj.XmlChildObjectDefaults) then
|
|
ifnil({self.}XmlChildObjectDefaults) ? {self.}ObjectDefaults.Copy(_obj.XmlChildObjectDefaults) : {self.}XmlChildObjectDefaults.Copy(_obj.XmlChildObjectDefaults);
|
|
if not ifnil(_obj.XmlChildExtraClrSchemeLst) then
|
|
ifnil({self.}XmlChildExtraClrSchemeLst) ? {self.}ExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst) : {self.}XmlChildExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst);
|
|
if not ifnil(_obj.XmlChildExtLst) then
|
|
{self.}ExtLst.Copy(_obj.XmlChildExtLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Theme.Clone(): Theme;override;
|
|
begin
|
|
obj := new Theme(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "themeElements": obj.ThemeElements := element.Clone();
|
|
pre + "objectDefaults": obj.ObjectDefaults := element.Clone();
|
|
pre + "extraClrSchemeLst": obj.ExtraClrSchemeLst := element.Clone();
|
|
pre + "extLst": obj.ExtLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Theme.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildThemeElements) then
|
|
{self.}XmlChildThemeElements.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildExtLst) then
|
|
{self.}XmlChildExtLst.ConvertToPoint();
|
|
end;
|
|
|
|
function Theme.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function Theme.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function Theme.ReadXmlChildObjectDefaults();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildObjectDefaults) or {self.}XmlChildObjectDefaults.Removed) then
|
|
begin
|
|
{self.}XmlChildObjectDefaults := new OpenXmlSimpleType(self, {self.}Prefix, "objectDefaults");
|
|
container_.Set({self.}XmlChildObjectDefaults);
|
|
end
|
|
return {self.}XmlChildObjectDefaults and not {self.}XmlChildObjectDefaults.Removed ? {self.}XmlChildObjectDefaults : fallback_.ObjectDefaults;
|
|
end;
|
|
|
|
function Theme.WriteXmlChildObjectDefaults(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildObjectDefaults) then
|
|
{self.}RemoveChild({self.}XmlChildObjectDefaults);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildObjectDefaults := _value;
|
|
container_.Set({self.}XmlChildObjectDefaults);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ObjectDefaults expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Theme.ReadXmlChildExtraClrSchemeLst();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExtraClrSchemeLst) or {self.}XmlChildExtraClrSchemeLst.Removed) then
|
|
begin
|
|
{self.}XmlChildExtraClrSchemeLst := new OpenXmlSimpleType(self, {self.}Prefix, "extraClrSchemeLst");
|
|
container_.Set({self.}XmlChildExtraClrSchemeLst);
|
|
end
|
|
return {self.}XmlChildExtraClrSchemeLst and not {self.}XmlChildExtraClrSchemeLst.Removed ? {self.}XmlChildExtraClrSchemeLst : fallback_.ExtraClrSchemeLst;
|
|
end;
|
|
|
|
function Theme.WriteXmlChildExtraClrSchemeLst(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildExtraClrSchemeLst) then
|
|
{self.}RemoveChild({self.}XmlChildExtraClrSchemeLst);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildExtraClrSchemeLst := _value;
|
|
container_.Set({self.}XmlChildExtraClrSchemeLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ExtraClrSchemeLst expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Theme.ReadXmlChildThemeElements(): ThemeElements;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildThemeElements) or {self.}XmlChildThemeElements.Removed) then
|
|
begin
|
|
{self.}XmlChildThemeElements := new ThemeElements(self, {self.}Prefix, "themeElements");
|
|
container_.Set({self.}XmlChildThemeElements);
|
|
end
|
|
return {self.}XmlChildThemeElements and not {self.}XmlChildThemeElements.Removed ? {self.}XmlChildThemeElements : fallback_.ThemeElements;
|
|
end;
|
|
|
|
function Theme.WriteXmlChildThemeElements(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildThemeElements) then
|
|
{self.}RemoveChild({self.}XmlChildThemeElements);
|
|
end
|
|
else if v is class(ThemeElements) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildThemeElements := v;
|
|
container_.Set({self.}XmlChildThemeElements);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ThemeElements expects ThemeElements or nil";
|
|
end
|
|
end;
|
|
|
|
function Theme.ReadXmlChildExtLst(): ExtLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then
|
|
begin
|
|
{self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst");
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst;
|
|
end;
|
|
|
|
function Theme.WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExtLst) then
|
|
{self.}RemoveChild({self.}XmlChildExtLst);
|
|
end
|
|
else if v is class(ExtLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExtLst := v;
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ExtLst expects ExtLst or nil";
|
|
end
|
|
end;
|
|
|
|
function ThemeElements.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "themeElements");
|
|
end;
|
|
|
|
function ThemeElements.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function ThemeElements.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function ThemeElements.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "clrScheme": array(0, makeweakref(thisFunction(ReadXmlChildClrScheme))),
|
|
pre + "fontScheme": array(1, makeweakref(thisFunction(ReadXmlChildFontScheme))),
|
|
pre + "fmtScheme": array(2, makeweakref(thisFunction(ReadXmlChildFmtScheme))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function ThemeElements.Copy(_obj: ThemeElements);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.XmlChildClrScheme) then
|
|
{self.}ClrScheme.Copy(_obj.XmlChildClrScheme);
|
|
if not ifnil(_obj.XmlChildFontScheme) then
|
|
{self.}FontScheme.Copy(_obj.XmlChildFontScheme);
|
|
if not ifnil(_obj.XmlChildFmtScheme) then
|
|
{self.}FmtScheme.Copy(_obj.XmlChildFmtScheme);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function ThemeElements.Clone(): ThemeElements;override;
|
|
begin
|
|
obj := new ThemeElements(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "clrScheme": obj.ClrScheme := element.Clone();
|
|
pre + "fontScheme": obj.FontScheme := element.Clone();
|
|
pre + "fmtScheme": obj.FmtScheme := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function ThemeElements.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildClrScheme) then
|
|
{self.}XmlChildClrScheme.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildFontScheme) then
|
|
{self.}XmlChildFontScheme.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildFmtScheme) then
|
|
{self.}XmlChildFmtScheme.ConvertToPoint();
|
|
end;
|
|
|
|
function ThemeElements.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function ThemeElements.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function ThemeElements.ReadXmlChildClrScheme(): ClrScheme;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildClrScheme) or {self.}XmlChildClrScheme.Removed) then
|
|
begin
|
|
{self.}XmlChildClrScheme := new ClrScheme(self, {self.}Prefix, "clrScheme");
|
|
container_.Set({self.}XmlChildClrScheme);
|
|
end
|
|
return {self.}XmlChildClrScheme and not {self.}XmlChildClrScheme.Removed ? {self.}XmlChildClrScheme : fallback_.ClrScheme;
|
|
end;
|
|
|
|
function ThemeElements.WriteXmlChildClrScheme(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildClrScheme) then
|
|
{self.}RemoveChild({self.}XmlChildClrScheme);
|
|
end
|
|
else if v is class(ClrScheme) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildClrScheme := v;
|
|
container_.Set({self.}XmlChildClrScheme);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ClrScheme expects ClrScheme or nil";
|
|
end
|
|
end;
|
|
|
|
function ThemeElements.ReadXmlChildFontScheme(): FontScheme;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFontScheme) or {self.}XmlChildFontScheme.Removed) then
|
|
begin
|
|
{self.}XmlChildFontScheme := new FontScheme(self, {self.}Prefix, "fontScheme");
|
|
container_.Set({self.}XmlChildFontScheme);
|
|
end
|
|
return {self.}XmlChildFontScheme and not {self.}XmlChildFontScheme.Removed ? {self.}XmlChildFontScheme : fallback_.FontScheme;
|
|
end;
|
|
|
|
function ThemeElements.WriteXmlChildFontScheme(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildFontScheme) then
|
|
{self.}RemoveChild({self.}XmlChildFontScheme);
|
|
end
|
|
else if v is class(FontScheme) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildFontScheme := v;
|
|
container_.Set({self.}XmlChildFontScheme);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FontScheme expects FontScheme or nil";
|
|
end
|
|
end;
|
|
|
|
function ThemeElements.ReadXmlChildFmtScheme(): FmtScheme;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFmtScheme) or {self.}XmlChildFmtScheme.Removed) then
|
|
begin
|
|
{self.}XmlChildFmtScheme := new FmtScheme(self, {self.}Prefix, "fmtScheme");
|
|
container_.Set({self.}XmlChildFmtScheme);
|
|
end
|
|
return {self.}XmlChildFmtScheme and not {self.}XmlChildFmtScheme.Removed ? {self.}XmlChildFmtScheme : fallback_.FmtScheme;
|
|
end;
|
|
|
|
function ThemeElements.WriteXmlChildFmtScheme(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildFmtScheme) then
|
|
{self.}RemoveChild({self.}XmlChildFmtScheme);
|
|
end
|
|
else if v is class(FmtScheme) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildFmtScheme := v;
|
|
container_.Set({self.}XmlChildFmtScheme);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FmtScheme expects FmtScheme or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "clrScheme");
|
|
end;
|
|
|
|
function ClrScheme.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function ClrScheme.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function ClrScheme.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "dk1": array(0, makeweakref(thisFunction(ReadXmlChildDk1))),
|
|
pre + "lt1": array(1, makeweakref(thisFunction(ReadXmlChildLt1))),
|
|
pre + "dk2": array(2, makeweakref(thisFunction(ReadXmlChildDk2))),
|
|
pre + "lt2": array(3, makeweakref(thisFunction(ReadXmlChildLt2))),
|
|
pre + "accent1": array(4, makeweakref(thisFunction(ReadXmlChildAccent1))),
|
|
pre + "accent2": array(5, makeweakref(thisFunction(ReadXmlChildAccent2))),
|
|
pre + "accent3": array(6, makeweakref(thisFunction(ReadXmlChildAccent3))),
|
|
pre + "accent4": array(7, makeweakref(thisFunction(ReadXmlChildAccent4))),
|
|
pre + "accent5": array(8, makeweakref(thisFunction(ReadXmlChildAccent5))),
|
|
pre + "accent6": array(9, makeweakref(thisFunction(ReadXmlChildAccent6))),
|
|
pre + "hlink": array(10, makeweakref(thisFunction(ReadXmlChildHlink))),
|
|
pre + "folHlink": array(11, makeweakref(thisFunction(ReadXmlChildFolHlink))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function ClrScheme.Copy(_obj: ClrScheme);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.XmlChildDk1) then
|
|
{self.}Dk1.Copy(_obj.XmlChildDk1);
|
|
if not ifnil(_obj.XmlChildLt1) then
|
|
{self.}Lt1.Copy(_obj.XmlChildLt1);
|
|
if not ifnil(_obj.XmlChildDk2) then
|
|
{self.}Dk2.Copy(_obj.XmlChildDk2);
|
|
if not ifnil(_obj.XmlChildLt2) then
|
|
{self.}Lt2.Copy(_obj.XmlChildLt2);
|
|
if not ifnil(_obj.XmlChildAccent1) then
|
|
{self.}Accent1.Copy(_obj.XmlChildAccent1);
|
|
if not ifnil(_obj.XmlChildAccent2) then
|
|
{self.}Accent2.Copy(_obj.XmlChildAccent2);
|
|
if not ifnil(_obj.XmlChildAccent3) then
|
|
{self.}Accent3.Copy(_obj.XmlChildAccent3);
|
|
if not ifnil(_obj.XmlChildAccent4) then
|
|
{self.}Accent4.Copy(_obj.XmlChildAccent4);
|
|
if not ifnil(_obj.XmlChildAccent5) then
|
|
{self.}Accent5.Copy(_obj.XmlChildAccent5);
|
|
if not ifnil(_obj.XmlChildAccent6) then
|
|
{self.}Accent6.Copy(_obj.XmlChildAccent6);
|
|
if not ifnil(_obj.XmlChildHlink) then
|
|
{self.}Hlink.Copy(_obj.XmlChildHlink);
|
|
if not ifnil(_obj.XmlChildFolHlink) then
|
|
{self.}FolHlink.Copy(_obj.XmlChildFolHlink);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function ClrScheme.Clone(): ClrScheme;override;
|
|
begin
|
|
obj := new ClrScheme(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "dk1": obj.Dk1 := element.Clone();
|
|
pre + "lt1": obj.Lt1 := element.Clone();
|
|
pre + "dk2": obj.Dk2 := element.Clone();
|
|
pre + "lt2": obj.Lt2 := element.Clone();
|
|
pre + "accent1": obj.Accent1 := element.Clone();
|
|
pre + "accent2": obj.Accent2 := element.Clone();
|
|
pre + "accent3": obj.Accent3 := element.Clone();
|
|
pre + "accent4": obj.Accent4 := element.Clone();
|
|
pre + "accent5": obj.Accent5 := element.Clone();
|
|
pre + "accent6": obj.Accent6 := element.Clone();
|
|
pre + "hlink": obj.Hlink := element.Clone();
|
|
pre + "folHlink": obj.FolHlink := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function ClrScheme.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildDk1) then
|
|
{self.}XmlChildDk1.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLt1) then
|
|
{self.}XmlChildLt1.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildDk2) then
|
|
{self.}XmlChildDk2.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLt2) then
|
|
{self.}XmlChildLt2.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAccent1) then
|
|
{self.}XmlChildAccent1.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAccent2) then
|
|
{self.}XmlChildAccent2.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAccent3) then
|
|
{self.}XmlChildAccent3.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAccent4) then
|
|
{self.}XmlChildAccent4.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAccent5) then
|
|
{self.}XmlChildAccent5.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAccent6) then
|
|
{self.}XmlChildAccent6.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildHlink) then
|
|
{self.}XmlChildHlink.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildFolHlink) then
|
|
{self.}XmlChildFolHlink.ConvertToPoint();
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildDk1(): Clr1;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDk1) or {self.}XmlChildDk1.Removed) then
|
|
begin
|
|
{self.}XmlChildDk1 := new Clr1(self, {self.}Prefix, "dk1");
|
|
container_.Set({self.}XmlChildDk1);
|
|
end
|
|
return {self.}XmlChildDk1 and not {self.}XmlChildDk1.Removed ? {self.}XmlChildDk1 : fallback_.Dk1;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildDk1(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDk1) then
|
|
{self.}RemoveChild({self.}XmlChildDk1);
|
|
end
|
|
else if v is class(Clr1) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDk1 := v;
|
|
container_.Set({self.}XmlChildDk1);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Dk1 expects Clr1 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildLt1(): Clr1;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLt1) or {self.}XmlChildLt1.Removed) then
|
|
begin
|
|
{self.}XmlChildLt1 := new Clr1(self, {self.}Prefix, "lt1");
|
|
container_.Set({self.}XmlChildLt1);
|
|
end
|
|
return {self.}XmlChildLt1 and not {self.}XmlChildLt1.Removed ? {self.}XmlChildLt1 : fallback_.Lt1;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildLt1(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLt1) then
|
|
{self.}RemoveChild({self.}XmlChildLt1);
|
|
end
|
|
else if v is class(Clr1) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLt1 := v;
|
|
container_.Set({self.}XmlChildLt1);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Lt1 expects Clr1 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildDk2(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDk2) or {self.}XmlChildDk2.Removed) then
|
|
begin
|
|
{self.}XmlChildDk2 := new Clr2(self, {self.}Prefix, "dk2");
|
|
container_.Set({self.}XmlChildDk2);
|
|
end
|
|
return {self.}XmlChildDk2 and not {self.}XmlChildDk2.Removed ? {self.}XmlChildDk2 : fallback_.Dk2;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildDk2(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDk2) then
|
|
{self.}RemoveChild({self.}XmlChildDk2);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDk2 := v;
|
|
container_.Set({self.}XmlChildDk2);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Dk2 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildLt2(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLt2) or {self.}XmlChildLt2.Removed) then
|
|
begin
|
|
{self.}XmlChildLt2 := new Clr2(self, {self.}Prefix, "lt2");
|
|
container_.Set({self.}XmlChildLt2);
|
|
end
|
|
return {self.}XmlChildLt2 and not {self.}XmlChildLt2.Removed ? {self.}XmlChildLt2 : fallback_.Lt2;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildLt2(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLt2) then
|
|
{self.}RemoveChild({self.}XmlChildLt2);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLt2 := v;
|
|
container_.Set({self.}XmlChildLt2);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Lt2 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildAccent1(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAccent1) or {self.}XmlChildAccent1.Removed) then
|
|
begin
|
|
{self.}XmlChildAccent1 := new Clr2(self, {self.}Prefix, "accent1");
|
|
container_.Set({self.}XmlChildAccent1);
|
|
end
|
|
return {self.}XmlChildAccent1 and not {self.}XmlChildAccent1.Removed ? {self.}XmlChildAccent1 : fallback_.Accent1;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildAccent1(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAccent1) then
|
|
{self.}RemoveChild({self.}XmlChildAccent1);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAccent1 := v;
|
|
container_.Set({self.}XmlChildAccent1);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Accent1 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildAccent2(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAccent2) or {self.}XmlChildAccent2.Removed) then
|
|
begin
|
|
{self.}XmlChildAccent2 := new Clr2(self, {self.}Prefix, "accent2");
|
|
container_.Set({self.}XmlChildAccent2);
|
|
end
|
|
return {self.}XmlChildAccent2 and not {self.}XmlChildAccent2.Removed ? {self.}XmlChildAccent2 : fallback_.Accent2;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildAccent2(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAccent2) then
|
|
{self.}RemoveChild({self.}XmlChildAccent2);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAccent2 := v;
|
|
container_.Set({self.}XmlChildAccent2);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Accent2 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildAccent3(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAccent3) or {self.}XmlChildAccent3.Removed) then
|
|
begin
|
|
{self.}XmlChildAccent3 := new Clr2(self, {self.}Prefix, "accent3");
|
|
container_.Set({self.}XmlChildAccent3);
|
|
end
|
|
return {self.}XmlChildAccent3 and not {self.}XmlChildAccent3.Removed ? {self.}XmlChildAccent3 : fallback_.Accent3;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildAccent3(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAccent3) then
|
|
{self.}RemoveChild({self.}XmlChildAccent3);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAccent3 := v;
|
|
container_.Set({self.}XmlChildAccent3);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Accent3 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildAccent4(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAccent4) or {self.}XmlChildAccent4.Removed) then
|
|
begin
|
|
{self.}XmlChildAccent4 := new Clr2(self, {self.}Prefix, "accent4");
|
|
container_.Set({self.}XmlChildAccent4);
|
|
end
|
|
return {self.}XmlChildAccent4 and not {self.}XmlChildAccent4.Removed ? {self.}XmlChildAccent4 : fallback_.Accent4;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildAccent4(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAccent4) then
|
|
{self.}RemoveChild({self.}XmlChildAccent4);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAccent4 := v;
|
|
container_.Set({self.}XmlChildAccent4);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Accent4 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildAccent5(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAccent5) or {self.}XmlChildAccent5.Removed) then
|
|
begin
|
|
{self.}XmlChildAccent5 := new Clr2(self, {self.}Prefix, "accent5");
|
|
container_.Set({self.}XmlChildAccent5);
|
|
end
|
|
return {self.}XmlChildAccent5 and not {self.}XmlChildAccent5.Removed ? {self.}XmlChildAccent5 : fallback_.Accent5;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildAccent5(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAccent5) then
|
|
{self.}RemoveChild({self.}XmlChildAccent5);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAccent5 := v;
|
|
container_.Set({self.}XmlChildAccent5);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Accent5 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildAccent6(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAccent6) or {self.}XmlChildAccent6.Removed) then
|
|
begin
|
|
{self.}XmlChildAccent6 := new Clr2(self, {self.}Prefix, "accent6");
|
|
container_.Set({self.}XmlChildAccent6);
|
|
end
|
|
return {self.}XmlChildAccent6 and not {self.}XmlChildAccent6.Removed ? {self.}XmlChildAccent6 : fallback_.Accent6;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildAccent6(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAccent6) then
|
|
{self.}RemoveChild({self.}XmlChildAccent6);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAccent6 := v;
|
|
container_.Set({self.}XmlChildAccent6);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Accent6 expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildHlink(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildHlink) or {self.}XmlChildHlink.Removed) then
|
|
begin
|
|
{self.}XmlChildHlink := new Clr2(self, {self.}Prefix, "hlink");
|
|
container_.Set({self.}XmlChildHlink);
|
|
end
|
|
return {self.}XmlChildHlink and not {self.}XmlChildHlink.Removed ? {self.}XmlChildHlink : fallback_.Hlink;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildHlink(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildHlink) then
|
|
{self.}RemoveChild({self.}XmlChildHlink);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildHlink := v;
|
|
container_.Set({self.}XmlChildHlink);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Hlink expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function ClrScheme.ReadXmlChildFolHlink(): Clr2;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFolHlink) or {self.}XmlChildFolHlink.Removed) then
|
|
begin
|
|
{self.}XmlChildFolHlink := new Clr2(self, {self.}Prefix, "folHlink");
|
|
container_.Set({self.}XmlChildFolHlink);
|
|
end
|
|
return {self.}XmlChildFolHlink and not {self.}XmlChildFolHlink.Removed ? {self.}XmlChildFolHlink : fallback_.FolHlink;
|
|
end;
|
|
|
|
function ClrScheme.WriteXmlChildFolHlink(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildFolHlink) then
|
|
{self.}RemoveChild({self.}XmlChildFolHlink);
|
|
end
|
|
else if v is class(Clr2) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildFolHlink := v;
|
|
container_.Set({self.}XmlChildFolHlink);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FolHlink expects Clr2 or nil";
|
|
end
|
|
end;
|
|
|
|
function Clr1.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "");
|
|
end;
|
|
|
|
function Clr1.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Clr1.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Clr1.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "sysClr": array(0, makeweakref(thisFunction(ReadXmlChildSysClr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Clr1.Copy(_obj: Clr1);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildSysClr) then
|
|
{self.}SysClr.Copy(_obj.XmlChildSysClr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Clr1.Clone(): Clr1;override;
|
|
begin
|
|
obj := new Clr1(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "sysClr": obj.SysClr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Clr1.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSysClr) then
|
|
{self.}XmlChildSysClr.ConvertToPoint();
|
|
end;
|
|
|
|
function Clr1.ReadXmlChildSysClr(): SysClr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSysClr) or {self.}XmlChildSysClr.Removed) then
|
|
begin
|
|
{self.}XmlChildSysClr := new SysClr(self, {self.}Prefix, "sysClr");
|
|
container_.Set({self.}XmlChildSysClr);
|
|
end
|
|
return {self.}XmlChildSysClr and not {self.}XmlChildSysClr.Removed ? {self.}XmlChildSysClr : fallback_.SysClr;
|
|
end;
|
|
|
|
function Clr1.WriteXmlChildSysClr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSysClr) then
|
|
{self.}RemoveChild({self.}XmlChildSysClr);
|
|
end
|
|
else if v is class(SysClr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSysClr := v;
|
|
container_.Set({self.}XmlChildSysClr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SysClr expects SysClr or nil";
|
|
end
|
|
end;
|
|
|
|
function SysClr.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "sysClr");
|
|
end;
|
|
|
|
function SysClr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SysClr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SysClr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"val": makeweakref(thisFunction(WriteXmlAttrVal)),
|
|
"LastClr": makeweakref(thisFunction(WriteXmlAttrLastClr)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SysClr.Copy(_obj: SysClr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Val) then
|
|
{self.}Val := _obj.Val;
|
|
if not ifnil(_obj.LastClr) then
|
|
{self.}LastClr := _obj.LastClr;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SysClr.Clone(): SysClr;override;
|
|
begin
|
|
obj := new SysClr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Val) then
|
|
obj.Val := {self.}Val;
|
|
if not ifnil({self.}LastClr) then
|
|
obj.LastClr := {self.}LastClr;
|
|
return obj;
|
|
end;
|
|
|
|
function SysClr.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function SysClr.ReadXmlAttrVal();
|
|
begin
|
|
return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
|
|
end;
|
|
|
|
function SysClr.WriteXmlAttrVal(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrVal) then
|
|
begin
|
|
{self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil);
|
|
attributes_["val"] := {self.}XmlAttrVal;
|
|
end
|
|
{self.}XmlAttrVal.Value := _value;
|
|
end;
|
|
|
|
function SysClr.ReadXmlAttrLastClr();
|
|
begin
|
|
return ifnil({self.}XmlAttrLastClr.Value) ? fallback_.XmlAttrLastClr.Value : {self.}XmlAttrLastClr.Value;
|
|
end;
|
|
|
|
function SysClr.WriteXmlAttrLastClr(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrLastClr) then
|
|
begin
|
|
{self.}XmlAttrLastClr := new OpenXmlAttribute("", "LastClr", nil);
|
|
attributes_["LastClr"] := {self.}XmlAttrLastClr;
|
|
end
|
|
{self.}XmlAttrLastClr.Value := _value;
|
|
end;
|
|
|
|
function Clr2.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "");
|
|
end;
|
|
|
|
function Clr2.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Clr2.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Clr2.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Clr2.Copy(_obj: Clr2);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildSrgbClr) then
|
|
{self.}SrgbClr.Copy(_obj.XmlChildSrgbClr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Clr2.Clone(): Clr2;override;
|
|
begin
|
|
obj := new Clr2(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "srgbClr": obj.SrgbClr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Clr2.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSrgbClr) then
|
|
{self.}XmlChildSrgbClr.ConvertToPoint();
|
|
end;
|
|
|
|
function Clr2.ReadXmlChildSrgbClr(): SrgbClr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSrgbClr) or {self.}XmlChildSrgbClr.Removed) then
|
|
begin
|
|
{self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr");
|
|
container_.Set({self.}XmlChildSrgbClr);
|
|
end
|
|
return {self.}XmlChildSrgbClr and not {self.}XmlChildSrgbClr.Removed ? {self.}XmlChildSrgbClr : fallback_.SrgbClr;
|
|
end;
|
|
|
|
function Clr2.WriteXmlChildSrgbClr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSrgbClr) then
|
|
{self.}RemoveChild({self.}XmlChildSrgbClr);
|
|
end
|
|
else if v is class(SrgbClr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSrgbClr := v;
|
|
container_.Set({self.}XmlChildSrgbClr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SrgbClr expects SrgbClr or nil";
|
|
end
|
|
end;
|
|
|
|
function SrgbClr.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "srgbClr");
|
|
end;
|
|
|
|
function SrgbClr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SrgbClr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SrgbClr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"val": makeweakref(thisFunction(WriteXmlAttrVal)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "aplha": array(0, makeweakref(thisFunction(ReadXmlChildAlpha))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SrgbClr.Copy(_obj: SrgbClr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Val) then
|
|
{self.}Val := _obj.Val;
|
|
if not ifnil(_obj.XmlChildAlpha) then
|
|
{self.}Alpha.Copy(_obj.XmlChildAlpha);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SrgbClr.Clone(): SrgbClr;override;
|
|
begin
|
|
obj := new SrgbClr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Val) then
|
|
obj.Val := {self.}Val;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "aplha": obj.Alpha := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function SrgbClr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildAlpha) then
|
|
{self.}XmlChildAlpha.ConvertToPoint();
|
|
end;
|
|
|
|
function SrgbClr.ReadXmlAttrVal();
|
|
begin
|
|
return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
|
|
end;
|
|
|
|
function SrgbClr.WriteXmlAttrVal(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrVal) then
|
|
begin
|
|
{self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil);
|
|
attributes_["val"] := {self.}XmlAttrVal;
|
|
end
|
|
{self.}XmlAttrVal.Value := _value;
|
|
end;
|
|
|
|
function SrgbClr.ReadXmlChildAlpha(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAlpha) or {self.}XmlChildAlpha.Removed) then
|
|
begin
|
|
{self.}XmlChildAlpha := new PureVal(self, {self.}Prefix, "aplha");
|
|
container_.Set({self.}XmlChildAlpha);
|
|
end
|
|
return {self.}XmlChildAlpha and not {self.}XmlChildAlpha.Removed ? {self.}XmlChildAlpha : fallback_.Alpha;
|
|
end;
|
|
|
|
function SrgbClr.WriteXmlChildAlpha(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAlpha) then
|
|
{self.}RemoveChild({self.}XmlChildAlpha);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAlpha := v;
|
|
container_.Set({self.}XmlChildAlpha);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Alpha expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function PureVal.create();overload;
|
|
begin
|
|
{self.}create(nil, "", "");
|
|
end;
|
|
|
|
function PureVal.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PureVal.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PureVal.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"val": makeweakref(thisFunction(WriteXmlAttrVal)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PureVal.Copy(_obj: PureVal);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Val) then
|
|
{self.}Val := _obj.Val;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PureVal.Clone(): PureVal;override;
|
|
begin
|
|
obj := new PureVal(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Val) then
|
|
obj.Val := {self.}Val;
|
|
return obj;
|
|
end;
|
|
|
|
function PureVal.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function PureVal.ReadXmlAttrVal();
|
|
begin
|
|
return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
|
|
end;
|
|
|
|
function PureVal.WriteXmlAttrVal(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrVal) then
|
|
begin
|
|
{self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil);
|
|
attributes_["val"] := {self.}XmlAttrVal;
|
|
end
|
|
{self.}XmlAttrVal.Value := _value;
|
|
end;
|
|
|
|
function FontScheme.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "fontScheme");
|
|
end;
|
|
|
|
function FontScheme.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function FontScheme.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function FontScheme.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "majorFont": array(0, makeweakref(thisFunction(ReadXmlChildMajorfont))),
|
|
pre + "minorFont": array(1, makeweakref(thisFunction(ReadXmlChildMinorfont))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function FontScheme.Copy(_obj: FontScheme);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.XmlChildMajorfont) then
|
|
{self.}Majorfont.Copy(_obj.XmlChildMajorfont);
|
|
if not ifnil(_obj.XmlChildMinorfont) then
|
|
{self.}Minorfont.Copy(_obj.XmlChildMinorfont);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function FontScheme.Clone(): FontScheme;override;
|
|
begin
|
|
obj := new FontScheme(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "majorFont": obj.Majorfont := element.Clone();
|
|
pre + "minorFont": obj.Minorfont := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function FontScheme.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildMajorfont) then
|
|
{self.}XmlChildMajorfont.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildMinorfont) then
|
|
{self.}XmlChildMinorfont.ConvertToPoint();
|
|
end;
|
|
|
|
function FontScheme.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function FontScheme.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function FontScheme.ReadXmlChildMajorfont(): Mfont;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildMajorfont) or {self.}XmlChildMajorfont.Removed) then
|
|
begin
|
|
{self.}XmlChildMajorfont := new Mfont(self, {self.}Prefix, "majorFont");
|
|
container_.Set({self.}XmlChildMajorfont);
|
|
end
|
|
return {self.}XmlChildMajorfont and not {self.}XmlChildMajorfont.Removed ? {self.}XmlChildMajorfont : fallback_.Majorfont;
|
|
end;
|
|
|
|
function FontScheme.WriteXmlChildMajorfont(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildMajorfont) then
|
|
{self.}RemoveChild({self.}XmlChildMajorfont);
|
|
end
|
|
else if v is class(Mfont) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildMajorfont := v;
|
|
container_.Set({self.}XmlChildMajorfont);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Majorfont expects Mfont or nil";
|
|
end
|
|
end;
|
|
|
|
function FontScheme.ReadXmlChildMinorfont(): Mfont;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildMinorfont) or {self.}XmlChildMinorfont.Removed) then
|
|
begin
|
|
{self.}XmlChildMinorfont := new Mfont(self, {self.}Prefix, "minorFont");
|
|
container_.Set({self.}XmlChildMinorfont);
|
|
end
|
|
return {self.}XmlChildMinorfont and not {self.}XmlChildMinorfont.Removed ? {self.}XmlChildMinorfont : fallback_.Minorfont;
|
|
end;
|
|
|
|
function FontScheme.WriteXmlChildMinorfont(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildMinorfont) then
|
|
{self.}RemoveChild({self.}XmlChildMinorfont);
|
|
end
|
|
else if v is class(Mfont) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildMinorfont := v;
|
|
container_.Set({self.}XmlChildMinorfont);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Minorfont expects Mfont or nil";
|
|
end
|
|
end;
|
|
|
|
function MFont.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "");
|
|
end;
|
|
|
|
function MFont.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function MFont.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function MFont.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "latin": array(0, makeweakref(thisFunction(ReadXmlChildLatin))),
|
|
pre + "ea": array(1, makeweakref(thisFunction(ReadXmlChildEa))),
|
|
pre + "cs": array(2, makeweakref(thisFunction(ReadXmlChildCs))),
|
|
pre + "font": array(3, makeweakref(thisFunction(AppendFont))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function MFont.Copy(_obj: MFont);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildLatin) then
|
|
{self.}Latin.Copy(_obj.XmlChildLatin);
|
|
if not ifnil(_obj.XmlChildEa) then
|
|
{self.}Ea.Copy(_obj.XmlChildEa);
|
|
if not ifnil(_obj.XmlChildCs) then
|
|
{self.}Cs.Copy(_obj.XmlChildCs);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function MFont.Clone(): MFont;override;
|
|
begin
|
|
obj := new MFont(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "latin": obj.Latin := element.Clone();
|
|
pre + "ea": obj.Ea := element.Clone();
|
|
pre + "cs": obj.Cs := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function MFont.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildLatin) then
|
|
{self.}XmlChildLatin.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEa) then
|
|
{self.}XmlChildEa.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCs) then
|
|
{self.}XmlChildCs.ConvertToPoint();
|
|
elems := {self.}Fonts();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function MFont.ReadXmlChildLatin(): Latin;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLatin) or {self.}XmlChildLatin.Removed) then
|
|
begin
|
|
{self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin");
|
|
container_.Set({self.}XmlChildLatin);
|
|
end
|
|
return {self.}XmlChildLatin and not {self.}XmlChildLatin.Removed ? {self.}XmlChildLatin : fallback_.Latin;
|
|
end;
|
|
|
|
function MFont.WriteXmlChildLatin(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLatin) then
|
|
{self.}RemoveChild({self.}XmlChildLatin);
|
|
end
|
|
else if v is class(Latin) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLatin := v;
|
|
container_.Set({self.}XmlChildLatin);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Latin expects Latin or nil";
|
|
end
|
|
end;
|
|
|
|
function MFont.ReadXmlChildEa(): Latin;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEa) or {self.}XmlChildEa.Removed) then
|
|
begin
|
|
{self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea");
|
|
container_.Set({self.}XmlChildEa);
|
|
end
|
|
return {self.}XmlChildEa and not {self.}XmlChildEa.Removed ? {self.}XmlChildEa : fallback_.Ea;
|
|
end;
|
|
|
|
function MFont.WriteXmlChildEa(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEa) then
|
|
{self.}RemoveChild({self.}XmlChildEa);
|
|
end
|
|
else if v is class(Latin) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEa := v;
|
|
container_.Set({self.}XmlChildEa);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Ea expects Latin or nil";
|
|
end
|
|
end;
|
|
|
|
function MFont.ReadXmlChildCs(): Latin;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCs) or {self.}XmlChildCs.Removed) then
|
|
begin
|
|
{self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs");
|
|
container_.Set({self.}XmlChildCs);
|
|
end
|
|
return {self.}XmlChildCs and not {self.}XmlChildCs.Removed ? {self.}XmlChildCs : fallback_.Cs;
|
|
end;
|
|
|
|
function MFont.WriteXmlChildCs(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCs) then
|
|
{self.}RemoveChild({self.}XmlChildCs);
|
|
end
|
|
else if v is class(Latin) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCs := v;
|
|
container_.Set({self.}XmlChildCs);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Cs expects Latin or nil";
|
|
end
|
|
end;
|
|
|
|
function MFont.ReadFonts(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "font", ind);
|
|
end;
|
|
|
|
function MFont.WriteFonts(_index: integer; _value: nil_OR_Font);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadFonts(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "font", ind, _value) then
|
|
raise format("Index out of range: Fonts[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Fonts expects nil or Font";
|
|
end
|
|
end;
|
|
|
|
function MFont.AddFont(): Font;
|
|
begin
|
|
obj := new Font(self, {self.}Prefix, "font");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function MFont.AppendFont(): Font;
|
|
begin
|
|
obj := new Font(self, {self.}Prefix, "font");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Font.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "font");
|
|
end;
|
|
|
|
function Font.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Font.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Font.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"script": makeweakref(thisFunction(WriteXmlAttrScript)),
|
|
"typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Font.Copy(_obj: Font);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Script) then
|
|
{self.}Script := _obj.Script;
|
|
if not ifnil(_obj.Typeface) then
|
|
{self.}Typeface := _obj.Typeface;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Font.Clone(): Font;override;
|
|
begin
|
|
obj := new Font(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Script) then
|
|
obj.Script := {self.}Script;
|
|
if not ifnil({self.}Typeface) then
|
|
obj.Typeface := {self.}Typeface;
|
|
return obj;
|
|
end;
|
|
|
|
function Font.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Font.ReadXmlAttrScript();
|
|
begin
|
|
return ifnil({self.}XmlAttrScript.Value) ? fallback_.XmlAttrScript.Value : {self.}XmlAttrScript.Value;
|
|
end;
|
|
|
|
function Font.WriteXmlAttrScript(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrScript) then
|
|
begin
|
|
{self.}XmlAttrScript := new OpenXmlAttribute("", "script", nil);
|
|
attributes_["script"] := {self.}XmlAttrScript;
|
|
end
|
|
{self.}XmlAttrScript.Value := _value;
|
|
end;
|
|
|
|
function Font.ReadXmlAttrTypeface();
|
|
begin
|
|
return ifnil({self.}XmlAttrTypeface.Value) ? fallback_.XmlAttrTypeface.Value : {self.}XmlAttrTypeface.Value;
|
|
end;
|
|
|
|
function Font.WriteXmlAttrTypeface(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrTypeface) then
|
|
begin
|
|
{self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil);
|
|
attributes_["typeface"] := {self.}XmlAttrTypeface;
|
|
end
|
|
{self.}XmlAttrTypeface.Value := _value;
|
|
end;
|
|
|
|
function FmtScheme.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "fmtScheme");
|
|
end;
|
|
|
|
function FmtScheme.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function FmtScheme.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function FmtScheme.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "fillStyleLst": array(0, makeweakref(thisFunction(ReadXmlChildFillStyleLst))),
|
|
pre + "lnStyleLst": array(1, makeweakref(thisFunction(ReadXmlChildLnStyleLst))),
|
|
pre + "effectStyleLst": array(2, makeweakref(thisFunction(ReadXmlChildEffectStyleLst))),
|
|
pre + "bgFillStyleLst": array(3, makeweakref(thisFunction(ReadXmlChildBgFillStyleLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function FmtScheme.Copy(_obj: FmtScheme);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.XmlChildFillStyleLst) then
|
|
{self.}FillStyleLst.Copy(_obj.XmlChildFillStyleLst);
|
|
if not ifnil(_obj.XmlChildLnStyleLst) then
|
|
{self.}LnStyleLst.Copy(_obj.XmlChildLnStyleLst);
|
|
if not ifnil(_obj.XmlChildEffectStyleLst) then
|
|
{self.}EffectStyleLst.Copy(_obj.XmlChildEffectStyleLst);
|
|
if not ifnil(_obj.XmlChildBgFillStyleLst) then
|
|
{self.}BgFillStyleLst.Copy(_obj.XmlChildBgFillStyleLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function FmtScheme.Clone(): FmtScheme;override;
|
|
begin
|
|
obj := new FmtScheme(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "fillStyleLst": obj.FillStyleLst := element.Clone();
|
|
pre + "lnStyleLst": obj.LnStyleLst := element.Clone();
|
|
pre + "effectStyleLst": obj.EffectStyleLst := element.Clone();
|
|
pre + "bgFillStyleLst": obj.BgFillStyleLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function FmtScheme.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildFillStyleLst) then
|
|
{self.}XmlChildFillStyleLst.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLnStyleLst) then
|
|
{self.}XmlChildLnStyleLst.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEffectStyleLst) then
|
|
{self.}XmlChildEffectStyleLst.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildBgFillStyleLst) then
|
|
{self.}XmlChildBgFillStyleLst.ConvertToPoint();
|
|
end;
|
|
|
|
function FmtScheme.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function FmtScheme.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function FmtScheme.ReadXmlChildFillStyleLst(): FillStyleLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFillStyleLst) or {self.}XmlChildFillStyleLst.Removed) then
|
|
begin
|
|
{self.}XmlChildFillStyleLst := new FillStyleLst(self, {self.}Prefix, "fillStyleLst");
|
|
container_.Set({self.}XmlChildFillStyleLst);
|
|
end
|
|
return {self.}XmlChildFillStyleLst and not {self.}XmlChildFillStyleLst.Removed ? {self.}XmlChildFillStyleLst : fallback_.FillStyleLst;
|
|
end;
|
|
|
|
function FmtScheme.WriteXmlChildFillStyleLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildFillStyleLst) then
|
|
{self.}RemoveChild({self.}XmlChildFillStyleLst);
|
|
end
|
|
else if v is class(FillStyleLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildFillStyleLst := v;
|
|
container_.Set({self.}XmlChildFillStyleLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FillStyleLst expects FillStyleLst or nil";
|
|
end
|
|
end;
|
|
|
|
function FmtScheme.ReadXmlChildLnStyleLst(): LnStyleLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLnStyleLst) or {self.}XmlChildLnStyleLst.Removed) then
|
|
begin
|
|
{self.}XmlChildLnStyleLst := new LnStyleLst(self, {self.}Prefix, "lnStyleLst");
|
|
container_.Set({self.}XmlChildLnStyleLst);
|
|
end
|
|
return {self.}XmlChildLnStyleLst and not {self.}XmlChildLnStyleLst.Removed ? {self.}XmlChildLnStyleLst : fallback_.LnStyleLst;
|
|
end;
|
|
|
|
function FmtScheme.WriteXmlChildLnStyleLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLnStyleLst) then
|
|
{self.}RemoveChild({self.}XmlChildLnStyleLst);
|
|
end
|
|
else if v is class(LnStyleLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLnStyleLst := v;
|
|
container_.Set({self.}XmlChildLnStyleLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LnStyleLst expects LnStyleLst or nil";
|
|
end
|
|
end;
|
|
|
|
function FmtScheme.ReadXmlChildEffectStyleLst(): EffectStyleLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEffectStyleLst) or {self.}XmlChildEffectStyleLst.Removed) then
|
|
begin
|
|
{self.}XmlChildEffectStyleLst := new EffectStyleLst(self, {self.}Prefix, "effectStyleLst");
|
|
container_.Set({self.}XmlChildEffectStyleLst);
|
|
end
|
|
return {self.}XmlChildEffectStyleLst and not {self.}XmlChildEffectStyleLst.Removed ? {self.}XmlChildEffectStyleLst : fallback_.EffectStyleLst;
|
|
end;
|
|
|
|
function FmtScheme.WriteXmlChildEffectStyleLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEffectStyleLst) then
|
|
{self.}RemoveChild({self.}XmlChildEffectStyleLst);
|
|
end
|
|
else if v is class(EffectStyleLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEffectStyleLst := v;
|
|
container_.Set({self.}XmlChildEffectStyleLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EffectStyleLst expects EffectStyleLst or nil";
|
|
end
|
|
end;
|
|
|
|
function FmtScheme.ReadXmlChildBgFillStyleLst(): FillStyleLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBgFillStyleLst) or {self.}XmlChildBgFillStyleLst.Removed) then
|
|
begin
|
|
{self.}XmlChildBgFillStyleLst := new FillStyleLst(self, {self.}Prefix, "bgFillStyleLst");
|
|
container_.Set({self.}XmlChildBgFillStyleLst);
|
|
end
|
|
return {self.}XmlChildBgFillStyleLst and not {self.}XmlChildBgFillStyleLst.Removed ? {self.}XmlChildBgFillStyleLst : fallback_.BgFillStyleLst;
|
|
end;
|
|
|
|
function FmtScheme.WriteXmlChildBgFillStyleLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBgFillStyleLst) then
|
|
{self.}RemoveChild({self.}XmlChildBgFillStyleLst);
|
|
end
|
|
else if v is class(FillStyleLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBgFillStyleLst := v;
|
|
container_.Set({self.}XmlChildBgFillStyleLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: BgFillStyleLst expects FillStyleLst or nil";
|
|
end
|
|
end;
|
|
|
|
function FillStyleLst.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "fillStyleLst");
|
|
end;
|
|
|
|
function FillStyleLst.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function FillStyleLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function FillStyleLst.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "solidFill": array(0, makeweakref(thisFunction(AppendSolidFill))),
|
|
pre + "gradFill": array(1, makeweakref(thisFunction(AppendGradFill))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function FillStyleLst.Copy(_obj: FillStyleLst);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function FillStyleLst.Clone(): FillStyleLst;override;
|
|
begin
|
|
obj := new FillStyleLst(nil, {self.}Prefix, {self.}LocalName);
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
obj.AppendChild(element.Clone());
|
|
return obj;
|
|
end;
|
|
|
|
function FillStyleLst.ConvertToPoint();override;
|
|
begin
|
|
elems := {self.}SolidFills();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
elems := {self.}GradFills();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function FillStyleLst.ReadSolidFills(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "solidFill", ind);
|
|
end;
|
|
|
|
function FillStyleLst.WriteSolidFills(_index: integer; _value: nil_OR_SolidFill);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadSolidFills(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "solidFill", ind, _value) then
|
|
raise format("Index out of range: SolidFills[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SolidFills expects nil or SolidFill";
|
|
end
|
|
end;
|
|
|
|
function FillStyleLst.ReadGradFills(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "gradFill", ind);
|
|
end;
|
|
|
|
function FillStyleLst.WriteGradFills(_index: integer; _value: nil_OR_GradFill);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadGradFills(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "gradFill", ind, _value) then
|
|
raise format("Index out of range: GradFills[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: GradFills expects nil or GradFill";
|
|
end
|
|
end;
|
|
|
|
function FillStyleLst.AddSolidFill(): SolidFill;
|
|
begin
|
|
obj := new SolidFill(self, {self.}Prefix, "solidFill");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function FillStyleLst.AddGradFill(): GradFill;
|
|
begin
|
|
obj := new GradFill(self, {self.}Prefix, "gradFill");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function FillStyleLst.AppendSolidFill(): SolidFill;
|
|
begin
|
|
obj := new SolidFill(self, {self.}Prefix, "solidFill");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function FillStyleLst.AppendGradFill(): GradFill;
|
|
begin
|
|
obj := new GradFill(self, {self.}Prefix, "gradFill");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function SolidFill.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "solidFill");
|
|
end;
|
|
|
|
function SolidFill.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SolidFill.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SolidFill.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SolidFill.Copy(_obj: SolidFill);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildSchemeClr) then
|
|
{self.}SchemeClr.Copy(_obj.XmlChildSchemeClr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SolidFill.Clone(): SolidFill;override;
|
|
begin
|
|
obj := new SolidFill(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "schemeClr": obj.SchemeClr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function SolidFill.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSchemeClr) then
|
|
{self.}XmlChildSchemeClr.ConvertToPoint();
|
|
end;
|
|
|
|
function SolidFill.ReadXmlChildSchemeClr(): SchemeClr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSchemeClr) or {self.}XmlChildSchemeClr.Removed) then
|
|
begin
|
|
{self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr");
|
|
container_.Set({self.}XmlChildSchemeClr);
|
|
end
|
|
return {self.}XmlChildSchemeClr and not {self.}XmlChildSchemeClr.Removed ? {self.}XmlChildSchemeClr : fallback_.SchemeClr;
|
|
end;
|
|
|
|
function SolidFill.WriteXmlChildSchemeClr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSchemeClr) then
|
|
{self.}RemoveChild({self.}XmlChildSchemeClr);
|
|
end
|
|
else if v is class(SchemeClr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSchemeClr := v;
|
|
container_.Set({self.}XmlChildSchemeClr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SchemeClr expects SchemeClr or nil";
|
|
end
|
|
end;
|
|
|
|
function SchemeClr.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "schemeClr");
|
|
end;
|
|
|
|
function SchemeClr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SchemeClr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SchemeClr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"val": makeweakref(thisFunction(WriteXmlAttrVal)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "lumMod": array(0, makeweakref(thisFunction(ReadXmlChildLumMod))),
|
|
pre + "satMod": array(1, makeweakref(thisFunction(ReadXmlChildSatMod))),
|
|
pre + "tint": array(2, makeweakref(thisFunction(ReadXmlChildTint))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SchemeClr.Copy(_obj: SchemeClr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Val) then
|
|
{self.}Val := _obj.Val;
|
|
if not ifnil(_obj.XmlChildLumMod) then
|
|
{self.}LumMod.Copy(_obj.XmlChildLumMod);
|
|
if not ifnil(_obj.XmlChildSatMod) then
|
|
{self.}SatMod.Copy(_obj.XmlChildSatMod);
|
|
if not ifnil(_obj.XmlChildTint) then
|
|
{self.}Tint.Copy(_obj.XmlChildTint);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SchemeClr.Clone(): SchemeClr;override;
|
|
begin
|
|
obj := new SchemeClr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Val) then
|
|
obj.Val := {self.}Val;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "lumMod": obj.LumMod := element.Clone();
|
|
pre + "satMod": obj.SatMod := element.Clone();
|
|
pre + "tint": obj.Tint := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function SchemeClr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildLumMod) then
|
|
{self.}XmlChildLumMod.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSatMod) then
|
|
{self.}XmlChildSatMod.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTint) then
|
|
{self.}XmlChildTint.ConvertToPoint();
|
|
end;
|
|
|
|
function SchemeClr.ReadXmlAttrVal();
|
|
begin
|
|
return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
|
|
end;
|
|
|
|
function SchemeClr.WriteXmlAttrVal(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrVal) then
|
|
begin
|
|
{self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil);
|
|
attributes_["val"] := {self.}XmlAttrVal;
|
|
end
|
|
{self.}XmlAttrVal.Value := _value;
|
|
end;
|
|
|
|
function SchemeClr.ReadXmlChildLumMod(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLumMod) or {self.}XmlChildLumMod.Removed) then
|
|
begin
|
|
{self.}XmlChildLumMod := new PureVal(self, {self.}Prefix, "lumMod");
|
|
container_.Set({self.}XmlChildLumMod);
|
|
end
|
|
return {self.}XmlChildLumMod and not {self.}XmlChildLumMod.Removed ? {self.}XmlChildLumMod : fallback_.LumMod;
|
|
end;
|
|
|
|
function SchemeClr.WriteXmlChildLumMod(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLumMod) then
|
|
{self.}RemoveChild({self.}XmlChildLumMod);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLumMod := v;
|
|
container_.Set({self.}XmlChildLumMod);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LumMod expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function SchemeClr.ReadXmlChildSatMod(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSatMod) or {self.}XmlChildSatMod.Removed) then
|
|
begin
|
|
{self.}XmlChildSatMod := new PureVal(self, {self.}Prefix, "satMod");
|
|
container_.Set({self.}XmlChildSatMod);
|
|
end
|
|
return {self.}XmlChildSatMod and not {self.}XmlChildSatMod.Removed ? {self.}XmlChildSatMod : fallback_.SatMod;
|
|
end;
|
|
|
|
function SchemeClr.WriteXmlChildSatMod(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSatMod) then
|
|
{self.}RemoveChild({self.}XmlChildSatMod);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSatMod := v;
|
|
container_.Set({self.}XmlChildSatMod);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SatMod expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function SchemeClr.ReadXmlChildTint(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTint) or {self.}XmlChildTint.Removed) then
|
|
begin
|
|
{self.}XmlChildTint := new PureVal(self, {self.}Prefix, "tint");
|
|
container_.Set({self.}XmlChildTint);
|
|
end
|
|
return {self.}XmlChildTint and not {self.}XmlChildTint.Removed ? {self.}XmlChildTint : fallback_.Tint;
|
|
end;
|
|
|
|
function SchemeClr.WriteXmlChildTint(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTint) then
|
|
{self.}RemoveChild({self.}XmlChildTint);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTint := v;
|
|
container_.Set({self.}XmlChildTint);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Tint expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function GradFill.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "gradFill");
|
|
end;
|
|
|
|
function GradFill.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function GradFill.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function GradFill.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "gsLst": array(0, makeweakref(thisFunction(ReadXmlChildGsLst))),
|
|
pre + "lin": array(1, makeweakref(thisFunction(ReadXmlChildLin))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function GradFill.Copy(_obj: GradFill);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.RotWithShape) then
|
|
{self.}RotWithShape := _obj.RotWithShape;
|
|
if not ifnil(_obj.XmlChildGsLst) then
|
|
{self.}GsLst.Copy(_obj.XmlChildGsLst);
|
|
if not ifnil(_obj.XmlChildLin) then
|
|
{self.}Lin.Copy(_obj.XmlChildLin);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function GradFill.Clone(): GradFill;override;
|
|
begin
|
|
obj := new GradFill(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}RotWithShape) then
|
|
obj.RotWithShape := {self.}RotWithShape;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "gsLst": obj.GsLst := element.Clone();
|
|
pre + "lin": obj.Lin := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function GradFill.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildGsLst) then
|
|
{self.}XmlChildGsLst.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLin) then
|
|
{self.}XmlChildLin.ConvertToPoint();
|
|
end;
|
|
|
|
function GradFill.ReadXmlAttrRotWithShape();
|
|
begin
|
|
return ifnil({self.}XmlAttrRotWithShape.Value) ? fallback_.XmlAttrRotWithShape.Value : {self.}XmlAttrRotWithShape.Value;
|
|
end;
|
|
|
|
function GradFill.WriteXmlAttrRotWithShape(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRotWithShape) then
|
|
begin
|
|
{self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil);
|
|
attributes_["rotWithShape"] := {self.}XmlAttrRotWithShape;
|
|
end
|
|
{self.}XmlAttrRotWithShape.Value := _value;
|
|
end;
|
|
|
|
function GradFill.ReadXmlChildGsLst(): GsLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildGsLst) or {self.}XmlChildGsLst.Removed) then
|
|
begin
|
|
{self.}XmlChildGsLst := new GsLst(self, {self.}Prefix, "gsLst");
|
|
container_.Set({self.}XmlChildGsLst);
|
|
end
|
|
return {self.}XmlChildGsLst and not {self.}XmlChildGsLst.Removed ? {self.}XmlChildGsLst : fallback_.GsLst;
|
|
end;
|
|
|
|
function GradFill.WriteXmlChildGsLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildGsLst) then
|
|
{self.}RemoveChild({self.}XmlChildGsLst);
|
|
end
|
|
else if v is class(GsLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildGsLst := v;
|
|
container_.Set({self.}XmlChildGsLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: GsLst expects GsLst or nil";
|
|
end
|
|
end;
|
|
|
|
function GradFill.ReadXmlChildLin(): Lin;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLin) or {self.}XmlChildLin.Removed) then
|
|
begin
|
|
{self.}XmlChildLin := new Lin(self, {self.}Prefix, "lin");
|
|
container_.Set({self.}XmlChildLin);
|
|
end
|
|
return {self.}XmlChildLin and not {self.}XmlChildLin.Removed ? {self.}XmlChildLin : fallback_.Lin;
|
|
end;
|
|
|
|
function GradFill.WriteXmlChildLin(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLin) then
|
|
{self.}RemoveChild({self.}XmlChildLin);
|
|
end
|
|
else if v is class(Lin) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLin := v;
|
|
container_.Set({self.}XmlChildLin);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Lin expects Lin or nil";
|
|
end
|
|
end;
|
|
|
|
function GsLst.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "gsLst");
|
|
end;
|
|
|
|
function GsLst.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function GsLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function GsLst.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "gs": array(0, makeweakref(thisFunction(AppendGs))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function GsLst.Copy(_obj: GsLst);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function GsLst.Clone(): GsLst;override;
|
|
begin
|
|
obj := new GsLst(nil, {self.}Prefix, {self.}LocalName);
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
obj.AppendChild(element.Clone());
|
|
return obj;
|
|
end;
|
|
|
|
function GsLst.ConvertToPoint();override;
|
|
begin
|
|
elems := {self.}Gses();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function GsLst.ReadGses(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "gs", ind);
|
|
end;
|
|
|
|
function GsLst.WriteGses(_index: integer; _value: nil_OR_Gs);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadGses(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "gs", ind, _value) then
|
|
raise format("Index out of range: Gses[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Gses expects nil or Gs";
|
|
end
|
|
end;
|
|
|
|
function GsLst.AddGs(): Gs;
|
|
begin
|
|
obj := new Gs(self, {self.}Prefix, "gs");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function GsLst.AppendGs(): Gs;
|
|
begin
|
|
obj := new Gs(self, {self.}Prefix, "gs");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Gs.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "gs");
|
|
end;
|
|
|
|
function Gs.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Gs.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Gs.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"pos": makeweakref(thisFunction(WriteXmlAttrPos)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Gs.Copy(_obj: Gs);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Pos) then
|
|
{self.}Pos := _obj.Pos;
|
|
if not ifnil(_obj.XmlChildSchemeClr) then
|
|
{self.}SchemeClr.Copy(_obj.XmlChildSchemeClr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Gs.Clone(): Gs;override;
|
|
begin
|
|
obj := new Gs(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Pos) then
|
|
obj.Pos := {self.}Pos;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "schemeClr": obj.SchemeClr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Gs.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSchemeClr) then
|
|
{self.}XmlChildSchemeClr.ConvertToPoint();
|
|
end;
|
|
|
|
function Gs.ReadXmlAttrPos();
|
|
begin
|
|
return ifnil({self.}XmlAttrPos.Value) ? fallback_.XmlAttrPos.Value : {self.}XmlAttrPos.Value;
|
|
end;
|
|
|
|
function Gs.WriteXmlAttrPos(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrPos) then
|
|
begin
|
|
{self.}XmlAttrPos := new OpenXmlAttribute("", "pos", nil);
|
|
attributes_["pos"] := {self.}XmlAttrPos;
|
|
end
|
|
{self.}XmlAttrPos.Value := _value;
|
|
end;
|
|
|
|
function Gs.ReadXmlChildSchemeClr(): SchemeClr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSchemeClr) or {self.}XmlChildSchemeClr.Removed) then
|
|
begin
|
|
{self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr");
|
|
container_.Set({self.}XmlChildSchemeClr);
|
|
end
|
|
return {self.}XmlChildSchemeClr and not {self.}XmlChildSchemeClr.Removed ? {self.}XmlChildSchemeClr : fallback_.SchemeClr;
|
|
end;
|
|
|
|
function Gs.WriteXmlChildSchemeClr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSchemeClr) then
|
|
{self.}RemoveChild({self.}XmlChildSchemeClr);
|
|
end
|
|
else if v is class(SchemeClr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSchemeClr := v;
|
|
container_.Set({self.}XmlChildSchemeClr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SchemeClr expects SchemeClr or nil";
|
|
end
|
|
end;
|
|
|
|
function Lin.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "lin");
|
|
end;
|
|
|
|
function Lin.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Lin.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Lin.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"ang": makeweakref(thisFunction(WriteXmlAttrAng)),
|
|
"scaled": makeweakref(thisFunction(WriteXmlAttrScaled)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Lin.Copy(_obj: Lin);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Ang) then
|
|
{self.}Ang := _obj.Ang;
|
|
if not ifnil(_obj.Scaled) then
|
|
{self.}Scaled := _obj.Scaled;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Lin.Clone(): Lin;override;
|
|
begin
|
|
obj := new Lin(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Ang) then
|
|
obj.Ang := {self.}Ang;
|
|
if not ifnil({self.}Scaled) then
|
|
obj.Scaled := {self.}Scaled;
|
|
return obj;
|
|
end;
|
|
|
|
function Lin.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Lin.ReadXmlAttrAng();
|
|
begin
|
|
return ifnil({self.}XmlAttrAng.Value) ? fallback_.XmlAttrAng.Value : {self.}XmlAttrAng.Value;
|
|
end;
|
|
|
|
function Lin.WriteXmlAttrAng(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAng) then
|
|
begin
|
|
{self.}XmlAttrAng := new OpenXmlAttribute("", "ang", nil);
|
|
attributes_["ang"] := {self.}XmlAttrAng;
|
|
end
|
|
{self.}XmlAttrAng.Value := _value;
|
|
end;
|
|
|
|
function Lin.ReadXmlAttrScaled();
|
|
begin
|
|
return ifnil({self.}XmlAttrScaled.Value) ? fallback_.XmlAttrScaled.Value : {self.}XmlAttrScaled.Value;
|
|
end;
|
|
|
|
function Lin.WriteXmlAttrScaled(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrScaled) then
|
|
begin
|
|
{self.}XmlAttrScaled := new OpenXmlAttribute("", "scaled", nil);
|
|
attributes_["scaled"] := {self.}XmlAttrScaled;
|
|
end
|
|
{self.}XmlAttrScaled.Value := _value;
|
|
end;
|
|
|
|
function LnStyleLst.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "lnStyleLst");
|
|
end;
|
|
|
|
function LnStyleLst.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function LnStyleLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function LnStyleLst.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "ln": array(0, makeweakref(thisFunction(AppendLn))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function LnStyleLst.Copy(_obj: LnStyleLst);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function LnStyleLst.Clone(): LnStyleLst;override;
|
|
begin
|
|
obj := new LnStyleLst(nil, {self.}Prefix, {self.}LocalName);
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
obj.AppendChild(element.Clone());
|
|
return obj;
|
|
end;
|
|
|
|
function LnStyleLst.ConvertToPoint();override;
|
|
begin
|
|
elems := {self.}Lns();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function LnStyleLst.ReadLns(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "ln", ind);
|
|
end;
|
|
|
|
function LnStyleLst.WriteLns(_index: integer; _value: nil_OR_Ln);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadLns(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "ln", ind, _value) then
|
|
raise format("Index out of range: Lns[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Lns expects nil or Ln";
|
|
end
|
|
end;
|
|
|
|
function LnStyleLst.AddLn(): Ln;
|
|
begin
|
|
obj := new Ln(self, {self.}Prefix, "ln");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function LnStyleLst.AppendLn(): Ln;
|
|
begin
|
|
obj := new Ln(self, {self.}Prefix, "ln");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function EffectStyleLst.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "effectStyleLst");
|
|
end;
|
|
|
|
function EffectStyleLst.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function EffectStyleLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function EffectStyleLst.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "effectStyle": array(0, makeweakref(thisFunction(AppendEffectStyle))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function EffectStyleLst.Copy(_obj: EffectStyleLst);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function EffectStyleLst.Clone(): EffectStyleLst;override;
|
|
begin
|
|
obj := new EffectStyleLst(nil, {self.}Prefix, {self.}LocalName);
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
obj.AppendChild(element.Clone());
|
|
return obj;
|
|
end;
|
|
|
|
function EffectStyleLst.ConvertToPoint();override;
|
|
begin
|
|
elems := {self.}EffectStyles();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function EffectStyleLst.ReadEffectStyles(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "effectStyle", ind);
|
|
end;
|
|
|
|
function EffectStyleLst.WriteEffectStyles(_index: integer; _value: nil_OR_EffectStyle);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadEffectStyles(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "effectStyle", ind, _value) then
|
|
raise format("Index out of range: EffectStyles[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EffectStyles expects nil or EffectStyle";
|
|
end
|
|
end;
|
|
|
|
function EffectStyleLst.AddEffectStyle(): EffectStyle;
|
|
begin
|
|
obj := new EffectStyle(self, {self.}Prefix, "effectStyle");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function EffectStyleLst.AppendEffectStyle(): EffectStyle;
|
|
begin
|
|
obj := new EffectStyle(self, {self.}Prefix, "effectStyle");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function EffectStyle.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "effectStyle");
|
|
end;
|
|
|
|
function EffectStyle.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function EffectStyle.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function EffectStyle.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "effectLst": array(0, makeweakref(thisFunction(ReadXmlChildEffectLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function EffectStyle.Copy(_obj: EffectStyle);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildEffectLst) then
|
|
{self.}EffectLst.Copy(_obj.XmlChildEffectLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function EffectStyle.Clone(): EffectStyle;override;
|
|
begin
|
|
obj := new EffectStyle(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "effectLst": obj.EffectLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function EffectStyle.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildEffectLst) then
|
|
{self.}XmlChildEffectLst.ConvertToPoint();
|
|
end;
|
|
|
|
function EffectStyle.ReadXmlChildEffectLst(): EffectLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEffectLst) or {self.}XmlChildEffectLst.Removed) then
|
|
begin
|
|
{self.}XmlChildEffectLst := new EffectLst(self, {self.}Prefix, "effectLst");
|
|
container_.Set({self.}XmlChildEffectLst);
|
|
end
|
|
return {self.}XmlChildEffectLst and not {self.}XmlChildEffectLst.Removed ? {self.}XmlChildEffectLst : fallback_.EffectLst;
|
|
end;
|
|
|
|
function EffectStyle.WriteXmlChildEffectLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEffectLst) then
|
|
{self.}RemoveChild({self.}XmlChildEffectLst);
|
|
end
|
|
else if v is class(EffectLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEffectLst := v;
|
|
container_.Set({self.}XmlChildEffectLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EffectLst expects EffectLst or nil";
|
|
end
|
|
end;
|
|
|
|
function OuterShdw.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "outerShdw");
|
|
end;
|
|
|
|
function OuterShdw.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function OuterShdw.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function OuterShdw.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"blurRad": makeweakref(thisFunction(WriteXmlAttrBlurRad)),
|
|
"dist": makeweakref(thisFunction(WriteXmlAttrDist)),
|
|
"dir": makeweakref(thisFunction(WriteXmlAttrDir)),
|
|
"algn": makeweakref(thisFunction(WriteXmlAttrAlgn)),
|
|
"rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function OuterShdw.Copy(_obj: OuterShdw);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.BlurRad) then
|
|
{self.}BlurRad := _obj.BlurRad;
|
|
if not ifnil(_obj.Dist) then
|
|
{self.}Dist := _obj.Dist;
|
|
if not ifnil(_obj.Dir) then
|
|
{self.}Dir := _obj.Dir;
|
|
if not ifnil(_obj.Algn) then
|
|
{self.}Algn := _obj.Algn;
|
|
if not ifnil(_obj.RotWithShape) then
|
|
{self.}RotWithShape := _obj.RotWithShape;
|
|
if not ifnil(_obj.XmlChildSrgbClr) then
|
|
{self.}SrgbClr.Copy(_obj.XmlChildSrgbClr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function OuterShdw.Clone(): OuterShdw;override;
|
|
begin
|
|
obj := new OuterShdw(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}BlurRad) then
|
|
obj.BlurRad := {self.}BlurRad;
|
|
if not ifnil({self.}Dist) then
|
|
obj.Dist := {self.}Dist;
|
|
if not ifnil({self.}Dir) then
|
|
obj.Dir := {self.}Dir;
|
|
if not ifnil({self.}Algn) then
|
|
obj.Algn := {self.}Algn;
|
|
if not ifnil({self.}RotWithShape) then
|
|
obj.RotWithShape := {self.}RotWithShape;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "srgbClr": obj.SrgbClr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function OuterShdw.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSrgbClr) then
|
|
{self.}XmlChildSrgbClr.ConvertToPoint();
|
|
end;
|
|
|
|
function OuterShdw.ReadXmlAttrBlurRad();
|
|
begin
|
|
return ifnil({self.}XmlAttrBlurRad.Value) ? fallback_.XmlAttrBlurRad.Value : {self.}XmlAttrBlurRad.Value;
|
|
end;
|
|
|
|
function OuterShdw.WriteXmlAttrBlurRad(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrBlurRad) then
|
|
begin
|
|
{self.}XmlAttrBlurRad := new OpenXmlAttribute("", "blurRad", nil);
|
|
attributes_["blurRad"] := {self.}XmlAttrBlurRad;
|
|
end
|
|
{self.}XmlAttrBlurRad.Value := _value;
|
|
end;
|
|
|
|
function OuterShdw.ReadXmlAttrDist();
|
|
begin
|
|
return ifnil({self.}XmlAttrDist.Value) ? fallback_.XmlAttrDist.Value : {self.}XmlAttrDist.Value;
|
|
end;
|
|
|
|
function OuterShdw.WriteXmlAttrDist(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDist) then
|
|
begin
|
|
{self.}XmlAttrDist := new OpenXmlAttribute("", "dist", nil);
|
|
attributes_["dist"] := {self.}XmlAttrDist;
|
|
end
|
|
{self.}XmlAttrDist.Value := _value;
|
|
end;
|
|
|
|
function OuterShdw.ReadXmlAttrDir();
|
|
begin
|
|
return ifnil({self.}XmlAttrDir.Value) ? fallback_.XmlAttrDir.Value : {self.}XmlAttrDir.Value;
|
|
end;
|
|
|
|
function OuterShdw.WriteXmlAttrDir(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDir) then
|
|
begin
|
|
{self.}XmlAttrDir := new OpenXmlAttribute("", "dir", nil);
|
|
attributes_["dir"] := {self.}XmlAttrDir;
|
|
end
|
|
{self.}XmlAttrDir.Value := _value;
|
|
end;
|
|
|
|
function OuterShdw.ReadXmlAttrAlgn();
|
|
begin
|
|
return ifnil({self.}XmlAttrAlgn.Value) ? fallback_.XmlAttrAlgn.Value : {self.}XmlAttrAlgn.Value;
|
|
end;
|
|
|
|
function OuterShdw.WriteXmlAttrAlgn(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAlgn) then
|
|
begin
|
|
{self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil);
|
|
attributes_["algn"] := {self.}XmlAttrAlgn;
|
|
end
|
|
{self.}XmlAttrAlgn.Value := _value;
|
|
end;
|
|
|
|
function OuterShdw.ReadXmlAttrRotWithShape();
|
|
begin
|
|
return ifnil({self.}XmlAttrRotWithShape.Value) ? fallback_.XmlAttrRotWithShape.Value : {self.}XmlAttrRotWithShape.Value;
|
|
end;
|
|
|
|
function OuterShdw.WriteXmlAttrRotWithShape(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRotWithShape) then
|
|
begin
|
|
{self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil);
|
|
attributes_["rotWithShape"] := {self.}XmlAttrRotWithShape;
|
|
end
|
|
{self.}XmlAttrRotWithShape.Value := _value;
|
|
end;
|
|
|
|
function OuterShdw.ReadXmlChildSrgbClr(): SrgbClr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSrgbClr) or {self.}XmlChildSrgbClr.Removed) then
|
|
begin
|
|
{self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr");
|
|
container_.Set({self.}XmlChildSrgbClr);
|
|
end
|
|
return {self.}XmlChildSrgbClr and not {self.}XmlChildSrgbClr.Removed ? {self.}XmlChildSrgbClr : fallback_.SrgbClr;
|
|
end;
|
|
|
|
function OuterShdw.WriteXmlChildSrgbClr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSrgbClr) then
|
|
{self.}RemoveChild({self.}XmlChildSrgbClr);
|
|
end
|
|
else if v is class(SrgbClr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSrgbClr := v;
|
|
container_.Set({self.}XmlChildSrgbClr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SrgbClr expects SrgbClr or nil";
|
|
end
|
|
end;
|
|
|
|
function ExtLst.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "extLst");
|
|
end;
|
|
|
|
function ExtLst.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function ExtLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function ExtLst.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "ext": array(0, makeweakref(thisFunction(AppendExt))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function ExtLst.Copy(_obj: ExtLst);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function ExtLst.Clone(): ExtLst;override;
|
|
begin
|
|
obj := new ExtLst(nil, {self.}Prefix, {self.}LocalName);
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
obj.AppendChild(element.Clone());
|
|
return obj;
|
|
end;
|
|
|
|
function ExtLst.ConvertToPoint();override;
|
|
begin
|
|
elems := {self.}Exts();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function ExtLst.ReadExts(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "ext", ind);
|
|
end;
|
|
|
|
function ExtLst.WriteExts(_index: integer; _value: nil_OR_Ext);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadExts(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "ext", ind, _value) then
|
|
raise format("Index out of range: Exts[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Exts expects nil or Ext";
|
|
end
|
|
end;
|
|
|
|
function ExtLst.AddExt(): Ext;
|
|
begin
|
|
obj := new Ext(self, {self.}Prefix, "ext");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function ExtLst.AppendExt(): Ext;
|
|
begin
|
|
obj := new Ext(self, {self.}Prefix, "ext");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Ext.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "ext");
|
|
end;
|
|
|
|
function Ext.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Ext.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Ext.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"uri": makeweakref(thisFunction(WriteXmlAttrUri)),
|
|
);
|
|
sorted_child_ := array(
|
|
"thm15:themeFamily": array(0, makeweakref(thisFunction(ReadXmlChildThm15ThemeFamily))),
|
|
"c16:uniquedId": array(1, makeweakref(thisFunction(ReadXmlChildUniqueId))),
|
|
"x14:slicerStyles": array(2, makeweakref(thisFunction(ReadXmlChildSlicerStyles))),
|
|
"x15:timelineStyles": array(3, makeweakref(thisFunction(ReadXmlChildTimelineStyles))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Ext.Copy(_obj: Ext);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Uri) then
|
|
{self.}Uri := _obj.Uri;
|
|
if not ifnil(_obj.XmlChildThm15ThemeFamily) then
|
|
{self.}Thm15ThemeFamily.Copy(_obj.XmlChildThm15ThemeFamily);
|
|
if not ifnil(_obj.XmlChildUniqueId) then
|
|
{self.}UniqueId.Copy(_obj.XmlChildUniqueId);
|
|
if not ifnil(_obj.XmlChildSlicerStyles) then
|
|
{self.}SlicerStyles.Copy(_obj.XmlChildSlicerStyles);
|
|
if not ifnil(_obj.XmlChildTimelineStyles) then
|
|
{self.}TimelineStyles.Copy(_obj.XmlChildTimelineStyles);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Ext.Clone(): Ext;override;
|
|
begin
|
|
obj := new Ext(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Uri) then
|
|
obj.Uri := {self.}Uri;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"thm15:themeFamily": obj.Thm15ThemeFamily := element.Clone();
|
|
"c16:uniquedId": obj.UniqueId := element.Clone();
|
|
"x14:slicerStyles": obj.SlicerStyles := element.Clone();
|
|
"x15:timelineStyles": obj.TimelineStyles := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Ext.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildThm15ThemeFamily) then
|
|
{self.}XmlChildThm15ThemeFamily.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildUniqueId) then
|
|
{self.}XmlChildUniqueId.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSlicerStyles) then
|
|
{self.}XmlChildSlicerStyles.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTimelineStyles) then
|
|
{self.}XmlChildTimelineStyles.ConvertToPoint();
|
|
end;
|
|
|
|
function Ext.ReadXmlAttrUri();
|
|
begin
|
|
return ifnil({self.}XmlAttrUri.Value) ? fallback_.XmlAttrUri.Value : {self.}XmlAttrUri.Value;
|
|
end;
|
|
|
|
function Ext.WriteXmlAttrUri(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrUri) then
|
|
begin
|
|
{self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil);
|
|
attributes_["uri"] := {self.}XmlAttrUri;
|
|
end
|
|
{self.}XmlAttrUri.Value := _value;
|
|
end;
|
|
|
|
function Ext.ReadXmlChildThm15ThemeFamily(): ThemeFamily;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildThm15ThemeFamily) or {self.}XmlChildThm15ThemeFamily.Removed) then
|
|
begin
|
|
{self.}XmlChildThm15ThemeFamily := new ThemeFamily(self, "thm15", "themeFamily");
|
|
container_.Set({self.}XmlChildThm15ThemeFamily);
|
|
end
|
|
return {self.}XmlChildThm15ThemeFamily and not {self.}XmlChildThm15ThemeFamily.Removed ? {self.}XmlChildThm15ThemeFamily : fallback_.Thm15ThemeFamily;
|
|
end;
|
|
|
|
function Ext.WriteXmlChildThm15ThemeFamily(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildThm15ThemeFamily) then
|
|
{self.}RemoveChild({self.}XmlChildThm15ThemeFamily);
|
|
end
|
|
else if v is class(ThemeFamily) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildThm15ThemeFamily := v;
|
|
container_.Set({self.}XmlChildThm15ThemeFamily);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Thm15ThemeFamily expects ThemeFamily or nil";
|
|
end
|
|
end;
|
|
|
|
function Ext.ReadXmlChildUniqueId(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildUniqueId) or {self.}XmlChildUniqueId.Removed) then
|
|
begin
|
|
{self.}XmlChildUniqueId := new PureVal(self, "c16", "uniquedId");
|
|
container_.Set({self.}XmlChildUniqueId);
|
|
end
|
|
return {self.}XmlChildUniqueId and not {self.}XmlChildUniqueId.Removed ? {self.}XmlChildUniqueId : fallback_.UniqueId;
|
|
end;
|
|
|
|
function Ext.WriteXmlChildUniqueId(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildUniqueId) then
|
|
{self.}RemoveChild({self.}XmlChildUniqueId);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildUniqueId := v;
|
|
container_.Set({self.}XmlChildUniqueId);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: UniqueId expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ext.ReadXmlChildSlicerStyles(): SlicerStyles;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSlicerStyles) or {self.}XmlChildSlicerStyles.Removed) then
|
|
begin
|
|
{self.}XmlChildSlicerStyles := new SlicerStyles(self, "x14", "slicerStyles");
|
|
container_.Set({self.}XmlChildSlicerStyles);
|
|
end
|
|
return {self.}XmlChildSlicerStyles and not {self.}XmlChildSlicerStyles.Removed ? {self.}XmlChildSlicerStyles : fallback_.SlicerStyles;
|
|
end;
|
|
|
|
function Ext.WriteXmlChildSlicerStyles(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSlicerStyles) then
|
|
{self.}RemoveChild({self.}XmlChildSlicerStyles);
|
|
end
|
|
else if v is class(SlicerStyles) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSlicerStyles := v;
|
|
container_.Set({self.}XmlChildSlicerStyles);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SlicerStyles expects SlicerStyles or nil";
|
|
end
|
|
end;
|
|
|
|
function Ext.ReadXmlChildTimelineStyles(): TimelineStyles;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTimelineStyles) or {self.}XmlChildTimelineStyles.Removed) then
|
|
begin
|
|
{self.}XmlChildTimelineStyles := new TimelineStyles(self, "x15", "timelineStyles");
|
|
container_.Set({self.}XmlChildTimelineStyles);
|
|
end
|
|
return {self.}XmlChildTimelineStyles and not {self.}XmlChildTimelineStyles.Removed ? {self.}XmlChildTimelineStyles : fallback_.TimelineStyles;
|
|
end;
|
|
|
|
function Ext.WriteXmlChildTimelineStyles(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTimelineStyles) then
|
|
{self.}RemoveChild({self.}XmlChildTimelineStyles);
|
|
end
|
|
else if v is class(TimelineStyles) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTimelineStyles := v;
|
|
container_.Set({self.}XmlChildTimelineStyles);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: TimelineStyles expects TimelineStyles or nil";
|
|
end
|
|
end;
|
|
|
|
function SlicerStyles.create();overload;
|
|
begin
|
|
{self.}create(nil, "", "slicerStyles");
|
|
end;
|
|
|
|
function SlicerStyles.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SlicerStyles.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SlicerStyles.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"defaultSlicerStyle": makeweakref(thisFunction(WriteXmlAttrDefaultSlicerStyle)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SlicerStyles.Copy(_obj: SlicerStyles);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.DefaultSlicerStyle) then
|
|
{self.}DefaultSlicerStyle := _obj.DefaultSlicerStyle;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SlicerStyles.Clone(): SlicerStyles;override;
|
|
begin
|
|
obj := new SlicerStyles(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}DefaultSlicerStyle) then
|
|
obj.DefaultSlicerStyle := {self.}DefaultSlicerStyle;
|
|
return obj;
|
|
end;
|
|
|
|
function SlicerStyles.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function SlicerStyles.ReadXmlAttrDefaultSlicerStyle();
|
|
begin
|
|
return ifnil({self.}XmlAttrDefaultSlicerStyle.Value) ? fallback_.XmlAttrDefaultSlicerStyle.Value : {self.}XmlAttrDefaultSlicerStyle.Value;
|
|
end;
|
|
|
|
function SlicerStyles.WriteXmlAttrDefaultSlicerStyle(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDefaultSlicerStyle) then
|
|
begin
|
|
{self.}XmlAttrDefaultSlicerStyle := new OpenXmlAttribute("", "defaultSlicerStyle", nil);
|
|
attributes_["defaultSlicerStyle"] := {self.}XmlAttrDefaultSlicerStyle;
|
|
end
|
|
{self.}XmlAttrDefaultSlicerStyle.Value := _value;
|
|
end;
|
|
|
|
function TimelineStyles.create();overload;
|
|
begin
|
|
{self.}create(nil, "", "timelineStyles");
|
|
end;
|
|
|
|
function TimelineStyles.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function TimelineStyles.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function TimelineStyles.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"defaultTimelineStyle": makeweakref(thisFunction(WriteXmlAttrDefaultTimelineStyle)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function TimelineStyles.Copy(_obj: TimelineStyles);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.DefaultTimelineStyle) then
|
|
{self.}DefaultTimelineStyle := _obj.DefaultTimelineStyle;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function TimelineStyles.Clone(): TimelineStyles;override;
|
|
begin
|
|
obj := new TimelineStyles(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}DefaultTimelineStyle) then
|
|
obj.DefaultTimelineStyle := {self.}DefaultTimelineStyle;
|
|
return obj;
|
|
end;
|
|
|
|
function TimelineStyles.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function TimelineStyles.ReadXmlAttrDefaultTimelineStyle();
|
|
begin
|
|
return ifnil({self.}XmlAttrDefaultTimelineStyle.Value) ? fallback_.XmlAttrDefaultTimelineStyle.Value : {self.}XmlAttrDefaultTimelineStyle.Value;
|
|
end;
|
|
|
|
function TimelineStyles.WriteXmlAttrDefaultTimelineStyle(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDefaultTimelineStyle) then
|
|
begin
|
|
{self.}XmlAttrDefaultTimelineStyle := new OpenXmlAttribute("", "defaultTimelineStyle", nil);
|
|
attributes_["defaultTimelineStyle"] := {self.}XmlAttrDefaultTimelineStyle;
|
|
end
|
|
{self.}XmlAttrDefaultTimelineStyle.Value := _value;
|
|
end;
|
|
|
|
function ThemeFamily.create();overload;
|
|
begin
|
|
{self.}create(nil, "thm15", "themeFamily");
|
|
end;
|
|
|
|
function ThemeFamily.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function ThemeFamily.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function ThemeFamily.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
"Id": makeweakref(thisFunction(WriteXmlAttrId)),
|
|
"vid": makeweakref(thisFunction(WriteXmlAttrVid)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function ThemeFamily.Copy(_obj: ThemeFamily);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.Id) then
|
|
{self.}Id := _obj.Id;
|
|
if not ifnil(_obj.Vid) then
|
|
{self.}Vid := _obj.Vid;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function ThemeFamily.Clone(): ThemeFamily;override;
|
|
begin
|
|
obj := new ThemeFamily(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
if not ifnil({self.}Id) then
|
|
obj.Id := {self.}Id;
|
|
if not ifnil({self.}Vid) then
|
|
obj.Vid := {self.}Vid;
|
|
return obj;
|
|
end;
|
|
|
|
function ThemeFamily.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function ThemeFamily.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function ThemeFamily.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function ThemeFamily.ReadXmlAttrId();
|
|
begin
|
|
return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
|
|
end;
|
|
|
|
function ThemeFamily.WriteXmlAttrId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrId) then
|
|
begin
|
|
{self.}XmlAttrId := new OpenXmlAttribute("", "Id", nil);
|
|
attributes_["Id"] := {self.}XmlAttrId;
|
|
end
|
|
{self.}XmlAttrId.Value := _value;
|
|
end;
|
|
|
|
function ThemeFamily.ReadXmlAttrVid();
|
|
begin
|
|
return ifnil({self.}XmlAttrVid.Value) ? fallback_.XmlAttrVid.Value : {self.}XmlAttrVid.Value;
|
|
end;
|
|
|
|
function ThemeFamily.WriteXmlAttrVid(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrVid) then
|
|
begin
|
|
{self.}XmlAttrVid := new OpenXmlAttribute("", "vid", nil);
|
|
attributes_["vid"] := {self.}XmlAttrVid;
|
|
end
|
|
{self.}XmlAttrVid.Value := _value;
|
|
end;
|
|
|
|
function ChartSpace.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "chartSpace");
|
|
end;
|
|
|
|
function ChartSpace.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function ChartSpace.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function ChartSpace.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "date1904": array(0, makeweakref(thisFunction(ReadXmlChildDate1904))),
|
|
pre + "lang": array(1, makeweakref(thisFunction(ReadXmlChildLang))),
|
|
"mc:AlternateContent": array(2, makeweakref(thisFunction(ReadXmlChildAlternateContent))),
|
|
pre + "chart": array(3, makeweakref(thisFunction(ReadXmlChildChart))),
|
|
pre + "spPr": array(4, makeweakref(thisFunction(ReadXmlChildSpPr))),
|
|
pre + "externalData": array(5, makeweakref(thisFunction(ReadXmlChildExternalData))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function ChartSpace.Copy(_obj: ChartSpace);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildDate1904) then
|
|
{self.}Date1904.Copy(_obj.XmlChildDate1904);
|
|
if not ifnil(_obj.XmlChildLang) then
|
|
ifnil({self.}XmlChildLang) ? {self.}Lang.Copy(_obj.XmlChildLang) : {self.}XmlChildLang.Copy(_obj.XmlChildLang);
|
|
if not ifnil(_obj.XmlChildAlternateContent) then
|
|
{self.}AlternateContent.Copy(_obj.XmlChildAlternateContent);
|
|
if not ifnil(_obj.XmlChildChart) then
|
|
{self.}Chart.Copy(_obj.XmlChildChart);
|
|
if not ifnil(_obj.XmlChildSpPr) then
|
|
{self.}SpPr.Copy(_obj.XmlChildSpPr);
|
|
if not ifnil(_obj.XmlChildExternalData) then
|
|
{self.}ExternalData.Copy(_obj.XmlChildExternalData);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function ChartSpace.Clone(): ChartSpace;override;
|
|
begin
|
|
obj := new ChartSpace(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "date1904": obj.Date1904 := element.Clone();
|
|
pre + "lang": obj.Lang := element.Clone();
|
|
"mc:AlternateContent": obj.AlternateContent := element.Clone();
|
|
pre + "chart": obj.Chart := element.Clone();
|
|
pre + "spPr": obj.SpPr := element.Clone();
|
|
pre + "externalData": obj.ExternalData := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function ChartSpace.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildDate1904) then
|
|
{self.}XmlChildDate1904.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAlternateContent) then
|
|
{self.}XmlChildAlternateContent.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildChart) then
|
|
{self.}XmlChildChart.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSpPr) then
|
|
{self.}XmlChildSpPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildExternalData) then
|
|
{self.}XmlChildExternalData.ConvertToPoint();
|
|
end;
|
|
|
|
function ChartSpace.ReadXmlChildLang();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLang) or {self.}XmlChildLang.Removed) then
|
|
begin
|
|
{self.}XmlChildLang := new OpenXmlSimpleType(self, {self.}Prefix, "lang");
|
|
container_.Set({self.}XmlChildLang);
|
|
end
|
|
return {self.}XmlChildLang and not {self.}XmlChildLang.Removed ? {self.}XmlChildLang : fallback_.Lang;
|
|
end;
|
|
|
|
function ChartSpace.WriteXmlChildLang(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildLang) then
|
|
{self.}RemoveChild({self.}XmlChildLang);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildLang := _value;
|
|
container_.Set({self.}XmlChildLang);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Lang expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function ChartSpace.ReadXmlChildDate1904(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDate1904) or {self.}XmlChildDate1904.Removed) then
|
|
begin
|
|
{self.}XmlChildDate1904 := new PureVal(self, {self.}Prefix, "date1904");
|
|
container_.Set({self.}XmlChildDate1904);
|
|
end
|
|
return {self.}XmlChildDate1904 and not {self.}XmlChildDate1904.Removed ? {self.}XmlChildDate1904 : fallback_.Date1904;
|
|
end;
|
|
|
|
function ChartSpace.WriteXmlChildDate1904(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDate1904) then
|
|
{self.}RemoveChild({self.}XmlChildDate1904);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDate1904 := v;
|
|
container_.Set({self.}XmlChildDate1904);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Date1904 expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function ChartSpace.ReadXmlChildAlternateContent(): AlternateContent;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAlternateContent) or {self.}XmlChildAlternateContent.Removed) then
|
|
begin
|
|
{self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent");
|
|
container_.Set({self.}XmlChildAlternateContent);
|
|
end
|
|
return {self.}XmlChildAlternateContent and not {self.}XmlChildAlternateContent.Removed ? {self.}XmlChildAlternateContent : fallback_.AlternateContent;
|
|
end;
|
|
|
|
function ChartSpace.WriteXmlChildAlternateContent(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAlternateContent) then
|
|
{self.}RemoveChild({self.}XmlChildAlternateContent);
|
|
end
|
|
else if v is class(AlternateContent) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAlternateContent := v;
|
|
container_.Set({self.}XmlChildAlternateContent);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AlternateContent expects AlternateContent or nil";
|
|
end
|
|
end;
|
|
|
|
function ChartSpace.ReadXmlChildChart(): Chart;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildChart) or {self.}XmlChildChart.Removed) then
|
|
begin
|
|
{self.}XmlChildChart := new Chart(self, {self.}Prefix, "chart");
|
|
container_.Set({self.}XmlChildChart);
|
|
end
|
|
return {self.}XmlChildChart and not {self.}XmlChildChart.Removed ? {self.}XmlChildChart : fallback_.Chart;
|
|
end;
|
|
|
|
function ChartSpace.WriteXmlChildChart(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildChart) then
|
|
{self.}RemoveChild({self.}XmlChildChart);
|
|
end
|
|
else if v is class(Chart) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildChart := v;
|
|
container_.Set({self.}XmlChildChart);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Chart expects Chart or nil";
|
|
end
|
|
end;
|
|
|
|
function ChartSpace.ReadXmlChildSpPr(): SpPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then
|
|
begin
|
|
{self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr");
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr;
|
|
end;
|
|
|
|
function ChartSpace.WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSpPr) then
|
|
{self.}RemoveChild({self.}XmlChildSpPr);
|
|
end
|
|
else if v is class(SpPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSpPr := v;
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SpPr expects SpPr or nil";
|
|
end
|
|
end;
|
|
|
|
function ChartSpace.ReadXmlChildExternalData(): ExternalData;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExternalData) or {self.}XmlChildExternalData.Removed) then
|
|
begin
|
|
{self.}XmlChildExternalData := new ExternalData(self, {self.}Prefix, "externalData");
|
|
container_.Set({self.}XmlChildExternalData);
|
|
end
|
|
return {self.}XmlChildExternalData and not {self.}XmlChildExternalData.Removed ? {self.}XmlChildExternalData : fallback_.ExternalData;
|
|
end;
|
|
|
|
function ChartSpace.WriteXmlChildExternalData(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExternalData) then
|
|
{self.}RemoveChild({self.}XmlChildExternalData);
|
|
end
|
|
else if v is class(ExternalData) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExternalData := v;
|
|
container_.Set({self.}XmlChildExternalData);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ExternalData expects ExternalData or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "chart");
|
|
end;
|
|
|
|
function Chart.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Chart.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Chart.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"r:id": makeweakref(thisFunction(WriteXmlAttrId)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "title": array(0, makeweakref(thisFunction(ReadXmlChildTitle))),
|
|
pre + "autoTitleDeleted": array(1, makeweakref(thisFunction(ReadXmlChildAutoTitleDeleted))),
|
|
pre + "view3D": array(2, makeweakref(thisFunction(ReadXmlChildView3D))),
|
|
pre + "plotArea": array(3, makeweakref(thisFunction(ReadXmlChildPlotArea))),
|
|
pre + "legend": array(4, makeweakref(thisFunction(ReadXmlChildLegend))),
|
|
pre + "plotVisOnly": array(5, makeweakref(thisFunction(ReadXmlChildPlotVisOnly))),
|
|
pre + "dispBlanksAs": array(6, makeweakref(thisFunction(ReadXmlChildDispBlanksAs))),
|
|
pre + "showDLblsOverMax": array(7, makeweakref(thisFunction(ReadXmlChildShowDLblsOverMax))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Chart.Copy(_obj: Chart);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Id) then
|
|
{self.}Id := _obj.Id;
|
|
if not ifnil(_obj.XmlChildTitle) then
|
|
{self.}Title.Copy(_obj.XmlChildTitle);
|
|
if not ifnil(_obj.XmlChildAutoTitleDeleted) then
|
|
{self.}AutoTitleDeleted.Copy(_obj.XmlChildAutoTitleDeleted);
|
|
if not ifnil(_obj.XmlChildView3D) then
|
|
{self.}View3D.Copy(_obj.XmlChildView3D);
|
|
if not ifnil(_obj.XmlChildPlotArea) then
|
|
{self.}PlotArea.Copy(_obj.XmlChildPlotArea);
|
|
if not ifnil(_obj.XmlChildLegend) then
|
|
{self.}Legend.Copy(_obj.XmlChildLegend);
|
|
if not ifnil(_obj.XmlChildPlotVisOnly) then
|
|
{self.}PlotVisOnly.Copy(_obj.XmlChildPlotVisOnly);
|
|
if not ifnil(_obj.XmlChildDispBlanksAs) then
|
|
{self.}DispBlanksAs.Copy(_obj.XmlChildDispBlanksAs);
|
|
if not ifnil(_obj.XmlChildShowDLblsOverMax) then
|
|
{self.}ShowDLblsOverMax.Copy(_obj.XmlChildShowDLblsOverMax);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Chart.Clone(): Chart;override;
|
|
begin
|
|
obj := new Chart(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Id) then
|
|
obj.Id := {self.}Id;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "title": obj.Title := element.Clone();
|
|
pre + "autoTitleDeleted": obj.AutoTitleDeleted := element.Clone();
|
|
pre + "view3D": obj.View3D := element.Clone();
|
|
pre + "plotArea": obj.PlotArea := element.Clone();
|
|
pre + "legend": obj.Legend := element.Clone();
|
|
pre + "plotVisOnly": obj.PlotVisOnly := element.Clone();
|
|
pre + "dispBlanksAs": obj.DispBlanksAs := element.Clone();
|
|
pre + "showDLblsOverMax": obj.ShowDLblsOverMax := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Chart.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildTitle) then
|
|
{self.}XmlChildTitle.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAutoTitleDeleted) then
|
|
{self.}XmlChildAutoTitleDeleted.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildView3D) then
|
|
{self.}XmlChildView3D.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildPlotArea) then
|
|
{self.}XmlChildPlotArea.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLegend) then
|
|
{self.}XmlChildLegend.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildPlotVisOnly) then
|
|
{self.}XmlChildPlotVisOnly.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildDispBlanksAs) then
|
|
{self.}XmlChildDispBlanksAs.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowDLblsOverMax) then
|
|
{self.}XmlChildShowDLblsOverMax.ConvertToPoint();
|
|
end;
|
|
|
|
function Chart.ReadXmlAttrId();
|
|
begin
|
|
return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
|
|
end;
|
|
|
|
function Chart.WriteXmlAttrId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrId) then
|
|
begin
|
|
{self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil);
|
|
attributes_["r:id"] := {self.}XmlAttrId;
|
|
end
|
|
{self.}XmlAttrId.Value := _value;
|
|
end;
|
|
|
|
function Chart.ReadXmlChildTitle(): Title;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTitle) or {self.}XmlChildTitle.Removed) then
|
|
begin
|
|
{self.}XmlChildTitle := new Title(self, {self.}Prefix, "title");
|
|
container_.Set({self.}XmlChildTitle);
|
|
end
|
|
return {self.}XmlChildTitle and not {self.}XmlChildTitle.Removed ? {self.}XmlChildTitle : fallback_.Title;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildTitle(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTitle) then
|
|
{self.}RemoveChild({self.}XmlChildTitle);
|
|
end
|
|
else if v is class(Title) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTitle := v;
|
|
container_.Set({self.}XmlChildTitle);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Title expects Title or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.ReadXmlChildAutoTitleDeleted(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAutoTitleDeleted) or {self.}XmlChildAutoTitleDeleted.Removed) then
|
|
begin
|
|
{self.}XmlChildAutoTitleDeleted := new PureVal(self, {self.}Prefix, "autoTitleDeleted");
|
|
container_.Set({self.}XmlChildAutoTitleDeleted);
|
|
end
|
|
return {self.}XmlChildAutoTitleDeleted and not {self.}XmlChildAutoTitleDeleted.Removed ? {self.}XmlChildAutoTitleDeleted : fallback_.AutoTitleDeleted;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildAutoTitleDeleted(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAutoTitleDeleted) then
|
|
{self.}RemoveChild({self.}XmlChildAutoTitleDeleted);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAutoTitleDeleted := v;
|
|
container_.Set({self.}XmlChildAutoTitleDeleted);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AutoTitleDeleted expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.ReadXmlChildView3D(): View3D;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildView3D) or {self.}XmlChildView3D.Removed) then
|
|
begin
|
|
{self.}XmlChildView3D := new View3D(self, {self.}Prefix, "view3D");
|
|
container_.Set({self.}XmlChildView3D);
|
|
end
|
|
return {self.}XmlChildView3D and not {self.}XmlChildView3D.Removed ? {self.}XmlChildView3D : fallback_.View3D;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildView3D(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildView3D) then
|
|
{self.}RemoveChild({self.}XmlChildView3D);
|
|
end
|
|
else if v is class(View3D) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildView3D := v;
|
|
container_.Set({self.}XmlChildView3D);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: View3D expects View3D or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.ReadXmlChildPlotArea(): PlotArea;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPlotArea) or {self.}XmlChildPlotArea.Removed) then
|
|
begin
|
|
{self.}XmlChildPlotArea := new PlotArea(self, {self.}Prefix, "plotArea");
|
|
container_.Set({self.}XmlChildPlotArea);
|
|
end
|
|
return {self.}XmlChildPlotArea and not {self.}XmlChildPlotArea.Removed ? {self.}XmlChildPlotArea : fallback_.PlotArea;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildPlotArea(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPlotArea) then
|
|
{self.}RemoveChild({self.}XmlChildPlotArea);
|
|
end
|
|
else if v is class(PlotArea) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPlotArea := v;
|
|
container_.Set({self.}XmlChildPlotArea);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PlotArea expects PlotArea or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.ReadXmlChildLegend(): Legend;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLegend) or {self.}XmlChildLegend.Removed) then
|
|
begin
|
|
{self.}XmlChildLegend := new Legend(self, {self.}Prefix, "legend");
|
|
container_.Set({self.}XmlChildLegend);
|
|
end
|
|
return {self.}XmlChildLegend and not {self.}XmlChildLegend.Removed ? {self.}XmlChildLegend : fallback_.Legend;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildLegend(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLegend) then
|
|
{self.}RemoveChild({self.}XmlChildLegend);
|
|
end
|
|
else if v is class(Legend) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLegend := v;
|
|
container_.Set({self.}XmlChildLegend);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Legend expects Legend or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.ReadXmlChildPlotVisOnly(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPlotVisOnly) or {self.}XmlChildPlotVisOnly.Removed) then
|
|
begin
|
|
{self.}XmlChildPlotVisOnly := new PureVal(self, {self.}Prefix, "plotVisOnly");
|
|
container_.Set({self.}XmlChildPlotVisOnly);
|
|
end
|
|
return {self.}XmlChildPlotVisOnly and not {self.}XmlChildPlotVisOnly.Removed ? {self.}XmlChildPlotVisOnly : fallback_.PlotVisOnly;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildPlotVisOnly(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPlotVisOnly) then
|
|
{self.}RemoveChild({self.}XmlChildPlotVisOnly);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPlotVisOnly := v;
|
|
container_.Set({self.}XmlChildPlotVisOnly);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PlotVisOnly expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.ReadXmlChildDispBlanksAs(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDispBlanksAs) or {self.}XmlChildDispBlanksAs.Removed) then
|
|
begin
|
|
{self.}XmlChildDispBlanksAs := new PureVal(self, {self.}Prefix, "dispBlanksAs");
|
|
container_.Set({self.}XmlChildDispBlanksAs);
|
|
end
|
|
return {self.}XmlChildDispBlanksAs and not {self.}XmlChildDispBlanksAs.Removed ? {self.}XmlChildDispBlanksAs : fallback_.DispBlanksAs;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildDispBlanksAs(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDispBlanksAs) then
|
|
{self.}RemoveChild({self.}XmlChildDispBlanksAs);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDispBlanksAs := v;
|
|
container_.Set({self.}XmlChildDispBlanksAs);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: DispBlanksAs expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Chart.ReadXmlChildShowDLblsOverMax(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowDLblsOverMax) or {self.}XmlChildShowDLblsOverMax.Removed) then
|
|
begin
|
|
{self.}XmlChildShowDLblsOverMax := new PureVal(self, {self.}Prefix, "showDLblsOverMax");
|
|
container_.Set({self.}XmlChildShowDLblsOverMax);
|
|
end
|
|
return {self.}XmlChildShowDLblsOverMax and not {self.}XmlChildShowDLblsOverMax.Removed ? {self.}XmlChildShowDLblsOverMax : fallback_.ShowDLblsOverMax;
|
|
end;
|
|
|
|
function Chart.WriteXmlChildShowDLblsOverMax(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowDLblsOverMax) then
|
|
{self.}RemoveChild({self.}XmlChildShowDLblsOverMax);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowDLblsOverMax := v;
|
|
container_.Set({self.}XmlChildShowDLblsOverMax);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowDLblsOverMax expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Legend.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "legend");
|
|
end;
|
|
|
|
function Legend.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Legend.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Legend.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "legendPos": array(0, makeweakref(thisFunction(ReadXmlChildLegendPos))),
|
|
pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))),
|
|
pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))),
|
|
pre + "txPr": array(3, makeweakref(thisFunction(ReadXmlChildTxPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Legend.Copy(_obj: Legend);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildLegendPos) then
|
|
{self.}LegendPos.Copy(_obj.XmlChildLegendPos);
|
|
if not ifnil(_obj.XmlChildLayout) then
|
|
ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout);
|
|
if not ifnil(_obj.XmlChildOverlay) then
|
|
{self.}Overlay.Copy(_obj.XmlChildOverlay);
|
|
if not ifnil(_obj.XmlChildTxPr) then
|
|
{self.}TxPr.Copy(_obj.XmlChildTxPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Legend.Clone(): Legend;override;
|
|
begin
|
|
obj := new Legend(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "legendPos": obj.LegendPos := element.Clone();
|
|
pre + "layout": obj.Layout := element.Clone();
|
|
pre + "overlay": obj.Overlay := element.Clone();
|
|
pre + "txPr": obj.TxPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Legend.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildLegendPos) then
|
|
{self.}XmlChildLegendPos.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildOverlay) then
|
|
{self.}XmlChildOverlay.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTxPr) then
|
|
{self.}XmlChildTxPr.ConvertToPoint();
|
|
end;
|
|
|
|
function Legend.ReadXmlChildLayout();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then
|
|
begin
|
|
{self.}XmlChildLayout := new OpenXmlSimpleType(self, {self.}Prefix, "layout");
|
|
container_.Set({self.}XmlChildLayout);
|
|
end
|
|
return {self.}XmlChildLayout and not {self.}XmlChildLayout.Removed ? {self.}XmlChildLayout : fallback_.Layout;
|
|
end;
|
|
|
|
function Legend.WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildLayout) then
|
|
{self.}RemoveChild({self.}XmlChildLayout);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildLayout := _value;
|
|
container_.Set({self.}XmlChildLayout);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Layout expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Legend.ReadXmlChildLegendPos(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLegendPos) or {self.}XmlChildLegendPos.Removed) then
|
|
begin
|
|
{self.}XmlChildLegendPos := new PureVal(self, {self.}Prefix, "legendPos");
|
|
container_.Set({self.}XmlChildLegendPos);
|
|
end
|
|
return {self.}XmlChildLegendPos and not {self.}XmlChildLegendPos.Removed ? {self.}XmlChildLegendPos : fallback_.LegendPos;
|
|
end;
|
|
|
|
function Legend.WriteXmlChildLegendPos(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLegendPos) then
|
|
{self.}RemoveChild({self.}XmlChildLegendPos);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLegendPos := v;
|
|
container_.Set({self.}XmlChildLegendPos);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LegendPos expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Legend.ReadXmlChildOverlay(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildOverlay) or {self.}XmlChildOverlay.Removed) then
|
|
begin
|
|
{self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay");
|
|
container_.Set({self.}XmlChildOverlay);
|
|
end
|
|
return {self.}XmlChildOverlay and not {self.}XmlChildOverlay.Removed ? {self.}XmlChildOverlay : fallback_.Overlay;
|
|
end;
|
|
|
|
function Legend.WriteXmlChildOverlay(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildOverlay) then
|
|
{self.}RemoveChild({self.}XmlChildOverlay);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildOverlay := v;
|
|
container_.Set({self.}XmlChildOverlay);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Overlay expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Legend.ReadXmlChildTxPr(): TxPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTxPr) or {self.}XmlChildTxPr.Removed) then
|
|
begin
|
|
{self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr");
|
|
container_.Set({self.}XmlChildTxPr);
|
|
end
|
|
return {self.}XmlChildTxPr and not {self.}XmlChildTxPr.Removed ? {self.}XmlChildTxPr : fallback_.TxPr;
|
|
end;
|
|
|
|
function Legend.WriteXmlChildTxPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTxPr) then
|
|
{self.}RemoveChild({self.}XmlChildTxPr);
|
|
end
|
|
else if v is class(TxPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTxPr := v;
|
|
container_.Set({self.}XmlChildTxPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: TxPr expects TxPr or nil";
|
|
end
|
|
end;
|
|
|
|
function View3D.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "view3D");
|
|
end;
|
|
|
|
function View3D.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function View3D.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function View3D.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "rotX": array(0, makeweakref(thisFunction(ReadXmlChildRotX))),
|
|
pre + "rotY": array(1, makeweakref(thisFunction(ReadXmlChildRotY))),
|
|
pre + "rAngAx": array(2, makeweakref(thisFunction(ReadXmlChildRAngAx))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function View3D.Copy(_obj: View3D);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildRotX) then
|
|
{self.}RotX.Copy(_obj.XmlChildRotX);
|
|
if not ifnil(_obj.XmlChildRotY) then
|
|
{self.}RotY.Copy(_obj.XmlChildRotY);
|
|
if not ifnil(_obj.XmlChildRAngAx) then
|
|
{self.}RAngAx.Copy(_obj.XmlChildRAngAx);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function View3D.Clone(): View3D;override;
|
|
begin
|
|
obj := new View3D(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "rotX": obj.RotX := element.Clone();
|
|
pre + "rotY": obj.RotY := element.Clone();
|
|
pre + "rAngAx": obj.RAngAx := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function View3D.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildRotX) then
|
|
{self.}XmlChildRotX.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildRotY) then
|
|
{self.}XmlChildRotY.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildRAngAx) then
|
|
{self.}XmlChildRAngAx.ConvertToPoint();
|
|
end;
|
|
|
|
function View3D.ReadXmlChildRotX(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildRotX) or {self.}XmlChildRotX.Removed) then
|
|
begin
|
|
{self.}XmlChildRotX := new PureVal(self, {self.}Prefix, "rotX");
|
|
container_.Set({self.}XmlChildRotX);
|
|
end
|
|
return {self.}XmlChildRotX and not {self.}XmlChildRotX.Removed ? {self.}XmlChildRotX : fallback_.RotX;
|
|
end;
|
|
|
|
function View3D.WriteXmlChildRotX(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildRotX) then
|
|
{self.}RemoveChild({self.}XmlChildRotX);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildRotX := v;
|
|
container_.Set({self.}XmlChildRotX);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: RotX expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function View3D.ReadXmlChildRotY(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildRotY) or {self.}XmlChildRotY.Removed) then
|
|
begin
|
|
{self.}XmlChildRotY := new PureVal(self, {self.}Prefix, "rotY");
|
|
container_.Set({self.}XmlChildRotY);
|
|
end
|
|
return {self.}XmlChildRotY and not {self.}XmlChildRotY.Removed ? {self.}XmlChildRotY : fallback_.RotY;
|
|
end;
|
|
|
|
function View3D.WriteXmlChildRotY(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildRotY) then
|
|
{self.}RemoveChild({self.}XmlChildRotY);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildRotY := v;
|
|
container_.Set({self.}XmlChildRotY);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: RotY expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function View3D.ReadXmlChildRAngAx(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildRAngAx) or {self.}XmlChildRAngAx.Removed) then
|
|
begin
|
|
{self.}XmlChildRAngAx := new PureVal(self, {self.}Prefix, "rAngAx");
|
|
container_.Set({self.}XmlChildRAngAx);
|
|
end
|
|
return {self.}XmlChildRAngAx and not {self.}XmlChildRAngAx.Removed ? {self.}XmlChildRAngAx : fallback_.RAngAx;
|
|
end;
|
|
|
|
function View3D.WriteXmlChildRAngAx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildRAngAx) then
|
|
{self.}RemoveChild({self.}XmlChildRAngAx);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildRAngAx := v;
|
|
container_.Set({self.}XmlChildRAngAx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: RAngAx expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function PlotArea.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "plotArea");
|
|
end;
|
|
|
|
function PlotArea.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PlotArea.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PlotArea.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "layout": array(0, makeweakref(thisFunction(ReadXmlChildLayout))),
|
|
pre + "barChart": array(1, makeweakref(thisFunction(ReadXmlChildBarChart))),
|
|
pre + "catAx": array(2, makeweakref(thisFunction(ReadXmlChildCatAx))),
|
|
pre + "ValAx": array(3, makeweakref(thisFunction(ReadXmlChildValAx))),
|
|
pre + "dTable": array(4, makeweakref(thisFunction(ReadXmlChildDTable))),
|
|
pre + "SpPr": array(5, makeweakref(thisFunction(ReadXmlChildSpPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PlotArea.Copy(_obj: PlotArea);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildLayout) then
|
|
ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout);
|
|
if not ifnil(_obj.XmlChildBarChart) then
|
|
{self.}BarChart.Copy(_obj.XmlChildBarChart);
|
|
if not ifnil(_obj.XmlChildCatAx) then
|
|
{self.}CatAx.Copy(_obj.XmlChildCatAx);
|
|
if not ifnil(_obj.XmlChildValAx) then
|
|
{self.}ValAx.Copy(_obj.XmlChildValAx);
|
|
if not ifnil(_obj.XmlChildDTable) then
|
|
{self.}DTable.Copy(_obj.XmlChildDTable);
|
|
if not ifnil(_obj.XmlChildSpPr) then
|
|
{self.}SpPr.Copy(_obj.XmlChildSpPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PlotArea.Clone(): PlotArea;override;
|
|
begin
|
|
obj := new PlotArea(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "layout": obj.Layout := element.Clone();
|
|
pre + "barChart": obj.BarChart := element.Clone();
|
|
pre + "catAx": obj.CatAx := element.Clone();
|
|
pre + "ValAx": obj.ValAx := element.Clone();
|
|
pre + "dTable": obj.DTable := element.Clone();
|
|
pre + "SpPr": obj.SpPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function PlotArea.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildBarChart) then
|
|
{self.}XmlChildBarChart.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCatAx) then
|
|
{self.}XmlChildCatAx.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildValAx) then
|
|
{self.}XmlChildValAx.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildDTable) then
|
|
{self.}XmlChildDTable.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSpPr) then
|
|
{self.}XmlChildSpPr.ConvertToPoint();
|
|
end;
|
|
|
|
function PlotArea.ReadXmlChildLayout();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then
|
|
begin
|
|
{self.}XmlChildLayout := new OpenXmlSimpleType(self, {self.}Prefix, "layout");
|
|
container_.Set({self.}XmlChildLayout);
|
|
end
|
|
return {self.}XmlChildLayout and not {self.}XmlChildLayout.Removed ? {self.}XmlChildLayout : fallback_.Layout;
|
|
end;
|
|
|
|
function PlotArea.WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildLayout) then
|
|
{self.}RemoveChild({self.}XmlChildLayout);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildLayout := _value;
|
|
container_.Set({self.}XmlChildLayout);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Layout expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function PlotArea.ReadXmlChildBarChart(): BarChart;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBarChart) or {self.}XmlChildBarChart.Removed) then
|
|
begin
|
|
{self.}XmlChildBarChart := new BarChart(self, {self.}Prefix, "barChart");
|
|
container_.Set({self.}XmlChildBarChart);
|
|
end
|
|
return {self.}XmlChildBarChart and not {self.}XmlChildBarChart.Removed ? {self.}XmlChildBarChart : fallback_.BarChart;
|
|
end;
|
|
|
|
function PlotArea.WriteXmlChildBarChart(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBarChart) then
|
|
{self.}RemoveChild({self.}XmlChildBarChart);
|
|
end
|
|
else if v is class(BarChart) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBarChart := v;
|
|
container_.Set({self.}XmlChildBarChart);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: BarChart expects BarChart or nil";
|
|
end
|
|
end;
|
|
|
|
function PlotArea.ReadXmlChildCatAx(): Ax;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCatAx) or {self.}XmlChildCatAx.Removed) then
|
|
begin
|
|
{self.}XmlChildCatAx := new Ax(self, {self.}Prefix, "catAx");
|
|
container_.Set({self.}XmlChildCatAx);
|
|
end
|
|
return {self.}XmlChildCatAx and not {self.}XmlChildCatAx.Removed ? {self.}XmlChildCatAx : fallback_.CatAx;
|
|
end;
|
|
|
|
function PlotArea.WriteXmlChildCatAx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCatAx) then
|
|
{self.}RemoveChild({self.}XmlChildCatAx);
|
|
end
|
|
else if v is class(Ax) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCatAx := v;
|
|
container_.Set({self.}XmlChildCatAx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CatAx expects Ax or nil";
|
|
end
|
|
end;
|
|
|
|
function PlotArea.ReadXmlChildValAx(): Ax;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildValAx) or {self.}XmlChildValAx.Removed) then
|
|
begin
|
|
{self.}XmlChildValAx := new Ax(self, {self.}Prefix, "ValAx");
|
|
container_.Set({self.}XmlChildValAx);
|
|
end
|
|
return {self.}XmlChildValAx and not {self.}XmlChildValAx.Removed ? {self.}XmlChildValAx : fallback_.ValAx;
|
|
end;
|
|
|
|
function PlotArea.WriteXmlChildValAx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildValAx) then
|
|
{self.}RemoveChild({self.}XmlChildValAx);
|
|
end
|
|
else if v is class(Ax) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildValAx := v;
|
|
container_.Set({self.}XmlChildValAx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ValAx expects Ax or nil";
|
|
end
|
|
end;
|
|
|
|
function PlotArea.ReadXmlChildDTable(): DTable;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDTable) or {self.}XmlChildDTable.Removed) then
|
|
begin
|
|
{self.}XmlChildDTable := new DTable(self, {self.}Prefix, "dTable");
|
|
container_.Set({self.}XmlChildDTable);
|
|
end
|
|
return {self.}XmlChildDTable and not {self.}XmlChildDTable.Removed ? {self.}XmlChildDTable : fallback_.DTable;
|
|
end;
|
|
|
|
function PlotArea.WriteXmlChildDTable(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDTable) then
|
|
{self.}RemoveChild({self.}XmlChildDTable);
|
|
end
|
|
else if v is class(DTable) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDTable := v;
|
|
container_.Set({self.}XmlChildDTable);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: DTable expects DTable or nil";
|
|
end
|
|
end;
|
|
|
|
function PlotArea.ReadXmlChildSpPr(): SpPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then
|
|
begin
|
|
{self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "SpPr");
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr;
|
|
end;
|
|
|
|
function PlotArea.WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSpPr) then
|
|
{self.}RemoveChild({self.}XmlChildSpPr);
|
|
end
|
|
else if v is class(SpPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSpPr := v;
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SpPr expects SpPr or nil";
|
|
end
|
|
end;
|
|
|
|
function BarChart.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "barChart");
|
|
end;
|
|
|
|
function BarChart.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function BarChart.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function BarChart.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "barDir": array(0, makeweakref(thisFunction(ReadXmlChildBarDir))),
|
|
pre + "grouping": array(1, makeweakref(thisFunction(ReadXmlChildGrouping))),
|
|
pre + "varyColors": array(2, makeweakref(thisFunction(ReadXmlChildVaryColors))),
|
|
pre + "gapWidth": array(3, makeweakref(thisFunction(ReadXmlChildGapWidth))),
|
|
pre + "ser": array(4, makeweakref(thisFunction(AppendSer))),
|
|
pre + "axId": array(5, makeweakref(thisFunction(AppendAxId))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function BarChart.Copy(_obj: BarChart);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildBarDir) then
|
|
{self.}BarDir.Copy(_obj.XmlChildBarDir);
|
|
if not ifnil(_obj.XmlChildGrouping) then
|
|
{self.}Grouping.Copy(_obj.XmlChildGrouping);
|
|
if not ifnil(_obj.XmlChildVaryColors) then
|
|
{self.}VaryColors.Copy(_obj.XmlChildVaryColors);
|
|
if not ifnil(_obj.XmlChildGapWidth) then
|
|
{self.}GapWidth.Copy(_obj.XmlChildGapWidth);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function BarChart.Clone(): BarChart;override;
|
|
begin
|
|
obj := new BarChart(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "barDir": obj.BarDir := element.Clone();
|
|
pre + "grouping": obj.Grouping := element.Clone();
|
|
pre + "varyColors": obj.VaryColors := element.Clone();
|
|
pre + "gapWidth": obj.GapWidth := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function BarChart.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildBarDir) then
|
|
{self.}XmlChildBarDir.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildGrouping) then
|
|
{self.}XmlChildGrouping.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildVaryColors) then
|
|
{self.}XmlChildVaryColors.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildGapWidth) then
|
|
{self.}XmlChildGapWidth.ConvertToPoint();
|
|
elems := {self.}Sers();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
elems := {self.}AxIds();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function BarChart.ReadXmlChildBarDir(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBarDir) or {self.}XmlChildBarDir.Removed) then
|
|
begin
|
|
{self.}XmlChildBarDir := new PureVal(self, {self.}Prefix, "barDir");
|
|
container_.Set({self.}XmlChildBarDir);
|
|
end
|
|
return {self.}XmlChildBarDir and not {self.}XmlChildBarDir.Removed ? {self.}XmlChildBarDir : fallback_.BarDir;
|
|
end;
|
|
|
|
function BarChart.WriteXmlChildBarDir(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBarDir) then
|
|
{self.}RemoveChild({self.}XmlChildBarDir);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBarDir := v;
|
|
container_.Set({self.}XmlChildBarDir);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: BarDir expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function BarChart.ReadXmlChildGrouping(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildGrouping) or {self.}XmlChildGrouping.Removed) then
|
|
begin
|
|
{self.}XmlChildGrouping := new PureVal(self, {self.}Prefix, "grouping");
|
|
container_.Set({self.}XmlChildGrouping);
|
|
end
|
|
return {self.}XmlChildGrouping and not {self.}XmlChildGrouping.Removed ? {self.}XmlChildGrouping : fallback_.Grouping;
|
|
end;
|
|
|
|
function BarChart.WriteXmlChildGrouping(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildGrouping) then
|
|
{self.}RemoveChild({self.}XmlChildGrouping);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildGrouping := v;
|
|
container_.Set({self.}XmlChildGrouping);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Grouping expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function BarChart.ReadXmlChildVaryColors(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildVaryColors) or {self.}XmlChildVaryColors.Removed) then
|
|
begin
|
|
{self.}XmlChildVaryColors := new PureVal(self, {self.}Prefix, "varyColors");
|
|
container_.Set({self.}XmlChildVaryColors);
|
|
end
|
|
return {self.}XmlChildVaryColors and not {self.}XmlChildVaryColors.Removed ? {self.}XmlChildVaryColors : fallback_.VaryColors;
|
|
end;
|
|
|
|
function BarChart.WriteXmlChildVaryColors(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildVaryColors) then
|
|
{self.}RemoveChild({self.}XmlChildVaryColors);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildVaryColors := v;
|
|
container_.Set({self.}XmlChildVaryColors);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: VaryColors expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function BarChart.ReadXmlChildGapWidth(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildGapWidth) or {self.}XmlChildGapWidth.Removed) then
|
|
begin
|
|
{self.}XmlChildGapWidth := new PureVal(self, {self.}Prefix, "gapWidth");
|
|
container_.Set({self.}XmlChildGapWidth);
|
|
end
|
|
return {self.}XmlChildGapWidth and not {self.}XmlChildGapWidth.Removed ? {self.}XmlChildGapWidth : fallback_.GapWidth;
|
|
end;
|
|
|
|
function BarChart.WriteXmlChildGapWidth(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildGapWidth) then
|
|
{self.}RemoveChild({self.}XmlChildGapWidth);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildGapWidth := v;
|
|
container_.Set({self.}XmlChildGapWidth);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: GapWidth expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function BarChart.ReadSers(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "ser", ind);
|
|
end;
|
|
|
|
function BarChart.WriteSers(_index: integer; _value: nil_OR_Ser);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadSers(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "ser", ind, _value) then
|
|
raise format("Index out of range: Sers[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Sers expects nil or Ser";
|
|
end
|
|
end;
|
|
|
|
function BarChart.ReadAxIds(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "axId", ind);
|
|
end;
|
|
|
|
function BarChart.WriteAxIds(_index: integer; _value: nil_OR_PureVal);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadAxIds(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "axId", ind, _value) then
|
|
raise format("Index out of range: AxIds[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AxIds expects nil or PureVal";
|
|
end
|
|
end;
|
|
|
|
function BarChart.AddSer(): Ser;
|
|
begin
|
|
obj := new Ser(self, {self.}Prefix, "ser");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function BarChart.AddAxId(): PureVal;
|
|
begin
|
|
obj := new PureVal(self, {self.}Prefix, "axId");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function BarChart.AppendSer(): Ser;
|
|
begin
|
|
obj := new Ser(self, {self.}Prefix, "ser");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function BarChart.AppendAxId(): PureVal;
|
|
begin
|
|
obj := new PureVal(self, {self.}Prefix, "axId");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Ser.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "ser");
|
|
end;
|
|
|
|
function Ser.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Ser.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Ser.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "idx": array(0, makeweakref(thisFunction(ReadXmlChildIdx))),
|
|
pre + "order": array(1, makeweakref(thisFunction(ReadXmlChild_Order))),
|
|
pre + "tx": array(2, makeweakref(thisFunction(ReadXmlChildTx))),
|
|
pre + "invertIfNegative": array(3, makeweakref(thisFunction(ReadXmlChildInvertIfNegative))),
|
|
pre + "dLbls": array(4, makeweakref(thisFunction(ReadXmlChildDLbls))),
|
|
pre + "cat": array(5, makeweakref(thisFunction(ReadXmlChildCat))),
|
|
pre + "val": array(6, makeweakref(thisFunction(ReadXmlChildVal))),
|
|
pre + "extLst": array(7, makeweakref(thisFunction(ReadXmlChildExtLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Ser.Copy(_obj: Ser);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildIdx) then
|
|
{self.}Idx.Copy(_obj.XmlChildIdx);
|
|
if not ifnil(_obj.XmlChild_Order) then
|
|
{self.}_Order.Copy(_obj.XmlChild_Order);
|
|
if not ifnil(_obj.XmlChildTx) then
|
|
{self.}Tx.Copy(_obj.XmlChildTx);
|
|
if not ifnil(_obj.XmlChildInvertIfNegative) then
|
|
{self.}InvertIfNegative.Copy(_obj.XmlChildInvertIfNegative);
|
|
if not ifnil(_obj.XmlChildDLbls) then
|
|
{self.}DLbls.Copy(_obj.XmlChildDLbls);
|
|
if not ifnil(_obj.XmlChildCat) then
|
|
{self.}Cat.Copy(_obj.XmlChildCat);
|
|
if not ifnil(_obj.XmlChildVal) then
|
|
{self.}Val.Copy(_obj.XmlChildVal);
|
|
if not ifnil(_obj.XmlChildExtLst) then
|
|
{self.}ExtLst.Copy(_obj.XmlChildExtLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Ser.Clone(): Ser;override;
|
|
begin
|
|
obj := new Ser(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "idx": obj.Idx := element.Clone();
|
|
pre + "order": obj._Order := element.Clone();
|
|
pre + "tx": obj.Tx := element.Clone();
|
|
pre + "invertIfNegative": obj.InvertIfNegative := element.Clone();
|
|
pre + "dLbls": obj.DLbls := element.Clone();
|
|
pre + "cat": obj.Cat := element.Clone();
|
|
pre + "val": obj.Val := element.Clone();
|
|
pre + "extLst": obj.ExtLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Ser.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildIdx) then
|
|
{self.}XmlChildIdx.ConvertToPoint();
|
|
if not ifnil({self.}XmlChild_Order) then
|
|
{self.}XmlChild_Order.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTx) then
|
|
{self.}XmlChildTx.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildInvertIfNegative) then
|
|
{self.}XmlChildInvertIfNegative.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildDLbls) then
|
|
{self.}XmlChildDLbls.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCat) then
|
|
{self.}XmlChildCat.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildVal) then
|
|
{self.}XmlChildVal.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildExtLst) then
|
|
{self.}XmlChildExtLst.ConvertToPoint();
|
|
end;
|
|
|
|
function Ser.ReadXmlChildIdx(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildIdx) or {self.}XmlChildIdx.Removed) then
|
|
begin
|
|
{self.}XmlChildIdx := new PureVal(self, {self.}Prefix, "idx");
|
|
container_.Set({self.}XmlChildIdx);
|
|
end
|
|
return {self.}XmlChildIdx and not {self.}XmlChildIdx.Removed ? {self.}XmlChildIdx : fallback_.Idx;
|
|
end;
|
|
|
|
function Ser.WriteXmlChildIdx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildIdx) then
|
|
{self.}RemoveChild({self.}XmlChildIdx);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildIdx := v;
|
|
container_.Set({self.}XmlChildIdx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Idx expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ser.ReadXmlChild_Order(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChild_Order) or {self.}XmlChild_Order.Removed) then
|
|
begin
|
|
{self.}XmlChild_Order := new PureVal(self, {self.}Prefix, "order");
|
|
container_.Set({self.}XmlChild_Order);
|
|
end
|
|
return {self.}XmlChild_Order and not {self.}XmlChild_Order.Removed ? {self.}XmlChild_Order : fallback_._Order;
|
|
end;
|
|
|
|
function Ser.WriteXmlChild_Order(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChild_Order) then
|
|
{self.}RemoveChild({self.}XmlChild_Order);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChild_Order := v;
|
|
container_.Set({self.}XmlChild_Order);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: _Order expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ser.ReadXmlChildTx(): Tx;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTx) or {self.}XmlChildTx.Removed) then
|
|
begin
|
|
{self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx");
|
|
container_.Set({self.}XmlChildTx);
|
|
end
|
|
return {self.}XmlChildTx and not {self.}XmlChildTx.Removed ? {self.}XmlChildTx : fallback_.Tx;
|
|
end;
|
|
|
|
function Ser.WriteXmlChildTx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTx) then
|
|
{self.}RemoveChild({self.}XmlChildTx);
|
|
end
|
|
else if v is class(Tx) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTx := v;
|
|
container_.Set({self.}XmlChildTx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Tx expects Tx or nil";
|
|
end
|
|
end;
|
|
|
|
function Ser.ReadXmlChildInvertIfNegative(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildInvertIfNegative) or {self.}XmlChildInvertIfNegative.Removed) then
|
|
begin
|
|
{self.}XmlChildInvertIfNegative := new PureVal(self, {self.}Prefix, "invertIfNegative");
|
|
container_.Set({self.}XmlChildInvertIfNegative);
|
|
end
|
|
return {self.}XmlChildInvertIfNegative and not {self.}XmlChildInvertIfNegative.Removed ? {self.}XmlChildInvertIfNegative : fallback_.InvertIfNegative;
|
|
end;
|
|
|
|
function Ser.WriteXmlChildInvertIfNegative(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildInvertIfNegative) then
|
|
{self.}RemoveChild({self.}XmlChildInvertIfNegative);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildInvertIfNegative := v;
|
|
container_.Set({self.}XmlChildInvertIfNegative);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: InvertIfNegative expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ser.ReadXmlChildDLbls(): DLbls;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDLbls) or {self.}XmlChildDLbls.Removed) then
|
|
begin
|
|
{self.}XmlChildDLbls := new DLbls(self, {self.}Prefix, "dLbls");
|
|
container_.Set({self.}XmlChildDLbls);
|
|
end
|
|
return {self.}XmlChildDLbls and not {self.}XmlChildDLbls.Removed ? {self.}XmlChildDLbls : fallback_.DLbls;
|
|
end;
|
|
|
|
function Ser.WriteXmlChildDLbls(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDLbls) then
|
|
{self.}RemoveChild({self.}XmlChildDLbls);
|
|
end
|
|
else if v is class(DLbls) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDLbls := v;
|
|
container_.Set({self.}XmlChildDLbls);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: DLbls expects DLbls or nil";
|
|
end
|
|
end;
|
|
|
|
function Ser.ReadXmlChildCat(): Cat;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCat) or {self.}XmlChildCat.Removed) then
|
|
begin
|
|
{self.}XmlChildCat := new Cat(self, {self.}Prefix, "cat");
|
|
container_.Set({self.}XmlChildCat);
|
|
end
|
|
return {self.}XmlChildCat and not {self.}XmlChildCat.Removed ? {self.}XmlChildCat : fallback_.Cat;
|
|
end;
|
|
|
|
function Ser.WriteXmlChildCat(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCat) then
|
|
{self.}RemoveChild({self.}XmlChildCat);
|
|
end
|
|
else if v is class(Cat) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCat := v;
|
|
container_.Set({self.}XmlChildCat);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Cat expects Cat or nil";
|
|
end
|
|
end;
|
|
|
|
function Ser.ReadXmlChildVal(): Val;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildVal) or {self.}XmlChildVal.Removed) then
|
|
begin
|
|
{self.}XmlChildVal := new Val(self, {self.}Prefix, "val");
|
|
container_.Set({self.}XmlChildVal);
|
|
end
|
|
return {self.}XmlChildVal and not {self.}XmlChildVal.Removed ? {self.}XmlChildVal : fallback_.Val;
|
|
end;
|
|
|
|
function Ser.WriteXmlChildVal(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildVal) then
|
|
{self.}RemoveChild({self.}XmlChildVal);
|
|
end
|
|
else if v is class(Val) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildVal := v;
|
|
container_.Set({self.}XmlChildVal);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Val expects Val or nil";
|
|
end
|
|
end;
|
|
|
|
function Ser.ReadXmlChildExtLst(): ExtLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then
|
|
begin
|
|
{self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst");
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst;
|
|
end;
|
|
|
|
function Ser.WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExtLst) then
|
|
{self.}RemoveChild({self.}XmlChildExtLst);
|
|
end
|
|
else if v is class(ExtLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExtLst := v;
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ExtLst expects ExtLst or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "dLbls");
|
|
end;
|
|
|
|
function DLbls.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function DLbls.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function DLbls.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "spPr": array(0, makeweakref(thisFunction(ReadXmlChildSpPr))),
|
|
pre + "showLegendKey": array(1, makeweakref(thisFunction(ReadXmlChildShowLegendKey))),
|
|
pre + "showVal": array(2, makeweakref(thisFunction(ReadXmlChildShowVal))),
|
|
pre + "showCatName": array(3, makeweakref(thisFunction(ReadXmlChildShowCatName))),
|
|
pre + "showSerName": array(4, makeweakref(thisFunction(ReadXmlChildShowSerName))),
|
|
pre + "showPercent": array(5, makeweakref(thisFunction(ReadXmlChildShowPercent))),
|
|
pre + "showBubbleSize": array(6, makeweakref(thisFunction(ReadXmlChildShowBubbleSize))),
|
|
pre + "showLeaderLines": array(7, makeweakref(thisFunction(ReadXmlChildShowLeaderLines))),
|
|
pre + "extLst": array(8, makeweakref(thisFunction(ReadXmlChildExtLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function DLbls.Copy(_obj: DLbls);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildSpPr) then
|
|
{self.}SpPr.Copy(_obj.XmlChildSpPr);
|
|
if not ifnil(_obj.XmlChildShowLegendKey) then
|
|
{self.}ShowLegendKey.Copy(_obj.XmlChildShowLegendKey);
|
|
if not ifnil(_obj.XmlChildShowVal) then
|
|
{self.}ShowVal.Copy(_obj.XmlChildShowVal);
|
|
if not ifnil(_obj.XmlChildShowCatName) then
|
|
{self.}ShowCatName.Copy(_obj.XmlChildShowCatName);
|
|
if not ifnil(_obj.XmlChildShowSerName) then
|
|
{self.}ShowSerName.Copy(_obj.XmlChildShowSerName);
|
|
if not ifnil(_obj.XmlChildShowPercent) then
|
|
{self.}ShowPercent.Copy(_obj.XmlChildShowPercent);
|
|
if not ifnil(_obj.XmlChildShowBubbleSize) then
|
|
{self.}ShowBubbleSize.Copy(_obj.XmlChildShowBubbleSize);
|
|
if not ifnil(_obj.XmlChildShowLeaderLines) then
|
|
{self.}ShowLeaderLines.Copy(_obj.XmlChildShowLeaderLines);
|
|
if not ifnil(_obj.XmlChildExtLst) then
|
|
{self.}ExtLst.Copy(_obj.XmlChildExtLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function DLbls.Clone(): DLbls;override;
|
|
begin
|
|
obj := new DLbls(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "spPr": obj.SpPr := element.Clone();
|
|
pre + "showLegendKey": obj.ShowLegendKey := element.Clone();
|
|
pre + "showVal": obj.ShowVal := element.Clone();
|
|
pre + "showCatName": obj.ShowCatName := element.Clone();
|
|
pre + "showSerName": obj.ShowSerName := element.Clone();
|
|
pre + "showPercent": obj.ShowPercent := element.Clone();
|
|
pre + "showBubbleSize": obj.ShowBubbleSize := element.Clone();
|
|
pre + "showLeaderLines": obj.ShowLeaderLines := element.Clone();
|
|
pre + "extLst": obj.ExtLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function DLbls.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSpPr) then
|
|
{self.}XmlChildSpPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowLegendKey) then
|
|
{self.}XmlChildShowLegendKey.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowVal) then
|
|
{self.}XmlChildShowVal.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowCatName) then
|
|
{self.}XmlChildShowCatName.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowSerName) then
|
|
{self.}XmlChildShowSerName.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowPercent) then
|
|
{self.}XmlChildShowPercent.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowBubbleSize) then
|
|
{self.}XmlChildShowBubbleSize.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowLeaderLines) then
|
|
{self.}XmlChildShowLeaderLines.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildExtLst) then
|
|
{self.}XmlChildExtLst.ConvertToPoint();
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildSpPr(): SpPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then
|
|
begin
|
|
{self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr");
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSpPr) then
|
|
{self.}RemoveChild({self.}XmlChildSpPr);
|
|
end
|
|
else if v is class(SpPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSpPr := v;
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SpPr expects SpPr or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildShowLegendKey(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowLegendKey) or {self.}XmlChildShowLegendKey.Removed) then
|
|
begin
|
|
{self.}XmlChildShowLegendKey := new PureVal(self, {self.}Prefix, "showLegendKey");
|
|
container_.Set({self.}XmlChildShowLegendKey);
|
|
end
|
|
return {self.}XmlChildShowLegendKey and not {self.}XmlChildShowLegendKey.Removed ? {self.}XmlChildShowLegendKey : fallback_.ShowLegendKey;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildShowLegendKey(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowLegendKey) then
|
|
{self.}RemoveChild({self.}XmlChildShowLegendKey);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowLegendKey := v;
|
|
container_.Set({self.}XmlChildShowLegendKey);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowLegendKey expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildShowVal(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowVal) or {self.}XmlChildShowVal.Removed) then
|
|
begin
|
|
{self.}XmlChildShowVal := new PureVal(self, {self.}Prefix, "showVal");
|
|
container_.Set({self.}XmlChildShowVal);
|
|
end
|
|
return {self.}XmlChildShowVal and not {self.}XmlChildShowVal.Removed ? {self.}XmlChildShowVal : fallback_.ShowVal;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildShowVal(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowVal) then
|
|
{self.}RemoveChild({self.}XmlChildShowVal);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowVal := v;
|
|
container_.Set({self.}XmlChildShowVal);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowVal expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildShowCatName(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowCatName) or {self.}XmlChildShowCatName.Removed) then
|
|
begin
|
|
{self.}XmlChildShowCatName := new PureVal(self, {self.}Prefix, "showCatName");
|
|
container_.Set({self.}XmlChildShowCatName);
|
|
end
|
|
return {self.}XmlChildShowCatName and not {self.}XmlChildShowCatName.Removed ? {self.}XmlChildShowCatName : fallback_.ShowCatName;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildShowCatName(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowCatName) then
|
|
{self.}RemoveChild({self.}XmlChildShowCatName);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowCatName := v;
|
|
container_.Set({self.}XmlChildShowCatName);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowCatName expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildShowSerName(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowSerName) or {self.}XmlChildShowSerName.Removed) then
|
|
begin
|
|
{self.}XmlChildShowSerName := new PureVal(self, {self.}Prefix, "showSerName");
|
|
container_.Set({self.}XmlChildShowSerName);
|
|
end
|
|
return {self.}XmlChildShowSerName and not {self.}XmlChildShowSerName.Removed ? {self.}XmlChildShowSerName : fallback_.ShowSerName;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildShowSerName(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowSerName) then
|
|
{self.}RemoveChild({self.}XmlChildShowSerName);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowSerName := v;
|
|
container_.Set({self.}XmlChildShowSerName);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowSerName expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildShowPercent(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowPercent) or {self.}XmlChildShowPercent.Removed) then
|
|
begin
|
|
{self.}XmlChildShowPercent := new PureVal(self, {self.}Prefix, "showPercent");
|
|
container_.Set({self.}XmlChildShowPercent);
|
|
end
|
|
return {self.}XmlChildShowPercent and not {self.}XmlChildShowPercent.Removed ? {self.}XmlChildShowPercent : fallback_.ShowPercent;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildShowPercent(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowPercent) then
|
|
{self.}RemoveChild({self.}XmlChildShowPercent);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowPercent := v;
|
|
container_.Set({self.}XmlChildShowPercent);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowPercent expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildShowBubbleSize(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowBubbleSize) or {self.}XmlChildShowBubbleSize.Removed) then
|
|
begin
|
|
{self.}XmlChildShowBubbleSize := new PureVal(self, {self.}Prefix, "showBubbleSize");
|
|
container_.Set({self.}XmlChildShowBubbleSize);
|
|
end
|
|
return {self.}XmlChildShowBubbleSize and not {self.}XmlChildShowBubbleSize.Removed ? {self.}XmlChildShowBubbleSize : fallback_.ShowBubbleSize;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildShowBubbleSize(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowBubbleSize) then
|
|
{self.}RemoveChild({self.}XmlChildShowBubbleSize);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowBubbleSize := v;
|
|
container_.Set({self.}XmlChildShowBubbleSize);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowBubbleSize expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildShowLeaderLines(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowLeaderLines) or {self.}XmlChildShowLeaderLines.Removed) then
|
|
begin
|
|
{self.}XmlChildShowLeaderLines := new PureVal(self, {self.}Prefix, "showLeaderLines");
|
|
container_.Set({self.}XmlChildShowLeaderLines);
|
|
end
|
|
return {self.}XmlChildShowLeaderLines and not {self.}XmlChildShowLeaderLines.Removed ? {self.}XmlChildShowLeaderLines : fallback_.ShowLeaderLines;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildShowLeaderLines(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowLeaderLines) then
|
|
{self.}RemoveChild({self.}XmlChildShowLeaderLines);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowLeaderLines := v;
|
|
container_.Set({self.}XmlChildShowLeaderLines);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowLeaderLines expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DLbls.ReadXmlChildExtLst(): ExtLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then
|
|
begin
|
|
{self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst");
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst;
|
|
end;
|
|
|
|
function DLbls.WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExtLst) then
|
|
{self.}RemoveChild({self.}XmlChildExtLst);
|
|
end
|
|
else if v is class(ExtLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExtLst := v;
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ExtLst expects ExtLst or nil";
|
|
end
|
|
end;
|
|
|
|
function Cat.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "cat");
|
|
end;
|
|
|
|
function Cat.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Cat.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Cat.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Cat.Copy(_obj: Cat);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildStrRef) then
|
|
{self.}StrRef.Copy(_obj.XmlChildStrRef);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Cat.Clone(): Cat;override;
|
|
begin
|
|
obj := new Cat(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "strRef": obj.StrRef := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Cat.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildStrRef) then
|
|
{self.}XmlChildStrRef.ConvertToPoint();
|
|
end;
|
|
|
|
function Cat.ReadXmlChildStrRef(): StrRef;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildStrRef) or {self.}XmlChildStrRef.Removed) then
|
|
begin
|
|
{self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef");
|
|
container_.Set({self.}XmlChildStrRef);
|
|
end
|
|
return {self.}XmlChildStrRef and not {self.}XmlChildStrRef.Removed ? {self.}XmlChildStrRef : fallback_.StrRef;
|
|
end;
|
|
|
|
function Cat.WriteXmlChildStrRef(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildStrRef) then
|
|
{self.}RemoveChild({self.}XmlChildStrRef);
|
|
end
|
|
else if v is class(StrRef) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildStrRef := v;
|
|
container_.Set({self.}XmlChildStrRef);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: StrRef expects StrRef or nil";
|
|
end
|
|
end;
|
|
|
|
function StrRef.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "strRef");
|
|
end;
|
|
|
|
function StrRef.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function StrRef.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function StrRef.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))),
|
|
pre + "strCache": array(1, makeweakref(thisFunction(ReadXmlChildStrCache))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function StrRef.Copy(_obj: StrRef);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildF) then
|
|
{self.}F.Copy(_obj.XmlChildF);
|
|
if not ifnil(_obj.XmlChildStrCache) then
|
|
{self.}StrCache.Copy(_obj.XmlChildStrCache);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function StrRef.Clone(): StrRef;override;
|
|
begin
|
|
obj := new StrRef(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "f": obj.F := element.Clone();
|
|
pre + "strCache": obj.StrCache := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function StrRef.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildStrCache) then
|
|
{self.}XmlChildStrCache.ConvertToPoint();
|
|
end;
|
|
|
|
function StrRef.ReadXmlChildF();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildF) or {self.}XmlChildF.Removed) then
|
|
begin
|
|
{self.}XmlChildF := new OpenXmlTextElement(self, {self.}Prefix, "f");
|
|
container_.Set({self.}XmlChildF);
|
|
end
|
|
return {self.}XmlChildF and not {self.}XmlChildF.Removed ? {self.}XmlChildF : fallback_.F;
|
|
end;
|
|
|
|
function StrRef.WriteXmlChildF(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildF) then
|
|
{self.}RemoveChild({self.}XmlChildF);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildF := _value;
|
|
container_.Set({self.}XmlChildF);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: F expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
function StrRef.ReadXmlChildStrCache(): StrCache;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildStrCache) or {self.}XmlChildStrCache.Removed) then
|
|
begin
|
|
{self.}XmlChildStrCache := new StrCache(self, {self.}Prefix, "strCache");
|
|
container_.Set({self.}XmlChildStrCache);
|
|
end
|
|
return {self.}XmlChildStrCache and not {self.}XmlChildStrCache.Removed ? {self.}XmlChildStrCache : fallback_.StrCache;
|
|
end;
|
|
|
|
function StrRef.WriteXmlChildStrCache(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildStrCache) then
|
|
{self.}RemoveChild({self.}XmlChildStrCache);
|
|
end
|
|
else if v is class(StrCache) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildStrCache := v;
|
|
container_.Set({self.}XmlChildStrCache);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: StrCache expects StrCache or nil";
|
|
end
|
|
end;
|
|
|
|
function Val.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "val");
|
|
end;
|
|
|
|
function Val.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Val.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Val.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "numRef": array(0, makeweakref(thisFunction(ReadXmlChildNumRef))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Val.Copy(_obj: Val);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildNumRef) then
|
|
{self.}NumRef.Copy(_obj.XmlChildNumRef);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Val.Clone(): Val;override;
|
|
begin
|
|
obj := new Val(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "numRef": obj.NumRef := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Val.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildNumRef) then
|
|
{self.}XmlChildNumRef.ConvertToPoint();
|
|
end;
|
|
|
|
function Val.ReadXmlChildNumRef(): NumRef;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNumRef) or {self.}XmlChildNumRef.Removed) then
|
|
begin
|
|
{self.}XmlChildNumRef := new NumRef(self, {self.}Prefix, "numRef");
|
|
container_.Set({self.}XmlChildNumRef);
|
|
end
|
|
return {self.}XmlChildNumRef and not {self.}XmlChildNumRef.Removed ? {self.}XmlChildNumRef : fallback_.NumRef;
|
|
end;
|
|
|
|
function Val.WriteXmlChildNumRef(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildNumRef) then
|
|
{self.}RemoveChild({self.}XmlChildNumRef);
|
|
end
|
|
else if v is class(NumRef) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildNumRef := v;
|
|
container_.Set({self.}XmlChildNumRef);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NumRef expects NumRef or nil";
|
|
end
|
|
end;
|
|
|
|
function NumRef.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "numRef");
|
|
end;
|
|
|
|
function NumRef.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function NumRef.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function NumRef.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))),
|
|
pre + "numCache": array(1, makeweakref(thisFunction(ReadXmlChildNumCache))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function NumRef.Copy(_obj: NumRef);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildF) then
|
|
{self.}F.Copy(_obj.XmlChildF);
|
|
if not ifnil(_obj.XmlChildNumCache) then
|
|
{self.}NumCache.Copy(_obj.XmlChildNumCache);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function NumRef.Clone(): NumRef;override;
|
|
begin
|
|
obj := new NumRef(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "f": obj.F := element.Clone();
|
|
pre + "numCache": obj.NumCache := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function NumRef.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildNumCache) then
|
|
{self.}XmlChildNumCache.ConvertToPoint();
|
|
end;
|
|
|
|
function NumRef.ReadXmlChildF();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildF) or {self.}XmlChildF.Removed) then
|
|
begin
|
|
{self.}XmlChildF := new OpenXmlTextElement(self, {self.}Prefix, "f");
|
|
container_.Set({self.}XmlChildF);
|
|
end
|
|
return {self.}XmlChildF and not {self.}XmlChildF.Removed ? {self.}XmlChildF : fallback_.F;
|
|
end;
|
|
|
|
function NumRef.WriteXmlChildF(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildF) then
|
|
{self.}RemoveChild({self.}XmlChildF);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildF := _value;
|
|
container_.Set({self.}XmlChildF);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: F expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
function NumRef.ReadXmlChildNumCache(): NumCache;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNumCache) or {self.}XmlChildNumCache.Removed) then
|
|
begin
|
|
{self.}XmlChildNumCache := new NumCache(self, {self.}Prefix, "numCache");
|
|
container_.Set({self.}XmlChildNumCache);
|
|
end
|
|
return {self.}XmlChildNumCache and not {self.}XmlChildNumCache.Removed ? {self.}XmlChildNumCache : fallback_.NumCache;
|
|
end;
|
|
|
|
function NumRef.WriteXmlChildNumCache(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildNumCache) then
|
|
{self.}RemoveChild({self.}XmlChildNumCache);
|
|
end
|
|
else if v is class(NumCache) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildNumCache := v;
|
|
container_.Set({self.}XmlChildNumCache);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NumCache expects NumCache or nil";
|
|
end
|
|
end;
|
|
|
|
function StrCache.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "");
|
|
end;
|
|
|
|
function StrCache.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function StrCache.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function StrCache.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "ptCount": array(0, makeweakref(thisFunction(ReadXmlChildPtCount))),
|
|
pre + "pt": array(1, makeweakref(thisFunction(AppendPt))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function StrCache.Copy(_obj: StrCache);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildPtCount) then
|
|
{self.}PtCount.Copy(_obj.XmlChildPtCount);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function StrCache.Clone(): StrCache;override;
|
|
begin
|
|
obj := new StrCache(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "ptCount": obj.PtCount := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function StrCache.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPtCount) then
|
|
{self.}XmlChildPtCount.ConvertToPoint();
|
|
elems := {self.}Pts();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function StrCache.ReadXmlChildPtCount(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPtCount) or {self.}XmlChildPtCount.Removed) then
|
|
begin
|
|
{self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount");
|
|
container_.Set({self.}XmlChildPtCount);
|
|
end
|
|
return {self.}XmlChildPtCount and not {self.}XmlChildPtCount.Removed ? {self.}XmlChildPtCount : fallback_.PtCount;
|
|
end;
|
|
|
|
function StrCache.WriteXmlChildPtCount(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPtCount) then
|
|
{self.}RemoveChild({self.}XmlChildPtCount);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPtCount := v;
|
|
container_.Set({self.}XmlChildPtCount);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PtCount expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function StrCache.ReadPts(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "pt", ind);
|
|
end;
|
|
|
|
function StrCache.WritePts(_index: integer; _value: nil_OR_Pt);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadPts(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "pt", ind, _value) then
|
|
raise format("Index out of range: Pts[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Pts expects nil or Pt";
|
|
end
|
|
end;
|
|
|
|
function StrCache.AddPt(): Pt;
|
|
begin
|
|
obj := new Pt(self, {self.}Prefix, "pt");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function StrCache.AppendPt(): Pt;
|
|
begin
|
|
obj := new Pt(self, {self.}Prefix, "pt");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function NumCache.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "");
|
|
end;
|
|
|
|
function NumCache.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function NumCache.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function NumCache.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "formatCode": array(0, makeweakref(thisFunction(ReadXmlChildFormatCode))),
|
|
pre + "ptCount": array(1, makeweakref(thisFunction(ReadXmlChildPtCount))),
|
|
pre + "pt": array(2, makeweakref(thisFunction(AppendPt))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function NumCache.Copy(_obj: NumCache);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildFormatCode) then
|
|
{self.}FormatCode.Copy(_obj.XmlChildFormatCode);
|
|
if not ifnil(_obj.XmlChildPtCount) then
|
|
{self.}PtCount.Copy(_obj.XmlChildPtCount);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function NumCache.Clone(): NumCache;override;
|
|
begin
|
|
obj := new NumCache(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "formatCode": obj.FormatCode := element.Clone();
|
|
pre + "ptCount": obj.PtCount := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function NumCache.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPtCount) then
|
|
{self.}XmlChildPtCount.ConvertToPoint();
|
|
elems := {self.}Pts();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function NumCache.ReadXmlChildFormatCode();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFormatCode) or {self.}XmlChildFormatCode.Removed) then
|
|
begin
|
|
{self.}XmlChildFormatCode := new OpenXmlTextElement(self, {self.}Prefix, "formatCode");
|
|
container_.Set({self.}XmlChildFormatCode);
|
|
end
|
|
return {self.}XmlChildFormatCode and not {self.}XmlChildFormatCode.Removed ? {self.}XmlChildFormatCode : fallback_.FormatCode;
|
|
end;
|
|
|
|
function NumCache.WriteXmlChildFormatCode(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildFormatCode) then
|
|
{self.}RemoveChild({self.}XmlChildFormatCode);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildFormatCode := _value;
|
|
container_.Set({self.}XmlChildFormatCode);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FormatCode expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
function NumCache.ReadXmlChildPtCount(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPtCount) or {self.}XmlChildPtCount.Removed) then
|
|
begin
|
|
{self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount");
|
|
container_.Set({self.}XmlChildPtCount);
|
|
end
|
|
return {self.}XmlChildPtCount and not {self.}XmlChildPtCount.Removed ? {self.}XmlChildPtCount : fallback_.PtCount;
|
|
end;
|
|
|
|
function NumCache.WriteXmlChildPtCount(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPtCount) then
|
|
{self.}RemoveChild({self.}XmlChildPtCount);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPtCount := v;
|
|
container_.Set({self.}XmlChildPtCount);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PtCount expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function NumCache.ReadPts(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "pt", ind);
|
|
end;
|
|
|
|
function NumCache.WritePts(_index: integer; _value: nil_OR_Pt);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadPts(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "pt", ind, _value) then
|
|
raise format("Index out of range: Pts[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Pts expects nil or Pt";
|
|
end
|
|
end;
|
|
|
|
function NumCache.AddPt(): Pt;
|
|
begin
|
|
obj := new Pt(self, {self.}Prefix, "pt");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function NumCache.AppendPt(): Pt;
|
|
begin
|
|
obj := new Pt(self, {self.}Prefix, "pt");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Pt.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "pt");
|
|
end;
|
|
|
|
function Pt.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Pt.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Pt.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"idx": makeweakref(thisFunction(WriteXmlAttrIdx)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "v": array(0, makeweakref(thisFunction(ReadXmlChildV))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Pt.Copy(_obj: Pt);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Idx) then
|
|
{self.}Idx := _obj.Idx;
|
|
if not ifnil(_obj.XmlChildV) then
|
|
{self.}V.Copy(_obj.XmlChildV);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Pt.Clone(): Pt;override;
|
|
begin
|
|
obj := new Pt(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Idx) then
|
|
obj.Idx := {self.}Idx;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "v": obj.V := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Pt.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Pt.ReadXmlAttrIdx();
|
|
begin
|
|
return ifnil({self.}XmlAttrIdx.Value) ? fallback_.XmlAttrIdx.Value : {self.}XmlAttrIdx.Value;
|
|
end;
|
|
|
|
function Pt.WriteXmlAttrIdx(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrIdx) then
|
|
begin
|
|
{self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil);
|
|
attributes_["idx"] := {self.}XmlAttrIdx;
|
|
end
|
|
{self.}XmlAttrIdx.Value := _value;
|
|
end;
|
|
|
|
function Pt.ReadXmlChildV();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildV) or {self.}XmlChildV.Removed) then
|
|
begin
|
|
{self.}XmlChildV := new OpenXmlTextElement(self, {self.}Prefix, "v");
|
|
container_.Set({self.}XmlChildV);
|
|
end
|
|
return {self.}XmlChildV and not {self.}XmlChildV.Removed ? {self.}XmlChildV : fallback_.V;
|
|
end;
|
|
|
|
function Pt.WriteXmlChildV(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildV) then
|
|
{self.}RemoveChild({self.}XmlChildV);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildV := _value;
|
|
container_.Set({self.}XmlChildV);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: V expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
function Ax.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "");
|
|
end;
|
|
|
|
function Ax.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Ax.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Ax.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "axId": array(0, makeweakref(thisFunction(ReadXmlChildAxId))),
|
|
pre + "scaling": array(1, makeweakref(thisFunction(ReadXmlChildScaling))),
|
|
pre + "delete": array(2, makeweakref(thisFunction(ReadXmlChild_Delete))),
|
|
pre + "axPos": array(3, makeweakref(thisFunction(ReadXmlChildAxPos))),
|
|
pre + "numFmt": array(4, makeweakref(thisFunction(ReadXmlChildNumFmt))),
|
|
pre + "majorTickMark": array(5, makeweakref(thisFunction(ReadXmlChildMajorTickMark))),
|
|
pre + "minorTickMark": array(6, makeweakref(thisFunction(ReadXmlChildMinorTickMark))),
|
|
pre + "tickLblPos": array(7, makeweakref(thisFunction(ReadXmlChildTickLblPos))),
|
|
pre + "spPr": array(8, makeweakref(thisFunction(ReadXmlChildSpPr))),
|
|
pre + "txPr": array(9, makeweakref(thisFunction(ReadXmlChildTxPr))),
|
|
pre + "crossAx": array(10, makeweakref(thisFunction(ReadXmlChildCrossAx))),
|
|
pre + "crosses": array(11, makeweakref(thisFunction(ReadXmlChildCrosses))),
|
|
pre + "crossBetween": array(12, makeweakref(thisFunction(ReadXmlChildCrossBetween))),
|
|
pre + "auto": array(13, makeweakref(thisFunction(ReadXmlChildAuto))),
|
|
pre + "lblAlgn": array(14, makeweakref(thisFunction(ReadXmlChildLblAlgn))),
|
|
pre + "lblOffset": array(15, makeweakref(thisFunction(ReadXmlChildLblOffset))),
|
|
pre + "noMultiLvlLbl": array(16, makeweakref(thisFunction(ReadXmlChildNoMultiLvlLbl))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Ax.Copy(_obj: Ax);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildAxId) then
|
|
{self.}AxId.Copy(_obj.XmlChildAxId);
|
|
if not ifnil(_obj.XmlChildScaling) then
|
|
{self.}Scaling.Copy(_obj.XmlChildScaling);
|
|
if not ifnil(_obj.XmlChild_Delete) then
|
|
{self.}_Delete.Copy(_obj.XmlChild_Delete);
|
|
if not ifnil(_obj.XmlChildAxPos) then
|
|
{self.}AxPos.Copy(_obj.XmlChildAxPos);
|
|
if not ifnil(_obj.XmlChildNumFmt) then
|
|
{self.}NumFmt.Copy(_obj.XmlChildNumFmt);
|
|
if not ifnil(_obj.XmlChildMajorTickMark) then
|
|
{self.}MajorTickMark.Copy(_obj.XmlChildMajorTickMark);
|
|
if not ifnil(_obj.XmlChildMinorTickMark) then
|
|
{self.}MinorTickMark.Copy(_obj.XmlChildMinorTickMark);
|
|
if not ifnil(_obj.XmlChildTickLblPos) then
|
|
{self.}TickLblPos.Copy(_obj.XmlChildTickLblPos);
|
|
if not ifnil(_obj.XmlChildSpPr) then
|
|
{self.}SpPr.Copy(_obj.XmlChildSpPr);
|
|
if not ifnil(_obj.XmlChildTxPr) then
|
|
{self.}TxPr.Copy(_obj.XmlChildTxPr);
|
|
if not ifnil(_obj.XmlChildCrossAx) then
|
|
{self.}CrossAx.Copy(_obj.XmlChildCrossAx);
|
|
if not ifnil(_obj.XmlChildCrosses) then
|
|
{self.}Crosses.Copy(_obj.XmlChildCrosses);
|
|
if not ifnil(_obj.XmlChildCrossBetween) then
|
|
{self.}CrossBetween.Copy(_obj.XmlChildCrossBetween);
|
|
if not ifnil(_obj.XmlChildAuto) then
|
|
{self.}Auto.Copy(_obj.XmlChildAuto);
|
|
if not ifnil(_obj.XmlChildLblAlgn) then
|
|
{self.}LblAlgn.Copy(_obj.XmlChildLblAlgn);
|
|
if not ifnil(_obj.XmlChildLblOffset) then
|
|
{self.}LblOffset.Copy(_obj.XmlChildLblOffset);
|
|
if not ifnil(_obj.XmlChildNoMultiLvlLbl) then
|
|
{self.}NoMultiLvlLbl.Copy(_obj.XmlChildNoMultiLvlLbl);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Ax.Clone(): Ax;override;
|
|
begin
|
|
obj := new Ax(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "axId": obj.AxId := element.Clone();
|
|
pre + "scaling": obj.Scaling := element.Clone();
|
|
pre + "delete": obj._Delete := element.Clone();
|
|
pre + "axPos": obj.AxPos := element.Clone();
|
|
pre + "numFmt": obj.NumFmt := element.Clone();
|
|
pre + "majorTickMark": obj.MajorTickMark := element.Clone();
|
|
pre + "minorTickMark": obj.MinorTickMark := element.Clone();
|
|
pre + "tickLblPos": obj.TickLblPos := element.Clone();
|
|
pre + "spPr": obj.SpPr := element.Clone();
|
|
pre + "txPr": obj.TxPr := element.Clone();
|
|
pre + "crossAx": obj.CrossAx := element.Clone();
|
|
pre + "crosses": obj.Crosses := element.Clone();
|
|
pre + "crossBetween": obj.CrossBetween := element.Clone();
|
|
pre + "auto": obj.Auto := element.Clone();
|
|
pre + "lblAlgn": obj.LblAlgn := element.Clone();
|
|
pre + "lblOffset": obj.LblOffset := element.Clone();
|
|
pre + "noMultiLvlLbl": obj.NoMultiLvlLbl := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Ax.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildAxId) then
|
|
{self.}XmlChildAxId.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildScaling) then
|
|
{self.}XmlChildScaling.ConvertToPoint();
|
|
if not ifnil({self.}XmlChild_Delete) then
|
|
{self.}XmlChild_Delete.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAxPos) then
|
|
{self.}XmlChildAxPos.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildNumFmt) then
|
|
{self.}XmlChildNumFmt.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildMajorTickMark) then
|
|
{self.}XmlChildMajorTickMark.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildMinorTickMark) then
|
|
{self.}XmlChildMinorTickMark.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTickLblPos) then
|
|
{self.}XmlChildTickLblPos.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSpPr) then
|
|
{self.}XmlChildSpPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTxPr) then
|
|
{self.}XmlChildTxPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCrossAx) then
|
|
{self.}XmlChildCrossAx.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCrosses) then
|
|
{self.}XmlChildCrosses.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCrossBetween) then
|
|
{self.}XmlChildCrossBetween.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildAuto) then
|
|
{self.}XmlChildAuto.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLblAlgn) then
|
|
{self.}XmlChildLblAlgn.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLblOffset) then
|
|
{self.}XmlChildLblOffset.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildNoMultiLvlLbl) then
|
|
{self.}XmlChildNoMultiLvlLbl.ConvertToPoint();
|
|
end;
|
|
|
|
function Ax.ReadXmlChildAxId(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAxId) or {self.}XmlChildAxId.Removed) then
|
|
begin
|
|
{self.}XmlChildAxId := new PureVal(self, {self.}Prefix, "axId");
|
|
container_.Set({self.}XmlChildAxId);
|
|
end
|
|
return {self.}XmlChildAxId and not {self.}XmlChildAxId.Removed ? {self.}XmlChildAxId : fallback_.AxId;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildAxId(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAxId) then
|
|
{self.}RemoveChild({self.}XmlChildAxId);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAxId := v;
|
|
container_.Set({self.}XmlChildAxId);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AxId expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildScaling(): Scaling;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildScaling) or {self.}XmlChildScaling.Removed) then
|
|
begin
|
|
{self.}XmlChildScaling := new Scaling(self, {self.}Prefix, "scaling");
|
|
container_.Set({self.}XmlChildScaling);
|
|
end
|
|
return {self.}XmlChildScaling and not {self.}XmlChildScaling.Removed ? {self.}XmlChildScaling : fallback_.Scaling;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildScaling(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildScaling) then
|
|
{self.}RemoveChild({self.}XmlChildScaling);
|
|
end
|
|
else if v is class(Scaling) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildScaling := v;
|
|
container_.Set({self.}XmlChildScaling);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Scaling expects Scaling or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChild_Delete(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChild_Delete) or {self.}XmlChild_Delete.Removed) then
|
|
begin
|
|
{self.}XmlChild_Delete := new PureVal(self, {self.}Prefix, "delete");
|
|
container_.Set({self.}XmlChild_Delete);
|
|
end
|
|
return {self.}XmlChild_Delete and not {self.}XmlChild_Delete.Removed ? {self.}XmlChild_Delete : fallback_._Delete;
|
|
end;
|
|
|
|
function Ax.WriteXmlChild_Delete(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChild_Delete) then
|
|
{self.}RemoveChild({self.}XmlChild_Delete);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChild_Delete := v;
|
|
container_.Set({self.}XmlChild_Delete);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: _Delete expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildAxPos(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAxPos) or {self.}XmlChildAxPos.Removed) then
|
|
begin
|
|
{self.}XmlChildAxPos := new PureVal(self, {self.}Prefix, "axPos");
|
|
container_.Set({self.}XmlChildAxPos);
|
|
end
|
|
return {self.}XmlChildAxPos and not {self.}XmlChildAxPos.Removed ? {self.}XmlChildAxPos : fallback_.AxPos;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildAxPos(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAxPos) then
|
|
{self.}RemoveChild({self.}XmlChildAxPos);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAxPos := v;
|
|
container_.Set({self.}XmlChildAxPos);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AxPos expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildNumFmt(): NumFmt;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNumFmt) or {self.}XmlChildNumFmt.Removed) then
|
|
begin
|
|
{self.}XmlChildNumFmt := new NumFmt(self, {self.}Prefix, "numFmt");
|
|
container_.Set({self.}XmlChildNumFmt);
|
|
end
|
|
return {self.}XmlChildNumFmt and not {self.}XmlChildNumFmt.Removed ? {self.}XmlChildNumFmt : fallback_.NumFmt;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildNumFmt(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildNumFmt) then
|
|
{self.}RemoveChild({self.}XmlChildNumFmt);
|
|
end
|
|
else if v is class(NumFmt) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildNumFmt := v;
|
|
container_.Set({self.}XmlChildNumFmt);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NumFmt expects NumFmt or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildMajorTickMark(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildMajorTickMark) or {self.}XmlChildMajorTickMark.Removed) then
|
|
begin
|
|
{self.}XmlChildMajorTickMark := new PureVal(self, {self.}Prefix, "majorTickMark");
|
|
container_.Set({self.}XmlChildMajorTickMark);
|
|
end
|
|
return {self.}XmlChildMajorTickMark and not {self.}XmlChildMajorTickMark.Removed ? {self.}XmlChildMajorTickMark : fallback_.MajorTickMark;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildMajorTickMark(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildMajorTickMark) then
|
|
{self.}RemoveChild({self.}XmlChildMajorTickMark);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildMajorTickMark := v;
|
|
container_.Set({self.}XmlChildMajorTickMark);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: MajorTickMark expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildMinorTickMark(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildMinorTickMark) or {self.}XmlChildMinorTickMark.Removed) then
|
|
begin
|
|
{self.}XmlChildMinorTickMark := new PureVal(self, {self.}Prefix, "minorTickMark");
|
|
container_.Set({self.}XmlChildMinorTickMark);
|
|
end
|
|
return {self.}XmlChildMinorTickMark and not {self.}XmlChildMinorTickMark.Removed ? {self.}XmlChildMinorTickMark : fallback_.MinorTickMark;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildMinorTickMark(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildMinorTickMark) then
|
|
{self.}RemoveChild({self.}XmlChildMinorTickMark);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildMinorTickMark := v;
|
|
container_.Set({self.}XmlChildMinorTickMark);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: MinorTickMark expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildTickLblPos(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTickLblPos) or {self.}XmlChildTickLblPos.Removed) then
|
|
begin
|
|
{self.}XmlChildTickLblPos := new PureVal(self, {self.}Prefix, "tickLblPos");
|
|
container_.Set({self.}XmlChildTickLblPos);
|
|
end
|
|
return {self.}XmlChildTickLblPos and not {self.}XmlChildTickLblPos.Removed ? {self.}XmlChildTickLblPos : fallback_.TickLblPos;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildTickLblPos(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTickLblPos) then
|
|
{self.}RemoveChild({self.}XmlChildTickLblPos);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTickLblPos := v;
|
|
container_.Set({self.}XmlChildTickLblPos);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: TickLblPos expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildSpPr(): SpPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then
|
|
begin
|
|
{self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr");
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSpPr) then
|
|
{self.}RemoveChild({self.}XmlChildSpPr);
|
|
end
|
|
else if v is class(SpPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSpPr := v;
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SpPr expects SpPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildTxPr(): TxPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTxPr) or {self.}XmlChildTxPr.Removed) then
|
|
begin
|
|
{self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr");
|
|
container_.Set({self.}XmlChildTxPr);
|
|
end
|
|
return {self.}XmlChildTxPr and not {self.}XmlChildTxPr.Removed ? {self.}XmlChildTxPr : fallback_.TxPr;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildTxPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTxPr) then
|
|
{self.}RemoveChild({self.}XmlChildTxPr);
|
|
end
|
|
else if v is class(TxPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTxPr := v;
|
|
container_.Set({self.}XmlChildTxPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: TxPr expects TxPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildCrossAx(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCrossAx) or {self.}XmlChildCrossAx.Removed) then
|
|
begin
|
|
{self.}XmlChildCrossAx := new PureVal(self, {self.}Prefix, "crossAx");
|
|
container_.Set({self.}XmlChildCrossAx);
|
|
end
|
|
return {self.}XmlChildCrossAx and not {self.}XmlChildCrossAx.Removed ? {self.}XmlChildCrossAx : fallback_.CrossAx;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildCrossAx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCrossAx) then
|
|
{self.}RemoveChild({self.}XmlChildCrossAx);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCrossAx := v;
|
|
container_.Set({self.}XmlChildCrossAx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CrossAx expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildCrosses(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCrosses) or {self.}XmlChildCrosses.Removed) then
|
|
begin
|
|
{self.}XmlChildCrosses := new PureVal(self, {self.}Prefix, "crosses");
|
|
container_.Set({self.}XmlChildCrosses);
|
|
end
|
|
return {self.}XmlChildCrosses and not {self.}XmlChildCrosses.Removed ? {self.}XmlChildCrosses : fallback_.Crosses;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildCrosses(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCrosses) then
|
|
{self.}RemoveChild({self.}XmlChildCrosses);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCrosses := v;
|
|
container_.Set({self.}XmlChildCrosses);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Crosses expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildCrossBetween(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCrossBetween) or {self.}XmlChildCrossBetween.Removed) then
|
|
begin
|
|
{self.}XmlChildCrossBetween := new PureVal(self, {self.}Prefix, "crossBetween");
|
|
container_.Set({self.}XmlChildCrossBetween);
|
|
end
|
|
return {self.}XmlChildCrossBetween and not {self.}XmlChildCrossBetween.Removed ? {self.}XmlChildCrossBetween : fallback_.CrossBetween;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildCrossBetween(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCrossBetween) then
|
|
{self.}RemoveChild({self.}XmlChildCrossBetween);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCrossBetween := v;
|
|
container_.Set({self.}XmlChildCrossBetween);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CrossBetween expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildAuto(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAuto) or {self.}XmlChildAuto.Removed) then
|
|
begin
|
|
{self.}XmlChildAuto := new PureVal(self, {self.}Prefix, "auto");
|
|
container_.Set({self.}XmlChildAuto);
|
|
end
|
|
return {self.}XmlChildAuto and not {self.}XmlChildAuto.Removed ? {self.}XmlChildAuto : fallback_.Auto;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildAuto(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAuto) then
|
|
{self.}RemoveChild({self.}XmlChildAuto);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAuto := v;
|
|
container_.Set({self.}XmlChildAuto);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Auto expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildLblAlgn(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLblAlgn) or {self.}XmlChildLblAlgn.Removed) then
|
|
begin
|
|
{self.}XmlChildLblAlgn := new PureVal(self, {self.}Prefix, "lblAlgn");
|
|
container_.Set({self.}XmlChildLblAlgn);
|
|
end
|
|
return {self.}XmlChildLblAlgn and not {self.}XmlChildLblAlgn.Removed ? {self.}XmlChildLblAlgn : fallback_.LblAlgn;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildLblAlgn(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLblAlgn) then
|
|
{self.}RemoveChild({self.}XmlChildLblAlgn);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLblAlgn := v;
|
|
container_.Set({self.}XmlChildLblAlgn);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LblAlgn expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildLblOffset(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLblOffset) or {self.}XmlChildLblOffset.Removed) then
|
|
begin
|
|
{self.}XmlChildLblOffset := new PureVal(self, {self.}Prefix, "lblOffset");
|
|
container_.Set({self.}XmlChildLblOffset);
|
|
end
|
|
return {self.}XmlChildLblOffset and not {self.}XmlChildLblOffset.Removed ? {self.}XmlChildLblOffset : fallback_.LblOffset;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildLblOffset(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLblOffset) then
|
|
{self.}RemoveChild({self.}XmlChildLblOffset);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLblOffset := v;
|
|
container_.Set({self.}XmlChildLblOffset);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LblOffset expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ax.ReadXmlChildNoMultiLvlLbl(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNoMultiLvlLbl) or {self.}XmlChildNoMultiLvlLbl.Removed) then
|
|
begin
|
|
{self.}XmlChildNoMultiLvlLbl := new PureVal(self, {self.}Prefix, "noMultiLvlLbl");
|
|
container_.Set({self.}XmlChildNoMultiLvlLbl);
|
|
end
|
|
return {self.}XmlChildNoMultiLvlLbl and not {self.}XmlChildNoMultiLvlLbl.Removed ? {self.}XmlChildNoMultiLvlLbl : fallback_.NoMultiLvlLbl;
|
|
end;
|
|
|
|
function Ax.WriteXmlChildNoMultiLvlLbl(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildNoMultiLvlLbl) then
|
|
{self.}RemoveChild({self.}XmlChildNoMultiLvlLbl);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildNoMultiLvlLbl := v;
|
|
container_.Set({self.}XmlChildNoMultiLvlLbl);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NoMultiLvlLbl expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function NumFmt.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "numFmt");
|
|
end;
|
|
|
|
function NumFmt.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function NumFmt.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function NumFmt.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"formatCode": makeweakref(thisFunction(WriteXmlAttrFormatCode)),
|
|
"sourceLinked": makeweakref(thisFunction(WriteXmlAttrSourceLinked)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function NumFmt.Copy(_obj: NumFmt);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.FormatCode) then
|
|
{self.}FormatCode := _obj.FormatCode;
|
|
if not ifnil(_obj.SourceLinked) then
|
|
{self.}SourceLinked := _obj.SourceLinked;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function NumFmt.Clone(): NumFmt;override;
|
|
begin
|
|
obj := new NumFmt(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}FormatCode) then
|
|
obj.FormatCode := {self.}FormatCode;
|
|
if not ifnil({self.}SourceLinked) then
|
|
obj.SourceLinked := {self.}SourceLinked;
|
|
return obj;
|
|
end;
|
|
|
|
function NumFmt.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function NumFmt.ReadXmlAttrFormatCode();
|
|
begin
|
|
return ifnil({self.}XmlAttrFormatCode.Value) ? fallback_.XmlAttrFormatCode.Value : {self.}XmlAttrFormatCode.Value;
|
|
end;
|
|
|
|
function NumFmt.WriteXmlAttrFormatCode(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrFormatCode) then
|
|
begin
|
|
{self.}XmlAttrFormatCode := new OpenXmlAttribute("", "formatCode", nil);
|
|
attributes_["formatCode"] := {self.}XmlAttrFormatCode;
|
|
end
|
|
{self.}XmlAttrFormatCode.Value := _value;
|
|
end;
|
|
|
|
function NumFmt.ReadXmlAttrSourceLinked();
|
|
begin
|
|
return ifnil({self.}XmlAttrSourceLinked.Value) ? fallback_.XmlAttrSourceLinked.Value : {self.}XmlAttrSourceLinked.Value;
|
|
end;
|
|
|
|
function NumFmt.WriteXmlAttrSourceLinked(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrSourceLinked) then
|
|
begin
|
|
{self.}XmlAttrSourceLinked := new OpenXmlAttribute("", "sourceLinked", nil);
|
|
attributes_["sourceLinked"] := {self.}XmlAttrSourceLinked;
|
|
end
|
|
{self.}XmlAttrSourceLinked.Value := _value;
|
|
end;
|
|
|
|
function Scaling.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "scaling");
|
|
end;
|
|
|
|
function Scaling.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Scaling.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Scaling.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "orientation": array(0, makeweakref(thisFunction(ReadXmlChildOrientation))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Scaling.Copy(_obj: Scaling);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildOrientation) then
|
|
ifnil({self.}XmlChildOrientation) ? {self.}Orientation.Copy(_obj.XmlChildOrientation) : {self.}XmlChildOrientation.Copy(_obj.XmlChildOrientation);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Scaling.Clone(): Scaling;override;
|
|
begin
|
|
obj := new Scaling(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "orientation": obj.Orientation := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Scaling.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Scaling.ReadXmlChildOrientation();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildOrientation) or {self.}XmlChildOrientation.Removed) then
|
|
begin
|
|
{self.}XmlChildOrientation := new OpenXmlSimpleType(self, {self.}Prefix, "orientation");
|
|
container_.Set({self.}XmlChildOrientation);
|
|
end
|
|
return {self.}XmlChildOrientation and not {self.}XmlChildOrientation.Removed ? {self.}XmlChildOrientation : fallback_.Orientation;
|
|
end;
|
|
|
|
function Scaling.WriteXmlChildOrientation(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildOrientation) then
|
|
{self.}RemoveChild({self.}XmlChildOrientation);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildOrientation := _value;
|
|
container_.Set({self.}XmlChildOrientation);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Orientation expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function DTable.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "dTable");
|
|
end;
|
|
|
|
function DTable.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function DTable.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function DTable.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "showHorzBorder": array(0, makeweakref(thisFunction(ReadXmlChildShowHorzBorder))),
|
|
pre + "showVertBorder": array(1, makeweakref(thisFunction(ReadXmlChildShowVertBorder))),
|
|
pre + "showOutline": array(2, makeweakref(thisFunction(ReadXmlChildShowOutline))),
|
|
pre + "showKeys": array(3, makeweakref(thisFunction(ReadXmlChildShowKeys))),
|
|
pre + "txPr": array(4, makeweakref(thisFunction(ReadXmlChildTxPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function DTable.Copy(_obj: DTable);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildShowHorzBorder) then
|
|
{self.}ShowHorzBorder.Copy(_obj.XmlChildShowHorzBorder);
|
|
if not ifnil(_obj.XmlChildShowVertBorder) then
|
|
{self.}ShowVertBorder.Copy(_obj.XmlChildShowVertBorder);
|
|
if not ifnil(_obj.XmlChildShowOutline) then
|
|
{self.}ShowOutline.Copy(_obj.XmlChildShowOutline);
|
|
if not ifnil(_obj.XmlChildShowKeys) then
|
|
{self.}ShowKeys.Copy(_obj.XmlChildShowKeys);
|
|
if not ifnil(_obj.XmlChildTxPr) then
|
|
{self.}TxPr.Copy(_obj.XmlChildTxPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function DTable.Clone(): DTable;override;
|
|
begin
|
|
obj := new DTable(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "showHorzBorder": obj.ShowHorzBorder := element.Clone();
|
|
pre + "showVertBorder": obj.ShowVertBorder := element.Clone();
|
|
pre + "showOutline": obj.ShowOutline := element.Clone();
|
|
pre + "showKeys": obj.ShowKeys := element.Clone();
|
|
pre + "txPr": obj.TxPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function DTable.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildShowHorzBorder) then
|
|
{self.}XmlChildShowHorzBorder.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowVertBorder) then
|
|
{self.}XmlChildShowVertBorder.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowOutline) then
|
|
{self.}XmlChildShowOutline.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildShowKeys) then
|
|
{self.}XmlChildShowKeys.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTxPr) then
|
|
{self.}XmlChildTxPr.ConvertToPoint();
|
|
end;
|
|
|
|
function DTable.ReadXmlChildShowHorzBorder(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowHorzBorder) or {self.}XmlChildShowHorzBorder.Removed) then
|
|
begin
|
|
{self.}XmlChildShowHorzBorder := new PureVal(self, {self.}Prefix, "showHorzBorder");
|
|
container_.Set({self.}XmlChildShowHorzBorder);
|
|
end
|
|
return {self.}XmlChildShowHorzBorder and not {self.}XmlChildShowHorzBorder.Removed ? {self.}XmlChildShowHorzBorder : fallback_.ShowHorzBorder;
|
|
end;
|
|
|
|
function DTable.WriteXmlChildShowHorzBorder(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowHorzBorder) then
|
|
{self.}RemoveChild({self.}XmlChildShowHorzBorder);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowHorzBorder := v;
|
|
container_.Set({self.}XmlChildShowHorzBorder);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowHorzBorder expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DTable.ReadXmlChildShowVertBorder(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowVertBorder) or {self.}XmlChildShowVertBorder.Removed) then
|
|
begin
|
|
{self.}XmlChildShowVertBorder := new PureVal(self, {self.}Prefix, "showVertBorder");
|
|
container_.Set({self.}XmlChildShowVertBorder);
|
|
end
|
|
return {self.}XmlChildShowVertBorder and not {self.}XmlChildShowVertBorder.Removed ? {self.}XmlChildShowVertBorder : fallback_.ShowVertBorder;
|
|
end;
|
|
|
|
function DTable.WriteXmlChildShowVertBorder(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowVertBorder) then
|
|
{self.}RemoveChild({self.}XmlChildShowVertBorder);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowVertBorder := v;
|
|
container_.Set({self.}XmlChildShowVertBorder);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowVertBorder expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DTable.ReadXmlChildShowOutline(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowOutline) or {self.}XmlChildShowOutline.Removed) then
|
|
begin
|
|
{self.}XmlChildShowOutline := new PureVal(self, {self.}Prefix, "showOutline");
|
|
container_.Set({self.}XmlChildShowOutline);
|
|
end
|
|
return {self.}XmlChildShowOutline and not {self.}XmlChildShowOutline.Removed ? {self.}XmlChildShowOutline : fallback_.ShowOutline;
|
|
end;
|
|
|
|
function DTable.WriteXmlChildShowOutline(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowOutline) then
|
|
{self.}RemoveChild({self.}XmlChildShowOutline);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowOutline := v;
|
|
container_.Set({self.}XmlChildShowOutline);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowOutline expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DTable.ReadXmlChildShowKeys(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildShowKeys) or {self.}XmlChildShowKeys.Removed) then
|
|
begin
|
|
{self.}XmlChildShowKeys := new PureVal(self, {self.}Prefix, "showKeys");
|
|
container_.Set({self.}XmlChildShowKeys);
|
|
end
|
|
return {self.}XmlChildShowKeys and not {self.}XmlChildShowKeys.Removed ? {self.}XmlChildShowKeys : fallback_.ShowKeys;
|
|
end;
|
|
|
|
function DTable.WriteXmlChildShowKeys(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildShowKeys) then
|
|
{self.}RemoveChild({self.}XmlChildShowKeys);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildShowKeys := v;
|
|
container_.Set({self.}XmlChildShowKeys);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ShowKeys expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function DTable.ReadXmlChildTxPr(): TxPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTxPr) or {self.}XmlChildTxPr.Removed) then
|
|
begin
|
|
{self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr");
|
|
container_.Set({self.}XmlChildTxPr);
|
|
end
|
|
return {self.}XmlChildTxPr and not {self.}XmlChildTxPr.Removed ? {self.}XmlChildTxPr : fallback_.TxPr;
|
|
end;
|
|
|
|
function DTable.WriteXmlChildTxPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTxPr) then
|
|
{self.}RemoveChild({self.}XmlChildTxPr);
|
|
end
|
|
else if v is class(TxPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTxPr := v;
|
|
container_.Set({self.}XmlChildTxPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: TxPr expects TxPr or nil";
|
|
end
|
|
end;
|
|
|
|
function TxPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "txPr");
|
|
end;
|
|
|
|
function TxPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function TxPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function TxPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))),
|
|
"a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))),
|
|
"a:p": array(2, makeweakref(thisFunction(AppendP))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function TxPr.Copy(_obj: TxPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildBodyPr) then
|
|
{self.}BodyPr.Copy(_obj.XmlChildBodyPr);
|
|
if not ifnil(_obj.XmlChildLstStyle) then
|
|
ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function TxPr.Clone(): TxPr;override;
|
|
begin
|
|
obj := new TxPr(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:bodyPr": obj.BodyPr := element.Clone();
|
|
"a:lstStyle": obj.LstStyle := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function TxPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildBodyPr) then
|
|
{self.}XmlChildBodyPr.ConvertToPoint();
|
|
elems := {self.}Ps();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function TxPr.ReadXmlChildLstStyle();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLstStyle) or {self.}XmlChildLstStyle.Removed) then
|
|
begin
|
|
{self.}XmlChildLstStyle := new OpenXmlSimpleType(self, "a", "lstStyle");
|
|
container_.Set({self.}XmlChildLstStyle);
|
|
end
|
|
return {self.}XmlChildLstStyle and not {self.}XmlChildLstStyle.Removed ? {self.}XmlChildLstStyle : fallback_.LstStyle;
|
|
end;
|
|
|
|
function TxPr.WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildLstStyle) then
|
|
{self.}RemoveChild({self.}XmlChildLstStyle);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildLstStyle := _value;
|
|
container_.Set({self.}XmlChildLstStyle);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LstStyle expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function TxPr.ReadXmlChildBodyPr(): BodyPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBodyPr) or {self.}XmlChildBodyPr.Removed) then
|
|
begin
|
|
{self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr");
|
|
container_.Set({self.}XmlChildBodyPr);
|
|
end
|
|
return {self.}XmlChildBodyPr and not {self.}XmlChildBodyPr.Removed ? {self.}XmlChildBodyPr : fallback_.BodyPr;
|
|
end;
|
|
|
|
function TxPr.WriteXmlChildBodyPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBodyPr) then
|
|
{self.}RemoveChild({self.}XmlChildBodyPr);
|
|
end
|
|
else if v is class(BodyPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBodyPr := v;
|
|
container_.Set({self.}XmlChildBodyPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: BodyPr expects BodyPr or nil";
|
|
end
|
|
end;
|
|
|
|
function TxPr.ReadPs(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get("a:p", ind);
|
|
end;
|
|
|
|
function TxPr.WritePs(_index: integer; _value: nil_OR_P);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadPs(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "p", ind, _value) then
|
|
raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Ps expects nil or P";
|
|
end
|
|
end;
|
|
|
|
function TxPr.AddP(): P;
|
|
begin
|
|
obj := new P(self, "a", "p");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function TxPr.AppendP(): P;
|
|
begin
|
|
obj := new P(self, "a", "p");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Title.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "title");
|
|
end;
|
|
|
|
function Title.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Title.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Title.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "tx": array(0, makeweakref(thisFunction(ReadXmlChildTx))),
|
|
pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))),
|
|
pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Title.Copy(_obj: Title);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildTx) then
|
|
{self.}Tx.Copy(_obj.XmlChildTx);
|
|
if not ifnil(_obj.XmlChildLayout) then
|
|
ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout);
|
|
if not ifnil(_obj.XmlChildOverlay) then
|
|
{self.}Overlay.Copy(_obj.XmlChildOverlay);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Title.Clone(): Title;override;
|
|
begin
|
|
obj := new Title(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "tx": obj.Tx := element.Clone();
|
|
pre + "layout": obj.Layout := element.Clone();
|
|
pre + "overlay": obj.Overlay := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Title.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildTx) then
|
|
{self.}XmlChildTx.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildOverlay) then
|
|
{self.}XmlChildOverlay.ConvertToPoint();
|
|
end;
|
|
|
|
function Title.ReadXmlChildLayout();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then
|
|
begin
|
|
{self.}XmlChildLayout := new OpenXmlSimpleType(self, {self.}Prefix, "layout");
|
|
container_.Set({self.}XmlChildLayout);
|
|
end
|
|
return {self.}XmlChildLayout and not {self.}XmlChildLayout.Removed ? {self.}XmlChildLayout : fallback_.Layout;
|
|
end;
|
|
|
|
function Title.WriteXmlChildLayout(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildLayout) then
|
|
{self.}RemoveChild({self.}XmlChildLayout);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildLayout := _value;
|
|
container_.Set({self.}XmlChildLayout);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Layout expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Title.ReadXmlChildTx(): Tx;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTx) or {self.}XmlChildTx.Removed) then
|
|
begin
|
|
{self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx");
|
|
container_.Set({self.}XmlChildTx);
|
|
end
|
|
return {self.}XmlChildTx and not {self.}XmlChildTx.Removed ? {self.}XmlChildTx : fallback_.Tx;
|
|
end;
|
|
|
|
function Title.WriteXmlChildTx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTx) then
|
|
{self.}RemoveChild({self.}XmlChildTx);
|
|
end
|
|
else if v is class(Tx) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTx := v;
|
|
container_.Set({self.}XmlChildTx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Tx expects Tx or nil";
|
|
end
|
|
end;
|
|
|
|
function Title.ReadXmlChildOverlay(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildOverlay) or {self.}XmlChildOverlay.Removed) then
|
|
begin
|
|
{self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay");
|
|
container_.Set({self.}XmlChildOverlay);
|
|
end
|
|
return {self.}XmlChildOverlay and not {self.}XmlChildOverlay.Removed ? {self.}XmlChildOverlay : fallback_.Overlay;
|
|
end;
|
|
|
|
function Title.WriteXmlChildOverlay(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildOverlay) then
|
|
{self.}RemoveChild({self.}XmlChildOverlay);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildOverlay := v;
|
|
container_.Set({self.}XmlChildOverlay);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Overlay expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Tx.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "tx");
|
|
end;
|
|
|
|
function Tx.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Tx.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Tx.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))),
|
|
pre + "rich": array(1, makeweakref(thisFunction(ReadXmlChildRich))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Tx.Copy(_obj: Tx);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildStrRef) then
|
|
{self.}StrRef.Copy(_obj.XmlChildStrRef);
|
|
if not ifnil(_obj.XmlChildRich) then
|
|
{self.}Rich.Copy(_obj.XmlChildRich);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Tx.Clone(): Tx;override;
|
|
begin
|
|
obj := new Tx(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "strRef": obj.StrRef := element.Clone();
|
|
pre + "rich": obj.Rich := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Tx.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildStrRef) then
|
|
{self.}XmlChildStrRef.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildRich) then
|
|
{self.}XmlChildRich.ConvertToPoint();
|
|
end;
|
|
|
|
function Tx.ReadXmlChildStrRef(): StrRef;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildStrRef) or {self.}XmlChildStrRef.Removed) then
|
|
begin
|
|
{self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef");
|
|
container_.Set({self.}XmlChildStrRef);
|
|
end
|
|
return {self.}XmlChildStrRef and not {self.}XmlChildStrRef.Removed ? {self.}XmlChildStrRef : fallback_.StrRef;
|
|
end;
|
|
|
|
function Tx.WriteXmlChildStrRef(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildStrRef) then
|
|
{self.}RemoveChild({self.}XmlChildStrRef);
|
|
end
|
|
else if v is class(StrRef) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildStrRef := v;
|
|
container_.Set({self.}XmlChildStrRef);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: StrRef expects StrRef or nil";
|
|
end
|
|
end;
|
|
|
|
function Tx.ReadXmlChildRich(): Rich;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildRich) or {self.}XmlChildRich.Removed) then
|
|
begin
|
|
{self.}XmlChildRich := new Rich(self, {self.}Prefix, "rich");
|
|
container_.Set({self.}XmlChildRich);
|
|
end
|
|
return {self.}XmlChildRich and not {self.}XmlChildRich.Removed ? {self.}XmlChildRich : fallback_.Rich;
|
|
end;
|
|
|
|
function Tx.WriteXmlChildRich(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildRich) then
|
|
{self.}RemoveChild({self.}XmlChildRich);
|
|
end
|
|
else if v is class(Rich) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildRich := v;
|
|
container_.Set({self.}XmlChildRich);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Rich expects Rich or nil";
|
|
end
|
|
end;
|
|
|
|
function Rich.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "rich");
|
|
end;
|
|
|
|
function Rich.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Rich.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Rich.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))),
|
|
"a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))),
|
|
"a:p": array(2, makeweakref(thisFunction(AppendP))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Rich.Copy(_obj: Rich);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildBodyPr) then
|
|
{self.}BodyPr.Copy(_obj.XmlChildBodyPr);
|
|
if not ifnil(_obj.XmlChildLstStyle) then
|
|
ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Rich.Clone(): Rich;override;
|
|
begin
|
|
obj := new Rich(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:bodyPr": obj.BodyPr := element.Clone();
|
|
"a:lstStyle": obj.LstStyle := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Rich.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildBodyPr) then
|
|
{self.}XmlChildBodyPr.ConvertToPoint();
|
|
elems := {self.}Ps();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function Rich.ReadXmlChildLstStyle();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLstStyle) or {self.}XmlChildLstStyle.Removed) then
|
|
begin
|
|
{self.}XmlChildLstStyle := new OpenXmlSimpleType(self, "a", "lstStyle");
|
|
container_.Set({self.}XmlChildLstStyle);
|
|
end
|
|
return {self.}XmlChildLstStyle and not {self.}XmlChildLstStyle.Removed ? {self.}XmlChildLstStyle : fallback_.LstStyle;
|
|
end;
|
|
|
|
function Rich.WriteXmlChildLstStyle(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildLstStyle) then
|
|
{self.}RemoveChild({self.}XmlChildLstStyle);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildLstStyle := _value;
|
|
container_.Set({self.}XmlChildLstStyle);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LstStyle expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Rich.ReadXmlChildBodyPr(): BodyPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBodyPr) or {self.}XmlChildBodyPr.Removed) then
|
|
begin
|
|
{self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr");
|
|
container_.Set({self.}XmlChildBodyPr);
|
|
end
|
|
return {self.}XmlChildBodyPr and not {self.}XmlChildBodyPr.Removed ? {self.}XmlChildBodyPr : fallback_.BodyPr;
|
|
end;
|
|
|
|
function Rich.WriteXmlChildBodyPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBodyPr) then
|
|
{self.}RemoveChild({self.}XmlChildBodyPr);
|
|
end
|
|
else if v is class(BodyPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBodyPr := v;
|
|
container_.Set({self.}XmlChildBodyPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: BodyPr expects BodyPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Rich.ReadPs(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get("a:p", ind);
|
|
end;
|
|
|
|
function Rich.WritePs(_index: integer; _value: nil_OR_P);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadPs(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "p", ind, _value) then
|
|
raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Ps expects nil or P";
|
|
end
|
|
end;
|
|
|
|
function Rich.AddP(): P;
|
|
begin
|
|
obj := new P(self, "a", "p");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function Rich.AppendP(): P;
|
|
begin
|
|
obj := new P(self, "a", "p");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function BodyPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "bodyPr");
|
|
end;
|
|
|
|
function BodyPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function BodyPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function BodyPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"rot": makeweakref(thisFunction(WriteXmlAttrRot)),
|
|
"spcFirstLastPara": makeweakref(thisFunction(WriteXmlAttrSpcFirstLastPara)),
|
|
"vertOverflow": makeweakref(thisFunction(WriteXmlAttrVertOverflow)),
|
|
"horzOverflow": makeweakref(thisFunction(WriteXmlAttrHorzOverflow)),
|
|
"vert": makeweakref(thisFunction(WriteXmlAttrVert)),
|
|
"wrap": makeweakref(thisFunction(WriteXmlAttrWrap)),
|
|
"lIns": makeweakref(thisFunction(WriteXmlAttrLIns)),
|
|
"TIns": makeweakref(thisFunction(WriteXmlAttrTIns)),
|
|
"rIns": makeweakref(thisFunction(WriteXmlAttrRIns)),
|
|
"bIns": makeweakref(thisFunction(WriteXmlAttrBIns)),
|
|
"numCol": makeweakref(thisFunction(WriteXmlAttrNumCol)),
|
|
"spcCol": makeweakref(thisFunction(WriteXmlAttrSpcCol)),
|
|
"rtlCol": makeweakref(thisFunction(WriteXmlAttrRtlCol)),
|
|
"fromWordArt": makeweakref(thisFunction(WriteXmlAttrFromWordArt)),
|
|
"anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)),
|
|
"anchorCtr": makeweakref(thisFunction(WriteXmlAttrAnchorCtr)),
|
|
"forceAA": makeweakref(thisFunction(WriteXmlAttrForceAA)),
|
|
"compatLnSpc": makeweakref(thisFunction(WriteXmlAttrCompatLnSpc)),
|
|
);
|
|
sorted_child_ := array(
|
|
"a:prstTxWrap": array(0, makeweakref(thisFunction(ReadXmlChildPrstTxWrap))),
|
|
"a:noAutofit": array(1, makeweakref(thisFunction(ReadXmlChildNoAutofit))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function BodyPr.Copy(_obj: BodyPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Rot) then
|
|
{self.}Rot := _obj.Rot;
|
|
if not ifnil(_obj.SpcFirstLastPara) then
|
|
{self.}SpcFirstLastPara := _obj.SpcFirstLastPara;
|
|
if not ifnil(_obj.VertOverflow) then
|
|
{self.}VertOverflow := _obj.VertOverflow;
|
|
if not ifnil(_obj.HorzOverflow) then
|
|
{self.}HorzOverflow := _obj.HorzOverflow;
|
|
if not ifnil(_obj.Vert) then
|
|
{self.}Vert := _obj.Vert;
|
|
if not ifnil(_obj.Wrap) then
|
|
{self.}Wrap := _obj.Wrap;
|
|
if not ifnil(_obj.LIns) then
|
|
{self.}LIns := _obj.LIns;
|
|
if not ifnil(_obj.TIns) then
|
|
{self.}TIns := _obj.TIns;
|
|
if not ifnil(_obj.RIns) then
|
|
{self.}RIns := _obj.RIns;
|
|
if not ifnil(_obj.BIns) then
|
|
{self.}BIns := _obj.BIns;
|
|
if not ifnil(_obj.NumCol) then
|
|
{self.}NumCol := _obj.NumCol;
|
|
if not ifnil(_obj.SpcCol) then
|
|
{self.}SpcCol := _obj.SpcCol;
|
|
if not ifnil(_obj.RtlCol) then
|
|
{self.}RtlCol := _obj.RtlCol;
|
|
if not ifnil(_obj.FromWordArt) then
|
|
{self.}FromWordArt := _obj.FromWordArt;
|
|
if not ifnil(_obj.Anchor) then
|
|
{self.}Anchor := _obj.Anchor;
|
|
if not ifnil(_obj.AnchorCtr) then
|
|
{self.}AnchorCtr := _obj.AnchorCtr;
|
|
if not ifnil(_obj.ForceAA) then
|
|
{self.}ForceAA := _obj.ForceAA;
|
|
if not ifnil(_obj.CompatLnSpc) then
|
|
{self.}CompatLnSpc := _obj.CompatLnSpc;
|
|
if not ifnil(_obj.XmlChildPrstTxWrap) then
|
|
{self.}PrstTxWrap.Copy(_obj.XmlChildPrstTxWrap);
|
|
if not ifnil(_obj.XmlChildNoAutofit) then
|
|
ifnil({self.}XmlChildNoAutofit) ? {self.}NoAutofit.Copy(_obj.XmlChildNoAutofit) : {self.}XmlChildNoAutofit.Copy(_obj.XmlChildNoAutofit);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function BodyPr.Clone(): BodyPr;override;
|
|
begin
|
|
obj := new BodyPr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Rot) then
|
|
obj.Rot := {self.}Rot;
|
|
if not ifnil({self.}SpcFirstLastPara) then
|
|
obj.SpcFirstLastPara := {self.}SpcFirstLastPara;
|
|
if not ifnil({self.}VertOverflow) then
|
|
obj.VertOverflow := {self.}VertOverflow;
|
|
if not ifnil({self.}HorzOverflow) then
|
|
obj.HorzOverflow := {self.}HorzOverflow;
|
|
if not ifnil({self.}Vert) then
|
|
obj.Vert := {self.}Vert;
|
|
if not ifnil({self.}Wrap) then
|
|
obj.Wrap := {self.}Wrap;
|
|
if not ifnil({self.}LIns) then
|
|
obj.LIns := {self.}LIns;
|
|
if not ifnil({self.}TIns) then
|
|
obj.TIns := {self.}TIns;
|
|
if not ifnil({self.}RIns) then
|
|
obj.RIns := {self.}RIns;
|
|
if not ifnil({self.}BIns) then
|
|
obj.BIns := {self.}BIns;
|
|
if not ifnil({self.}NumCol) then
|
|
obj.NumCol := {self.}NumCol;
|
|
if not ifnil({self.}SpcCol) then
|
|
obj.SpcCol := {self.}SpcCol;
|
|
if not ifnil({self.}RtlCol) then
|
|
obj.RtlCol := {self.}RtlCol;
|
|
if not ifnil({self.}FromWordArt) then
|
|
obj.FromWordArt := {self.}FromWordArt;
|
|
if not ifnil({self.}Anchor) then
|
|
obj.Anchor := {self.}Anchor;
|
|
if not ifnil({self.}AnchorCtr) then
|
|
obj.AnchorCtr := {self.}AnchorCtr;
|
|
if not ifnil({self.}ForceAA) then
|
|
obj.ForceAA := {self.}ForceAA;
|
|
if not ifnil({self.}CompatLnSpc) then
|
|
obj.CompatLnSpc := {self.}CompatLnSpc;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:prstTxWrap": obj.PrstTxWrap := element.Clone();
|
|
"a:noAutofit": obj.NoAutofit := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function BodyPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlAttrLIns) then
|
|
{self.}LIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrLIns.Value);
|
|
if not ifnil({self.}XmlAttrTIns) then
|
|
{self.}TIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrTIns.Value);
|
|
if not ifnil({self.}XmlAttrRIns) then
|
|
{self.}RIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrRIns.Value);
|
|
if not ifnil({self.}XmlAttrBIns) then
|
|
{self.}BIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrBIns.Value);
|
|
if not ifnil({self.}XmlChildPrstTxWrap) then
|
|
{self.}XmlChildPrstTxWrap.ConvertToPoint();
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrRot();
|
|
begin
|
|
return ifnil({self.}XmlAttrRot.Value) ? fallback_.XmlAttrRot.Value : {self.}XmlAttrRot.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrRot(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRot) then
|
|
begin
|
|
{self.}XmlAttrRot := new OpenXmlAttribute("", "rot", nil);
|
|
attributes_["rot"] := {self.}XmlAttrRot;
|
|
end
|
|
{self.}XmlAttrRot.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrSpcFirstLastPara();
|
|
begin
|
|
return ifnil({self.}XmlAttrSpcFirstLastPara.Value) ? fallback_.XmlAttrSpcFirstLastPara.Value : {self.}XmlAttrSpcFirstLastPara.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrSpcFirstLastPara(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrSpcFirstLastPara) then
|
|
begin
|
|
{self.}XmlAttrSpcFirstLastPara := new OpenXmlAttribute("", "spcFirstLastPara", nil);
|
|
attributes_["spcFirstLastPara"] := {self.}XmlAttrSpcFirstLastPara;
|
|
end
|
|
{self.}XmlAttrSpcFirstLastPara.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrVertOverflow();
|
|
begin
|
|
return ifnil({self.}XmlAttrVertOverflow.Value) ? fallback_.XmlAttrVertOverflow.Value : {self.}XmlAttrVertOverflow.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrVertOverflow(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrVertOverflow) then
|
|
begin
|
|
{self.}XmlAttrVertOverflow := new OpenXmlAttribute("", "vertOverflow", nil);
|
|
attributes_["vertOverflow"] := {self.}XmlAttrVertOverflow;
|
|
end
|
|
{self.}XmlAttrVertOverflow.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrHorzOverflow();
|
|
begin
|
|
return ifnil({self.}XmlAttrHorzOverflow.Value) ? fallback_.XmlAttrHorzOverflow.Value : {self.}XmlAttrHorzOverflow.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrHorzOverflow(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrHorzOverflow) then
|
|
begin
|
|
{self.}XmlAttrHorzOverflow := new OpenXmlAttribute("", "horzOverflow", nil);
|
|
attributes_["horzOverflow"] := {self.}XmlAttrHorzOverflow;
|
|
end
|
|
{self.}XmlAttrHorzOverflow.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrVert();
|
|
begin
|
|
return ifnil({self.}XmlAttrVert.Value) ? fallback_.XmlAttrVert.Value : {self.}XmlAttrVert.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrVert(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrVert) then
|
|
begin
|
|
{self.}XmlAttrVert := new OpenXmlAttribute("", "vert", nil);
|
|
attributes_["vert"] := {self.}XmlAttrVert;
|
|
end
|
|
{self.}XmlAttrVert.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrWrap();
|
|
begin
|
|
return ifnil({self.}XmlAttrWrap.Value) ? fallback_.XmlAttrWrap.Value : {self.}XmlAttrWrap.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrWrap(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrWrap) then
|
|
begin
|
|
{self.}XmlAttrWrap := new OpenXmlAttribute("", "wrap", nil);
|
|
attributes_["wrap"] := {self.}XmlAttrWrap;
|
|
end
|
|
{self.}XmlAttrWrap.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrLIns();
|
|
begin
|
|
return ifnil({self.}XmlAttrLIns.Value) ? fallback_.XmlAttrLIns.Value : {self.}XmlAttrLIns.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrLIns(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrLIns) then
|
|
begin
|
|
{self.}XmlAttrLIns := new OpenXmlAttribute("", "lIns", nil);
|
|
attributes_["lIns"] := {self.}XmlAttrLIns;
|
|
end
|
|
{self.}XmlAttrLIns.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrTIns();
|
|
begin
|
|
return ifnil({self.}XmlAttrTIns.Value) ? fallback_.XmlAttrTIns.Value : {self.}XmlAttrTIns.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrTIns(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrTIns) then
|
|
begin
|
|
{self.}XmlAttrTIns := new OpenXmlAttribute("", "TIns", nil);
|
|
attributes_["TIns"] := {self.}XmlAttrTIns;
|
|
end
|
|
{self.}XmlAttrTIns.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrRIns();
|
|
begin
|
|
return ifnil({self.}XmlAttrRIns.Value) ? fallback_.XmlAttrRIns.Value : {self.}XmlAttrRIns.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrRIns(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRIns) then
|
|
begin
|
|
{self.}XmlAttrRIns := new OpenXmlAttribute("", "rIns", nil);
|
|
attributes_["rIns"] := {self.}XmlAttrRIns;
|
|
end
|
|
{self.}XmlAttrRIns.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrBIns();
|
|
begin
|
|
return ifnil({self.}XmlAttrBIns.Value) ? fallback_.XmlAttrBIns.Value : {self.}XmlAttrBIns.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrBIns(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrBIns) then
|
|
begin
|
|
{self.}XmlAttrBIns := new OpenXmlAttribute("", "bIns", nil);
|
|
attributes_["bIns"] := {self.}XmlAttrBIns;
|
|
end
|
|
{self.}XmlAttrBIns.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrNumCol();
|
|
begin
|
|
return ifnil({self.}XmlAttrNumCol.Value) ? fallback_.XmlAttrNumCol.Value : {self.}XmlAttrNumCol.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrNumCol(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrNumCol) then
|
|
begin
|
|
{self.}XmlAttrNumCol := new OpenXmlAttribute("", "numCol", nil);
|
|
attributes_["numCol"] := {self.}XmlAttrNumCol;
|
|
end
|
|
{self.}XmlAttrNumCol.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrSpcCol();
|
|
begin
|
|
return ifnil({self.}XmlAttrSpcCol.Value) ? fallback_.XmlAttrSpcCol.Value : {self.}XmlAttrSpcCol.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrSpcCol(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrSpcCol) then
|
|
begin
|
|
{self.}XmlAttrSpcCol := new OpenXmlAttribute("", "spcCol", nil);
|
|
attributes_["spcCol"] := {self.}XmlAttrSpcCol;
|
|
end
|
|
{self.}XmlAttrSpcCol.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrRtlCol();
|
|
begin
|
|
return ifnil({self.}XmlAttrRtlCol.Value) ? fallback_.XmlAttrRtlCol.Value : {self.}XmlAttrRtlCol.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrRtlCol(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRtlCol) then
|
|
begin
|
|
{self.}XmlAttrRtlCol := new OpenXmlAttribute("", "rtlCol", nil);
|
|
attributes_["rtlCol"] := {self.}XmlAttrRtlCol;
|
|
end
|
|
{self.}XmlAttrRtlCol.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrFromWordArt();
|
|
begin
|
|
return ifnil({self.}XmlAttrFromWordArt.Value) ? fallback_.XmlAttrFromWordArt.Value : {self.}XmlAttrFromWordArt.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrFromWordArt(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrFromWordArt) then
|
|
begin
|
|
{self.}XmlAttrFromWordArt := new OpenXmlAttribute("", "fromWordArt", nil);
|
|
attributes_["fromWordArt"] := {self.}XmlAttrFromWordArt;
|
|
end
|
|
{self.}XmlAttrFromWordArt.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrAnchor();
|
|
begin
|
|
return ifnil({self.}XmlAttrAnchor.Value) ? fallback_.XmlAttrAnchor.Value : {self.}XmlAttrAnchor.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrAnchor(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAnchor) then
|
|
begin
|
|
{self.}XmlAttrAnchor := new OpenXmlAttribute("", "anchor", nil);
|
|
attributes_["anchor"] := {self.}XmlAttrAnchor;
|
|
end
|
|
{self.}XmlAttrAnchor.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrAnchorCtr();
|
|
begin
|
|
return ifnil({self.}XmlAttrAnchorCtr.Value) ? fallback_.XmlAttrAnchorCtr.Value : {self.}XmlAttrAnchorCtr.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrAnchorCtr(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAnchorCtr) then
|
|
begin
|
|
{self.}XmlAttrAnchorCtr := new OpenXmlAttribute("", "anchorCtr", nil);
|
|
attributes_["anchorCtr"] := {self.}XmlAttrAnchorCtr;
|
|
end
|
|
{self.}XmlAttrAnchorCtr.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrForceAA();
|
|
begin
|
|
return ifnil({self.}XmlAttrForceAA.Value) ? fallback_.XmlAttrForceAA.Value : {self.}XmlAttrForceAA.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrForceAA(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrForceAA) then
|
|
begin
|
|
{self.}XmlAttrForceAA := new OpenXmlAttribute("", "forceAA", nil);
|
|
attributes_["forceAA"] := {self.}XmlAttrForceAA;
|
|
end
|
|
{self.}XmlAttrForceAA.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlAttrCompatLnSpc();
|
|
begin
|
|
return ifnil({self.}XmlAttrCompatLnSpc.Value) ? fallback_.XmlAttrCompatLnSpc.Value : {self.}XmlAttrCompatLnSpc.Value;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlAttrCompatLnSpc(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrCompatLnSpc) then
|
|
begin
|
|
{self.}XmlAttrCompatLnSpc := new OpenXmlAttribute("", "compatLnSpc", nil);
|
|
attributes_["compatLnSpc"] := {self.}XmlAttrCompatLnSpc;
|
|
end
|
|
{self.}XmlAttrCompatLnSpc.Value := _value;
|
|
end;
|
|
|
|
function BodyPr.ReadXmlChildNoAutofit();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNoAutofit) or {self.}XmlChildNoAutofit.Removed) then
|
|
begin
|
|
{self.}XmlChildNoAutofit := new OpenXmlSimpleType(self, "a", "noAutofit");
|
|
container_.Set({self.}XmlChildNoAutofit);
|
|
end
|
|
return {self.}XmlChildNoAutofit and not {self.}XmlChildNoAutofit.Removed ? {self.}XmlChildNoAutofit : fallback_.NoAutofit;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlChildNoAutofit(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildNoAutofit) then
|
|
{self.}RemoveChild({self.}XmlChildNoAutofit);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildNoAutofit := _value;
|
|
container_.Set({self.}XmlChildNoAutofit);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NoAutofit expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function BodyPr.ReadXmlChildPrstTxWrap(): PrstTxWrap;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPrstTxWrap) or {self.}XmlChildPrstTxWrap.Removed) then
|
|
begin
|
|
{self.}XmlChildPrstTxWrap := new PrstTxWrap(self, "a", "prstTxWrap");
|
|
container_.Set({self.}XmlChildPrstTxWrap);
|
|
end
|
|
return {self.}XmlChildPrstTxWrap and not {self.}XmlChildPrstTxWrap.Removed ? {self.}XmlChildPrstTxWrap : fallback_.PrstTxWrap;
|
|
end;
|
|
|
|
function BodyPr.WriteXmlChildPrstTxWrap(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPrstTxWrap) then
|
|
{self.}RemoveChild({self.}XmlChildPrstTxWrap);
|
|
end
|
|
else if v is class(PrstTxWrap) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPrstTxWrap := v;
|
|
container_.Set({self.}XmlChildPrstTxWrap);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PrstTxWrap expects PrstTxWrap or nil";
|
|
end
|
|
end;
|
|
|
|
function PrstTxWrap.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "prstTxWrap");
|
|
end;
|
|
|
|
function PrstTxWrap.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PrstTxWrap.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PrstTxWrap.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"prst": makeweakref(thisFunction(WriteXmlAttrPrst)),
|
|
);
|
|
sorted_child_ := array(
|
|
"a:avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PrstTxWrap.Copy(_obj: PrstTxWrap);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Prst) then
|
|
{self.}Prst := _obj.Prst;
|
|
if not ifnil(_obj.XmlChildAvLst) then
|
|
ifnil({self.}XmlChildAvLst) ? {self.}AvLst.Copy(_obj.XmlChildAvLst) : {self.}XmlChildAvLst.Copy(_obj.XmlChildAvLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PrstTxWrap.Clone(): PrstTxWrap;override;
|
|
begin
|
|
obj := new PrstTxWrap(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Prst) then
|
|
obj.Prst := {self.}Prst;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:avLst": obj.AvLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function PrstTxWrap.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function PrstTxWrap.ReadXmlAttrPrst();
|
|
begin
|
|
return ifnil({self.}XmlAttrPrst.Value) ? fallback_.XmlAttrPrst.Value : {self.}XmlAttrPrst.Value;
|
|
end;
|
|
|
|
function PrstTxWrap.WriteXmlAttrPrst(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrPrst) then
|
|
begin
|
|
{self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil);
|
|
attributes_["prst"] := {self.}XmlAttrPrst;
|
|
end
|
|
{self.}XmlAttrPrst.Value := _value;
|
|
end;
|
|
|
|
function PrstTxWrap.ReadXmlChildAvLst();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAvLst) or {self.}XmlChildAvLst.Removed) then
|
|
begin
|
|
{self.}XmlChildAvLst := new OpenXmlSimpleType(self, "a", "avLst");
|
|
container_.Set({self.}XmlChildAvLst);
|
|
end
|
|
return {self.}XmlChildAvLst and not {self.}XmlChildAvLst.Removed ? {self.}XmlChildAvLst : fallback_.AvLst;
|
|
end;
|
|
|
|
function PrstTxWrap.WriteXmlChildAvLst(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildAvLst) then
|
|
{self.}RemoveChild({self.}XmlChildAvLst);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildAvLst := _value;
|
|
container_.Set({self.}XmlChildAvLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AvLst expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function P.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "p");
|
|
end;
|
|
|
|
function P.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function P.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function P.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))),
|
|
pre + "endParaRPr": array(1, makeweakref(thisFunction(ReadXmlChildEndParaRPr))),
|
|
pre + "r": array(2, makeweakref(thisFunction(AppendR))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function P.Copy(_obj: P);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildPPr) then
|
|
{self.}PPr.Copy(_obj.XmlChildPPr);
|
|
if not ifnil(_obj.XmlChildEndParaRPr) then
|
|
{self.}EndParaRPr.Copy(_obj.XmlChildEndParaRPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function P.Clone(): P;override;
|
|
begin
|
|
obj := new P(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "pPr": obj.PPr := element.Clone();
|
|
pre + "endParaRPr": obj.EndParaRPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function P.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPPr) then
|
|
{self.}XmlChildPPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEndParaRPr) then
|
|
{self.}XmlChildEndParaRPr.ConvertToPoint();
|
|
elems := {self.}Rs();
|
|
for _,elem in elems do
|
|
elem.ConvertToPoint();
|
|
end;
|
|
|
|
function P.ReadXmlChildPPr(): PPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPPr) or {self.}XmlChildPPr.Removed) then
|
|
begin
|
|
{self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr");
|
|
container_.Set({self.}XmlChildPPr);
|
|
end
|
|
return {self.}XmlChildPPr and not {self.}XmlChildPPr.Removed ? {self.}XmlChildPPr : fallback_.PPr;
|
|
end;
|
|
|
|
function P.WriteXmlChildPPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPPr) then
|
|
{self.}RemoveChild({self.}XmlChildPPr);
|
|
end
|
|
else if v is class(PPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPPr := v;
|
|
container_.Set({self.}XmlChildPPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PPr expects PPr or nil";
|
|
end
|
|
end;
|
|
|
|
function P.ReadXmlChildEndParaRPr(): RPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEndParaRPr) or {self.}XmlChildEndParaRPr.Removed) then
|
|
begin
|
|
{self.}XmlChildEndParaRPr := new RPr(self, {self.}Prefix, "endParaRPr");
|
|
container_.Set({self.}XmlChildEndParaRPr);
|
|
end
|
|
return {self.}XmlChildEndParaRPr and not {self.}XmlChildEndParaRPr.Removed ? {self.}XmlChildEndParaRPr : fallback_.EndParaRPr;
|
|
end;
|
|
|
|
function P.WriteXmlChildEndParaRPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEndParaRPr) then
|
|
{self.}RemoveChild({self.}XmlChildEndParaRPr);
|
|
end
|
|
else if v is class(RPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEndParaRPr := v;
|
|
container_.Set({self.}XmlChildEndParaRPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EndParaRPr expects RPr or nil";
|
|
end
|
|
end;
|
|
|
|
function P.ReadRs(_index: integer);
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
return container_.Get(pre + "r", ind);
|
|
end;
|
|
|
|
function P.WriteRs(_index: integer; _value: nil_OR_R);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
obj := {self.}ReadRs(_index);
|
|
{self.}RemoveChild(obj);
|
|
end
|
|
else if ifInt(_index) or ifInt64(_index) then
|
|
begin
|
|
ind := ifnil(_index) ? -2 : _index;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
if not container_.Set(pre + "r", ind, _value) then
|
|
raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Rs expects nil or R";
|
|
end
|
|
end;
|
|
|
|
function P.AddR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
obj.Enable := true;
|
|
container_.Insert(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function P.AppendR(): R;
|
|
begin
|
|
obj := new R(self, {self.}Prefix, "r");
|
|
obj.Enable := true;
|
|
container_.Append(obj);
|
|
return obj;
|
|
end;
|
|
|
|
function RPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "rPr");
|
|
end;
|
|
|
|
function RPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function RPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function RPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"lang": makeweakref(thisFunction(WriteXmlAttrLang)),
|
|
"altLang": makeweakref(thisFunction(WriteXmlAttrAltLang)),
|
|
"b": makeweakref(thisFunction(WriteXmlAttrB)),
|
|
"baseline": makeweakref(thisFunction(WriteXmlAttrBaseline)),
|
|
"i": makeweakref(thisFunction(WriteXmlAttrI)),
|
|
"kern": makeweakref(thisFunction(WriteXmlAttrKern)),
|
|
"spc": makeweakref(thisFunction(WriteXmlAttrSpc)),
|
|
"strike": makeweakref(thisFunction(WriteXmlAttrStrike)),
|
|
"sz": makeweakref(thisFunction(WriteXmlAttrSz)),
|
|
"u": makeweakref(thisFunction(WriteXmlAttrU)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "solidFill": array(0, makeweakref(thisFunction(ReadXmlChildSolidFill))),
|
|
pre + "latin": array(1, makeweakref(thisFunction(ReadXmlChildLatin))),
|
|
pre + "ea": array(2, makeweakref(thisFunction(ReadXmlChildEa))),
|
|
pre + "cs": array(3, makeweakref(thisFunction(ReadXmlChildCs))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function RPr.Copy(_obj: RPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Lang) then
|
|
{self.}Lang := _obj.Lang;
|
|
if not ifnil(_obj.AltLang) then
|
|
{self.}AltLang := _obj.AltLang;
|
|
if not ifnil(_obj.B) then
|
|
{self.}B := _obj.B;
|
|
if not ifnil(_obj.Baseline) then
|
|
{self.}Baseline := _obj.Baseline;
|
|
if not ifnil(_obj.I) then
|
|
{self.}I := _obj.I;
|
|
if not ifnil(_obj.Kern) then
|
|
{self.}Kern := _obj.Kern;
|
|
if not ifnil(_obj.Spc) then
|
|
{self.}Spc := _obj.Spc;
|
|
if not ifnil(_obj.Strike) then
|
|
{self.}Strike := _obj.Strike;
|
|
if not ifnil(_obj.Sz) then
|
|
{self.}Sz := _obj.Sz;
|
|
if not ifnil(_obj.U) then
|
|
{self.}U := _obj.U;
|
|
if not ifnil(_obj.XmlChildSolidFill) then
|
|
{self.}SolidFill.Copy(_obj.XmlChildSolidFill);
|
|
if not ifnil(_obj.XmlChildLatin) then
|
|
{self.}Latin.Copy(_obj.XmlChildLatin);
|
|
if not ifnil(_obj.XmlChildEa) then
|
|
{self.}Ea.Copy(_obj.XmlChildEa);
|
|
if not ifnil(_obj.XmlChildCs) then
|
|
{self.}Cs.Copy(_obj.XmlChildCs);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function RPr.Clone(): RPr;override;
|
|
begin
|
|
obj := new RPr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Lang) then
|
|
obj.Lang := {self.}Lang;
|
|
if not ifnil({self.}AltLang) then
|
|
obj.AltLang := {self.}AltLang;
|
|
if not ifnil({self.}B) then
|
|
obj.B := {self.}B;
|
|
if not ifnil({self.}Baseline) then
|
|
obj.Baseline := {self.}Baseline;
|
|
if not ifnil({self.}I) then
|
|
obj.I := {self.}I;
|
|
if not ifnil({self.}Kern) then
|
|
obj.Kern := {self.}Kern;
|
|
if not ifnil({self.}Spc) then
|
|
obj.Spc := {self.}Spc;
|
|
if not ifnil({self.}Strike) then
|
|
obj.Strike := {self.}Strike;
|
|
if not ifnil({self.}Sz) then
|
|
obj.Sz := {self.}Sz;
|
|
if not ifnil({self.}U) then
|
|
obj.U := {self.}U;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "solidFill": obj.SolidFill := element.Clone();
|
|
pre + "latin": obj.Latin := element.Clone();
|
|
pre + "ea": obj.Ea := element.Clone();
|
|
pre + "cs": obj.Cs := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function RPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSolidFill) then
|
|
{self.}XmlChildSolidFill.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLatin) then
|
|
{self.}XmlChildLatin.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEa) then
|
|
{self.}XmlChildEa.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCs) then
|
|
{self.}XmlChildCs.ConvertToPoint();
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrLang();
|
|
begin
|
|
return ifnil({self.}XmlAttrLang.Value) ? fallback_.XmlAttrLang.Value : {self.}XmlAttrLang.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrLang(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrLang) then
|
|
begin
|
|
{self.}XmlAttrLang := new OpenXmlAttribute("", "lang", nil);
|
|
attributes_["lang"] := {self.}XmlAttrLang;
|
|
end
|
|
{self.}XmlAttrLang.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrAltLang();
|
|
begin
|
|
return ifnil({self.}XmlAttrAltLang.Value) ? fallback_.XmlAttrAltLang.Value : {self.}XmlAttrAltLang.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrAltLang(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAltLang) then
|
|
begin
|
|
{self.}XmlAttrAltLang := new OpenXmlAttribute("", "altLang", nil);
|
|
attributes_["altLang"] := {self.}XmlAttrAltLang;
|
|
end
|
|
{self.}XmlAttrAltLang.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrB();
|
|
begin
|
|
return ifnil({self.}XmlAttrB.Value) ? fallback_.XmlAttrB.Value : {self.}XmlAttrB.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrB(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrB) then
|
|
begin
|
|
{self.}XmlAttrB := new OpenXmlAttribute("", "b", nil);
|
|
attributes_["b"] := {self.}XmlAttrB;
|
|
end
|
|
{self.}XmlAttrB.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrBaseline();
|
|
begin
|
|
return ifnil({self.}XmlAttrBaseline.Value) ? fallback_.XmlAttrBaseline.Value : {self.}XmlAttrBaseline.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrBaseline(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrBaseline) then
|
|
begin
|
|
{self.}XmlAttrBaseline := new OpenXmlAttribute("", "baseline", nil);
|
|
attributes_["baseline"] := {self.}XmlAttrBaseline;
|
|
end
|
|
{self.}XmlAttrBaseline.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrI();
|
|
begin
|
|
return ifnil({self.}XmlAttrI.Value) ? fallback_.XmlAttrI.Value : {self.}XmlAttrI.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrI(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrI) then
|
|
begin
|
|
{self.}XmlAttrI := new OpenXmlAttribute("", "i", nil);
|
|
attributes_["i"] := {self.}XmlAttrI;
|
|
end
|
|
{self.}XmlAttrI.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrKern();
|
|
begin
|
|
return ifnil({self.}XmlAttrKern.Value) ? fallback_.XmlAttrKern.Value : {self.}XmlAttrKern.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrKern(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrKern) then
|
|
begin
|
|
{self.}XmlAttrKern := new OpenXmlAttribute("", "kern", nil);
|
|
attributes_["kern"] := {self.}XmlAttrKern;
|
|
end
|
|
{self.}XmlAttrKern.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrSpc();
|
|
begin
|
|
return ifnil({self.}XmlAttrSpc.Value) ? fallback_.XmlAttrSpc.Value : {self.}XmlAttrSpc.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrSpc(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrSpc) then
|
|
begin
|
|
{self.}XmlAttrSpc := new OpenXmlAttribute("", "spc", nil);
|
|
attributes_["spc"] := {self.}XmlAttrSpc;
|
|
end
|
|
{self.}XmlAttrSpc.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrStrike();
|
|
begin
|
|
return ifnil({self.}XmlAttrStrike.Value) ? fallback_.XmlAttrStrike.Value : {self.}XmlAttrStrike.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrStrike(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrStrike) then
|
|
begin
|
|
{self.}XmlAttrStrike := new OpenXmlAttribute("", "strike", nil);
|
|
attributes_["strike"] := {self.}XmlAttrStrike;
|
|
end
|
|
{self.}XmlAttrStrike.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrSz();
|
|
begin
|
|
return ifnil({self.}XmlAttrSz.Value) ? fallback_.XmlAttrSz.Value : {self.}XmlAttrSz.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrSz(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrSz) then
|
|
begin
|
|
{self.}XmlAttrSz := new OpenXmlAttribute("", "sz", nil);
|
|
attributes_["sz"] := {self.}XmlAttrSz;
|
|
end
|
|
{self.}XmlAttrSz.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlAttrU();
|
|
begin
|
|
return ifnil({self.}XmlAttrU.Value) ? fallback_.XmlAttrU.Value : {self.}XmlAttrU.Value;
|
|
end;
|
|
|
|
function RPr.WriteXmlAttrU(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrU) then
|
|
begin
|
|
{self.}XmlAttrU := new OpenXmlAttribute("", "u", nil);
|
|
attributes_["u"] := {self.}XmlAttrU;
|
|
end
|
|
{self.}XmlAttrU.Value := _value;
|
|
end;
|
|
|
|
function RPr.ReadXmlChildSolidFill(): SolidFill;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSolidFill) or {self.}XmlChildSolidFill.Removed) then
|
|
begin
|
|
{self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill");
|
|
container_.Set({self.}XmlChildSolidFill);
|
|
end
|
|
return {self.}XmlChildSolidFill and not {self.}XmlChildSolidFill.Removed ? {self.}XmlChildSolidFill : fallback_.SolidFill;
|
|
end;
|
|
|
|
function RPr.WriteXmlChildSolidFill(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSolidFill) then
|
|
{self.}RemoveChild({self.}XmlChildSolidFill);
|
|
end
|
|
else if v is class(SolidFill) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSolidFill := v;
|
|
container_.Set({self.}XmlChildSolidFill);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SolidFill expects SolidFill or nil";
|
|
end
|
|
end;
|
|
|
|
function RPr.ReadXmlChildLatin(): Latin;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLatin) or {self.}XmlChildLatin.Removed) then
|
|
begin
|
|
{self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin");
|
|
container_.Set({self.}XmlChildLatin);
|
|
end
|
|
return {self.}XmlChildLatin and not {self.}XmlChildLatin.Removed ? {self.}XmlChildLatin : fallback_.Latin;
|
|
end;
|
|
|
|
function RPr.WriteXmlChildLatin(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLatin) then
|
|
{self.}RemoveChild({self.}XmlChildLatin);
|
|
end
|
|
else if v is class(Latin) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLatin := v;
|
|
container_.Set({self.}XmlChildLatin);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Latin expects Latin or nil";
|
|
end
|
|
end;
|
|
|
|
function RPr.ReadXmlChildEa(): Latin;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEa) or {self.}XmlChildEa.Removed) then
|
|
begin
|
|
{self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea");
|
|
container_.Set({self.}XmlChildEa);
|
|
end
|
|
return {self.}XmlChildEa and not {self.}XmlChildEa.Removed ? {self.}XmlChildEa : fallback_.Ea;
|
|
end;
|
|
|
|
function RPr.WriteXmlChildEa(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEa) then
|
|
{self.}RemoveChild({self.}XmlChildEa);
|
|
end
|
|
else if v is class(Latin) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEa := v;
|
|
container_.Set({self.}XmlChildEa);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Ea expects Latin or nil";
|
|
end
|
|
end;
|
|
|
|
function RPr.ReadXmlChildCs(): Latin;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCs) or {self.}XmlChildCs.Removed) then
|
|
begin
|
|
{self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs");
|
|
container_.Set({self.}XmlChildCs);
|
|
end
|
|
return {self.}XmlChildCs and not {self.}XmlChildCs.Removed ? {self.}XmlChildCs : fallback_.Cs;
|
|
end;
|
|
|
|
function RPr.WriteXmlChildCs(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCs) then
|
|
{self.}RemoveChild({self.}XmlChildCs);
|
|
end
|
|
else if v is class(Latin) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCs := v;
|
|
container_.Set({self.}XmlChildCs);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Cs expects Latin or nil";
|
|
end
|
|
end;
|
|
|
|
function PPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "pPr");
|
|
end;
|
|
|
|
function PPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "defRPr": array(0, makeweakref(thisFunction(ReadXmlChildDefRPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PPr.Copy(_obj: PPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildDefRPr) then
|
|
{self.}DefRPr.Copy(_obj.XmlChildDefRPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PPr.Clone(): PPr;override;
|
|
begin
|
|
obj := new PPr(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "defRPr": obj.DefRPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function PPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildDefRPr) then
|
|
{self.}XmlChildDefRPr.ConvertToPoint();
|
|
end;
|
|
|
|
function PPr.ReadXmlChildDefRPr(): RPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDefRPr) or {self.}XmlChildDefRPr.Removed) then
|
|
begin
|
|
{self.}XmlChildDefRPr := new RPr(self, {self.}Prefix, "defRPr");
|
|
container_.Set({self.}XmlChildDefRPr);
|
|
end
|
|
return {self.}XmlChildDefRPr and not {self.}XmlChildDefRPr.Removed ? {self.}XmlChildDefRPr : fallback_.DefRPr;
|
|
end;
|
|
|
|
function PPr.WriteXmlChildDefRPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDefRPr) then
|
|
{self.}RemoveChild({self.}XmlChildDefRPr);
|
|
end
|
|
else if v is class(RPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDefRPr := v;
|
|
container_.Set({self.}XmlChildDefRPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: DefRPr expects RPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Latin.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "latin");
|
|
end;
|
|
|
|
function Latin.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Latin.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Latin.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Latin.Copy(_obj: Latin);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Typeface) then
|
|
{self.}Typeface := _obj.Typeface;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Latin.Clone(): Latin;override;
|
|
begin
|
|
obj := new Latin(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Typeface) then
|
|
obj.Typeface := {self.}Typeface;
|
|
return obj;
|
|
end;
|
|
|
|
function Latin.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Latin.ReadXmlAttrTypeface();
|
|
begin
|
|
return ifnil({self.}XmlAttrTypeface.Value) ? fallback_.XmlAttrTypeface.Value : {self.}XmlAttrTypeface.Value;
|
|
end;
|
|
|
|
function Latin.WriteXmlAttrTypeface(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrTypeface) then
|
|
begin
|
|
{self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil);
|
|
attributes_["typeface"] := {self.}XmlAttrTypeface;
|
|
end
|
|
{self.}XmlAttrTypeface.Value := _value;
|
|
end;
|
|
|
|
function R.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "r");
|
|
end;
|
|
|
|
function R.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function R.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function R.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))),
|
|
pre + "t": array(1, makeweakref(thisFunction(ReadXmlChildT))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function R.Copy(_obj: R);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildRPr) then
|
|
{self.}RPr.Copy(_obj.XmlChildRPr);
|
|
if not ifnil(_obj.XmlChildT) then
|
|
{self.}T.Copy(_obj.XmlChildT);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function R.Clone(): R;override;
|
|
begin
|
|
obj := new R(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "rPr": obj.RPr := element.Clone();
|
|
pre + "t": obj.T := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function R.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildRPr) then
|
|
{self.}XmlChildRPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildT) then
|
|
{self.}XmlChildT.ConvertToPoint();
|
|
end;
|
|
|
|
function R.ReadXmlChildRPr(): RPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildRPr) or {self.}XmlChildRPr.Removed) then
|
|
begin
|
|
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
|
|
container_.Set({self.}XmlChildRPr);
|
|
end
|
|
return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.RPr;
|
|
end;
|
|
|
|
function R.WriteXmlChildRPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildRPr) then
|
|
{self.}RemoveChild({self.}XmlChildRPr);
|
|
end
|
|
else if v is class(RPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildRPr := v;
|
|
container_.Set({self.}XmlChildRPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: RPr expects RPr or nil";
|
|
end
|
|
end;
|
|
|
|
function R.ReadXmlChildT(): T;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildT) or {self.}XmlChildT.Removed) then
|
|
begin
|
|
{self.}XmlChildT := new T(self, {self.}Prefix, "t");
|
|
container_.Set({self.}XmlChildT);
|
|
end
|
|
return {self.}XmlChildT and not {self.}XmlChildT.Removed ? {self.}XmlChildT : fallback_.T;
|
|
end;
|
|
|
|
function R.WriteXmlChildT(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildT) then
|
|
{self.}RemoveChild({self.}XmlChildT);
|
|
end
|
|
else if v is class(T) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildT := v;
|
|
container_.Set({self.}XmlChildT);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: T expects T or nil";
|
|
end
|
|
end;
|
|
|
|
function ExternalData.create();overload;
|
|
begin
|
|
{self.}create(nil, "c", "externalData");
|
|
end;
|
|
|
|
function ExternalData.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function ExternalData.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function ExternalData.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"r:id": makeweakref(thisFunction(WriteXmlAttrId)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "autoUpdate": array(0, makeweakref(thisFunction(ReadXmlChildAutoUpdate))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function ExternalData.Copy(_obj: ExternalData);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Id) then
|
|
{self.}Id := _obj.Id;
|
|
if not ifnil(_obj.XmlChildAutoUpdate) then
|
|
{self.}AutoUpdate.Copy(_obj.XmlChildAutoUpdate);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function ExternalData.Clone(): ExternalData;override;
|
|
begin
|
|
obj := new ExternalData(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Id) then
|
|
obj.Id := {self.}Id;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "autoUpdate": obj.AutoUpdate := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function ExternalData.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildAutoUpdate) then
|
|
{self.}XmlChildAutoUpdate.ConvertToPoint();
|
|
end;
|
|
|
|
function ExternalData.ReadXmlAttrId();
|
|
begin
|
|
return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
|
|
end;
|
|
|
|
function ExternalData.WriteXmlAttrId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrId) then
|
|
begin
|
|
{self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil);
|
|
attributes_["r:id"] := {self.}XmlAttrId;
|
|
end
|
|
{self.}XmlAttrId.Value := _value;
|
|
end;
|
|
|
|
function ExternalData.ReadXmlChildAutoUpdate(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAutoUpdate) or {self.}XmlChildAutoUpdate.Removed) then
|
|
begin
|
|
{self.}XmlChildAutoUpdate := new PureVal(self, {self.}Prefix, "autoUpdate");
|
|
container_.Set({self.}XmlChildAutoUpdate);
|
|
end
|
|
return {self.}XmlChildAutoUpdate and not {self.}XmlChildAutoUpdate.Removed ? {self.}XmlChildAutoUpdate : fallback_.AutoUpdate;
|
|
end;
|
|
|
|
function ExternalData.WriteXmlChildAutoUpdate(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAutoUpdate) then
|
|
{self.}RemoveChild({self.}XmlChildAutoUpdate);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAutoUpdate := v;
|
|
container_.Set({self.}XmlChildAutoUpdate);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AutoUpdate expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function _Inline.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp", "inline");
|
|
end;
|
|
|
|
function _Inline.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function _Inline.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function _Inline.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"distT": makeweakref(thisFunction(WriteXmlAttrDistT)),
|
|
"distB": makeweakref(thisFunction(WriteXmlAttrDistB)),
|
|
"distL": makeweakref(thisFunction(WriteXmlAttrDistL)),
|
|
"distR": makeweakref(thisFunction(WriteXmlAttrDistR)),
|
|
"wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)),
|
|
"wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "extent": array(0, makeweakref(thisFunction(ReadXmlChildExtent))),
|
|
pre + "effectExtent": array(1, makeweakref(thisFunction(ReadXmlChildEffectExtent))),
|
|
pre + "docPr": array(2, makeweakref(thisFunction(ReadXmlChildDocPr))),
|
|
pre + "cNvGraphicFramePr": array(3, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))),
|
|
"a:graphic": array(4, makeweakref(thisFunction(ReadXmlChildGraphic))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function _Inline.Copy(_obj: _Inline);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.DistT) then
|
|
{self.}DistT := _obj.DistT;
|
|
if not ifnil(_obj.DistB) then
|
|
{self.}DistB := _obj.DistB;
|
|
if not ifnil(_obj.DistL) then
|
|
{self.}DistL := _obj.DistL;
|
|
if not ifnil(_obj.DistR) then
|
|
{self.}DistR := _obj.DistR;
|
|
if not ifnil(_obj.AnchorId) then
|
|
{self.}AnchorId := _obj.AnchorId;
|
|
if not ifnil(_obj.EditId) then
|
|
{self.}EditId := _obj.EditId;
|
|
if not ifnil(_obj.XmlChildExtent) then
|
|
{self.}Extent.Copy(_obj.XmlChildExtent);
|
|
if not ifnil(_obj.XmlChildEffectExtent) then
|
|
{self.}EffectExtent.Copy(_obj.XmlChildEffectExtent);
|
|
if not ifnil(_obj.XmlChildDocPr) then
|
|
{self.}DocPr.Copy(_obj.XmlChildDocPr);
|
|
if not ifnil(_obj.XmlChildCNvGraphicFramePr) then
|
|
{self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr);
|
|
if not ifnil(_obj.XmlChildGraphic) then
|
|
{self.}Graphic.Copy(_obj.XmlChildGraphic);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function _Inline.Clone(): _Inline;override;
|
|
begin
|
|
obj := new _Inline(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}DistT) then
|
|
obj.DistT := {self.}DistT;
|
|
if not ifnil({self.}DistB) then
|
|
obj.DistB := {self.}DistB;
|
|
if not ifnil({self.}DistL) then
|
|
obj.DistL := {self.}DistL;
|
|
if not ifnil({self.}DistR) then
|
|
obj.DistR := {self.}DistR;
|
|
if not ifnil({self.}AnchorId) then
|
|
obj.AnchorId := {self.}AnchorId;
|
|
if not ifnil({self.}EditId) then
|
|
obj.EditId := {self.}EditId;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "extent": obj.Extent := element.Clone();
|
|
pre + "effectExtent": obj.EffectExtent := element.Clone();
|
|
pre + "docPr": obj.DocPr := element.Clone();
|
|
pre + "cNvGraphicFramePr": obj.CNvGraphicFramePr := element.Clone();
|
|
"a:graphic": obj.Graphic := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function _Inline.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildExtent) then
|
|
{self.}XmlChildExtent.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEffectExtent) then
|
|
{self.}XmlChildEffectExtent.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildDocPr) then
|
|
{self.}XmlChildDocPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCNvGraphicFramePr) then
|
|
{self.}XmlChildCNvGraphicFramePr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildGraphic) then
|
|
{self.}XmlChildGraphic.ConvertToPoint();
|
|
end;
|
|
|
|
function _Inline.ReadXmlAttrDistT();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistT.Value) ? fallback_.XmlAttrDistT.Value : {self.}XmlAttrDistT.Value;
|
|
end;
|
|
|
|
function _Inline.WriteXmlAttrDistT(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistT) then
|
|
begin
|
|
{self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil);
|
|
attributes_["distT"] := {self.}XmlAttrDistT;
|
|
end
|
|
{self.}XmlAttrDistT.Value := _value;
|
|
end;
|
|
|
|
function _Inline.ReadXmlAttrDistB();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistB.Value) ? fallback_.XmlAttrDistB.Value : {self.}XmlAttrDistB.Value;
|
|
end;
|
|
|
|
function _Inline.WriteXmlAttrDistB(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistB) then
|
|
begin
|
|
{self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil);
|
|
attributes_["distB"] := {self.}XmlAttrDistB;
|
|
end
|
|
{self.}XmlAttrDistB.Value := _value;
|
|
end;
|
|
|
|
function _Inline.ReadXmlAttrDistL();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistL.Value) ? fallback_.XmlAttrDistL.Value : {self.}XmlAttrDistL.Value;
|
|
end;
|
|
|
|
function _Inline.WriteXmlAttrDistL(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistL) then
|
|
begin
|
|
{self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil);
|
|
attributes_["distL"] := {self.}XmlAttrDistL;
|
|
end
|
|
{self.}XmlAttrDistL.Value := _value;
|
|
end;
|
|
|
|
function _Inline.ReadXmlAttrDistR();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistR.Value) ? fallback_.XmlAttrDistR.Value : {self.}XmlAttrDistR.Value;
|
|
end;
|
|
|
|
function _Inline.WriteXmlAttrDistR(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistR) then
|
|
begin
|
|
{self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil);
|
|
attributes_["distR"] := {self.}XmlAttrDistR;
|
|
end
|
|
{self.}XmlAttrDistR.Value := _value;
|
|
end;
|
|
|
|
function _Inline.ReadXmlAttrAnchorId();
|
|
begin
|
|
return ifnil({self.}XmlAttrAnchorId.Value) ? fallback_.XmlAttrAnchorId.Value : {self.}XmlAttrAnchorId.Value;
|
|
end;
|
|
|
|
function _Inline.WriteXmlAttrAnchorId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAnchorId) then
|
|
begin
|
|
{self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil);
|
|
attributes_["wp14:anchorId"] := {self.}XmlAttrAnchorId;
|
|
end
|
|
{self.}XmlAttrAnchorId.Value := _value;
|
|
end;
|
|
|
|
function _Inline.ReadXmlAttrEditId();
|
|
begin
|
|
return ifnil({self.}XmlAttrEditId.Value) ? fallback_.XmlAttrEditId.Value : {self.}XmlAttrEditId.Value;
|
|
end;
|
|
|
|
function _Inline.WriteXmlAttrEditId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrEditId) then
|
|
begin
|
|
{self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil);
|
|
attributes_["wp14:editId"] := {self.}XmlAttrEditId;
|
|
end
|
|
{self.}XmlAttrEditId.Value := _value;
|
|
end;
|
|
|
|
function _Inline.ReadXmlChildExtent(): CXY;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExtent) or {self.}XmlChildExtent.Removed) then
|
|
begin
|
|
{self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent");
|
|
container_.Set({self.}XmlChildExtent);
|
|
end
|
|
return {self.}XmlChildExtent and not {self.}XmlChildExtent.Removed ? {self.}XmlChildExtent : fallback_.Extent;
|
|
end;
|
|
|
|
function _Inline.WriteXmlChildExtent(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExtent) then
|
|
{self.}RemoveChild({self.}XmlChildExtent);
|
|
end
|
|
else if v is class(CXY) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExtent := v;
|
|
container_.Set({self.}XmlChildExtent);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Extent expects CXY or nil";
|
|
end
|
|
end;
|
|
|
|
function _Inline.ReadXmlChildEffectExtent(): EffectExtent;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEffectExtent) or {self.}XmlChildEffectExtent.Removed) then
|
|
begin
|
|
{self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent");
|
|
container_.Set({self.}XmlChildEffectExtent);
|
|
end
|
|
return {self.}XmlChildEffectExtent and not {self.}XmlChildEffectExtent.Removed ? {self.}XmlChildEffectExtent : fallback_.EffectExtent;
|
|
end;
|
|
|
|
function _Inline.WriteXmlChildEffectExtent(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEffectExtent) then
|
|
{self.}RemoveChild({self.}XmlChildEffectExtent);
|
|
end
|
|
else if v is class(EffectExtent) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEffectExtent := v;
|
|
container_.Set({self.}XmlChildEffectExtent);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EffectExtent expects EffectExtent or nil";
|
|
end
|
|
end;
|
|
|
|
function _Inline.ReadXmlChildDocPr(): DocPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDocPr) or {self.}XmlChildDocPr.Removed) then
|
|
begin
|
|
{self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr");
|
|
container_.Set({self.}XmlChildDocPr);
|
|
end
|
|
return {self.}XmlChildDocPr and not {self.}XmlChildDocPr.Removed ? {self.}XmlChildDocPr : fallback_.DocPr;
|
|
end;
|
|
|
|
function _Inline.WriteXmlChildDocPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDocPr) then
|
|
{self.}RemoveChild({self.}XmlChildDocPr);
|
|
end
|
|
else if v is class(DocPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDocPr := v;
|
|
container_.Set({self.}XmlChildDocPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: DocPr expects DocPr or nil";
|
|
end
|
|
end;
|
|
|
|
function _Inline.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCNvGraphicFramePr) or {self.}XmlChildCNvGraphicFramePr.Removed) then
|
|
begin
|
|
{self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr");
|
|
container_.Set({self.}XmlChildCNvGraphicFramePr);
|
|
end
|
|
return {self.}XmlChildCNvGraphicFramePr and not {self.}XmlChildCNvGraphicFramePr.Removed ? {self.}XmlChildCNvGraphicFramePr : fallback_.CNvGraphicFramePr;
|
|
end;
|
|
|
|
function _Inline.WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCNvGraphicFramePr) then
|
|
{self.}RemoveChild({self.}XmlChildCNvGraphicFramePr);
|
|
end
|
|
else if v is class(CNvGraphicFramePr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCNvGraphicFramePr := v;
|
|
container_.Set({self.}XmlChildCNvGraphicFramePr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CNvGraphicFramePr expects CNvGraphicFramePr or nil";
|
|
end
|
|
end;
|
|
|
|
function _Inline.ReadXmlChildGraphic(): Graphic;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildGraphic) or {self.}XmlChildGraphic.Removed) then
|
|
begin
|
|
{self.}XmlChildGraphic := new Graphic(self, "a", "graphic");
|
|
container_.Set({self.}XmlChildGraphic);
|
|
end
|
|
return {self.}XmlChildGraphic and not {self.}XmlChildGraphic.Removed ? {self.}XmlChildGraphic : fallback_.Graphic;
|
|
end;
|
|
|
|
function _Inline.WriteXmlChildGraphic(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildGraphic) then
|
|
{self.}RemoveChild({self.}XmlChildGraphic);
|
|
end
|
|
else if v is class(Graphic) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildGraphic := v;
|
|
container_.Set({self.}XmlChildGraphic);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Graphic expects Graphic or nil";
|
|
end
|
|
end;
|
|
|
|
function EffectExtent.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp", "effectExtent");
|
|
end;
|
|
|
|
function EffectExtent.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function EffectExtent.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function EffectExtent.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"l": makeweakref(thisFunction(WriteXmlAttrL)),
|
|
"t": makeweakref(thisFunction(WriteXmlAttrT)),
|
|
"r": makeweakref(thisFunction(WriteXmlAttrR)),
|
|
"b": makeweakref(thisFunction(WriteXmlAttrB)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function EffectExtent.Copy(_obj: EffectExtent);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.L) then
|
|
{self.}L := _obj.L;
|
|
if not ifnil(_obj.T) then
|
|
{self.}T := _obj.T;
|
|
if not ifnil(_obj.R) then
|
|
{self.}R := _obj.R;
|
|
if not ifnil(_obj.B) then
|
|
{self.}B := _obj.B;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function EffectExtent.Clone(): EffectExtent;override;
|
|
begin
|
|
obj := new EffectExtent(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}L) then
|
|
obj.L := {self.}L;
|
|
if not ifnil({self.}T) then
|
|
obj.T := {self.}T;
|
|
if not ifnil({self.}R) then
|
|
obj.R := {self.}R;
|
|
if not ifnil({self.}B) then
|
|
obj.B := {self.}B;
|
|
return obj;
|
|
end;
|
|
|
|
function EffectExtent.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function EffectExtent.ReadXmlAttrL();
|
|
begin
|
|
return ifnil({self.}XmlAttrL.Value) ? fallback_.XmlAttrL.Value : {self.}XmlAttrL.Value;
|
|
end;
|
|
|
|
function EffectExtent.WriteXmlAttrL(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrL) then
|
|
begin
|
|
{self.}XmlAttrL := new OpenXmlAttribute("", "l", nil);
|
|
attributes_["l"] := {self.}XmlAttrL;
|
|
end
|
|
{self.}XmlAttrL.Value := _value;
|
|
end;
|
|
|
|
function EffectExtent.ReadXmlAttrT();
|
|
begin
|
|
return ifnil({self.}XmlAttrT.Value) ? fallback_.XmlAttrT.Value : {self.}XmlAttrT.Value;
|
|
end;
|
|
|
|
function EffectExtent.WriteXmlAttrT(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrT) then
|
|
begin
|
|
{self.}XmlAttrT := new OpenXmlAttribute("", "t", nil);
|
|
attributes_["t"] := {self.}XmlAttrT;
|
|
end
|
|
{self.}XmlAttrT.Value := _value;
|
|
end;
|
|
|
|
function EffectExtent.ReadXmlAttrR();
|
|
begin
|
|
return ifnil({self.}XmlAttrR.Value) ? fallback_.XmlAttrR.Value : {self.}XmlAttrR.Value;
|
|
end;
|
|
|
|
function EffectExtent.WriteXmlAttrR(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrR) then
|
|
begin
|
|
{self.}XmlAttrR := new OpenXmlAttribute("", "r", nil);
|
|
attributes_["r"] := {self.}XmlAttrR;
|
|
end
|
|
{self.}XmlAttrR.Value := _value;
|
|
end;
|
|
|
|
function EffectExtent.ReadXmlAttrB();
|
|
begin
|
|
return ifnil({self.}XmlAttrB.Value) ? fallback_.XmlAttrB.Value : {self.}XmlAttrB.Value;
|
|
end;
|
|
|
|
function EffectExtent.WriteXmlAttrB(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrB) then
|
|
begin
|
|
{self.}XmlAttrB := new OpenXmlAttribute("", "b", nil);
|
|
attributes_["b"] := {self.}XmlAttrB;
|
|
end
|
|
{self.}XmlAttrB.Value := _value;
|
|
end;
|
|
|
|
function DocPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp", "docPr");
|
|
end;
|
|
|
|
function DocPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function DocPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function DocPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"id": makeweakref(thisFunction(WriteXmlAttrId)),
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
"descr": makeweakref(thisFunction(WriteXmlAttrDescr)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "extLst": array(0, makeweakref(thisFunction(ReadXmlChildExtLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function DocPr.Copy(_obj: DocPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Id) then
|
|
{self.}Id := _obj.Id;
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.Descr) then
|
|
{self.}Descr := _obj.Descr;
|
|
if not ifnil(_obj.XmlChildExtLst) then
|
|
{self.}ExtLst.Copy(_obj.XmlChildExtLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function DocPr.Clone(): DocPr;override;
|
|
begin
|
|
obj := new DocPr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Id) then
|
|
obj.Id := {self.}Id;
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
if not ifnil({self.}Descr) then
|
|
obj.Descr := {self.}Descr;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "extLst": obj.ExtLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function DocPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildExtLst) then
|
|
{self.}XmlChildExtLst.ConvertToPoint();
|
|
end;
|
|
|
|
function DocPr.ReadXmlAttrId();
|
|
begin
|
|
return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
|
|
end;
|
|
|
|
function DocPr.WriteXmlAttrId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrId) then
|
|
begin
|
|
{self.}XmlAttrId := new OpenXmlAttribute("", "id", nil);
|
|
attributes_["id"] := {self.}XmlAttrId;
|
|
end
|
|
{self.}XmlAttrId.Value := _value;
|
|
end;
|
|
|
|
function DocPr.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function DocPr.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function DocPr.ReadXmlAttrDescr();
|
|
begin
|
|
return ifnil({self.}XmlAttrDescr.Value) ? fallback_.XmlAttrDescr.Value : {self.}XmlAttrDescr.Value;
|
|
end;
|
|
|
|
function DocPr.WriteXmlAttrDescr(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDescr) then
|
|
begin
|
|
{self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil);
|
|
attributes_["descr"] := {self.}XmlAttrDescr;
|
|
end
|
|
{self.}XmlAttrDescr.Value := _value;
|
|
end;
|
|
|
|
function DocPr.ReadXmlChildExtLst(): ExtLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExtLst) or {self.}XmlChildExtLst.Removed) then
|
|
begin
|
|
{self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst");
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
return {self.}XmlChildExtLst and not {self.}XmlChildExtLst.Removed ? {self.}XmlChildExtLst : fallback_.ExtLst;
|
|
end;
|
|
|
|
function DocPr.WriteXmlChildExtLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExtLst) then
|
|
{self.}RemoveChild({self.}XmlChildExtLst);
|
|
end
|
|
else if v is class(ExtLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExtLst := v;
|
|
container_.Set({self.}XmlChildExtLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: ExtLst expects ExtLst or nil";
|
|
end
|
|
end;
|
|
|
|
function CNvGraphicFramePr.create();overload;
|
|
begin
|
|
{self.}create(nil, "w", "cNvGraphicFramePr");
|
|
end;
|
|
|
|
function CNvGraphicFramePr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function CNvGraphicFramePr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function CNvGraphicFramePr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "graphicFrameLocks": array(0, makeweakref(thisFunction(ReadXmlChildGraphicFrameLocks))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function CNvGraphicFramePr.Copy(_obj: CNvGraphicFramePr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildGraphicFrameLocks) then
|
|
{self.}GraphicFrameLocks.Copy(_obj.XmlChildGraphicFrameLocks);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function CNvGraphicFramePr.Clone(): CNvGraphicFramePr;override;
|
|
begin
|
|
obj := new CNvGraphicFramePr(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "graphicFrameLocks": obj.GraphicFrameLocks := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function CNvGraphicFramePr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildGraphicFrameLocks) then
|
|
{self.}XmlChildGraphicFrameLocks.ConvertToPoint();
|
|
end;
|
|
|
|
function CNvGraphicFramePr.ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildGraphicFrameLocks) or {self.}XmlChildGraphicFrameLocks.Removed) then
|
|
begin
|
|
{self.}XmlChildGraphicFrameLocks := new GraphicFrameLocks(self, {self.}Prefix, "graphicFrameLocks");
|
|
container_.Set({self.}XmlChildGraphicFrameLocks);
|
|
end
|
|
return {self.}XmlChildGraphicFrameLocks and not {self.}XmlChildGraphicFrameLocks.Removed ? {self.}XmlChildGraphicFrameLocks : fallback_.GraphicFrameLocks;
|
|
end;
|
|
|
|
function CNvGraphicFramePr.WriteXmlChildGraphicFrameLocks(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildGraphicFrameLocks) then
|
|
{self.}RemoveChild({self.}XmlChildGraphicFrameLocks);
|
|
end
|
|
else if v is class(GraphicFrameLocks) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildGraphicFrameLocks := v;
|
|
container_.Set({self.}XmlChildGraphicFrameLocks);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: GraphicFrameLocks expects GraphicFrameLocks or nil";
|
|
end
|
|
end;
|
|
|
|
function GraphicFrameLocks.create();overload;
|
|
begin
|
|
{self.}create(nil, "", "");
|
|
end;
|
|
|
|
function GraphicFrameLocks.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function GraphicFrameLocks.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function GraphicFrameLocks.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function GraphicFrameLocks.Copy(_obj: GraphicFrameLocks);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.NoChangeAspect) then
|
|
{self.}NoChangeAspect := _obj.NoChangeAspect;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function GraphicFrameLocks.Clone(): GraphicFrameLocks;override;
|
|
begin
|
|
obj := new GraphicFrameLocks(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}NoChangeAspect) then
|
|
obj.NoChangeAspect := {self.}NoChangeAspect;
|
|
return obj;
|
|
end;
|
|
|
|
function GraphicFrameLocks.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function GraphicFrameLocks.ReadXmlAttrNoChangeAspect();
|
|
begin
|
|
return ifnil({self.}XmlAttrNoChangeAspect.Value) ? fallback_.XmlAttrNoChangeAspect.Value : {self.}XmlAttrNoChangeAspect.Value;
|
|
end;
|
|
|
|
function GraphicFrameLocks.WriteXmlAttrNoChangeAspect(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrNoChangeAspect) then
|
|
begin
|
|
{self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil);
|
|
attributes_["noChangeAspect"] := {self.}XmlAttrNoChangeAspect;
|
|
end
|
|
{self.}XmlAttrNoChangeAspect.Value := _value;
|
|
end;
|
|
|
|
function Graphic.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "graphic");
|
|
end;
|
|
|
|
function Graphic.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Graphic.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Graphic.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"a:graphicData": array(0, makeweakref(thisFunction(ReadXmlChildGraphicData))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Graphic.Copy(_obj: Graphic);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildGraphicData) then
|
|
{self.}GraphicData.Copy(_obj.XmlChildGraphicData);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Graphic.Clone(): Graphic;override;
|
|
begin
|
|
obj := new Graphic(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:graphicData": obj.GraphicData := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Graphic.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildGraphicData) then
|
|
{self.}XmlChildGraphicData.ConvertToPoint();
|
|
end;
|
|
|
|
function Graphic.ReadXmlChildGraphicData(): GraphicData;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildGraphicData) or {self.}XmlChildGraphicData.Removed) then
|
|
begin
|
|
{self.}XmlChildGraphicData := new GraphicData(self, "a", "graphicData");
|
|
container_.Set({self.}XmlChildGraphicData);
|
|
end
|
|
return {self.}XmlChildGraphicData and not {self.}XmlChildGraphicData.Removed ? {self.}XmlChildGraphicData : fallback_.GraphicData;
|
|
end;
|
|
|
|
function Graphic.WriteXmlChildGraphicData(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildGraphicData) then
|
|
{self.}RemoveChild({self.}XmlChildGraphicData);
|
|
end
|
|
else if v is class(GraphicData) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildGraphicData := v;
|
|
container_.Set({self.}XmlChildGraphicData);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: GraphicData expects GraphicData or nil";
|
|
end
|
|
end;
|
|
|
|
function GraphicData.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "graphicData");
|
|
end;
|
|
|
|
function GraphicData.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function GraphicData.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function GraphicData.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"uri": makeweakref(thisFunction(WriteXmlAttrUri)),
|
|
);
|
|
sorted_child_ := array(
|
|
"pic:pic": array(0, makeweakref(thisFunction(ReadXmlChildPic))),
|
|
"c:chart": array(1, makeweakref(thisFunction(ReadXmlChildChart))),
|
|
"wps:wsp": array(2, makeweakref(thisFunction(ReadXmlChildWsp))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function GraphicData.Copy(_obj: GraphicData);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Uri) then
|
|
{self.}Uri := _obj.Uri;
|
|
if not ifnil(_obj.XmlChildPic) then
|
|
{self.}Pic.Copy(_obj.XmlChildPic);
|
|
if not ifnil(_obj.XmlChildChart) then
|
|
{self.}Chart.Copy(_obj.XmlChildChart);
|
|
if not ifnil(_obj.XmlChildWsp) then
|
|
{self.}Wsp.Copy(_obj.XmlChildWsp);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function GraphicData.Clone(): GraphicData;override;
|
|
begin
|
|
obj := new GraphicData(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Uri) then
|
|
obj.Uri := {self.}Uri;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"pic:pic": obj.Pic := element.Clone();
|
|
"c:chart": obj.Chart := element.Clone();
|
|
"wps:wsp": obj.Wsp := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function GraphicData.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPic) then
|
|
{self.}XmlChildPic.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildChart) then
|
|
{self.}XmlChildChart.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildWsp) then
|
|
{self.}XmlChildWsp.ConvertToPoint();
|
|
end;
|
|
|
|
function GraphicData.ReadXmlAttrUri();
|
|
begin
|
|
return ifnil({self.}XmlAttrUri.Value) ? fallback_.XmlAttrUri.Value : {self.}XmlAttrUri.Value;
|
|
end;
|
|
|
|
function GraphicData.WriteXmlAttrUri(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrUri) then
|
|
begin
|
|
{self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil);
|
|
attributes_["uri"] := {self.}XmlAttrUri;
|
|
end
|
|
{self.}XmlAttrUri.Value := _value;
|
|
end;
|
|
|
|
function GraphicData.ReadXmlChildPic(): Pic;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPic) or {self.}XmlChildPic.Removed) then
|
|
begin
|
|
{self.}XmlChildPic := new Pic(self, "pic", "pic");
|
|
container_.Set({self.}XmlChildPic);
|
|
end
|
|
return {self.}XmlChildPic and not {self.}XmlChildPic.Removed ? {self.}XmlChildPic : fallback_.Pic;
|
|
end;
|
|
|
|
function GraphicData.WriteXmlChildPic(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPic) then
|
|
{self.}RemoveChild({self.}XmlChildPic);
|
|
end
|
|
else if v is class(Pic) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPic := v;
|
|
container_.Set({self.}XmlChildPic);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Pic expects Pic or nil";
|
|
end
|
|
end;
|
|
|
|
function GraphicData.ReadXmlChildChart(): Chart;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildChart) or {self.}XmlChildChart.Removed) then
|
|
begin
|
|
{self.}XmlChildChart := new Chart(self, "c", "chart");
|
|
container_.Set({self.}XmlChildChart);
|
|
end
|
|
return {self.}XmlChildChart and not {self.}XmlChildChart.Removed ? {self.}XmlChildChart : fallback_.Chart;
|
|
end;
|
|
|
|
function GraphicData.WriteXmlChildChart(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildChart) then
|
|
{self.}RemoveChild({self.}XmlChildChart);
|
|
end
|
|
else if v is class(Chart) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildChart := v;
|
|
container_.Set({self.}XmlChildChart);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Chart expects Chart or nil";
|
|
end
|
|
end;
|
|
|
|
function GraphicData.ReadXmlChildWsp(): Wsp;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildWsp) or {self.}XmlChildWsp.Removed) then
|
|
begin
|
|
{self.}XmlChildWsp := new Wsp(self, "wps", "wsp");
|
|
container_.Set({self.}XmlChildWsp);
|
|
end
|
|
return {self.}XmlChildWsp and not {self.}XmlChildWsp.Removed ? {self.}XmlChildWsp : fallback_.Wsp;
|
|
end;
|
|
|
|
function GraphicData.WriteXmlChildWsp(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildWsp) then
|
|
{self.}RemoveChild({self.}XmlChildWsp);
|
|
end
|
|
else if v is class(Wsp) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildWsp := v;
|
|
container_.Set({self.}XmlChildWsp);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Wsp expects Wsp or nil";
|
|
end
|
|
end;
|
|
|
|
function Wsp.create();overload;
|
|
begin
|
|
{self.}create(nil, "wps", "wsp");
|
|
end;
|
|
|
|
function Wsp.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Wsp.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Wsp.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "cNvSpPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvSpPr))),
|
|
pre + "spPr": array(1, makeweakref(thisFunction(ReadXmlChildSpPr))),
|
|
pre + "txbx": array(2, makeweakref(thisFunction(ReadXmlChildTxbx))),
|
|
pre + "style": array(3, makeweakref(thisFunction(ReadXmlChildStyle))),
|
|
pre + "bodyPr": array(4, makeweakref(thisFunction(ReadXmlChildBodyPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Wsp.Copy(_obj: Wsp);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildCNvSpPr) then
|
|
{self.}CNvSpPr.Copy(_obj.XmlChildCNvSpPr);
|
|
if not ifnil(_obj.XmlChildSpPr) then
|
|
{self.}SpPr.Copy(_obj.XmlChildSpPr);
|
|
if not ifnil(_obj.XmlChildTxbx) then
|
|
{self.}Txbx.Copy(_obj.XmlChildTxbx);
|
|
if not ifnil(_obj.XmlChildStyle) then
|
|
{self.}Style.Copy(_obj.XmlChildStyle);
|
|
if not ifnil(_obj.XmlChildBodyPr) then
|
|
{self.}BodyPr.Copy(_obj.XmlChildBodyPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Wsp.Clone(): Wsp;override;
|
|
begin
|
|
obj := new Wsp(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "cNvSpPr": obj.CNvSpPr := element.Clone();
|
|
pre + "spPr": obj.SpPr := element.Clone();
|
|
pre + "txbx": obj.Txbx := element.Clone();
|
|
pre + "style": obj.Style := element.Clone();
|
|
pre + "bodyPr": obj.BodyPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Wsp.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildCNvSpPr) then
|
|
{self.}XmlChildCNvSpPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSpPr) then
|
|
{self.}XmlChildSpPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildTxbx) then
|
|
{self.}XmlChildTxbx.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildStyle) then
|
|
{self.}XmlChildStyle.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildBodyPr) then
|
|
{self.}XmlChildBodyPr.ConvertToPoint();
|
|
end;
|
|
|
|
function Wsp.ReadXmlChildCNvSpPr(): CNvSpPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCNvSpPr) or {self.}XmlChildCNvSpPr.Removed) then
|
|
begin
|
|
{self.}XmlChildCNvSpPr := new CNvSpPr(self, {self.}Prefix, "cNvSpPr");
|
|
container_.Set({self.}XmlChildCNvSpPr);
|
|
end
|
|
return {self.}XmlChildCNvSpPr and not {self.}XmlChildCNvSpPr.Removed ? {self.}XmlChildCNvSpPr : fallback_.CNvSpPr;
|
|
end;
|
|
|
|
function Wsp.WriteXmlChildCNvSpPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCNvSpPr) then
|
|
{self.}RemoveChild({self.}XmlChildCNvSpPr);
|
|
end
|
|
else if v is class(CNvSpPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCNvSpPr := v;
|
|
container_.Set({self.}XmlChildCNvSpPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CNvSpPr expects CNvSpPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Wsp.ReadXmlChildSpPr(): SpPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then
|
|
begin
|
|
{self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr");
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr;
|
|
end;
|
|
|
|
function Wsp.WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSpPr) then
|
|
{self.}RemoveChild({self.}XmlChildSpPr);
|
|
end
|
|
else if v is class(SpPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSpPr := v;
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SpPr expects SpPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Wsp.ReadXmlChildTxbx(): Txbx;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTxbx) or {self.}XmlChildTxbx.Removed) then
|
|
begin
|
|
{self.}XmlChildTxbx := new Txbx(self, {self.}Prefix, "txbx");
|
|
container_.Set({self.}XmlChildTxbx);
|
|
end
|
|
return {self.}XmlChildTxbx and not {self.}XmlChildTxbx.Removed ? {self.}XmlChildTxbx : fallback_.Txbx;
|
|
end;
|
|
|
|
function Wsp.WriteXmlChildTxbx(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTxbx) then
|
|
{self.}RemoveChild({self.}XmlChildTxbx);
|
|
end
|
|
else if v is class(Txbx) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTxbx := v;
|
|
container_.Set({self.}XmlChildTxbx);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Txbx expects Txbx or nil";
|
|
end
|
|
end;
|
|
|
|
function Wsp.ReadXmlChildStyle(): WpsStyle;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildStyle) or {self.}XmlChildStyle.Removed) then
|
|
begin
|
|
{self.}XmlChildStyle := new WpsStyle(self, {self.}Prefix, "style");
|
|
container_.Set({self.}XmlChildStyle);
|
|
end
|
|
return {self.}XmlChildStyle and not {self.}XmlChildStyle.Removed ? {self.}XmlChildStyle : fallback_.Style;
|
|
end;
|
|
|
|
function Wsp.WriteXmlChildStyle(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildStyle) then
|
|
{self.}RemoveChild({self.}XmlChildStyle);
|
|
end
|
|
else if v is class(WpsStyle) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildStyle := v;
|
|
container_.Set({self.}XmlChildStyle);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Style expects WpsStyle or nil";
|
|
end
|
|
end;
|
|
|
|
function Wsp.ReadXmlChildBodyPr(): BodyPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBodyPr) or {self.}XmlChildBodyPr.Removed) then
|
|
begin
|
|
{self.}XmlChildBodyPr := new BodyPr(self, {self.}Prefix, "bodyPr");
|
|
container_.Set({self.}XmlChildBodyPr);
|
|
end
|
|
return {self.}XmlChildBodyPr and not {self.}XmlChildBodyPr.Removed ? {self.}XmlChildBodyPr : fallback_.BodyPr;
|
|
end;
|
|
|
|
function Wsp.WriteXmlChildBodyPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBodyPr) then
|
|
{self.}RemoveChild({self.}XmlChildBodyPr);
|
|
end
|
|
else if v is class(BodyPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBodyPr := v;
|
|
container_.Set({self.}XmlChildBodyPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: BodyPr expects BodyPr or nil";
|
|
end
|
|
end;
|
|
|
|
function WpsStyle.create();overload;
|
|
begin
|
|
{self.}create(nil, "wps", "style");
|
|
end;
|
|
|
|
function WpsStyle.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function WpsStyle.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function WpsStyle.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"a:lnRef": array(0, makeweakref(thisFunction(ReadXmlChildLnRef))),
|
|
"a:fillRef": array(1, makeweakref(thisFunction(ReadXmlChildFillRef))),
|
|
"a:effectRef": array(2, makeweakref(thisFunction(ReadXmlChildEffectRef))),
|
|
"a:fontRef": array(3, makeweakref(thisFunction(ReadXmlChildFontRef))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function WpsStyle.Copy(_obj: WpsStyle);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildLnRef) then
|
|
{self.}LnRef.Copy(_obj.XmlChildLnRef);
|
|
if not ifnil(_obj.XmlChildFillRef) then
|
|
{self.}FillRef.Copy(_obj.XmlChildFillRef);
|
|
if not ifnil(_obj.XmlChildEffectRef) then
|
|
{self.}EffectRef.Copy(_obj.XmlChildEffectRef);
|
|
if not ifnil(_obj.XmlChildFontRef) then
|
|
{self.}FontRef.Copy(_obj.XmlChildFontRef);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function WpsStyle.Clone(): WpsStyle;override;
|
|
begin
|
|
obj := new WpsStyle(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:lnRef": obj.LnRef := element.Clone();
|
|
"a:fillRef": obj.FillRef := element.Clone();
|
|
"a:effectRef": obj.EffectRef := element.Clone();
|
|
"a:fontRef": obj.FontRef := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function WpsStyle.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildLnRef) then
|
|
{self.}XmlChildLnRef.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildFillRef) then
|
|
{self.}XmlChildFillRef.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEffectRef) then
|
|
{self.}XmlChildEffectRef.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildFontRef) then
|
|
{self.}XmlChildFontRef.ConvertToPoint();
|
|
end;
|
|
|
|
function WpsStyle.ReadXmlChildLnRef(): XRef;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLnRef) or {self.}XmlChildLnRef.Removed) then
|
|
begin
|
|
{self.}XmlChildLnRef := new XRef(self, "a", "lnRef");
|
|
container_.Set({self.}XmlChildLnRef);
|
|
end
|
|
return {self.}XmlChildLnRef and not {self.}XmlChildLnRef.Removed ? {self.}XmlChildLnRef : fallback_.LnRef;
|
|
end;
|
|
|
|
function WpsStyle.WriteXmlChildLnRef(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLnRef) then
|
|
{self.}RemoveChild({self.}XmlChildLnRef);
|
|
end
|
|
else if v is class(XRef) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLnRef := v;
|
|
container_.Set({self.}XmlChildLnRef);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: LnRef expects XRef or nil";
|
|
end
|
|
end;
|
|
|
|
function WpsStyle.ReadXmlChildFillRef(): XRef;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFillRef) or {self.}XmlChildFillRef.Removed) then
|
|
begin
|
|
{self.}XmlChildFillRef := new XRef(self, "a", "fillRef");
|
|
container_.Set({self.}XmlChildFillRef);
|
|
end
|
|
return {self.}XmlChildFillRef and not {self.}XmlChildFillRef.Removed ? {self.}XmlChildFillRef : fallback_.FillRef;
|
|
end;
|
|
|
|
function WpsStyle.WriteXmlChildFillRef(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildFillRef) then
|
|
{self.}RemoveChild({self.}XmlChildFillRef);
|
|
end
|
|
else if v is class(XRef) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildFillRef := v;
|
|
container_.Set({self.}XmlChildFillRef);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FillRef expects XRef or nil";
|
|
end
|
|
end;
|
|
|
|
function WpsStyle.ReadXmlChildEffectRef(): XRef;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEffectRef) or {self.}XmlChildEffectRef.Removed) then
|
|
begin
|
|
{self.}XmlChildEffectRef := new XRef(self, "a", "effectRef");
|
|
container_.Set({self.}XmlChildEffectRef);
|
|
end
|
|
return {self.}XmlChildEffectRef and not {self.}XmlChildEffectRef.Removed ? {self.}XmlChildEffectRef : fallback_.EffectRef;
|
|
end;
|
|
|
|
function WpsStyle.WriteXmlChildEffectRef(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEffectRef) then
|
|
{self.}RemoveChild({self.}XmlChildEffectRef);
|
|
end
|
|
else if v is class(XRef) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEffectRef := v;
|
|
container_.Set({self.}XmlChildEffectRef);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EffectRef expects XRef or nil";
|
|
end
|
|
end;
|
|
|
|
function WpsStyle.ReadXmlChildFontRef(): XRef;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFontRef) or {self.}XmlChildFontRef.Removed) then
|
|
begin
|
|
{self.}XmlChildFontRef := new XRef(self, "a", "fontRef");
|
|
container_.Set({self.}XmlChildFontRef);
|
|
end
|
|
return {self.}XmlChildFontRef and not {self.}XmlChildFontRef.Removed ? {self.}XmlChildFontRef : fallback_.FontRef;
|
|
end;
|
|
|
|
function WpsStyle.WriteXmlChildFontRef(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildFontRef) then
|
|
{self.}RemoveChild({self.}XmlChildFontRef);
|
|
end
|
|
else if v is class(XRef) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildFontRef := v;
|
|
container_.Set({self.}XmlChildFontRef);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FontRef expects XRef or nil";
|
|
end
|
|
end;
|
|
|
|
function XRef.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "lnRef");
|
|
end;
|
|
|
|
function XRef.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function XRef.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function XRef.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"idx": makeweakref(thisFunction(WriteXmlAttrIdx)),
|
|
);
|
|
sorted_child_ := array(
|
|
"a:schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function XRef.Copy(_obj: XRef);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Idx) then
|
|
{self.}Idx := _obj.Idx;
|
|
if not ifnil(_obj.XmlChildSchemeClr) then
|
|
{self.}SchemeClr.Copy(_obj.XmlChildSchemeClr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function XRef.Clone(): XRef;override;
|
|
begin
|
|
obj := new XRef(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Idx) then
|
|
obj.Idx := {self.}Idx;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:schemeClr": obj.SchemeClr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function XRef.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSchemeClr) then
|
|
{self.}XmlChildSchemeClr.ConvertToPoint();
|
|
end;
|
|
|
|
function XRef.ReadXmlAttrIdx();
|
|
begin
|
|
return ifnil({self.}XmlAttrIdx.Value) ? fallback_.XmlAttrIdx.Value : {self.}XmlAttrIdx.Value;
|
|
end;
|
|
|
|
function XRef.WriteXmlAttrIdx(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrIdx) then
|
|
begin
|
|
{self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil);
|
|
attributes_["idx"] := {self.}XmlAttrIdx;
|
|
end
|
|
{self.}XmlAttrIdx.Value := _value;
|
|
end;
|
|
|
|
function XRef.ReadXmlChildSchemeClr(): SchemeClr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSchemeClr) or {self.}XmlChildSchemeClr.Removed) then
|
|
begin
|
|
{self.}XmlChildSchemeClr := new SchemeClr(self, "a", "schemeClr");
|
|
container_.Set({self.}XmlChildSchemeClr);
|
|
end
|
|
return {self.}XmlChildSchemeClr and not {self.}XmlChildSchemeClr.Removed ? {self.}XmlChildSchemeClr : fallback_.SchemeClr;
|
|
end;
|
|
|
|
function XRef.WriteXmlChildSchemeClr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSchemeClr) then
|
|
{self.}RemoveChild({self.}XmlChildSchemeClr);
|
|
end
|
|
else if v is class(SchemeClr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSchemeClr := v;
|
|
container_.Set({self.}XmlChildSchemeClr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SchemeClr expects SchemeClr or nil";
|
|
end
|
|
end;
|
|
|
|
function Txbx.create();overload;
|
|
begin
|
|
{self.}create(nil, "wps", "txbx");
|
|
end;
|
|
|
|
function Txbx.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Txbx.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Txbx.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"w:txbxContent": array(0, makeweakref(thisFunction(ReadXmlChildTxbxContent))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Txbx.Copy(_obj: Txbx);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildTxbxContent) then
|
|
{self.}TxbxContent.Copy(_obj.XmlChildTxbxContent);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Txbx.Clone(): Txbx;override;
|
|
begin
|
|
obj := new Txbx(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"w:txbxContent": obj.TxbxContent := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Txbx.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildTxbxContent) then
|
|
{self.}XmlChildTxbxContent.ConvertToPoint();
|
|
end;
|
|
|
|
function Txbx.ReadXmlChildTxbxContent(): TxbxContent;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTxbxContent) or {self.}XmlChildTxbxContent.Removed) then
|
|
begin
|
|
{self.}XmlChildTxbxContent := new DocxML.TxbxContent(self, "w", "txbxContent");
|
|
container_.Set({self.}XmlChildTxbxContent);
|
|
end
|
|
return {self.}XmlChildTxbxContent and not {self.}XmlChildTxbxContent.Removed ? {self.}XmlChildTxbxContent : fallback_.TxbxContent;
|
|
end;
|
|
|
|
function Txbx.WriteXmlChildTxbxContent(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildTxbxContent) then
|
|
{self.}RemoveChild({self.}XmlChildTxbxContent);
|
|
end
|
|
else if v is class(TxbxContent) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildTxbxContent := v;
|
|
container_.Set({self.}XmlChildTxbxContent);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: TxbxContent expects TxbxContent or nil";
|
|
end
|
|
end;
|
|
|
|
function CNvSpPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "wps", "cNvSpPr");
|
|
end;
|
|
|
|
function CNvSpPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function CNvSpPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function CNvSpPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"txBox": makeweakref(thisFunction(WriteXmlAttrTxBox)),
|
|
);
|
|
sorted_child_ := array(
|
|
"a:spLocks": array(0, makeweakref(thisFunction(ReadXmlChildSpLocks))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function CNvSpPr.Copy(_obj: CNvSpPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.TxBox) then
|
|
{self.}TxBox := _obj.TxBox;
|
|
if not ifnil(_obj.XmlChildSpLocks) then
|
|
{self.}SpLocks.Copy(_obj.XmlChildSpLocks);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function CNvSpPr.Clone(): CNvSpPr;override;
|
|
begin
|
|
obj := new CNvSpPr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}TxBox) then
|
|
obj.TxBox := {self.}TxBox;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:spLocks": obj.SpLocks := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function CNvSpPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSpLocks) then
|
|
{self.}XmlChildSpLocks.ConvertToPoint();
|
|
end;
|
|
|
|
function CNvSpPr.ReadXmlAttrTxBox();
|
|
begin
|
|
return ifnil({self.}XmlAttrTxBox.Value) ? fallback_.XmlAttrTxBox.Value : {self.}XmlAttrTxBox.Value;
|
|
end;
|
|
|
|
function CNvSpPr.WriteXmlAttrTxBox(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrTxBox) then
|
|
begin
|
|
{self.}XmlAttrTxBox := new OpenXmlAttribute("", "txBox", nil);
|
|
attributes_["txBox"] := {self.}XmlAttrTxBox;
|
|
end
|
|
{self.}XmlAttrTxBox.Value := _value;
|
|
end;
|
|
|
|
function CNvSpPr.ReadXmlChildSpLocks(): SpLocks;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSpLocks) or {self.}XmlChildSpLocks.Removed) then
|
|
begin
|
|
{self.}XmlChildSpLocks := new SpLocks(self, "a", "spLocks");
|
|
container_.Set({self.}XmlChildSpLocks);
|
|
end
|
|
return {self.}XmlChildSpLocks and not {self.}XmlChildSpLocks.Removed ? {self.}XmlChildSpLocks : fallback_.SpLocks;
|
|
end;
|
|
|
|
function CNvSpPr.WriteXmlChildSpLocks(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSpLocks) then
|
|
{self.}RemoveChild({self.}XmlChildSpLocks);
|
|
end
|
|
else if v is class(SpLocks) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSpLocks := v;
|
|
container_.Set({self.}XmlChildSpLocks);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SpLocks expects SpLocks or nil";
|
|
end
|
|
end;
|
|
|
|
function SpLocks.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "spLocks");
|
|
end;
|
|
|
|
function SpLocks.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SpLocks.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SpLocks.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"noChangeArrowheads": makeweakref(thisFunction(WriteXmlAttrNoChangeArrowheads)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SpLocks.Copy(_obj: SpLocks);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.NoChangeArrowheads) then
|
|
{self.}NoChangeArrowheads := _obj.NoChangeArrowheads;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SpLocks.Clone(): SpLocks;override;
|
|
begin
|
|
obj := new SpLocks(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}NoChangeArrowheads) then
|
|
obj.NoChangeArrowheads := {self.}NoChangeArrowheads;
|
|
return obj;
|
|
end;
|
|
|
|
function SpLocks.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function SpLocks.ReadXmlAttrNoChangeArrowheads();
|
|
begin
|
|
return ifnil({self.}XmlAttrNoChangeArrowheads.Value) ? fallback_.XmlAttrNoChangeArrowheads.Value : {self.}XmlAttrNoChangeArrowheads.Value;
|
|
end;
|
|
|
|
function SpLocks.WriteXmlAttrNoChangeArrowheads(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrNoChangeArrowheads) then
|
|
begin
|
|
{self.}XmlAttrNoChangeArrowheads := new OpenXmlAttribute("", "noChangeArrowheads", nil);
|
|
attributes_["noChangeArrowheads"] := {self.}XmlAttrNoChangeArrowheads;
|
|
end
|
|
{self.}XmlAttrNoChangeArrowheads.Value := _value;
|
|
end;
|
|
|
|
function Pic.create();overload;
|
|
begin
|
|
{self.}create(nil, "pic", "pic");
|
|
end;
|
|
|
|
function Pic.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Pic.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Pic.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "nvPicPr": array(0, makeweakref(thisFunction(ReadXmlChildNvPicPr))),
|
|
pre + "blipFill": array(1, makeweakref(thisFunction(ReadXmlChildBlipFill))),
|
|
pre + "spPr": array(2, makeweakref(thisFunction(ReadXmlChildSpPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Pic.Copy(_obj: Pic);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildNvPicPr) then
|
|
{self.}NvPicPr.Copy(_obj.XmlChildNvPicPr);
|
|
if not ifnil(_obj.XmlChildBlipFill) then
|
|
{self.}BlipFill.Copy(_obj.XmlChildBlipFill);
|
|
if not ifnil(_obj.XmlChildSpPr) then
|
|
{self.}SpPr.Copy(_obj.XmlChildSpPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Pic.Clone(): Pic;override;
|
|
begin
|
|
obj := new Pic(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "nvPicPr": obj.NvPicPr := element.Clone();
|
|
pre + "blipFill": obj.BlipFill := element.Clone();
|
|
pre + "spPr": obj.SpPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Pic.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildNvPicPr) then
|
|
{self.}XmlChildNvPicPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildBlipFill) then
|
|
{self.}XmlChildBlipFill.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSpPr) then
|
|
{self.}XmlChildSpPr.ConvertToPoint();
|
|
end;
|
|
|
|
function Pic.ReadXmlChildNvPicPr(): NvPicPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNvPicPr) or {self.}XmlChildNvPicPr.Removed) then
|
|
begin
|
|
{self.}XmlChildNvPicPr := new NvPicPr(self, {self.}Prefix, "nvPicPr");
|
|
container_.Set({self.}XmlChildNvPicPr);
|
|
end
|
|
return {self.}XmlChildNvPicPr and not {self.}XmlChildNvPicPr.Removed ? {self.}XmlChildNvPicPr : fallback_.NvPicPr;
|
|
end;
|
|
|
|
function Pic.WriteXmlChildNvPicPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildNvPicPr) then
|
|
{self.}RemoveChild({self.}XmlChildNvPicPr);
|
|
end
|
|
else if v is class(NvPicPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildNvPicPr := v;
|
|
container_.Set({self.}XmlChildNvPicPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NvPicPr expects NvPicPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Pic.ReadXmlChildBlipFill(): BlipFill;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBlipFill) or {self.}XmlChildBlipFill.Removed) then
|
|
begin
|
|
{self.}XmlChildBlipFill := new BlipFill(self, {self.}Prefix, "blipFill");
|
|
container_.Set({self.}XmlChildBlipFill);
|
|
end
|
|
return {self.}XmlChildBlipFill and not {self.}XmlChildBlipFill.Removed ? {self.}XmlChildBlipFill : fallback_.BlipFill;
|
|
end;
|
|
|
|
function Pic.WriteXmlChildBlipFill(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBlipFill) then
|
|
{self.}RemoveChild({self.}XmlChildBlipFill);
|
|
end
|
|
else if v is class(BlipFill) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBlipFill := v;
|
|
container_.Set({self.}XmlChildBlipFill);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: BlipFill expects BlipFill or nil";
|
|
end
|
|
end;
|
|
|
|
function Pic.ReadXmlChildSpPr(): SpPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then
|
|
begin
|
|
{self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr");
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
return {self.}XmlChildSpPr and not {self.}XmlChildSpPr.Removed ? {self.}XmlChildSpPr : fallback_.SpPr;
|
|
end;
|
|
|
|
function Pic.WriteXmlChildSpPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSpPr) then
|
|
{self.}RemoveChild({self.}XmlChildSpPr);
|
|
end
|
|
else if v is class(SpPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSpPr := v;
|
|
container_.Set({self.}XmlChildSpPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SpPr expects SpPr or nil";
|
|
end
|
|
end;
|
|
|
|
function NvPicPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "pic", "nvPicPr");
|
|
end;
|
|
|
|
function NvPicPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function NvPicPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function NvPicPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"pic:cNvPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvPr))),
|
|
"pic:cNvPicPr": array(1, makeweakref(thisFunction(ReadXmlChildCNvPicPr))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function NvPicPr.Copy(_obj: NvPicPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildCNvPr) then
|
|
{self.}CNvPr.Copy(_obj.XmlChildCNvPr);
|
|
if not ifnil(_obj.XmlChildCNvPicPr) then
|
|
{self.}CNvPicPr.Copy(_obj.XmlChildCNvPicPr);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function NvPicPr.Clone(): NvPicPr;override;
|
|
begin
|
|
obj := new NvPicPr(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"pic:cNvPr": obj.CNvPr := element.Clone();
|
|
"pic:cNvPicPr": obj.CNvPicPr := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function NvPicPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildCNvPr) then
|
|
{self.}XmlChildCNvPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCNvPicPr) then
|
|
{self.}XmlChildCNvPicPr.ConvertToPoint();
|
|
end;
|
|
|
|
function NvPicPr.ReadXmlChildCNvPr(): CNvPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCNvPr) or {self.}XmlChildCNvPr.Removed) then
|
|
begin
|
|
{self.}XmlChildCNvPr := new CNvPr(self, "pic", "cNvPr");
|
|
container_.Set({self.}XmlChildCNvPr);
|
|
end
|
|
return {self.}XmlChildCNvPr and not {self.}XmlChildCNvPr.Removed ? {self.}XmlChildCNvPr : fallback_.CNvPr;
|
|
end;
|
|
|
|
function NvPicPr.WriteXmlChildCNvPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCNvPr) then
|
|
{self.}RemoveChild({self.}XmlChildCNvPr);
|
|
end
|
|
else if v is class(CNvPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCNvPr := v;
|
|
container_.Set({self.}XmlChildCNvPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CNvPr expects CNvPr or nil";
|
|
end
|
|
end;
|
|
|
|
function NvPicPr.ReadXmlChildCNvPicPr(): CNvPicPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCNvPicPr) or {self.}XmlChildCNvPicPr.Removed) then
|
|
begin
|
|
{self.}XmlChildCNvPicPr := new CNvPicPr(self, "pic", "cNvPicPr");
|
|
container_.Set({self.}XmlChildCNvPicPr);
|
|
end
|
|
return {self.}XmlChildCNvPicPr and not {self.}XmlChildCNvPicPr.Removed ? {self.}XmlChildCNvPicPr : fallback_.CNvPicPr;
|
|
end;
|
|
|
|
function NvPicPr.WriteXmlChildCNvPicPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCNvPicPr) then
|
|
{self.}RemoveChild({self.}XmlChildCNvPicPr);
|
|
end
|
|
else if v is class(CNvPicPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCNvPicPr := v;
|
|
container_.Set({self.}XmlChildCNvPicPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CNvPicPr expects CNvPicPr or nil";
|
|
end
|
|
end;
|
|
|
|
function CNvPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "pic", "cNvPr");
|
|
end;
|
|
|
|
function CNvPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function CNvPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function CNvPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"id": makeweakref(thisFunction(WriteXmlAttrId)),
|
|
"name": makeweakref(thisFunction(WriteXmlAttrName)),
|
|
"descr": makeweakref(thisFunction(WriteXmlAttrDescr)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function CNvPr.Copy(_obj: CNvPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Id) then
|
|
{self.}Id := _obj.Id;
|
|
if not ifnil(_obj.Name) then
|
|
{self.}Name := _obj.Name;
|
|
if not ifnil(_obj.Descr) then
|
|
{self.}Descr := _obj.Descr;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function CNvPr.Clone(): CNvPr;override;
|
|
begin
|
|
obj := new CNvPr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Id) then
|
|
obj.Id := {self.}Id;
|
|
if not ifnil({self.}Name) then
|
|
obj.Name := {self.}Name;
|
|
if not ifnil({self.}Descr) then
|
|
obj.Descr := {self.}Descr;
|
|
return obj;
|
|
end;
|
|
|
|
function CNvPr.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function CNvPr.ReadXmlAttrId();
|
|
begin
|
|
return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
|
|
end;
|
|
|
|
function CNvPr.WriteXmlAttrId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrId) then
|
|
begin
|
|
{self.}XmlAttrId := new OpenXmlAttribute("", "id", nil);
|
|
attributes_["id"] := {self.}XmlAttrId;
|
|
end
|
|
{self.}XmlAttrId.Value := _value;
|
|
end;
|
|
|
|
function CNvPr.ReadXmlAttrName();
|
|
begin
|
|
return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
|
|
end;
|
|
|
|
function CNvPr.WriteXmlAttrName(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrName) then
|
|
begin
|
|
{self.}XmlAttrName := new OpenXmlAttribute("", "name", nil);
|
|
attributes_["name"] := {self.}XmlAttrName;
|
|
end
|
|
{self.}XmlAttrName.Value := _value;
|
|
end;
|
|
|
|
function CNvPr.ReadXmlAttrDescr();
|
|
begin
|
|
return ifnil({self.}XmlAttrDescr.Value) ? fallback_.XmlAttrDescr.Value : {self.}XmlAttrDescr.Value;
|
|
end;
|
|
|
|
function CNvPr.WriteXmlAttrDescr(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDescr) then
|
|
begin
|
|
{self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil);
|
|
attributes_["descr"] := {self.}XmlAttrDescr;
|
|
end
|
|
{self.}XmlAttrDescr.Value := _value;
|
|
end;
|
|
|
|
function CNvPicPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "pic", "cNvPicPr");
|
|
end;
|
|
|
|
function CNvPicPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function CNvPicPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function CNvPicPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"a:picLocks": array(0, makeweakref(thisFunction(ReadXmlChildPicLocks))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function CNvPicPr.Copy(_obj: CNvPicPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildPicLocks) then
|
|
{self.}PicLocks.Copy(_obj.XmlChildPicLocks);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function CNvPicPr.Clone(): CNvPicPr;override;
|
|
begin
|
|
obj := new CNvPicPr(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:picLocks": obj.PicLocks := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function CNvPicPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPicLocks) then
|
|
{self.}XmlChildPicLocks.ConvertToPoint();
|
|
end;
|
|
|
|
function CNvPicPr.ReadXmlChildPicLocks(): PicLocks;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPicLocks) or {self.}XmlChildPicLocks.Removed) then
|
|
begin
|
|
{self.}XmlChildPicLocks := new PicLocks(self, "a", "picLocks");
|
|
container_.Set({self.}XmlChildPicLocks);
|
|
end
|
|
return {self.}XmlChildPicLocks and not {self.}XmlChildPicLocks.Removed ? {self.}XmlChildPicLocks : fallback_.PicLocks;
|
|
end;
|
|
|
|
function CNvPicPr.WriteXmlChildPicLocks(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPicLocks) then
|
|
{self.}RemoveChild({self.}XmlChildPicLocks);
|
|
end
|
|
else if v is class(PicLocks) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPicLocks := v;
|
|
container_.Set({self.}XmlChildPicLocks);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PicLocks expects PicLocks or nil";
|
|
end
|
|
end;
|
|
|
|
function PicLocks.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "picLocks");
|
|
end;
|
|
|
|
function PicLocks.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PicLocks.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PicLocks.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PicLocks.Copy(_obj: PicLocks);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.NoChangeAspect) then
|
|
{self.}NoChangeAspect := _obj.NoChangeAspect;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PicLocks.Clone(): PicLocks;override;
|
|
begin
|
|
obj := new PicLocks(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}NoChangeAspect) then
|
|
obj.NoChangeAspect := {self.}NoChangeAspect;
|
|
return obj;
|
|
end;
|
|
|
|
function PicLocks.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function PicLocks.ReadXmlAttrNoChangeAspect();
|
|
begin
|
|
return ifnil({self.}XmlAttrNoChangeAspect.Value) ? fallback_.XmlAttrNoChangeAspect.Value : {self.}XmlAttrNoChangeAspect.Value;
|
|
end;
|
|
|
|
function PicLocks.WriteXmlAttrNoChangeAspect(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrNoChangeAspect) then
|
|
begin
|
|
{self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil);
|
|
attributes_["noChangeAspect"] := {self.}XmlAttrNoChangeAspect;
|
|
end
|
|
{self.}XmlAttrNoChangeAspect.Value := _value;
|
|
end;
|
|
|
|
function BlipFill.create();overload;
|
|
begin
|
|
{self.}create(nil, "pic", "blipFill");
|
|
end;
|
|
|
|
function BlipFill.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function BlipFill.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function BlipFill.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"a:blip": array(0, makeweakref(thisFunction(ReadXmlChildBlip))),
|
|
"a:stretch": array(1, makeweakref(thisFunction(ReadXmlChildStretch))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function BlipFill.Copy(_obj: BlipFill);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildBlip) then
|
|
{self.}Blip.Copy(_obj.XmlChildBlip);
|
|
if not ifnil(_obj.XmlChildStretch) then
|
|
{self.}Stretch.Copy(_obj.XmlChildStretch);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function BlipFill.Clone(): BlipFill;override;
|
|
begin
|
|
obj := new BlipFill(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:blip": obj.Blip := element.Clone();
|
|
"a:stretch": obj.Stretch := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function BlipFill.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildBlip) then
|
|
{self.}XmlChildBlip.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildStretch) then
|
|
{self.}XmlChildStretch.ConvertToPoint();
|
|
end;
|
|
|
|
function BlipFill.ReadXmlChildBlip(): Blip;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildBlip) or {self.}XmlChildBlip.Removed) then
|
|
begin
|
|
{self.}XmlChildBlip := new Blip(self, "a", "blip");
|
|
container_.Set({self.}XmlChildBlip);
|
|
end
|
|
return {self.}XmlChildBlip and not {self.}XmlChildBlip.Removed ? {self.}XmlChildBlip : fallback_.Blip;
|
|
end;
|
|
|
|
function BlipFill.WriteXmlChildBlip(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildBlip) then
|
|
{self.}RemoveChild({self.}XmlChildBlip);
|
|
end
|
|
else if v is class(Blip) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildBlip := v;
|
|
container_.Set({self.}XmlChildBlip);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Blip expects Blip or nil";
|
|
end
|
|
end;
|
|
|
|
function BlipFill.ReadXmlChildStretch(): Stretch;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildStretch) or {self.}XmlChildStretch.Removed) then
|
|
begin
|
|
{self.}XmlChildStretch := new Stretch(self, "a", "stretch");
|
|
container_.Set({self.}XmlChildStretch);
|
|
end
|
|
return {self.}XmlChildStretch and not {self.}XmlChildStretch.Removed ? {self.}XmlChildStretch : fallback_.Stretch;
|
|
end;
|
|
|
|
function BlipFill.WriteXmlChildStretch(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildStretch) then
|
|
{self.}RemoveChild({self.}XmlChildStretch);
|
|
end
|
|
else if v is class(Stretch) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildStretch := v;
|
|
container_.Set({self.}XmlChildStretch);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Stretch expects Stretch or nil";
|
|
end
|
|
end;
|
|
|
|
function Blip.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "blip");
|
|
end;
|
|
|
|
function Blip.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Blip.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Blip.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"r:embed": makeweakref(thisFunction(WriteXmlAttrEmbed)),
|
|
"cstate": makeweakref(thisFunction(WriteXmlAttrCstate)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Blip.Copy(_obj: Blip);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Embed) then
|
|
{self.}Embed := _obj.Embed;
|
|
if not ifnil(_obj.Cstate) then
|
|
{self.}Cstate := _obj.Cstate;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Blip.Clone(): Blip;override;
|
|
begin
|
|
obj := new Blip(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Embed) then
|
|
obj.Embed := {self.}Embed;
|
|
if not ifnil({self.}Cstate) then
|
|
obj.Cstate := {self.}Cstate;
|
|
return obj;
|
|
end;
|
|
|
|
function Blip.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Blip.ReadXmlAttrEmbed();
|
|
begin
|
|
return ifnil({self.}XmlAttrEmbed.Value) ? fallback_.XmlAttrEmbed.Value : {self.}XmlAttrEmbed.Value;
|
|
end;
|
|
|
|
function Blip.WriteXmlAttrEmbed(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrEmbed) then
|
|
begin
|
|
{self.}XmlAttrEmbed := new OpenXmlAttribute("r", "embed", nil);
|
|
attributes_["r:embed"] := {self.}XmlAttrEmbed;
|
|
end
|
|
{self.}XmlAttrEmbed.Value := _value;
|
|
end;
|
|
|
|
function Blip.ReadXmlAttrCstate();
|
|
begin
|
|
return ifnil({self.}XmlAttrCstate.Value) ? fallback_.XmlAttrCstate.Value : {self.}XmlAttrCstate.Value;
|
|
end;
|
|
|
|
function Blip.WriteXmlAttrCstate(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrCstate) then
|
|
begin
|
|
{self.}XmlAttrCstate := new OpenXmlAttribute("", "cstate", nil);
|
|
attributes_["cstate"] := {self.}XmlAttrCstate;
|
|
end
|
|
{self.}XmlAttrCstate.Value := _value;
|
|
end;
|
|
|
|
function Stretch.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "stretch");
|
|
end;
|
|
|
|
function Stretch.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Stretch.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Stretch.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
"a:fillRect": array(0, makeweakref(thisFunction(ReadXmlChildFillRect))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Stretch.Copy(_obj: Stretch);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildFillRect) then
|
|
{self.}FillRect.Copy(_obj.XmlChildFillRect);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Stretch.Clone(): Stretch;override;
|
|
begin
|
|
obj := new Stretch(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:fillRect": obj.FillRect := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Stretch.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildFillRect) then
|
|
{self.}XmlChildFillRect.ConvertToPoint();
|
|
end;
|
|
|
|
function Stretch.ReadXmlChildFillRect(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildFillRect) or {self.}XmlChildFillRect.Removed) then
|
|
begin
|
|
{self.}XmlChildFillRect := new PureVal(self, "a", "fillRect");
|
|
container_.Set({self.}XmlChildFillRect);
|
|
end
|
|
return {self.}XmlChildFillRect and not {self.}XmlChildFillRect.Removed ? {self.}XmlChildFillRect : fallback_.FillRect;
|
|
end;
|
|
|
|
function Stretch.WriteXmlChildFillRect(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildFillRect) then
|
|
{self.}RemoveChild({self.}XmlChildFillRect);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildFillRect := v;
|
|
container_.Set({self.}XmlChildFillRect);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: FillRect expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function SpPr.create();overload;
|
|
begin
|
|
{self.}create(nil, "pic", "spPr");
|
|
end;
|
|
|
|
function SpPr.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SpPr.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SpPr.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"bwMode": makeweakref(thisFunction(WriteXmlAttrBwMode)),
|
|
);
|
|
sorted_child_ := array(
|
|
"a:xfrm": array(0, makeweakref(thisFunction(ReadXmlChildXfrm))),
|
|
"a:prstGeom": array(1, makeweakref(thisFunction(ReadXmlChildPrstGeom))),
|
|
"a:noFill": array(2, makeweakref(thisFunction(ReadXmlChildNoFill))),
|
|
"a:solidFill": array(3, makeweakref(thisFunction(ReadXmlChildSolidFill))),
|
|
"a:ln": array(4, makeweakref(thisFunction(ReadXmlChildLn))),
|
|
"a:effectLst": array(5, makeweakref(thisFunction(ReadXmlChildEffectLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SpPr.Copy(_obj: SpPr);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.BwMode) then
|
|
{self.}BwMode := _obj.BwMode;
|
|
if not ifnil(_obj.XmlChildXfrm) then
|
|
{self.}Xfrm.Copy(_obj.XmlChildXfrm);
|
|
if not ifnil(_obj.XmlChildPrstGeom) then
|
|
{self.}PrstGeom.Copy(_obj.XmlChildPrstGeom);
|
|
if not ifnil(_obj.XmlChildNoFill) then
|
|
ifnil({self.}XmlChildNoFill) ? {self.}NoFill.Copy(_obj.XmlChildNoFill) : {self.}XmlChildNoFill.Copy(_obj.XmlChildNoFill);
|
|
if not ifnil(_obj.XmlChildSolidFill) then
|
|
{self.}SolidFill.Copy(_obj.XmlChildSolidFill);
|
|
if not ifnil(_obj.XmlChildLn) then
|
|
{self.}Ln.Copy(_obj.XmlChildLn);
|
|
if not ifnil(_obj.XmlChildEffectLst) then
|
|
{self.}EffectLst.Copy(_obj.XmlChildEffectLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SpPr.Clone(): SpPr;override;
|
|
begin
|
|
obj := new SpPr(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}BwMode) then
|
|
obj.BwMode := {self.}BwMode;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
"a:xfrm": obj.Xfrm := element.Clone();
|
|
"a:prstGeom": obj.PrstGeom := element.Clone();
|
|
"a:noFill": obj.NoFill := element.Clone();
|
|
"a:solidFill": obj.SolidFill := element.Clone();
|
|
"a:ln": obj.Ln := element.Clone();
|
|
"a:effectLst": obj.EffectLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function SpPr.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildXfrm) then
|
|
{self.}XmlChildXfrm.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildPrstGeom) then
|
|
{self.}XmlChildPrstGeom.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSolidFill) then
|
|
{self.}XmlChildSolidFill.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildLn) then
|
|
{self.}XmlChildLn.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEffectLst) then
|
|
{self.}XmlChildEffectLst.ConvertToPoint();
|
|
end;
|
|
|
|
function SpPr.ReadXmlAttrBwMode();
|
|
begin
|
|
return ifnil({self.}XmlAttrBwMode.Value) ? fallback_.XmlAttrBwMode.Value : {self.}XmlAttrBwMode.Value;
|
|
end;
|
|
|
|
function SpPr.WriteXmlAttrBwMode(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrBwMode) then
|
|
begin
|
|
{self.}XmlAttrBwMode := new OpenXmlAttribute("", "bwMode", nil);
|
|
attributes_["bwMode"] := {self.}XmlAttrBwMode;
|
|
end
|
|
{self.}XmlAttrBwMode.Value := _value;
|
|
end;
|
|
|
|
function SpPr.ReadXmlChildNoFill();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNoFill) or {self.}XmlChildNoFill.Removed) then
|
|
begin
|
|
{self.}XmlChildNoFill := new OpenXmlSimpleType(self, "a", "noFill");
|
|
container_.Set({self.}XmlChildNoFill);
|
|
end
|
|
return {self.}XmlChildNoFill and not {self.}XmlChildNoFill.Removed ? {self.}XmlChildNoFill : fallback_.NoFill;
|
|
end;
|
|
|
|
function SpPr.WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildNoFill) then
|
|
{self.}RemoveChild({self.}XmlChildNoFill);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildNoFill := _value;
|
|
container_.Set({self.}XmlChildNoFill);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NoFill expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function SpPr.ReadXmlChildXfrm(): Xfrm;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildXfrm) or {self.}XmlChildXfrm.Removed) then
|
|
begin
|
|
{self.}XmlChildXfrm := new Xfrm(self, "a", "xfrm");
|
|
container_.Set({self.}XmlChildXfrm);
|
|
end
|
|
return {self.}XmlChildXfrm and not {self.}XmlChildXfrm.Removed ? {self.}XmlChildXfrm : fallback_.Xfrm;
|
|
end;
|
|
|
|
function SpPr.WriteXmlChildXfrm(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildXfrm) then
|
|
{self.}RemoveChild({self.}XmlChildXfrm);
|
|
end
|
|
else if v is class(Xfrm) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildXfrm := v;
|
|
container_.Set({self.}XmlChildXfrm);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Xfrm expects Xfrm or nil";
|
|
end
|
|
end;
|
|
|
|
function SpPr.ReadXmlChildPrstGeom(): PrstGeom;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPrstGeom) or {self.}XmlChildPrstGeom.Removed) then
|
|
begin
|
|
{self.}XmlChildPrstGeom := new PrstGeom(self, "a", "prstGeom");
|
|
container_.Set({self.}XmlChildPrstGeom);
|
|
end
|
|
return {self.}XmlChildPrstGeom and not {self.}XmlChildPrstGeom.Removed ? {self.}XmlChildPrstGeom : fallback_.PrstGeom;
|
|
end;
|
|
|
|
function SpPr.WriteXmlChildPrstGeom(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPrstGeom) then
|
|
{self.}RemoveChild({self.}XmlChildPrstGeom);
|
|
end
|
|
else if v is class(PrstGeom) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPrstGeom := v;
|
|
container_.Set({self.}XmlChildPrstGeom);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PrstGeom expects PrstGeom or nil";
|
|
end
|
|
end;
|
|
|
|
function SpPr.ReadXmlChildSolidFill(): SolidFill;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSolidFill) or {self.}XmlChildSolidFill.Removed) then
|
|
begin
|
|
{self.}XmlChildSolidFill := new SolidFill(self, "a", "solidFill");
|
|
container_.Set({self.}XmlChildSolidFill);
|
|
end
|
|
return {self.}XmlChildSolidFill and not {self.}XmlChildSolidFill.Removed ? {self.}XmlChildSolidFill : fallback_.SolidFill;
|
|
end;
|
|
|
|
function SpPr.WriteXmlChildSolidFill(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSolidFill) then
|
|
{self.}RemoveChild({self.}XmlChildSolidFill);
|
|
end
|
|
else if v is class(SolidFill) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSolidFill := v;
|
|
container_.Set({self.}XmlChildSolidFill);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SolidFill expects SolidFill or nil";
|
|
end
|
|
end;
|
|
|
|
function SpPr.ReadXmlChildLn(): Ln;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildLn) or {self.}XmlChildLn.Removed) then
|
|
begin
|
|
{self.}XmlChildLn := new Ln(self, "a", "ln");
|
|
container_.Set({self.}XmlChildLn);
|
|
end
|
|
return {self.}XmlChildLn and not {self.}XmlChildLn.Removed ? {self.}XmlChildLn : fallback_.Ln;
|
|
end;
|
|
|
|
function SpPr.WriteXmlChildLn(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildLn) then
|
|
{self.}RemoveChild({self.}XmlChildLn);
|
|
end
|
|
else if v is class(Ln) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildLn := v;
|
|
container_.Set({self.}XmlChildLn);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Ln expects Ln or nil";
|
|
end
|
|
end;
|
|
|
|
function SpPr.ReadXmlChildEffectLst(): EffectLst;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEffectLst) or {self.}XmlChildEffectLst.Removed) then
|
|
begin
|
|
{self.}XmlChildEffectLst := new EffectLst(self, "a", "effectLst");
|
|
container_.Set({self.}XmlChildEffectLst);
|
|
end
|
|
return {self.}XmlChildEffectLst and not {self.}XmlChildEffectLst.Removed ? {self.}XmlChildEffectLst : fallback_.EffectLst;
|
|
end;
|
|
|
|
function SpPr.WriteXmlChildEffectLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEffectLst) then
|
|
{self.}RemoveChild({self.}XmlChildEffectLst);
|
|
end
|
|
else if v is class(EffectLst) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEffectLst := v;
|
|
container_.Set({self.}XmlChildEffectLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EffectLst expects EffectLst or nil";
|
|
end
|
|
end;
|
|
|
|
function EffectLst.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "effectLst");
|
|
end;
|
|
|
|
function EffectLst.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function EffectLst.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function EffectLst.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "outerShdw": array(0, makeweakref(thisFunction(ReadXmlChildOuterShdw))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function EffectLst.Copy(_obj: EffectLst);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.XmlChildOuterShdw) then
|
|
{self.}OuterShdw.Copy(_obj.XmlChildOuterShdw);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function EffectLst.Clone(): EffectLst;override;
|
|
begin
|
|
obj := new EffectLst(nil, {self.}Prefix, {self.}LocalName);
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "outerShdw": obj.OuterShdw := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function EffectLst.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildOuterShdw) then
|
|
{self.}XmlChildOuterShdw.ConvertToPoint();
|
|
end;
|
|
|
|
function EffectLst.ReadXmlChildOuterShdw(): OuterShdw;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildOuterShdw) or {self.}XmlChildOuterShdw.Removed) then
|
|
begin
|
|
{self.}XmlChildOuterShdw := new OuterShdw(self, {self.}Prefix, "outerShdw");
|
|
container_.Set({self.}XmlChildOuterShdw);
|
|
end
|
|
return {self.}XmlChildOuterShdw and not {self.}XmlChildOuterShdw.Removed ? {self.}XmlChildOuterShdw : fallback_.OuterShdw;
|
|
end;
|
|
|
|
function EffectLst.WriteXmlChildOuterShdw(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildOuterShdw) then
|
|
{self.}RemoveChild({self.}XmlChildOuterShdw);
|
|
end
|
|
else if v is class(OuterShdw) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildOuterShdw := v;
|
|
container_.Set({self.}XmlChildOuterShdw);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: OuterShdw expects OuterShdw or nil";
|
|
end
|
|
end;
|
|
|
|
function Ln.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "ln");
|
|
end;
|
|
|
|
function Ln.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Ln.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Ln.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"w": makeweakref(thisFunction(WriteXmlAttrW)),
|
|
"cap": makeweakref(thisFunction(WriteXmlAttrCap)),
|
|
"cmpd": makeweakref(thisFunction(WriteXmlAttrCmpd)),
|
|
"algn": makeweakref(thisFunction(WriteXmlAttrAlgn)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "noFill": array(0, makeweakref(thisFunction(ReadXmlChildNoFill))),
|
|
pre + "solidFill": array(1, makeweakref(thisFunction(ReadXmlChildSolidFill))),
|
|
pre + "prstDash": array(2, makeweakref(thisFunction(ReadXmlChildPrstDash))),
|
|
pre + "miter": array(3, makeweakref(thisFunction(ReadXmlChildMiter))),
|
|
pre + "headEnd": array(4, makeweakref(thisFunction(ReadXmlChildHeadEnd))),
|
|
pre + "tailEnd": array(5, makeweakref(thisFunction(ReadXmlChildTailEnd))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Ln.Copy(_obj: Ln);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.W) then
|
|
{self.}W := _obj.W;
|
|
if not ifnil(_obj.Cap) then
|
|
{self.}Cap := _obj.Cap;
|
|
if not ifnil(_obj.Cmpd) then
|
|
{self.}Cmpd := _obj.Cmpd;
|
|
if not ifnil(_obj.Algn) then
|
|
{self.}Algn := _obj.Algn;
|
|
if not ifnil(_obj.XmlChildNoFill) then
|
|
ifnil({self.}XmlChildNoFill) ? {self.}NoFill.Copy(_obj.XmlChildNoFill) : {self.}XmlChildNoFill.Copy(_obj.XmlChildNoFill);
|
|
if not ifnil(_obj.XmlChildSolidFill) then
|
|
{self.}SolidFill.Copy(_obj.XmlChildSolidFill);
|
|
if not ifnil(_obj.XmlChildPrstDash) then
|
|
{self.}PrstDash.Copy(_obj.XmlChildPrstDash);
|
|
if not ifnil(_obj.XmlChildMiter) then
|
|
{self.}Miter.Copy(_obj.XmlChildMiter);
|
|
if not ifnil(_obj.XmlChildHeadEnd) then
|
|
ifnil({self.}XmlChildHeadEnd) ? {self.}HeadEnd.Copy(_obj.XmlChildHeadEnd) : {self.}XmlChildHeadEnd.Copy(_obj.XmlChildHeadEnd);
|
|
if not ifnil(_obj.XmlChildTailEnd) then
|
|
ifnil({self.}XmlChildTailEnd) ? {self.}TailEnd.Copy(_obj.XmlChildTailEnd) : {self.}XmlChildTailEnd.Copy(_obj.XmlChildTailEnd);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Ln.Clone(): Ln;override;
|
|
begin
|
|
obj := new Ln(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}W) then
|
|
obj.W := {self.}W;
|
|
if not ifnil({self.}Cap) then
|
|
obj.Cap := {self.}Cap;
|
|
if not ifnil({self.}Cmpd) then
|
|
obj.Cmpd := {self.}Cmpd;
|
|
if not ifnil({self.}Algn) then
|
|
obj.Algn := {self.}Algn;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "noFill": obj.NoFill := element.Clone();
|
|
pre + "solidFill": obj.SolidFill := element.Clone();
|
|
pre + "prstDash": obj.PrstDash := element.Clone();
|
|
pre + "miter": obj.Miter := element.Clone();
|
|
pre + "headEnd": obj.HeadEnd := element.Clone();
|
|
pre + "tailEnd": obj.TailEnd := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Ln.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSolidFill) then
|
|
{self.}XmlChildSolidFill.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildPrstDash) then
|
|
{self.}XmlChildPrstDash.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildMiter) then
|
|
{self.}XmlChildMiter.ConvertToPoint();
|
|
end;
|
|
|
|
function Ln.ReadXmlAttrW();
|
|
begin
|
|
return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value;
|
|
end;
|
|
|
|
function Ln.WriteXmlAttrW(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrW) then
|
|
begin
|
|
{self.}XmlAttrW := new OpenXmlAttribute("", "w", nil);
|
|
attributes_["w"] := {self.}XmlAttrW;
|
|
end
|
|
{self.}XmlAttrW.Value := _value;
|
|
end;
|
|
|
|
function Ln.ReadXmlAttrCap();
|
|
begin
|
|
return ifnil({self.}XmlAttrCap.Value) ? fallback_.XmlAttrCap.Value : {self.}XmlAttrCap.Value;
|
|
end;
|
|
|
|
function Ln.WriteXmlAttrCap(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrCap) then
|
|
begin
|
|
{self.}XmlAttrCap := new OpenXmlAttribute("", "cap", nil);
|
|
attributes_["cap"] := {self.}XmlAttrCap;
|
|
end
|
|
{self.}XmlAttrCap.Value := _value;
|
|
end;
|
|
|
|
function Ln.ReadXmlAttrCmpd();
|
|
begin
|
|
return ifnil({self.}XmlAttrCmpd.Value) ? fallback_.XmlAttrCmpd.Value : {self.}XmlAttrCmpd.Value;
|
|
end;
|
|
|
|
function Ln.WriteXmlAttrCmpd(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrCmpd) then
|
|
begin
|
|
{self.}XmlAttrCmpd := new OpenXmlAttribute("", "cmpd", nil);
|
|
attributes_["cmpd"] := {self.}XmlAttrCmpd;
|
|
end
|
|
{self.}XmlAttrCmpd.Value := _value;
|
|
end;
|
|
|
|
function Ln.ReadXmlAttrAlgn();
|
|
begin
|
|
return ifnil({self.}XmlAttrAlgn.Value) ? fallback_.XmlAttrAlgn.Value : {self.}XmlAttrAlgn.Value;
|
|
end;
|
|
|
|
function Ln.WriteXmlAttrAlgn(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAlgn) then
|
|
begin
|
|
{self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil);
|
|
attributes_["algn"] := {self.}XmlAttrAlgn;
|
|
end
|
|
{self.}XmlAttrAlgn.Value := _value;
|
|
end;
|
|
|
|
function Ln.ReadXmlChildNoFill();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildNoFill) or {self.}XmlChildNoFill.Removed) then
|
|
begin
|
|
{self.}XmlChildNoFill := new OpenXmlSimpleType(self, {self.}Prefix, "noFill");
|
|
container_.Set({self.}XmlChildNoFill);
|
|
end
|
|
return {self.}XmlChildNoFill and not {self.}XmlChildNoFill.Removed ? {self.}XmlChildNoFill : fallback_.NoFill;
|
|
end;
|
|
|
|
function Ln.WriteXmlChildNoFill(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildNoFill) then
|
|
{self.}RemoveChild({self.}XmlChildNoFill);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildNoFill := _value;
|
|
container_.Set({self.}XmlChildNoFill);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: NoFill expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Ln.ReadXmlChildHeadEnd();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildHeadEnd) or {self.}XmlChildHeadEnd.Removed) then
|
|
begin
|
|
{self.}XmlChildHeadEnd := new OpenXmlSimpleType(self, {self.}Prefix, "headEnd");
|
|
container_.Set({self.}XmlChildHeadEnd);
|
|
end
|
|
return {self.}XmlChildHeadEnd and not {self.}XmlChildHeadEnd.Removed ? {self.}XmlChildHeadEnd : fallback_.HeadEnd;
|
|
end;
|
|
|
|
function Ln.WriteXmlChildHeadEnd(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildHeadEnd) then
|
|
{self.}RemoveChild({self.}XmlChildHeadEnd);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildHeadEnd := _value;
|
|
container_.Set({self.}XmlChildHeadEnd);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: HeadEnd expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Ln.ReadXmlChildTailEnd();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildTailEnd) or {self.}XmlChildTailEnd.Removed) then
|
|
begin
|
|
{self.}XmlChildTailEnd := new OpenXmlSimpleType(self, {self.}Prefix, "tailEnd");
|
|
container_.Set({self.}XmlChildTailEnd);
|
|
end
|
|
return {self.}XmlChildTailEnd and not {self.}XmlChildTailEnd.Removed ? {self.}XmlChildTailEnd : fallback_.TailEnd;
|
|
end;
|
|
|
|
function Ln.WriteXmlChildTailEnd(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildTailEnd) then
|
|
{self.}RemoveChild({self.}XmlChildTailEnd);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildTailEnd := _value;
|
|
container_.Set({self.}XmlChildTailEnd);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: TailEnd expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Ln.ReadXmlChildSolidFill(): SolidFill;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSolidFill) or {self.}XmlChildSolidFill.Removed) then
|
|
begin
|
|
{self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill");
|
|
container_.Set({self.}XmlChildSolidFill);
|
|
end
|
|
return {self.}XmlChildSolidFill and not {self.}XmlChildSolidFill.Removed ? {self.}XmlChildSolidFill : fallback_.SolidFill;
|
|
end;
|
|
|
|
function Ln.WriteXmlChildSolidFill(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSolidFill) then
|
|
{self.}RemoveChild({self.}XmlChildSolidFill);
|
|
end
|
|
else if v is class(SolidFill) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSolidFill := v;
|
|
container_.Set({self.}XmlChildSolidFill);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SolidFill expects SolidFill or nil";
|
|
end
|
|
end;
|
|
|
|
function Ln.ReadXmlChildPrstDash(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPrstDash) or {self.}XmlChildPrstDash.Removed) then
|
|
begin
|
|
{self.}XmlChildPrstDash := new PureVal(self, {self.}Prefix, "prstDash");
|
|
container_.Set({self.}XmlChildPrstDash);
|
|
end
|
|
return {self.}XmlChildPrstDash and not {self.}XmlChildPrstDash.Removed ? {self.}XmlChildPrstDash : fallback_.PrstDash;
|
|
end;
|
|
|
|
function Ln.WriteXmlChildPrstDash(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPrstDash) then
|
|
{self.}RemoveChild({self.}XmlChildPrstDash);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPrstDash := v;
|
|
container_.Set({self.}XmlChildPrstDash);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PrstDash expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Ln.ReadXmlChildMiter(): Miter;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildMiter) or {self.}XmlChildMiter.Removed) then
|
|
begin
|
|
{self.}XmlChildMiter := new Miter(self, {self.}Prefix, "miter");
|
|
container_.Set({self.}XmlChildMiter);
|
|
end
|
|
return {self.}XmlChildMiter and not {self.}XmlChildMiter.Removed ? {self.}XmlChildMiter : fallback_.Miter;
|
|
end;
|
|
|
|
function Ln.WriteXmlChildMiter(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildMiter) then
|
|
{self.}RemoveChild({self.}XmlChildMiter);
|
|
end
|
|
else if v is class(Miter) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildMiter := v;
|
|
container_.Set({self.}XmlChildMiter);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Miter expects Miter or nil";
|
|
end
|
|
end;
|
|
|
|
function Miter.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "miter");
|
|
end;
|
|
|
|
function Miter.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Miter.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Miter.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"lim": makeweakref(thisFunction(WriteXmlAttrLim)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Miter.Copy(_obj: Miter);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Lim) then
|
|
{self.}Lim := _obj.Lim;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Miter.Clone(): Miter;override;
|
|
begin
|
|
obj := new Miter(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Lim) then
|
|
obj.Lim := {self.}Lim;
|
|
return obj;
|
|
end;
|
|
|
|
function Miter.ConvertToPoint();override;
|
|
begin
|
|
|
|
end;
|
|
|
|
function Miter.ReadXmlAttrLim();
|
|
begin
|
|
return ifnil({self.}XmlAttrLim.Value) ? fallback_.XmlAttrLim.Value : {self.}XmlAttrLim.Value;
|
|
end;
|
|
|
|
function Miter.WriteXmlAttrLim(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrLim) then
|
|
begin
|
|
{self.}XmlAttrLim := new OpenXmlAttribute("", "lim", nil);
|
|
attributes_["lim"] := {self.}XmlAttrLim;
|
|
end
|
|
{self.}XmlAttrLim.Value := _value;
|
|
end;
|
|
|
|
function Xfrm.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "xfrm");
|
|
end;
|
|
|
|
function Xfrm.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Xfrm.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Xfrm.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"filpH": makeweakref(thisFunction(WriteXmlAttrFlipH)),
|
|
"filpV": makeweakref(thisFunction(WriteXmlAttrFlipV)),
|
|
"rot": makeweakref(thisFunction(WriteXmlAttrRot)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "off": array(0, makeweakref(thisFunction(ReadXmlChildOff))),
|
|
pre + "ext": array(1, makeweakref(thisFunction(ReadXmlChildExt))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Xfrm.Copy(_obj: Xfrm);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.FlipH) then
|
|
{self.}FlipH := _obj.FlipH;
|
|
if not ifnil(_obj.FlipV) then
|
|
{self.}FlipV := _obj.FlipV;
|
|
if not ifnil(_obj.Rot) then
|
|
{self.}Rot := _obj.Rot;
|
|
if not ifnil(_obj.XmlChildOff) then
|
|
{self.}Off.Copy(_obj.XmlChildOff);
|
|
if not ifnil(_obj.XmlChildExt) then
|
|
{self.}Ext.Copy(_obj.XmlChildExt);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Xfrm.Clone(): Xfrm;override;
|
|
begin
|
|
obj := new Xfrm(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}FlipH) then
|
|
obj.FlipH := {self.}FlipH;
|
|
if not ifnil({self.}FlipV) then
|
|
obj.FlipV := {self.}FlipV;
|
|
if not ifnil({self.}Rot) then
|
|
obj.Rot := {self.}Rot;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "off": obj.Off := element.Clone();
|
|
pre + "ext": obj.Ext := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Xfrm.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildOff) then
|
|
{self.}XmlChildOff.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildExt) then
|
|
{self.}XmlChildExt.ConvertToPoint();
|
|
end;
|
|
|
|
function Xfrm.ReadXmlAttrFlipH();
|
|
begin
|
|
return ifnil({self.}XmlAttrFlipH.Value) ? fallback_.XmlAttrFlipH.Value : {self.}XmlAttrFlipH.Value;
|
|
end;
|
|
|
|
function Xfrm.WriteXmlAttrFlipH(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrFlipH) then
|
|
begin
|
|
{self.}XmlAttrFlipH := new OpenXmlAttribute("", "filpH", nil);
|
|
attributes_["filpH"] := {self.}XmlAttrFlipH;
|
|
end
|
|
{self.}XmlAttrFlipH.Value := _value;
|
|
end;
|
|
|
|
function Xfrm.ReadXmlAttrFlipV();
|
|
begin
|
|
return ifnil({self.}XmlAttrFlipV.Value) ? fallback_.XmlAttrFlipV.Value : {self.}XmlAttrFlipV.Value;
|
|
end;
|
|
|
|
function Xfrm.WriteXmlAttrFlipV(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrFlipV) then
|
|
begin
|
|
{self.}XmlAttrFlipV := new OpenXmlAttribute("", "filpV", nil);
|
|
attributes_["filpV"] := {self.}XmlAttrFlipV;
|
|
end
|
|
{self.}XmlAttrFlipV.Value := _value;
|
|
end;
|
|
|
|
function Xfrm.ReadXmlAttrRot();
|
|
begin
|
|
return ifnil({self.}XmlAttrRot.Value) ? fallback_.XmlAttrRot.Value : {self.}XmlAttrRot.Value;
|
|
end;
|
|
|
|
function Xfrm.WriteXmlAttrRot(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRot) then
|
|
begin
|
|
{self.}XmlAttrRot := new OpenXmlAttribute("", "rot", nil);
|
|
attributes_["rot"] := {self.}XmlAttrRot;
|
|
end
|
|
{self.}XmlAttrRot.Value := _value;
|
|
end;
|
|
|
|
function Xfrm.ReadXmlChildOff(): XY;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildOff) or {self.}XmlChildOff.Removed) then
|
|
begin
|
|
{self.}XmlChildOff := new XY(self, {self.}Prefix, "off");
|
|
container_.Set({self.}XmlChildOff);
|
|
end
|
|
return {self.}XmlChildOff and not {self.}XmlChildOff.Removed ? {self.}XmlChildOff : fallback_.Off;
|
|
end;
|
|
|
|
function Xfrm.WriteXmlChildOff(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildOff) then
|
|
{self.}RemoveChild({self.}XmlChildOff);
|
|
end
|
|
else if v is class(XY) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildOff := v;
|
|
container_.Set({self.}XmlChildOff);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Off expects XY or nil";
|
|
end
|
|
end;
|
|
|
|
function Xfrm.ReadXmlChildExt(): CXY;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExt) or {self.}XmlChildExt.Removed) then
|
|
begin
|
|
{self.}XmlChildExt := new CXY(self, {self.}Prefix, "ext");
|
|
container_.Set({self.}XmlChildExt);
|
|
end
|
|
return {self.}XmlChildExt and not {self.}XmlChildExt.Removed ? {self.}XmlChildExt : fallback_.Ext;
|
|
end;
|
|
|
|
function Xfrm.WriteXmlChildExt(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExt) then
|
|
{self.}RemoveChild({self.}XmlChildExt);
|
|
end
|
|
else if v is class(CXY) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExt := v;
|
|
container_.Set({self.}XmlChildExt);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Ext expects CXY or nil";
|
|
end
|
|
end;
|
|
|
|
function XY.create();overload;
|
|
begin
|
|
{self.}create(nil, "", "");
|
|
end;
|
|
|
|
function XY.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function XY.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function XY.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"x": makeweakref(thisFunction(WriteXmlAttrX)),
|
|
"y": makeweakref(thisFunction(WriteXmlAttrY)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function XY.Copy(_obj: XY);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.X) then
|
|
{self.}X := _obj.X;
|
|
if not ifnil(_obj.Y) then
|
|
{self.}Y := _obj.Y;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function XY.Clone(): XY;override;
|
|
begin
|
|
obj := new XY(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}X) then
|
|
obj.X := {self.}X;
|
|
if not ifnil({self.}Y) then
|
|
obj.Y := {self.}Y;
|
|
return obj;
|
|
end;
|
|
|
|
function XY.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlAttrX) then
|
|
{self.}X := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrX.Value);
|
|
if not ifnil({self.}XmlAttrY) then
|
|
{self.}Y := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrY.Value);
|
|
end;
|
|
|
|
function XY.ReadXmlAttrX();
|
|
begin
|
|
return ifnil({self.}XmlAttrX.Value) ? fallback_.XmlAttrX.Value : {self.}XmlAttrX.Value;
|
|
end;
|
|
|
|
function XY.WriteXmlAttrX(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrX) then
|
|
begin
|
|
{self.}XmlAttrX := new OpenXmlAttribute("", "x", nil);
|
|
attributes_["x"] := {self.}XmlAttrX;
|
|
end
|
|
{self.}XmlAttrX.Value := _value;
|
|
end;
|
|
|
|
function XY.ReadXmlAttrY();
|
|
begin
|
|
return ifnil({self.}XmlAttrY.Value) ? fallback_.XmlAttrY.Value : {self.}XmlAttrY.Value;
|
|
end;
|
|
|
|
function XY.WriteXmlAttrY(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrY) then
|
|
begin
|
|
{self.}XmlAttrY := new OpenXmlAttribute("", "y", nil);
|
|
attributes_["y"] := {self.}XmlAttrY;
|
|
end
|
|
{self.}XmlAttrY.Value := _value;
|
|
end;
|
|
|
|
function CXY.create();overload;
|
|
begin
|
|
{self.}create(nil, "", "");
|
|
end;
|
|
|
|
function CXY.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function CXY.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function CXY.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"cx": makeweakref(thisFunction(WriteXmlAttrCx)),
|
|
"cy": makeweakref(thisFunction(WriteXmlAttrCy)),
|
|
);
|
|
sorted_child_ := array(
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function CXY.Copy(_obj: CXY);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Cx) then
|
|
{self.}Cx := _obj.Cx;
|
|
if not ifnil(_obj.Cy) then
|
|
{self.}Cy := _obj.Cy;
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function CXY.Clone(): CXY;override;
|
|
begin
|
|
obj := new CXY(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Cx) then
|
|
obj.Cx := {self.}Cx;
|
|
if not ifnil({self.}Cy) then
|
|
obj.Cy := {self.}Cy;
|
|
return obj;
|
|
end;
|
|
|
|
function CXY.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlAttrCx) then
|
|
{self.}Cx := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrCx.Value);
|
|
if not ifnil({self.}XmlAttrCy) then
|
|
{self.}Cy := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrCy.Value);
|
|
end;
|
|
|
|
function CXY.ReadXmlAttrCx();
|
|
begin
|
|
return ifnil({self.}XmlAttrCx.Value) ? fallback_.XmlAttrCx.Value : {self.}XmlAttrCx.Value;
|
|
end;
|
|
|
|
function CXY.WriteXmlAttrCx(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrCx) then
|
|
begin
|
|
{self.}XmlAttrCx := new OpenXmlAttribute("", "cx", nil);
|
|
attributes_["cx"] := {self.}XmlAttrCx;
|
|
end
|
|
{self.}XmlAttrCx.Value := _value;
|
|
end;
|
|
|
|
function CXY.ReadXmlAttrCy();
|
|
begin
|
|
return ifnil({self.}XmlAttrCy.Value) ? fallback_.XmlAttrCy.Value : {self.}XmlAttrCy.Value;
|
|
end;
|
|
|
|
function CXY.WriteXmlAttrCy(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrCy) then
|
|
begin
|
|
{self.}XmlAttrCy := new OpenXmlAttribute("", "cy", nil);
|
|
attributes_["cy"] := {self.}XmlAttrCy;
|
|
end
|
|
{self.}XmlAttrCy.Value := _value;
|
|
end;
|
|
|
|
function PrstGeom.create();overload;
|
|
begin
|
|
{self.}create(nil, "a", "prstGeom");
|
|
end;
|
|
|
|
function PrstGeom.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PrstGeom.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PrstGeom.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"prst": makeweakref(thisFunction(WriteXmlAttrPrst)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PrstGeom.Copy(_obj: PrstGeom);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.Prst) then
|
|
{self.}Prst := _obj.Prst;
|
|
if not ifnil(_obj.XmlChildAvLst) then
|
|
{self.}AvLst.Copy(_obj.XmlChildAvLst);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PrstGeom.Clone(): PrstGeom;override;
|
|
begin
|
|
obj := new PrstGeom(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}Prst) then
|
|
obj.Prst := {self.}Prst;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "avLst": obj.AvLst := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function PrstGeom.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildAvLst) then
|
|
{self.}XmlChildAvLst.ConvertToPoint();
|
|
end;
|
|
|
|
function PrstGeom.ReadXmlAttrPrst();
|
|
begin
|
|
return ifnil({self.}XmlAttrPrst.Value) ? fallback_.XmlAttrPrst.Value : {self.}XmlAttrPrst.Value;
|
|
end;
|
|
|
|
function PrstGeom.WriteXmlAttrPrst(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrPrst) then
|
|
begin
|
|
{self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil);
|
|
attributes_["prst"] := {self.}XmlAttrPrst;
|
|
end
|
|
{self.}XmlAttrPrst.Value := _value;
|
|
end;
|
|
|
|
function PrstGeom.ReadXmlChildAvLst(): PureVal;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildAvLst) or {self.}XmlChildAvLst.Removed) then
|
|
begin
|
|
{self.}XmlChildAvLst := new PureVal(self, {self.}Prefix, "avLst");
|
|
container_.Set({self.}XmlChildAvLst);
|
|
end
|
|
return {self.}XmlChildAvLst and not {self.}XmlChildAvLst.Removed ? {self.}XmlChildAvLst : fallback_.AvLst;
|
|
end;
|
|
|
|
function PrstGeom.WriteXmlChildAvLst(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildAvLst) then
|
|
{self.}RemoveChild({self.}XmlChildAvLst);
|
|
end
|
|
else if v is class(PureVal) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildAvLst := v;
|
|
container_.Set({self.}XmlChildAvLst);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: AvLst expects PureVal or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp", "anchor");
|
|
end;
|
|
|
|
function Anchor.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function Anchor.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function Anchor.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"distT": makeweakref(thisFunction(WriteXmlAttrDistT)),
|
|
"distB": makeweakref(thisFunction(WriteXmlAttrDistB)),
|
|
"distL": makeweakref(thisFunction(WriteXmlAttrDistL)),
|
|
"distR": makeweakref(thisFunction(WriteXmlAttrDistR)),
|
|
"simplePos": makeweakref(thisFunction(WriteXmlAttrSimplePos)),
|
|
"relativeHeight": makeweakref(thisFunction(WriteXmlAttrRelativeHeight)),
|
|
"behindDoc": makeweakref(thisFunction(WriteXmlAttrBehindDoc)),
|
|
"locked": makeweakref(thisFunction(WriteXmlAttrLocked)),
|
|
"hidden": makeweakref(thisFunction(WriteXmlAttrHidden)),
|
|
"layoutInCell": makeweakref(thisFunction(WriteXmlAttrLayoutInCell)),
|
|
"allowOverlap": makeweakref(thisFunction(WriteXmlAttrAllowOverlap)),
|
|
"wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)),
|
|
"wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "simplePos": array(0, makeweakref(thisFunction(ReadXmlChildSimplePos))),
|
|
pre + "positionH": array(1, makeweakref(thisFunction(ReadXmlChildPositionH))),
|
|
pre + "positionV": array(2, makeweakref(thisFunction(ReadXmlChildPositionV))),
|
|
pre + "extent": array(3, makeweakref(thisFunction(ReadXmlChildExtent))),
|
|
pre + "effectExtent": array(4, makeweakref(thisFunction(ReadXmlChildEffectExtent))),
|
|
pre + "wrapNone": array(5, makeweakref(thisFunction(ReadXmlChildWrapNone))),
|
|
pre + "docPr": array(6, makeweakref(thisFunction(ReadXmlChildDocPr))),
|
|
pre + "cNvGraphicFramePr": array(7, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))),
|
|
"a:graphic": array(8, makeweakref(thisFunction(ReadXmlChildGraphic))),
|
|
"wp14:sizeRelH": array(9, makeweakref(thisFunction(ReadXmlChildSizeRelH))),
|
|
"wp14:sizeRelV": array(10, makeweakref(thisFunction(ReadXmlChildSizeRelV))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function Anchor.Copy(_obj: Anchor);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.DistT) then
|
|
{self.}DistT := _obj.DistT;
|
|
if not ifnil(_obj.DistB) then
|
|
{self.}DistB := _obj.DistB;
|
|
if not ifnil(_obj.DistL) then
|
|
{self.}DistL := _obj.DistL;
|
|
if not ifnil(_obj.DistR) then
|
|
{self.}DistR := _obj.DistR;
|
|
if not ifnil(_obj.SimplePos) then
|
|
{self.}SimplePos := _obj.SimplePos;
|
|
if not ifnil(_obj.RelativeHeight) then
|
|
{self.}RelativeHeight := _obj.RelativeHeight;
|
|
if not ifnil(_obj.BehindDoc) then
|
|
{self.}BehindDoc := _obj.BehindDoc;
|
|
if not ifnil(_obj.Locked) then
|
|
{self.}Locked := _obj.Locked;
|
|
if not ifnil(_obj.Hidden) then
|
|
{self.}Hidden := _obj.Hidden;
|
|
if not ifnil(_obj.LayoutInCell) then
|
|
{self.}LayoutInCell := _obj.LayoutInCell;
|
|
if not ifnil(_obj.AllowOverlap) then
|
|
{self.}AllowOverlap := _obj.AllowOverlap;
|
|
if not ifnil(_obj.AnchorId) then
|
|
{self.}AnchorId := _obj.AnchorId;
|
|
if not ifnil(_obj.EditId) then
|
|
{self.}EditId := _obj.EditId;
|
|
if not ifnil(_obj.XmlChildSimplePos) then
|
|
{self.}SimplePos.Copy(_obj.XmlChildSimplePos);
|
|
if not ifnil(_obj.XmlChildPositionH) then
|
|
{self.}PositionH.Copy(_obj.XmlChildPositionH);
|
|
if not ifnil(_obj.XmlChildPositionV) then
|
|
{self.}PositionV.Copy(_obj.XmlChildPositionV);
|
|
if not ifnil(_obj.XmlChildExtent) then
|
|
{self.}Extent.Copy(_obj.XmlChildExtent);
|
|
if not ifnil(_obj.XmlChildEffectExtent) then
|
|
{self.}EffectExtent.Copy(_obj.XmlChildEffectExtent);
|
|
if not ifnil(_obj.XmlChildWrapNone) then
|
|
ifnil({self.}XmlChildWrapNone) ? {self.}WrapNone.Copy(_obj.XmlChildWrapNone) : {self.}XmlChildWrapNone.Copy(_obj.XmlChildWrapNone);
|
|
if not ifnil(_obj.XmlChildDocPr) then
|
|
{self.}DocPr.Copy(_obj.XmlChildDocPr);
|
|
if not ifnil(_obj.XmlChildCNvGraphicFramePr) then
|
|
{self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr);
|
|
if not ifnil(_obj.XmlChildGraphic) then
|
|
{self.}Graphic.Copy(_obj.XmlChildGraphic);
|
|
if not ifnil(_obj.XmlChildSizeRelH) then
|
|
{self.}SizeRelH.Copy(_obj.XmlChildSizeRelH);
|
|
if not ifnil(_obj.XmlChildSizeRelV) then
|
|
{self.}SizeRelV.Copy(_obj.XmlChildSizeRelV);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function Anchor.Clone(): Anchor;override;
|
|
begin
|
|
obj := new Anchor(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}DistT) then
|
|
obj.DistT := {self.}DistT;
|
|
if not ifnil({self.}DistB) then
|
|
obj.DistB := {self.}DistB;
|
|
if not ifnil({self.}DistL) then
|
|
obj.DistL := {self.}DistL;
|
|
if not ifnil({self.}DistR) then
|
|
obj.DistR := {self.}DistR;
|
|
if not ifnil({self.}SimplePos) then
|
|
obj.SimplePos := {self.}SimplePos;
|
|
if not ifnil({self.}RelativeHeight) then
|
|
obj.RelativeHeight := {self.}RelativeHeight;
|
|
if not ifnil({self.}BehindDoc) then
|
|
obj.BehindDoc := {self.}BehindDoc;
|
|
if not ifnil({self.}Locked) then
|
|
obj.Locked := {self.}Locked;
|
|
if not ifnil({self.}Hidden) then
|
|
obj.Hidden := {self.}Hidden;
|
|
if not ifnil({self.}LayoutInCell) then
|
|
obj.LayoutInCell := {self.}LayoutInCell;
|
|
if not ifnil({self.}AllowOverlap) then
|
|
obj.AllowOverlap := {self.}AllowOverlap;
|
|
if not ifnil({self.}AnchorId) then
|
|
obj.AnchorId := {self.}AnchorId;
|
|
if not ifnil({self.}EditId) then
|
|
obj.EditId := {self.}EditId;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "simplePos": obj.SimplePos := element.Clone();
|
|
pre + "positionH": obj.PositionH := element.Clone();
|
|
pre + "positionV": obj.PositionV := element.Clone();
|
|
pre + "extent": obj.Extent := element.Clone();
|
|
pre + "effectExtent": obj.EffectExtent := element.Clone();
|
|
pre + "wrapNone": obj.WrapNone := element.Clone();
|
|
pre + "docPr": obj.DocPr := element.Clone();
|
|
pre + "cNvGraphicFramePr": obj.CNvGraphicFramePr := element.Clone();
|
|
"a:graphic": obj.Graphic := element.Clone();
|
|
"wp14:sizeRelH": obj.SizeRelH := element.Clone();
|
|
"wp14:sizeRelV": obj.SizeRelV := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function Anchor.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildSimplePos) then
|
|
{self.}XmlChildSimplePos.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildPositionH) then
|
|
{self.}XmlChildPositionH.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildPositionV) then
|
|
{self.}XmlChildPositionV.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildExtent) then
|
|
{self.}XmlChildExtent.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildEffectExtent) then
|
|
{self.}XmlChildEffectExtent.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildDocPr) then
|
|
{self.}XmlChildDocPr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildCNvGraphicFramePr) then
|
|
{self.}XmlChildCNvGraphicFramePr.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildGraphic) then
|
|
{self.}XmlChildGraphic.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSizeRelH) then
|
|
{self.}XmlChildSizeRelH.ConvertToPoint();
|
|
if not ifnil({self.}XmlChildSizeRelV) then
|
|
{self.}XmlChildSizeRelV.ConvertToPoint();
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrDistT();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistT.Value) ? fallback_.XmlAttrDistT.Value : {self.}XmlAttrDistT.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrDistT(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistT) then
|
|
begin
|
|
{self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil);
|
|
attributes_["distT"] := {self.}XmlAttrDistT;
|
|
end
|
|
{self.}XmlAttrDistT.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrDistB();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistB.Value) ? fallback_.XmlAttrDistB.Value : {self.}XmlAttrDistB.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrDistB(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistB) then
|
|
begin
|
|
{self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil);
|
|
attributes_["distB"] := {self.}XmlAttrDistB;
|
|
end
|
|
{self.}XmlAttrDistB.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrDistL();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistL.Value) ? fallback_.XmlAttrDistL.Value : {self.}XmlAttrDistL.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrDistL(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistL) then
|
|
begin
|
|
{self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil);
|
|
attributes_["distL"] := {self.}XmlAttrDistL;
|
|
end
|
|
{self.}XmlAttrDistL.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrDistR();
|
|
begin
|
|
return ifnil({self.}XmlAttrDistR.Value) ? fallback_.XmlAttrDistR.Value : {self.}XmlAttrDistR.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrDistR(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrDistR) then
|
|
begin
|
|
{self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil);
|
|
attributes_["distR"] := {self.}XmlAttrDistR;
|
|
end
|
|
{self.}XmlAttrDistR.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrSimplePos();
|
|
begin
|
|
return ifnil({self.}XmlAttrSimplePos.Value) ? fallback_.XmlAttrSimplePos.Value : {self.}XmlAttrSimplePos.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrSimplePos(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrSimplePos) then
|
|
begin
|
|
{self.}XmlAttrSimplePos := new OpenXmlAttribute("", "simplePos", nil);
|
|
attributes_["simplePos"] := {self.}XmlAttrSimplePos;
|
|
end
|
|
{self.}XmlAttrSimplePos.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrRelativeHeight();
|
|
begin
|
|
return ifnil({self.}XmlAttrRelativeHeight.Value) ? fallback_.XmlAttrRelativeHeight.Value : {self.}XmlAttrRelativeHeight.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrRelativeHeight(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRelativeHeight) then
|
|
begin
|
|
{self.}XmlAttrRelativeHeight := new OpenXmlAttribute("", "relativeHeight", nil);
|
|
attributes_["relativeHeight"] := {self.}XmlAttrRelativeHeight;
|
|
end
|
|
{self.}XmlAttrRelativeHeight.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrBehindDoc();
|
|
begin
|
|
return ifnil({self.}XmlAttrBehindDoc.Value) ? fallback_.XmlAttrBehindDoc.Value : {self.}XmlAttrBehindDoc.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrBehindDoc(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrBehindDoc) then
|
|
begin
|
|
{self.}XmlAttrBehindDoc := new OpenXmlAttribute("", "behindDoc", nil);
|
|
attributes_["behindDoc"] := {self.}XmlAttrBehindDoc;
|
|
end
|
|
{self.}XmlAttrBehindDoc.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrLocked();
|
|
begin
|
|
return ifnil({self.}XmlAttrLocked.Value) ? fallback_.XmlAttrLocked.Value : {self.}XmlAttrLocked.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrLocked(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrLocked) then
|
|
begin
|
|
{self.}XmlAttrLocked := new OpenXmlAttribute("", "locked", nil);
|
|
attributes_["locked"] := {self.}XmlAttrLocked;
|
|
end
|
|
{self.}XmlAttrLocked.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrHidden();
|
|
begin
|
|
return ifnil({self.}XmlAttrHidden.Value) ? fallback_.XmlAttrHidden.Value : {self.}XmlAttrHidden.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrHidden(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrHidden) then
|
|
begin
|
|
{self.}XmlAttrHidden := new OpenXmlAttribute("", "hidden", nil);
|
|
attributes_["hidden"] := {self.}XmlAttrHidden;
|
|
end
|
|
{self.}XmlAttrHidden.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrLayoutInCell();
|
|
begin
|
|
return ifnil({self.}XmlAttrLayoutInCell.Value) ? fallback_.XmlAttrLayoutInCell.Value : {self.}XmlAttrLayoutInCell.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrLayoutInCell(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrLayoutInCell) then
|
|
begin
|
|
{self.}XmlAttrLayoutInCell := new OpenXmlAttribute("", "layoutInCell", nil);
|
|
attributes_["layoutInCell"] := {self.}XmlAttrLayoutInCell;
|
|
end
|
|
{self.}XmlAttrLayoutInCell.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrAllowOverlap();
|
|
begin
|
|
return ifnil({self.}XmlAttrAllowOverlap.Value) ? fallback_.XmlAttrAllowOverlap.Value : {self.}XmlAttrAllowOverlap.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrAllowOverlap(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAllowOverlap) then
|
|
begin
|
|
{self.}XmlAttrAllowOverlap := new OpenXmlAttribute("", "allowOverlap", nil);
|
|
attributes_["allowOverlap"] := {self.}XmlAttrAllowOverlap;
|
|
end
|
|
{self.}XmlAttrAllowOverlap.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrAnchorId();
|
|
begin
|
|
return ifnil({self.}XmlAttrAnchorId.Value) ? fallback_.XmlAttrAnchorId.Value : {self.}XmlAttrAnchorId.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrAnchorId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrAnchorId) then
|
|
begin
|
|
{self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil);
|
|
attributes_["wp14:anchorId"] := {self.}XmlAttrAnchorId;
|
|
end
|
|
{self.}XmlAttrAnchorId.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlAttrEditId();
|
|
begin
|
|
return ifnil({self.}XmlAttrEditId.Value) ? fallback_.XmlAttrEditId.Value : {self.}XmlAttrEditId.Value;
|
|
end;
|
|
|
|
function Anchor.WriteXmlAttrEditId(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrEditId) then
|
|
begin
|
|
{self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil);
|
|
attributes_["wp14:editId"] := {self.}XmlAttrEditId;
|
|
end
|
|
{self.}XmlAttrEditId.Value := _value;
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildWrapNone();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildWrapNone) or {self.}XmlChildWrapNone.Removed) then
|
|
begin
|
|
{self.}XmlChildWrapNone := new OpenXmlSimpleType(self, {self.}Prefix, "wrapNone");
|
|
container_.Set({self.}XmlChildWrapNone);
|
|
end
|
|
return {self.}XmlChildWrapNone and not {self.}XmlChildWrapNone.Removed ? {self.}XmlChildWrapNone : fallback_.WrapNone;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildWrapNone(_value: nil_or_OpenXmlSimpleType);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildWrapNone) then
|
|
{self.}RemoveChild({self.}XmlChildWrapNone);
|
|
end
|
|
else if _value is class(OpenXmlSimpleType) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildWrapNone := _value;
|
|
container_.Set({self.}XmlChildWrapNone);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: WrapNone expects nil or OpenXmlSimpleType";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildSimplePos(): XY;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSimplePos) or {self.}XmlChildSimplePos.Removed) then
|
|
begin
|
|
{self.}XmlChildSimplePos := new XY(self, {self.}Prefix, "simplePos");
|
|
container_.Set({self.}XmlChildSimplePos);
|
|
end
|
|
return {self.}XmlChildSimplePos and not {self.}XmlChildSimplePos.Removed ? {self.}XmlChildSimplePos : fallback_.SimplePos;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildSimplePos(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSimplePos) then
|
|
{self.}RemoveChild({self.}XmlChildSimplePos);
|
|
end
|
|
else if v is class(XY) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSimplePos := v;
|
|
container_.Set({self.}XmlChildSimplePos);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SimplePos expects XY or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildPositionH(): PositionH;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPositionH) or {self.}XmlChildPositionH.Removed) then
|
|
begin
|
|
{self.}XmlChildPositionH := new PositionH(self, {self.}Prefix, "positionH");
|
|
container_.Set({self.}XmlChildPositionH);
|
|
end
|
|
return {self.}XmlChildPositionH and not {self.}XmlChildPositionH.Removed ? {self.}XmlChildPositionH : fallback_.PositionH;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildPositionH(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPositionH) then
|
|
{self.}RemoveChild({self.}XmlChildPositionH);
|
|
end
|
|
else if v is class(PositionH) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPositionH := v;
|
|
container_.Set({self.}XmlChildPositionH);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PositionH expects PositionH or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildPositionV(): PositionV;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPositionV) or {self.}XmlChildPositionV.Removed) then
|
|
begin
|
|
{self.}XmlChildPositionV := new PositionV(self, {self.}Prefix, "positionV");
|
|
container_.Set({self.}XmlChildPositionV);
|
|
end
|
|
return {self.}XmlChildPositionV and not {self.}XmlChildPositionV.Removed ? {self.}XmlChildPositionV : fallback_.PositionV;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildPositionV(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildPositionV) then
|
|
{self.}RemoveChild({self.}XmlChildPositionV);
|
|
end
|
|
else if v is class(PositionV) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildPositionV := v;
|
|
container_.Set({self.}XmlChildPositionV);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PositionV expects PositionV or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildExtent(): CXY;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildExtent) or {self.}XmlChildExtent.Removed) then
|
|
begin
|
|
{self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent");
|
|
container_.Set({self.}XmlChildExtent);
|
|
end
|
|
return {self.}XmlChildExtent and not {self.}XmlChildExtent.Removed ? {self.}XmlChildExtent : fallback_.Extent;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildExtent(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildExtent) then
|
|
{self.}RemoveChild({self.}XmlChildExtent);
|
|
end
|
|
else if v is class(CXY) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildExtent := v;
|
|
container_.Set({self.}XmlChildExtent);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Extent expects CXY or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildEffectExtent(): EffectExtent;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildEffectExtent) or {self.}XmlChildEffectExtent.Removed) then
|
|
begin
|
|
{self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent");
|
|
container_.Set({self.}XmlChildEffectExtent);
|
|
end
|
|
return {self.}XmlChildEffectExtent and not {self.}XmlChildEffectExtent.Removed ? {self.}XmlChildEffectExtent : fallback_.EffectExtent;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildEffectExtent(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildEffectExtent) then
|
|
{self.}RemoveChild({self.}XmlChildEffectExtent);
|
|
end
|
|
else if v is class(EffectExtent) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildEffectExtent := v;
|
|
container_.Set({self.}XmlChildEffectExtent);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: EffectExtent expects EffectExtent or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildDocPr(): DocPr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildDocPr) or {self.}XmlChildDocPr.Removed) then
|
|
begin
|
|
{self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr");
|
|
container_.Set({self.}XmlChildDocPr);
|
|
end
|
|
return {self.}XmlChildDocPr and not {self.}XmlChildDocPr.Removed ? {self.}XmlChildDocPr : fallback_.DocPr;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildDocPr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildDocPr) then
|
|
{self.}RemoveChild({self.}XmlChildDocPr);
|
|
end
|
|
else if v is class(DocPr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildDocPr := v;
|
|
container_.Set({self.}XmlChildDocPr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: DocPr expects DocPr or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildCNvGraphicFramePr) or {self.}XmlChildCNvGraphicFramePr.Removed) then
|
|
begin
|
|
{self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr");
|
|
container_.Set({self.}XmlChildCNvGraphicFramePr);
|
|
end
|
|
return {self.}XmlChildCNvGraphicFramePr and not {self.}XmlChildCNvGraphicFramePr.Removed ? {self.}XmlChildCNvGraphicFramePr : fallback_.CNvGraphicFramePr;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildCNvGraphicFramePr(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildCNvGraphicFramePr) then
|
|
{self.}RemoveChild({self.}XmlChildCNvGraphicFramePr);
|
|
end
|
|
else if v is class(CNvGraphicFramePr) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildCNvGraphicFramePr := v;
|
|
container_.Set({self.}XmlChildCNvGraphicFramePr);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: CNvGraphicFramePr expects CNvGraphicFramePr or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildGraphic(): Graphic;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildGraphic) or {self.}XmlChildGraphic.Removed) then
|
|
begin
|
|
{self.}XmlChildGraphic := new Graphic(self, "a", "graphic");
|
|
container_.Set({self.}XmlChildGraphic);
|
|
end
|
|
return {self.}XmlChildGraphic and not {self.}XmlChildGraphic.Removed ? {self.}XmlChildGraphic : fallback_.Graphic;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildGraphic(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildGraphic) then
|
|
{self.}RemoveChild({self.}XmlChildGraphic);
|
|
end
|
|
else if v is class(Graphic) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildGraphic := v;
|
|
container_.Set({self.}XmlChildGraphic);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: Graphic expects Graphic or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildSizeRelH(): SizeRelH;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSizeRelH) or {self.}XmlChildSizeRelH.Removed) then
|
|
begin
|
|
{self.}XmlChildSizeRelH := new SizeRelH(self, "wp14", "sizeRelH");
|
|
container_.Set({self.}XmlChildSizeRelH);
|
|
end
|
|
return {self.}XmlChildSizeRelH and not {self.}XmlChildSizeRelH.Removed ? {self.}XmlChildSizeRelH : fallback_.SizeRelH;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildSizeRelH(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSizeRelH) then
|
|
{self.}RemoveChild({self.}XmlChildSizeRelH);
|
|
end
|
|
else if v is class(SizeRelH) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSizeRelH := v;
|
|
container_.Set({self.}XmlChildSizeRelH);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SizeRelH expects SizeRelH or nil";
|
|
end
|
|
end;
|
|
|
|
function Anchor.ReadXmlChildSizeRelV(): SizeRelV;
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildSizeRelV) or {self.}XmlChildSizeRelV.Removed) then
|
|
begin
|
|
{self.}XmlChildSizeRelV := new SizeRelV(self, "wp14", "sizeRelV");
|
|
container_.Set({self.}XmlChildSizeRelV);
|
|
end
|
|
return {self.}XmlChildSizeRelV and not {self.}XmlChildSizeRelV.Removed ? {self.}XmlChildSizeRelV : fallback_.SizeRelV;
|
|
end;
|
|
|
|
function Anchor.WriteXmlChildSizeRelV(_p1: any; _p2: any);
|
|
begin
|
|
v := realparamcount = 1 ? _p1 : _p2;
|
|
if ifnil(v) then
|
|
begin
|
|
if ifObj({self.}XmlChildSizeRelV) then
|
|
{self.}RemoveChild({self.}XmlChildSizeRelV);
|
|
end
|
|
else if v is class(SizeRelV) then
|
|
begin
|
|
v.Parent := self;
|
|
{self.}XmlChildSizeRelV := v;
|
|
container_.Set({self.}XmlChildSizeRelV);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: SizeRelV expects SizeRelV or nil";
|
|
end
|
|
end;
|
|
|
|
function PositionV.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp", "positionV");
|
|
end;
|
|
|
|
function PositionV.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PositionV.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PositionV.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PositionV.Copy(_obj: PositionV);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.RelativeFrom) then
|
|
{self.}RelativeFrom := _obj.RelativeFrom;
|
|
if not ifnil(_obj.XmlChildPosOffset) then
|
|
{self.}PosOffset.Copy(_obj.XmlChildPosOffset);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PositionV.Clone(): PositionV;override;
|
|
begin
|
|
obj := new PositionV(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}RelativeFrom) then
|
|
obj.RelativeFrom := {self.}RelativeFrom;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "posOffset": obj.PosOffset := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function PositionV.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPosOffset) then
|
|
{self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints({self.}PosOffset.Text);
|
|
end;
|
|
|
|
function PositionV.ReadXmlAttrRelativeFrom();
|
|
begin
|
|
return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value;
|
|
end;
|
|
|
|
function PositionV.WriteXmlAttrRelativeFrom(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRelativeFrom) then
|
|
begin
|
|
{self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil);
|
|
attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom;
|
|
end
|
|
{self.}XmlAttrRelativeFrom.Value := _value;
|
|
end;
|
|
|
|
function PositionV.ReadXmlChildPosOffset();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPosOffset) or {self.}XmlChildPosOffset.Removed) then
|
|
begin
|
|
{self.}XmlChildPosOffset := new OpenXmlTextElement(self, {self.}Prefix, "posOffset");
|
|
container_.Set({self.}XmlChildPosOffset);
|
|
end
|
|
return {self.}XmlChildPosOffset and not {self.}XmlChildPosOffset.Removed ? {self.}XmlChildPosOffset : fallback_.PosOffset;
|
|
end;
|
|
|
|
function PositionV.WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildPosOffset) then
|
|
{self.}RemoveChild({self.}XmlChildPosOffset);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildPosOffset := _value;
|
|
container_.Set({self.}XmlChildPosOffset);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PosOffset expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
function PositionH.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp", "positionH");
|
|
end;
|
|
|
|
function PositionH.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function PositionH.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function PositionH.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function PositionH.Copy(_obj: PositionH);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.RelativeFrom) then
|
|
{self.}RelativeFrom := _obj.RelativeFrom;
|
|
if not ifnil(_obj.XmlChildPosOffset) then
|
|
{self.}PosOffset.Copy(_obj.XmlChildPosOffset);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function PositionH.Clone(): PositionH;override;
|
|
begin
|
|
obj := new PositionH(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}RelativeFrom) then
|
|
obj.RelativeFrom := {self.}RelativeFrom;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "posOffset": obj.PosOffset := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function PositionH.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPosOffset) then
|
|
{self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints({self.}PosOffset.Text);
|
|
end;
|
|
|
|
function PositionH.ReadXmlAttrRelativeFrom();
|
|
begin
|
|
return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value;
|
|
end;
|
|
|
|
function PositionH.WriteXmlAttrRelativeFrom(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRelativeFrom) then
|
|
begin
|
|
{self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil);
|
|
attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom;
|
|
end
|
|
{self.}XmlAttrRelativeFrom.Value := _value;
|
|
end;
|
|
|
|
function PositionH.ReadXmlChildPosOffset();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPosOffset) or {self.}XmlChildPosOffset.Removed) then
|
|
begin
|
|
{self.}XmlChildPosOffset := new OpenXmlTextElement(self, {self.}Prefix, "posOffset");
|
|
container_.Set({self.}XmlChildPosOffset);
|
|
end
|
|
return {self.}XmlChildPosOffset and not {self.}XmlChildPosOffset.Removed ? {self.}XmlChildPosOffset : fallback_.PosOffset;
|
|
end;
|
|
|
|
function PositionH.WriteXmlChildPosOffset(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildPosOffset) then
|
|
{self.}RemoveChild({self.}XmlChildPosOffset);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildPosOffset := _value;
|
|
container_.Set({self.}XmlChildPosOffset);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PosOffset expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
function SizeRelH.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp14", "sizeRelH");
|
|
end;
|
|
|
|
function SizeRelH.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SizeRelH.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SizeRelH.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "pctWidth": array(0, makeweakref(thisFunction(ReadXmlChildPctWidth))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SizeRelH.Copy(_obj: SizeRelH);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.RelativeFrom) then
|
|
{self.}RelativeFrom := _obj.RelativeFrom;
|
|
if not ifnil(_obj.XmlChildPctWidth) then
|
|
{self.}PctWidth.Copy(_obj.XmlChildPctWidth);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SizeRelH.Clone(): SizeRelH;override;
|
|
begin
|
|
obj := new SizeRelH(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}RelativeFrom) then
|
|
obj.RelativeFrom := {self.}RelativeFrom;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "pctWidth": obj.PctWidth := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function SizeRelH.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPctWidth) then
|
|
{self.}PctWidth.Text := TSSafeUnitConverter.EmusToPoints({self.}PctWidth.Text);
|
|
end;
|
|
|
|
function SizeRelH.ReadXmlAttrRelativeFrom();
|
|
begin
|
|
return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value;
|
|
end;
|
|
|
|
function SizeRelH.WriteXmlAttrRelativeFrom(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRelativeFrom) then
|
|
begin
|
|
{self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil);
|
|
attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom;
|
|
end
|
|
{self.}XmlAttrRelativeFrom.Value := _value;
|
|
end;
|
|
|
|
function SizeRelH.ReadXmlChildPctWidth();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPctWidth) or {self.}XmlChildPctWidth.Removed) then
|
|
begin
|
|
{self.}XmlChildPctWidth := new OpenXmlTextElement(self, {self.}Prefix, "pctWidth");
|
|
container_.Set({self.}XmlChildPctWidth);
|
|
end
|
|
return {self.}XmlChildPctWidth and not {self.}XmlChildPctWidth.Removed ? {self.}XmlChildPctWidth : fallback_.PctWidth;
|
|
end;
|
|
|
|
function SizeRelH.WriteXmlChildPctWidth(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildPctWidth) then
|
|
{self.}RemoveChild({self.}XmlChildPctWidth);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildPctWidth := _value;
|
|
container_.Set({self.}XmlChildPctWidth);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PctWidth expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
function SizeRelV.create();overload;
|
|
begin
|
|
{self.}create(nil, "wp14", "sizeRelV");
|
|
end;
|
|
|
|
function SizeRelV.create(_node: XmlNode);overload;
|
|
begin
|
|
inherited create(_node);
|
|
end;
|
|
|
|
function SizeRelV.create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
|
begin
|
|
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
|
|
inherited create(_parent, _prefix, _local_name);
|
|
end;
|
|
|
|
function SizeRelV.Init();override;
|
|
begin
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
attributes_ := array();
|
|
attributes_pf_ := array(
|
|
"relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)),
|
|
);
|
|
sorted_child_ := array(
|
|
pre + "pctHeight": array(0, makeweakref(thisFunction(ReadXmlChildPctHeight))),
|
|
);
|
|
container_ := new TSOfficeContainer(sorted_child_);
|
|
end;
|
|
|
|
function SizeRelV.Copy(_obj: SizeRelV);override;
|
|
begin
|
|
tslassigning_backup := tslassigning;
|
|
tslassigning := 1;
|
|
inherited Copy(_obj);
|
|
if not ifnil(_obj.RelativeFrom) then
|
|
{self.}RelativeFrom := _obj.RelativeFrom;
|
|
if not ifnil(_obj.XmlChildPctHeight) then
|
|
{self.}PctHeight.Copy(_obj.XmlChildPctHeight);
|
|
tslassigning := tslassigning_backup;
|
|
end;
|
|
|
|
function SizeRelV.Clone(): SizeRelV;override;
|
|
begin
|
|
obj := new SizeRelV(nil, {self.}Prefix, {self.}LocalName);
|
|
if not ifnil({self.}RelativeFrom) then
|
|
obj.RelativeFrom := {self.}RelativeFrom;
|
|
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
|
|
elements := {self.}Elements();
|
|
for _,element in elements do
|
|
begin
|
|
case element.ElementName of
|
|
pre + "pctHeight": obj.PctHeight := element.Clone();
|
|
else obj.AppendChild(element.Clone());
|
|
end
|
|
end
|
|
return obj;
|
|
end;
|
|
|
|
function SizeRelV.ConvertToPoint();override;
|
|
begin
|
|
if not ifnil({self.}XmlChildPctHeight) then
|
|
{self.}PctHeight.Text := TSSafeUnitConverter.EmusToPoints({self.}PctHeight.Text);
|
|
end;
|
|
|
|
function SizeRelV.ReadXmlAttrRelativeFrom();
|
|
begin
|
|
return ifnil({self.}XmlAttrRelativeFrom.Value) ? fallback_.XmlAttrRelativeFrom.Value : {self.}XmlAttrRelativeFrom.Value;
|
|
end;
|
|
|
|
function SizeRelV.WriteXmlAttrRelativeFrom(_value: any);
|
|
begin
|
|
if ifnil({self.}XmlAttrRelativeFrom) then
|
|
begin
|
|
{self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil);
|
|
attributes_["relativeFrom"] := {self.}XmlAttrRelativeFrom;
|
|
end
|
|
{self.}XmlAttrRelativeFrom.Value := _value;
|
|
end;
|
|
|
|
function SizeRelV.ReadXmlChildPctHeight();
|
|
begin
|
|
if tslassigning and (ifnil({self.}XmlChildPctHeight) or {self.}XmlChildPctHeight.Removed) then
|
|
begin
|
|
{self.}XmlChildPctHeight := new OpenXmlTextElement(self, {self.}Prefix, "pctHeight");
|
|
container_.Set({self.}XmlChildPctHeight);
|
|
end
|
|
return {self.}XmlChildPctHeight and not {self.}XmlChildPctHeight.Removed ? {self.}XmlChildPctHeight : fallback_.PctHeight;
|
|
end;
|
|
|
|
function SizeRelV.WriteXmlChildPctHeight(_value: nil_or_OpenXmlTextElement);
|
|
begin
|
|
if ifnil(_value) then
|
|
begin
|
|
if ifObj({self.}XmlChildPctHeight) then
|
|
{self.}RemoveChild({self.}XmlChildPctHeight);
|
|
end
|
|
else if _value is class(OpenXmlTextElement) then
|
|
begin
|
|
_value.Parent := self;
|
|
{self.}XmlChildPctHeight := _value;
|
|
container_.Set({self.}XmlChildPctHeight);
|
|
end
|
|
else begin
|
|
raise "Invalid assignment: PctHeight expects nil or OpenXmlTextElement";
|
|
end
|
|
end;
|
|
|
|
end. |