type CnfStyle = 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: CnfStyle);override; public // attributes property property Val read ReadXmlAttrVal write WriteXmlAttrVal; property FirstRow read ReadXmlAttrFirstRow write WriteXmlAttrFirstRow; property LastRow read ReadXmlAttrLastRow write WriteXmlAttrLastRow; property FirstColumn read ReadXmlAttrFirstColumn write WriteXmlAttrFirstColumn; property LastColumn read ReadXmlAttrLastColumn write WriteXmlAttrLastColumn; property OddVBand read ReadXmlAttrOddVBand write WriteXmlAttrOddVBand; property EvenVBand read ReadXmlAttrEvenVBand write WriteXmlAttrEvenVBand; property OddHBand read ReadXmlAttrOddHBand write WriteXmlAttrOddHBand; property EvenHBand read ReadXmlAttrEvenHBand write WriteXmlAttrEvenHBand; property FirstRowFirstColumn read ReadXmlAttrFirstRowFirstColumn write WriteXmlAttrFirstRowFirstColumn; property FirstRowLastColumn read ReadXmlAttrFirstRowLastColumn write WriteXmlAttrFirstRowLastColumn; property LastRowFirstColumn read ReadXmlAttrLastRowFirstColumn write WriteXmlAttrLastRowFirstColumn; property LastRowLastColumn read ReadXmlAttrLastRowLastColumn write WriteXmlAttrLastRowLastColumn; function ReadXmlAttrVal(); function WriteXmlAttrVal(_value); function ReadXmlAttrFirstRow(); function WriteXmlAttrFirstRow(_value); function ReadXmlAttrLastRow(); function WriteXmlAttrLastRow(_value); function ReadXmlAttrFirstColumn(); function WriteXmlAttrFirstColumn(_value); function ReadXmlAttrLastColumn(); function WriteXmlAttrLastColumn(_value); function ReadXmlAttrOddVBand(); function WriteXmlAttrOddVBand(_value); function ReadXmlAttrEvenVBand(); function WriteXmlAttrEvenVBand(_value); function ReadXmlAttrOddHBand(); function WriteXmlAttrOddHBand(_value); function ReadXmlAttrEvenHBand(); function WriteXmlAttrEvenHBand(_value); function ReadXmlAttrFirstRowFirstColumn(); function WriteXmlAttrFirstRowFirstColumn(_value); function ReadXmlAttrFirstRowLastColumn(); function WriteXmlAttrFirstRowLastColumn(_value); function ReadXmlAttrLastRowFirstColumn(); function WriteXmlAttrLastRowFirstColumn(_value); function ReadXmlAttrLastRowLastColumn(); function WriteXmlAttrLastRowLastColumn(_value); public // Attributes XmlAttrVal: OpenXmlAttribute; XmlAttrFirstRow: OpenXmlAttribute; XmlAttrLastRow: OpenXmlAttribute; XmlAttrFirstColumn: OpenXmlAttribute; XmlAttrLastColumn: OpenXmlAttribute; XmlAttrOddVBand: OpenXmlAttribute; XmlAttrEvenVBand: OpenXmlAttribute; XmlAttrOddHBand: OpenXmlAttribute; XmlAttrEvenHBand: OpenXmlAttribute; XmlAttrFirstRowFirstColumn: OpenXmlAttribute; XmlAttrFirstRowLastColumn: OpenXmlAttribute; XmlAttrLastRowFirstColumn: OpenXmlAttribute; XmlAttrLastRowLastColumn: OpenXmlAttribute; end; function CnfStyle.Create();overload; begin {self.}Create(nil, "w", "cnfStyle"); end; function CnfStyle.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function CnfStyle.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 CnfStyle.Init();override; begin pre := {self.}Prefix ? {self.}Prefix + ":" : ""; attributes_ := array(); attributes_pf_ := array( pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), pre + "firstRow": makeweakref(thisFunction(WriteXmlAttrFirstRow)), pre + "lastRow": makeweakref(thisFunction(WriteXmlAttrLastRow)), pre + "firstColumn": makeweakref(thisFunction(WriteXmlAttrFirstColumn)), pre + "lastColumn": makeweakref(thisFunction(WriteXmlAttrLastColumn)), pre + "oddVBand": makeweakref(thisFunction(WriteXmlAttrOddVBand)), pre + "evenVBand": makeweakref(thisFunction(WriteXmlAttrEvenVBand)), pre + "oddHBand": makeweakref(thisFunction(WriteXmlAttrOddHBand)), pre + "evenHBand": makeweakref(thisFunction(WriteXmlAttrEvenHBand)), pre + "firstRowFirstColumn": makeweakref(thisFunction(WriteXmlAttrFirstRowFirstColumn)), pre + "firstRowLastColumn": makeweakref(thisFunction(WriteXmlAttrFirstRowLastColumn)), pre + "lastRowFirstColumn": makeweakref(thisFunction(WriteXmlAttrLastRowFirstColumn)), pre + "lastRowLastColumn": makeweakref(thisFunction(WriteXmlAttrLastRowLastColumn)), ); sorted_child_ := array( ); container_ := new TSOfficeContainer(sorted_child_); end; function CnfStyle.Copy(_obj: CnfStyle);override; begin tslassigning_backup := tslassigning; tslassigning := 1; class(OpenXmlElement).Copy(_obj); if not ifnil(_obj.Val) then {self.}Val := _obj.Val; if not ifnil(_obj.FirstRow) then {self.}FirstRow := _obj.FirstRow; if not ifnil(_obj.LastRow) then {self.}LastRow := _obj.LastRow; if not ifnil(_obj.FirstColumn) then {self.}FirstColumn := _obj.FirstColumn; if not ifnil(_obj.LastColumn) then {self.}LastColumn := _obj.LastColumn; if not ifnil(_obj.OddVBand) then {self.}OddVBand := _obj.OddVBand; if not ifnil(_obj.EvenVBand) then {self.}EvenVBand := _obj.EvenVBand; if not ifnil(_obj.OddHBand) then {self.}OddHBand := _obj.OddHBand; if not ifnil(_obj.EvenHBand) then {self.}EvenHBand := _obj.EvenHBand; if not ifnil(_obj.FirstRowFirstColumn) then {self.}FirstRowFirstColumn := _obj.FirstRowFirstColumn; if not ifnil(_obj.FirstRowLastColumn) then {self.}FirstRowLastColumn := _obj.FirstRowLastColumn; if not ifnil(_obj.LastRowFirstColumn) then {self.}LastRowFirstColumn := _obj.LastRowFirstColumn; if not ifnil(_obj.LastRowLastColumn) then {self.}LastRowLastColumn := _obj.LastRowLastColumn; tslassigning := tslassigning_backup; end; function CnfStyle.ReadXmlAttrVal(); begin return {self.}XmlAttrVal.Value; end; function CnfStyle.WriteXmlAttrVal(_value); begin if ifnil({self.}XmlAttrVal) then begin {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); attributes_[length(attributes_)] := {self.}XmlAttrVal; end {self.}XmlAttrVal.Value := _value; end; function CnfStyle.ReadXmlAttrFirstRow(); begin return {self.}XmlAttrFirstRow.Value; end; function CnfStyle.WriteXmlAttrFirstRow(_value); begin if ifnil({self.}XmlAttrFirstRow) then begin {self.}XmlAttrFirstRow := new OpenXmlAttribute({self.}Prefix, "firstRow", nil); attributes_[length(attributes_)] := {self.}XmlAttrFirstRow; end {self.}XmlAttrFirstRow.Value := _value; end; function CnfStyle.ReadXmlAttrLastRow(); begin return {self.}XmlAttrLastRow.Value; end; function CnfStyle.WriteXmlAttrLastRow(_value); begin if ifnil({self.}XmlAttrLastRow) then begin {self.}XmlAttrLastRow := new OpenXmlAttribute({self.}Prefix, "lastRow", nil); attributes_[length(attributes_)] := {self.}XmlAttrLastRow; end {self.}XmlAttrLastRow.Value := _value; end; function CnfStyle.ReadXmlAttrFirstColumn(); begin return {self.}XmlAttrFirstColumn.Value; end; function CnfStyle.WriteXmlAttrFirstColumn(_value); begin if ifnil({self.}XmlAttrFirstColumn) then begin {self.}XmlAttrFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstColumn", nil); attributes_[length(attributes_)] := {self.}XmlAttrFirstColumn; end {self.}XmlAttrFirstColumn.Value := _value; end; function CnfStyle.ReadXmlAttrLastColumn(); begin return {self.}XmlAttrLastColumn.Value; end; function CnfStyle.WriteXmlAttrLastColumn(_value); begin if ifnil({self.}XmlAttrLastColumn) then begin {self.}XmlAttrLastColumn := new OpenXmlAttribute({self.}Prefix, "lastColumn", nil); attributes_[length(attributes_)] := {self.}XmlAttrLastColumn; end {self.}XmlAttrLastColumn.Value := _value; end; function CnfStyle.ReadXmlAttrOddVBand(); begin return {self.}XmlAttrOddVBand.Value; end; function CnfStyle.WriteXmlAttrOddVBand(_value); begin if ifnil({self.}XmlAttrOddVBand) then begin {self.}XmlAttrOddVBand := new OpenXmlAttribute({self.}Prefix, "oddVBand", nil); attributes_[length(attributes_)] := {self.}XmlAttrOddVBand; end {self.}XmlAttrOddVBand.Value := _value; end; function CnfStyle.ReadXmlAttrEvenVBand(); begin return {self.}XmlAttrEvenVBand.Value; end; function CnfStyle.WriteXmlAttrEvenVBand(_value); begin if ifnil({self.}XmlAttrEvenVBand) then begin {self.}XmlAttrEvenVBand := new OpenXmlAttribute({self.}Prefix, "evenVBand", nil); attributes_[length(attributes_)] := {self.}XmlAttrEvenVBand; end {self.}XmlAttrEvenVBand.Value := _value; end; function CnfStyle.ReadXmlAttrOddHBand(); begin return {self.}XmlAttrOddHBand.Value; end; function CnfStyle.WriteXmlAttrOddHBand(_value); begin if ifnil({self.}XmlAttrOddHBand) then begin {self.}XmlAttrOddHBand := new OpenXmlAttribute({self.}Prefix, "oddHBand", nil); attributes_[length(attributes_)] := {self.}XmlAttrOddHBand; end {self.}XmlAttrOddHBand.Value := _value; end; function CnfStyle.ReadXmlAttrEvenHBand(); begin return {self.}XmlAttrEvenHBand.Value; end; function CnfStyle.WriteXmlAttrEvenHBand(_value); begin if ifnil({self.}XmlAttrEvenHBand) then begin {self.}XmlAttrEvenHBand := new OpenXmlAttribute({self.}Prefix, "evenHBand", nil); attributes_[length(attributes_)] := {self.}XmlAttrEvenHBand; end {self.}XmlAttrEvenHBand.Value := _value; end; function CnfStyle.ReadXmlAttrFirstRowFirstColumn(); begin return {self.}XmlAttrFirstRowFirstColumn.Value; end; function CnfStyle.WriteXmlAttrFirstRowFirstColumn(_value); begin if ifnil({self.}XmlAttrFirstRowFirstColumn) then begin {self.}XmlAttrFirstRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstRowFirstColumn", nil); attributes_[length(attributes_)] := {self.}XmlAttrFirstRowFirstColumn; end {self.}XmlAttrFirstRowFirstColumn.Value := _value; end; function CnfStyle.ReadXmlAttrFirstRowLastColumn(); begin return {self.}XmlAttrFirstRowLastColumn.Value; end; function CnfStyle.WriteXmlAttrFirstRowLastColumn(_value); begin if ifnil({self.}XmlAttrFirstRowLastColumn) then begin {self.}XmlAttrFirstRowLastColumn := new OpenXmlAttribute({self.}Prefix, "firstRowLastColumn", nil); attributes_[length(attributes_)] := {self.}XmlAttrFirstRowLastColumn; end {self.}XmlAttrFirstRowLastColumn.Value := _value; end; function CnfStyle.ReadXmlAttrLastRowFirstColumn(); begin return {self.}XmlAttrLastRowFirstColumn.Value; end; function CnfStyle.WriteXmlAttrLastRowFirstColumn(_value); begin if ifnil({self.}XmlAttrLastRowFirstColumn) then begin {self.}XmlAttrLastRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "lastRowFirstColumn", nil); attributes_[length(attributes_)] := {self.}XmlAttrLastRowFirstColumn; end {self.}XmlAttrLastRowFirstColumn.Value := _value; end; function CnfStyle.ReadXmlAttrLastRowLastColumn(); begin return {self.}XmlAttrLastRowLastColumn.Value; end; function CnfStyle.WriteXmlAttrLastRowLastColumn(_value); begin if ifnil({self.}XmlAttrLastRowLastColumn) then begin {self.}XmlAttrLastRowLastColumn := new OpenXmlAttribute({self.}Prefix, "lastRowLastColumn", nil); attributes_[length(attributes_)] := {self.}XmlAttrLastRowLastColumn; end {self.}XmlAttrLastRowLastColumn.Value := _value; end;