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;