OfficeXml/autoclass/docx/Ind@DOCX.tsf

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

    property FirstLineChars read ReadXmlAttrFirstLineChars write WriteXmlAttrFirstLineChars;
    property FirstLine read ReadXmlAttrFirstLine write WriteXmlAttrFirstLine;
    property RightChars read ReadXmlAttrRightChars write WriteXmlAttrRightChars;
    property Right read ReadXmlAttrRight write WriteXmlAttrRight;
    property LeftChars read ReadXmlAttrLeftChars write WriteXmlAttrLeftChars;
    property Left read ReadXmlAttrLeft write WriteXmlAttrLeft;
    property Hanging read ReadXmlAttrHanging write WriteXmlAttrHanging;
    property HangingChars read ReadXmlAttrHangingChars write WriteXmlAttrHangingChars;
    function ReadXmlAttrFirstLineChars();
    function WriteXmlAttrFirstLineChars(_value);
    function ReadXmlAttrFirstLine();
    function WriteXmlAttrFirstLine(_value);
    function ReadXmlAttrRightChars();
    function WriteXmlAttrRightChars(_value);
    function ReadXmlAttrRight();
    function WriteXmlAttrRight(_value);
    function ReadXmlAttrLeftChars();
    function WriteXmlAttrLeftChars(_value);
    function ReadXmlAttrLeft();
    function WriteXmlAttrLeft(_value);
    function ReadXmlAttrHanging();
    function WriteXmlAttrHanging(_value);
    function ReadXmlAttrHangingChars();
    function WriteXmlAttrHangingChars(_value);

public
    //  Attributes
    XmlAttrFirstLineChars: OpenXmlAttribute;
    XmlAttrFirstLine: OpenXmlAttribute;
    XmlAttrRightChars: OpenXmlAttribute;
    XmlAttrRight: OpenXmlAttribute;
    XmlAttrLeftChars: OpenXmlAttribute;
    XmlAttrLeft: OpenXmlAttribute;
    XmlAttrHanging: OpenXmlAttribute;
    XmlAttrHangingChars: OpenXmlAttribute;

    // Children

end;

function Ind.Create();overload;
begin
    self.Create(nil, "w", "ind");
end;

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

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

function Ind.Init();override;
begin
    self.XmlAttrFirstLineChars := new OpenXmlAttribute(self.Prefix, "firstLineChars", nil);
    self.XmlAttrFirstLine := new OpenXmlAttribute(self.Prefix, "firstLine", nil);
    self.XmlAttrRightChars := new OpenXmlAttribute(self.Prefix, "rightChars", nil);
    self.XmlAttrRight := new OpenXmlAttribute(self.Prefix, "right", nil);
    self.XmlAttrLeftChars := new OpenXmlAttribute(self.Prefix, "leftChars", nil);
    self.XmlAttrLeft := new OpenXmlAttribute(self.Prefix, "left", nil);
    self.XmlAttrHanging := new OpenXmlAttribute(self.Prefix, "hainging", nil);
    self.XmlAttrHangingChars := new OpenXmlAttribute(self.Prefix, "hangingChars", nil);
end;

function Ind.InitAttributes();override;
begin
    attributes_ := array(
        self.XmlAttrFirstLineChars,
        self.XmlAttrFirstLine,
        self.XmlAttrRightChars,
        self.XmlAttrRight,
        self.XmlAttrLeftChars,
        self.XmlAttrLeft,
        self.XmlAttrHanging,
        self.XmlAttrHangingChars,
    );
end;

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

function Ind.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 Ind.Copy(_obj: Ind);override;
begin
    if not ifnil(_obj.XmlAttrFirstLineChars.Value) then
        self.XmlAttrFirstLineChars.Value := _obj.XmlAttrFirstLineChars.Value;
    if not ifnil(_obj.XmlAttrFirstLine.Value) then
        self.XmlAttrFirstLine.Value := _obj.XmlAttrFirstLine.Value;
    if not ifnil(_obj.XmlAttrRightChars.Value) then
        self.XmlAttrRightChars.Value := _obj.XmlAttrRightChars.Value;
    if not ifnil(_obj.XmlAttrRight.Value) then
        self.XmlAttrRight.Value := _obj.XmlAttrRight.Value;
    if not ifnil(_obj.XmlAttrLeftChars.Value) then
        self.XmlAttrLeftChars.Value := _obj.XmlAttrLeftChars.Value;
    if not ifnil(_obj.XmlAttrLeft.Value) then
        self.XmlAttrLeft.Value := _obj.XmlAttrLeft.Value;
    if not ifnil(_obj.XmlAttrHanging.Value) then
        self.XmlAttrHanging.Value := _obj.XmlAttrHanging.Value;
    if not ifnil(_obj.XmlAttrHangingChars.Value) then
        self.XmlAttrHangingChars.Value := _obj.XmlAttrHangingChars.Value;
end;

function Ind.ReadXmlAttrFirstLineChars();
begin
    return self.XmlAttrFirstLineChars.Value;
end;

function Ind.WriteXmlAttrFirstLineChars(_value);
begin
    self.XmlAttrFirstLineChars.Value := _value;
end;

function Ind.ReadXmlAttrFirstLine();
begin
    return self.XmlAttrFirstLine.Value;
end;

function Ind.WriteXmlAttrFirstLine(_value);
begin
    self.XmlAttrFirstLine.Value := _value;
end;

function Ind.ReadXmlAttrRightChars();
begin
    return self.XmlAttrRightChars.Value;
end;

function Ind.WriteXmlAttrRightChars(_value);
begin
    self.XmlAttrRightChars.Value := _value;
end;

function Ind.ReadXmlAttrRight();
begin
    return self.XmlAttrRight.Value;
end;

function Ind.WriteXmlAttrRight(_value);
begin
    self.XmlAttrRight.Value := _value;
end;

function Ind.ReadXmlAttrLeftChars();
begin
    return self.XmlAttrLeftChars.Value;
end;

function Ind.WriteXmlAttrLeftChars(_value);
begin
    self.XmlAttrLeftChars.Value := _value;
end;

function Ind.ReadXmlAttrLeft();
begin
    return self.XmlAttrLeft.Value;
end;

function Ind.WriteXmlAttrLeft(_value);
begin
    self.XmlAttrLeft.Value := _value;
end;

function Ind.ReadXmlAttrHanging();
begin
    return self.XmlAttrHanging.Value;
end;

function Ind.WriteXmlAttrHanging(_value);
begin
    self.XmlAttrHanging.Value := _value;
end;

function Ind.ReadXmlAttrHangingChars();
begin
    return self.XmlAttrHangingChars.Value;
end;

function Ind.WriteXmlAttrHangingChars(_value);
begin
    self.XmlAttrHangingChars.Value := _value;
end;