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;