type PrstTxWrap = class(OpenXmlElement) public function Create();overload; function Create(_node: XmlNode);overload; function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; function Init();override; function Copy(_obj: PrstTxWrap);override; public // attributes property property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; function ReadXmlAttrPrst(); function WriteXmlAttrPrst(_value); // empty property property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst; function ReadXmlChildAvLst(); function WriteXmlChildAvLst(_value); public // Attributes XmlAttrPrst: OpenXmlAttribute; // Children XmlChildAvLst: OpenXmlEmpty; end; function PrstTxWrap.Create();overload; begin {self.}Create(nil, "a", "prstTxWrap"); end; function PrstTxWrap.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function PrstTxWrap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function PrstTxWrap.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "prst": makeweakref(thisFunction(WriteXmlAttrPrst)), ); sorted_child_ := array( "a:avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))), ); container_ := new TSOfficeContainer(sorted_child_); end; function PrstTxWrap.Copy(_obj: PrstTxWrap);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Prst) then {self.}Prst := _obj.Prst; if not ifnil(_obj.XmlChildAvLst) then ifnil({self.}XmlChildAvLst) ? {self.}AvLst.Copy(_obj.XmlChildAvLst) : {self.}XmlChildAvLst.Copy(_obj.XmlChildAvLst); tslassigning := tslassigning_backup; end; function PrstTxWrap.ReadXmlAttrPrst(); begin return {self.}XmlAttrPrst.Value; end; function PrstTxWrap.WriteXmlAttrPrst(_value); begin if ifnil({self.}XmlAttrPrst) then begin {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); attributes_[length(attributes_)] := {self.}XmlAttrPrst; end {self.}XmlAttrPrst.Value := _value; end; function PrstTxWrap.ReadXmlChildAvLst(); begin if tslassigning then begin if ifnil({self.}XmlChildAvLst) then begin {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); container_.Set({self.}XmlChildAvLst); end return {self.}XmlChildAvLst; end return ifnil({self.}XmlChildAvLst) ? nil : {self.}XmlChildAvLst.BoolValue(); end; function PrstTxWrap.WriteXmlChildAvLst(_value); begin if ifnil({self.}XmlChildAvLst) then begin {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); container_.Set({self.}XmlChildAvLst); end {self.}XmlChildAvLst.Value := _value; end;