OfficeXml/autoclass/docx/DLbls@DOCX.tsf

type DLbls = class(OpenXmlElement)
public
    function Create();overload;
    function Create(_node: XmlNode);overload;
    function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
    function Init();override;
    function Copy(_obj: DLbls);override;

public

    // normal property
    property SpPr read ReadXmlChildSpPr;
    property ShowLegendKey read ReadXmlChildShowLegendKey;
    property ShowVal read ReadXmlChildShowVal;
    property ShowCatName read ReadXmlChildShowCatName;
    property ShowSerName read ReadXmlChildShowSerName;
    property ShowPercent read ReadXmlChildShowPercent;
    property ShowBubbleSize read ReadXmlChildShowBubbleSize;
    property ShowLeaderLines read ReadXmlChildShowLeaderLines;
    property ExtLst read ReadXmlChildExtLst;
    function ReadXmlChildSpPr();
    function ReadXmlChildShowLegendKey();
    function ReadXmlChildShowVal();
    function ReadXmlChildShowCatName();
    function ReadXmlChildShowSerName();
    function ReadXmlChildShowPercent();
    function ReadXmlChildShowBubbleSize();
    function ReadXmlChildShowLeaderLines();
    function ReadXmlChildExtLst();

public
    // Children
    XmlChildSpPr: SpPr;
    XmlChildShowLegendKey: PureVal;
    XmlChildShowVal: PureVal;
    XmlChildShowCatName: PureVal;
    XmlChildShowSerName: PureVal;
    XmlChildShowPercent: PureVal;
    XmlChildShowBubbleSize: PureVal;
    XmlChildShowLeaderLines: PureVal;
    XmlChildExtLst: ExtLst;

end;

function DLbls.Create();overload;
begin
    {self.}Create(nil, "c", "dLbls");
end;

function DLbls.Create(_node: XmlNode);overload;
begin
    class(OpenXmlElement).Create(_node: XmlNode);
end;

function DLbls.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
    setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
    class(OpenXmlElement).Create(_parent, _prefix, _local_name);
end;

function DLbls.Init();override;
begin
    pre := {self.}Prefix ? {self.}Prefix + ":" : "";
    attributes_ := array();
    attributes_pf_ := array(
    );
    sorted_child_ := array(
        pre + "spPr": array(0, makeweakref(thisFunction(ReadXmlChildSpPr))),
        pre + "showLegendKey": array(1, makeweakref(thisFunction(ReadXmlChildShowLegendKey))),
        pre + "showVal": array(2, makeweakref(thisFunction(ReadXmlChildShowVal))),
        pre + "showCatName": array(3, makeweakref(thisFunction(ReadXmlChildShowCatName))),
        pre + "showSerName": array(4, makeweakref(thisFunction(ReadXmlChildShowSerName))),
        pre + "showPercent": array(5, makeweakref(thisFunction(ReadXmlChildShowPercent))),
        pre + "showBubbleSize": array(6, makeweakref(thisFunction(ReadXmlChildShowBubbleSize))),
        pre + "showLeaderLines": array(7, makeweakref(thisFunction(ReadXmlChildShowLeaderLines))),
        pre + "extLst": array(8, makeweakref(thisFunction(ReadXmlChildExtLst))),
    );
    container_ := new TSOfficeContainer(sorted_child_);
end;

function DLbls.Copy(_obj: DLbls);override;
begin
    tslassigning_backup := tslassigning;
    tslassigning := 1;
    class(OpenXmlElement).Copy(_obj);
    if not ifnil(_obj.XmlChildSpPr) then
        {self.}SpPr.Copy(_obj.XmlChildSpPr);
    if not ifnil(_obj.XmlChildShowLegendKey) then
        {self.}ShowLegendKey.Copy(_obj.XmlChildShowLegendKey);
    if not ifnil(_obj.XmlChildShowVal) then
        {self.}ShowVal.Copy(_obj.XmlChildShowVal);
    if not ifnil(_obj.XmlChildShowCatName) then
        {self.}ShowCatName.Copy(_obj.XmlChildShowCatName);
    if not ifnil(_obj.XmlChildShowSerName) then
        {self.}ShowSerName.Copy(_obj.XmlChildShowSerName);
    if not ifnil(_obj.XmlChildShowPercent) then
        {self.}ShowPercent.Copy(_obj.XmlChildShowPercent);
    if not ifnil(_obj.XmlChildShowBubbleSize) then
        {self.}ShowBubbleSize.Copy(_obj.XmlChildShowBubbleSize);
    if not ifnil(_obj.XmlChildShowLeaderLines) then
        {self.}ShowLeaderLines.Copy(_obj.XmlChildShowLeaderLines);
    if not ifnil(_obj.XmlChildExtLst) then
        {self.}ExtLst.Copy(_obj.XmlChildExtLst);
    tslassigning := tslassigning_backup;
end;

function DLbls.ReadXmlChildSpPr();
begin
    if tslassigning and ifnil({self.}XmlChildSpPr) then
    begin
        {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr");
        container_.Set({self.}XmlChildSpPr);
    end
    return {self.}XmlChildSpPr;
end;

function DLbls.ReadXmlChildShowLegendKey();
begin
    if tslassigning and ifnil({self.}XmlChildShowLegendKey) then
    begin
        {self.}XmlChildShowLegendKey := new PureVal(self, {self.}Prefix, "showLegendKey");
        container_.Set({self.}XmlChildShowLegendKey);
    end
    return {self.}XmlChildShowLegendKey;
end;

function DLbls.ReadXmlChildShowVal();
begin
    if tslassigning and ifnil({self.}XmlChildShowVal) then
    begin
        {self.}XmlChildShowVal := new PureVal(self, {self.}Prefix, "showVal");
        container_.Set({self.}XmlChildShowVal);
    end
    return {self.}XmlChildShowVal;
end;

function DLbls.ReadXmlChildShowCatName();
begin
    if tslassigning and ifnil({self.}XmlChildShowCatName) then
    begin
        {self.}XmlChildShowCatName := new PureVal(self, {self.}Prefix, "showCatName");
        container_.Set({self.}XmlChildShowCatName);
    end
    return {self.}XmlChildShowCatName;
end;

function DLbls.ReadXmlChildShowSerName();
begin
    if tslassigning and ifnil({self.}XmlChildShowSerName) then
    begin
        {self.}XmlChildShowSerName := new PureVal(self, {self.}Prefix, "showSerName");
        container_.Set({self.}XmlChildShowSerName);
    end
    return {self.}XmlChildShowSerName;
end;

function DLbls.ReadXmlChildShowPercent();
begin
    if tslassigning and ifnil({self.}XmlChildShowPercent) then
    begin
        {self.}XmlChildShowPercent := new PureVal(self, {self.}Prefix, "showPercent");
        container_.Set({self.}XmlChildShowPercent);
    end
    return {self.}XmlChildShowPercent;
end;

function DLbls.ReadXmlChildShowBubbleSize();
begin
    if tslassigning and ifnil({self.}XmlChildShowBubbleSize) then
    begin
        {self.}XmlChildShowBubbleSize := new PureVal(self, {self.}Prefix, "showBubbleSize");
        container_.Set({self.}XmlChildShowBubbleSize);
    end
    return {self.}XmlChildShowBubbleSize;
end;

function DLbls.ReadXmlChildShowLeaderLines();
begin
    if tslassigning and ifnil({self.}XmlChildShowLeaderLines) then
    begin
        {self.}XmlChildShowLeaderLines := new PureVal(self, {self.}Prefix, "showLeaderLines");
        container_.Set({self.}XmlChildShowLeaderLines);
    end
    return {self.}XmlChildShowLeaderLines;
end;

function DLbls.ReadXmlChildExtLst();
begin
    if tslassigning and ifnil({self.}XmlChildExtLst) then
    begin
        {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst");
        container_.Set({self.}XmlChildExtLst);
    end
    return {self.}XmlChildExtLst;
end;