v1.0.0
This commit is contained in:
parent
ac62594901
commit
d244a95fb2
|
|
@ -0,0 +1,55 @@
|
|||
type NumberingAdapter = class
|
||||
public
|
||||
function Create(_obj: Numbering);
|
||||
function Init();
|
||||
|
||||
property AbstractNumId read ReadAbstractNumId write WriteAbstractNumId;
|
||||
property NumId read ReadNumId write WriteNumId;
|
||||
function ReadAbstractNumId(_key: string);
|
||||
function WriteAbstractNumId(_key: string; _value: tslobj);
|
||||
function ReadNumId(_key: string);
|
||||
function WriteNumId(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Numbering;
|
||||
abstractnum_hash_: tableArray;
|
||||
num_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function NumberingAdapter.Create(_obj: Numbering);
|
||||
begin
|
||||
object_ := _obj;
|
||||
abstractnum_hash_ := array();
|
||||
num_hash_ := array();
|
||||
self.Init();
|
||||
end;
|
||||
|
||||
function NumberingAdapter.Init();
|
||||
begin
|
||||
elements := object_.AbstractNums;
|
||||
for k,v in elements do
|
||||
abstractnum_hash_[v.AbstractNumId] := v;
|
||||
elements := object_.Nums;
|
||||
for k,v in elements do
|
||||
num_hash_[v.NumId] := v;
|
||||
end;
|
||||
|
||||
function NumberingAdapter.ReadAbstractNumId(_key: string);
|
||||
begin
|
||||
return abstractnum_hash_[_key];
|
||||
end;
|
||||
|
||||
function NumberingAdapter.WriteAbstractNumId(_key: string; _value: tslobj);
|
||||
begin
|
||||
abstractnum_hash_[_key] := _value;
|
||||
end;
|
||||
|
||||
function NumberingAdapter.ReadNumId(_key: string);
|
||||
begin
|
||||
return num_hash_[_key];
|
||||
end;
|
||||
|
||||
function NumberingAdapter.WriteNumId(_key: string; _value: tslobj);
|
||||
begin
|
||||
num_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,37 @@
|
|||
type RelationshipsAdapter = class
|
||||
public
|
||||
function Create(_obj: Relationships);
|
||||
function Init();
|
||||
|
||||
property Id read ReadId write WriteId;
|
||||
function ReadId(_key: string);
|
||||
function WriteId(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Relationships;
|
||||
relationship_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.Create(_obj: Relationships);
|
||||
begin
|
||||
object_ := _obj;
|
||||
relationship_hash_ := array();
|
||||
self.Init();
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.Init();
|
||||
begin
|
||||
elements := object_.Relationships;
|
||||
for k,v in elements do
|
||||
relationship_hash_[v.Id] := v;
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.ReadId(_key: string);
|
||||
begin
|
||||
return relationship_hash_[_key];
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.WriteId(_key: string; _value: tslobj);
|
||||
begin
|
||||
relationship_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,37 @@
|
|||
type StylesAdapter = class
|
||||
public
|
||||
function Create(_obj: Styles);
|
||||
function Init();
|
||||
|
||||
property StyleId read ReadStyleId write WriteStyleId;
|
||||
function ReadStyleId(_key: string);
|
||||
function WriteStyleId(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Styles;
|
||||
style_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function StylesAdapter.Create(_obj: Styles);
|
||||
begin
|
||||
object_ := _obj;
|
||||
style_hash_ := array();
|
||||
self.Init();
|
||||
end;
|
||||
|
||||
function StylesAdapter.Init();
|
||||
begin
|
||||
elements := object_.Styles;
|
||||
for k,v in elements do
|
||||
style_hash_[v.StyleId] := v;
|
||||
end;
|
||||
|
||||
function StylesAdapter.ReadStyleId(_key: string);
|
||||
begin
|
||||
return style_hash_[_key];
|
||||
end;
|
||||
|
||||
function StylesAdapter.WriteStyleId(_key: string; _value: tslobj);
|
||||
begin
|
||||
style_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type APPrUnitDecorator = class(APPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: APPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: APPr;
|
||||
end;
|
||||
|
||||
function APPrUnitDecorator.Create(_obj: APPr);
|
||||
begin
|
||||
class(APPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function APPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.DefRPr := new ARPrUnitDecorator(object_.DefRPr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
type ARPrUnitDecorator = class(ARPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ARPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: ARPr;
|
||||
end;
|
||||
|
||||
function ARPrUnitDecorator.Create(_obj: ARPr);
|
||||
begin
|
||||
class(ARPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ARPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrLang.Value := object_.XmlAttrLang.Value;
|
||||
self.XmlAttrAltLang.Value := object_.XmlAttrAltLang.Value;
|
||||
self.XmlAttrB.Value := object_.XmlAttrB.Value;
|
||||
self.XmlAttrBaseline.Value := object_.XmlAttrBaseline.Value;
|
||||
self.XmlAttrI.Value := object_.XmlAttrI.Value;
|
||||
self.XmlAttrKern.Value := object_.XmlAttrKern.Value;
|
||||
self.XmlAttrSpc.Value := object_.XmlAttrSpc.Value;
|
||||
self.XmlAttrStrike.Value := object_.XmlAttrStrike.Value;
|
||||
self.XmlAttrSz.Value := object_.XmlAttrSz.Value;
|
||||
self.XmlAttrU.Value := object_.XmlAttrU.Value;
|
||||
self.SolidFill := new SolidFillUnitDecorator(object_.SolidFill);
|
||||
self.Latin := new LatinUnitDecorator(object_.Latin);
|
||||
self.Ea := new LatinUnitDecorator(object_.Ea);
|
||||
self.Cs := new LatinUnitDecorator(object_.Cs);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type ARUnitDecorator = class(AR)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: AR);
|
||||
function Converte();
|
||||
private
|
||||
object_: AR;
|
||||
end;
|
||||
|
||||
function ARUnitDecorator.Create(_obj: AR);
|
||||
begin
|
||||
class(AR).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ARUnitDecorator.Converte();
|
||||
begin
|
||||
self.RPr := new ARPrUnitDecorator(object_.RPr);
|
||||
self.T := new TUnitDecorator(object_.T);
|
||||
end;
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
type AbstractNumUnitDecorator = class(AbstractNum)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: AbstractNum);
|
||||
function Converte();
|
||||
private
|
||||
object_: AbstractNum;
|
||||
end;
|
||||
|
||||
function AbstractNumUnitDecorator.Create(_obj: AbstractNum);
|
||||
begin
|
||||
class(AbstractNum).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function AbstractNumUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrAbstractNumId.Value := object_.XmlAttrAbstractNumId.Value;
|
||||
self.XmlAttrRestartNumberingAfterBreak.Value := object_.XmlAttrRestartNumberingAfterBreak.Value;
|
||||
self.Nsid := new PureWValUnitDecorator(object_.Nsid);
|
||||
self.MultiLevelType := new PureWValUnitDecorator(object_.MultiLevelType);
|
||||
self.Tmpl := new PureWValUnitDecorator(object_.Tmpl);
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type AlternateContentUnitDecorator = class(AlternateContent)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: AlternateContent);
|
||||
function Converte();
|
||||
private
|
||||
object_: AlternateContent;
|
||||
end;
|
||||
|
||||
function AlternateContentUnitDecorator.Create(_obj: AlternateContent);
|
||||
begin
|
||||
class(AlternateContent).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function AlternateContentUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.Choice := new ChoiceUnitDecorator(object_.Choice);
|
||||
self.Fallback := new FallbackUnitDecorator(object_.Fallback);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type ApUnitDecorator = class(Ap)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ap);
|
||||
function Converte();
|
||||
private
|
||||
object_: Ap;
|
||||
end;
|
||||
|
||||
function ApUnitDecorator.Create(_obj: Ap);
|
||||
begin
|
||||
class(Ap).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ApUnitDecorator.Converte();
|
||||
begin
|
||||
self.PPr := new APPrUnitDecorator(object_.PPr);
|
||||
self.EndParaRPr := new ARPrUnitDecorator(object_.EndParaRPr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
type AxUnitDecorator = class(Ax)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ax);
|
||||
function Converte();
|
||||
private
|
||||
object_: Ax;
|
||||
end;
|
||||
|
||||
function AxUnitDecorator.Create(_obj: Ax);
|
||||
begin
|
||||
class(Ax).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function AxUnitDecorator.Converte();
|
||||
begin
|
||||
self.AxId := new PureValUnitDecorator(object_.AxId);
|
||||
self.Scaling := new ScalingUnitDecorator(object_.Scaling);
|
||||
self._Delete := new PureValUnitDecorator(object_._Delete);
|
||||
self.AxPos := new PureValUnitDecorator(object_.AxPos);
|
||||
self.NumFmt := new NumFmtUnitDecorator(object_.NumFmt);
|
||||
self.MajorTickMark := new PureValUnitDecorator(object_.MajorTickMark);
|
||||
self.MinorTickMark := new PureValUnitDecorator(object_.MinorTickMark);
|
||||
self.TickLblPos := new PureValUnitDecorator(object_.TickLblPos);
|
||||
self.SpPr := new SpPrUnitDecorator(object_.SpPr);
|
||||
self.TxPr := new TxPrUnitDecorator(object_.TxPr);
|
||||
self.CrossAx := new PureValUnitDecorator(object_.CrossAx);
|
||||
self.Crosses := new PureValUnitDecorator(object_.Crosses);
|
||||
self.CrossBetween := new PureValUnitDecorator(object_.CrossBetween);
|
||||
self.Auto := new PureValUnitDecorator(object_.Auto);
|
||||
self.LblAlgn := new PureValUnitDecorator(object_.LblAlgn);
|
||||
self.LblOffset := new PureValUnitDecorator(object_.LblOffset);
|
||||
self.NoMultiLvlLbl := new PureValUnitDecorator(object_.NoMultiLvlLbl);
|
||||
end;
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
type BarChartUnitDecorator = class(BarChart)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: BarChart);
|
||||
function Converte();
|
||||
private
|
||||
object_: BarChart;
|
||||
end;
|
||||
|
||||
function BarChartUnitDecorator.Create(_obj: BarChart);
|
||||
begin
|
||||
class(BarChart).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function BarChartUnitDecorator.Converte();
|
||||
begin
|
||||
self.BarDir := new PureValUnitDecorator(object_.BarDir);
|
||||
self.Grouping := new PureValUnitDecorator(object_.Grouping);
|
||||
self.VaryColors := new PureValUnitDecorator(object_.VaryColors);
|
||||
self.GapWidth := new PureValUnitDecorator(object_.GapWidth);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type BlipFillUnitDecorator = class(BlipFill)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: BlipFill);
|
||||
function Converte();
|
||||
private
|
||||
object_: BlipFill;
|
||||
end;
|
||||
|
||||
function BlipFillUnitDecorator.Create(_obj: BlipFill);
|
||||
begin
|
||||
class(BlipFill).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function BlipFillUnitDecorator.Converte();
|
||||
begin
|
||||
self.Blip := new BlipUnitDecorator(object_.Blip);
|
||||
self.Stretch := new StretchUnitDecorator(object_.Stretch);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type BlipUnitDecorator = class(Blip)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Blip);
|
||||
function Converte();
|
||||
private
|
||||
object_: Blip;
|
||||
end;
|
||||
|
||||
function BlipUnitDecorator.Create(_obj: Blip);
|
||||
begin
|
||||
class(Blip).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function BlipUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrEmbed.Value := object_.XmlAttrEmbed.Value;
|
||||
self.XmlAttrCstate.Value := object_.XmlAttrCstate.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
type BodyPrUnitDecorator = class(BodyPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: BodyPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: BodyPr;
|
||||
end;
|
||||
|
||||
function BodyPrUnitDecorator.Create(_obj: BodyPr);
|
||||
begin
|
||||
class(BodyPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function BodyPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrRot.Value := object_.XmlAttrRot.Value;
|
||||
self.XmlAttrSpcFirstLastPara.Value := object_.XmlAttrSpcFirstLastPara.Value;
|
||||
self.XmlAttrVertOverflow.Value := object_.XmlAttrVertOverflow.Value;
|
||||
self.XmlAttrVert.Value := object_.XmlAttrVert.Value;
|
||||
self.XmlAttrWrap.Value := object_.XmlAttrWrap.Value;
|
||||
self.XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value;
|
||||
self.XmlAttrAnchorCtr.Value := object_.XmlAttrAnchorCtr.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type BodyUnitDecorator = class(Body)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Body);
|
||||
function Converte();
|
||||
private
|
||||
object_: Body;
|
||||
end;
|
||||
|
||||
function BodyUnitDecorator.Create(_obj: Body);
|
||||
begin
|
||||
class(Body).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function BodyUnitDecorator.Converte();
|
||||
begin
|
||||
self.SectPr := new SectPrUnitDecorator(object_.SectPr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type BookmarkUnitDecorator = class(Bookmark)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Bookmark);
|
||||
function Converte();
|
||||
private
|
||||
object_: Bookmark;
|
||||
end;
|
||||
|
||||
function BookmarkUnitDecorator.Create(_obj: Bookmark);
|
||||
begin
|
||||
class(Bookmark).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function BookmarkUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type BrUnitDecorator = class(Br)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Br);
|
||||
function Converte();
|
||||
private
|
||||
object_: Br;
|
||||
end;
|
||||
|
||||
function BrUnitDecorator.Create(_obj: Br);
|
||||
begin
|
||||
class(Br).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function BrUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type CNvGraphicFramePrUnitDecorator = class(CNvGraphicFramePr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CNvGraphicFramePr);
|
||||
function Converte();
|
||||
private
|
||||
object_: CNvGraphicFramePr;
|
||||
end;
|
||||
|
||||
function CNvGraphicFramePrUnitDecorator.Create(_obj: CNvGraphicFramePr);
|
||||
begin
|
||||
class(CNvGraphicFramePr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CNvGraphicFramePrUnitDecorator.Converte();
|
||||
begin
|
||||
self.GraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.GraphicFrameLocks);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type CNvPicPrUnitDecorator = class(CNvPicPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CNvPicPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: CNvPicPr;
|
||||
end;
|
||||
|
||||
function CNvPicPrUnitDecorator.Create(_obj: CNvPicPr);
|
||||
begin
|
||||
class(CNvPicPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CNvPicPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.PicLocks := new PicLocksUnitDecorator(object_.PicLocks);
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type CNvPrUnitDecorator = class(CNvPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CNvPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: CNvPr;
|
||||
end;
|
||||
|
||||
function CNvPrUnitDecorator.Create(_obj: CNvPr);
|
||||
begin
|
||||
class(CNvPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CNvPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type CXYUnitDecorator = class(CXY)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CXY);
|
||||
function Converte();
|
||||
private
|
||||
object_: CXY;
|
||||
end;
|
||||
|
||||
function CXYUnitDecorator.Create(_obj: CXY);
|
||||
begin
|
||||
class(CXY).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CXYUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrCx.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCx.Value);
|
||||
self.XmlAttrCy.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCy.Value);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type CacheUnitDecorator = class(Cache)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Cache);
|
||||
function Converte();
|
||||
private
|
||||
object_: Cache;
|
||||
end;
|
||||
|
||||
function CacheUnitDecorator.Create(_obj: Cache);
|
||||
begin
|
||||
class(Cache).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CacheUnitDecorator.Converte();
|
||||
begin
|
||||
self.PtCount := new PureValUnitDecorator(object_.PtCount);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type CatUnitDecorator = class(Cat)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Cat);
|
||||
function Converte();
|
||||
private
|
||||
object_: Cat;
|
||||
end;
|
||||
|
||||
function CatUnitDecorator.Create(_obj: Cat);
|
||||
begin
|
||||
class(Cat).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CatUnitDecorator.Converte();
|
||||
begin
|
||||
self.StrRef := new StrRefUnitDecorator(object_.StrRef);
|
||||
end;
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
type ChartSpaceUnitDecorator = class(ChartSpace)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ChartSpace);
|
||||
function Converte();
|
||||
private
|
||||
object_: ChartSpace;
|
||||
end;
|
||||
|
||||
function ChartSpaceUnitDecorator.Create(_obj: ChartSpace);
|
||||
begin
|
||||
class(ChartSpace).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ChartSpaceUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsC.Value := object_.XmlAttrXmlnsC.Value;
|
||||
self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.Date1904 := new PureValUnitDecorator(object_.Date1904);
|
||||
self.Lang := new PureValUnitDecorator(object_.Lang);
|
||||
if not ifnil(object_.XmlChildLang.Value) then self.XmlChildLang.Value := object_.XmlChildLang.Value;
|
||||
self.AlternateContent := new AlternateContentUnitDecorator(object_.AlternateContent);
|
||||
self.Chart := new ChartUnitDecorator(object_.Chart);
|
||||
self.SpPr := new SpPrUnitDecorator(object_.SpPr);
|
||||
self.ExternalData := new ExternalDataUnitDecorator(object_.ExternalData);
|
||||
end;
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
type ChartUnitDecorator = class(Chart)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Chart);
|
||||
function Converte();
|
||||
private
|
||||
object_: Chart;
|
||||
end;
|
||||
|
||||
function ChartUnitDecorator.Create(_obj: Chart);
|
||||
begin
|
||||
class(Chart).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ChartUnitDecorator.Converte();
|
||||
begin
|
||||
self.Title := new TitleUnitDecorator(object_.Title);
|
||||
self.AutoTitleDeleted := new PureValUnitDecorator(object_.AutoTitleDeleted);
|
||||
self.View3D := new View3DUnitDecorator(object_.View3D);
|
||||
self.PlotArea := new PlotAreaUnitDecorator(object_.PlotArea);
|
||||
self.Legend := new LegendUnitDecorator(object_.Legend);
|
||||
self.PlotVisOnly := new PureValUnitDecorator(object_.PlotVisOnly);
|
||||
self.DispBlanksAs := new PureValUnitDecorator(object_.DispBlanksAs);
|
||||
self.ShowDLblsOverMax := new PureValUnitDecorator(object_.ShowDLblsOverMax);
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type ChoiceUnitDecorator = class(Choice)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Choice);
|
||||
function Converte();
|
||||
private
|
||||
object_: Choice;
|
||||
end;
|
||||
|
||||
function ChoiceUnitDecorator.Create(_obj: Choice);
|
||||
begin
|
||||
class(Choice).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ChoiceUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrRequires.Value := object_.XmlAttrRequires.Value;
|
||||
self.XmlAttrXmlnsC14.Value := object_.XmlAttrXmlnsC14.Value;
|
||||
self.Style := new PureValUnitDecorator(object_.Style);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type Clr1UnitDecorator = class(Clr1)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Clr1);
|
||||
function Converte();
|
||||
private
|
||||
object_: Clr1;
|
||||
end;
|
||||
|
||||
function Clr1UnitDecorator.Create(_obj: Clr1);
|
||||
begin
|
||||
class(Clr1).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function Clr1UnitDecorator.Converte();
|
||||
begin
|
||||
self.SysClr := new SysClrUnitDecorator(object_.SysClr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type Clr2UnitDecorator = class(Clr2)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Clr2);
|
||||
function Converte();
|
||||
private
|
||||
object_: Clr2;
|
||||
end;
|
||||
|
||||
function Clr2UnitDecorator.Create(_obj: Clr2);
|
||||
begin
|
||||
class(Clr2).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function Clr2UnitDecorator.Converte();
|
||||
begin
|
||||
self.SrgbClr := new SrgbClrUnitDecorator(object_.SrgbClr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
type ClrSchemeUnitDecorator = class(ClrScheme)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ClrScheme);
|
||||
function Converte();
|
||||
private
|
||||
object_: ClrScheme;
|
||||
end;
|
||||
|
||||
function ClrSchemeUnitDecorator.Create(_obj: ClrScheme);
|
||||
begin
|
||||
class(ClrScheme).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ClrSchemeUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.Dk1 := new Clr1UnitDecorator(object_.Dk1);
|
||||
self.Lt1 := new Clr1UnitDecorator(object_.Lt1);
|
||||
self.Dk2 := new Clr2UnitDecorator(object_.Dk2);
|
||||
self.Lt2 := new Clr2UnitDecorator(object_.Lt2);
|
||||
self.Accent1 := new Clr2UnitDecorator(object_.Accent1);
|
||||
self.Accent2 := new Clr2UnitDecorator(object_.Accent2);
|
||||
self.Accent3 := new Clr2UnitDecorator(object_.Accent3);
|
||||
self.Accent4 := new Clr2UnitDecorator(object_.Accent4);
|
||||
self.Accent5 := new Clr2UnitDecorator(object_.Accent5);
|
||||
self.Accent6 := new Clr2UnitDecorator(object_.Accent6);
|
||||
self.Hlink := new Clr2UnitDecorator(object_.Hlink);
|
||||
self.FolHlink := new Clr2UnitDecorator(object_.FolHlink);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type ColorUnitDecorator = class(Color)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Color);
|
||||
function Converte();
|
||||
private
|
||||
object_: Color;
|
||||
end;
|
||||
|
||||
function ColorUnitDecorator.Create(_obj: Color);
|
||||
begin
|
||||
class(Color).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ColorUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
self.XmlAttrThemeColor.Value := object_.XmlAttrThemeColor.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type ColsUnitDecorator = class(Cols)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Cols);
|
||||
function Converte();
|
||||
private
|
||||
object_: Cols;
|
||||
end;
|
||||
|
||||
function ColsUnitDecorator.Create(_obj: Cols);
|
||||
begin
|
||||
class(Cols).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ColsUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrSpace.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type CommentRangeUnitDecorator = class(CommentRange)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CommentRange);
|
||||
function Converte();
|
||||
private
|
||||
object_: CommentRange;
|
||||
end;
|
||||
|
||||
function CommentRangeUnitDecorator.Create(_obj: CommentRange);
|
||||
begin
|
||||
class(CommentRange).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CommentRangeUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type CommentUnitDecorator = class(Comment)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Comment);
|
||||
function Converte();
|
||||
private
|
||||
object_: Comment;
|
||||
end;
|
||||
|
||||
function CommentUnitDecorator.Create(_obj: Comment);
|
||||
begin
|
||||
class(Comment).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CommentUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrAuthor.Value := object_.XmlAttrAuthor.Value;
|
||||
self.XmlAttrDate.Value := object_.XmlAttrDate.Value;
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,37 @@
|
|||
type CommentsUnitDecorator = class(Comments)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Comments);
|
||||
function Converte();
|
||||
private
|
||||
object_: Comments;
|
||||
end;
|
||||
|
||||
function CommentsUnitDecorator.Create(_obj: Comments);
|
||||
begin
|
||||
class(Comments).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CommentsUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
|
||||
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
|
||||
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
|
||||
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
|
||||
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
|
||||
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
|
||||
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
|
||||
self.XmlAttrXmlnsW10.Value := object_.XmlAttrXmlnsW10.Value;
|
||||
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
|
||||
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
|
||||
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
|
||||
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
|
||||
self.XmlAttrXmlnsWpsCustomData.Value := object_.XmlAttrXmlnsWpsCustomData.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type CompatSettingUnitDecorator = class(CompatSetting)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CompatSetting);
|
||||
function Converte();
|
||||
private
|
||||
object_: CompatSetting;
|
||||
end;
|
||||
|
||||
function CompatSettingUnitDecorator.Create(_obj: CompatSetting);
|
||||
begin
|
||||
class(CompatSetting).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CompatSettingUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.XmlAttrUri.Value := object_.XmlAttrUri.Value;
|
||||
self.XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
type CompatUnitDecorator = class(Compat)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Compat);
|
||||
function Converte();
|
||||
private
|
||||
object_: Compat;
|
||||
end;
|
||||
|
||||
function CompatUnitDecorator.Create(_obj: Compat);
|
||||
begin
|
||||
class(Compat).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CompatUnitDecorator.Converte();
|
||||
begin
|
||||
if not ifnil(object_.XmlChildSpaceForUL.Value) then self.XmlChildSpaceForUL.Value := object_.XmlChildSpaceForUL.Value;
|
||||
if not ifnil(object_.XmlChildBalanceSingleByteDoubleByteWidth.Value) then self.XmlChildBalanceSingleByteDoubleByteWidth.Value := object_.XmlChildBalanceSingleByteDoubleByteWidth.Value;
|
||||
if not ifnil(object_.XmlChildDoNotLeaveBackslashAlone.Value) then self.XmlChildDoNotLeaveBackslashAlone.Value := object_.XmlChildDoNotLeaveBackslashAlone.Value;
|
||||
if not ifnil(object_.XmlChildUlTrailSpace.Value) then self.XmlChildUlTrailSpace.Value := object_.XmlChildUlTrailSpace.Value;
|
||||
if not ifnil(object_.XmlChildDoNotExpandShiftReturn.Value) then self.XmlChildDoNotExpandShiftReturn.Value := object_.XmlChildDoNotExpandShiftReturn.Value;
|
||||
if not ifnil(object_.XmlChildAdjustLineHeightInTable.Value) then self.XmlChildAdjustLineHeightInTable.Value := object_.XmlChildAdjustLineHeightInTable.Value;
|
||||
if not ifnil(object_.XmlChildUseFELayout.Value) then self.XmlChildUseFELayout.Value := object_.XmlChildUseFELayout.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
type CorePropertiesUnitDecorator = class(CoreProperties)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CoreProperties);
|
||||
function Converte();
|
||||
private
|
||||
object_: CoreProperties;
|
||||
end;
|
||||
|
||||
function CorePropertiesUnitDecorator.Create(_obj: CoreProperties);
|
||||
begin
|
||||
class(CoreProperties).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CorePropertiesUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsCp.Value := object_.XmlAttrXmlnsCp.Value;
|
||||
self.XmlAttrXmlnsDc.Value := object_.XmlAttrXmlnsDc.Value;
|
||||
self.XmlAttrXmlnsDcterms.Value := object_.XmlAttrXmlnsDcterms.Value;
|
||||
self.XmlAttrXmlnsDcmitype.Value := object_.XmlAttrXmlnsDcmitype.Value;
|
||||
self.XmlAttrXmlnsXsi.Value := object_.XmlAttrXmlnsXsi.Value;
|
||||
self.Created := new CreatedUnitDecorator(object_.Created);
|
||||
self.Modified := new ModifiedUnitDecorator(object_.Modified);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type CreatedUnitDecorator = class(Created)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Created);
|
||||
function Converte();
|
||||
private
|
||||
object_: Created;
|
||||
end;
|
||||
|
||||
function CreatedUnitDecorator.Create(_obj: Created);
|
||||
begin
|
||||
class(Created).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function CreatedUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,28 @@
|
|||
type DLblsUnitDecorator = class(DLbls)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DLbls);
|
||||
function Converte();
|
||||
private
|
||||
object_: DLbls;
|
||||
end;
|
||||
|
||||
function DLblsUnitDecorator.Create(_obj: DLbls);
|
||||
begin
|
||||
class(DLbls).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DLblsUnitDecorator.Converte();
|
||||
begin
|
||||
self.SpPr := new SpPrUnitDecorator(object_.SpPr);
|
||||
self.ShowLegendKey := new PureValUnitDecorator(object_.ShowLegendKey);
|
||||
self.ShowVal := new PureValUnitDecorator(object_.ShowVal);
|
||||
self.ShowCatName := new PureValUnitDecorator(object_.ShowCatName);
|
||||
self.ShowSerName := new PureValUnitDecorator(object_.ShowSerName);
|
||||
self.ShowPercent := new PureValUnitDecorator(object_.ShowPercent);
|
||||
self.ShowBubbleSize := new PureValUnitDecorator(object_.ShowBubbleSize);
|
||||
self.ShowLeaderLines := new PureValUnitDecorator(object_.ShowLeaderLines);
|
||||
self.ExtLst := new ExtLstUnitDecorator(object_.ExtLst);
|
||||
end;
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
type DTableUnitDecorator = class(DTable)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DTable);
|
||||
function Converte();
|
||||
private
|
||||
object_: DTable;
|
||||
end;
|
||||
|
||||
function DTableUnitDecorator.Create(_obj: DTable);
|
||||
begin
|
||||
class(DTable).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DTableUnitDecorator.Converte();
|
||||
begin
|
||||
self.ShowHorzBorder := new PureValUnitDecorator(object_.ShowHorzBorder);
|
||||
self.ShowVertBorder := new PureValUnitDecorator(object_.ShowVertBorder);
|
||||
self.ShowOutline := new PureValUnitDecorator(object_.ShowOutline);
|
||||
self.ShowKeys := new PureValUnitDecorator(object_.ShowKeys);
|
||||
self.TxPr := new TxPrUnitDecorator(object_.TxPr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type DefaultUnitDecorator = class(Default)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Default);
|
||||
function Converte();
|
||||
private
|
||||
object_: Default;
|
||||
end;
|
||||
|
||||
function DefaultUnitDecorator.Create(_obj: Default);
|
||||
begin
|
||||
class(Default).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DefaultUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrExtension.Value := object_.XmlAttrExtension.Value;
|
||||
self.XmlAttrContentType.Value := object_.XmlAttrContentType.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type DocDefaultsUnitDecorator = class(DocDefaults)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocDefaults);
|
||||
function Converte();
|
||||
private
|
||||
object_: DocDefaults;
|
||||
end;
|
||||
|
||||
function DocDefaultsUnitDecorator.Create(_obj: DocDefaults);
|
||||
begin
|
||||
class(DocDefaults).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DocDefaultsUnitDecorator.Converte();
|
||||
begin
|
||||
self.RPrDefault := new RPrDefaultUnitDecorator(object_.RPrDefault);
|
||||
self.PPrDefault := new PPrDefaultUnitDecorator(object_.PPrDefault);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type DocGridUnitDecorator = class(DocGrid)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocGrid);
|
||||
function Converte();
|
||||
private
|
||||
object_: DocGrid;
|
||||
end;
|
||||
|
||||
function DocGridUnitDecorator.Create(_obj: DocGrid);
|
||||
begin
|
||||
class(DocGrid).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DocGridUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
self.XmlAttrLinePitch.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLinePitch.Value);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type DocPartObjUnitDecorator = class(DocPartObj)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocPartObj);
|
||||
function Converte();
|
||||
private
|
||||
object_: DocPartObj;
|
||||
end;
|
||||
|
||||
function DocPartObjUnitDecorator.Create(_obj: DocPartObj);
|
||||
begin
|
||||
class(DocPartObj).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DocPartObjUnitDecorator.Converte();
|
||||
begin
|
||||
self.DocPartGallery := new PureWValUnitDecorator(object_.DocPartGallery);
|
||||
self.DocPartUnique := new PureValUnitDecorator(object_.DocPartUnique);
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type DocPrUnitDecorator = class(DocPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: DocPr;
|
||||
end;
|
||||
|
||||
function DocPrUnitDecorator.Create(_obj: DocPr);
|
||||
begin
|
||||
class(DocPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DocPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
type DocumentUnitDecorator = class(Document)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Document);
|
||||
function Converte();
|
||||
private
|
||||
object_: Document;
|
||||
end;
|
||||
|
||||
function DocumentUnitDecorator.Create(_obj: Document);
|
||||
begin
|
||||
class(Document).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DocumentUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
|
||||
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
|
||||
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
|
||||
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
|
||||
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
|
||||
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
|
||||
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
|
||||
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
|
||||
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
self.Body := new BodyUnitDecorator(object_.Body);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type DrawingUnitDecorator = class(Drawing)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Drawing);
|
||||
function Converte();
|
||||
private
|
||||
object_: Drawing;
|
||||
end;
|
||||
|
||||
function DrawingUnitDecorator.Create(_obj: Drawing);
|
||||
begin
|
||||
class(Drawing).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function DrawingUnitDecorator.Converte();
|
||||
begin
|
||||
self._Inline := new _InlineUnitDecorator(object_._Inline);
|
||||
end;
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
type EffectExtentUnitDecorator = class(EffectExtent)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectExtent);
|
||||
function Converte();
|
||||
private
|
||||
object_: EffectExtent;
|
||||
end;
|
||||
|
||||
function EffectExtentUnitDecorator.Create(_obj: EffectExtent);
|
||||
begin
|
||||
class(EffectExtent).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function EffectExtentUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrL.Value := object_.XmlAttrL.Value;
|
||||
self.XmlAttrT.Value := object_.XmlAttrT.Value;
|
||||
self.XmlAttrR.Value := object_.XmlAttrR.Value;
|
||||
self.XmlAttrB.Value := object_.XmlAttrB.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type EffectLstUnitDecorator = class(EffectLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectLst);
|
||||
function Converte();
|
||||
private
|
||||
object_: EffectLst;
|
||||
end;
|
||||
|
||||
function EffectLstUnitDecorator.Create(_obj: EffectLst);
|
||||
begin
|
||||
class(EffectLst).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function EffectLstUnitDecorator.Converte();
|
||||
begin
|
||||
self.OuterShdw := new OuterShdwUnitDecorator(object_.OuterShdw);
|
||||
end;
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
type EffectStyleLstUnitDecorator = class(EffectStyleLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectStyleLst);
|
||||
function Converte();
|
||||
private
|
||||
object_: EffectStyleLst;
|
||||
end;
|
||||
|
||||
function EffectStyleLstUnitDecorator.Create(_obj: EffectStyleLst);
|
||||
begin
|
||||
class(EffectStyleLst).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function EffectStyleLstUnitDecorator.Converte();
|
||||
begin
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type EffectStyleUnitDecorator = class(EffectStyle)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectStyle);
|
||||
function Converte();
|
||||
private
|
||||
object_: EffectStyle;
|
||||
end;
|
||||
|
||||
function EffectStyleUnitDecorator.Create(_obj: EffectStyle);
|
||||
begin
|
||||
class(EffectStyle).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function EffectStyleUnitDecorator.Converte();
|
||||
begin
|
||||
self.EffectLst := new EffectLstUnitDecorator(object_.EffectLst);
|
||||
end;
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
type EndnotePrUnitDecorator = class(EndnotePr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EndnotePr);
|
||||
function Converte();
|
||||
private
|
||||
object_: EndnotePr;
|
||||
end;
|
||||
|
||||
function EndnotePrUnitDecorator.Create(_obj: EndnotePr);
|
||||
begin
|
||||
class(EndnotePr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function EndnotePrUnitDecorator.Converte();
|
||||
begin
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type EndnoteUnitDecorator = class(Endnote)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Endnote);
|
||||
function Converte();
|
||||
private
|
||||
object_: Endnote;
|
||||
end;
|
||||
|
||||
function EndnoteUnitDecorator.Create(_obj: Endnote);
|
||||
begin
|
||||
class(Endnote).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function EndnoteUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,52 @@
|
|||
type EndnotesUnitDecorator = class(Endnotes)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Endnotes);
|
||||
function Converte();
|
||||
private
|
||||
object_: Endnotes;
|
||||
end;
|
||||
|
||||
function EndnotesUnitDecorator.Create(_obj: Endnotes);
|
||||
begin
|
||||
class(Endnotes).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function EndnotesUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
|
||||
self.XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value;
|
||||
self.XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value;
|
||||
self.XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value;
|
||||
self.XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value;
|
||||
self.XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value;
|
||||
self.XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value;
|
||||
self.XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value;
|
||||
self.XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value;
|
||||
self.XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value;
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value;
|
||||
self.XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value;
|
||||
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
|
||||
self.XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
|
||||
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
|
||||
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
|
||||
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
|
||||
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
|
||||
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
|
||||
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
|
||||
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
|
||||
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
|
||||
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
|
||||
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
|
||||
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
|
||||
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
type ExtLstUnitDecorator = class(ExtLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ExtLst);
|
||||
function Converte();
|
||||
private
|
||||
object_: ExtLst;
|
||||
end;
|
||||
|
||||
function ExtLstUnitDecorator.Create(_obj: ExtLst);
|
||||
begin
|
||||
class(ExtLst).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ExtLstUnitDecorator.Converte();
|
||||
begin
|
||||
end;
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
type ExtUnitDecorator = class(Ext)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ext);
|
||||
function Converte();
|
||||
private
|
||||
object_: Ext;
|
||||
end;
|
||||
|
||||
function ExtUnitDecorator.Create(_obj: Ext);
|
||||
begin
|
||||
class(Ext).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ExtUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrUri.Value := object_.XmlAttrUri.Value;
|
||||
self.XmlAttrXmlnsC16.Value := object_.XmlAttrXmlnsC16.Value;
|
||||
self.Thm15ThemeFamily := new ThemeFamilyUnitDecorator(object_.Thm15ThemeFamily);
|
||||
self.UniqueId := new PureValUnitDecorator(object_.UniqueId);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type ExternalDataUnitDecorator = class(ExternalData)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ExternalData);
|
||||
function Converte();
|
||||
private
|
||||
object_: ExternalData;
|
||||
end;
|
||||
|
||||
function ExternalDataUnitDecorator.Create(_obj: ExternalData);
|
||||
begin
|
||||
class(ExternalData).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ExternalDataUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
self.AutoUpdate := new PureValUnitDecorator(object_.AutoUpdate);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type FallbackUnitDecorator = class(Fallback)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Fallback);
|
||||
function Converte();
|
||||
private
|
||||
object_: Fallback;
|
||||
end;
|
||||
|
||||
function FallbackUnitDecorator.Create(_obj: Fallback);
|
||||
begin
|
||||
class(Fallback).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FallbackUnitDecorator.Converte();
|
||||
begin
|
||||
self.Style := new PureValUnitDecorator(object_.Style);
|
||||
end;
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
type FillStyleLstUnitDecorator = class(FillStyleLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FillStyleLst);
|
||||
function Converte();
|
||||
private
|
||||
object_: FillStyleLst;
|
||||
end;
|
||||
|
||||
function FillStyleLstUnitDecorator.Create(_obj: FillStyleLst);
|
||||
begin
|
||||
class(FillStyleLst).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FillStyleLstUnitDecorator.Converte();
|
||||
begin
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type FldCharUnitDecorator = class(FldChar)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FldChar);
|
||||
function Converte();
|
||||
private
|
||||
object_: FldChar;
|
||||
end;
|
||||
|
||||
function FldCharUnitDecorator.Create(_obj: FldChar);
|
||||
begin
|
||||
class(FldChar).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FldCharUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrFldCharType.Value := object_.XmlAttrFldCharType.Value;
|
||||
self.XmlAttrDirty.Value := object_.XmlAttrDirty.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
type FmtSchemeUnitDecorator = class(FmtScheme)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FmtScheme);
|
||||
function Converte();
|
||||
private
|
||||
object_: FmtScheme;
|
||||
end;
|
||||
|
||||
function FmtSchemeUnitDecorator.Create(_obj: FmtScheme);
|
||||
begin
|
||||
class(FmtScheme).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FmtSchemeUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.FillStyleLst := new FillStyleLstUnitDecorator(object_.FillStyleLst);
|
||||
self.LnStyleLst := new LnStyleLstUnitDecorator(object_.LnStyleLst);
|
||||
self.EffectStyleLst := new EffectStyleLstUnitDecorator(object_.EffectStyleLst);
|
||||
self.BgFillStyleLst := new FillStyleLstUnitDecorator(object_.BgFillStyleLst);
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type FontSchemeUnitDecorator = class(FontScheme)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FontScheme);
|
||||
function Converte();
|
||||
private
|
||||
object_: FontScheme;
|
||||
end;
|
||||
|
||||
function FontSchemeUnitDecorator.Create(_obj: FontScheme);
|
||||
begin
|
||||
class(FontScheme).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FontSchemeUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.Majorfont := new MfontUnitDecorator(object_.Majorfont);
|
||||
self.Minorfont := new MfontUnitDecorator(object_.Minorfont);
|
||||
end;
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
type FontUnitDecorator = class(Font)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Font);
|
||||
function Converte();
|
||||
private
|
||||
object_: Font;
|
||||
end;
|
||||
|
||||
function FontUnitDecorator.Create(_obj: Font);
|
||||
begin
|
||||
class(Font).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FontUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.AltName := new PureWValUnitDecorator(object_.AltName);
|
||||
self.Panosel := new PureWValUnitDecorator(object_.Panosel);
|
||||
self.Charset := new PureWValUnitDecorator(object_.Charset);
|
||||
self.Family := new PureWValUnitDecorator(object_.Family);
|
||||
self.Pitch := new PureWValUnitDecorator(object_.Pitch);
|
||||
self.Sig := new SigUnitDecorator(object_.Sig);
|
||||
end;
|
||||
|
|
@ -0,0 +1,31 @@
|
|||
type FontsUnitDecorator = class(Fonts)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Fonts);
|
||||
function Converte();
|
||||
private
|
||||
object_: Fonts;
|
||||
end;
|
||||
|
||||
function FontsUnitDecorator.Create(_obj: Fonts);
|
||||
begin
|
||||
class(Fonts).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FontsUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
|
||||
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
|
||||
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
|
||||
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
|
||||
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
|
||||
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
type FootnotePrUnitDecorator = class(FootnotePr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FootnotePr);
|
||||
function Converte();
|
||||
private
|
||||
object_: FootnotePr;
|
||||
end;
|
||||
|
||||
function FootnotePrUnitDecorator.Create(_obj: FootnotePr);
|
||||
begin
|
||||
class(FootnotePr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FootnotePrUnitDecorator.Converte();
|
||||
begin
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type FootnoteUnitDecorator = class(Footnote)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Footnote);
|
||||
function Converte();
|
||||
private
|
||||
object_: Footnote;
|
||||
end;
|
||||
|
||||
function FootnoteUnitDecorator.Create(_obj: Footnote);
|
||||
begin
|
||||
class(Footnote).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FootnoteUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,52 @@
|
|||
type FootnotesUnitDecorator = class(Footnotes)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Footnotes);
|
||||
function Converte();
|
||||
private
|
||||
object_: Footnotes;
|
||||
end;
|
||||
|
||||
function FootnotesUnitDecorator.Create(_obj: Footnotes);
|
||||
begin
|
||||
class(Footnotes).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FootnotesUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
|
||||
self.XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value;
|
||||
self.XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value;
|
||||
self.XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value;
|
||||
self.XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value;
|
||||
self.XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value;
|
||||
self.XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value;
|
||||
self.XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value;
|
||||
self.XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value;
|
||||
self.XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value;
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value;
|
||||
self.XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value;
|
||||
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
|
||||
self.XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
|
||||
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
|
||||
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
|
||||
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
|
||||
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
|
||||
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
|
||||
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
|
||||
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
|
||||
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
|
||||
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
|
||||
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
|
||||
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
|
||||
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,34 @@
|
|||
type FtrUnitDecorator = class(Ftr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ftr);
|
||||
function Converte();
|
||||
private
|
||||
object_: Ftr;
|
||||
end;
|
||||
|
||||
function FtrUnitDecorator.Create(_obj: Ftr);
|
||||
begin
|
||||
class(Ftr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function FtrUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.XmlAttrXmlnsMo.Value := object_.XmlAttrXmlnsMo.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
|
||||
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
|
||||
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
|
||||
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
|
||||
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
|
||||
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
|
||||
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
|
||||
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
|
||||
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
|
||||
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type GradFillUnitDecorator = class(GradFill)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GradFill);
|
||||
function Converte();
|
||||
private
|
||||
object_: GradFill;
|
||||
end;
|
||||
|
||||
function GradFillUnitDecorator.Create(_obj: GradFill);
|
||||
begin
|
||||
class(GradFill).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function GradFillUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrRotWithShape.Value := object_.XmlAttrRotWithShape.Value;
|
||||
self.GsLst := new GsLstUnitDecorator(object_.GsLst);
|
||||
self.Lin := new LinUnitDecorator(object_.Lin);
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type GraphicDataUnitDecorator = class(GraphicData)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GraphicData);
|
||||
function Converte();
|
||||
private
|
||||
object_: GraphicData;
|
||||
end;
|
||||
|
||||
function GraphicDataUnitDecorator.Create(_obj: GraphicData);
|
||||
begin
|
||||
class(GraphicData).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function GraphicDataUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrUri.Value := object_.XmlAttrUri.Value;
|
||||
self.Pic := new PicUnitDecorator(object_.Pic);
|
||||
self.Chart := new ChartUnitDecorator(object_.Chart);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type GraphicFrameLocksUnitDecorator = class(GraphicFrameLocks)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GraphicFrameLocks);
|
||||
function Converte();
|
||||
private
|
||||
object_: GraphicFrameLocks;
|
||||
end;
|
||||
|
||||
function GraphicFrameLocksUnitDecorator.Create(_obj: GraphicFrameLocks);
|
||||
begin
|
||||
class(GraphicFrameLocks).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function GraphicFrameLocksUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrNoChangeAspect.Value := object_.XmlAttrNoChangeAspect.Value;
|
||||
self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type GraphicUnitDecorator = class(Graphic)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Graphic);
|
||||
function Converte();
|
||||
private
|
||||
object_: Graphic;
|
||||
end;
|
||||
|
||||
function GraphicUnitDecorator.Create(_obj: Graphic);
|
||||
begin
|
||||
class(Graphic).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function GraphicUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
|
||||
self.GraphicData := new GraphicDataUnitDecorator(object_.GraphicData);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type GridColUnitDecorator = class(GridCol)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GridCol);
|
||||
function Converte();
|
||||
private
|
||||
object_: GridCol;
|
||||
end;
|
||||
|
||||
function GridColUnitDecorator.Create(_obj: GridCol);
|
||||
begin
|
||||
class(GridCol).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function GridColUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrw.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value);
|
||||
end;
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
type GsLstUnitDecorator = class(GsLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GsLst);
|
||||
function Converte();
|
||||
private
|
||||
object_: GsLst;
|
||||
end;
|
||||
|
||||
function GsLstUnitDecorator.Create(_obj: GsLst);
|
||||
begin
|
||||
class(GsLst).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function GsLstUnitDecorator.Converte();
|
||||
begin
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type GsUnitDecorator = class(Gs)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Gs);
|
||||
function Converte();
|
||||
private
|
||||
object_: Gs;
|
||||
end;
|
||||
|
||||
function GsUnitDecorator.Create(_obj: Gs);
|
||||
begin
|
||||
class(Gs).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function GsUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrPos.Value := object_.XmlAttrPos.Value;
|
||||
self.SchemeClr := new SchemeClrUnitDecorator(object_.SchemeClr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type HdrShapeDefaultsUnitDecorator = class(HdrShapeDefaults)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: HdrShapeDefaults);
|
||||
function Converte();
|
||||
private
|
||||
object_: HdrShapeDefaults;
|
||||
end;
|
||||
|
||||
function HdrShapeDefaultsUnitDecorator.Create(_obj: HdrShapeDefaults);
|
||||
begin
|
||||
class(HdrShapeDefaults).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function HdrShapeDefaultsUnitDecorator.Converte();
|
||||
begin
|
||||
self.ShapeDefaults := new ShapeDefaultsUnitDecorator(object_.ShapeDefaults);
|
||||
end;
|
||||
|
|
@ -0,0 +1,34 @@
|
|||
type HdrUnitDecorator = class(Hdr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Hdr);
|
||||
function Converte();
|
||||
private
|
||||
object_: Hdr;
|
||||
end;
|
||||
|
||||
function HdrUnitDecorator.Create(_obj: Hdr);
|
||||
begin
|
||||
class(Hdr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function HdrUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.XmlAttrXmlnsMo.Value := object_.XmlAttrXmlnsMo.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
|
||||
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
|
||||
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
|
||||
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
|
||||
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
|
||||
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
|
||||
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
|
||||
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
|
||||
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
|
||||
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type HyperLinkUnitDecorator = class(HyperLink)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: HyperLink);
|
||||
function Converte();
|
||||
private
|
||||
object_: HyperLink;
|
||||
end;
|
||||
|
||||
function HyperLinkUnitDecorator.Create(_obj: HyperLink);
|
||||
begin
|
||||
class(HyperLink).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function HyperLinkUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
self.XmlAttrHistory.Value := object_.XmlAttrHistory.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type IdMapUnitDecorator = class(IdMap)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: IdMap);
|
||||
function Converte();
|
||||
private
|
||||
object_: IdMap;
|
||||
end;
|
||||
|
||||
function IdMapUnitDecorator.Create(_obj: IdMap);
|
||||
begin
|
||||
class(IdMap).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function IdMapUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrExt.Value := object_.XmlAttrExt.Value;
|
||||
self.XmlAttrData.Value := object_.XmlAttrData.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
type IndUnitDecorator = class(Ind)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ind);
|
||||
function Converte();
|
||||
private
|
||||
object_: Ind;
|
||||
end;
|
||||
|
||||
function IndUnitDecorator.Create(_obj: Ind);
|
||||
begin
|
||||
class(Ind).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function IndUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrFirstLineChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrFirstLineChars.Value);
|
||||
self.XmlAttrFirstLine.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrFirstLine.Value);
|
||||
self.XmlAttrRightChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrRightChars.Value);
|
||||
self.XmlAttrRight.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrRight.Value);
|
||||
self.XmlAttrLeftChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrLeftChars.Value);
|
||||
self.XmlAttrLeft.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLeft.Value);
|
||||
self.XmlAttrHanging.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrHanging.Value);
|
||||
self.XmlAttrHangingChars.Value := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrHangingChars.Value);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type InstrTextUnitDecorator = class(InstrText)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: InstrText);
|
||||
function Converte();
|
||||
private
|
||||
object_: InstrText;
|
||||
end;
|
||||
|
||||
function InstrTextUnitDecorator.Create(_obj: InstrText);
|
||||
begin
|
||||
class(InstrText).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function InstrTextUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrSpace.Value := object_.XmlAttrSpace.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type LangUnitDecorator = class(Lang)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Lang);
|
||||
function Converte();
|
||||
private
|
||||
object_: Lang;
|
||||
end;
|
||||
|
||||
function LangUnitDecorator.Create(_obj: Lang);
|
||||
begin
|
||||
class(Lang).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LangUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
self.XmlAttrEastAsia.Value := object_.XmlAttrEastAsia.Value;
|
||||
self.XmlAttrBidi.Value := object_.XmlAttrBidi.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
type LatenStylesUnitDecorator = class(LatenStyles)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: LatenStyles);
|
||||
function Converte();
|
||||
private
|
||||
object_: LatenStyles;
|
||||
end;
|
||||
|
||||
function LatenStylesUnitDecorator.Create(_obj: LatenStyles);
|
||||
begin
|
||||
class(LatenStyles).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LatenStylesUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrDefLickedState.Value := object_.XmlAttrDefLickedState.Value;
|
||||
self.XmlAttrDefUIPriority.Value := object_.XmlAttrDefUIPriority.Value;
|
||||
self.XmlAttrDefSemiHidden.Value := object_.XmlAttrDefSemiHidden.Value;
|
||||
self.XmlAttrDefUnhideWhenUsed.Value := object_.XmlAttrDefUnhideWhenUsed.Value;
|
||||
self.XmlAttrDefQFormat.Value := object_.XmlAttrDefQFormat.Value;
|
||||
self.XmlAttrCount.Value := object_.XmlAttrCount.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type LatinUnitDecorator = class(Latin)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Latin);
|
||||
function Converte();
|
||||
private
|
||||
object_: Latin;
|
||||
end;
|
||||
|
||||
function LatinUnitDecorator.Create(_obj: Latin);
|
||||
begin
|
||||
class(Latin).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LatinUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
|
||||
self.XmlAttrPanose.Value := object_.XmlAttrPanose.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
type LegendUnitDecorator = class(Legend)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Legend);
|
||||
function Converte();
|
||||
private
|
||||
object_: Legend;
|
||||
end;
|
||||
|
||||
function LegendUnitDecorator.Create(_obj: Legend);
|
||||
begin
|
||||
class(Legend).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LegendUnitDecorator.Converte();
|
||||
begin
|
||||
self.LegendPos := new PureValUnitDecorator(object_.LegendPos);
|
||||
if not ifnil(object_.XmlChildLayout.Value) then self.XmlChildLayout.Value := object_.XmlChildLayout.Value;
|
||||
self.Overlay := new PureValUnitDecorator(object_.Overlay);
|
||||
self.TxPr := new TxPrUnitDecorator(object_.TxPr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type LinUnitDecorator = class(Lin)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Lin);
|
||||
function Converte();
|
||||
private
|
||||
object_: Lin;
|
||||
end;
|
||||
|
||||
function LinUnitDecorator.Create(_obj: Lin);
|
||||
begin
|
||||
class(Lin).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LinUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrAng.Value := object_.XmlAttrAng.Value;
|
||||
self.XmlAttrScaled.Value := object_.XmlAttrScaled.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
type LnStyleLstUnitDecorator = class(LnStyleLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: LnStyleLst);
|
||||
function Converte();
|
||||
private
|
||||
object_: LnStyleLst;
|
||||
end;
|
||||
|
||||
function LnStyleLstUnitDecorator.Create(_obj: LnStyleLst);
|
||||
begin
|
||||
class(LnStyleLst).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LnStyleLstUnitDecorator.Converte();
|
||||
begin
|
||||
end;
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
type LnUnitDecorator = class(Ln)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ln);
|
||||
function Converte();
|
||||
private
|
||||
object_: Ln;
|
||||
end;
|
||||
|
||||
function LnUnitDecorator.Create(_obj: Ln);
|
||||
begin
|
||||
class(Ln).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LnUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrW.Value := object_.XmlAttrW.Value;
|
||||
self.XmlAttrCap.Value := object_.XmlAttrCap.Value;
|
||||
self.XmlAttrCmpd.Value := object_.XmlAttrCmpd.Value;
|
||||
self.XmlAttrAlgn.Value := object_.XmlAttrAlgn.Value;
|
||||
self.SolidFill := new SolidFillUnitDecorator(object_.SolidFill);
|
||||
self.PrstDash := new PureValUnitDecorator(object_.PrstDash);
|
||||
self.Miter := new MiterUnitDecorator(object_.Miter);
|
||||
end;
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
type LsdExceptionUnitDecorator = class(LsdException)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: LsdException);
|
||||
function Converte();
|
||||
private
|
||||
object_: LsdException;
|
||||
end;
|
||||
|
||||
function LsdExceptionUnitDecorator.Create(_obj: LsdException);
|
||||
begin
|
||||
class(LsdException).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LsdExceptionUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
self.XmlAttrUIPriority.Value := object_.XmlAttrUIPriority.Value;
|
||||
self.XmlAttrSemiHidden.Value := object_.XmlAttrSemiHidden.Value;
|
||||
self.XmlAttrUnhideWhenUsed.Value := object_.XmlAttrUnhideWhenUsed.Value;
|
||||
self.XmlAttrQFormat.Value := object_.XmlAttrQFormat.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
type LvlUnitDecorator = class(Lvl)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Lvl);
|
||||
function Converte();
|
||||
private
|
||||
object_: Lvl;
|
||||
end;
|
||||
|
||||
function LvlUnitDecorator.Create(_obj: Lvl);
|
||||
begin
|
||||
class(Lvl).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function LvlUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrIlvl.Value := object_.XmlAttrIlvl.Value;
|
||||
self.XmlAttrTentative.Value := object_.XmlAttrTentative.Value;
|
||||
self.Start := new PureWValUnitDecorator(object_.Start);
|
||||
self.NumFmt := new PureWValUnitDecorator(object_.NumFmt);
|
||||
self.PStyle := new PureWValUnitDecorator(object_.PStyle);
|
||||
self.Suff := new PureWValUnitDecorator(object_.Suff);
|
||||
self.LvlText := new PureWValUnitDecorator(object_.LvlText);
|
||||
self.LvlJc := new PureWValUnitDecorator(object_.LvlJc);
|
||||
self.PPr := new PPrUnitDecorator(object_.PPr);
|
||||
self.RPr := new RPrUnitDecorator(object_.RPr);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type MFontFontUnitDecorator = class(MFontFont)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: MFontFont);
|
||||
function Converte();
|
||||
private
|
||||
object_: MFontFont;
|
||||
end;
|
||||
|
||||
function MFontFontUnitDecorator.Create(_obj: MFontFont);
|
||||
begin
|
||||
class(MFontFont).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function MFontFontUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrScript.Value := object_.XmlAttrScript.Value;
|
||||
self.XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
type MFontUnitDecorator = class(MFont)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: MFont);
|
||||
function Converte();
|
||||
private
|
||||
object_: MFont;
|
||||
end;
|
||||
|
||||
function MFontUnitDecorator.Create(_obj: MFont);
|
||||
begin
|
||||
class(MFont).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function MFontUnitDecorator.Converte();
|
||||
begin
|
||||
self.Latin := new LatinUnitDecorator(object_.Latin);
|
||||
self.Ea := new LatinUnitDecorator(object_.Ea);
|
||||
self.Cs := new LatinUnitDecorator(object_.Cs);
|
||||
end;
|
||||
|
|
@ -0,0 +1,30 @@
|
|||
type MathPrUnitDecorator = class(MathPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: MathPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: MathPr;
|
||||
end;
|
||||
|
||||
function MathPrUnitDecorator.Create(_obj: MathPr);
|
||||
begin
|
||||
class(MathPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function MathPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.MathFont := new PureWValUnitDecorator(object_.MathFont);
|
||||
self.BrkBin := new PureWValUnitDecorator(object_.BrkBin);
|
||||
self.BrkBinSub := new PureWValUnitDecorator(object_.BrkBinSub);
|
||||
self.SmallFrac := new PureWValUnitDecorator(object_.SmallFrac);
|
||||
if not ifnil(object_.XmlChildDispDef.Value) then self.XmlChildDispDef.Value := object_.XmlChildDispDef.Value;
|
||||
self.LMargin := new PureWValUnitDecorator(object_.LMargin);
|
||||
self.RMargin := new PureWValUnitDecorator(object_.RMargin);
|
||||
self.DefJc := new PureWValUnitDecorator(object_.DefJc);
|
||||
self.WrapIndent := new PureWValUnitDecorator(object_.WrapIndent);
|
||||
self.IntLim := new PureWValUnitDecorator(object_.IntLim);
|
||||
self.NaryLim := new PureWValUnitDecorator(object_.NaryLim);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type MiterUnitDecorator = class(Miter)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Miter);
|
||||
function Converte();
|
||||
private
|
||||
object_: Miter;
|
||||
end;
|
||||
|
||||
function MiterUnitDecorator.Create(_obj: Miter);
|
||||
begin
|
||||
class(Miter).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function MiterUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrLim.Value := object_.XmlAttrLim.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type ModifiedUnitDecorator = class(Modified)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Modified);
|
||||
function Converte();
|
||||
private
|
||||
object_: Modified;
|
||||
end;
|
||||
|
||||
function ModifiedUnitDecorator.Create(_obj: Modified);
|
||||
begin
|
||||
class(Modified).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function ModifiedUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type NumFmtUnitDecorator = class(NumFmt)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: NumFmt);
|
||||
function Converte();
|
||||
private
|
||||
object_: NumFmt;
|
||||
end;
|
||||
|
||||
function NumFmtUnitDecorator.Create(_obj: NumFmt);
|
||||
begin
|
||||
class(NumFmt).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function NumFmtUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrFormatCode.Value := object_.XmlAttrFormatCode.Value;
|
||||
self.XmlAttrSourceLinked.Value := object_.XmlAttrSourceLinked.Value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type NumPrUnitDecorator = class(NumPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: NumPr);
|
||||
function Converte();
|
||||
private
|
||||
object_: NumPr;
|
||||
end;
|
||||
|
||||
function NumPrUnitDecorator.Create(_obj: NumPr);
|
||||
begin
|
||||
class(NumPr).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function NumPrUnitDecorator.Converte();
|
||||
begin
|
||||
self.Ilvl := new PureWValUnitDecorator(object_.Ilvl);
|
||||
self.NumId := new PureWValUnitDecorator(object_.NumId);
|
||||
end;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
type NumRefUnitDecorator = class(NumRef)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: NumRef);
|
||||
function Converte();
|
||||
private
|
||||
object_: NumRef;
|
||||
end;
|
||||
|
||||
function NumRefUnitDecorator.Create(_obj: NumRef);
|
||||
begin
|
||||
class(NumRef).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function NumRefUnitDecorator.Converte();
|
||||
begin
|
||||
self.NumCache := new CacheUnitDecorator(object_.NumCache);
|
||||
end;
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
type NumUnitDecorator = class(Num)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Num);
|
||||
function Converte();
|
||||
private
|
||||
object_: Num;
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.Create(_obj: Num);
|
||||
begin
|
||||
class(Num).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrNumId.Value := object_.XmlAttrNumId.Value;
|
||||
self.AbstractNumId := new PureWValUnitDecorator(object_.AbstractNumId);
|
||||
end;
|
||||
|
|
@ -0,0 +1,54 @@
|
|||
type NumberingUnitDecorator = class(Numbering)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Numbering);
|
||||
function Converte();
|
||||
private
|
||||
object_: Numbering;
|
||||
end;
|
||||
|
||||
function NumberingUnitDecorator.Create(_obj: Numbering);
|
||||
begin
|
||||
class(Numbering).Create();
|
||||
object_ := _obj;
|
||||
self.Converte();
|
||||
end;
|
||||
|
||||
function NumberingUnitDecorator.Converte();
|
||||
begin
|
||||
self.XmlAttrXmlnsWpc.Value := object_.XmlAttrXmlnsWpc.Value;
|
||||
self.XmlAttrXmlnsCx.Value := object_.XmlAttrXmlnsCx.Value;
|
||||
self.XmlAttrXmlnsCx1.Value := object_.XmlAttrXmlnsCx1.Value;
|
||||
self.XmlAttrXmlnsCx2.Value := object_.XmlAttrXmlnsCx2.Value;
|
||||
self.XmlAttrXmlnsCx3.Value := object_.XmlAttrXmlnsCx3.Value;
|
||||
self.XmlAttrXmlnsCx4.Value := object_.XmlAttrXmlnsCx4.Value;
|
||||
self.XmlAttrXmlnsCx5.Value := object_.XmlAttrXmlnsCx5.Value;
|
||||
self.XmlAttrXmlnsCx6.Value := object_.XmlAttrXmlnsCx6.Value;
|
||||
self.XmlAttrXmlnsCx7.Value := object_.XmlAttrXmlnsCx7.Value;
|
||||
self.XmlAttrXmlnsCx8.Value := object_.XmlAttrXmlnsCx8.Value;
|
||||
self.XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
self.XmlAttrXmlnsAink.Value := object_.XmlAttrXmlnsAink.Value;
|
||||
self.XmlAttrXmlnsAm3d.Value := object_.XmlAttrXmlnsAm3d.Value;
|
||||
self.XmlAttrXmlnsO.Value := object_.XmlAttrXmlnsO.Value;
|
||||
self.XmlAttrXmlnsOel.Value := object_.XmlAttrXmlnsOel.Value;
|
||||
self.XmlAttrXmlnsR.Value := object_.XmlAttrXmlnsR.Value;
|
||||
self.XmlAttrXmlnsM.Value := object_.XmlAttrXmlnsM.Value;
|
||||
self.XmlAttrXmlnsV.Value := object_.XmlAttrXmlnsV.Value;
|
||||
self.XmlAttrXmlnsWp14.Value := object_.XmlAttrXmlnsWp14.Value;
|
||||
self.XmlAttrXmlnsWp.Value := object_.XmlAttrXmlnsWp.Value;
|
||||
self.XmlAttrXmlnsW10.Value := object_.XmlAttrXmlnsW10.Value;
|
||||
self.XmlAttrXmlnsW.Value := object_.XmlAttrXmlnsW.Value;
|
||||
self.XmlAttrXmlnsW14.Value := object_.XmlAttrXmlnsW14.Value;
|
||||
self.XmlAttrXmlnsW15.Value := object_.XmlAttrXmlnsW15.Value;
|
||||
self.XmlAttrXmlnsW16Cex.Value := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
self.XmlAttrXmlnsW16Cid.Value := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
self.XmlAttrXmlnsW16.Value := object_.XmlAttrXmlnsW16.Value;
|
||||
self.XmlAttrXmlnsW16Du.Value := object_.XmlAttrXmlnsW16Du.Value;
|
||||
self.XmlAttrXmlnsW16sdtdh.Value := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
self.XmlAttrXmlnsW16se.Value := object_.XmlAttrXmlnsW16se.Value;
|
||||
self.XmlAttrXmlnsWpg.Value := object_.XmlAttrXmlnsWpg.Value;
|
||||
self.XmlAttrXmlnsWpi.Value := object_.XmlAttrXmlnsWpi.Value;
|
||||
self.XmlAttrXmlnsWne.Value := object_.XmlAttrXmlnsWne.Value;
|
||||
self.XmlAttrXmlnsWps.Value := object_.XmlAttrXmlnsWps.Value;
|
||||
self.XmlAttrMcIgnorable.Value := object_.XmlAttrMcIgnorable.Value;
|
||||
end;
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue