v1.0.0

autoclass/adapter/docx/NumberingAdapter@DOCX.tsf

@@ -0,0 +1,55 @@
+type NumberingAdapter = class
+public
+    function Create(_obj: Numbering);
+    function Init();
+
+    property AbstractNumId read ReadAbstractNumId write WriteAbstractNumId;
+    property NumId read ReadNumId write WriteNumId;
+    function ReadAbstractNumId(_key: string);
+    function WriteAbstractNumId(_key: string; _value: tslobj);
+    function ReadNumId(_key: string);
+    function WriteNumId(_key: string; _value: tslobj);
+
+private
+    object_: Numbering;
+    abstractnum_hash_: tableArray;
+    num_hash_: tableArray;
+end;
+
+function NumberingAdapter.Create(_obj: Numbering);
+begin
+    object_ := _obj;
+    abstractnum_hash_ := array();
+    num_hash_ := array();
+    self.Init();
+end;
+
+function NumberingAdapter.Init();
+begin
+    elements := object_.AbstractNums;
+    for k,v in elements do
+        abstractnum_hash_[v.AbstractNumId] := v;
+    elements := object_.Nums;
+    for k,v in elements do
+        num_hash_[v.NumId] := v;
+end;
+
+function NumberingAdapter.ReadAbstractNumId(_key: string);
+begin
+    return abstractnum_hash_[_key];
+end;
+
+function NumberingAdapter.WriteAbstractNumId(_key: string; _value: tslobj);
+begin
+    abstractnum_hash_[_key] := _value;
+end;
+
+function NumberingAdapter.ReadNumId(_key: string);
+begin
+    return num_hash_[_key];
+end;
+
+function NumberingAdapter.WriteNumId(_key: string; _value: tslobj);
+begin
+    num_hash_[_key] := _value;
+end;

autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf

@@ -0,0 +1,37 @@
+type RelationshipsAdapter = class
+public
+    function Create(_obj: Relationships);
+    function Init();
+
+    property Id read ReadId write WriteId;
+    function ReadId(_key: string);
+    function WriteId(_key: string; _value: tslobj);
+
+private
+    object_: Relationships;
+    relationship_hash_: tableArray;
+end;
+
+function RelationshipsAdapter.Create(_obj: Relationships);
+begin
+    object_ := _obj;
+    relationship_hash_ := array();
+    self.Init();
+end;
+
+function RelationshipsAdapter.Init();
+begin
+    elements := object_.Relationships;
+    for k,v in elements do
+        relationship_hash_[v.Id] := v;
+end;
+
+function RelationshipsAdapter.ReadId(_key: string);
+begin
+    return relationship_hash_[_key];
+end;
+
+function RelationshipsAdapter.WriteId(_key: string; _value: tslobj);
+begin
+    relationship_hash_[_key] := _value;
+end;

autoclass/adapter/docx/StylesAdapter@DOCX.tsf

@@ -0,0 +1,37 @@
+type StylesAdapter = class
+public
+    function Create(_obj: Styles);
+    function Init();
+
+    property StyleId read ReadStyleId write WriteStyleId;
+    function ReadStyleId(_key: string);
+    function WriteStyleId(_key: string; _value: tslobj);
+
+private
+    object_: Styles;
+    style_hash_: tableArray;
+end;
+
+function StylesAdapter.Create(_obj: Styles);
+begin
+    object_ := _obj;
+    style_hash_ := array();
+    self.Init();
+end;
+
+function StylesAdapter.Init();
+begin
+    elements := object_.Styles;
+    for k,v in elements do
+        style_hash_[v.StyleId] := v;
+end;
+
+function StylesAdapter.ReadStyleId(_key: string);
+begin
+    return style_hash_[_key];
+end;
+
+function StylesAdapter.WriteStyleId(_key: string; _value: tslobj);
+begin
+    style_hash_[_key] := _value;
+end;

autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type APPrUnitDecorator = class(APPr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: APPr);
+    function Converte();
+private
+    object_: APPr;
+end;
+
+function APPrUnitDecorator.Create(_obj: APPr);
+begin
+    class(APPr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function APPrUnitDecorator.Converte();
+begin
+    self.DefRPr := new ARPrUnitDecorator(object_.DefRPr);
+end;

autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type ARUnitDecorator = class(AR)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: AR);
+    function Converte();
+private
+    object_: AR;
+end;
+
+function ARUnitDecorator.Create(_obj: AR);
+begin
+    class(AR).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ARUnitDecorator.Converte();
+begin
+    self.RPr := new ARPrUnitDecorator(object_.RPr);
+    self.T := new TUnitDecorator(object_.T);
+end;

autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf

@@ -0,0 +1,24 @@
+type AbstractNumUnitDecorator = class(AbstractNum)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: AbstractNum);
+    function Converte();
+private
+    object_: AbstractNum;
+end;
+
+function AbstractNumUnitDecorator.Create(_obj: AbstractNum);
+begin
+    class(AbstractNum).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function AbstractNumUnitDecorator.Converte();
+begin
+    self.XmlAttrAbstractNumId.Value := object_.XmlAttrAbstractNumId.Value;
+    self.XmlAttrRestartNumberingAfterBreak.Value := object_.XmlAttrRestartNumberingAfterBreak.Value;
+    self.Nsid := new PureWValUnitDecorator(object_.Nsid);
+    self.MultiLevelType := new PureWValUnitDecorator(object_.MultiLevelType);
+    self.Tmpl := new PureWValUnitDecorator(object_.Tmpl);
+end;

autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type AlternateContentUnitDecorator = class(AlternateContent)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: AlternateContent);
+    function Converte();
+private
+    object_: AlternateContent;
+end;
+
+function AlternateContentUnitDecorator.Create(_obj: AlternateContent);
+begin
+    class(AlternateContent).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function AlternateContentUnitDecorator.Converte();
+begin
+    self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
+    self.Choice := new ChoiceUnitDecorator(object_.Choice);
+    self.Fallback := new FallbackUnitDecorator(object_.Fallback);
+end;

autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type ApUnitDecorator = class(Ap)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Ap);
+    function Converte();
+private
+    object_: Ap;
+end;
+
+function ApUnitDecorator.Create(_obj: Ap);
+begin
+    class(Ap).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ApUnitDecorator.Converte();
+begin
+    self.PPr := new APPrUnitDecorator(object_.PPr);
+    self.EndParaRPr := new ARPrUnitDecorator(object_.EndParaRPr);
+end;

autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf

@@ -0,0 +1,23 @@
+type BarChartUnitDecorator = class(BarChart)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: BarChart);
+    function Converte();
+private
+    object_: BarChart;
+end;
+
+function BarChartUnitDecorator.Create(_obj: BarChart);
+begin
+    class(BarChart).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function BarChartUnitDecorator.Converte();
+begin
+    self.BarDir := new PureValUnitDecorator(object_.BarDir);
+    self.Grouping := new PureValUnitDecorator(object_.Grouping);
+    self.VaryColors := new PureValUnitDecorator(object_.VaryColors);
+    self.GapWidth := new PureValUnitDecorator(object_.GapWidth);
+end;

autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type BlipFillUnitDecorator = class(BlipFill)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: BlipFill);
+    function Converte();
+private
+    object_: BlipFill;
+end;
+
+function BlipFillUnitDecorator.Create(_obj: BlipFill);
+begin
+    class(BlipFill).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function BlipFillUnitDecorator.Converte();
+begin
+    self.Blip := new BlipUnitDecorator(object_.Blip);
+    self.Stretch := new StretchUnitDecorator(object_.Stretch);
+end;

autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type BlipUnitDecorator = class(Blip)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Blip);
+    function Converte();
+private
+    object_: Blip;
+end;
+
+function BlipUnitDecorator.Create(_obj: Blip);
+begin
+    class(Blip).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function BlipUnitDecorator.Converte();
+begin
+    self.XmlAttrEmbed.Value := object_.XmlAttrEmbed.Value;
+    self.XmlAttrCstate.Value := object_.XmlAttrCstate.Value;
+end;

autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type BodyPrUnitDecorator = class(BodyPr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: BodyPr);
+    function Converte();
+private
+    object_: BodyPr;
+end;
+
+function BodyPrUnitDecorator.Create(_obj: BodyPr);
+begin
+    class(BodyPr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function BodyPrUnitDecorator.Converte();
+begin
+    self.XmlAttrRot.Value := object_.XmlAttrRot.Value;
+    self.XmlAttrSpcFirstLastPara.Value := object_.XmlAttrSpcFirstLastPara.Value;
+    self.XmlAttrVertOverflow.Value := object_.XmlAttrVertOverflow.Value;
+    self.XmlAttrVert.Value := object_.XmlAttrVert.Value;
+    self.XmlAttrWrap.Value := object_.XmlAttrWrap.Value;
+    self.XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value;
+    self.XmlAttrAnchorCtr.Value := object_.XmlAttrAnchorCtr.Value;
+end;

autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type BodyUnitDecorator = class(Body)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Body);
+    function Converte();
+private
+    object_: Body;
+end;
+
+function BodyUnitDecorator.Create(_obj: Body);
+begin
+    class(Body).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function BodyUnitDecorator.Converte();
+begin
+    self.SectPr := new SectPrUnitDecorator(object_.SectPr);
+end;

autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type BookmarkUnitDecorator = class(Bookmark)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Bookmark);
+    function Converte();
+private
+    object_: Bookmark;
+end;
+
+function BookmarkUnitDecorator.Create(_obj: Bookmark);
+begin
+    class(Bookmark).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function BookmarkUnitDecorator.Converte();
+begin
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+end;

autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type BrUnitDecorator = class(Br)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Br);
+    function Converte();
+private
+    object_: Br;
+end;
+
+function BrUnitDecorator.Create(_obj: Br);
+begin
+    class(Br).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function BrUnitDecorator.Converte();
+begin
+    self.XmlAttrType.Value := object_.XmlAttrType.Value;
+end;

autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type CNvGraphicFramePrUnitDecorator = class(CNvGraphicFramePr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CNvGraphicFramePr);
+    function Converte();
+private
+    object_: CNvGraphicFramePr;
+end;
+
+function CNvGraphicFramePrUnitDecorator.Create(_obj: CNvGraphicFramePr);
+begin
+    class(CNvGraphicFramePr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CNvGraphicFramePrUnitDecorator.Converte();
+begin
+    self.GraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.GraphicFrameLocks);
+end;

autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type CNvPicPrUnitDecorator = class(CNvPicPr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CNvPicPr);
+    function Converte();
+private
+    object_: CNvPicPr;
+end;
+
+function CNvPicPrUnitDecorator.Create(_obj: CNvPicPr);
+begin
+    class(CNvPicPr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CNvPicPrUnitDecorator.Converte();
+begin
+    self.PicLocks := new PicLocksUnitDecorator(object_.PicLocks);
+end;

autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type CNvPrUnitDecorator = class(CNvPr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CNvPr);
+    function Converte();
+private
+    object_: CNvPr;
+end;
+
+function CNvPrUnitDecorator.Create(_obj: CNvPr);
+begin
+    class(CNvPr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CNvPrUnitDecorator.Converte();
+begin
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
+end;

autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type CXYUnitDecorator = class(CXY)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CXY);
+    function Converte();
+private
+    object_: CXY;
+end;
+
+function CXYUnitDecorator.Create(_obj: CXY);
+begin
+    class(CXY).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CXYUnitDecorator.Converte();
+begin
+    self.XmlAttrCx.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCx.Value);
+    self.XmlAttrCy.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCy.Value);
+end;

autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type CacheUnitDecorator = class(Cache)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Cache);
+    function Converte();
+private
+    object_: Cache;
+end;
+
+function CacheUnitDecorator.Create(_obj: Cache);
+begin
+    class(Cache).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CacheUnitDecorator.Converte();
+begin
+    self.PtCount := new PureValUnitDecorator(object_.PtCount);
+end;

autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type CatUnitDecorator = class(Cat)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Cat);
+    function Converte();
+private
+    object_: Cat;
+end;
+
+function CatUnitDecorator.Create(_obj: Cat);
+begin
+    class(Cat).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CatUnitDecorator.Converte();
+begin
+    self.StrRef := new StrRefUnitDecorator(object_.StrRef);
+end;

autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type ChoiceUnitDecorator = class(Choice)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Choice);
+    function Converte();
+private
+    object_: Choice;
+end;
+
+function ChoiceUnitDecorator.Create(_obj: Choice);
+begin
+    class(Choice).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ChoiceUnitDecorator.Converte();
+begin
+    self.XmlAttrRequires.Value := object_.XmlAttrRequires.Value;
+    self.XmlAttrXmlnsC14.Value := object_.XmlAttrXmlnsC14.Value;
+    self.Style := new PureValUnitDecorator(object_.Style);
+end;

autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type Clr1UnitDecorator = class(Clr1)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Clr1);
+    function Converte();
+private
+    object_: Clr1;
+end;
+
+function Clr1UnitDecorator.Create(_obj: Clr1);
+begin
+    class(Clr1).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function Clr1UnitDecorator.Converte();
+begin
+    self.SysClr := new SysClrUnitDecorator(object_.SysClr);
+end;

autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type Clr2UnitDecorator = class(Clr2)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Clr2);
+    function Converte();
+private
+    object_: Clr2;
+end;
+
+function Clr2UnitDecorator.Create(_obj: Clr2);
+begin
+    class(Clr2).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function Clr2UnitDecorator.Converte();
+begin
+    self.SrgbClr := new SrgbClrUnitDecorator(object_.SrgbClr);
+end;

autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type ColorUnitDecorator = class(Color)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Color);
+    function Converte();
+private
+    object_: Color;
+end;
+
+function ColorUnitDecorator.Create(_obj: Color);
+begin
+    class(Color).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ColorUnitDecorator.Converte();
+begin
+    self.XmlAttrVal.Value := object_.XmlAttrVal.Value;
+    self.XmlAttrThemeColor.Value := object_.XmlAttrThemeColor.Value;
+end;

autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type ColsUnitDecorator = class(Cols)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Cols);
+    function Converte();
+private
+    object_: Cols;
+end;
+
+function ColsUnitDecorator.Create(_obj: Cols);
+begin
+    class(Cols).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ColsUnitDecorator.Converte();
+begin
+    self.XmlAttrSpace.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
+end;

autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type CommentRangeUnitDecorator = class(CommentRange)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CommentRange);
+    function Converte();
+private
+    object_: CommentRange;
+end;
+
+function CommentRangeUnitDecorator.Create(_obj: CommentRange);
+begin
+    class(CommentRange).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CommentRangeUnitDecorator.Converte();
+begin
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+end;

autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type CommentUnitDecorator = class(Comment)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Comment);
+    function Converte();
+private
+    object_: Comment;
+end;
+
+function CommentUnitDecorator.Create(_obj: Comment);
+begin
+    class(Comment).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CommentUnitDecorator.Converte();
+begin
+    self.XmlAttrAuthor.Value := object_.XmlAttrAuthor.Value;
+    self.XmlAttrDate.Value := object_.XmlAttrDate.Value;
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+end;

autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type CompatSettingUnitDecorator = class(CompatSetting)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CompatSetting);
+    function Converte();
+private
+    object_: CompatSetting;
+end;
+
+function CompatSettingUnitDecorator.Create(_obj: CompatSetting);
+begin
+    class(CompatSetting).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CompatSettingUnitDecorator.Converte();
+begin
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.XmlAttrUri.Value := object_.XmlAttrUri.Value;
+    self.XmlAttrVal.Value := object_.XmlAttrVal.Value;
+end;

autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type CompatUnitDecorator = class(Compat)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Compat);
+    function Converte();
+private
+    object_: Compat;
+end;
+
+function CompatUnitDecorator.Create(_obj: Compat);
+begin
+    class(Compat).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CompatUnitDecorator.Converte();
+begin
+    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_.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_.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_.XmlChildUseFELayout.Value) then self.XmlChildUseFELayout.Value := object_.XmlChildUseFELayout.Value;
+end;

autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type CorePropertiesUnitDecorator = class(CoreProperties)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CoreProperties);
+    function Converte();
+private
+    object_: CoreProperties;
+end;
+
+function CorePropertiesUnitDecorator.Create(_obj: CoreProperties);
+begin
+    class(CoreProperties).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CorePropertiesUnitDecorator.Converte();
+begin
+    self.XmlAttrXmlnsCp.Value := object_.XmlAttrXmlnsCp.Value;
+    self.XmlAttrXmlnsDc.Value := object_.XmlAttrXmlnsDc.Value;
+    self.XmlAttrXmlnsDcterms.Value := object_.XmlAttrXmlnsDcterms.Value;
+    self.XmlAttrXmlnsDcmitype.Value := object_.XmlAttrXmlnsDcmitype.Value;
+    self.XmlAttrXmlnsXsi.Value := object_.XmlAttrXmlnsXsi.Value;
+    self.Created := new CreatedUnitDecorator(object_.Created);
+    self.Modified := new ModifiedUnitDecorator(object_.Modified);
+end;

autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type CreatedUnitDecorator = class(Created)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Created);
+    function Converte();
+private
+    object_: Created;
+end;
+
+function CreatedUnitDecorator.Create(_obj: Created);
+begin
+    class(Created).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function CreatedUnitDecorator.Converte();
+begin
+    self.XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value;
+end;

autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf

@@ -0,0 +1,28 @@
+type DLblsUnitDecorator = class(DLbls)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: DLbls);
+    function Converte();
+private
+    object_: DLbls;
+end;
+
+function DLblsUnitDecorator.Create(_obj: DLbls);
+begin
+    class(DLbls).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DLblsUnitDecorator.Converte();
+begin
+    self.SpPr := new SpPrUnitDecorator(object_.SpPr);
+    self.ShowLegendKey := new PureValUnitDecorator(object_.ShowLegendKey);
+    self.ShowVal := new PureValUnitDecorator(object_.ShowVal);
+    self.ShowCatName := new PureValUnitDecorator(object_.ShowCatName);
+    self.ShowSerName := new PureValUnitDecorator(object_.ShowSerName);
+    self.ShowPercent := new PureValUnitDecorator(object_.ShowPercent);
+    self.ShowBubbleSize := new PureValUnitDecorator(object_.ShowBubbleSize);
+    self.ShowLeaderLines := new PureValUnitDecorator(object_.ShowLeaderLines);
+    self.ExtLst := new ExtLstUnitDecorator(object_.ExtLst);
+end;

autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf

@@ -0,0 +1,24 @@
+type DTableUnitDecorator = class(DTable)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: DTable);
+    function Converte();
+private
+    object_: DTable;
+end;
+
+function DTableUnitDecorator.Create(_obj: DTable);
+begin
+    class(DTable).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DTableUnitDecorator.Converte();
+begin
+    self.ShowHorzBorder := new PureValUnitDecorator(object_.ShowHorzBorder);
+    self.ShowVertBorder := new PureValUnitDecorator(object_.ShowVertBorder);
+    self.ShowOutline := new PureValUnitDecorator(object_.ShowOutline);
+    self.ShowKeys := new PureValUnitDecorator(object_.ShowKeys);
+    self.TxPr := new TxPrUnitDecorator(object_.TxPr);
+end;

autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type DefaultUnitDecorator = class(Default)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Default);
+    function Converte();
+private
+    object_: Default;
+end;
+
+function DefaultUnitDecorator.Create(_obj: Default);
+begin
+    class(Default).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DefaultUnitDecorator.Converte();
+begin
+    self.XmlAttrExtension.Value := object_.XmlAttrExtension.Value;
+    self.XmlAttrContentType.Value := object_.XmlAttrContentType.Value;
+end;

autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type DocDefaultsUnitDecorator = class(DocDefaults)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: DocDefaults);
+    function Converte();
+private
+    object_: DocDefaults;
+end;
+
+function DocDefaultsUnitDecorator.Create(_obj: DocDefaults);
+begin
+    class(DocDefaults).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DocDefaultsUnitDecorator.Converte();
+begin
+    self.RPrDefault := new RPrDefaultUnitDecorator(object_.RPrDefault);
+    self.PPrDefault := new PPrDefaultUnitDecorator(object_.PPrDefault);
+end;

autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type DocGridUnitDecorator = class(DocGrid)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: DocGrid);
+    function Converte();
+private
+    object_: DocGrid;
+end;
+
+function DocGridUnitDecorator.Create(_obj: DocGrid);
+begin
+    class(DocGrid).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DocGridUnitDecorator.Converte();
+begin
+    self.XmlAttrType.Value := object_.XmlAttrType.Value;
+    self.XmlAttrLinePitch.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLinePitch.Value);
+end;

autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type DocPartObjUnitDecorator = class(DocPartObj)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: DocPartObj);
+    function Converte();
+private
+    object_: DocPartObj;
+end;
+
+function DocPartObjUnitDecorator.Create(_obj: DocPartObj);
+begin
+    class(DocPartObj).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DocPartObjUnitDecorator.Converte();
+begin
+    self.DocPartGallery := new PureWValUnitDecorator(object_.DocPartGallery);
+    self.DocPartUnique := new PureValUnitDecorator(object_.DocPartUnique);
+end;

autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type DocPrUnitDecorator = class(DocPr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: DocPr);
+    function Converte();
+private
+    object_: DocPr;
+end;
+
+function DocPrUnitDecorator.Create(_obj: DocPr);
+begin
+    class(DocPr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DocPrUnitDecorator.Converte();
+begin
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
+end;

autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type DrawingUnitDecorator = class(Drawing)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Drawing);
+    function Converte();
+private
+    object_: Drawing;
+end;
+
+function DrawingUnitDecorator.Create(_obj: Drawing);
+begin
+    class(Drawing).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function DrawingUnitDecorator.Converte();
+begin
+    self._Inline := new _InlineUnitDecorator(object_._Inline);
+end;

autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf

@@ -0,0 +1,23 @@
+type EffectExtentUnitDecorator = class(EffectExtent)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: EffectExtent);
+    function Converte();
+private
+    object_: EffectExtent;
+end;
+
+function EffectExtentUnitDecorator.Create(_obj: EffectExtent);
+begin
+    class(EffectExtent).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function EffectExtentUnitDecorator.Converte();
+begin
+    self.XmlAttrL.Value := object_.XmlAttrL.Value;
+    self.XmlAttrT.Value := object_.XmlAttrT.Value;
+    self.XmlAttrR.Value := object_.XmlAttrR.Value;
+    self.XmlAttrB.Value := object_.XmlAttrB.Value;
+end;

autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type EffectLstUnitDecorator = class(EffectLst)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: EffectLst);
+    function Converte();
+private
+    object_: EffectLst;
+end;
+
+function EffectLstUnitDecorator.Create(_obj: EffectLst);
+begin
+    class(EffectLst).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function EffectLstUnitDecorator.Converte();
+begin
+    self.OuterShdw := new OuterShdwUnitDecorator(object_.OuterShdw);
+end;

autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf

@@ -0,0 +1,19 @@
+type EffectStyleLstUnitDecorator = class(EffectStyleLst)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: EffectStyleLst);
+    function Converte();
+private
+    object_: EffectStyleLst;
+end;
+
+function EffectStyleLstUnitDecorator.Create(_obj: EffectStyleLst);
+begin
+    class(EffectStyleLst).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function EffectStyleLstUnitDecorator.Converte();
+begin
+end;

autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type EffectStyleUnitDecorator = class(EffectStyle)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: EffectStyle);
+    function Converte();
+private
+    object_: EffectStyle;
+end;
+
+function EffectStyleUnitDecorator.Create(_obj: EffectStyle);
+begin
+    class(EffectStyle).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function EffectStyleUnitDecorator.Converte();
+begin
+    self.EffectLst := new EffectLstUnitDecorator(object_.EffectLst);
+end;

autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf

@@ -0,0 +1,19 @@
+type EndnotePrUnitDecorator = class(EndnotePr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: EndnotePr);
+    function Converte();
+private
+    object_: EndnotePr;
+end;
+
+function EndnotePrUnitDecorator.Create(_obj: EndnotePr);
+begin
+    class(EndnotePr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function EndnotePrUnitDecorator.Converte();
+begin
+end;

autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type EndnoteUnitDecorator = class(Endnote)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Endnote);
+    function Converte();
+private
+    object_: Endnote;
+end;
+
+function EndnoteUnitDecorator.Create(_obj: Endnote);
+begin
+    class(Endnote).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function EndnoteUnitDecorator.Converte();
+begin
+    self.XmlAttrType.Value := object_.XmlAttrType.Value;
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+end;

autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf

@@ -0,0 +1,19 @@
+type ExtLstUnitDecorator = class(ExtLst)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: ExtLst);
+    function Converte();
+private
+    object_: ExtLst;
+end;
+
+function ExtLstUnitDecorator.Create(_obj: ExtLst);
+begin
+    class(ExtLst).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ExtLstUnitDecorator.Converte();
+begin
+end;

autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf

@@ -0,0 +1,23 @@
+type ExtUnitDecorator = class(Ext)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Ext);
+    function Converte();
+private
+    object_: Ext;
+end;
+
+function ExtUnitDecorator.Create(_obj: Ext);
+begin
+    class(Ext).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ExtUnitDecorator.Converte();
+begin
+    self.XmlAttrUri.Value := object_.XmlAttrUri.Value;
+    self.XmlAttrXmlnsC16.Value := object_.XmlAttrXmlnsC16.Value;
+    self.Thm15ThemeFamily := new ThemeFamilyUnitDecorator(object_.Thm15ThemeFamily);
+    self.UniqueId := new PureValUnitDecorator(object_.UniqueId);
+end;

autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type ExternalDataUnitDecorator = class(ExternalData)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: ExternalData);
+    function Converte();
+private
+    object_: ExternalData;
+end;
+
+function ExternalDataUnitDecorator.Create(_obj: ExternalData);
+begin
+    class(ExternalData).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ExternalDataUnitDecorator.Converte();
+begin
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+    self.AutoUpdate := new PureValUnitDecorator(object_.AutoUpdate);
+end;

autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type FallbackUnitDecorator = class(Fallback)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Fallback);
+    function Converte();
+private
+    object_: Fallback;
+end;
+
+function FallbackUnitDecorator.Create(_obj: Fallback);
+begin
+    class(Fallback).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FallbackUnitDecorator.Converte();
+begin
+    self.Style := new PureValUnitDecorator(object_.Style);
+end;

autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf

@@ -0,0 +1,19 @@
+type FillStyleLstUnitDecorator = class(FillStyleLst)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: FillStyleLst);
+    function Converte();
+private
+    object_: FillStyleLst;
+end;
+
+function FillStyleLstUnitDecorator.Create(_obj: FillStyleLst);
+begin
+    class(FillStyleLst).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FillStyleLstUnitDecorator.Converte();
+begin
+end;

autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type FldCharUnitDecorator = class(FldChar)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: FldChar);
+    function Converte();
+private
+    object_: FldChar;
+end;
+
+function FldCharUnitDecorator.Create(_obj: FldChar);
+begin
+    class(FldChar).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FldCharUnitDecorator.Converte();
+begin
+    self.XmlAttrFldCharType.Value := object_.XmlAttrFldCharType.Value;
+    self.XmlAttrDirty.Value := object_.XmlAttrDirty.Value;
+end;

autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf

@@ -0,0 +1,24 @@
+type FmtSchemeUnitDecorator = class(FmtScheme)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: FmtScheme);
+    function Converte();
+private
+    object_: FmtScheme;
+end;
+
+function FmtSchemeUnitDecorator.Create(_obj: FmtScheme);
+begin
+    class(FmtScheme).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FmtSchemeUnitDecorator.Converte();
+begin
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.FillStyleLst := new FillStyleLstUnitDecorator(object_.FillStyleLst);
+    self.LnStyleLst := new LnStyleLstUnitDecorator(object_.LnStyleLst);
+    self.EffectStyleLst := new EffectStyleLstUnitDecorator(object_.EffectStyleLst);
+    self.BgFillStyleLst := new FillStyleLstUnitDecorator(object_.BgFillStyleLst);
+end;

autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type FontSchemeUnitDecorator = class(FontScheme)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: FontScheme);
+    function Converte();
+private
+    object_: FontScheme;
+end;
+
+function FontSchemeUnitDecorator.Create(_obj: FontScheme);
+begin
+    class(FontScheme).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FontSchemeUnitDecorator.Converte();
+begin
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.Majorfont := new MfontUnitDecorator(object_.Majorfont);
+    self.Minorfont := new MfontUnitDecorator(object_.Minorfont);
+end;

autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type FontUnitDecorator = class(Font)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Font);
+    function Converte();
+private
+    object_: Font;
+end;
+
+function FontUnitDecorator.Create(_obj: Font);
+begin
+    class(Font).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FontUnitDecorator.Converte();
+begin
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.AltName := new PureWValUnitDecorator(object_.AltName);
+    self.Panosel := new PureWValUnitDecorator(object_.Panosel);
+    self.Charset := new PureWValUnitDecorator(object_.Charset);
+    self.Family := new PureWValUnitDecorator(object_.Family);
+    self.Pitch := new PureWValUnitDecorator(object_.Pitch);
+    self.Sig := new SigUnitDecorator(object_.Sig);
+end;

autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf

@@ -0,0 +1,31 @@
+type FontsUnitDecorator = class(Fonts)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Fonts);
+    function Converte();
+private
+    object_: Fonts;
+end;
+
+function FontsUnitDecorator.Create(_obj: Fonts);
+begin
+    class(Fonts).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FontsUnitDecorator.Converte();
+begin
+    self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
+    self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
+    self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
+    self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
+    self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
+    self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
+    self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
+    self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
+    self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
+    self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
+    self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
+    self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
+end;

autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf

@@ -0,0 +1,19 @@
+type FootnotePrUnitDecorator = class(FootnotePr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: FootnotePr);
+    function Converte();
+private
+    object_: FootnotePr;
+end;
+
+function FootnotePrUnitDecorator.Create(_obj: FootnotePr);
+begin
+    class(FootnotePr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FootnotePrUnitDecorator.Converte();
+begin
+end;

autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type FootnoteUnitDecorator = class(Footnote)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Footnote);
+    function Converte();
+private
+    object_: Footnote;
+end;
+
+function FootnoteUnitDecorator.Create(_obj: Footnote);
+begin
+    class(Footnote).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function FootnoteUnitDecorator.Converte();
+begin
+    self.XmlAttrType.Value := object_.XmlAttrType.Value;
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+end;

autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type GradFillUnitDecorator = class(GradFill)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: GradFill);
+    function Converte();
+private
+    object_: GradFill;
+end;
+
+function GradFillUnitDecorator.Create(_obj: GradFill);
+begin
+    class(GradFill).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function GradFillUnitDecorator.Converte();
+begin
+    self.XmlAttrRotWithShape.Value := object_.XmlAttrRotWithShape.Value;
+    self.GsLst := new GsLstUnitDecorator(object_.GsLst);
+    self.Lin := new LinUnitDecorator(object_.Lin);
+end;

autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type GraphicDataUnitDecorator = class(GraphicData)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: GraphicData);
+    function Converte();
+private
+    object_: GraphicData;
+end;
+
+function GraphicDataUnitDecorator.Create(_obj: GraphicData);
+begin
+    class(GraphicData).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function GraphicDataUnitDecorator.Converte();
+begin
+    self.XmlAttrUri.Value := object_.XmlAttrUri.Value;
+    self.Pic := new PicUnitDecorator(object_.Pic);
+    self.Chart := new ChartUnitDecorator(object_.Chart);
+end;

autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type GraphicFrameLocksUnitDecorator = class(GraphicFrameLocks)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: GraphicFrameLocks);
+    function Converte();
+private
+    object_: GraphicFrameLocks;
+end;
+
+function GraphicFrameLocksUnitDecorator.Create(_obj: GraphicFrameLocks);
+begin
+    class(GraphicFrameLocks).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function GraphicFrameLocksUnitDecorator.Converte();
+begin
+    self.XmlAttrNoChangeAspect.Value := object_.XmlAttrNoChangeAspect.Value;
+    self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
+end;

autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type GraphicUnitDecorator = class(Graphic)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Graphic);
+    function Converte();
+private
+    object_: Graphic;
+end;
+
+function GraphicUnitDecorator.Create(_obj: Graphic);
+begin
+    class(Graphic).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function GraphicUnitDecorator.Converte();
+begin
+    self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
+    self.GraphicData := new GraphicDataUnitDecorator(object_.GraphicData);
+end;

autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type GridColUnitDecorator = class(GridCol)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: GridCol);
+    function Converte();
+private
+    object_: GridCol;
+end;
+
+function GridColUnitDecorator.Create(_obj: GridCol);
+begin
+    class(GridCol).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function GridColUnitDecorator.Converte();
+begin
+    self.XmlAttrw.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value);
+end;

autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf

@@ -0,0 +1,19 @@
+type GsLstUnitDecorator = class(GsLst)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: GsLst);
+    function Converte();
+private
+    object_: GsLst;
+end;
+
+function GsLstUnitDecorator.Create(_obj: GsLst);
+begin
+    class(GsLst).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function GsLstUnitDecorator.Converte();
+begin
+end;

autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type GsUnitDecorator = class(Gs)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Gs);
+    function Converte();
+private
+    object_: Gs;
+end;
+
+function GsUnitDecorator.Create(_obj: Gs);
+begin
+    class(Gs).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function GsUnitDecorator.Converte();
+begin
+    self.XmlAttrPos.Value := object_.XmlAttrPos.Value;
+    self.SchemeClr := new SchemeClrUnitDecorator(object_.SchemeClr);
+end;

autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type HdrShapeDefaultsUnitDecorator = class(HdrShapeDefaults)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: HdrShapeDefaults);
+    function Converte();
+private
+    object_: HdrShapeDefaults;
+end;
+
+function HdrShapeDefaultsUnitDecorator.Create(_obj: HdrShapeDefaults);
+begin
+    class(HdrShapeDefaults).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function HdrShapeDefaultsUnitDecorator.Converte();
+begin
+    self.ShapeDefaults := new ShapeDefaultsUnitDecorator(object_.ShapeDefaults);
+end;

autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type HyperLinkUnitDecorator = class(HyperLink)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: HyperLink);
+    function Converte();
+private
+    object_: HyperLink;
+end;
+
+function HyperLinkUnitDecorator.Create(_obj: HyperLink);
+begin
+    class(HyperLink).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function HyperLinkUnitDecorator.Converte();
+begin
+    self.XmlAttrId.Value := object_.XmlAttrId.Value;
+    self.XmlAttrHistory.Value := object_.XmlAttrHistory.Value;
+end;

autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type IdMapUnitDecorator = class(IdMap)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: IdMap);
+    function Converte();
+private
+    object_: IdMap;
+end;
+
+function IdMapUnitDecorator.Create(_obj: IdMap);
+begin
+    class(IdMap).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function IdMapUnitDecorator.Converte();
+begin
+    self.XmlAttrExt.Value := object_.XmlAttrExt.Value;
+    self.XmlAttrData.Value := object_.XmlAttrData.Value;
+end;

autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type IndUnitDecorator = class(Ind)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Ind);
+    function Converte();
+private
+    object_: Ind;
+end;
+
+function IndUnitDecorator.Create(_obj: Ind);
+begin
+    class(Ind).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function IndUnitDecorator.Converte();
+begin
+    self.XmlAttrFirstLineChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrFirstLineChars.Value);
+    self.XmlAttrFirstLine.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrFirstLine.Value);
+    self.XmlAttrRightChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrRightChars.Value);
+    self.XmlAttrRight.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrRight.Value);
+    self.XmlAttrLeftChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrLeftChars.Value);
+    self.XmlAttrLeft.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLeft.Value);
+    self.XmlAttrHanging.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrHanging.Value);
+    self.XmlAttrHangingChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrHangingChars.Value);
+end;

autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type InstrTextUnitDecorator = class(InstrText)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: InstrText);
+    function Converte();
+private
+    object_: InstrText;
+end;
+
+function InstrTextUnitDecorator.Create(_obj: InstrText);
+begin
+    class(InstrText).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function InstrTextUnitDecorator.Converte();
+begin
+    self.XmlAttrSpace.Value := object_.XmlAttrSpace.Value;
+end;

autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type LangUnitDecorator = class(Lang)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Lang);
+    function Converte();
+private
+    object_: Lang;
+end;
+
+function LangUnitDecorator.Create(_obj: Lang);
+begin
+    class(Lang).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LangUnitDecorator.Converte();
+begin
+    self.XmlAttrVal.Value := object_.XmlAttrVal.Value;
+    self.XmlAttrEastAsia.Value := object_.XmlAttrEastAsia.Value;
+    self.XmlAttrBidi.Value := object_.XmlAttrBidi.Value;
+end;

autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf

@@ -0,0 +1,25 @@
+type LatenStylesUnitDecorator = class(LatenStyles)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: LatenStyles);
+    function Converte();
+private
+    object_: LatenStyles;
+end;
+
+function LatenStylesUnitDecorator.Create(_obj: LatenStyles);
+begin
+    class(LatenStyles).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LatenStylesUnitDecorator.Converte();
+begin
+    self.XmlAttrDefLickedState.Value := object_.XmlAttrDefLickedState.Value;
+    self.XmlAttrDefUIPriority.Value := object_.XmlAttrDefUIPriority.Value;
+    self.XmlAttrDefSemiHidden.Value := object_.XmlAttrDefSemiHidden.Value;
+    self.XmlAttrDefUnhideWhenUsed.Value := object_.XmlAttrDefUnhideWhenUsed.Value;
+    self.XmlAttrDefQFormat.Value := object_.XmlAttrDefQFormat.Value;
+    self.XmlAttrCount.Value := object_.XmlAttrCount.Value;
+end;

autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type LatinUnitDecorator = class(Latin)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Latin);
+    function Converte();
+private
+    object_: Latin;
+end;
+
+function LatinUnitDecorator.Create(_obj: Latin);
+begin
+    class(Latin).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LatinUnitDecorator.Converte();
+begin
+    self.XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
+    self.XmlAttrPanose.Value := object_.XmlAttrPanose.Value;
+end;

autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf

@@ -0,0 +1,23 @@
+type LegendUnitDecorator = class(Legend)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Legend);
+    function Converte();
+private
+    object_: Legend;
+end;
+
+function LegendUnitDecorator.Create(_obj: Legend);
+begin
+    class(Legend).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LegendUnitDecorator.Converte();
+begin
+    self.LegendPos := new PureValUnitDecorator(object_.LegendPos);
+    if not ifnil(object_.XmlChildLayout.Value) then self.XmlChildLayout.Value := object_.XmlChildLayout.Value;
+    self.Overlay := new PureValUnitDecorator(object_.Overlay);
+    self.TxPr := new TxPrUnitDecorator(object_.TxPr);
+end;

autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type LinUnitDecorator = class(Lin)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Lin);
+    function Converte();
+private
+    object_: Lin;
+end;
+
+function LinUnitDecorator.Create(_obj: Lin);
+begin
+    class(Lin).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LinUnitDecorator.Converte();
+begin
+    self.XmlAttrAng.Value := object_.XmlAttrAng.Value;
+    self.XmlAttrScaled.Value := object_.XmlAttrScaled.Value;
+end;

autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf

@@ -0,0 +1,19 @@
+type LnStyleLstUnitDecorator = class(LnStyleLst)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: LnStyleLst);
+    function Converte();
+private
+    object_: LnStyleLst;
+end;
+
+function LnStyleLstUnitDecorator.Create(_obj: LnStyleLst);
+begin
+    class(LnStyleLst).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LnStyleLstUnitDecorator.Converte();
+begin
+end;

autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type LnUnitDecorator = class(Ln)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Ln);
+    function Converte();
+private
+    object_: Ln;
+end;
+
+function LnUnitDecorator.Create(_obj: Ln);
+begin
+    class(Ln).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LnUnitDecorator.Converte();
+begin
+    self.XmlAttrW.Value := object_.XmlAttrW.Value;
+    self.XmlAttrCap.Value := object_.XmlAttrCap.Value;
+    self.XmlAttrCmpd.Value := object_.XmlAttrCmpd.Value;
+    self.XmlAttrAlgn.Value := object_.XmlAttrAlgn.Value;
+    self.SolidFill := new SolidFillUnitDecorator(object_.SolidFill);
+    self.PrstDash := new PureValUnitDecorator(object_.PrstDash);
+    self.Miter := new MiterUnitDecorator(object_.Miter);
+end;

autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf

@@ -0,0 +1,24 @@
+type LsdExceptionUnitDecorator = class(LsdException)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: LsdException);
+    function Converte();
+private
+    object_: LsdException;
+end;
+
+function LsdExceptionUnitDecorator.Create(_obj: LsdException);
+begin
+    class(LsdException).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function LsdExceptionUnitDecorator.Converte();
+begin
+    self.XmlAttrName.Value := object_.XmlAttrName.Value;
+    self.XmlAttrUIPriority.Value := object_.XmlAttrUIPriority.Value;
+    self.XmlAttrSemiHidden.Value := object_.XmlAttrSemiHidden.Value;
+    self.XmlAttrUnhideWhenUsed.Value := object_.XmlAttrUnhideWhenUsed.Value;
+    self.XmlAttrQFormat.Value := object_.XmlAttrQFormat.Value;
+end;

autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type MFontFontUnitDecorator = class(MFontFont)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: MFontFont);
+    function Converte();
+private
+    object_: MFontFont;
+end;
+
+function MFontFontUnitDecorator.Create(_obj: MFontFont);
+begin
+    class(MFontFont).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function MFontFontUnitDecorator.Converte();
+begin
+    self.XmlAttrScript.Value := object_.XmlAttrScript.Value;
+    self.XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
+end;

autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf

@@ -0,0 +1,22 @@
+type MFontUnitDecorator = class(MFont)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: MFont);
+    function Converte();
+private
+    object_: MFont;
+end;
+
+function MFontUnitDecorator.Create(_obj: MFont);
+begin
+    class(MFont).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function MFontUnitDecorator.Converte();
+begin
+    self.Latin := new LatinUnitDecorator(object_.Latin);
+    self.Ea := new LatinUnitDecorator(object_.Ea);
+    self.Cs := new LatinUnitDecorator(object_.Cs);
+end;

autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf

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

autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type MiterUnitDecorator = class(Miter)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Miter);
+    function Converte();
+private
+    object_: Miter;
+end;
+
+function MiterUnitDecorator.Create(_obj: Miter);
+begin
+    class(Miter).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function MiterUnitDecorator.Converte();
+begin
+    self.XmlAttrLim.Value := object_.XmlAttrLim.Value;
+end;

autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type ModifiedUnitDecorator = class(Modified)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Modified);
+    function Converte();
+private
+    object_: Modified;
+end;
+
+function ModifiedUnitDecorator.Create(_obj: Modified);
+begin
+    class(Modified).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function ModifiedUnitDecorator.Converte();
+begin
+    self.XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value;
+end;

autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type NumFmtUnitDecorator = class(NumFmt)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: NumFmt);
+    function Converte();
+private
+    object_: NumFmt;
+end;
+
+function NumFmtUnitDecorator.Create(_obj: NumFmt);
+begin
+    class(NumFmt).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function NumFmtUnitDecorator.Converte();
+begin
+    self.XmlAttrFormatCode.Value := object_.XmlAttrFormatCode.Value;
+    self.XmlAttrSourceLinked.Value := object_.XmlAttrSourceLinked.Value;
+end;

autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type NumPrUnitDecorator = class(NumPr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: NumPr);
+    function Converte();
+private
+    object_: NumPr;
+end;
+
+function NumPrUnitDecorator.Create(_obj: NumPr);
+begin
+    class(NumPr).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function NumPrUnitDecorator.Converte();
+begin
+    self.Ilvl := new PureWValUnitDecorator(object_.Ilvl);
+    self.NumId := new PureWValUnitDecorator(object_.NumId);
+end;

autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf

@@ -0,0 +1,20 @@
+type NumRefUnitDecorator = class(NumRef)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: NumRef);
+    function Converte();
+private
+    object_: NumRef;
+end;
+
+function NumRefUnitDecorator.Create(_obj: NumRef);
+begin
+    class(NumRef).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function NumRefUnitDecorator.Converte();
+begin
+    self.NumCache := new CacheUnitDecorator(object_.NumCache);
+end;

autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf

@@ -0,0 +1,21 @@
+type NumUnitDecorator = class(Num)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Num);
+    function Converte();
+private
+    object_: Num;
+end;
+
+function NumUnitDecorator.Create(_obj: Num);
+begin
+    class(Num).Create();
+    object_ := _obj;
+    self.Converte();
+end;
+
+function NumUnitDecorator.Converte();
+begin
+    self.XmlAttrNumId.Value := object_.XmlAttrNumId.Value;
+    self.AbstractNumId := new PureWValUnitDecorator(object_.AbstractNumId);
+end;

autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf

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