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

v2.0.0

Browse Source
This commit is contained in:
csh
2025-04-16 10:03:34 +08:00
parent 87c3aa75f7
commit f816e8b6e3
20 changed files with 27378 additions and 28116 deletions
Download Patch File Download Diff File Expand all files Collapse all files
autounit/DocxML.tsf
+11364 -12099
View File
File diff suppressed because it is too large Load Diff
autounit/DocxMLUnitDecorator.tsf
+2562 -2562
View File
File diff suppressed because it is too large Load Diff
autounit/DrawingML.tsf
+6798 -7038
View File
File diff suppressed because it is too large Load Diff
autounit/DrawingMLUnitDecorator.tsf
+1715 -1715
View File
File diff suppressed because it is too large Load Diff
autounit/PptxML.tsf
+122
View File
@@ -0,0 +1,122 @@
unit PptxML;
interface
type SldLayoutId = class(OpenXmlCompositeElement)
public
function Create();overload;
function Create(_node: XmlNode);overload;
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SldLayoutId);override;
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
property Id read ReadXmlAttrId write WriteXmlAttrId;
property Id read ReadXmlAttrId write WriteXmlAttrId;
function ReadXmlAttrId();
function WriteXmlAttrId(_value);
function ReadXmlAttrId();
function WriteXmlAttrId(_value);
function ReadXmlAttrId();
function WriteXmlAttrId(_value);
public
// Attributes
XmlAttrId: OpenXmlAttribute;
XmlAttrId: OpenXmlAttribute;
XmlAttrId: OpenXmlAttribute;
end;
implementation
function SldLayoutId.Create();overload;
begin
{self.}Create(nil, "p", "sldLayoutId");
end;
function SldLayoutId.Create(_node: XmlNode);overload;
begin
class(OpenXmlCompositeElement).Create(_node: XmlNode);
end;
function SldLayoutId.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
end;
function SldLayoutId.Init();override;
begin
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
attributes_ := array();
attributes_pf_ := array(
pre + "id": makeweakref(thisFunction(WriteXmlAttrId)),
"id": makeweakref(thisFunction(WriteXmlAttrId)),
"r:id": makeweakref(thisFunction(WriteXmlAttrId)),
);
sorted_child_ := array(
);
container_ := new TSOfficeContainer(sorted_child_);
end;
function SldLayoutId.Copy(_obj: SldLayoutId);override;
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
class(OpenXmlCompositeElement).Copy(_obj);
if not ifnil(_obj.Id) then
{self.}Id := _obj.Id;
if not ifnil(_obj.Id) then
{self.}Id := _obj.Id;
if not ifnil(_obj.Id) then
{self.}Id := _obj.Id;
tslassigning := tslassigning_backup;
end;
function SldLayoutId.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
end;
function SldLayoutId.WriteXmlAttrId(_value);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
attributes_[length(attributes_)] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function SldLayoutId.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
end;
function SldLayoutId.WriteXmlAttrId(_value);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute("", "id", nil);
attributes_[length(attributes_)] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function SldLayoutId.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
end;
function SldLayoutId.WriteXmlAttrId(_value);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil);
attributes_[length(attributes_)] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
end.
autounit/PptxMLAdapter.tsf
+6
View File
@@ -0,0 +1,6 @@
unit PptxMLAdapter;
interface
implementation
end.
autounit/SharedML.tsf
+2290 -2267
View File
File diff suppressed because it is too large Load Diff
autounit/SharedMLUnitDecorator.tsf
+647 -643
View File
File diff suppressed because it is too large Load Diff
autounit/VML.tsf
+1163 -1163
View File
File diff suppressed because it is too large Load Diff
autounit/VMLUnitDecorator.tsf
+286 -286
View File
@@ -4,545 +4,545 @@ uses VML, TSSafeUnitConverter;
type ShapetypeUnitDecorator = class(Shapetype)
public
function Create(_obj: Shapetype);
function GetObject();
function Convert();
function Create(_obj: Shapetype);
function GetObject();
function Convert();
private
object_: Shapetype;
object_: Shapetype;
end;
type FormulasUnitDecorator = class(Formulas)
public
function Create(_obj: Formulas);
function GetObject();
function Convert();
function Create(_obj: Formulas);
function GetObject();
function Convert();
private
object_: Formulas;
object_: Formulas;
end;
type LockUnitDecorator = class(Lock)
public
function Create(_obj: Lock);
function GetObject();
function Convert();
function Create(_obj: Lock);
function GetObject();
function Convert();
private
object_: Lock;
object_: Lock;
end;
type FUnitDecorator = class(F)
public
function Create(_obj: F);
function GetObject();
function Convert();
function Create(_obj: F);
function GetObject();
function Convert();
private
object_: F;
object_: F;
end;
type StrokeUnitDecorator = class(Stroke)
public
function Create(_obj: Stroke);
function GetObject();
function Convert();
function Create(_obj: Stroke);
function GetObject();
function Convert();
private
object_: Stroke;
object_: Stroke;
end;
type PathUnitDecorator = class(Path)
public
function Create(_obj: Path);
function GetObject();
function Convert();
function Create(_obj: Path);
function GetObject();
function Convert();
private
object_: Path;
object_: Path;
end;
type TextpathUnitDecorator = class(Textpath)
public
function Create(_obj: Textpath);
function GetObject();
function Convert();
function Create(_obj: Textpath);
function GetObject();
function Convert();
private
object_: Textpath;
object_: Textpath;
end;
type HandlesUnitDecorator = class(Handles)
public
function Create(_obj: Handles);
function GetObject();
function Convert();
function Create(_obj: Handles);
function GetObject();
function Convert();
private
object_: Handles;
object_: Handles;
end;
type HUnitDecorator = class(H)
public
function Create(_obj: H);
function GetObject();
function Convert();
function Create(_obj: H);
function GetObject();
function Convert();
private
object_: H;
object_: H;
end;
type ShapeUnitDecorator = class(Shape)
public
function Create(_obj: Shape);
function GetObject();
function Convert();
function Create(_obj: Shape);
function GetObject();
function Convert();
private
object_: Shape;
object_: Shape;
end;
type WrapUnitDecorator = class(Wrap)
public
function Create(_obj: Wrap);
function GetObject();
function Convert();
function Create(_obj: Wrap);
function GetObject();
function Convert();
private
object_: Wrap;
object_: Wrap;
end;
type FillUnitDecorator = class(Fill)
public
function Create(_obj: Fill);
function GetObject();
function Convert();
function Create(_obj: Fill);
function GetObject();
function Convert();
private
object_: Fill;
object_: Fill;
end;
type ImagedataUnitDecorator = class(Imagedata)
public
function Create(_obj: Imagedata);
function GetObject();
function Convert();
function Create(_obj: Imagedata);
function GetObject();
function Convert();
private
object_: Imagedata;
object_: Imagedata;
end;
type TextboxUnitDecorator = class(Textbox)
public
function Create(_obj: Textbox);
function GetObject();
function Convert();
function Create(_obj: Textbox);
function GetObject();
function Convert();
private
object_: Textbox;
object_: Textbox;
end;
type OLEObjectUnitDecorator = class(OLEObject)
public
function Create(_obj: OLEObject);
function GetObject();
function Convert();
function Create(_obj: OLEObject);
function GetObject();
function Convert();
private
object_: OLEObject;
object_: OLEObject;
end;
implementation
function ShapetypeUnitDecorator.Create(_obj: Shapetype);
begin
class(Shapetype).Create();
object_ := _obj;
{self.}Convert();
class(Shapetype).Create();
object_ := _obj;
{self.}Convert();
end;
function ShapetypeUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Formulas).Create();
object_ := _obj;
{self.}Convert();
end;
function FormulasUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Lock).Create();
object_ := _obj;
{self.}Convert();
end;
function LockUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(F).Create();
object_ := _obj;
{self.}Convert();
end;
function FUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Stroke).Create();
object_ := _obj;
{self.}Convert();
end;
function StrokeUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Path).Create();
object_ := _obj;
{self.}Convert();
end;
function PathUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Textpath).Create();
object_ := _obj;
{self.}Convert();
end;
function TextpathUnitDecorator.GetObject();
begin
return object_;
return object_;
end;
function TextpathUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttr_On) then
{self.}_On := object_.XmlAttr_On.Value;
if not ifnil(object_.XmlAttrFitshape) then
{self.}Fitshape := object_.XmlAttrFitshape.Value;
if not ifnil(object_.XmlAttrStyle) then
{self.}Style := object_.XmlAttrStyle.Value;
if not ifnil(object_.XmlAttrString) then
{self.}String := object_.XmlAttrString.Value;
tslassigning := tslassigning_backup;
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttr_On) then
{self.}_On := object_.XmlAttr_On.Value;
if not ifnil(object_.XmlAttrFitshape) then
{self.}Fitshape := object_.XmlAttrFitshape.Value;
if not ifnil(object_.XmlAttrStyle) then
{self.}Style := object_.XmlAttrStyle.Value;
if not ifnil(object_.XmlAttrString) then
{self.}String := object_.XmlAttrString.Value;
tslassigning := tslassigning_backup;
end;
function HandlesUnitDecorator.Create(_obj: Handles);
begin
class(Handles).Create();
object_ := _obj;
{self.}Convert();
class(Handles).Create();
object_ := _obj;
{self.}Convert();
end;
function HandlesUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(H).Create();
object_ := _obj;
{self.}Convert();
end;
function HUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Shape).Create();
object_ := _obj;
{self.}Convert();
end;
function ShapeUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Wrap).Create();
object_ := _obj;
{self.}Convert();
end;
function WrapUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Fill).Create();
object_ := _obj;
{self.}Convert();
end;
function FillUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Imagedata).Create();
object_ := _obj;
{self.}Convert();
end;
function ImagedataUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(Textbox).Create();
object_ := _obj;
{self.}Convert();
end;
function TextboxUnitDecorator.GetObject();
begin
return object_;
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;
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();
class(OLEObject).Create();
object_ := _obj;
{self.}Convert();
end;
function OLEObjectUnitDecorator.GetObject();
begin
return object_;
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;
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.