update
This commit is contained in:
@@ -0,0 +1,38 @@
|
||||
type CnfStyleUnitDecorator = class(CnfStyle)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CnfStyle);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CnfStyle;
|
||||
end;
|
||||
|
||||
function CnfStyleUnitDecorator.Create(_obj: CnfStyle);
|
||||
begin
|
||||
class(CnfStyle).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CnfStyleUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CnfStyleUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
{self.}XmlAttrFirstRow.Value := object_.XmlAttrFirstRow.Value;
|
||||
{self.}XmlAttrLastRow.Value := object_.XmlAttrLastRow.Value;
|
||||
{self.}XmlAttrFirstColumn.Value := object_.XmlAttrFirstColumn.Value;
|
||||
{self.}XmlAttrLastColumn.Value := object_.XmlAttrLastColumn.Value;
|
||||
{self.}XmlAttrOddVBand.Value := object_.XmlAttrOddVBand.Value;
|
||||
{self.}XmlAttrEvenVBand.Value := object_.XmlAttrEvenVBand.Value;
|
||||
{self.}XmlAttrOddHBand.Value := object_.XmlAttrOddHBand.Value;
|
||||
{self.}XmlAttrEvenHBand.Value := object_.XmlAttrEvenHBand.Value;
|
||||
{self.}XmlAttrFirstRowFirstColumn.Value := object_.XmlAttrFirstRowFirstColumn.Value;
|
||||
{self.}XmlAttrFirstRowLastColumn.Value := object_.XmlAttrFirstRowLastColumn.Value;
|
||||
{self.}XmlAttrLastRowFirstColumn.Value := object_.XmlAttrLastRowFirstColumn.Value;
|
||||
{self.}XmlAttrLastRowLastColumn.Value := object_.XmlAttrLastRowLastColumn.Value;
|
||||
end;
|
||||
@@ -23,6 +23,8 @@ end;
|
||||
function TrPrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}TrHeight := new TrHeightUnitDecorator(object_.TrHeight);
|
||||
{self.}TblHeader := new PureWValUnitDecorator(object_.TblHeader);
|
||||
{self.}Jc := new PureWValUnitDecorator(object_.Jc);
|
||||
if not ifnil(object_.XmlChildCantSplit.Value) then {self.}XmlChildCantSplit.Value := object_.XmlChildCantSplit.Value;
|
||||
{self.}CnfStyle := new CnfStyleUnitDecorator(object_.CnfStyle);
|
||||
end;
|
||||
Reference in New Issue
Block a user