update docxconfig

autoclass/decorator/docx/AnchorUnitDecorator@DOCX.tsf

@@ -0,0 +1,48 @@
+type AnchorUnitDecorator = class(Anchor)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Anchor);
+    function GetObject();
+    function Convert();
+private
+    object_: Anchor;
+end;
+
+function AnchorUnitDecorator.Create(_obj: Anchor);
+begin
+    class(Anchor).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function AnchorUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function AnchorUnitDecorator.Convert();
+begin
+    {self.}XmlAttrDistT.Value := object_.XmlAttrDistT.Value;
+    {self.}XmlAttrDistB.Value := object_.XmlAttrDistB.Value;
+    {self.}XmlAttrDistL.Value := object_.XmlAttrDistL.Value;
+    {self.}XmlAttrDistR.Value := object_.XmlAttrDistR.Value;
+    {self.}XmlAttrSimplePos.Value := object_.XmlAttrSimplePos.Value;
+    {self.}XmlAttrRelativeHeight.Value := object_.XmlAttrRelativeHeight.Value;
+    {self.}XmlAttrBehindDoc.Value := object_.XmlAttrBehindDoc.Value;
+    {self.}XmlAttrLocked.Value := object_.XmlAttrLocked.Value;
+    {self.}XmlAttrLayoutInCell.Value := object_.XmlAttrLayoutInCell.Value;
+    {self.}XmlAttrAllowOverlap.Value := object_.XmlAttrAllowOverlap.Value;
+    {self.}XmlAttrAnchorId.Value := object_.XmlAttrAnchorId.Value;
+    {self.}XmlAttrEditId.Value := object_.XmlAttrEditId.Value;
+    {self.}SimplePos := new XYUnitDecorator(object_.SimplePos);
+    {self.}PositionH := new PositionHUnitDecorator(object_.PositionH);
+    {self.}PositionV := new PositionVUnitDecorator(object_.PositionV);
+    {self.}Extent := new CXYUnitDecorator(object_.Extent);
+    {self.}EffectExtent := new EffectExtentUnitDecorator(object_.EffectExtent);
+    if not ifnil(object_.XmlChildWrapNone.Value) then {self.}XmlChildWrapNone.Value := object_.XmlChildWrapNone.Value;
+    {self.}DocPr := new DocPrUnitDecorator(object_.DocPr);
+    {self.}CNvGraphicFramePr := new CNvGraphicFramePrUnitDecorator(object_.CNvGraphicFramePr);
+    {self.}Graphic := new GraphicUnitDecorator(object_.Graphic);
+    {self.}SizeRelH := new SizeRelHUnitDecorator(object_.SizeRelH);
+    {self.}SizeRelV := new SizeRelVUnitDecorator(object_.SizeRelV);
+end;

autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf

@@ -25,8 +25,21 @@ begin
     {self.}XmlAttrRot.Value := object_.XmlAttrRot.Value;
     {self.}XmlAttrSpcFirstLastPara.Value := object_.XmlAttrSpcFirstLastPara.Value;
     {self.}XmlAttrVertOverflow.Value := object_.XmlAttrVertOverflow.Value;
+    {self.}XmlAttrHorzOverflow.Value := object_.XmlAttrHorzOverflow.Value;
     {self.}XmlAttrVert.Value := object_.XmlAttrVert.Value;
     {self.}XmlAttrWrap.Value := object_.XmlAttrWrap.Value;
+    {self.}XmlAttrLIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrLIns.Value);
+    {self.}XmlAttrTIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrTIns.Value);
+    {self.}XmlAttrRIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrRIns.Value);
+    {self.}XmlAttrBIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrBIns.Value);
+    {self.}XmlAttrNumCol.Value := object_.XmlAttrNumCol.Value;
+    {self.}XmlAttrSpcCol.Value := object_.XmlAttrSpcCol.Value;
+    {self.}XmlAttrRtlCol.Value := object_.XmlAttrRtlCol.Value;
+    {self.}XmlAttrFromWordArt.Value := object_.XmlAttrFromWordArt.Value;
     {self.}XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value;
     {self.}XmlAttrAnchorCtr.Value := object_.XmlAttrAnchorCtr.Value;
+    {self.}XmlAttrForceAA.Value := object_.XmlAttrForceAA.Value;
+    {self.}XmlAttrCompatLnSpc.Value := object_.XmlAttrCompatLnSpc.Value;
+    {self.}PrstTxWrap := new PrstTxWrapUnitDecorator(object_.PrstTxWrap);
+    if not ifnil(object_.XmlChildNoAutofit.Value) then {self.}XmlChildNoAutofit.Value := object_.XmlChildNoAutofit.Value;
 end;

autoclass/decorator/docx/CNvSpPrUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type CNvSpPrUnitDecorator = class(CNvSpPr)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: CNvSpPr);
+    function GetObject();
+    function Convert();
+private
+    object_: CNvSpPr;
+end;
+
+function CNvSpPrUnitDecorator.Create(_obj: CNvSpPr);
+begin
+    class(CNvSpPr).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function CNvSpPrUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function CNvSpPrUnitDecorator.Convert();
+begin
+    {self.}XmlAttrTxBox.Value := object_.XmlAttrTxBox.Value;
+    {self.}SpLocks := new SpLocksUnitDecorator(object_.SpLocks);
+end;

autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf

@@ -27,7 +27,6 @@ begin
     {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);

autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf

@@ -25,4 +25,5 @@ begin
     {self.}XmlAttrRequires.Value := object_.XmlAttrRequires.Value;
     {self.}XmlAttrXmlnsC14.Value := object_.XmlAttrXmlnsC14.Value;
     {self.}Style := new PureValUnitDecorator(object_.Style);
+    {self.}Drawing := new DrawingUnitDecorator(object_.Drawing);
 end;

autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf

@@ -23,4 +23,5 @@ end;
 function DrawingUnitDecorator.Convert();
 begin
     {self.}_Inline := new _InlineUnitDecorator(object_._Inline);
+    {self.}Anchor := new AnchorUnitDecorator(object_.Anchor);
 end;

autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf

@@ -23,4 +23,5 @@ end;
 function FallbackUnitDecorator.Convert();
 begin
     {self.}Style := new PureValUnitDecorator(object_.Style);
+    {self.}Pict := new PictUnitDecorator(object_.Pict);
 end;

autoclass/decorator/docx/FldSimpleUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type FldSimpleUnitDecorator = class(FldSimple)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: FldSimple);
+    function GetObject();
+    function Convert();
+private
+    object_: FldSimple;
+end;
+
+function FldSimpleUnitDecorator.Create(_obj: FldSimple);
+begin
+    class(FldSimple).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function FldSimpleUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function FldSimpleUnitDecorator.Convert();
+begin
+    {self.}XmlAttrInstr.Value := object_.XmlAttrInstr.Value;
+end;

autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf

@@ -25,4 +25,5 @@ begin
     {self.}XmlAttrUri.Value := object_.XmlAttrUri.Value;
     {self.}Pic := new PicUnitDecorator(object_.Pic);
     {self.}Chart := new ChartUnitDecorator(object_.Chart);
+    {self.}Wsp := new WspUnitDecorator(object_.Wsp);
 end;

autoclass/decorator/docx/PathUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type PathUnitDecorator = class(Path)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Path);
+    function GetObject();
+    function Convert();
+private
+    object_: Path;
+end;
+
+function PathUnitDecorator.Create(_obj: Path);
+begin
+    class(Path).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function PathUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function PathUnitDecorator.Convert();
+begin
+    {self.}XmlAttrGradientshapeok.Value := object_.XmlAttrGradientshapeok.Value;
+    {self.}XmlAttrConnecttype.Value := object_.XmlAttrConnecttype.Value;
+end;

autoclass/decorator/docx/PictUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type PictUnitDecorator = class(Pict)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Pict);
+    function GetObject();
+    function Convert();
+private
+    object_: Pict;
+end;
+
+function PictUnitDecorator.Create(_obj: Pict);
+begin
+    class(Pict).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function PictUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function PictUnitDecorator.Convert();
+begin
+    {self.}Shapetype := new ShapetypeUnitDecorator(object_.Shapetype);
+    {self.}Shape := new ShapeUnitDecorator(object_.Shape);
+end;

autoclass/decorator/docx/PositionHUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type PositionHUnitDecorator = class(PositionH)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: PositionH);
+    function GetObject();
+    function Convert();
+private
+    object_: PositionH;
+end;
+
+function PositionHUnitDecorator.Create(_obj: PositionH);
+begin
+    class(PositionH).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function PositionHUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function PositionHUnitDecorator.Convert();
+begin
+    {self.}XmlAttrRelativeFrom.Value := object_.XmlAttrRelativeFrom.Value;
+    {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints(object_.PosOffset.Text);
+end;

autoclass/decorator/docx/PositionVUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type PositionVUnitDecorator = class(PositionV)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: PositionV);
+    function GetObject();
+    function Convert();
+private
+    object_: PositionV;
+end;
+
+function PositionVUnitDecorator.Create(_obj: PositionV);
+begin
+    class(PositionV).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function PositionVUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function PositionVUnitDecorator.Convert();
+begin
+    {self.}XmlAttrRelativeFrom.Value := object_.XmlAttrRelativeFrom.Value;
+    {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints(object_.PosOffset.Text);
+end;

autoclass/decorator/docx/PrstTxWrapUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type PrstTxWrapUnitDecorator = class(PrstTxWrap)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: PrstTxWrap);
+    function GetObject();
+    function Convert();
+private
+    object_: PrstTxWrap;
+end;
+
+function PrstTxWrapUnitDecorator.Create(_obj: PrstTxWrap);
+begin
+    class(PrstTxWrap).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function PrstTxWrapUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function PrstTxWrapUnitDecorator.Convert();
+begin
+    {self.}XmlAttrPrst.Value := object_.XmlAttrPrst.Value;
+    if not ifnil(object_.XmlChildAvLst.Value) then {self.}XmlChildAvLst.Value := object_.XmlChildAvLst.Value;
+end;

autoclass/decorator/docx/RUnitDecorator@DOCX.tsf

@@ -32,6 +32,7 @@ begin
     if not ifnil(object_.XmlChildSeparator.Value) then {self.}XmlChildSeparator.Value := object_.XmlChildSeparator.Value;
     if not ifnil(object_.XmlChildContinuationSeparator.Value) then {self.}XmlChildContinuationSeparator.Value := object_.XmlChildContinuationSeparator.Value;
     if not ifnil(object_.XmlChildLastRenderedPageBreak.Value) then {self.}XmlChildLastRenderedPageBreak.Value := object_.XmlChildLastRenderedPageBreak.Value;
+    {self.}AlternateContent := new AlternateContentUnitDecorator(object_.AlternateContent);
     {self.}Drawing := new DrawingUnitDecorator(object_.Drawing);
     {self.}T := new TUnitDecorator(object_.T);
 end;

autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf

@@ -23,5 +23,4 @@ end;
 function ScalingUnitDecorator.Convert();
 begin
     {self.}Orientation := new PureValUnitDecorator(object_.Orientation);
-    if not ifnil(object_.XmlChildOrientation.Value) then {self.}XmlChildOrientation.Value := object_.XmlChildOrientation.Value;
 end;

autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf

@@ -29,5 +29,6 @@ begin
     {self.}PgMar := new PgMarUnitDecorator(object_.PgMar);
     {self.}PgNumType := new PgNumTypeUnitDecorator(object_.PgNumType);
     {self.}Cols := new ColsUnitDecorator(object_.Cols);
+    if not ifnil(object_.XmlChildTitlePg.Value) then {self.}XmlChildTitlePg.Value := object_.XmlChildTitlePg.Value;
     {self.}DocGrid := new docGridUnitDecorator(object_.DocGrid);
 end;

autoclass/decorator/docx/ShapeUnitDecorator@DOCX.tsf

@@ -0,0 +1,32 @@
+type ShapeUnitDecorator = class(Shape)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Shape);
+    function GetObject();
+    function Convert();
+private
+    object_: Shape;
+end;
+
+function ShapeUnitDecorator.Create(_obj: Shape);
+begin
+    class(Shape).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function ShapeUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function ShapeUnitDecorator.Convert();
+begin
+    {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
+    {self.}XmlAttrSpid.Value := object_.XmlAttrSpid.Value;
+    {self.}XmlAttrType.Value := object_.XmlAttrType.Value;
+    {self.}XmlAttrGfxdata.Value := object_.XmlAttrGfxdata.Value;
+    {self.}XmlAttrFilled.Value := object_.XmlAttrFilled.Value;
+    {self.}XmlAttrStroked.Value := object_.XmlAttrStroked.Value;
+    {self.}Textbox := new TextboxUnitDecorator(object_.Textbox);
+end;

autoclass/decorator/docx/ShapetypeUnitDecorator@DOCX.tsf

@@ -0,0 +1,32 @@
+type ShapetypeUnitDecorator = class(Shapetype)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Shapetype);
+    function GetObject();
+    function Convert();
+private
+    object_: Shapetype;
+end;
+
+function ShapetypeUnitDecorator.Create(_obj: Shapetype);
+begin
+    class(Shapetype).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function ShapetypeUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function ShapetypeUnitDecorator.Convert();
+begin
+    {self.}XmlAttrAnchorId.Value := object_.XmlAttrAnchorId.Value;
+    {self.}XmlAttrId.Value := object_.XmlAttrId.Value;
+    {self.}XmlAttrCoordsize.Value := object_.XmlAttrCoordsize.Value;
+    {self.}XmlAttrSpt.Value := object_.XmlAttrSpt.Value;
+    {self.}XmlAttrPath.Value := object_.XmlAttrPath.Value;
+    {self.}Stroke := new StrokeUnitDecorator(object_.Stroke);
+    {self.}Path := new PathUnitDecorator(object_.Path);
+end;

autoclass/decorator/docx/SizeRelHUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type SizeRelHUnitDecorator = class(SizeRelH)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: SizeRelH);
+    function GetObject();
+    function Convert();
+private
+    object_: SizeRelH;
+end;
+
+function SizeRelHUnitDecorator.Create(_obj: SizeRelH);
+begin
+    class(SizeRelH).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function SizeRelHUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function SizeRelHUnitDecorator.Convert();
+begin
+    {self.}XmlAttrRelativeFrom.Value := object_.XmlAttrRelativeFrom.Value;
+    {self.}PctWidth.Text := TSSafeUnitConverter.EmusToPoints(object_.PctWidth.Text);
+end;

autoclass/decorator/docx/SizeRelVUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type SizeRelVUnitDecorator = class(SizeRelV)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: SizeRelV);
+    function GetObject();
+    function Convert();
+private
+    object_: SizeRelV;
+end;
+
+function SizeRelVUnitDecorator.Create(_obj: SizeRelV);
+begin
+    class(SizeRelV).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function SizeRelVUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function SizeRelVUnitDecorator.Convert();
+begin
+    {self.}XmlAttrRelativeFrom.Value := object_.XmlAttrRelativeFrom.Value;
+    {self.}PctHeight.Text := TSSafeUnitConverter.EmusToPoints(object_.PctHeight.Text);
+end;

autoclass/decorator/docx/SpLocksUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type SpLocksUnitDecorator = class(SpLocks)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: SpLocks);
+    function GetObject();
+    function Convert();
+private
+    object_: SpLocks;
+end;
+
+function SpLocksUnitDecorator.Create(_obj: SpLocks);
+begin
+    class(SpLocks).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function SpLocksUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function SpLocksUnitDecorator.Convert();
+begin
+    {self.}XmlAttrNoChangeArrowheads.Value := object_.XmlAttrNoChangeArrowheads.Value;
+end;

autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf

@@ -22,6 +22,7 @@ end;
 
 function SpPrUnitDecorator.Convert();
 begin
+    {self.}XmlAttrBwMode.Value := object_.XmlAttrBwMode.Value;
     {self.}Xfrm := new XfrmUnitDecorator(object_.Xfrm);
     {self.}PrstGeom := new PrstGeomUnitDecorator(object_.PrstGeom);
     if not ifnil(object_.XmlChildNoFill.Value) then {self.}XmlChildNoFill.Value := object_.XmlChildNoFill.Value;

autoclass/decorator/docx/StrokeUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type StrokeUnitDecorator = class(Stroke)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Stroke);
+    function GetObject();
+    function Convert();
+private
+    object_: Stroke;
+end;
+
+function StrokeUnitDecorator.Create(_obj: Stroke);
+begin
+    class(Stroke).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function StrokeUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function StrokeUnitDecorator.Convert();
+begin
+    {self.}XmlAttrJoinstyle.Value := object_.XmlAttrJoinstyle.Value;
+end;

autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf

@@ -35,7 +35,6 @@ begin
     if not ifnil(object_.XmlChildUnhideWhenUsed.Value) then {self.}XmlChildUnhideWhenUsed.Value := object_.XmlChildUnhideWhenUsed.Value;
     if not ifnil(object_.XmlChildQFormat.Value) then {self.}XmlChildQFormat.Value := object_.XmlChildQFormat.Value;
     {self.}Rsid := new PureWValUnitDecorator(object_.Rsid);
-    if not ifnil(object_.XmlChildRsid.Value) then {self.}XmlChildRsid.Value := object_.XmlChildRsid.Value;
     {self.}PPr := new PPrUnitDecorator(object_.PPr);
     {self.}RPr := new RPrUnitDecorator(object_.RPr);
     {self.}TblPr := new TblPrUnitDecorator(object_.TblPr);

autoclass/decorator/docx/TextboxUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type TextboxUnitDecorator = class(Textbox)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Textbox);
+    function GetObject();
+    function Convert();
+private
+    object_: Textbox;
+end;
+
+function TextboxUnitDecorator.Create(_obj: Textbox);
+begin
+    class(Textbox).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function TextboxUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function TextboxUnitDecorator.Convert();
+begin
+    {self.}TxbxContent := new TxbxContentUnitDecorator(object_.TxbxContent);
+end;

autoclass/decorator/docx/TxbxContentUnitDecorator@DOCX.tsf

@@ -0,0 +1,25 @@
+type TxbxContentUnitDecorator = class(TxbxContent)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: TxbxContent);
+    function GetObject();
+    function Convert();
+private
+    object_: TxbxContent;
+end;
+
+function TxbxContentUnitDecorator.Create(_obj: TxbxContent);
+begin
+    class(TxbxContent).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function TxbxContentUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function TxbxContentUnitDecorator.Convert();
+begin
+end;

autoclass/decorator/docx/TxbxUnitDecorator@DOCX.tsf

@@ -0,0 +1,26 @@
+type TxbxUnitDecorator = class(Txbx)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Txbx);
+    function GetObject();
+    function Convert();
+private
+    object_: Txbx;
+end;
+
+function TxbxUnitDecorator.Create(_obj: Txbx);
+begin
+    class(Txbx).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function TxbxUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function TxbxUnitDecorator.Convert();
+begin
+    {self.}TxbxContent := new TxbxContentUnitDecorator(object_.TxbxContent);
+end;

autoclass/decorator/docx/WpsStyleUnitDecorator@DOCX.tsf

@@ -0,0 +1,29 @@
+type WpsStyleUnitDecorator = class(WpsStyle)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: WpsStyle);
+    function GetObject();
+    function Convert();
+private
+    object_: WpsStyle;
+end;
+
+function WpsStyleUnitDecorator.Create(_obj: WpsStyle);
+begin
+    class(WpsStyle).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function WpsStyleUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function WpsStyleUnitDecorator.Convert();
+begin
+    {self.}LnRef := new XRefUnitDecorator(object_.LnRef);
+    {self.}FillRef := new XRefUnitDecorator(object_.FillRef);
+    {self.}EffectRef := new XRefUnitDecorator(object_.EffectRef);
+    {self.}FontRef := new XRefUnitDecorator(object_.FontRef);
+end;

autoclass/decorator/docx/WspUnitDecorator@DOCX.tsf

@@ -0,0 +1,30 @@
+type WspUnitDecorator = class(Wsp)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: Wsp);
+    function GetObject();
+    function Convert();
+private
+    object_: Wsp;
+end;
+
+function WspUnitDecorator.Create(_obj: Wsp);
+begin
+    class(Wsp).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function WspUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function WspUnitDecorator.Convert();
+begin
+    {self.}CNvSpPr := new CNvSpPrUnitDecorator(object_.CNvSpPr);
+    {self.}SpPr := new SpPrUnitDecorator(object_.SpPr);
+    {self.}Txbx := new TxbxUnitDecorator(object_.Txbx);
+    {self.}Style := new WpsStyleUnitDecorator(object_.Style);
+    {self.}BodyPr := new BodyPrUnitDecorator(object_.BodyPr);
+end;

autoclass/decorator/docx/XRefUnitDecorator@DOCX.tsf

@@ -0,0 +1,27 @@
+type XRefUnitDecorator = class(XRef)
+uses TSSafeUnitConverter;
+public
+    function Create(_obj: XRef);
+    function GetObject();
+    function Convert();
+private
+    object_: XRef;
+end;
+
+function XRefUnitDecorator.Create(_obj: XRef);
+begin
+    class(XRef).Create();
+    object_ := _obj;
+    {self.}Convert();
+end;
+
+function XRefUnitDecorator.GetObject();
+begin
+    return object_;
+end;
+
+function XRefUnitDecorator.Convert();
+begin
+    {self.}XmlAttrIdx.Value := object_.XmlAttrIdx.Value;
+    {self.}SchemeClr := new SchemeClrUnitDecorator(object_.SchemeClr);
+end;