OfficeXml/autoclass/docx/_Inline@DOCX.tsf

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 Copy(_obj: _Inline);override;

public

    // attributes property
    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);

    // normal property
    property Extent read ReadXmlChildExtent;
    property EffectExtent read ReadXmlChildEffectExtent;
    property DocPr read ReadXmlChildDocPr;
    property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr;
    property Graphic read ReadXmlChildGraphic;
    function ReadXmlChildExtent();
    function ReadXmlChildEffectExtent();
    function ReadXmlChildDocPr();
    function ReadXmlChildCNvGraphicFramePr();
    function ReadXmlChildGraphic();

public
    // Attributes
    XmlAttrDistT: OpenXmlAttribute;
    XmlAttrDistB: OpenXmlAttribute;
    XmlAttrDistL: OpenXmlAttribute;
    XmlAttrDistR: OpenXmlAttribute;
    XmlAttrAnchorId: OpenXmlAttribute;
    XmlAttrEditId: OpenXmlAttribute;

    // Children
    XmlChildExtent: CXY;
    XmlChildEffectExtent: EffectExtent;
    XmlChildDocPr: DocPr;
    XmlChildCNvGraphicFramePr: CNvGraphicFramePr;
    XmlChildGraphic: 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
    setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
    class(OpenXmlElement).Create(_parent, _prefix, _local_name);
end;

function _Inline.Init();override;
begin
    pre := {self.}Prefix ? {self.}Prefix + ":" : "";
    attributes_ := array();
    attributes_pf_ := array(
        "distT": makeweakref(thisFunction(WriteXmlAttrDistT)),
        "distB": makeweakref(thisFunction(WriteXmlAttrDistB)),
        "distL": makeweakref(thisFunction(WriteXmlAttrDistL)),
        "distR": makeweakref(thisFunction(WriteXmlAttrDistR)),
        "wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)),
        "wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)),
    );
    sorted_child_ := array(
        pre + "extent": array(0, makeweakref(thisFunction(ReadXmlChildExtent))),
        pre + "effectExtent": array(1, makeweakref(thisFunction(ReadXmlChildEffectExtent))),
        pre + "docPr": array(2, makeweakref(thisFunction(ReadXmlChildDocPr))),
        pre + "cNvGraphicFramePr": array(3, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))),
        "a:graphic": array(4, makeweakref(thisFunction(ReadXmlChildGraphic))),
    );
    container_ := new TSOfficeContainer(sorted_child_);
end;

function _Inline.Copy(_obj: _Inline);override;
begin
    tslassigning_backup := tslassigning;
    tslassigning := 1;
    class(OpenXmlElement).Copy(_obj);
    if not ifnil(_obj.DistT) then
        {self.}DistT := _obj.DistT;
    if not ifnil(_obj.DistB) then
        {self.}DistB := _obj.DistB;
    if not ifnil(_obj.DistL) then
        {self.}DistL := _obj.DistL;
    if not ifnil(_obj.DistR) then
        {self.}DistR := _obj.DistR;
    if not ifnil(_obj.AnchorId) then
        {self.}AnchorId := _obj.AnchorId;
    if not ifnil(_obj.EditId) then
        {self.}EditId := _obj.EditId;
    if not ifnil(_obj.XmlChildExtent) then
        {self.}Extent.Copy(_obj.XmlChildExtent);
    if not ifnil(_obj.XmlChildEffectExtent) then
        {self.}EffectExtent.Copy(_obj.XmlChildEffectExtent);
    if not ifnil(_obj.XmlChildDocPr) then
        {self.}DocPr.Copy(_obj.XmlChildDocPr);
    if not ifnil(_obj.XmlChildCNvGraphicFramePr) then
        {self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr);
    if not ifnil(_obj.XmlChildGraphic) then
        {self.}Graphic.Copy(_obj.XmlChildGraphic);
    tslassigning := tslassigning_backup;
end;

function _Inline.ReadXmlAttrDistT();
begin
    return {self.}XmlAttrDistT.Value;
end;

function _Inline.WriteXmlAttrDistT(_value);
begin
    if ifnil({self.}XmlAttrDistT) then
    begin
        {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrDistT;
    end
    {self.}XmlAttrDistT.Value := _value;
end;

function _Inline.ReadXmlAttrDistB();
begin
    return {self.}XmlAttrDistB.Value;
end;

function _Inline.WriteXmlAttrDistB(_value);
begin
    if ifnil({self.}XmlAttrDistB) then
    begin
        {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrDistB;
    end
    {self.}XmlAttrDistB.Value := _value;
end;

function _Inline.ReadXmlAttrDistL();
begin
    return {self.}XmlAttrDistL.Value;
end;

function _Inline.WriteXmlAttrDistL(_value);
begin
    if ifnil({self.}XmlAttrDistL) then
    begin
        {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrDistL;
    end
    {self.}XmlAttrDistL.Value := _value;
end;

function _Inline.ReadXmlAttrDistR();
begin
    return {self.}XmlAttrDistR.Value;
end;

function _Inline.WriteXmlAttrDistR(_value);
begin
    if ifnil({self.}XmlAttrDistR) then
    begin
        {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrDistR;
    end
    {self.}XmlAttrDistR.Value := _value;
end;

function _Inline.ReadXmlAttrAnchorId();
begin
    return {self.}XmlAttrAnchorId.Value;
end;

function _Inline.WriteXmlAttrAnchorId(_value);
begin
    if ifnil({self.}XmlAttrAnchorId) then
    begin
        {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrAnchorId;
    end
    {self.}XmlAttrAnchorId.Value := _value;
end;

function _Inline.ReadXmlAttrEditId();
begin
    return {self.}XmlAttrEditId.Value;
end;

function _Inline.WriteXmlAttrEditId(_value);
begin
    if ifnil({self.}XmlAttrEditId) then
    begin
        {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil);
        attributes_[length(attributes_)] := {self.}XmlAttrEditId;
    end
    {self.}XmlAttrEditId.Value := _value;
end;

function _Inline.ReadXmlChildExtent();
begin
    if tslassigning and ifnil({self.}XmlChildExtent) then
    begin
        {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent");
        container_.Set({self.}XmlChildExtent);
    end
    return {self.}XmlChildExtent;
end;

function _Inline.ReadXmlChildEffectExtent();
begin
    if tslassigning and ifnil({self.}XmlChildEffectExtent) then
    begin
        {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent");
        container_.Set({self.}XmlChildEffectExtent);
    end
    return {self.}XmlChildEffectExtent;
end;

function _Inline.ReadXmlChildDocPr();
begin
    if tslassigning and ifnil({self.}XmlChildDocPr) then
    begin
        {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr");
        container_.Set({self.}XmlChildDocPr);
    end
    return {self.}XmlChildDocPr;
end;

function _Inline.ReadXmlChildCNvGraphicFramePr();
begin
    if tslassigning and ifnil({self.}XmlChildCNvGraphicFramePr) then
    begin
        {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr");
        container_.Set({self.}XmlChildCNvGraphicFramePr);
    end
    return {self.}XmlChildCNvGraphicFramePr;
end;

function _Inline.ReadXmlChildGraphic();
begin
    if tslassigning and ifnil({self.}XmlChildGraphic) then
    begin
        {self.}XmlChildGraphic := new Graphic(self, "a", "graphic");
        container_.Set({self.}XmlChildGraphic);
    end
    return {self.}XmlChildGraphic;
end;