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 Jc read ReadXmlChildJc;
    property Shd read ReadXmlChildShd;
    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;
    property TblCellSpacing read ReadXmlChildTblCellSpacing;
    property TblCaption read ReadXmlChildTblCaption;
    property TblDescription read ReadXmlChildTblDescription;
    property TblStyleRowBandSize read ReadXmlChildTblStyleRowBandSize;
    property TblStyleColBandSize read ReadXmlChildTblStyleColBandSize;
    function ReadXmlChildJc();
    function ReadXmlChildShd();
    function ReadXmlChildTblStyle();
    function ReadXmlChildTblW();
    function ReadXmlChildTblInd();
    function ReadXmlChildTblLayout();
    function ReadXmlChildTblLook();
    function ReadXmlChildTblBorders();
    function ReadXmlChildTblCellMar();
    function ReadXmlChildTblCellSpacing();
    function ReadXmlChildTblCaption();
    function ReadXmlChildTblDescription();
    function ReadXmlChildTblStyleRowBandSize();
    function ReadXmlChildTblStyleColBandSize();

public
    // Children
    XmlChildJc: PureWVal;
    XmlChildShd: Shd;
    XmlChildTblStyle: PureWVal;
    XmlChildTblW: TblW;
    XmlChildTblInd: TblW;
    XmlChildTblLayout: TblLayout;
    XmlChildTblLook: TblLook;
    XmlChildTblBorders: TblBorders;
    XmlChildTblCellMar: TblCellMar;
    XmlChildTblCellSpacing: TblCellSpacing;
    XmlChildTblCaption: PureWVal;
    XmlChildTblDescription: PureWVal;
    XmlChildTblStyleRowBandSize: PureWVal;
    XmlChildTblStyleColBandSize: PureWVal;

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 + "jc": array(0, makeweakref(thisFunction(ReadXmlChildJc))),
        pre + "shd": array(1, makeweakref(thisFunction(ReadXmlChildShd))),
        pre + "tblStyle": array(2, makeweakref(thisFunction(ReadXmlChildTblStyle))),
        pre + "tblW": array(3, makeweakref(thisFunction(ReadXmlChildTblW))),
        pre + "tblInd": array(4, makeweakref(thisFunction(ReadXmlChildTblInd))),
        pre + "tblLayout": array(5, makeweakref(thisFunction(ReadXmlChildTblLayout))),
        pre + "tblLook": array(6, makeweakref(thisFunction(ReadXmlChildTblLook))),
        pre + "tblBorders": array(7, makeweakref(thisFunction(ReadXmlChildTblBorders))),
        pre + "tblCellMar": array(8, makeweakref(thisFunction(ReadXmlChildTblCellMar))),
        pre + "tblCellSpacing": array(9, makeweakref(thisFunction(ReadXmlChildTblCellSpacing))),
        pre + "tblCaption": array(10, makeweakref(thisFunction(ReadXmlChildTblCaption))),
        pre + "tblDescription": array(11, makeweakref(thisFunction(ReadXmlChildTblDescription))),
        pre + "tblStyleRowBandSize": array(12, makeweakref(thisFunction(ReadXmlChildTblStyleRowBandSize))),
        pre + "tblStyleColBandSize": array(13, makeweakref(thisFunction(ReadXmlChildTblStyleColBandSize))),
    );
    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.XmlChildJc) then
        {self.}Jc.Copy(_obj.XmlChildJc);
    if not ifnil(_obj.XmlChildShd) then
        {self.}Shd.Copy(_obj.XmlChildShd);
    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);
    if not ifnil(_obj.XmlChildTblCellSpacing) then
        {self.}TblCellSpacing.Copy(_obj.XmlChildTblCellSpacing);
    if not ifnil(_obj.XmlChildTblCaption) then
        {self.}TblCaption.Copy(_obj.XmlChildTblCaption);
    if not ifnil(_obj.XmlChildTblDescription) then
        {self.}TblDescription.Copy(_obj.XmlChildTblDescription);
    if not ifnil(_obj.XmlChildTblStyleRowBandSize) then
        {self.}TblStyleRowBandSize.Copy(_obj.XmlChildTblStyleRowBandSize);
    if not ifnil(_obj.XmlChildTblStyleColBandSize) then
        {self.}TblStyleColBandSize.Copy(_obj.XmlChildTblStyleColBandSize);
    tslassigning := tslassigning_backup;
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.ReadXmlChildShd();
begin
    if tslassigning and ifnil({self.}XmlChildShd) then
    begin
        {self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd");
        container_.Set({self.}XmlChildShd);
    end
    return {self.}XmlChildShd;
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;

function TblPr.ReadXmlChildTblCellSpacing();
begin
    if tslassigning and ifnil({self.}XmlChildTblCellSpacing) then
    begin
        {self.}XmlChildTblCellSpacing := new TblCellSpacing(self, {self.}Prefix, "tblCellSpacing");
        container_.Set({self.}XmlChildTblCellSpacing);
    end
    return {self.}XmlChildTblCellSpacing;
end;

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

function TblPr.ReadXmlChildTblDescription();
begin
    if tslassigning and ifnil({self.}XmlChildTblDescription) then
    begin
        {self.}XmlChildTblDescription := new PureWVal(self, {self.}Prefix, "tblDescription");
        container_.Set({self.}XmlChildTblDescription);
    end
    return {self.}XmlChildTblDescription;
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;