OfficeXml/autoclass/docx/TblPr@DOCX.tsf

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

public

    // normal property
    property TblStyleRowBandSize read ReadXmlChildTblStyleRowBandSize;
    property TblStyleColBandSize read ReadXmlChildTblStyleColBandSize;
    property Jc read ReadXmlChildJc;
    property TblStyle read ReadXmlChildTblStyle;
    property TblW read ReadXmlChildTblW;
    property TblInd read ReadXmlChildTblInd;
    property TblLayout read ReadXmlChildTblLayout;
    property TblLook read ReadXmlChildTblLook;
    property TblBorders read ReadXmlChildTblBorders;
    property TblCellMar read ReadXmlChildTblCellMar;
    function ReadXmlChildTblStyleRowBandSize();
    function ReadXmlChildTblStyleColBandSize();
    function ReadXmlChildJc();
    function ReadXmlChildTblStyle();
    function ReadXmlChildTblW();
    function ReadXmlChildTblInd();
    function ReadXmlChildTblLayout();
    function ReadXmlChildTblLook();
    function ReadXmlChildTblBorders();
    function ReadXmlChildTblCellMar();

public
    // Children
    XmlChildTblStyleRowBandSize: PureWVal;
    XmlChildTblStyleColBandSize: PureWVal;
    XmlChildJc: PureWVal;
    XmlChildTblStyle: PureWVal;
    XmlChildTblW: TblW;
    XmlChildTblInd: TblW;
    XmlChildTblLayout: TblLayout;
    XmlChildTblLook: TblLook;
    XmlChildTblBorders: TblBorders;
    XmlChildTblCellMar: TblCellMar;

end;

function TblPr.Create();overload;
begin
    {self.}Create(nil, "w", "tblPr");
end;

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

function TblPr.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 TblPr.Init();override;
begin
    pre := {self.}Prefix ? {self.}Prefix + ":" : "";
    attributes_ := array();
    attributes_pf_ := array(
    );
    sorted_child_ := array(
        pre + "tblStyleRowBandSize": array(0, makeweakref(thisFunction(ReadXmlChildTblStyleRowBandSize))),
        pre + "tblStyleColBandSize": array(1, makeweakref(thisFunction(ReadXmlChildTblStyleColBandSize))),
        pre + "jc": array(2, makeweakref(thisFunction(ReadXmlChildJc))),
        pre + "tblStyle": array(3, makeweakref(thisFunction(ReadXmlChildTblStyle))),
        pre + "tblW": array(4, makeweakref(thisFunction(ReadXmlChildTblW))),
        pre + "tblInd": array(5, makeweakref(thisFunction(ReadXmlChildTblInd))),
        pre + "tblLayout": array(6, makeweakref(thisFunction(ReadXmlChildTblLayout))),
        pre + "tblLook": array(7, makeweakref(thisFunction(ReadXmlChildTblLook))),
        pre + "tblBorders": array(8, makeweakref(thisFunction(ReadXmlChildTblBorders))),
        pre + "tblCellMar": array(9, makeweakref(thisFunction(ReadXmlChildTblCellMar))),
    );
    container_ := new TSOfficeContainer(sorted_child_);
end;

function TblPr.Copy(_obj: TblPr);override;
begin
    tslassigning_backup := tslassigning;
    tslassigning := 1;
    class(OpenXmlElement).Copy(_obj);
    if not ifnil(_obj.XmlChildTblStyleRowBandSize) then
        {self.}TblStyleRowBandSize.Copy(_obj.XmlChildTblStyleRowBandSize);
    if not ifnil(_obj.XmlChildTblStyleColBandSize) then
        {self.}TblStyleColBandSize.Copy(_obj.XmlChildTblStyleColBandSize);
    if not ifnil(_obj.XmlChildJc) then
        {self.}Jc.Copy(_obj.XmlChildJc);
    if not ifnil(_obj.XmlChildTblStyle) then
        {self.}TblStyle.Copy(_obj.XmlChildTblStyle);
    if not ifnil(_obj.XmlChildTblW) then
        {self.}TblW.Copy(_obj.XmlChildTblW);
    if not ifnil(_obj.XmlChildTblInd) then
        {self.}TblInd.Copy(_obj.XmlChildTblInd);
    if not ifnil(_obj.XmlChildTblLayout) then
        {self.}TblLayout.Copy(_obj.XmlChildTblLayout);
    if not ifnil(_obj.XmlChildTblLook) then
        {self.}TblLook.Copy(_obj.XmlChildTblLook);
    if not ifnil(_obj.XmlChildTblBorders) then
        {self.}TblBorders.Copy(_obj.XmlChildTblBorders);
    if not ifnil(_obj.XmlChildTblCellMar) then
        {self.}TblCellMar.Copy(_obj.XmlChildTblCellMar);
    tslassigning := tslassigning_backup;
end;

function TblPr.ReadXmlChildTblStyleRowBandSize();
begin
    if tslassigning and ifnil({self.}XmlChildTblStyleRowBandSize) then
    begin
        {self.}XmlChildTblStyleRowBandSize := new PureWVal(self, {self.}Prefix, "tblStyleRowBandSize");
        container_.Set({self.}XmlChildTblStyleRowBandSize);
    end
    return {self.}XmlChildTblStyleRowBandSize;
end;

function TblPr.ReadXmlChildTblStyleColBandSize();
begin
    if tslassigning and ifnil({self.}XmlChildTblStyleColBandSize) then
    begin
        {self.}XmlChildTblStyleColBandSize := new PureWVal(self, {self.}Prefix, "tblStyleColBandSize");
        container_.Set({self.}XmlChildTblStyleColBandSize);
    end
    return {self.}XmlChildTblStyleColBandSize;
end;

function TblPr.ReadXmlChildJc();
begin
    if tslassigning and ifnil({self.}XmlChildJc) then
    begin
        {self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc");
        container_.Set({self.}XmlChildJc);
    end
    return {self.}XmlChildJc;
end;

function TblPr.ReadXmlChildTblStyle();
begin
    if tslassigning and ifnil({self.}XmlChildTblStyle) then
    begin
        {self.}XmlChildTblStyle := new PureWVal(self, {self.}Prefix, "tblStyle");
        container_.Set({self.}XmlChildTblStyle);
    end
    return {self.}XmlChildTblStyle;
end;

function TblPr.ReadXmlChildTblW();
begin
    if tslassigning and ifnil({self.}XmlChildTblW) then
    begin
        {self.}XmlChildTblW := new TblW(self, {self.}Prefix, "tblW");
        container_.Set({self.}XmlChildTblW);
    end
    return {self.}XmlChildTblW;
end;

function TblPr.ReadXmlChildTblInd();
begin
    if tslassigning and ifnil({self.}XmlChildTblInd) then
    begin
        {self.}XmlChildTblInd := new TblW(self, {self.}Prefix, "tblInd");
        container_.Set({self.}XmlChildTblInd);
    end
    return {self.}XmlChildTblInd;
end;

function TblPr.ReadXmlChildTblLayout();
begin
    if tslassigning and ifnil({self.}XmlChildTblLayout) then
    begin
        {self.}XmlChildTblLayout := new TblLayout(self, {self.}Prefix, "tblLayout");
        container_.Set({self.}XmlChildTblLayout);
    end
    return {self.}XmlChildTblLayout;
end;

function TblPr.ReadXmlChildTblLook();
begin
    if tslassigning and ifnil({self.}XmlChildTblLook) then
    begin
        {self.}XmlChildTblLook := new TblLook(self, {self.}Prefix, "tblLook");
        container_.Set({self.}XmlChildTblLook);
    end
    return {self.}XmlChildTblLook;
end;

function TblPr.ReadXmlChildTblBorders();
begin
    if tslassigning and ifnil({self.}XmlChildTblBorders) then
    begin
        {self.}XmlChildTblBorders := new TblBorders(self, {self.}Prefix, "tblBorders");
        container_.Set({self.}XmlChildTblBorders);
    end
    return {self.}XmlChildTblBorders;
end;

function TblPr.ReadXmlChildTblCellMar();
begin
    if tslassigning and ifnil({self.}XmlChildTblCellMar) then
    begin
        {self.}XmlChildTblCellMar := new TblCellMar(self, {self.}Prefix, "tblCellMar");
        container_.Set({self.}XmlChildTblCellMar);
    end
    return {self.}XmlChildTblCellMar;
end;