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

improvement: 单位转换的调整

Browse Source
This commit is contained in:
csh
2025-08-06 18:16:15 +08:00
parent 9062457251
commit 16452c8362
6 changed files with 1301 additions and 1019 deletions
Download Patch File Download Diff File Expand all files Collapse all files
autounit/DocxMLUnitDecorator.tsf
+640 -518
View File
File diff suppressed because it is too large Load Diff
autounit/DrawingMLUnitDecorator.tsf
+279 -279
View File
File diff suppressed because it is too large Load Diff
autounit/SharedMLUnitDecorator.tsf
+114 -114
View File
@@ -4,7 +4,7 @@ uses SharedML, TSSafeUnitConverter;
type MathPrUnitDecorator = class(MathPr)
public
function Create(_obj: MathPr);
function create(_obj: MathPr);
function GetObject();
function Convert();
private
@@ -13,7 +13,7 @@ end;
type OMathParaUnitDecorator = class(OMathPara)
public
function Create(_obj: OMathPara);
function create(_obj: OMathPara);
function GetObject();
function Convert();
private
@@ -22,7 +22,7 @@ end;
type OMathParaPrUnitDecorator = class(OMathParaPr)
public
function Create(_obj: OMathParaPr);
function create(_obj: OMathParaPr);
function GetObject();
function Convert();
private
@@ -31,7 +31,7 @@ end;
type PureMValUnitDecorator = class(PureMVal)
public
function Create(_obj: PureMVal);
function create(_obj: PureMVal);
function GetObject();
function Convert();
private
@@ -40,7 +40,7 @@ end;
type OMathUnitDecorator = class(OMath)
public
function Create(_obj: OMath);
function create(_obj: OMath);
function GetObject();
function Convert();
private
@@ -49,7 +49,7 @@ end;
type RUnitDecorator = class(R)
public
function Create(_obj: R);
function create(_obj: R);
function GetObject();
function Convert();
private
@@ -58,7 +58,7 @@ end;
type RPrUnitDecorator = class(RPr)
public
function Create(_obj: RPr);
function create(_obj: RPr);
function GetObject();
function Convert();
private
@@ -67,7 +67,7 @@ end;
type TUnitDecorator = class(T)
public
function Create(_obj: T);
function create(_obj: T);
function GetObject();
function Convert();
private
@@ -76,7 +76,7 @@ end;
type DUnitDecorator = class(D)
public
function Create(_obj: D);
function create(_obj: D);
function GetObject();
function Convert();
private
@@ -85,7 +85,7 @@ end;
type DPrUnitDecorator = class(DPr)
public
function Create(_obj: DPr);
function create(_obj: DPr);
function GetObject();
function Convert();
private
@@ -94,7 +94,7 @@ end;
type CtrlPrUnitDecorator = class(CtrlPr)
public
function Create(_obj: CtrlPr);
function create(_obj: CtrlPr);
function GetObject();
function Convert();
private
@@ -103,7 +103,7 @@ end;
type SSupUnitDecorator = class(SSup)
public
function Create(_obj: SSup);
function create(_obj: SSup);
function GetObject();
function Convert();
private
@@ -112,7 +112,7 @@ end;
type SSupPrUnitDecorator = class(SSupPr)
public
function Create(_obj: SSupPr);
function create(_obj: SSupPr);
function GetObject();
function Convert();
private
@@ -121,7 +121,7 @@ end;
type FUnitDecorator = class(F)
public
function Create(_obj: F);
function create(_obj: F);
function GetObject();
function Convert();
private
@@ -130,7 +130,7 @@ end;
type FPrUnitDecorator = class(FPr)
public
function Create(_obj: FPr);
function create(_obj: FPr);
function GetObject();
function Convert();
private
@@ -139,7 +139,7 @@ end;
type RadUnitDecorator = class(Rad)
public
function Create(_obj: Rad);
function create(_obj: Rad);
function GetObject();
function Convert();
private
@@ -148,7 +148,7 @@ end;
type RadPrUnitDecorator = class(RadPr)
public
function Create(_obj: RadPr);
function create(_obj: RadPr);
function GetObject();
function Convert();
private
@@ -157,7 +157,7 @@ end;
type SSubUnitDecorator = class(SSub)
public
function Create(_obj: SSub);
function create(_obj: SSub);
function GetObject();
function Convert();
private
@@ -166,7 +166,7 @@ end;
type SSubPrUnitDecorator = class(SSubPr)
public
function Create(_obj: SSubPr);
function create(_obj: SSubPr);
function GetObject();
function Convert();
private
@@ -175,7 +175,7 @@ end;
type NaryUnitDecorator = class(Nary)
public
function Create(_obj: Nary);
function create(_obj: Nary);
function GetObject();
function Convert();
private
@@ -184,7 +184,7 @@ end;
type NaryPrUnitDecorator = class(NaryPr)
public
function Create(_obj: NaryPr);
function create(_obj: NaryPr);
function GetObject();
function Convert();
private
@@ -193,7 +193,7 @@ end;
type FuncUnitDecorator = class(Func)
public
function Create(_obj: Func);
function create(_obj: Func);
function GetObject();
function Convert();
private
@@ -202,7 +202,7 @@ end;
type FNameUnitDecorator = class(FName)
public
function Create(_obj: FName);
function create(_obj: FName);
function GetObject();
function Convert();
private
@@ -211,7 +211,7 @@ end;
type FuncPrUnitDecorator = class(FuncPr)
public
function Create(_obj: FuncPr);
function create(_obj: FuncPr);
function GetObject();
function Convert();
private
@@ -220,7 +220,7 @@ end;
type CorePropertiesUnitDecorator = class(CoreProperties)
public
function Create(_obj: CoreProperties);
function create(_obj: CoreProperties);
function GetObject();
function Convert();
private
@@ -229,7 +229,7 @@ end;
type CreatedUnitDecorator = class(Created)
public
function Create(_obj: Created);
function create(_obj: Created);
function GetObject();
function Convert();
private
@@ -238,7 +238,7 @@ end;
type ModifiedUnitDecorator = class(Modified)
public
function Create(_obj: Modified);
function create(_obj: Modified);
function GetObject();
function Convert();
private
@@ -247,7 +247,7 @@ end;
type RelationshipsUnitDecorator = class(Relationships)
public
function Create(_obj: Relationships);
function create(_obj: Relationships);
function GetObject();
function Convert();
private
@@ -256,7 +256,7 @@ end;
type RelationshipUnitDecorator = class(Relationship)
public
function Create(_obj: Relationship);
function create(_obj: Relationship);
function GetObject();
function Convert();
private
@@ -265,7 +265,7 @@ end;
type TypesUnitDecorator = class(Types)
public
function Create(_obj: Types);
function create(_obj: Types);
function GetObject();
function Convert();
private
@@ -274,7 +274,7 @@ end;
type DefaultUnitDecorator = class(Default)
public
function Create(_obj: Default);
function create(_obj: Default);
function GetObject();
function Convert();
private
@@ -283,7 +283,7 @@ end;
type _OverrideUnitDecorator = class(_Override)
public
function Create(_obj: _Override);
function create(_obj: _Override);
function GetObject();
function Convert();
private
@@ -292,7 +292,7 @@ end;
type NumUnitDecorator = class(Num)
public
function Create(_obj: Num);
function create(_obj: Num);
function GetObject();
function Convert();
private
@@ -301,7 +301,7 @@ end;
type DegUnitDecorator = class(Deg)
public
function Create(_obj: Deg);
function create(_obj: Deg);
function GetObject();
function Convert();
private
@@ -310,7 +310,7 @@ end;
type EUnitDecorator = class(E)
public
function Create(_obj: E);
function create(_obj: E);
function GetObject();
function Convert();
private
@@ -319,7 +319,7 @@ end;
type SupUnitDecorator = class(Sup)
public
function Create(_obj: Sup);
function create(_obj: Sup);
function GetObject();
function Convert();
private
@@ -328,7 +328,7 @@ end;
type DenUnitDecorator = class(Den)
public
function Create(_obj: Den);
function create(_obj: Den);
function GetObject();
function Convert();
private
@@ -337,7 +337,7 @@ end;
type SubUnitDecorator = class(Sub)
public
function Create(_obj: Sub);
function create(_obj: Sub);
function GetObject();
function Convert();
private
@@ -346,9 +346,9 @@ end;
implementation
function MathPrUnitDecorator.Create(_obj: MathPr);
function MathPrUnitDecorator.create(_obj: MathPr);
begin
class(MathPr).Create();
class(MathPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -387,9 +387,9 @@ begin
tslassigning := tslassigning_backup;
end;
function OMathParaUnitDecorator.Create(_obj: OMathPara);
function OMathParaUnitDecorator.create(_obj: OMathPara);
begin
class(OMathPara).Create();
class(OMathPara).create();
object_ := _obj;
{self.}Convert();
end;
@@ -410,9 +410,9 @@ begin
tslassigning := tslassigning_backup;
end;
function OMathParaPrUnitDecorator.Create(_obj: OMathParaPr);
function OMathParaPrUnitDecorator.create(_obj: OMathParaPr);
begin
class(OMathParaPr).Create();
class(OMathParaPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -431,9 +431,9 @@ begin
tslassigning := tslassigning_backup;
end;
function PureMValUnitDecorator.Create(_obj: PureMVal);
function PureMValUnitDecorator.create(_obj: PureMVal);
begin
class(PureMVal).Create();
class(PureMVal).create();
object_ := _obj;
{self.}Convert();
end;
@@ -452,9 +452,9 @@ begin
tslassigning := tslassigning_backup;
end;
function OMathUnitDecorator.Create(_obj: OMath);
function OMathUnitDecorator.create(_obj: OMath);
begin
class(OMath).Create();
class(OMath).create();
object_ := _obj;
{self.}Convert();
end;
@@ -495,9 +495,9 @@ begin
tslassigning := tslassigning_backup;
end;
function RUnitDecorator.Create(_obj: R);
function RUnitDecorator.create(_obj: R);
begin
class(R).Create();
class(R).create();
object_ := _obj;
{self.}Convert();
end;
@@ -522,9 +522,9 @@ begin
tslassigning := tslassigning_backup;
end;
function RPrUnitDecorator.Create(_obj: RPr);
function RPrUnitDecorator.create(_obj: RPr);
begin
class(RPr).Create();
class(RPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -543,9 +543,9 @@ begin
tslassigning := tslassigning_backup;
end;
function TUnitDecorator.Create(_obj: T);
function TUnitDecorator.create(_obj: T);
begin
class(T).Create();
class(T).create();
object_ := _obj;
{self.}Convert();
end;
@@ -564,9 +564,9 @@ begin
tslassigning := tslassigning_backup;
end;
function DUnitDecorator.Create(_obj: D);
function DUnitDecorator.create(_obj: D);
begin
class(D).Create();
class(D).create();
object_ := _obj;
{self.}Convert();
end;
@@ -587,9 +587,9 @@ begin
tslassigning := tslassigning_backup;
end;
function DPrUnitDecorator.Create(_obj: DPr);
function DPrUnitDecorator.create(_obj: DPr);
begin
class(DPr).Create();
class(DPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -620,9 +620,9 @@ begin
tslassigning := tslassigning_backup;
end;
function CtrlPrUnitDecorator.Create(_obj: CtrlPr);
function CtrlPrUnitDecorator.create(_obj: CtrlPr);
begin
class(CtrlPr).Create();
class(CtrlPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -643,9 +643,9 @@ begin
tslassigning := tslassigning_backup;
end;
function SSupUnitDecorator.Create(_obj: SSup);
function SSupUnitDecorator.create(_obj: SSup);
begin
class(SSup).Create();
class(SSup).create();
object_ := _obj;
{self.}Convert();
end;
@@ -668,9 +668,9 @@ begin
tslassigning := tslassigning_backup;
end;
function SSupPrUnitDecorator.Create(_obj: SSupPr);
function SSupPrUnitDecorator.create(_obj: SSupPr);
begin
class(SSupPr).Create();
class(SSupPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -689,9 +689,9 @@ begin
tslassigning := tslassigning_backup;
end;
function FUnitDecorator.Create(_obj: F);
function FUnitDecorator.create(_obj: F);
begin
class(F).Create();
class(F).create();
object_ := _obj;
{self.}Convert();
end;
@@ -714,9 +714,9 @@ begin
tslassigning := tslassigning_backup;
end;
function FPrUnitDecorator.Create(_obj: FPr);
function FPrUnitDecorator.create(_obj: FPr);
begin
class(FPr).Create();
class(FPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -737,9 +737,9 @@ begin
tslassigning := tslassigning_backup;
end;
function RadUnitDecorator.Create(_obj: Rad);
function RadUnitDecorator.create(_obj: Rad);
begin
class(Rad).Create();
class(Rad).create();
object_ := _obj;
{self.}Convert();
end;
@@ -762,9 +762,9 @@ begin
tslassigning := tslassigning_backup;
end;
function RadPrUnitDecorator.Create(_obj: RadPr);
function RadPrUnitDecorator.create(_obj: RadPr);
begin
class(RadPr).Create();
class(RadPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -785,9 +785,9 @@ begin
tslassigning := tslassigning_backup;
end;
function SSubUnitDecorator.Create(_obj: SSub);
function SSubUnitDecorator.create(_obj: SSub);
begin
class(SSub).Create();
class(SSub).create();
object_ := _obj;
{self.}Convert();
end;
@@ -810,9 +810,9 @@ begin
tslassigning := tslassigning_backup;
end;
function SSubPrUnitDecorator.Create(_obj: SSubPr);
function SSubPrUnitDecorator.create(_obj: SSubPr);
begin
class(SSubPr).Create();
class(SSubPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -831,9 +831,9 @@ begin
tslassigning := tslassigning_backup;
end;
function NaryUnitDecorator.Create(_obj: Nary);
function NaryUnitDecorator.create(_obj: Nary);
begin
class(Nary).Create();
class(Nary).create();
object_ := _obj;
{self.}Convert();
end;
@@ -858,9 +858,9 @@ begin
tslassigning := tslassigning_backup;
end;
function NaryPrUnitDecorator.Create(_obj: NaryPr);
function NaryPrUnitDecorator.create(_obj: NaryPr);
begin
class(NaryPr).Create();
class(NaryPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -889,9 +889,9 @@ begin
tslassigning := tslassigning_backup;
end;
function FuncUnitDecorator.Create(_obj: Func);
function FuncUnitDecorator.create(_obj: Func);
begin
class(Func).Create();
class(Func).create();
object_ := _obj;
{self.}Convert();
end;
@@ -914,9 +914,9 @@ begin
tslassigning := tslassigning_backup;
end;
function FNameUnitDecorator.Create(_obj: FName);
function FNameUnitDecorator.create(_obj: FName);
begin
class(FName).Create();
class(FName).create();
object_ := _obj;
{self.}Convert();
end;
@@ -936,9 +936,9 @@ begin
tslassigning := tslassigning_backup;
end;
function FuncPrUnitDecorator.Create(_obj: FuncPr);
function FuncPrUnitDecorator.create(_obj: FuncPr);
begin
class(FuncPr).Create();
class(FuncPr).create();
object_ := _obj;
{self.}Convert();
end;
@@ -957,9 +957,9 @@ begin
tslassigning := tslassigning_backup;
end;
function CorePropertiesUnitDecorator.Create(_obj: CoreProperties);
function CorePropertiesUnitDecorator.create(_obj: CoreProperties);
begin
class(CoreProperties).Create();
class(CoreProperties).create();
object_ := _obj;
{self.}Convert();
end;
@@ -988,9 +988,9 @@ begin
tslassigning := tslassigning_backup;
end;
function CreatedUnitDecorator.Create(_obj: Created);
function CreatedUnitDecorator.create(_obj: Created);
begin
class(Created).Create();
class(Created).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1009,9 +1009,9 @@ begin
tslassigning := tslassigning_backup;
end;
function ModifiedUnitDecorator.Create(_obj: Modified);
function ModifiedUnitDecorator.create(_obj: Modified);
begin
class(Modified).Create();
class(Modified).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1030,9 +1030,9 @@ begin
tslassigning := tslassigning_backup;
end;
function RelationshipsUnitDecorator.Create(_obj: Relationships);
function RelationshipsUnitDecorator.create(_obj: Relationships);
begin
class(Relationships).Create();
class(Relationships).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1052,9 +1052,9 @@ begin
tslassigning := tslassigning_backup;
end;
function RelationshipUnitDecorator.Create(_obj: Relationship);
function RelationshipUnitDecorator.create(_obj: Relationship);
begin
class(Relationship).Create();
class(Relationship).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1077,9 +1077,9 @@ begin
tslassigning := tslassigning_backup;
end;
function TypesUnitDecorator.Create(_obj: Types);
function TypesUnitDecorator.create(_obj: Types);
begin
class(Types).Create();
class(Types).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1102,9 +1102,9 @@ begin
tslassigning := tslassigning_backup;
end;
function DefaultUnitDecorator.Create(_obj: Default);
function DefaultUnitDecorator.create(_obj: Default);
begin
class(Default).Create();
class(Default).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1125,9 +1125,9 @@ begin
tslassigning := tslassigning_backup;
end;
function _OverrideUnitDecorator.Create(_obj: _Override);
function _OverrideUnitDecorator.create(_obj: _Override);
begin
class(_Override).Create();
class(_Override).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1148,9 +1148,9 @@ begin
tslassigning := tslassigning_backup;
end;
function NumUnitDecorator.Create(_obj: Num);
function NumUnitDecorator.create(_obj: Num);
begin
class(Num).Create();
class(Num).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1193,9 +1193,9 @@ begin
tslassigning := tslassigning_backup;
end;
function DegUnitDecorator.Create(_obj: Deg);
function DegUnitDecorator.create(_obj: Deg);
begin
class(Deg).Create();
class(Deg).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1238,9 +1238,9 @@ begin
tslassigning := tslassigning_backup;
end;
function EUnitDecorator.Create(_obj: E);
function EUnitDecorator.create(_obj: E);
begin
class(E).Create();
class(E).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1283,9 +1283,9 @@ begin
tslassigning := tslassigning_backup;
end;
function SupUnitDecorator.Create(_obj: Sup);
function SupUnitDecorator.create(_obj: Sup);
begin
class(Sup).Create();
class(Sup).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1328,9 +1328,9 @@ begin
tslassigning := tslassigning_backup;
end;
function DenUnitDecorator.Create(_obj: Den);
function DenUnitDecorator.create(_obj: Den);
begin
class(Den).Create();
class(Den).create();
object_ := _obj;
{self.}Convert();
end;
@@ -1373,9 +1373,9 @@ begin
tslassigning := tslassigning_backup;
end;
function SubUnitDecorator.Create(_obj: Sub);
function SubUnitDecorator.create(_obj: Sub);
begin
class(Sub).Create();
class(Sub).create();
object_ := _obj;
{self.}Convert();
end;
autounit/VMLUnitDecorator.tsf
+54 -50
View File
@@ -4,7 +4,7 @@ uses VML, TSSafeUnitConverter;
type ShapetypeUnitDecorator = class(Shapetype)
public
function Create(_obj: Shapetype);
function create(_obj: Shapetype);
function GetObject();
function Convert();
private
@@ -13,7 +13,7 @@ end;
type FormulasUnitDecorator = class(Formulas)
public
function Create(_obj: Formulas);
function create(_obj: Formulas);
function GetObject();
function Convert();
private
@@ -22,7 +22,7 @@ end;
type LockUnitDecorator = class(Lock)
public
function Create(_obj: Lock);
function create(_obj: Lock);
function GetObject();
function Convert();
private
@@ -31,7 +31,7 @@ end;
type FUnitDecorator = class(F)
public
function Create(_obj: F);
function create(_obj: F);
function GetObject();
function Convert();
private
@@ -40,7 +40,7 @@ end;
type StrokeUnitDecorator = class(Stroke)
public
function Create(_obj: Stroke);
function create(_obj: Stroke);
function GetObject();
function Convert();
private
@@ -49,7 +49,7 @@ end;
type PathUnitDecorator = class(Path)
public
function Create(_obj: Path);
function create(_obj: Path);
function GetObject();
function Convert();
private
@@ -58,7 +58,7 @@ end;
type TextpathUnitDecorator = class(Textpath)
public
function Create(_obj: Textpath);
function create(_obj: Textpath);
function GetObject();
function Convert();
private
@@ -67,7 +67,7 @@ end;
type HandlesUnitDecorator = class(Handles)
public
function Create(_obj: Handles);
function create(_obj: Handles);
function GetObject();
function Convert();
private
@@ -76,7 +76,7 @@ end;
type HUnitDecorator = class(H)
public
function Create(_obj: H);
function create(_obj: H);
function GetObject();
function Convert();
private
@@ -85,7 +85,7 @@ end;
type ShapeUnitDecorator = class(Shape)
public
function Create(_obj: Shape);
function create(_obj: Shape);
function GetObject();
function Convert();
private
@@ -94,7 +94,7 @@ end;
type WrapUnitDecorator = class(Wrap)
public
function Create(_obj: Wrap);
function create(_obj: Wrap);
function GetObject();
function Convert();
private
@@ -103,7 +103,7 @@ end;
type FillUnitDecorator = class(Fill)
public
function Create(_obj: Fill);
function create(_obj: Fill);
function GetObject();
function Convert();
private
@@ -112,7 +112,7 @@ end;
type ImagedataUnitDecorator = class(Imagedata)
public
function Create(_obj: Imagedata);
function create(_obj: Imagedata);
function GetObject();
function Convert();
private
@@ -121,7 +121,7 @@ end;
type TextboxUnitDecorator = class(Textbox)
public
function Create(_obj: Textbox);
function create(_obj: Textbox);
function GetObject();
function Convert();
private
@@ -130,7 +130,7 @@ end;
type OLEObjectUnitDecorator = class(OLEObject)
public
function Create(_obj: OLEObject);
function create(_obj: OLEObject);
function GetObject();
function Convert();
private
@@ -139,9 +139,9 @@ end;
implementation
function ShapetypeUnitDecorator.Create(_obj: Shapetype);
function ShapetypeUnitDecorator.create(_obj: Shapetype);
begin
class(Shapetype).Create();
class(Shapetype).create();
object_ := _obj;
{self.}Convert();
end;
@@ -167,8 +167,8 @@ begin
{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_.XmlAttrAttrPath) then
{self.}AttrPath := object_.XmlAttrAttrPath.Value;
if not ifnil(object_.XmlAttrFilled) then
{self.}Filled := object_.XmlAttrFilled.Value;
if not ifnil(object_.XmlAttrStroked) then
@@ -188,9 +188,9 @@ begin
tslassigning := tslassigning_backup;
end;
function FormulasUnitDecorator.Create(_obj: Formulas);
function FormulasUnitDecorator.create(_obj: Formulas);
begin
class(Formulas).Create();
class(Formulas).create();
object_ := _obj;
{self.}Convert();
end;
@@ -206,13 +206,13 @@ begin
tslassigning := 1;
elems := object_.Fs();
for _,elem in elems do
{self.}AppendChild(new ShapetypeUnitDecorator(elem));
{self.}AppendChild(new FUnitDecorator(elem));
tslassigning := tslassigning_backup;
end;
function LockUnitDecorator.Create(_obj: Lock);
function LockUnitDecorator.create(_obj: Lock);
begin
class(Lock).Create();
class(Lock).create();
object_ := _obj;
{self.}Convert();
end;
@@ -230,12 +230,16 @@ begin
{self.}Ext := object_.XmlAttrExt.Value;
if not ifnil(object_.XmlAttrAspectration) then
{self.}Aspectration := object_.XmlAttrAspectration.Value;
if not ifnil(object_.XmlAttrText) then
{self.}Text := object_.XmlAttrText.Value;
if not ifnil(object_.XmlAttrShapetype) then
{self.}Shapetype := object_.XmlAttrShapetype.Value;
tslassigning := tslassigning_backup;
end;
function FUnitDecorator.Create(_obj: F);
function FUnitDecorator.create(_obj: F);
begin
class(F).Create();
class(F).create();
object_ := _obj;
{self.}Convert();
end;
@@ -254,9 +258,9 @@ begin
tslassigning := tslassigning_backup;
end;
function StrokeUnitDecorator.Create(_obj: Stroke);
function StrokeUnitDecorator.create(_obj: Stroke);
begin
class(Stroke).Create();
class(Stroke).create();
object_ := _obj;
{self.}Convert();
end;
@@ -275,9 +279,9 @@ begin
tslassigning := tslassigning_backup;
end;
function PathUnitDecorator.Create(_obj: Path);
function PathUnitDecorator.create(_obj: Path);
begin
class(Path).Create();
class(Path).create();
object_ := _obj;
{self.}Convert();
end;
@@ -306,9 +310,9 @@ begin
tslassigning := tslassigning_backup;
end;
function TextpathUnitDecorator.Create(_obj: Textpath);
function TextpathUnitDecorator.create(_obj: Textpath);
begin
class(Textpath).Create();
class(Textpath).create();
object_ := _obj;
{self.}Convert();
end;
@@ -333,9 +337,9 @@ begin
tslassigning := tslassigning_backup;
end;
function HandlesUnitDecorator.Create(_obj: Handles);
function HandlesUnitDecorator.create(_obj: Handles);
begin
class(Handles).Create();
class(Handles).create();
object_ := _obj;
{self.}Convert();
end;
@@ -354,9 +358,9 @@ begin
tslassigning := tslassigning_backup;
end;
function HUnitDecorator.Create(_obj: H);
function HUnitDecorator.create(_obj: H);
begin
class(H).Create();
class(H).create();
object_ := _obj;
{self.}Convert();
end;
@@ -370,16 +374,16 @@ 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;
if not ifnil(object_.XmlAttrXrange) then
{self.}Xrange := object_.XmlAttrXrange.Value;
tslassigning := tslassigning_backup;
end;
function ShapeUnitDecorator.Create(_obj: Shape);
function ShapeUnitDecorator.create(_obj: Shape);
begin
class(Shape).Create();
class(Shape).create();
object_ := _obj;
{self.}Convert();
end;
@@ -426,9 +430,9 @@ begin
tslassigning := tslassigning_backup;
end;
function WrapUnitDecorator.Create(_obj: Wrap);
function WrapUnitDecorator.create(_obj: Wrap);
begin
class(Wrap).Create();
class(Wrap).create();
object_ := _obj;
{self.}Convert();
end;
@@ -449,9 +453,9 @@ begin
tslassigning := tslassigning_backup;
end;
function FillUnitDecorator.Create(_obj: Fill);
function FillUnitDecorator.create(_obj: Fill);
begin
class(Fill).Create();
class(Fill).create();
object_ := _obj;
{self.}Convert();
end;
@@ -470,9 +474,9 @@ begin
tslassigning := tslassigning_backup;
end;
function ImagedataUnitDecorator.Create(_obj: Imagedata);
function ImagedataUnitDecorator.create(_obj: Imagedata);
begin
class(Imagedata).Create();
class(Imagedata).create();
object_ := _obj;
{self.}Convert();
end;
@@ -493,9 +497,9 @@ begin
tslassigning := tslassigning_backup;
end;
function TextboxUnitDecorator.Create(_obj: Textbox);
function TextboxUnitDecorator.create(_obj: Textbox);
begin
class(Textbox).Create();
class(Textbox).create();
object_ := _obj;
{self.}Convert();
end;
@@ -514,9 +518,9 @@ begin
tslassigning := tslassigning_backup;
end;
function OLEObjectUnitDecorator.Create(_obj: OLEObject);
function OLEObjectUnitDecorator.create(_obj: OLEObject);
begin
class(OLEObject).Create();
class(OLEObject).create();
object_ := _obj;
{self.}Convert();
end;