❗重大更新：设计方式由namspace转变成unit

2025-01-02 11:39:09 +08:00
parent 48e4de7b87
commit c77abfc1c8
474 changed files with 88900 additions and 43433 deletions
@@ -0,0 +1,373 @@
+unit DocxMLAdapter;
+interface
+
+type TabsAdapter = class
+public
+	function Create(_obj: Tabs);
+	function Init();
+
+	function GetTabByVal(_key: string);
+	function SetTabByVal(_key: string; _value: tslobj);
+
+private
+	object_: Tabs;
+	tab_hash_: tableArray;
+end;
+
+type SectPrAdapter = class
+public
+	function Create(_obj: SectPr);
+	function Init();
+
+	function GetHeaderReferenceByType(_key: string);
+	function SetHeaderReferenceByType(_key: string; _value: tslobj);
+	function GetFooterReferenceByType(_key: string);
+	function SetFooterReferenceByType(_key: string; _value: tslobj);
+
+private
+	object_: SectPr;
+	headerreference_hash_: tableArray;
+	footerreference_hash_: tableArray;
+end;
+
+type EndnotesAdapter = class
+public
+	function Create(_obj: Endnotes);
+	function Init();
+
+	function GetEndnoteById(_key: string);
+	function SetEndnoteById(_key: string; _value: tslobj);
+
+private
+	object_: Endnotes;
+	endnote_hash_: tableArray;
+end;
+
+type FootnotesAdapter = class
+public
+	function Create(_obj: Footnotes);
+	function Init();
+
+	function GetFootnoteById(_key: string);
+	function SetFootnoteById(_key: string; _value: tslobj);
+
+private
+	object_: Footnotes;
+	footnote_hash_: tableArray;
+end;
+
+type FootnotePrAdapter = class
+public
+	function Create(_obj: FootnotePr);
+	function Init();
+
+	function GetFootnoteById(_key: string);
+	function SetFootnoteById(_key: string; _value: tslobj);
+
+private
+	object_: FootnotePr;
+	footnote_hash_: tableArray;
+end;
+
+type EndnotePrAdapter = class
+public
+	function Create(_obj: EndnotePr);
+	function Init();
+
+	function GetEndnoteById(_key: string);
+	function SetEndnoteById(_key: string; _value: tslobj);
+
+private
+	object_: EndnotePr;
+	endnote_hash_: tableArray;
+end;
+
+type StylesAdapter = class
+public
+	function Create(_obj: Styles);
+	function Init();
+
+	function GetStyleByStyleId(_key: string);
+	function SetStyleByStyleId(_key: string; _value: tslobj);
+
+private
+	object_: Styles;
+	style_hash_: tableArray;
+end;
+
+type StyleAdapter = class
+public
+	function Create(_obj: Style);
+	function Init();
+
+	function GetTblStylePrByType(_key: string);
+	function SetTblStylePrByType(_key: string; _value: tslobj);
+
+private
+	object_: Style;
+	tblstylepr_hash_: tableArray;
+end;
+
+type NumberingAdapter = class
+public
+	function Create(_obj: Numbering);
+	function Init();
+
+	function GetAbstractNumByAbstractNumId(_key: string);
+	function SetAbstractNumByAbstractNumId(_key: string; _value: tslobj);
+	function GetNumByNumId(_key: string);
+	function SetNumByNumId(_key: string; _value: tslobj);
+
+private
+	object_: Numbering;
+	abstractnum_hash_: tableArray;
+	num_hash_: tableArray;
+end;
+
+implementation
+
+function TabsAdapter.Create(_obj: Tabs);
+begin
+	object_ := _obj;
+	tab_hash_ := array();
+	{self.}Init();
+end;
+
+function TabsAdapter.Init();
+begin
+	elements := object_.Tabs();
+	for k,v in elements do
+		tab_hash_[v.Val] := v;
+end;
+
+function TabsAdapter.GetTabByVal(_key: string);
+begin
+	return tab_hash_[_key];
+end;
+
+function TabsAdapter.SetTabByVal(_key: string; _value: tslobj);
+begin
+	tab_hash_[_key] := _value;
+end;
+
+function SectPrAdapter.Create(_obj: SectPr);
+begin
+	object_ := _obj;
+	headerreference_hash_ := array();
+	footerreference_hash_ := array();
+	{self.}Init();
+end;
+
+function SectPrAdapter.Init();
+begin
+	elements := object_.HeaderReferences();
+	for k,v in elements do
+		headerreference_hash_[v.Type] := v;
+	elements := object_.FooterReferences();
+	for k,v in elements do
+		footerreference_hash_[v.Type] := v;
+end;
+
+function SectPrAdapter.GetHeaderReferenceByType(_key: string);
+begin
+	return headerreference_hash_[_key];
+end;
+
+function SectPrAdapter.SetHeaderReferenceByType(_key: string; _value: tslobj);
+begin
+	headerreference_hash_[_key] := _value;
+end;
+
+function SectPrAdapter.GetFooterReferenceByType(_key: string);
+begin
+	return footerreference_hash_[_key];
+end;
+
+function SectPrAdapter.SetFooterReferenceByType(_key: string; _value: tslobj);
+begin
+	footerreference_hash_[_key] := _value;
+end;
+
+function EndnotesAdapter.Create(_obj: Endnotes);
+begin
+	object_ := _obj;
+	endnote_hash_ := array();
+	{self.}Init();
+end;
+
+function EndnotesAdapter.Init();
+begin
+	elements := object_.Endnotes();
+	for k,v in elements do
+		endnote_hash_[v.Id] := v;
+end;
+
+function EndnotesAdapter.GetEndnoteById(_key: string);
+begin
+	return endnote_hash_[_key];
+end;
+
+function EndnotesAdapter.SetEndnoteById(_key: string; _value: tslobj);
+begin
+	endnote_hash_[_key] := _value;
+end;
+
+function FootnotesAdapter.Create(_obj: Footnotes);
+begin
+	object_ := _obj;
+	footnote_hash_ := array();
+	{self.}Init();
+end;
+
+function FootnotesAdapter.Init();
+begin
+	elements := object_.Footnotes();
+	for k,v in elements do
+		footnote_hash_[v.Id] := v;
+end;
+
+function FootnotesAdapter.GetFootnoteById(_key: string);
+begin
+	return footnote_hash_[_key];
+end;
+
+function FootnotesAdapter.SetFootnoteById(_key: string; _value: tslobj);
+begin
+	footnote_hash_[_key] := _value;
+end;
+
+function FootnotePrAdapter.Create(_obj: FootnotePr);
+begin
+	object_ := _obj;
+	footnote_hash_ := array();
+	{self.}Init();
+end;
+
+function FootnotePrAdapter.Init();
+begin
+	elements := object_.Footnotes();
+	for k,v in elements do
+		footnote_hash_[v.Id] := v;
+end;
+
+function FootnotePrAdapter.GetFootnoteById(_key: string);
+begin
+	return footnote_hash_[_key];
+end;
+
+function FootnotePrAdapter.SetFootnoteById(_key: string; _value: tslobj);
+begin
+	footnote_hash_[_key] := _value;
+end;
+
+function EndnotePrAdapter.Create(_obj: EndnotePr);
+begin
+	object_ := _obj;
+	endnote_hash_ := array();
+	{self.}Init();
+end;
+
+function EndnotePrAdapter.Init();
+begin
+	elements := object_.Endnotes();
+	for k,v in elements do
+		endnote_hash_[v.Id] := v;
+end;
+
+function EndnotePrAdapter.GetEndnoteById(_key: string);
+begin
+	return endnote_hash_[_key];
+end;
+
+function EndnotePrAdapter.SetEndnoteById(_key: string; _value: tslobj);
+begin
+	endnote_hash_[_key] := _value;
+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.GetStyleByStyleId(_key: string);
+begin
+	return style_hash_[_key];
+end;
+
+function StylesAdapter.SetStyleByStyleId(_key: string; _value: tslobj);
+begin
+	style_hash_[_key] := _value;
+end;
+
+function StyleAdapter.Create(_obj: Style);
+begin
+	object_ := _obj;
+	tblstylepr_hash_ := array();
+	{self.}Init();
+end;
+
+function StyleAdapter.Init();
+begin
+	elements := object_.TblStylePrs();
+	for k,v in elements do
+		tblstylepr_hash_[v.Type] := v;
+end;
+
+function StyleAdapter.GetTblStylePrByType(_key: string);
+begin
+	return tblstylepr_hash_[_key];
+end;
+
+function StyleAdapter.SetTblStylePrByType(_key: string; _value: tslobj);
+begin
+	tblstylepr_hash_[_key] := _value;
+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.GetAbstractNumByAbstractNumId(_key: string);
+begin
+	return abstractnum_hash_[_key];
+end;
+
+function NumberingAdapter.SetAbstractNumByAbstractNumId(_key: string; _value: tslobj);
+begin
+	abstractnum_hash_[_key] := _value;
+end;
+
+function NumberingAdapter.GetNumByNumId(_key: string);
+begin
+	return num_hash_[_key];
+end;
+
+function NumberingAdapter.SetNumByNumId(_key: string; _value: tslobj);
+begin
+	num_hash_[_key] := _value;
+end;
+
+end.
@@ -0,0 +1,6 @@
+unit DrawingMLAdapter;
+interface
+
+implementation
+
+end.
@@ -0,0 +1,43 @@
+unit SharedMLAdapter;
+interface
+
+type RelationshipsAdapter = class
+public
+	function Create(_obj: Relationships);
+	function Init();
+
+	function GetRelationshipById(_key: string);
+	function SetRelationshipById(_key: string; _value: tslobj);
+
+private
+	object_: Relationships;
+	relationship_hash_: tableArray;
+end;
+
+implementation
+
+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.GetRelationshipById(_key: string);
+begin
+	return relationship_hash_[_key];
+end;
+
+function RelationshipsAdapter.SetRelationshipById(_key: string; _value: tslobj);
+begin
+	relationship_hash_[_key] := _value;
+end;
+
+end.
@@ -0,0 +1,6 @@
+unit VXmlAdapter;
+interface
+
+implementation
+
+end.
@@ -0,0 +1,544 @@
+unit VXmlUnitDecorator;
+interface
+uses VXml, TSSafeUnitConverter;
+
+type ShapetypeUnitDecorator = class(Shapetype)
+public
+	function Create(_obj: Shapetype);
+	function GetObject();
+	function Convert();
+private
+	object_: Shapetype;
+end;
+
+type FormulasUnitDecorator = class(Formulas)
+public
+	function Create(_obj: Formulas);
+	function GetObject();
+	function Convert();
+private
+	object_: Formulas;
+end;
+
+type LockUnitDecorator = class(Lock)
+public
+	function Create(_obj: Lock);
+	function GetObject();
+	function Convert();
+private
+	object_: Lock;
+end;
+
+type FUnitDecorator = class(F)
+public
+	function Create(_obj: F);
+	function GetObject();
+	function Convert();
+private
+	object_: F;
+end;
+
+type StrokeUnitDecorator = class(Stroke)
+public
+	function Create(_obj: Stroke);
+	function GetObject();
+	function Convert();
+private
+	object_: Stroke;
+end;
+
+type PathUnitDecorator = class(Path)
+public
+	function Create(_obj: Path);
+	function GetObject();
+	function Convert();
+private
+	object_: Path;
+end;
+
+type TextpathUnitDecorator = class(Textpath)
+public
+	function Create(_obj: Textpath);
+	function GetObject();
+	function Convert();
+private
+	object_: Textpath;
+end;
+
+type HandlesUnitDecorator = class(Handles)
+public
+	function Create(_obj: Handles);
+	function GetObject();
+	function Convert();
+private
+	object_: Handles;
+end;
+
+type HUnitDecorator = class(H)
+public
+	function Create(_obj: H);
+	function GetObject();
+	function Convert();
+private
+	object_: H;
+end;
+
+type ShapeUnitDecorator = class(Shape)
+public
+	function Create(_obj: Shape);
+	function GetObject();
+	function Convert();
+private
+	object_: Shape;
+end;
+
+type WrapUnitDecorator = class(Wrap)
+public
+	function Create(_obj: Wrap);
+	function GetObject();
+	function Convert();
+private
+	object_: Wrap;
+end;
+
+type FillUnitDecorator = class(Fill)
+public
+	function Create(_obj: Fill);
+	function GetObject();
+	function Convert();
+private
+	object_: Fill;
+end;
+
+type ImagedataUnitDecorator = class(Imagedata)
+public
+	function Create(_obj: Imagedata);
+	function GetObject();
+	function Convert();
+private
+	object_: Imagedata;
+end;
+
+type TextboxUnitDecorator = class(Textbox)
+public
+	function Create(_obj: Textbox);
+	function GetObject();
+	function Convert();
+private
+	object_: Textbox;
+end;
+
+type OLEObjectUnitDecorator = class(OLEObject)
+public
+	function Create(_obj: OLEObject);
+	function GetObject();
+	function Convert();
+private
+	object_: OLEObject;
+end;
+
+implementation
+
+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
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrAnchorId) then
+		{self.}AnchorId := object_.XmlAttrAnchorId.Value;
+	if not ifnil(object_.XmlAttrId) then
+		{self.}Id := object_.XmlAttrId.Value;
+	if not ifnil(object_.XmlAttrCoordsize) then
+		{self.}Coordsize := object_.XmlAttrCoordsize.Value;
+	if not ifnil(object_.XmlAttrSpt) then
+		{self.}Spt := object_.XmlAttrSpt.Value;
+	if not ifnil(object_.XmlAttrAdj) then
+		{self.}Adj := object_.XmlAttrAdj.Value;
+	if not ifnil(object_.XmlAttrPreferrelative) then
+		{self.}Preferrelative := object_.XmlAttrPreferrelative.Value;
+	if not ifnil(object_.XmlAttrPath) then
+		{self.}Path := object_.XmlAttrPath.Value;
+	if not ifnil(object_.XmlAttrFilled) then
+		{self.}Filled := object_.XmlAttrFilled.Value;
+	if not ifnil(object_.XmlAttrStroked) then
+		{self.}Stroked := object_.XmlAttrStroked.Value;
+	if not ifnil(object_.XmlChildStroke) then
+		{self.}XmlChildStroke := new StrokeUnitDecorator(object_.XmlChildStroke);
+	if not ifnil(object_.XmlChildFormulas) then
+		{self.}XmlChildFormulas := new formulasUnitDecorator(object_.XmlChildFormulas);
+	if not ifnil(object_.XmlChildPath) then
+		{self.}XmlChildPath := new PathUnitDecorator(object_.XmlChildPath);
+	if not ifnil(object_.XmlChildTextpath) then
+		{self.}XmlChildTextpath := new TextpathUnitDecorator(object_.XmlChildTextpath);
+	if not ifnil(object_.XmlChildHandles) then
+		{self.}XmlChildHandles := new HandlesUnitDecorator(object_.XmlChildHandles);
+	if not ifnil(object_.XmlChildLock) then
+		{self.}XmlChildLock := new LockUnitDecorator(object_.XmlChildLock);
+	tslassigning := tslassigning_backup;
+end;
+
+function FormulasUnitDecorator.Create(_obj: Formulas);
+begin
+	class(Formulas).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function FormulasUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function FormulasUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	elems := object_.Fs();
+	for _,elem in elems do
+		{self.}AppendChild(new ShapetypeUnitDecorator(elem));
+	tslassigning := tslassigning_backup;
+end;
+
+function LockUnitDecorator.Create(_obj: Lock);
+begin
+	class(Lock).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function LockUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function LockUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrExt) then
+		{self.}Ext := object_.XmlAttrExt.Value;
+	if not ifnil(object_.XmlAttrAspectration) then
+		{self.}Aspectration := object_.XmlAttrAspectration.Value;
+	tslassigning := tslassigning_backup;
+end;
+
+function FUnitDecorator.Create(_obj: F);
+begin
+	class(F).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function FUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function FUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrEqn) then
+		{self.}Eqn := object_.XmlAttrEqn.Value;
+	tslassigning := tslassigning_backup;
+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
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrJoinstyle) then
+		{self.}Joinstyle := object_.XmlAttrJoinstyle.Value;
+	tslassigning := tslassigning_backup;
+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
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrExtrusionok) then
+		{self.}Extrusionok := object_.XmlAttrExtrusionok.Value;
+	if not ifnil(object_.XmlAttrTextpathok) then
+		{self.}Textpathok := object_.XmlAttrTextpathok.Value;
+	if not ifnil(object_.XmlAttrGradientshapeok) then
+		{self.}Gradientshapeok := object_.XmlAttrGradientshapeok.Value;
+	if not ifnil(object_.XmlAttrConnecttype) then
+		{self.}Connecttype := object_.XmlAttrConnecttype.Value;
+	if not ifnil(object_.XmlAttrConnectlocs) then
+		{self.}Connectlocs := object_.XmlAttrConnectlocs.Value;
+	if not ifnil(object_.XmlAttrConnectangles) then
+		{self.}Connectangles := object_.XmlAttrConnectangles.Value;
+	tslassigning := tslassigning_backup;
+end;
+
+function TextpathUnitDecorator.Create(_obj: Textpath);
+begin
+	class(Textpath).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function TextpathUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function TextpathUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrOn) then
+		{self.}On := object_.XmlAttrOn.Value;
+	if not ifnil(object_.XmlAttrFitshape) then
+		{self.}Fitshape := object_.XmlAttrFitshape.Value;
+	tslassigning := tslassigning_backup;
+end;
+
+function HandlesUnitDecorator.Create(_obj: Handles);
+begin
+	class(Handles).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function HandlesUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function HandlesUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlChildH) then
+		{self.}XmlChildH := new HUnitDecorator(object_.XmlChildH);
+	tslassigning := tslassigning_backup;
+end;
+
+function HUnitDecorator.Create(_obj: H);
+begin
+	class(H).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function HUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function HUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrXrange) then
+		{self.}Xrange := object_.XmlAttrXrange.Value;
+	if not ifnil(object_.XmlAttrPosition) then
+		{self.}Position := object_.XmlAttrPosition.Value;
+	tslassigning := tslassigning_backup;
+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
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrId) then
+		{self.}Id := object_.XmlAttrId.Value;
+	if not ifnil(object_.XmlAttrStyle) then
+		{self.}Style := object_.XmlAttrStyle.Value;
+	if not ifnil(object_.XmlAttrSpid) then
+		{self.}Spid := object_.XmlAttrSpid.Value;
+	if not ifnil(object_.XmlAttrType) then
+		{self.}Type := object_.XmlAttrType.Value;
+	if not ifnil(object_.XmlAttrGfxdata) then
+		{self.}Gfxdata := object_.XmlAttrGfxdata.Value;
+	if not ifnil(object_.XmlAttrFilled) then
+		{self.}Filled := object_.XmlAttrFilled.Value;
+	if not ifnil(object_.XmlAttrAllowincell) then
+		{self.}Allowincell := object_.XmlAttrAllowincell.Value;
+	if not ifnil(object_.XmlAttrFillcolor) then
+		{self.}Fillcolor := object_.XmlAttrFillcolor.Value;
+	if not ifnil(object_.XmlAttrStroked) then
+		{self.}Stroked := object_.XmlAttrStroked.Value;
+	if not ifnil(object_.XmlAttrOle) then
+		{self.}Ole := object_.XmlAttrOle.Value;
+	if not ifnil(object_.XmlChildFill) then
+		{self.}XmlChildFill := new FillUnitDecorator(object_.XmlChildFill);
+	if not ifnil(object_.XmlChildTextbox) then
+		{self.}XmlChildTextbox := new TextboxUnitDecorator(object_.XmlChildTextbox);
+	if not ifnil(object_.XmlChildTextpath) then
+		{self.}XmlChildTextpath := new TextpathUnitDecorator(object_.XmlChildTextpath);
+	if not ifnil(object_.XmlChildImagedata) then
+		{self.}XmlChildImagedata := new ImagedataUnitDecorator(object_.XmlChildImagedata);
+	if not ifnil(object_.XmlChildWrap) then
+		{self.}XmlChildWrap := new WrapUnitDecorator(object_.XmlChildWrap);
+	tslassigning := tslassigning_backup;
+end;
+
+function WrapUnitDecorator.Create(_obj: Wrap);
+begin
+	class(Wrap).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function WrapUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function WrapUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrAnchorx) then
+		{self.}Anchorx := object_.XmlAttrAnchorx.Value;
+	if not ifnil(object_.XmlAttrAnchory) then
+		{self.}Anchory := object_.XmlAttrAnchory.Value;
+	tslassigning := tslassigning_backup;
+end;
+
+function FillUnitDecorator.Create(_obj: Fill);
+begin
+	class(Fill).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function FillUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function FillUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrOpacity) then
+		{self.}Opacity := object_.XmlAttrOpacity.Value;
+	tslassigning := tslassigning_backup;
+end;
+
+function ImagedataUnitDecorator.Create(_obj: Imagedata);
+begin
+	class(Imagedata).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function ImagedataUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function ImagedataUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrId) then
+		{self.}Id := object_.XmlAttrId.Value;
+	if not ifnil(object_.XmlAttrTitle) then
+		{self.}Title := object_.XmlAttrTitle.Value;
+	tslassigning := tslassigning_backup;
+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
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlChildTxbxContent) then
+		{self.}XmlChildTxbxContent := new TxbxContentUnitDecorator(object_.XmlChildTxbxContent);
+	tslassigning := tslassigning_backup;
+end;
+
+function OLEObjectUnitDecorator.Create(_obj: OLEObject);
+begin
+	class(OLEObject).Create();
+	object_ := _obj;
+	{self.}Convert();
+end;
+
+function OLEObjectUnitDecorator.GetObject();
+begin
+	return object_;
+end;
+
+function OLEObjectUnitDecorator.Convert();
+begin
+	tslassigning_backup := tslassigning;
+	tslassigning := 1;
+	if not ifnil(object_.XmlAttrType) then
+		{self.}Type := object_.XmlAttrType.Value;
+	if not ifnil(object_.XmlAttrProgID) then
+		{self.}ProgID := object_.XmlAttrProgID.Value;
+	if not ifnil(object_.XmlAttrShapeID) then
+		{self.}ShapeID := object_.XmlAttrShapeID.Value;
+	if not ifnil(object_.XmlAttrDrawAspect) then
+		{self.}DrawAspect := object_.XmlAttrDrawAspect.Value;
+	if not ifnil(object_.XmlAttrObjectID) then
+		{self.}ObjectID := object_.XmlAttrObjectID.Value;
+	if not ifnil(object_.XmlAttrId) then
+		{self.}Id := object_.XmlAttrId.Value;
+	tslassigning := tslassigning_backup;
+end;
+
+end.