tinysoft
/
OfficeXml
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

`self.`修改为`{self,}`，提高执行效率

This commit is contained in:
csh 2024-07-10 16:42:53 +08:00
parent 08d5c1c6f7
commit 3dab5b5fb5
372 changed files with 6349 additions and 6349 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
autoclass/adapter/docx/NumberingAdapter@DOCX.tsf
View File

@ -21,7 +21,7 @@ begin
object_ := _obj; object_ := _obj;
abstractnum_hash_ := array(); abstractnum_hash_ := array();
num_hash_ := array(); num_hash_ := array();
self.Init(); {self.}Init();
end; end;
function NumberingAdapter.Init(); function NumberingAdapter.Init();

2
autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf
View File

@ -16,7 +16,7 @@ function RelationshipsAdapter.Create(_obj: Relationships);
begin begin
object_ := _obj; object_ := _obj;
relationship_hash_ := array(); relationship_hash_ := array();
self.Init(); {self.}Init();
end; end;
function RelationshipsAdapter.Init(); function RelationshipsAdapter.Init();

2
autoclass/adapter/docx/StylesAdapter@DOCX.tsf
View File

@ -16,7 +16,7 @@ function StylesAdapter.Create(_obj: Styles);
begin begin
object_ := _obj; object_ := _obj;
style_hash_ := array(); style_hash_ := array();
self.Init(); {self.}Init();
end; end;
function StylesAdapter.Init(); function StylesAdapter.Init();

8
autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type APPrUnitDecorator = class(APPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: APPr); function Create(_obj: APPr);
function Converte(); function Convert();
private private
object_: APPr; object_: APPr;
end; end;
@ -11,10 +11,10 @@ function APPrUnitDecorator.Create(_obj: APPr);
begin begin
class(APPr).Create(); class(APPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function APPrUnitDecorator.Converte(); function APPrUnitDecorator.Convert();
begin begin
self.DefRPr := new ARPrUnitDecorator(object_.DefRPr); {self.}DefRPr := new ARPrUnitDecorator(object_.DefRPr);
end; end;

34
autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ARPrUnitDecorator = class(ARPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: ARPr); function Create(_obj: ARPr);
function Converte(); function Convert();
private private
object_: ARPr; object_: ARPr;
end; end;
@ -11,23 +11,23 @@ function ARPrUnitDecorator.Create(_obj: ARPr);
begin begin
class(ARPr).Create(); class(ARPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ARPrUnitDecorator.Converte(); function ARPrUnitDecorator.Convert();
begin begin
self.XmlAttrLang.Value := object_.XmlAttrLang.Value; {self.}XmlAttrLang.Value := object_.XmlAttrLang.Value;
self.XmlAttrAltLang.Value := object_.XmlAttrAltLang.Value; {self.}XmlAttrAltLang.Value := object_.XmlAttrAltLang.Value;
self.XmlAttrB.Value := object_.XmlAttrB.Value; {self.}XmlAttrB.Value := object_.XmlAttrB.Value;
self.XmlAttrBaseline.Value := object_.XmlAttrBaseline.Value; {self.}XmlAttrBaseline.Value := object_.XmlAttrBaseline.Value;
self.XmlAttrI.Value := object_.XmlAttrI.Value; {self.}XmlAttrI.Value := object_.XmlAttrI.Value;
self.XmlAttrKern.Value := object_.XmlAttrKern.Value; {self.}XmlAttrKern.Value := object_.XmlAttrKern.Value;
self.XmlAttrSpc.Value := object_.XmlAttrSpc.Value; {self.}XmlAttrSpc.Value := object_.XmlAttrSpc.Value;
self.XmlAttrStrike.Value := object_.XmlAttrStrike.Value; {self.}XmlAttrStrike.Value := object_.XmlAttrStrike.Value;
self.XmlAttrSz.Value := object_.XmlAttrSz.Value; {self.}XmlAttrSz.Value := object_.XmlAttrSz.Value;
self.XmlAttrU.Value := object_.XmlAttrU.Value; {self.}XmlAttrU.Value := object_.XmlAttrU.Value;
self.SolidFill := new SolidFillUnitDecorator(object_.SolidFill); {self.}SolidFill := new SolidFillUnitDecorator(object_.SolidFill);
self.Latin := new LatinUnitDecorator(object_.Latin); {self.}Latin := new LatinUnitDecorator(object_.Latin);
self.Ea := new LatinUnitDecorator(object_.Ea); {self.}Ea := new LatinUnitDecorator(object_.Ea);
self.Cs := new LatinUnitDecorator(object_.Cs); {self.}Cs := new LatinUnitDecorator(object_.Cs);
end; end;

10
autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ARUnitDecorator = class(AR)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: AR); function Create(_obj: AR);
function Converte(); function Convert();
private private
object_: AR; object_: AR;
end; end;
@ -11,11 +11,11 @@ function ARUnitDecorator.Create(_obj: AR);
begin begin
class(AR).Create(); class(AR).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ARUnitDecorator.Converte(); function ARUnitDecorator.Convert();
begin begin
self.RPr := new ARPrUnitDecorator(object_.RPr); {self.}RPr := new ARPrUnitDecorator(object_.RPr);
self.T := new TUnitDecorator(object_.T); {self.}T := new TUnitDecorator(object_.T);
end; end;

16
autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type AbstractNumUnitDecorator = class(AbstractNum)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: AbstractNum); function Create(_obj: AbstractNum);
function Converte(); function Convert();
private private
object_: AbstractNum; object_: AbstractNum;
end; end;
@ -11,14 +11,14 @@ function AbstractNumUnitDecorator.Create(_obj: AbstractNum);
begin begin
class(AbstractNum).Create(); class(AbstractNum).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function AbstractNumUnitDecorator.Converte(); function AbstractNumUnitDecorator.Convert();
begin begin
self.XmlAttrAbstractNumId.Value := object_.XmlAttrAbstractNumId.Value; {self.}XmlAttrAbstractNumId.Value := object_.XmlAttrAbstractNumId.Value;
self.XmlAttrRestartNumberingAfterBreak.Value := object_.XmlAttrRestartNumberingAfterBreak.Value; {self.}XmlAttrRestartNumberingAfterBreak.Value := object_.XmlAttrRestartNumberingAfterBreak.Value;
self.Nsid := new PureWValUnitDecorator(object_.Nsid); {self.}Nsid := new PureWValUnitDecorator(object_.Nsid);
self.MultiLevelType := new PureWValUnitDecorator(object_.MultiLevelType); {self.}MultiLevelType := new PureWValUnitDecorator(object_.MultiLevelType);
self.Tmpl := new PureWValUnitDecorator(object_.Tmpl); {self.}Tmpl := new PureWValUnitDecorator(object_.Tmpl);
end; end;

12
autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type AlternateContentUnitDecorator = class(AlternateContent)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: AlternateContent); function Create(_obj: AlternateContent);
function Converte(); function Convert();
private private
object_: AlternateContent; object_: AlternateContent;
end; end;
@ -11,12 +11,12 @@ function AlternateContentUnitDecorator.Create(_obj: AlternateContent);
begin begin
class(AlternateContent).Create(); class(AlternateContent).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function AlternateContentUnitDecorator.Converte(); function AlternateContentUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.Choice := new ChoiceUnitDecorator(object_.Choice); {self.}Choice := new ChoiceUnitDecorator(object_.Choice);
self.Fallback := new FallbackUnitDecorator(object_.Fallback); {self.}Fallback := new FallbackUnitDecorator(object_.Fallback);
end; end;

10
autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ApUnitDecorator = class(Ap)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Ap); function Create(_obj: Ap);
function Converte(); function Convert();
private private
object_: Ap; object_: Ap;
end; end;
@ -11,11 +11,11 @@ function ApUnitDecorator.Create(_obj: Ap);
begin begin
class(Ap).Create(); class(Ap).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ApUnitDecorator.Converte(); function ApUnitDecorator.Convert();
begin begin
self.PPr := new APPrUnitDecorator(object_.PPr); {self.}PPr := new APPrUnitDecorator(object_.PPr);
self.EndParaRPr := new ARPrUnitDecorator(object_.EndParaRPr); {self.}EndParaRPr := new ARPrUnitDecorator(object_.EndParaRPr);
end; end;

40
autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type AxUnitDecorator = class(Ax)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Ax); function Create(_obj: Ax);
function Converte(); function Convert();
private private
object_: Ax; object_: Ax;
end; end;
@ -11,26 +11,26 @@ function AxUnitDecorator.Create(_obj: Ax);
begin begin
class(Ax).Create(); class(Ax).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function AxUnitDecorator.Converte(); function AxUnitDecorator.Convert();
begin begin
self.AxId := new PureValUnitDecorator(object_.AxId); {self.}AxId := new PureValUnitDecorator(object_.AxId);
self.Scaling := new ScalingUnitDecorator(object_.Scaling); {self.}Scaling := new ScalingUnitDecorator(object_.Scaling);
self._Delete := new PureValUnitDecorator(object_._Delete); {self.}_Delete := new PureValUnitDecorator(object_._Delete);
self.AxPos := new PureValUnitDecorator(object_.AxPos); {self.}AxPos := new PureValUnitDecorator(object_.AxPos);
self.NumFmt := new NumFmtUnitDecorator(object_.NumFmt); {self.}NumFmt := new NumFmtUnitDecorator(object_.NumFmt);
self.MajorTickMark := new PureValUnitDecorator(object_.MajorTickMark); {self.}MajorTickMark := new PureValUnitDecorator(object_.MajorTickMark);
self.MinorTickMark := new PureValUnitDecorator(object_.MinorTickMark); {self.}MinorTickMark := new PureValUnitDecorator(object_.MinorTickMark);
self.TickLblPos := new PureValUnitDecorator(object_.TickLblPos); {self.}TickLblPos := new PureValUnitDecorator(object_.TickLblPos);
self.SpPr := new SpPrUnitDecorator(object_.SpPr); {self.}SpPr := new SpPrUnitDecorator(object_.SpPr);
self.TxPr := new TxPrUnitDecorator(object_.TxPr); {self.}TxPr := new TxPrUnitDecorator(object_.TxPr);
self.CrossAx := new PureValUnitDecorator(object_.CrossAx); {self.}CrossAx := new PureValUnitDecorator(object_.CrossAx);
self.Crosses := new PureValUnitDecorator(object_.Crosses); {self.}Crosses := new PureValUnitDecorator(object_.Crosses);
self.CrossBetween := new PureValUnitDecorator(object_.CrossBetween); {self.}CrossBetween := new PureValUnitDecorator(object_.CrossBetween);
self.Auto := new PureValUnitDecorator(object_.Auto); {self.}Auto := new PureValUnitDecorator(object_.Auto);
self.LblAlgn := new PureValUnitDecorator(object_.LblAlgn); {self.}LblAlgn := new PureValUnitDecorator(object_.LblAlgn);
self.LblOffset := new PureValUnitDecorator(object_.LblOffset); {self.}LblOffset := new PureValUnitDecorator(object_.LblOffset);
self.NoMultiLvlLbl := new PureValUnitDecorator(object_.NoMultiLvlLbl); {self.}NoMultiLvlLbl := new PureValUnitDecorator(object_.NoMultiLvlLbl);
end; end;

14
autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type BarChartUnitDecorator = class(BarChart)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: BarChart); function Create(_obj: BarChart);
function Converte(); function Convert();
private private
object_: BarChart; object_: BarChart;
end; end;
@ -11,13 +11,13 @@ function BarChartUnitDecorator.Create(_obj: BarChart);
begin begin
class(BarChart).Create(); class(BarChart).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function BarChartUnitDecorator.Converte(); function BarChartUnitDecorator.Convert();
begin begin
self.BarDir := new PureValUnitDecorator(object_.BarDir); {self.}BarDir := new PureValUnitDecorator(object_.BarDir);
self.Grouping := new PureValUnitDecorator(object_.Grouping); {self.}Grouping := new PureValUnitDecorator(object_.Grouping);
self.VaryColors := new PureValUnitDecorator(object_.VaryColors); {self.}VaryColors := new PureValUnitDecorator(object_.VaryColors);
self.GapWidth := new PureValUnitDecorator(object_.GapWidth); {self.}GapWidth := new PureValUnitDecorator(object_.GapWidth);
end; end;

10
autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type BlipFillUnitDecorator = class(BlipFill)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: BlipFill); function Create(_obj: BlipFill);
function Converte(); function Convert();
private private
object_: BlipFill; object_: BlipFill;
end; end;
@ -11,11 +11,11 @@ function BlipFillUnitDecorator.Create(_obj: BlipFill);
begin begin
class(BlipFill).Create(); class(BlipFill).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function BlipFillUnitDecorator.Converte(); function BlipFillUnitDecorator.Convert();
begin begin
self.Blip := new BlipUnitDecorator(object_.Blip); {self.}Blip := new BlipUnitDecorator(object_.Blip);
self.Stretch := new StretchUnitDecorator(object_.Stretch); {self.}Stretch := new StretchUnitDecorator(object_.Stretch);
end; end;

10
autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type BlipUnitDecorator = class(Blip)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Blip); function Create(_obj: Blip);
function Converte(); function Convert();
private private
object_: Blip; object_: Blip;
end; end;
@ -11,11 +11,11 @@ function BlipUnitDecorator.Create(_obj: Blip);
begin begin
class(Blip).Create(); class(Blip).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function BlipUnitDecorator.Converte(); function BlipUnitDecorator.Convert();
begin begin
self.XmlAttrEmbed.Value := object_.XmlAttrEmbed.Value; {self.}XmlAttrEmbed.Value := object_.XmlAttrEmbed.Value;
self.XmlAttrCstate.Value := object_.XmlAttrCstate.Value; {self.}XmlAttrCstate.Value := object_.XmlAttrCstate.Value;
end; end;

20
autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type BodyPrUnitDecorator = class(BodyPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: BodyPr); function Create(_obj: BodyPr);
function Converte(); function Convert();
private private
object_: BodyPr; object_: BodyPr;
end; end;
@ -11,16 +11,16 @@ function BodyPrUnitDecorator.Create(_obj: BodyPr);
begin begin
class(BodyPr).Create(); class(BodyPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function BodyPrUnitDecorator.Converte(); function BodyPrUnitDecorator.Convert();
begin begin
self.XmlAttrRot.Value := object_.XmlAttrRot.Value; {self.}XmlAttrRot.Value := object_.XmlAttrRot.Value;
self.XmlAttrSpcFirstLastPara.Value := object_.XmlAttrSpcFirstLastPara.Value; {self.}XmlAttrSpcFirstLastPara.Value := object_.XmlAttrSpcFirstLastPara.Value;
self.XmlAttrVertOverflow.Value := object_.XmlAttrVertOverflow.Value; {self.}XmlAttrVertOverflow.Value := object_.XmlAttrVertOverflow.Value;
self.XmlAttrVert.Value := object_.XmlAttrVert.Value; {self.}XmlAttrVert.Value := object_.XmlAttrVert.Value;
self.XmlAttrWrap.Value := object_.XmlAttrWrap.Value; {self.}XmlAttrWrap.Value := object_.XmlAttrWrap.Value;
self.XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value; {self.}XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value;
self.XmlAttrAnchorCtr.Value := object_.XmlAttrAnchorCtr.Value; {self.}XmlAttrAnchorCtr.Value := object_.XmlAttrAnchorCtr.Value;
end; end;

8
autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type BodyUnitDecorator = class(Body)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Body); function Create(_obj: Body);
function Converte(); function Convert();
private private
object_: Body; object_: Body;
end; end;
@ -11,10 +11,10 @@ function BodyUnitDecorator.Create(_obj: Body);
begin begin
class(Body).Create(); class(Body).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function BodyUnitDecorator.Converte(); function BodyUnitDecorator.Convert();
begin begin
self.SectPr := new SectPrUnitDecorator(object_.SectPr); {self.}SectPr := new SectPrUnitDecorator(object_.SectPr);
end; end;

10
autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type BookmarkUnitDecorator = class(Bookmark)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Bookmark); function Create(_obj: Bookmark);
function Converte(); function Convert();
private private
object_: Bookmark; object_: Bookmark;
end; end;
@ -11,11 +11,11 @@ function BookmarkUnitDecorator.Create(_obj: Bookmark);
begin begin
class(Bookmark).Create(); class(Bookmark).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function BookmarkUnitDecorator.Converte(); function BookmarkUnitDecorator.Convert();
begin begin
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
end; end;

8
autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type BrUnitDecorator = class(Br)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Br); function Create(_obj: Br);
function Converte(); function Convert();
private private
object_: Br; object_: Br;
end; end;
@ -11,10 +11,10 @@ function BrUnitDecorator.Create(_obj: Br);
begin begin
class(Br).Create(); class(Br).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function BrUnitDecorator.Converte(); function BrUnitDecorator.Convert();
begin begin
self.XmlAttrType.Value := object_.XmlAttrType.Value; {self.}XmlAttrType.Value := object_.XmlAttrType.Value;
end; end;

8
autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CNvGraphicFramePrUnitDecorator = class(CNvGraphicFramePr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: CNvGraphicFramePr); function Create(_obj: CNvGraphicFramePr);
function Converte(); function Convert();
private private
object_: CNvGraphicFramePr; object_: CNvGraphicFramePr;
end; end;
@ -11,10 +11,10 @@ function CNvGraphicFramePrUnitDecorator.Create(_obj: CNvGraphicFramePr);
begin begin
class(CNvGraphicFramePr).Create(); class(CNvGraphicFramePr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CNvGraphicFramePrUnitDecorator.Converte(); function CNvGraphicFramePrUnitDecorator.Convert();
begin begin
self.GraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.GraphicFrameLocks); {self.}GraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.GraphicFrameLocks);
end; end;

8
autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CNvPicPrUnitDecorator = class(CNvPicPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: CNvPicPr); function Create(_obj: CNvPicPr);
function Converte(); function Convert();
private private
object_: CNvPicPr; object_: CNvPicPr;
end; end;
@ -11,10 +11,10 @@ function CNvPicPrUnitDecorator.Create(_obj: CNvPicPr);
begin begin
class(CNvPicPr).Create(); class(CNvPicPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CNvPicPrUnitDecorator.Converte(); function CNvPicPrUnitDecorator.Convert();
begin begin
self.PicLocks := new PicLocksUnitDecorator(object_.PicLocks); {self.}PicLocks := new PicLocksUnitDecorator(object_.PicLocks);
end; end;

12
autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CNvPrUnitDecorator = class(CNvPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: CNvPr); function Create(_obj: CNvPr);
function Converte(); function Convert();
private private
object_: CNvPr; object_: CNvPr;
end; end;
@ -11,12 +11,12 @@ function CNvPrUnitDecorator.Create(_obj: CNvPr);
begin begin
class(CNvPr).Create(); class(CNvPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CNvPrUnitDecorator.Converte(); function CNvPrUnitDecorator.Convert();
begin begin
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.XmlAttrDescr.Value := object_.XmlAttrDescr.Value; {self.}XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
end; end;

10
autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CXYUnitDecorator = class(CXY)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: CXY); function Create(_obj: CXY);
function Converte(); function Convert();
private private
object_: CXY; object_: CXY;
end; end;
@ -11,11 +11,11 @@ function CXYUnitDecorator.Create(_obj: CXY);
begin begin
class(CXY).Create(); class(CXY).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CXYUnitDecorator.Converte(); function CXYUnitDecorator.Convert();
begin begin
self.XmlAttrCx.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCx.Value); {self.}XmlAttrCx.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCx.Value);
self.XmlAttrCy.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCy.Value); {self.}XmlAttrCy.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCy.Value);
end; end;

8
autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CacheUnitDecorator = class(Cache)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Cache); function Create(_obj: Cache);
function Converte(); function Convert();
private private
object_: Cache; object_: Cache;
end; end;
@ -11,10 +11,10 @@ function CacheUnitDecorator.Create(_obj: Cache);
begin begin
class(Cache).Create(); class(Cache).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CacheUnitDecorator.Converte(); function CacheUnitDecorator.Convert();
begin begin
self.PtCount := new PureValUnitDecorator(object_.PtCount); {self.}PtCount := new PureValUnitDecorator(object_.PtCount);
end; end;

8
autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CatUnitDecorator = class(Cat)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Cat); function Create(_obj: Cat);
function Converte(); function Convert();
private private
object_: Cat; object_: Cat;
end; end;
@ -11,10 +11,10 @@ function CatUnitDecorator.Create(_obj: Cat);
begin begin
class(Cat).Create(); class(Cat).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CatUnitDecorator.Converte(); function CatUnitDecorator.Convert();
begin begin
self.StrRef := new StrRefUnitDecorator(object_.StrRef); {self.}StrRef := new StrRefUnitDecorator(object_.StrRef);
end; end;

26
autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ChartSpaceUnitDecorator = class(ChartSpace)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: ChartSpace); function Create(_obj: ChartSpace);
function Converte(); function Convert();
private private
object_: ChartSpace; object_: ChartSpace;
end; end;
@ -11,19 +11,19 @@ function ChartSpaceUnitDecorator.Create(_obj: ChartSpace);
begin begin
class(ChartSpace).Create(); class(ChartSpace).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ChartSpaceUnitDecorator.Converte(); function ChartSpaceUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsC.Value := object_.XmlAttrXmlnsC.Value; {self.}XmlAttrXmlnsC.Value := object_.XmlAttrXmlnsC.Value;
self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value; {self.}XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.Date1904 := new PureValUnitDecorator(object_.Date1904); {self.}Date1904 := new PureValUnitDecorator(object_.Date1904);
self.Lang := new PureValUnitDecorator(object_.Lang); {self.}Lang := new PureValUnitDecorator(object_.Lang);
if not ifnil(object_.XmlChildLang.Value) then self.XmlChildLang.Value := object_.XmlChildLang.Value; if not ifnil(object_.XmlChildLang.Value) then {self.}XmlChildLang.Value := object_.XmlChildLang.Value;
self.AlternateContent := new AlternateContentUnitDecorator(object_.AlternateContent); {self.}AlternateContent := new AlternateContentUnitDecorator(object_.AlternateContent);
self.Chart := new ChartUnitDecorator(object_.Chart); {self.}Chart := new ChartUnitDecorator(object_.Chart);
self.SpPr := new SpPrUnitDecorator(object_.SpPr); {self.}SpPr := new SpPrUnitDecorator(object_.SpPr);
self.ExternalData := new ExternalDataUnitDecorator(object_.ExternalData); {self.}ExternalData := new ExternalDataUnitDecorator(object_.ExternalData);
end; end;

22
autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ChartUnitDecorator = class(Chart)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Chart); function Create(_obj: Chart);
function Converte(); function Convert();
private private
object_: Chart; object_: Chart;
end; end;
@ -11,17 +11,17 @@ function ChartUnitDecorator.Create(_obj: Chart);
begin begin
class(Chart).Create(); class(Chart).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ChartUnitDecorator.Converte(); function ChartUnitDecorator.Convert();
begin begin
self.Title := new TitleUnitDecorator(object_.Title); {self.}Title := new TitleUnitDecorator(object_.Title);
self.AutoTitleDeleted := new PureValUnitDecorator(object_.AutoTitleDeleted); {self.}AutoTitleDeleted := new PureValUnitDecorator(object_.AutoTitleDeleted);
self.View3D := new View3DUnitDecorator(object_.View3D); {self.}View3D := new View3DUnitDecorator(object_.View3D);
self.PlotArea := new PlotAreaUnitDecorator(object_.PlotArea); {self.}PlotArea := new PlotAreaUnitDecorator(object_.PlotArea);
self.Legend := new LegendUnitDecorator(object_.Legend); {self.}Legend := new LegendUnitDecorator(object_.Legend);
self.PlotVisOnly := new PureValUnitDecorator(object_.PlotVisOnly); {self.}PlotVisOnly := new PureValUnitDecorator(object_.PlotVisOnly);
self.DispBlanksAs := new PureValUnitDecorator(object_.DispBlanksAs); {self.}DispBlanksAs := new PureValUnitDecorator(object_.DispBlanksAs);
self.ShowDLblsOverMax := new PureValUnitDecorator(object_.ShowDLblsOverMax); {self.}ShowDLblsOverMax := new PureValUnitDecorator(object_.ShowDLblsOverMax);
end; end;

12
autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ChoiceUnitDecorator = class(Choice)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Choice); function Create(_obj: Choice);
function Converte(); function Convert();
private private
object_: Choice; object_: Choice;
end; end;
@ -11,12 +11,12 @@ function ChoiceUnitDecorator.Create(_obj: Choice);
begin begin
class(Choice).Create(); class(Choice).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ChoiceUnitDecorator.Converte(); function ChoiceUnitDecorator.Convert();
begin begin
self.XmlAttrRequires.Value := object_.XmlAttrRequires.Value; {self.}XmlAttrRequires.Value := object_.XmlAttrRequires.Value;
self.XmlAttrXmlnsC14.Value := object_.XmlAttrXmlnsC14.Value; {self.}XmlAttrXmlnsC14.Value := object_.XmlAttrXmlnsC14.Value;
self.Style := new PureValUnitDecorator(object_.Style); {self.}Style := new PureValUnitDecorator(object_.Style);
end; end;

8
autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type Clr1UnitDecorator = class(Clr1)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Clr1); function Create(_obj: Clr1);
function Converte(); function Convert();
private private
object_: Clr1; object_: Clr1;
end; end;
@ -11,10 +11,10 @@ function Clr1UnitDecorator.Create(_obj: Clr1);
begin begin
class(Clr1).Create(); class(Clr1).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function Clr1UnitDecorator.Converte(); function Clr1UnitDecorator.Convert();
begin begin
self.SysClr := new SysClrUnitDecorator(object_.SysClr); {self.}SysClr := new SysClrUnitDecorator(object_.SysClr);
end; end;

8
autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type Clr2UnitDecorator = class(Clr2)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Clr2); function Create(_obj: Clr2);
function Converte(); function Convert();
private private
object_: Clr2; object_: Clr2;
end; end;
@ -11,10 +11,10 @@ function Clr2UnitDecorator.Create(_obj: Clr2);
begin begin
class(Clr2).Create(); class(Clr2).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function Clr2UnitDecorator.Converte(); function Clr2UnitDecorator.Convert();
begin begin
self.SrgbClr := new SrgbClrUnitDecorator(object_.SrgbClr); {self.}SrgbClr := new SrgbClrUnitDecorator(object_.SrgbClr);
end; end;

32
autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ClrSchemeUnitDecorator = class(ClrScheme)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: ClrScheme); function Create(_obj: ClrScheme);
function Converte(); function Convert();
private private
object_: ClrScheme; object_: ClrScheme;
end; end;
@ -11,22 +11,22 @@ function ClrSchemeUnitDecorator.Create(_obj: ClrScheme);
begin begin
class(ClrScheme).Create(); class(ClrScheme).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ClrSchemeUnitDecorator.Converte(); function ClrSchemeUnitDecorator.Convert();
begin begin
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.Dk1 := new Clr1UnitDecorator(object_.Dk1); {self.}Dk1 := new Clr1UnitDecorator(object_.Dk1);
self.Lt1 := new Clr1UnitDecorator(object_.Lt1); {self.}Lt1 := new Clr1UnitDecorator(object_.Lt1);
self.Dk2 := new Clr2UnitDecorator(object_.Dk2); {self.}Dk2 := new Clr2UnitDecorator(object_.Dk2);
self.Lt2 := new Clr2UnitDecorator(object_.Lt2); {self.}Lt2 := new Clr2UnitDecorator(object_.Lt2);
self.Accent1 := new Clr2UnitDecorator(object_.Accent1); {self.}Accent1 := new Clr2UnitDecorator(object_.Accent1);
self.Accent2 := new Clr2UnitDecorator(object_.Accent2); {self.}Accent2 := new Clr2UnitDecorator(object_.Accent2);
self.Accent3 := new Clr2UnitDecorator(object_.Accent3); {self.}Accent3 := new Clr2UnitDecorator(object_.Accent3);
self.Accent4 := new Clr2UnitDecorator(object_.Accent4); {self.}Accent4 := new Clr2UnitDecorator(object_.Accent4);
self.Accent5 := new Clr2UnitDecorator(object_.Accent5); {self.}Accent5 := new Clr2UnitDecorator(object_.Accent5);
self.Accent6 := new Clr2UnitDecorator(object_.Accent6); {self.}Accent6 := new Clr2UnitDecorator(object_.Accent6);
self.Hlink := new Clr2UnitDecorator(object_.Hlink); {self.}Hlink := new Clr2UnitDecorator(object_.Hlink);
self.FolHlink := new Clr2UnitDecorator(object_.FolHlink); {self.}FolHlink := new Clr2UnitDecorator(object_.FolHlink);
end; end;

10
autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ColorUnitDecorator = class(Color)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Color); function Create(_obj: Color);
function Converte(); function Convert();
private private
object_: Color; object_: Color;
end; end;
@ -11,11 +11,11 @@ function ColorUnitDecorator.Create(_obj: Color);
begin begin
class(Color).Create(); class(Color).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ColorUnitDecorator.Converte(); function ColorUnitDecorator.Convert();
begin begin
self.XmlAttrVal.Value := object_.XmlAttrVal.Value; {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
self.XmlAttrThemeColor.Value := object_.XmlAttrThemeColor.Value; {self.}XmlAttrThemeColor.Value := object_.XmlAttrThemeColor.Value;
end; end;

8
autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ColsUnitDecorator = class(Cols)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Cols); function Create(_obj: Cols);
function Converte(); function Convert();
private private
object_: Cols; object_: Cols;
end; end;
@ -11,10 +11,10 @@ function ColsUnitDecorator.Create(_obj: Cols);
begin begin
class(Cols).Create(); class(Cols).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ColsUnitDecorator.Converte(); function ColsUnitDecorator.Convert();
begin begin
self.XmlAttrSpace.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value); {self.}XmlAttrSpace.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
end; end;

8
autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CommentRangeUnitDecorator = class(CommentRange)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: CommentRange); function Create(_obj: CommentRange);
function Converte(); function Convert();
private private
object_: CommentRange; object_: CommentRange;
end; end;
@ -11,10 +11,10 @@ function CommentRangeUnitDecorator.Create(_obj: CommentRange);
begin begin
class(CommentRange).Create(); class(CommentRange).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CommentRangeUnitDecorator.Converte(); function CommentRangeUnitDecorator.Convert();
begin begin
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
end; end;

12
autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CommentUnitDecorator = class(Comment)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Comment); function Create(_obj: Comment);
function Converte(); function Convert();
private private
object_: Comment; object_: Comment;
end; end;
@ -11,12 +11,12 @@ function CommentUnitDecorator.Create(_obj: Comment);
begin begin
class(Comment).Create(); class(Comment).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CommentUnitDecorator.Converte(); function CommentUnitDecorator.Convert();
begin begin
self.XmlAttrAuthor.Value := object_.XmlAttrAuthor.Value; {self.}XmlAttrAuthor.Value := object_.XmlAttrAuthor.Value;
self.XmlAttrDate.Value := object_.XmlAttrDate.Value; {self.}XmlAttrDate.Value := object_.XmlAttrDate.Value;
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
end; end;

42
autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CommentsUnitDecorator = class(Comments)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Comments); function Create(_obj: Comments);
function Converte(); function Convert();
private private
object_: Comments; object_: Comments;
end; end;
@ -11,27 +11,27 @@ function CommentsUnitDecorator.Create(_obj: Comments);
begin begin
class(Comments).Create(); class(Comments).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CommentsUnitDecorator.Converte(); function CommentsUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value; {self.}XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value; {self.}XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value; {self.}XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value; {self.}XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value; {self.}XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value; {self.}XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value; {self.}XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
self.XmlAttrXmlnsW10.Value := object_.XmlAttrXmlnsW10.Value; {self.}XmlAttrXmlnsW10.Value := object_.XmlAttrXmlnsW10.Value;
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value; {self.}XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value; {self.}XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value; {self.}XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value; {self.}XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
self.XmlAttrXmlnsWpsCustomData.Value := object_.XmlAttrXmlnsWpsCustomData.Value; {self.}XmlAttrXmlnsWpsCustomData.Value := object_.XmlAttrXmlnsWpsCustomData.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
end; end;

12
autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CompatSettingUnitDecorator = class(CompatSetting)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: CompatSetting); function Create(_obj: CompatSetting);
function Converte(); function Convert();
private private
object_: CompatSetting; object_: CompatSetting;
end; end;
@ -11,12 +11,12 @@ function CompatSettingUnitDecorator.Create(_obj: CompatSetting);
begin begin
class(CompatSetting).Create(); class(CompatSetting).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CompatSettingUnitDecorator.Converte(); function CompatSettingUnitDecorator.Convert();
begin begin
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.XmlAttrUri.Value := object_.XmlAttrUri.Value; {self.}XmlAttrUri.Value := object_.XmlAttrUri.Value;
self.XmlAttrVal.Value := object_.XmlAttrVal.Value; {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
end; end;

20
autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CompatUnitDecorator = class(Compat)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Compat); function Create(_obj: Compat);
function Converte(); function Convert();
private private
object_: Compat; object_: Compat;
end; end;
@ -11,16 +11,16 @@ function CompatUnitDecorator.Create(_obj: Compat);
begin begin
class(Compat).Create(); class(Compat).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CompatUnitDecorator.Converte(); function CompatUnitDecorator.Convert();
begin begin
if not ifnil(object_.XmlChildSpaceForUL.Value) then self.XmlChildSpaceForUL.Value := object_.XmlChildSpaceForUL.Value; if not ifnil(object_.XmlChildSpaceForUL.Value) then {self.}XmlChildSpaceForUL.Value := object_.XmlChildSpaceForUL.Value;
if not ifnil(object_.XmlChildBalanceSingleByteDoubleByteWidth.Value) then self.XmlChildBalanceSingleByteDoubleByteWidth.Value := object_.XmlChildBalanceSingleByteDoubleByteWidth.Value; if not ifnil(object_.XmlChildBalanceSingleByteDoubleByteWidth.Value) then {self.}XmlChildBalanceSingleByteDoubleByteWidth.Value := object_.XmlChildBalanceSingleByteDoubleByteWidth.Value;
if not ifnil(object_.XmlChildDoNotLeaveBackslashAlone.Value) then self.XmlChildDoNotLeaveBackslashAlone.Value := object_.XmlChildDoNotLeaveBackslashAlone.Value; if not ifnil(object_.XmlChildDoNotLeaveBackslashAlone.Value) then {self.}XmlChildDoNotLeaveBackslashAlone.Value := object_.XmlChildDoNotLeaveBackslashAlone.Value;
if not ifnil(object_.XmlChildUlTrailSpace.Value) then self.XmlChildUlTrailSpace.Value := object_.XmlChildUlTrailSpace.Value; if not ifnil(object_.XmlChildUlTrailSpace.Value) then {self.}XmlChildUlTrailSpace.Value := object_.XmlChildUlTrailSpace.Value;
if not ifnil(object_.XmlChildDoNotExpandShiftReturn.Value) then self.XmlChildDoNotExpandShiftReturn.Value := object_.XmlChildDoNotExpandShiftReturn.Value; if not ifnil(object_.XmlChildDoNotExpandShiftReturn.Value) then {self.}XmlChildDoNotExpandShiftReturn.Value := object_.XmlChildDoNotExpandShiftReturn.Value;
if not ifnil(object_.XmlChildAdjustLineHeightInTable.Value) then self.XmlChildAdjustLineHeightInTable.Value := object_.XmlChildAdjustLineHeightInTable.Value; if not ifnil(object_.XmlChildAdjustLineHeightInTable.Value) then {self.}XmlChildAdjustLineHeightInTable.Value := object_.XmlChildAdjustLineHeightInTable.Value;
if not ifnil(object_.XmlChildUseFELayout.Value) then self.XmlChildUseFELayout.Value := object_.XmlChildUseFELayout.Value; if not ifnil(object_.XmlChildUseFELayout.Value) then {self.}XmlChildUseFELayout.Value := object_.XmlChildUseFELayout.Value;
end; end;

20
autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CorePropertiesUnitDecorator = class(CoreProperties)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: CoreProperties); function Create(_obj: CoreProperties);
function Converte(); function Convert();
private private
object_: CoreProperties; object_: CoreProperties;
end; end;
@ -11,16 +11,16 @@ function CorePropertiesUnitDecorator.Create(_obj: CoreProperties);
begin begin
class(CoreProperties).Create(); class(CoreProperties).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CorePropertiesUnitDecorator.Converte(); function CorePropertiesUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsCp.Value := object_.XmlAttrXmlnsCp.Value; {self.}XmlAttrXmlnsCp.Value := object_.XmlAttrXmlnsCp.Value;
self.XmlAttrXmlnsDc.Value := object_.XmlAttrXmlnsDc.Value; {self.}XmlAttrXmlnsDc.Value := object_.XmlAttrXmlnsDc.Value;
self.XmlAttrXmlnsDcterms.Value := object_.XmlAttrXmlnsDcterms.Value; {self.}XmlAttrXmlnsDcterms.Value := object_.XmlAttrXmlnsDcterms.Value;
self.XmlAttrXmlnsDcmitype.Value := object_.XmlAttrXmlnsDcmitype.Value; {self.}XmlAttrXmlnsDcmitype.Value := object_.XmlAttrXmlnsDcmitype.Value;
self.XmlAttrXmlnsXsi.Value := object_.XmlAttrXmlnsXsi.Value; {self.}XmlAttrXmlnsXsi.Value := object_.XmlAttrXmlnsXsi.Value;
self.Created := new CreatedUnitDecorator(object_.Created); {self.}Created := new CreatedUnitDecorator(object_.Created);
self.Modified := new ModifiedUnitDecorator(object_.Modified); {self.}Modified := new ModifiedUnitDecorator(object_.Modified);
end; end;

8
autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type CreatedUnitDecorator = class(Created)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Created); function Create(_obj: Created);
function Converte(); function Convert();
private private
object_: Created; object_: Created;
end; end;
@ -11,10 +11,10 @@ function CreatedUnitDecorator.Create(_obj: Created);
begin begin
class(Created).Create(); class(Created).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function CreatedUnitDecorator.Converte(); function CreatedUnitDecorator.Convert();
begin begin
self.XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value; {self.}XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value;
end; end;

24
autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DLblsUnitDecorator = class(DLbls)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: DLbls); function Create(_obj: DLbls);
function Converte(); function Convert();
private private
object_: DLbls; object_: DLbls;
end; end;
@ -11,18 +11,18 @@ function DLblsUnitDecorator.Create(_obj: DLbls);
begin begin
class(DLbls).Create(); class(DLbls).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DLblsUnitDecorator.Converte(); function DLblsUnitDecorator.Convert();
begin begin
self.SpPr := new SpPrUnitDecorator(object_.SpPr); {self.}SpPr := new SpPrUnitDecorator(object_.SpPr);
self.ShowLegendKey := new PureValUnitDecorator(object_.ShowLegendKey); {self.}ShowLegendKey := new PureValUnitDecorator(object_.ShowLegendKey);
self.ShowVal := new PureValUnitDecorator(object_.ShowVal); {self.}ShowVal := new PureValUnitDecorator(object_.ShowVal);
self.ShowCatName := new PureValUnitDecorator(object_.ShowCatName); {self.}ShowCatName := new PureValUnitDecorator(object_.ShowCatName);
self.ShowSerName := new PureValUnitDecorator(object_.ShowSerName); {self.}ShowSerName := new PureValUnitDecorator(object_.ShowSerName);
self.ShowPercent := new PureValUnitDecorator(object_.ShowPercent); {self.}ShowPercent := new PureValUnitDecorator(object_.ShowPercent);
self.ShowBubbleSize := new PureValUnitDecorator(object_.ShowBubbleSize); {self.}ShowBubbleSize := new PureValUnitDecorator(object_.ShowBubbleSize);
self.ShowLeaderLines := new PureValUnitDecorator(object_.ShowLeaderLines); {self.}ShowLeaderLines := new PureValUnitDecorator(object_.ShowLeaderLines);
self.ExtLst := new ExtLstUnitDecorator(object_.ExtLst); {self.}ExtLst := new ExtLstUnitDecorator(object_.ExtLst);
end; end;

16
autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DTableUnitDecorator = class(DTable)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: DTable); function Create(_obj: DTable);
function Converte(); function Convert();
private private
object_: DTable; object_: DTable;
end; end;
@ -11,14 +11,14 @@ function DTableUnitDecorator.Create(_obj: DTable);
begin begin
class(DTable).Create(); class(DTable).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DTableUnitDecorator.Converte(); function DTableUnitDecorator.Convert();
begin begin
self.ShowHorzBorder := new PureValUnitDecorator(object_.ShowHorzBorder); {self.}ShowHorzBorder := new PureValUnitDecorator(object_.ShowHorzBorder);
self.ShowVertBorder := new PureValUnitDecorator(object_.ShowVertBorder); {self.}ShowVertBorder := new PureValUnitDecorator(object_.ShowVertBorder);
self.ShowOutline := new PureValUnitDecorator(object_.ShowOutline); {self.}ShowOutline := new PureValUnitDecorator(object_.ShowOutline);
self.ShowKeys := new PureValUnitDecorator(object_.ShowKeys); {self.}ShowKeys := new PureValUnitDecorator(object_.ShowKeys);
self.TxPr := new TxPrUnitDecorator(object_.TxPr); {self.}TxPr := new TxPrUnitDecorator(object_.TxPr);
end; end;

10
autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DefaultUnitDecorator = class(Default)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Default); function Create(_obj: Default);
function Converte(); function Convert();
private private
object_: Default; object_: Default;
end; end;
@ -11,11 +11,11 @@ function DefaultUnitDecorator.Create(_obj: Default);
begin begin
class(Default).Create(); class(Default).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DefaultUnitDecorator.Converte(); function DefaultUnitDecorator.Convert();
begin begin
self.XmlAttrExtension.Value := object_.XmlAttrExtension.Value; {self.}XmlAttrExtension.Value := object_.XmlAttrExtension.Value;
self.XmlAttrContentType.Value := object_.XmlAttrContentType.Value; {self.}XmlAttrContentType.Value := object_.XmlAttrContentType.Value;
end; end;

10
autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DocDefaultsUnitDecorator = class(DocDefaults)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: DocDefaults); function Create(_obj: DocDefaults);
function Converte(); function Convert();
private private
object_: DocDefaults; object_: DocDefaults;
end; end;
@ -11,11 +11,11 @@ function DocDefaultsUnitDecorator.Create(_obj: DocDefaults);
begin begin
class(DocDefaults).Create(); class(DocDefaults).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DocDefaultsUnitDecorator.Converte(); function DocDefaultsUnitDecorator.Convert();
begin begin
self.RPrDefault := new RPrDefaultUnitDecorator(object_.RPrDefault); {self.}RPrDefault := new RPrDefaultUnitDecorator(object_.RPrDefault);
self.PPrDefault := new PPrDefaultUnitDecorator(object_.PPrDefault); {self.}PPrDefault := new PPrDefaultUnitDecorator(object_.PPrDefault);
end; end;

10
autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DocGridUnitDecorator = class(DocGrid)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: DocGrid); function Create(_obj: DocGrid);
function Converte(); function Convert();
private private
object_: DocGrid; object_: DocGrid;
end; end;
@ -11,11 +11,11 @@ function DocGridUnitDecorator.Create(_obj: DocGrid);
begin begin
class(DocGrid).Create(); class(DocGrid).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DocGridUnitDecorator.Converte(); function DocGridUnitDecorator.Convert();
begin begin
self.XmlAttrType.Value := object_.XmlAttrType.Value; {self.}XmlAttrType.Value := object_.XmlAttrType.Value;
self.XmlAttrLinePitch.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLinePitch.Value); {self.}XmlAttrLinePitch.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLinePitch.Value);
end; end;

10
autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DocPartObjUnitDecorator = class(DocPartObj)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: DocPartObj); function Create(_obj: DocPartObj);
function Converte(); function Convert();
private private
object_: DocPartObj; object_: DocPartObj;
end; end;
@ -11,11 +11,11 @@ function DocPartObjUnitDecorator.Create(_obj: DocPartObj);
begin begin
class(DocPartObj).Create(); class(DocPartObj).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DocPartObjUnitDecorator.Converte(); function DocPartObjUnitDecorator.Convert();
begin begin
self.DocPartGallery := new PureWValUnitDecorator(object_.DocPartGallery); {self.}DocPartGallery := new PureWValUnitDecorator(object_.DocPartGallery);
self.DocPartUnique := new PureValUnitDecorator(object_.DocPartUnique); {self.}DocPartUnique := new PureValUnitDecorator(object_.DocPartUnique);
end; end;

12
autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DocPrUnitDecorator = class(DocPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: DocPr); function Create(_obj: DocPr);
function Converte(); function Convert();
private private
object_: DocPr; object_: DocPr;
end; end;
@ -11,12 +11,12 @@ function DocPrUnitDecorator.Create(_obj: DocPr);
begin begin
class(DocPr).Create(); class(DocPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DocPrUnitDecorator.Converte(); function DocPrUnitDecorator.Convert();
begin begin
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.XmlAttrDescr.Value := object_.XmlAttrDescr.Value; {self.}XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
end; end;

34
autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DocumentUnitDecorator = class(Document)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Document); function Create(_obj: Document);
function Converte(); function Convert();
private private
object_: Document; object_: Document;
end; end;
@ -11,23 +11,23 @@ function DocumentUnitDecorator.Create(_obj: Document);
begin begin
class(Document).Create(); class(Document).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DocumentUnitDecorator.Converte(); function DocumentUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value; {self.}XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value; {self.}XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value; {self.}XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value; {self.}XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value; {self.}XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value; {self.}XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value; {self.}XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value; {self.}XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value; {self.}XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value; {self.}XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value; {self.}XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
self.Body := new BodyUnitDecorator(object_.Body); {self.}Body := new BodyUnitDecorator(object_.Body);
end; end;

8
autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type DrawingUnitDecorator = class(Drawing)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Drawing); function Create(_obj: Drawing);
function Converte(); function Convert();
private private
object_: Drawing; object_: Drawing;
end; end;
@ -11,10 +11,10 @@ function DrawingUnitDecorator.Create(_obj: Drawing);
begin begin
class(Drawing).Create(); class(Drawing).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function DrawingUnitDecorator.Converte(); function DrawingUnitDecorator.Convert();
begin begin
self._Inline := new _InlineUnitDecorator(object_._Inline); {self.}_Inline := new _InlineUnitDecorator(object_._Inline);
end; end;

14
autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type EffectExtentUnitDecorator = class(EffectExtent)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: EffectExtent); function Create(_obj: EffectExtent);
function Converte(); function Convert();
private private
object_: EffectExtent; object_: EffectExtent;
end; end;
@ -11,13 +11,13 @@ function EffectExtentUnitDecorator.Create(_obj: EffectExtent);
begin begin
class(EffectExtent).Create(); class(EffectExtent).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function EffectExtentUnitDecorator.Converte(); function EffectExtentUnitDecorator.Convert();
begin begin
self.XmlAttrL.Value := object_.XmlAttrL.Value; {self.}XmlAttrL.Value := object_.XmlAttrL.Value;
self.XmlAttrT.Value := object_.XmlAttrT.Value; {self.}XmlAttrT.Value := object_.XmlAttrT.Value;
self.XmlAttrR.Value := object_.XmlAttrR.Value; {self.}XmlAttrR.Value := object_.XmlAttrR.Value;
self.XmlAttrB.Value := object_.XmlAttrB.Value; {self.}XmlAttrB.Value := object_.XmlAttrB.Value;
end; end;

8
autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type EffectLstUnitDecorator = class(EffectLst)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: EffectLst); function Create(_obj: EffectLst);
function Converte(); function Convert();
private private
object_: EffectLst; object_: EffectLst;
end; end;
@ -11,10 +11,10 @@ function EffectLstUnitDecorator.Create(_obj: EffectLst);
begin begin
class(EffectLst).Create(); class(EffectLst).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function EffectLstUnitDecorator.Converte(); function EffectLstUnitDecorator.Convert();
begin begin
self.OuterShdw := new OuterShdwUnitDecorator(object_.OuterShdw); {self.}OuterShdw := new OuterShdwUnitDecorator(object_.OuterShdw);
end; end;

6
autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type EffectStyleLstUnitDecorator = class(EffectStyleLst)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: EffectStyleLst); function Create(_obj: EffectStyleLst);
function Converte(); function Convert();
private private
object_: EffectStyleLst; object_: EffectStyleLst;
end; end;
@ -11,9 +11,9 @@ function EffectStyleLstUnitDecorator.Create(_obj: EffectStyleLst);
begin begin
class(EffectStyleLst).Create(); class(EffectStyleLst).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function EffectStyleLstUnitDecorator.Converte(); function EffectStyleLstUnitDecorator.Convert();
begin begin
end; end;

8
autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type EffectStyleUnitDecorator = class(EffectStyle)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: EffectStyle); function Create(_obj: EffectStyle);
function Converte(); function Convert();
private private
object_: EffectStyle; object_: EffectStyle;
end; end;
@ -11,10 +11,10 @@ function EffectStyleUnitDecorator.Create(_obj: EffectStyle);
begin begin
class(EffectStyle).Create(); class(EffectStyle).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function EffectStyleUnitDecorator.Converte(); function EffectStyleUnitDecorator.Convert();
begin begin
self.EffectLst := new EffectLstUnitDecorator(object_.EffectLst); {self.}EffectLst := new EffectLstUnitDecorator(object_.EffectLst);
end; end;

6
autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type EndnotePrUnitDecorator = class(EndnotePr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: EndnotePr); function Create(_obj: EndnotePr);
function Converte(); function Convert();
private private
object_: EndnotePr; object_: EndnotePr;
end; end;
@ -11,9 +11,9 @@ function EndnotePrUnitDecorator.Create(_obj: EndnotePr);
begin begin
class(EndnotePr).Create(); class(EndnotePr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function EndnotePrUnitDecorator.Converte(); function EndnotePrUnitDecorator.Convert();
begin begin
end; end;

10
autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type EndnoteUnitDecorator = class(Endnote)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Endnote); function Create(_obj: Endnote);
function Converte(); function Convert();
private private
object_: Endnote; object_: Endnote;
end; end;
@ -11,11 +11,11 @@ function EndnoteUnitDecorator.Create(_obj: Endnote);
begin begin
class(Endnote).Create(); class(Endnote).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function EndnoteUnitDecorator.Converte(); function EndnoteUnitDecorator.Convert();
begin begin
self.XmlAttrType.Value := object_.XmlAttrType.Value; {self.}XmlAttrType.Value := object_.XmlAttrType.Value;
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
end; end;

72
autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type EndnotesUnitDecorator = class(Endnotes)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Endnotes); function Create(_obj: Endnotes);
function Converte(); function Convert();
private private
object_: Endnotes; object_: Endnotes;
end; end;
@ -11,42 +11,42 @@ function EndnotesUnitDecorator.Create(_obj: Endnotes);
begin begin
class(Endnotes).Create(); class(Endnotes).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function EndnotesUnitDecorator.Converte(); function EndnotesUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
self.XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value; {self.}XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value;
self.XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value; {self.}XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value;
self.XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value; {self.}XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value;
self.XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value; {self.}XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value;
self.XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value; {self.}XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value;
self.XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value; {self.}XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value;
self.XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value; {self.}XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value;
self.XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value; {self.}XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value;
self.XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value; {self.}XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value;
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value; {self.}XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value;
self.XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value; {self.}XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value;
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value; {self.}XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
self.XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value; {self.}XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value; {self.}XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value; {self.}XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value; {self.}XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value; {self.}XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value; {self.}XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value; {self.}XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value; {self.}XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value; {self.}XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value; {self.}XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value; {self.}XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value; {self.}XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value; {self.}XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value; {self.}XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value; {self.}XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value; {self.}XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
end; end;

6
autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ExtLstUnitDecorator = class(ExtLst)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: ExtLst); function Create(_obj: ExtLst);
function Converte(); function Convert();
private private
object_: ExtLst; object_: ExtLst;
end; end;
@ -11,9 +11,9 @@ function ExtLstUnitDecorator.Create(_obj: ExtLst);
begin begin
class(ExtLst).Create(); class(ExtLst).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ExtLstUnitDecorator.Converte(); function ExtLstUnitDecorator.Convert();
begin begin
end; end;

14
autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ExtUnitDecorator = class(Ext)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Ext); function Create(_obj: Ext);
function Converte(); function Convert();
private private
object_: Ext; object_: Ext;
end; end;
@ -11,13 +11,13 @@ function ExtUnitDecorator.Create(_obj: Ext);
begin begin
class(Ext).Create(); class(Ext).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ExtUnitDecorator.Converte(); function ExtUnitDecorator.Convert();
begin begin
self.XmlAttrUri.Value := object_.XmlAttrUri.Value; {self.}XmlAttrUri.Value := object_.XmlAttrUri.Value;
self.XmlAttrXmlnsC16.Value := object_.XmlAttrXmlnsC16.Value; {self.}XmlAttrXmlnsC16.Value := object_.XmlAttrXmlnsC16.Value;
self.Thm15ThemeFamily := new ThemeFamilyUnitDecorator(object_.Thm15ThemeFamily); {self.}Thm15ThemeFamily := new ThemeFamilyUnitDecorator(object_.Thm15ThemeFamily);
self.UniqueId := new PureValUnitDecorator(object_.UniqueId); {self.}UniqueId := new PureValUnitDecorator(object_.UniqueId);
end; end;

10
autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ExternalDataUnitDecorator = class(ExternalData)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: ExternalData); function Create(_obj: ExternalData);
function Converte(); function Convert();
private private
object_: ExternalData; object_: ExternalData;
end; end;
@ -11,11 +11,11 @@ function ExternalDataUnitDecorator.Create(_obj: ExternalData);
begin begin
class(ExternalData).Create(); class(ExternalData).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ExternalDataUnitDecorator.Converte(); function ExternalDataUnitDecorator.Convert();
begin begin
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
self.AutoUpdate := new PureValUnitDecorator(object_.AutoUpdate); {self.}AutoUpdate := new PureValUnitDecorator(object_.AutoUpdate);
end; end;

8
autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FallbackUnitDecorator = class(Fallback)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Fallback); function Create(_obj: Fallback);
function Converte(); function Convert();
private private
object_: Fallback; object_: Fallback;
end; end;
@ -11,10 +11,10 @@ function FallbackUnitDecorator.Create(_obj: Fallback);
begin begin
class(Fallback).Create(); class(Fallback).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FallbackUnitDecorator.Converte(); function FallbackUnitDecorator.Convert();
begin begin
self.Style := new PureValUnitDecorator(object_.Style); {self.}Style := new PureValUnitDecorator(object_.Style);
end; end;

6
autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FillStyleLstUnitDecorator = class(FillStyleLst)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: FillStyleLst); function Create(_obj: FillStyleLst);
function Converte(); function Convert();
private private
object_: FillStyleLst; object_: FillStyleLst;
end; end;
@ -11,9 +11,9 @@ function FillStyleLstUnitDecorator.Create(_obj: FillStyleLst);
begin begin
class(FillStyleLst).Create(); class(FillStyleLst).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FillStyleLstUnitDecorator.Converte(); function FillStyleLstUnitDecorator.Convert();
begin begin
end; end;

10
autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FldCharUnitDecorator = class(FldChar)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: FldChar); function Create(_obj: FldChar);
function Converte(); function Convert();
private private
object_: FldChar; object_: FldChar;
end; end;
@ -11,11 +11,11 @@ function FldCharUnitDecorator.Create(_obj: FldChar);
begin begin
class(FldChar).Create(); class(FldChar).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FldCharUnitDecorator.Converte(); function FldCharUnitDecorator.Convert();
begin begin
self.XmlAttrFldCharType.Value := object_.XmlAttrFldCharType.Value; {self.}XmlAttrFldCharType.Value := object_.XmlAttrFldCharType.Value;
self.XmlAttrDirty.Value := object_.XmlAttrDirty.Value; {self.}XmlAttrDirty.Value := object_.XmlAttrDirty.Value;
end; end;

16
autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FmtSchemeUnitDecorator = class(FmtScheme)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: FmtScheme); function Create(_obj: FmtScheme);
function Converte(); function Convert();
private private
object_: FmtScheme; object_: FmtScheme;
end; end;
@ -11,14 +11,14 @@ function FmtSchemeUnitDecorator.Create(_obj: FmtScheme);
begin begin
class(FmtScheme).Create(); class(FmtScheme).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FmtSchemeUnitDecorator.Converte(); function FmtSchemeUnitDecorator.Convert();
begin begin
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.FillStyleLst := new FillStyleLstUnitDecorator(object_.FillStyleLst); {self.}FillStyleLst := new FillStyleLstUnitDecorator(object_.FillStyleLst);
self.LnStyleLst := new LnStyleLstUnitDecorator(object_.LnStyleLst); {self.}LnStyleLst := new LnStyleLstUnitDecorator(object_.LnStyleLst);
self.EffectStyleLst := new EffectStyleLstUnitDecorator(object_.EffectStyleLst); {self.}EffectStyleLst := new EffectStyleLstUnitDecorator(object_.EffectStyleLst);
self.BgFillStyleLst := new FillStyleLstUnitDecorator(object_.BgFillStyleLst); {self.}BgFillStyleLst := new FillStyleLstUnitDecorator(object_.BgFillStyleLst);
end; end;

12
autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FontSchemeUnitDecorator = class(FontScheme)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: FontScheme); function Create(_obj: FontScheme);
function Converte(); function Convert();
private private
object_: FontScheme; object_: FontScheme;
end; end;
@ -11,12 +11,12 @@ function FontSchemeUnitDecorator.Create(_obj: FontScheme);
begin begin
class(FontScheme).Create(); class(FontScheme).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FontSchemeUnitDecorator.Converte(); function FontSchemeUnitDecorator.Convert();
begin begin
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.Majorfont := new MfontUnitDecorator(object_.Majorfont); {self.}Majorfont := new MfontUnitDecorator(object_.Majorfont);
self.Minorfont := new MfontUnitDecorator(object_.Minorfont); {self.}Minorfont := new MfontUnitDecorator(object_.Minorfont);
end; end;

20
autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FontUnitDecorator = class(Font)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Font); function Create(_obj: Font);
function Converte(); function Convert();
private private
object_: Font; object_: Font;
end; end;
@ -11,16 +11,16 @@ function FontUnitDecorator.Create(_obj: Font);
begin begin
class(Font).Create(); class(Font).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FontUnitDecorator.Converte(); function FontUnitDecorator.Convert();
begin begin
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.AltName := new PureWValUnitDecorator(object_.AltName); {self.}AltName := new PureWValUnitDecorator(object_.AltName);
self.Panosel := new PureWValUnitDecorator(object_.Panosel); {self.}Panosel := new PureWValUnitDecorator(object_.Panosel);
self.Charset := new PureWValUnitDecorator(object_.Charset); {self.}Charset := new PureWValUnitDecorator(object_.Charset);
self.Family := new PureWValUnitDecorator(object_.Family); {self.}Family := new PureWValUnitDecorator(object_.Family);
self.Pitch := new PureWValUnitDecorator(object_.Pitch); {self.}Pitch := new PureWValUnitDecorator(object_.Pitch);
self.Sig := new SigUnitDecorator(object_.Sig); {self.}Sig := new SigUnitDecorator(object_.Sig);
end; end;

30
autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FontsUnitDecorator = class(Fonts)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Fonts); function Create(_obj: Fonts);
function Converte(); function Convert();
private private
object_: Fonts; object_: Fonts;
end; end;
@ -11,21 +11,21 @@ function FontsUnitDecorator.Create(_obj: Fonts);
begin begin
class(Fonts).Create(); class(Fonts).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FontsUnitDecorator.Converte(); function FontsUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value; {self.}XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value; {self.}XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value; {self.}XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value; {self.}XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value; {self.}XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value; {self.}XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value; {self.}XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value; {self.}XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value; {self.}XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
end; end;

6
autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FootnotePrUnitDecorator = class(FootnotePr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: FootnotePr); function Create(_obj: FootnotePr);
function Converte(); function Convert();
private private
object_: FootnotePr; object_: FootnotePr;
end; end;
@ -11,9 +11,9 @@ function FootnotePrUnitDecorator.Create(_obj: FootnotePr);
begin begin
class(FootnotePr).Create(); class(FootnotePr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FootnotePrUnitDecorator.Converte(); function FootnotePrUnitDecorator.Convert();
begin begin
end; end;

10
autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FootnoteUnitDecorator = class(Footnote)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Footnote); function Create(_obj: Footnote);
function Converte(); function Convert();
private private
object_: Footnote; object_: Footnote;
end; end;
@ -11,11 +11,11 @@ function FootnoteUnitDecorator.Create(_obj: Footnote);
begin begin
class(Footnote).Create(); class(Footnote).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FootnoteUnitDecorator.Converte(); function FootnoteUnitDecorator.Convert();
begin begin
self.XmlAttrType.Value := object_.XmlAttrType.Value; {self.}XmlAttrType.Value := object_.XmlAttrType.Value;
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
end; end;

72
autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FootnotesUnitDecorator = class(Footnotes)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Footnotes); function Create(_obj: Footnotes);
function Converte(); function Convert();
private private
object_: Footnotes; object_: Footnotes;
end; end;
@ -11,42 +11,42 @@ function FootnotesUnitDecorator.Create(_obj: Footnotes);
begin begin
class(Footnotes).Create(); class(Footnotes).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FootnotesUnitDecorator.Converte(); function FootnotesUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
self.XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value; {self.}XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value;
self.XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value; {self.}XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value;
self.XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value; {self.}XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value;
self.XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value; {self.}XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value;
self.XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value; {self.}XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value;
self.XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value; {self.}XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value;
self.XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value; {self.}XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value;
self.XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value; {self.}XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value;
self.XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value; {self.}XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value;
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value; {self.}XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value;
self.XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value; {self.}XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value;
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value; {self.}XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
self.XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value; {self.}XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value; {self.}XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value; {self.}XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value; {self.}XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value; {self.}XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value; {self.}XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value; {self.}XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value; {self.}XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value; {self.}XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value; {self.}XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value; {self.}XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value; {self.}XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value; {self.}XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value; {self.}XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value; {self.}XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value; {self.}XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
end; end;

36
autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type FtrUnitDecorator = class(Ftr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Ftr); function Create(_obj: Ftr);
function Converte(); function Convert();
private private
object_: Ftr; object_: Ftr;
end; end;
@ -11,24 +11,24 @@ function FtrUnitDecorator.Create(_obj: Ftr);
begin begin
class(Ftr).Create(); class(Ftr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function FtrUnitDecorator.Converte(); function FtrUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.XmlAttrXmlnsMo.Value := object_.XmlAttrXmlnsMo.Value; {self.}XmlAttrXmlnsMo.Value := object_.XmlAttrXmlnsMo.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value; {self.}XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value; {self.}XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value; {self.}XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value; {self.}XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value; {self.}XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value; {self.}XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value; {self.}XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value; {self.}XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value; {self.}XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
end; end;

12
autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type GradFillUnitDecorator = class(GradFill)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: GradFill); function Create(_obj: GradFill);
function Converte(); function Convert();
private private
object_: GradFill; object_: GradFill;
end; end;
@ -11,12 +11,12 @@ function GradFillUnitDecorator.Create(_obj: GradFill);
begin begin
class(GradFill).Create(); class(GradFill).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function GradFillUnitDecorator.Converte(); function GradFillUnitDecorator.Convert();
begin begin
self.XmlAttrRotWithShape.Value := object_.XmlAttrRotWithShape.Value; {self.}XmlAttrRotWithShape.Value := object_.XmlAttrRotWithShape.Value;
self.GsLst := new GsLstUnitDecorator(object_.GsLst); {self.}GsLst := new GsLstUnitDecorator(object_.GsLst);
self.Lin := new LinUnitDecorator(object_.Lin); {self.}Lin := new LinUnitDecorator(object_.Lin);
end; end;

12
autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type GraphicDataUnitDecorator = class(GraphicData)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: GraphicData); function Create(_obj: GraphicData);
function Converte(); function Convert();
private private
object_: GraphicData; object_: GraphicData;
end; end;
@ -11,12 +11,12 @@ function GraphicDataUnitDecorator.Create(_obj: GraphicData);
begin begin
class(GraphicData).Create(); class(GraphicData).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function GraphicDataUnitDecorator.Converte(); function GraphicDataUnitDecorator.Convert();
begin begin
self.XmlAttrUri.Value := object_.XmlAttrUri.Value; {self.}XmlAttrUri.Value := object_.XmlAttrUri.Value;
self.Pic := new PicUnitDecorator(object_.Pic); {self.}Pic := new PicUnitDecorator(object_.Pic);
self.Chart := new ChartUnitDecorator(object_.Chart); {self.}Chart := new ChartUnitDecorator(object_.Chart);
end; end;

10
autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type GraphicFrameLocksUnitDecorator = class(GraphicFrameLocks)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: GraphicFrameLocks); function Create(_obj: GraphicFrameLocks);
function Converte(); function Convert();
private private
object_: GraphicFrameLocks; object_: GraphicFrameLocks;
end; end;
@ -11,11 +11,11 @@ function GraphicFrameLocksUnitDecorator.Create(_obj: GraphicFrameLocks);
begin begin
class(GraphicFrameLocks).Create(); class(GraphicFrameLocks).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function GraphicFrameLocksUnitDecorator.Converte(); function GraphicFrameLocksUnitDecorator.Convert();
begin begin
self.XmlAttrNoChangeAspect.Value := object_.XmlAttrNoChangeAspect.Value; {self.}XmlAttrNoChangeAspect.Value := object_.XmlAttrNoChangeAspect.Value;
self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value; {self.}XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
end; end;

10
autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type GraphicUnitDecorator = class(Graphic)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Graphic); function Create(_obj: Graphic);
function Converte(); function Convert();
private private
object_: Graphic; object_: Graphic;
end; end;
@ -11,11 +11,11 @@ function GraphicUnitDecorator.Create(_obj: Graphic);
begin begin
class(Graphic).Create(); class(Graphic).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function GraphicUnitDecorator.Converte(); function GraphicUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value; {self.}XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
self.GraphicData := new GraphicDataUnitDecorator(object_.GraphicData); {self.}GraphicData := new GraphicDataUnitDecorator(object_.GraphicData);
end; end;

8
autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type GridColUnitDecorator = class(GridCol)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: GridCol); function Create(_obj: GridCol);
function Converte(); function Convert();
private private
object_: GridCol; object_: GridCol;
end; end;
@ -11,10 +11,10 @@ function GridColUnitDecorator.Create(_obj: GridCol);
begin begin
class(GridCol).Create(); class(GridCol).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function GridColUnitDecorator.Converte(); function GridColUnitDecorator.Convert();
begin begin
self.XmlAttrw.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value); {self.}XmlAttrw.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value);
end; end;

6
autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type GsLstUnitDecorator = class(GsLst)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: GsLst); function Create(_obj: GsLst);
function Converte(); function Convert();
private private
object_: GsLst; object_: GsLst;
end; end;
@ -11,9 +11,9 @@ function GsLstUnitDecorator.Create(_obj: GsLst);
begin begin
class(GsLst).Create(); class(GsLst).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function GsLstUnitDecorator.Converte(); function GsLstUnitDecorator.Convert();
begin begin
end; end;

10
autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type GsUnitDecorator = class(Gs)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Gs); function Create(_obj: Gs);
function Converte(); function Convert();
private private
object_: Gs; object_: Gs;
end; end;
@ -11,11 +11,11 @@ function GsUnitDecorator.Create(_obj: Gs);
begin begin
class(Gs).Create(); class(Gs).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function GsUnitDecorator.Converte(); function GsUnitDecorator.Convert();
begin begin
self.XmlAttrPos.Value := object_.XmlAttrPos.Value; {self.}XmlAttrPos.Value := object_.XmlAttrPos.Value;
self.SchemeClr := new SchemeClrUnitDecorator(object_.SchemeClr); {self.}SchemeClr := new SchemeClrUnitDecorator(object_.SchemeClr);
end; end;

8
autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type HdrShapeDefaultsUnitDecorator = class(HdrShapeDefaults)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: HdrShapeDefaults); function Create(_obj: HdrShapeDefaults);
function Converte(); function Convert();
private private
object_: HdrShapeDefaults; object_: HdrShapeDefaults;
end; end;
@ -11,10 +11,10 @@ function HdrShapeDefaultsUnitDecorator.Create(_obj: HdrShapeDefaults);
begin begin
class(HdrShapeDefaults).Create(); class(HdrShapeDefaults).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function HdrShapeDefaultsUnitDecorator.Converte(); function HdrShapeDefaultsUnitDecorator.Convert();
begin begin
self.ShapeDefaults := new ShapeDefaultsUnitDecorator(object_.ShapeDefaults); {self.}ShapeDefaults := new ShapeDefaultsUnitDecorator(object_.ShapeDefaults);
end; end;

36
autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type HdrUnitDecorator = class(Hdr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Hdr); function Create(_obj: Hdr);
function Converte(); function Convert();
private private
object_: Hdr; object_: Hdr;
end; end;
@ -11,24 +11,24 @@ function HdrUnitDecorator.Create(_obj: Hdr);
begin begin
class(Hdr).Create(); class(Hdr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function HdrUnitDecorator.Converte(); function HdrUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.XmlAttrXmlnsMo.Value := object_.XmlAttrXmlnsMo.Value; {self.}XmlAttrXmlnsMo.Value := object_.XmlAttrXmlnsMo.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value; {self.}XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value; {self.}XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value; {self.}XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value; {self.}XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value; {self.}XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value; {self.}XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value; {self.}XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value; {self.}XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value; {self.}XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
end; end;

10
autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type HyperLinkUnitDecorator = class(HyperLink)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: HyperLink); function Create(_obj: HyperLink);
function Converte(); function Convert();
private private
object_: HyperLink; object_: HyperLink;
end; end;
@ -11,11 +11,11 @@ function HyperLinkUnitDecorator.Create(_obj: HyperLink);
begin begin
class(HyperLink).Create(); class(HyperLink).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function HyperLinkUnitDecorator.Converte(); function HyperLinkUnitDecorator.Convert();
begin begin
self.XmlAttrId.Value := object_.XmlAttrId.Value; {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
self.XmlAttrHistory.Value := object_.XmlAttrHistory.Value; {self.}XmlAttrHistory.Value := object_.XmlAttrHistory.Value;
end; end;

10
autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type IdMapUnitDecorator = class(IdMap)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: IdMap); function Create(_obj: IdMap);
function Converte(); function Convert();
private private
object_: IdMap; object_: IdMap;
end; end;
@ -11,11 +11,11 @@ function IdMapUnitDecorator.Create(_obj: IdMap);
begin begin
class(IdMap).Create(); class(IdMap).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function IdMapUnitDecorator.Converte(); function IdMapUnitDecorator.Convert();
begin begin
self.XmlAttrExt.Value := object_.XmlAttrExt.Value; {self.}XmlAttrExt.Value := object_.XmlAttrExt.Value;
self.XmlAttrData.Value := object_.XmlAttrData.Value; {self.}XmlAttrData.Value := object_.XmlAttrData.Value;
end; end;

22
autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type IndUnitDecorator = class(Ind)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Ind); function Create(_obj: Ind);
function Converte(); function Convert();
private private
object_: Ind; object_: Ind;
end; end;
@ -11,17 +11,17 @@ function IndUnitDecorator.Create(_obj: Ind);
begin begin
class(Ind).Create(); class(Ind).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function IndUnitDecorator.Converte(); function IndUnitDecorator.Convert();
begin begin
self.XmlAttrFirstLineChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrFirstLineChars.Value); {self.}XmlAttrFirstLineChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrFirstLineChars.Value);
self.XmlAttrFirstLine.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrFirstLine.Value); {self.}XmlAttrFirstLine.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrFirstLine.Value);
self.XmlAttrRightChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrRightChars.Value); {self.}XmlAttrRightChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrRightChars.Value);
self.XmlAttrRight.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrRight.Value); {self.}XmlAttrRight.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrRight.Value);
self.XmlAttrLeftChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrLeftChars.Value); {self.}XmlAttrLeftChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrLeftChars.Value);
self.XmlAttrLeft.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLeft.Value); {self.}XmlAttrLeft.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLeft.Value);
self.XmlAttrHanging.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrHanging.Value); {self.}XmlAttrHanging.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrHanging.Value);
self.XmlAttrHangingChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrHangingChars.Value); {self.}XmlAttrHangingChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrHangingChars.Value);
end; end;

8
autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type InstrTextUnitDecorator = class(InstrText)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: InstrText); function Create(_obj: InstrText);
function Converte(); function Convert();
private private
object_: InstrText; object_: InstrText;
end; end;
@ -11,10 +11,10 @@ function InstrTextUnitDecorator.Create(_obj: InstrText);
begin begin
class(InstrText).Create(); class(InstrText).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function InstrTextUnitDecorator.Converte(); function InstrTextUnitDecorator.Convert();
begin begin
self.XmlAttrSpace.Value := object_.XmlAttrSpace.Value; {self.}XmlAttrSpace.Value := object_.XmlAttrSpace.Value;
end; end;

12
autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LangUnitDecorator = class(Lang)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Lang); function Create(_obj: Lang);
function Converte(); function Convert();
private private
object_: Lang; object_: Lang;
end; end;
@ -11,12 +11,12 @@ function LangUnitDecorator.Create(_obj: Lang);
begin begin
class(Lang).Create(); class(Lang).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LangUnitDecorator.Converte(); function LangUnitDecorator.Convert();
begin begin
self.XmlAttrVal.Value := object_.XmlAttrVal.Value; {self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
self.XmlAttrEastAsia.Value := object_.XmlAttrEastAsia.Value; {self.}XmlAttrEastAsia.Value := object_.XmlAttrEastAsia.Value;
self.XmlAttrBidi.Value := object_.XmlAttrBidi.Value; {self.}XmlAttrBidi.Value := object_.XmlAttrBidi.Value;
end; end;

18
autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LatenStylesUnitDecorator = class(LatenStyles)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: LatenStyles); function Create(_obj: LatenStyles);
function Converte(); function Convert();
private private
object_: LatenStyles; object_: LatenStyles;
end; end;
@ -11,15 +11,15 @@ function LatenStylesUnitDecorator.Create(_obj: LatenStyles);
begin begin
class(LatenStyles).Create(); class(LatenStyles).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LatenStylesUnitDecorator.Converte(); function LatenStylesUnitDecorator.Convert();
begin begin
self.XmlAttrDefLickedState.Value := object_.XmlAttrDefLickedState.Value; {self.}XmlAttrDefLickedState.Value := object_.XmlAttrDefLickedState.Value;
self.XmlAttrDefUIPriority.Value := object_.XmlAttrDefUIPriority.Value; {self.}XmlAttrDefUIPriority.Value := object_.XmlAttrDefUIPriority.Value;
self.XmlAttrDefSemiHidden.Value := object_.XmlAttrDefSemiHidden.Value; {self.}XmlAttrDefSemiHidden.Value := object_.XmlAttrDefSemiHidden.Value;
self.XmlAttrDefUnhideWhenUsed.Value := object_.XmlAttrDefUnhideWhenUsed.Value; {self.}XmlAttrDefUnhideWhenUsed.Value := object_.XmlAttrDefUnhideWhenUsed.Value;
self.XmlAttrDefQFormat.Value := object_.XmlAttrDefQFormat.Value; {self.}XmlAttrDefQFormat.Value := object_.XmlAttrDefQFormat.Value;
self.XmlAttrCount.Value := object_.XmlAttrCount.Value; {self.}XmlAttrCount.Value := object_.XmlAttrCount.Value;
end; end;

10
autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LatinUnitDecorator = class(Latin)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Latin); function Create(_obj: Latin);
function Converte(); function Convert();
private private
object_: Latin; object_: Latin;
end; end;
@ -11,11 +11,11 @@ function LatinUnitDecorator.Create(_obj: Latin);
begin begin
class(Latin).Create(); class(Latin).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LatinUnitDecorator.Converte(); function LatinUnitDecorator.Convert();
begin begin
self.XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value; {self.}XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
self.XmlAttrPanose.Value := object_.XmlAttrPanose.Value; {self.}XmlAttrPanose.Value := object_.XmlAttrPanose.Value;
end; end;

14
autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LegendUnitDecorator = class(Legend)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Legend); function Create(_obj: Legend);
function Converte(); function Convert();
private private
object_: Legend; object_: Legend;
end; end;
@ -11,13 +11,13 @@ function LegendUnitDecorator.Create(_obj: Legend);
begin begin
class(Legend).Create(); class(Legend).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LegendUnitDecorator.Converte(); function LegendUnitDecorator.Convert();
begin begin
self.LegendPos := new PureValUnitDecorator(object_.LegendPos); {self.}LegendPos := new PureValUnitDecorator(object_.LegendPos);
if not ifnil(object_.XmlChildLayout.Value) then self.XmlChildLayout.Value := object_.XmlChildLayout.Value; if not ifnil(object_.XmlChildLayout.Value) then {self.}XmlChildLayout.Value := object_.XmlChildLayout.Value;
self.Overlay := new PureValUnitDecorator(object_.Overlay); {self.}Overlay := new PureValUnitDecorator(object_.Overlay);
self.TxPr := new TxPrUnitDecorator(object_.TxPr); {self.}TxPr := new TxPrUnitDecorator(object_.TxPr);
end; end;

10
autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LinUnitDecorator = class(Lin)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Lin); function Create(_obj: Lin);
function Converte(); function Convert();
private private
object_: Lin; object_: Lin;
end; end;
@ -11,11 +11,11 @@ function LinUnitDecorator.Create(_obj: Lin);
begin begin
class(Lin).Create(); class(Lin).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LinUnitDecorator.Converte(); function LinUnitDecorator.Convert();
begin begin
self.XmlAttrAng.Value := object_.XmlAttrAng.Value; {self.}XmlAttrAng.Value := object_.XmlAttrAng.Value;
self.XmlAttrScaled.Value := object_.XmlAttrScaled.Value; {self.}XmlAttrScaled.Value := object_.XmlAttrScaled.Value;
end; end;

6
autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LnStyleLstUnitDecorator = class(LnStyleLst)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: LnStyleLst); function Create(_obj: LnStyleLst);
function Converte(); function Convert();
private private
object_: LnStyleLst; object_: LnStyleLst;
end; end;
@ -11,9 +11,9 @@ function LnStyleLstUnitDecorator.Create(_obj: LnStyleLst);
begin begin
class(LnStyleLst).Create(); class(LnStyleLst).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LnStyleLstUnitDecorator.Converte(); function LnStyleLstUnitDecorator.Convert();
begin begin
end; end;

20
autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LnUnitDecorator = class(Ln)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Ln); function Create(_obj: Ln);
function Converte(); function Convert();
private private
object_: Ln; object_: Ln;
end; end;
@ -11,16 +11,16 @@ function LnUnitDecorator.Create(_obj: Ln);
begin begin
class(Ln).Create(); class(Ln).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LnUnitDecorator.Converte(); function LnUnitDecorator.Convert();
begin begin
self.XmlAttrW.Value := object_.XmlAttrW.Value; {self.}XmlAttrW.Value := object_.XmlAttrW.Value;
self.XmlAttrCap.Value := object_.XmlAttrCap.Value; {self.}XmlAttrCap.Value := object_.XmlAttrCap.Value;
self.XmlAttrCmpd.Value := object_.XmlAttrCmpd.Value; {self.}XmlAttrCmpd.Value := object_.XmlAttrCmpd.Value;
self.XmlAttrAlgn.Value := object_.XmlAttrAlgn.Value; {self.}XmlAttrAlgn.Value := object_.XmlAttrAlgn.Value;
self.SolidFill := new SolidFillUnitDecorator(object_.SolidFill); {self.}SolidFill := new SolidFillUnitDecorator(object_.SolidFill);
self.PrstDash := new PureValUnitDecorator(object_.PrstDash); {self.}PrstDash := new PureValUnitDecorator(object_.PrstDash);
self.Miter := new MiterUnitDecorator(object_.Miter); {self.}Miter := new MiterUnitDecorator(object_.Miter);
end; end;

16
autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LsdExceptionUnitDecorator = class(LsdException)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: LsdException); function Create(_obj: LsdException);
function Converte(); function Convert();
private private
object_: LsdException; object_: LsdException;
end; end;
@ -11,14 +11,14 @@ function LsdExceptionUnitDecorator.Create(_obj: LsdException);
begin begin
class(LsdException).Create(); class(LsdException).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LsdExceptionUnitDecorator.Converte(); function LsdExceptionUnitDecorator.Convert();
begin begin
self.XmlAttrName.Value := object_.XmlAttrName.Value; {self.}XmlAttrName.Value := object_.XmlAttrName.Value;
self.XmlAttrUIPriority.Value := object_.XmlAttrUIPriority.Value; {self.}XmlAttrUIPriority.Value := object_.XmlAttrUIPriority.Value;
self.XmlAttrSemiHidden.Value := object_.XmlAttrSemiHidden.Value; {self.}XmlAttrSemiHidden.Value := object_.XmlAttrSemiHidden.Value;
self.XmlAttrUnhideWhenUsed.Value := object_.XmlAttrUnhideWhenUsed.Value; {self.}XmlAttrUnhideWhenUsed.Value := object_.XmlAttrUnhideWhenUsed.Value;
self.XmlAttrQFormat.Value := object_.XmlAttrQFormat.Value; {self.}XmlAttrQFormat.Value := object_.XmlAttrQFormat.Value;
end; end;

26
autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type LvlUnitDecorator = class(Lvl)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Lvl); function Create(_obj: Lvl);
function Converte(); function Convert();
private private
object_: Lvl; object_: Lvl;
end; end;
@ -11,19 +11,19 @@ function LvlUnitDecorator.Create(_obj: Lvl);
begin begin
class(Lvl).Create(); class(Lvl).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function LvlUnitDecorator.Converte(); function LvlUnitDecorator.Convert();
begin begin
self.XmlAttrIlvl.Value := object_.XmlAttrIlvl.Value; {self.}XmlAttrIlvl.Value := object_.XmlAttrIlvl.Value;
self.XmlAttrTentative.Value := object_.XmlAttrTentative.Value; {self.}XmlAttrTentative.Value := object_.XmlAttrTentative.Value;
self.Start := new PureWValUnitDecorator(object_.Start); {self.}Start := new PureWValUnitDecorator(object_.Start);
self.NumFmt := new PureWValUnitDecorator(object_.NumFmt); {self.}NumFmt := new PureWValUnitDecorator(object_.NumFmt);
self.PStyle := new PureWValUnitDecorator(object_.PStyle); {self.}PStyle := new PureWValUnitDecorator(object_.PStyle);
self.Suff := new PureWValUnitDecorator(object_.Suff); {self.}Suff := new PureWValUnitDecorator(object_.Suff);
self.LvlText := new PureWValUnitDecorator(object_.LvlText); {self.}LvlText := new PureWValUnitDecorator(object_.LvlText);
self.LvlJc := new PureWValUnitDecorator(object_.LvlJc); {self.}LvlJc := new PureWValUnitDecorator(object_.LvlJc);
self.PPr := new PPrUnitDecorator(object_.PPr); {self.}PPr := new PPrUnitDecorator(object_.PPr);
self.RPr := new RPrUnitDecorator(object_.RPr); {self.}RPr := new RPrUnitDecorator(object_.RPr);
end; end;

10
autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type MFontFontUnitDecorator = class(MFontFont)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: MFontFont); function Create(_obj: MFontFont);
function Converte(); function Convert();
private private
object_: MFontFont; object_: MFontFont;
end; end;
@ -11,11 +11,11 @@ function MFontFontUnitDecorator.Create(_obj: MFontFont);
begin begin
class(MFontFont).Create(); class(MFontFont).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function MFontFontUnitDecorator.Converte(); function MFontFontUnitDecorator.Convert();
begin begin
self.XmlAttrScript.Value := object_.XmlAttrScript.Value; {self.}XmlAttrScript.Value := object_.XmlAttrScript.Value;
self.XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value; {self.}XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
end; end;

12
autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type MFontUnitDecorator = class(MFont)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: MFont); function Create(_obj: MFont);
function Converte(); function Convert();
private private
object_: MFont; object_: MFont;
end; end;
@ -11,12 +11,12 @@ function MFontUnitDecorator.Create(_obj: MFont);
begin begin
class(MFont).Create(); class(MFont).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function MFontUnitDecorator.Converte(); function MFontUnitDecorator.Convert();
begin begin
self.Latin := new LatinUnitDecorator(object_.Latin); {self.}Latin := new LatinUnitDecorator(object_.Latin);
self.Ea := new LatinUnitDecorator(object_.Ea); {self.}Ea := new LatinUnitDecorator(object_.Ea);
self.Cs := new LatinUnitDecorator(object_.Cs); {self.}Cs := new LatinUnitDecorator(object_.Cs);
end; end;

28
autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type MathPrUnitDecorator = class(MathPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: MathPr); function Create(_obj: MathPr);
function Converte(); function Convert();
private private
object_: MathPr; object_: MathPr;
end; end;
@ -11,20 +11,20 @@ function MathPrUnitDecorator.Create(_obj: MathPr);
begin begin
class(MathPr).Create(); class(MathPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function MathPrUnitDecorator.Converte(); function MathPrUnitDecorator.Convert();
begin begin
self.MathFont := new PureWValUnitDecorator(object_.MathFont); {self.}MathFont := new PureWValUnitDecorator(object_.MathFont);
self.BrkBin := new PureWValUnitDecorator(object_.BrkBin); {self.}BrkBin := new PureWValUnitDecorator(object_.BrkBin);
self.BrkBinSub := new PureWValUnitDecorator(object_.BrkBinSub); {self.}BrkBinSub := new PureWValUnitDecorator(object_.BrkBinSub);
self.SmallFrac := new PureWValUnitDecorator(object_.SmallFrac); {self.}SmallFrac := new PureWValUnitDecorator(object_.SmallFrac);
if not ifnil(object_.XmlChildDispDef.Value) then self.XmlChildDispDef.Value := object_.XmlChildDispDef.Value; if not ifnil(object_.XmlChildDispDef.Value) then {self.}XmlChildDispDef.Value := object_.XmlChildDispDef.Value;
self.LMargin := new PureWValUnitDecorator(object_.LMargin); {self.}LMargin := new PureWValUnitDecorator(object_.LMargin);
self.RMargin := new PureWValUnitDecorator(object_.RMargin); {self.}RMargin := new PureWValUnitDecorator(object_.RMargin);
self.DefJc := new PureWValUnitDecorator(object_.DefJc); {self.}DefJc := new PureWValUnitDecorator(object_.DefJc);
self.WrapIndent := new PureWValUnitDecorator(object_.WrapIndent); {self.}WrapIndent := new PureWValUnitDecorator(object_.WrapIndent);
self.IntLim := new PureWValUnitDecorator(object_.IntLim); {self.}IntLim := new PureWValUnitDecorator(object_.IntLim);
self.NaryLim := new PureWValUnitDecorator(object_.NaryLim); {self.}NaryLim := new PureWValUnitDecorator(object_.NaryLim);
end; end;

8
autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type MiterUnitDecorator = class(Miter)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Miter); function Create(_obj: Miter);
function Converte(); function Convert();
private private
object_: Miter; object_: Miter;
end; end;
@ -11,10 +11,10 @@ function MiterUnitDecorator.Create(_obj: Miter);
begin begin
class(Miter).Create(); class(Miter).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function MiterUnitDecorator.Converte(); function MiterUnitDecorator.Convert();
begin begin
self.XmlAttrLim.Value := object_.XmlAttrLim.Value; {self.}XmlAttrLim.Value := object_.XmlAttrLim.Value;
end; end;

8
autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type ModifiedUnitDecorator = class(Modified)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Modified); function Create(_obj: Modified);
function Converte(); function Convert();
private private
object_: Modified; object_: Modified;
end; end;
@ -11,10 +11,10 @@ function ModifiedUnitDecorator.Create(_obj: Modified);
begin begin
class(Modified).Create(); class(Modified).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function ModifiedUnitDecorator.Converte(); function ModifiedUnitDecorator.Convert();
begin begin
self.XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value; {self.}XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value;
end; end;

10
autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type NumFmtUnitDecorator = class(NumFmt)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: NumFmt); function Create(_obj: NumFmt);
function Converte(); function Convert();
private private
object_: NumFmt; object_: NumFmt;
end; end;
@ -11,11 +11,11 @@ function NumFmtUnitDecorator.Create(_obj: NumFmt);
begin begin
class(NumFmt).Create(); class(NumFmt).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function NumFmtUnitDecorator.Converte(); function NumFmtUnitDecorator.Convert();
begin begin
self.XmlAttrFormatCode.Value := object_.XmlAttrFormatCode.Value; {self.}XmlAttrFormatCode.Value := object_.XmlAttrFormatCode.Value;
self.XmlAttrSourceLinked.Value := object_.XmlAttrSourceLinked.Value; {self.}XmlAttrSourceLinked.Value := object_.XmlAttrSourceLinked.Value;
end; end;

10
autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type NumPrUnitDecorator = class(NumPr)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: NumPr); function Create(_obj: NumPr);
function Converte(); function Convert();
private private
object_: NumPr; object_: NumPr;
end; end;
@ -11,11 +11,11 @@ function NumPrUnitDecorator.Create(_obj: NumPr);
begin begin
class(NumPr).Create(); class(NumPr).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function NumPrUnitDecorator.Converte(); function NumPrUnitDecorator.Convert();
begin begin
self.Ilvl := new PureWValUnitDecorator(object_.Ilvl); {self.}Ilvl := new PureWValUnitDecorator(object_.Ilvl);
self.NumId := new PureWValUnitDecorator(object_.NumId); {self.}NumId := new PureWValUnitDecorator(object_.NumId);
end; end;

8
autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type NumRefUnitDecorator = class(NumRef)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: NumRef); function Create(_obj: NumRef);
function Converte(); function Convert();
private private
object_: NumRef; object_: NumRef;
end; end;
@ -11,10 +11,10 @@ function NumRefUnitDecorator.Create(_obj: NumRef);
begin begin
class(NumRef).Create(); class(NumRef).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function NumRefUnitDecorator.Converte(); function NumRefUnitDecorator.Convert();
begin begin
self.NumCache := new CacheUnitDecorator(object_.NumCache); {self.}NumCache := new CacheUnitDecorator(object_.NumCache);
end; end;

10
autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type NumUnitDecorator = class(Num)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Num); function Create(_obj: Num);
function Converte(); function Convert();
private private
object_: Num; object_: Num;
end; end;
@ -11,11 +11,11 @@ function NumUnitDecorator.Create(_obj: Num);
begin begin
class(Num).Create(); class(Num).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function NumUnitDecorator.Converte(); function NumUnitDecorator.Convert();
begin begin
self.XmlAttrNumId.Value := object_.XmlAttrNumId.Value; {self.}XmlAttrNumId.Value := object_.XmlAttrNumId.Value;
self.AbstractNumId := new PureWValUnitDecorator(object_.AbstractNumId); {self.}AbstractNumId := new PureWValUnitDecorator(object_.AbstractNumId);
end; end;

76
autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf
View File

@ -2,7 +2,7 @@ type NumberingUnitDecorator = class(Numbering)
uses TSSafeUnitConverter; uses TSSafeUnitConverter;
public public
function Create(_obj: Numbering); function Create(_obj: Numbering);
function Converte(); function Convert();
private private
object_: Numbering; object_: Numbering;
end; end;
@ -11,44 +11,44 @@ function NumberingUnitDecorator.Create(_obj: Numbering);
begin begin
class(Numbering).Create(); class(Numbering).Create();
object_ := _obj; object_ := _obj;
self.Converte(); {self.}Convert();
end; end;
function NumberingUnitDecorator.Converte(); function NumberingUnitDecorator.Convert();
begin begin
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value; {self.}XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
self.XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value; {self.}XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value;
self.XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value; {self.}XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value;
self.XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value; {self.}XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value;
self.XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value; {self.}XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value;
self.XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value; {self.}XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value;
self.XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value; {self.}XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value;
self.XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value; {self.}XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value;
self.XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value; {self.}XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value;
self.XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value; {self.}XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value;
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value; {self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
self.XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value; {self.}XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value;
self.XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value; {self.}XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value;
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value; {self.}XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
self.XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value; {self.}XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value;
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value; {self.}XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value; {self.}XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value; {self.}XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value; {self.}XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value; {self.}XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
self.XmlAttrXmlnsW10.Value := object_.XmlAttrXmlnsW10.Value; {self.}XmlAttrXmlnsW10.Value := object_.XmlAttrXmlnsW10.Value;
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value; {self.}XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value; {self.}XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value; {self.}XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value; {self.}XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value; {self.}XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value; {self.}XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value; {self.}XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value; {self.}XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value; {self.}XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value; {self.}XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value; {self.}XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value; {self.}XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value; {self.}XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value; {self.}XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
end; end;

Some files were not shown because too many files have changed in this diff Show More