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;