OfficeXml/autoclass/docx/Spacing@DOCX.tsf

type Spacing = 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: Spacing);override;

    property Before read ReadXmlAttrBefore write WriteXmlAttrBefore;
    property BeforeLines read ReadXmlAttrBeforeLines write WriteXmlAttrBeforeLines;
    property BeforeAutospacing read ReadXmlAttrBeforeAutospacing write WriteXmlAttrBeforeAutospacing;
    property After read ReadXmlAttrAfter write WriteXmlAttrAfter;
    property AfterLines read ReadXmlAttrAfterLines write WriteXmlAttrAfterLines;
    property AfterAutospacing read ReadXmlAttrAfterAutospacing write WriteXmlAttrAfterAutospacing;
    property Line read ReadXmlAttrLine write WriteXmlAttrLine;
    property LineRule read ReadXmlAttrLineRule write WriteXmlAttrLineRule;
    function ReadXmlAttrBefore();
    function WriteXmlAttrBefore(_value);
    function ReadXmlAttrBeforeLines();
    function WriteXmlAttrBeforeLines(_value);
    function ReadXmlAttrBeforeAutospacing();
    function WriteXmlAttrBeforeAutospacing(_value);
    function ReadXmlAttrAfter();
    function WriteXmlAttrAfter(_value);
    function ReadXmlAttrAfterLines();
    function WriteXmlAttrAfterLines(_value);
    function ReadXmlAttrAfterAutospacing();
    function WriteXmlAttrAfterAutospacing(_value);
    function ReadXmlAttrLine();
    function WriteXmlAttrLine(_value);
    function ReadXmlAttrLineRule();
    function WriteXmlAttrLineRule(_value);

public
    //  Attributes
    XmlAttrBefore: OpenXmlAttribute;
    XmlAttrBeforeLines: OpenXmlAttribute;
    XmlAttrBeforeAutospacing: OpenXmlAttribute;
    XmlAttrAfter: OpenXmlAttribute;
    XmlAttrAfterLines: OpenXmlAttribute;
    XmlAttrAfterAutospacing: OpenXmlAttribute;
    XmlAttrLine: OpenXmlAttribute;
    XmlAttrLineRule: OpenXmlAttribute;

    // Children

end;

function Spacing.Create();overload;
begin
    self.Create(nil, "w", "spacing");
end;

function Spacing.Create(_node: XmlNode);overload;
begin
    class(OpenXmlElement).Create(_node: XmlNode);
end;

function Spacing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
    class(OpenXmlElement).Create(_parent, _prefix, _local_name);
end;

function Spacing.Init();override;
begin
    self.XmlAttrBefore := new OpenXmlAttribute(self.Prefix, "before", nil);
    self.XmlAttrBeforeLines := new OpenXmlAttribute(self.Prefix, "beforeLines", nil);
    self.XmlAttrBeforeAutospacing := new OpenXmlAttribute(self.Prefix, "beforeAutospacing", nil);
    self.XmlAttrAfter := new OpenXmlAttribute(self.Prefix, "after", nil);
    self.XmlAttrAfterLines := new OpenXmlAttribute(self.Prefix, "afterLines", nil);
    self.XmlAttrAfterAutospacing := new OpenXmlAttribute(self.Prefix, "afterAutospacing", nil);
    self.XmlAttrLine := new OpenXmlAttribute(self.Prefix, "line", nil);
    self.XmlAttrLineRule := new OpenXmlAttribute(self.Prefix, "lineRule", nil);
end;

function Spacing.InitAttributes();override;
begin
    attributes_ := array(
        self.XmlAttrBefore,
        self.XmlAttrBeforeLines,
        self.XmlAttrBeforeAutospacing,
        self.XmlAttrAfter,
        self.XmlAttrAfterLines,
        self.XmlAttrAfterAutospacing,
        self.XmlAttrLine,
        self.XmlAttrLineRule,
    );
end;

function Spacing.InitChildren();override;
begin
    child_elements_ := array(
    );
    sorted_child_ := array(
        "": -1,
    );
end;

function Spacing.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;
end;

function Spacing.Copy(_obj: Spacing);override;
begin
    if not ifnil(_obj.XmlAttrBefore.Value) then
        self.XmlAttrBefore.Value := _obj.XmlAttrBefore.Value;
    if not ifnil(_obj.XmlAttrBeforeLines.Value) then
        self.XmlAttrBeforeLines.Value := _obj.XmlAttrBeforeLines.Value;
    if not ifnil(_obj.XmlAttrBeforeAutospacing.Value) then
        self.XmlAttrBeforeAutospacing.Value := _obj.XmlAttrBeforeAutospacing.Value;
    if not ifnil(_obj.XmlAttrAfter.Value) then
        self.XmlAttrAfter.Value := _obj.XmlAttrAfter.Value;
    if not ifnil(_obj.XmlAttrAfterLines.Value) then
        self.XmlAttrAfterLines.Value := _obj.XmlAttrAfterLines.Value;
    if not ifnil(_obj.XmlAttrAfterAutospacing.Value) then
        self.XmlAttrAfterAutospacing.Value := _obj.XmlAttrAfterAutospacing.Value;
    if not ifnil(_obj.XmlAttrLine.Value) then
        self.XmlAttrLine.Value := _obj.XmlAttrLine.Value;
    if not ifnil(_obj.XmlAttrLineRule.Value) then
        self.XmlAttrLineRule.Value := _obj.XmlAttrLineRule.Value;
end;

function Spacing.ReadXmlAttrBefore();
begin
    return self.XmlAttrBefore.Value;
end;

function Spacing.WriteXmlAttrBefore(_value);
begin
    self.XmlAttrBefore.Value := _value;
end;

function Spacing.ReadXmlAttrBeforeLines();
begin
    return self.XmlAttrBeforeLines.Value;
end;

function Spacing.WriteXmlAttrBeforeLines(_value);
begin
    self.XmlAttrBeforeLines.Value := _value;
end;

function Spacing.ReadXmlAttrBeforeAutospacing();
begin
    return self.XmlAttrBeforeAutospacing.Value;
end;

function Spacing.WriteXmlAttrBeforeAutospacing(_value);
begin
    self.XmlAttrBeforeAutospacing.Value := _value;
end;

function Spacing.ReadXmlAttrAfter();
begin
    return self.XmlAttrAfter.Value;
end;

function Spacing.WriteXmlAttrAfter(_value);
begin
    self.XmlAttrAfter.Value := _value;
end;

function Spacing.ReadXmlAttrAfterLines();
begin
    return self.XmlAttrAfterLines.Value;
end;

function Spacing.WriteXmlAttrAfterLines(_value);
begin
    self.XmlAttrAfterLines.Value := _value;
end;

function Spacing.ReadXmlAttrAfterAutospacing();
begin
    return self.XmlAttrAfterAutospacing.Value;
end;

function Spacing.WriteXmlAttrAfterAutospacing(_value);
begin
    self.XmlAttrAfterAutospacing.Value := _value;
end;

function Spacing.ReadXmlAttrLine();
begin
    return self.XmlAttrLine.Value;
end;

function Spacing.WriteXmlAttrLine(_value);
begin
    self.XmlAttrLine.Value := _value;
end;

function Spacing.ReadXmlAttrLineRule();
begin
    return self.XmlAttrLineRule.Value;
end;

function Spacing.WriteXmlAttrLineRule(_value);
begin
    self.XmlAttrLineRule.Value := _value;
end;