type Path = 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: Path);override; public // attributes property property Extrusionok read ReadXmlAttrExtrusionok write WriteXmlAttrExtrusionok; property Gradientshapeok read ReadXmlAttrGradientshapeok write WriteXmlAttrGradientshapeok; property Connecttype read ReadXmlAttrConnecttype write WriteXmlAttrConnecttype; function ReadXmlAttrExtrusionok(); function WriteXmlAttrExtrusionok(_value); function ReadXmlAttrGradientshapeok(); function WriteXmlAttrGradientshapeok(_value); function ReadXmlAttrConnecttype(); function WriteXmlAttrConnecttype(_value); public // Attributes XmlAttrExtrusionok: OpenXmlAttribute; XmlAttrGradientshapeok: OpenXmlAttribute; XmlAttrConnecttype: OpenXmlAttribute; end; function Path.Create();overload; begin {self.}Create(nil, "v", "path"); end; function Path.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Path.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 Path.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( "o:extrusionok": makeweakref(thisFunction(WriteXmlAttrExtrusionok)), "gradientshapeok": makeweakref(thisFunction(WriteXmlAttrGradientshapeok)), "o:connecttype": makeweakref(thisFunction(WriteXmlAttrConnecttype)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function Path.Copy(_obj: Path);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Extrusionok) then {self.}Extrusionok := _obj.Extrusionok; if not ifnil(_obj.Gradientshapeok) then {self.}Gradientshapeok := _obj.Gradientshapeok; if not ifnil(_obj.Connecttype) then {self.}Connecttype := _obj.Connecttype; tslassigning := tslassigning_backup; end; function Path.ReadXmlAttrExtrusionok(); begin return {self.}XmlAttrExtrusionok.Value; end; function Path.WriteXmlAttrExtrusionok(_value); begin if ifnil({self.}XmlAttrExtrusionok) then begin {self.}XmlAttrExtrusionok := new OpenXmlAttribute("o", "extrusionok", nil); attributes_[length(attributes_)] := {self.}XmlAttrExtrusionok; end {self.}XmlAttrExtrusionok.Value := _value; end; function Path.ReadXmlAttrGradientshapeok(); begin return {self.}XmlAttrGradientshapeok.Value; end; function Path.WriteXmlAttrGradientshapeok(_value); begin if ifnil({self.}XmlAttrGradientshapeok) then begin {self.}XmlAttrGradientshapeok := new OpenXmlAttribute("", "gradientshapeok", nil); attributes_[length(attributes_)] := {self.}XmlAttrGradientshapeok; end {self.}XmlAttrGradientshapeok.Value := _value; end; function Path.ReadXmlAttrConnecttype(); begin return {self.}XmlAttrConnecttype.Value; end; function Path.WriteXmlAttrConnecttype(_value); begin if ifnil({self.}XmlAttrConnecttype) then begin {self.}XmlAttrConnecttype := new OpenXmlAttribute("o", "connecttype", nil); attributes_[length(attributes_)] := {self.}XmlAttrConnecttype; end {self.}XmlAttrConnecttype.Value := _value; end;