339 lines
12 KiB
Plaintext
339 lines
12 KiB
Plaintext
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;
|