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;