type BodyPr = 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 InitAttributes();override; function InitChildren();override; function InitNode(_node: XmlNode);override; function Copy(_obj: BodyPr);override; 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); function ReadXmlAttrSpcFirstLastPara(); function WriteXmlAttrSpcFirstLastPara(_value); function ReadXmlAttrVertOverflow(); function WriteXmlAttrVertOverflow(_value); function ReadXmlAttrHorzOverflow(); function WriteXmlAttrHorzOverflow(_value); function ReadXmlAttrVert(); function WriteXmlAttrVert(_value); function ReadXmlAttrWrap(); function WriteXmlAttrWrap(_value); function ReadXmlAttrLIns(); function WriteXmlAttrLIns(_value); function ReadXmlAttrTIns(); function WriteXmlAttrTIns(_value); function ReadXmlAttrRIns(); function WriteXmlAttrRIns(_value); function ReadXmlAttrBIns(); function WriteXmlAttrBIns(_value); function ReadXmlAttrNumCol(); function WriteXmlAttrNumCol(_value); function ReadXmlAttrSpcCol(); function WriteXmlAttrSpcCol(_value); function ReadXmlAttrRtlCol(); function WriteXmlAttrRtlCol(_value); function ReadXmlAttrFromWordArt(); function WriteXmlAttrFromWordArt(_value); function ReadXmlAttrAnchor(); function WriteXmlAttrAnchor(_value); function ReadXmlAttrAnchorCtr(); function WriteXmlAttrAnchorCtr(_value); function ReadXmlAttrForceAA(); function WriteXmlAttrForceAA(_value); function ReadXmlAttrCompatLnSpc(); function WriteXmlAttrCompatLnSpc(_value); property NoAutofit read ReadXmlChildNoAutofit write WriteXmlChildNoAutofit; function ReadXmlChildNoAutofit(); function WriteXmlChildNoAutofit(_value); 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 PrstTxWrap: PrstTxWrap; XmlChildNoAutofit: OpenXmlEmpty; end; function BodyPr.Create();overload; begin {self.}Create(nil, "a", "bodyPr"); end; function BodyPr.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function BodyPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function BodyPr.Init();override; begin {self.}XmlAttrRot := new OpenXmlAttribute(nil, "rot", nil); {self.}XmlAttrSpcFirstLastPara := new OpenXmlAttribute(nil, "spcFirstLastPara", nil); {self.}XmlAttrVertOverflow := new OpenXmlAttribute(nil, "vertOverflow", nil); {self.}XmlAttrHorzOverflow := new OpenXmlAttribute(nil, "horzOverflow", nil); {self.}XmlAttrVert := new OpenXmlAttribute(nil, "vert", nil); {self.}XmlAttrWrap := new OpenXmlAttribute(nil, "wrap", nil); {self.}XmlAttrLIns := new OpenXmlAttribute(nil, "lIns", nil); {self.}XmlAttrTIns := new OpenXmlAttribute(nil, "TIns", nil); {self.}XmlAttrRIns := new OpenXmlAttribute(nil, "rIns", nil); {self.}XmlAttrBIns := new OpenXmlAttribute(nil, "bIns", nil); {self.}XmlAttrNumCol := new OpenXmlAttribute(nil, "numCol", nil); {self.}XmlAttrSpcCol := new OpenXmlAttribute(nil, "spcCol", nil); {self.}XmlAttrRtlCol := new OpenXmlAttribute(nil, "rtlCol", nil); {self.}XmlAttrFromWordArt := new OpenXmlAttribute(nil, "fromWordArt", nil); {self.}XmlAttrAnchor := new OpenXmlAttribute(nil, "anchor", nil); {self.}XmlAttrAnchorCtr := new OpenXmlAttribute(nil, "anchorCtr", nil); {self.}XmlAttrForceAA := new OpenXmlAttribute(nil, "forceAA", nil); {self.}XmlAttrCompatLnSpc := new OpenXmlAttribute(nil, "compatLnSpc", nil); {self.}PrstTxWrap := new PrstTxWrap(self, "a", "prstTxWrap"); {self.}XmlChildNoAutofit := new OpenXmlEmpty(self, "a", "noAutofit"); end; function BodyPr.InitAttributes();override; begin attributes_ := array( {self.}XmlAttrRot, {self.}XmlAttrSpcFirstLastPara, {self.}XmlAttrVertOverflow, {self.}XmlAttrHorzOverflow, {self.}XmlAttrVert, {self.}XmlAttrWrap, {self.}XmlAttrLIns, {self.}XmlAttrTIns, {self.}XmlAttrRIns, {self.}XmlAttrBIns, {self.}XmlAttrNumCol, {self.}XmlAttrSpcCol, {self.}XmlAttrRtlCol, {self.}XmlAttrFromWordArt, {self.}XmlAttrAnchor, {self.}XmlAttrAnchorCtr, {self.}XmlAttrForceAA, {self.}XmlAttrCompatLnSpc, ); end; function BodyPr.InitChildren();override; begin child_elements_ := array( 0: {self.}PrstTxWrap, 1: {self.}XmlChildNoAutofit, ); sorted_child_ := array( "": -1, {self.}PrstTxWrap.ElementName: 0, {self.}XmlChildNoAutofit.ElementName: 1, ); end; function BodyPr.InitNode(_node: XmlNode);override; begin if ifObj({self.}XmlNode) then for k,v in child_elements_ do v.InitNode(nil); {self.}XmlNode := ifObj(_node) ? _node : nil; node := ifObj(_node) ? _node.FirstChild() : nil; flag := false; if ifnil(child_elements_[0]) and length(child_elements_) > 0 then begin flag := true; arr := child_elements_; child_elements_ := array(); end pre := ifString({self.}Prefix) ? {self.}Prefix + ":" : ""; while ifObj(node) do begin node_name := node.GetName(); pos := sorted_child_[node_name]; if ifnil(pos) or pos = -1 then begin obj := nil; case node_name of end; if ifObj(obj) then obj.InitNode(node); end else if flag then begin obj := arr[pos]; obj.InitNode(node); child_elements_[length(child_elements_)] := obj; end else begin child_elements_[pos].InitNode(node); end node := node.NextElement(); end end; function BodyPr.Copy(_obj: BodyPr);override; begin if not ifnil(_obj.XmlAttrRot.Value) then {self.}XmlAttrRot.Value := _obj.XmlAttrRot.Value; if not ifnil(_obj.XmlAttrSpcFirstLastPara.Value) then {self.}XmlAttrSpcFirstLastPara.Value := _obj.XmlAttrSpcFirstLastPara.Value; if not ifnil(_obj.XmlAttrVertOverflow.Value) then {self.}XmlAttrVertOverflow.Value := _obj.XmlAttrVertOverflow.Value; if not ifnil(_obj.XmlAttrHorzOverflow.Value) then {self.}XmlAttrHorzOverflow.Value := _obj.XmlAttrHorzOverflow.Value; if not ifnil(_obj.XmlAttrVert.Value) then {self.}XmlAttrVert.Value := _obj.XmlAttrVert.Value; if not ifnil(_obj.XmlAttrWrap.Value) then {self.}XmlAttrWrap.Value := _obj.XmlAttrWrap.Value; if not ifnil(_obj.XmlAttrLIns.Value) then {self.}XmlAttrLIns.Value := _obj.XmlAttrLIns.Value; if not ifnil(_obj.XmlAttrTIns.Value) then {self.}XmlAttrTIns.Value := _obj.XmlAttrTIns.Value; if not ifnil(_obj.XmlAttrRIns.Value) then {self.}XmlAttrRIns.Value := _obj.XmlAttrRIns.Value; if not ifnil(_obj.XmlAttrBIns.Value) then {self.}XmlAttrBIns.Value := _obj.XmlAttrBIns.Value; if not ifnil(_obj.XmlAttrNumCol.Value) then {self.}XmlAttrNumCol.Value := _obj.XmlAttrNumCol.Value; if not ifnil(_obj.XmlAttrSpcCol.Value) then {self.}XmlAttrSpcCol.Value := _obj.XmlAttrSpcCol.Value; if not ifnil(_obj.XmlAttrRtlCol.Value) then {self.}XmlAttrRtlCol.Value := _obj.XmlAttrRtlCol.Value; if not ifnil(_obj.XmlAttrFromWordArt.Value) then {self.}XmlAttrFromWordArt.Value := _obj.XmlAttrFromWordArt.Value; if not ifnil(_obj.XmlAttrAnchor.Value) then {self.}XmlAttrAnchor.Value := _obj.XmlAttrAnchor.Value; if not ifnil(_obj.XmlAttrAnchorCtr.Value) then {self.}XmlAttrAnchorCtr.Value := _obj.XmlAttrAnchorCtr.Value; if not ifnil(_obj.XmlAttrForceAA.Value) then {self.}XmlAttrForceAA.Value := _obj.XmlAttrForceAA.Value; if not ifnil(_obj.XmlAttrCompatLnSpc.Value) then {self.}XmlAttrCompatLnSpc.Value := _obj.XmlAttrCompatLnSpc.Value; {self.}PrstTxWrap.Copy(_obj.PrstTxWrap); {self.}XmlChildNoAutofit.Copy(_obj.XmlChildNoAutofit); end; function BodyPr.ReadXmlAttrRot(); begin return {self.}XmlAttrRot.Value; end; function BodyPr.WriteXmlAttrRot(_value); begin {self.}XmlAttrRot.Value := _value; end; function BodyPr.ReadXmlAttrSpcFirstLastPara(); begin return {self.}XmlAttrSpcFirstLastPara.Value; end; function BodyPr.WriteXmlAttrSpcFirstLastPara(_value); begin {self.}XmlAttrSpcFirstLastPara.Value := _value; end; function BodyPr.ReadXmlAttrVertOverflow(); begin return {self.}XmlAttrVertOverflow.Value; end; function BodyPr.WriteXmlAttrVertOverflow(_value); begin {self.}XmlAttrVertOverflow.Value := _value; end; function BodyPr.ReadXmlAttrHorzOverflow(); begin return {self.}XmlAttrHorzOverflow.Value; end; function BodyPr.WriteXmlAttrHorzOverflow(_value); begin {self.}XmlAttrHorzOverflow.Value := _value; end; function BodyPr.ReadXmlAttrVert(); begin return {self.}XmlAttrVert.Value; end; function BodyPr.WriteXmlAttrVert(_value); begin {self.}XmlAttrVert.Value := _value; end; function BodyPr.ReadXmlAttrWrap(); begin return {self.}XmlAttrWrap.Value; end; function BodyPr.WriteXmlAttrWrap(_value); begin {self.}XmlAttrWrap.Value := _value; end; function BodyPr.ReadXmlAttrLIns(); begin return {self.}XmlAttrLIns.Value; end; function BodyPr.WriteXmlAttrLIns(_value); begin {self.}XmlAttrLIns.Value := _value; end; function BodyPr.ReadXmlAttrTIns(); begin return {self.}XmlAttrTIns.Value; end; function BodyPr.WriteXmlAttrTIns(_value); begin {self.}XmlAttrTIns.Value := _value; end; function BodyPr.ReadXmlAttrRIns(); begin return {self.}XmlAttrRIns.Value; end; function BodyPr.WriteXmlAttrRIns(_value); begin {self.}XmlAttrRIns.Value := _value; end; function BodyPr.ReadXmlAttrBIns(); begin return {self.}XmlAttrBIns.Value; end; function BodyPr.WriteXmlAttrBIns(_value); begin {self.}XmlAttrBIns.Value := _value; end; function BodyPr.ReadXmlAttrNumCol(); begin return {self.}XmlAttrNumCol.Value; end; function BodyPr.WriteXmlAttrNumCol(_value); begin {self.}XmlAttrNumCol.Value := _value; end; function BodyPr.ReadXmlAttrSpcCol(); begin return {self.}XmlAttrSpcCol.Value; end; function BodyPr.WriteXmlAttrSpcCol(_value); begin {self.}XmlAttrSpcCol.Value := _value; end; function BodyPr.ReadXmlAttrRtlCol(); begin return {self.}XmlAttrRtlCol.Value; end; function BodyPr.WriteXmlAttrRtlCol(_value); begin {self.}XmlAttrRtlCol.Value := _value; end; function BodyPr.ReadXmlAttrFromWordArt(); begin return {self.}XmlAttrFromWordArt.Value; end; function BodyPr.WriteXmlAttrFromWordArt(_value); begin {self.}XmlAttrFromWordArt.Value := _value; end; function BodyPr.ReadXmlAttrAnchor(); begin return {self.}XmlAttrAnchor.Value; end; function BodyPr.WriteXmlAttrAnchor(_value); begin {self.}XmlAttrAnchor.Value := _value; end; function BodyPr.ReadXmlAttrAnchorCtr(); begin return {self.}XmlAttrAnchorCtr.Value; end; function BodyPr.WriteXmlAttrAnchorCtr(_value); begin {self.}XmlAttrAnchorCtr.Value := _value; end; function BodyPr.ReadXmlAttrForceAA(); begin return {self.}XmlAttrForceAA.Value; end; function BodyPr.WriteXmlAttrForceAA(_value); begin {self.}XmlAttrForceAA.Value := _value; end; function BodyPr.ReadXmlAttrCompatLnSpc(); begin return {self.}XmlAttrCompatLnSpc.Value; end; function BodyPr.WriteXmlAttrCompatLnSpc(_value); begin {self.}XmlAttrCompatLnSpc.Value := _value; end; function BodyPr.ReadXmlChildNoAutofit(); begin return ifnil({self.}XmlChildNoAutofit.Value) ? false : true; end; function BodyPr.WriteXmlChildNoAutofit(_value); begin {self.}XmlChildNoAutofit.Value := _value; end;