type _Inline = 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: _Inline);override; property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT; property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB; property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL; property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR; property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId; function ReadXmlAttrDistT(); function WriteXmlAttrDistT(_value); function ReadXmlAttrDistB(); function WriteXmlAttrDistB(_value); function ReadXmlAttrDistL(); function WriteXmlAttrDistL(_value); function ReadXmlAttrDistR(); function WriteXmlAttrDistR(_value); function ReadXmlAttrAnchorId(); function WriteXmlAttrAnchorId(_value); function ReadXmlAttrEditId(); function WriteXmlAttrEditId(_value); public // Attributes XmlAttrDistT: OpenXmlAttribute; XmlAttrDistB: OpenXmlAttribute; XmlAttrDistL: OpenXmlAttribute; XmlAttrDistR: OpenXmlAttribute; XmlAttrAnchorId: OpenXmlAttribute; XmlAttrEditId: OpenXmlAttribute; // Children Extent: CXY; EffectExtent: EffectExtent; DocPr: DocPr; CNvGraphicFramePr: CNvGraphicFramePr; Graphic: Graphic; end; function _Inline.Create();overload; begin {self.}Create(nil, "wp", "inline"); end; function _Inline.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function _Inline.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function _Inline.Init();override; begin {self.}XmlAttrDistT := new OpenXmlAttribute(nil, "distT", nil); {self.}XmlAttrDistB := new OpenXmlAttribute(nil, "distB", nil); {self.}XmlAttrDistL := new OpenXmlAttribute(nil, "distL", nil); {self.}XmlAttrDistR := new OpenXmlAttribute(nil, "distR", nil); {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); {self.}Extent := new CXY(self, {self.}Prefix, "extent"); {self.}EffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); {self.}DocPr := new DocPr(self, {self.}Prefix, "docPr"); {self.}CNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); {self.}Graphic := new Graphic(self, "a", "graphic"); end; function _Inline.InitAttributes();override; begin attributes_ := array( {self.}XmlAttrDistT, {self.}XmlAttrDistB, {self.}XmlAttrDistL, {self.}XmlAttrDistR, {self.}XmlAttrAnchorId, {self.}XmlAttrEditId, ); end; function _Inline.InitChildren();override; begin child_elements_ := array( 0: {self.}Extent, 1: {self.}EffectExtent, 2: {self.}DocPr, 3: {self.}CNvGraphicFramePr, 4: {self.}Graphic, ); sorted_child_ := array( "": -1, {self.}Extent.ElementName: 0, {self.}EffectExtent.ElementName: 1, {self.}DocPr.ElementName: 2, {self.}CNvGraphicFramePr.ElementName: 3, {self.}Graphic.ElementName: 4, ); end; function _Inline.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 _Inline.Copy(_obj: _Inline);override; begin if not ifnil(_obj.XmlAttrDistT.Value) then {self.}XmlAttrDistT.Value := _obj.XmlAttrDistT.Value; if not ifnil(_obj.XmlAttrDistB.Value) then {self.}XmlAttrDistB.Value := _obj.XmlAttrDistB.Value; if not ifnil(_obj.XmlAttrDistL.Value) then {self.}XmlAttrDistL.Value := _obj.XmlAttrDistL.Value; if not ifnil(_obj.XmlAttrDistR.Value) then {self.}XmlAttrDistR.Value := _obj.XmlAttrDistR.Value; if not ifnil(_obj.XmlAttrAnchorId.Value) then {self.}XmlAttrAnchorId.Value := _obj.XmlAttrAnchorId.Value; if not ifnil(_obj.XmlAttrEditId.Value) then {self.}XmlAttrEditId.Value := _obj.XmlAttrEditId.Value; {self.}Extent.Copy(_obj.Extent); {self.}EffectExtent.Copy(_obj.EffectExtent); {self.}DocPr.Copy(_obj.DocPr); {self.}CNvGraphicFramePr.Copy(_obj.CNvGraphicFramePr); {self.}Graphic.Copy(_obj.Graphic); end; function _Inline.ReadXmlAttrDistT(); begin return {self.}XmlAttrDistT.Value; end; function _Inline.WriteXmlAttrDistT(_value); begin {self.}XmlAttrDistT.Value := _value; end; function _Inline.ReadXmlAttrDistB(); begin return {self.}XmlAttrDistB.Value; end; function _Inline.WriteXmlAttrDistB(_value); begin {self.}XmlAttrDistB.Value := _value; end; function _Inline.ReadXmlAttrDistL(); begin return {self.}XmlAttrDistL.Value; end; function _Inline.WriteXmlAttrDistL(_value); begin {self.}XmlAttrDistL.Value := _value; end; function _Inline.ReadXmlAttrDistR(); begin return {self.}XmlAttrDistR.Value; end; function _Inline.WriteXmlAttrDistR(_value); begin {self.}XmlAttrDistR.Value := _value; end; function _Inline.ReadXmlAttrAnchorId(); begin return {self.}XmlAttrAnchorId.Value; end; function _Inline.WriteXmlAttrAnchorId(_value); begin {self.}XmlAttrAnchorId.Value := _value; end; function _Inline.ReadXmlAttrEditId(); begin return {self.}XmlAttrEditId.Value; end; function _Inline.WriteXmlAttrEditId(_value); begin {self.}XmlAttrEditId.Value := _value; end;