利用nil新特性进行性能优化
This commit is contained in:
parent
9101d13b21
commit
4b9b1451ca
|
|
@ -0,0 +1,36 @@
|
|||
type EndnotePrAdapter = class
|
||||
public
|
||||
function Create(_obj: EndnotePr);
|
||||
function Init();
|
||||
|
||||
function GetEndnoteById(_key: string);
|
||||
function SetEndnoteById(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: EndnotePr;
|
||||
endnote_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function EndnotePrAdapter.Create(_obj: EndnotePr);
|
||||
begin
|
||||
object_ := _obj;
|
||||
endnote_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function EndnotePrAdapter.Init();
|
||||
begin
|
||||
elements := object_.Endnotes();
|
||||
for k,v in elements do
|
||||
endnote_hash_[v.Id] := v;
|
||||
end;
|
||||
|
||||
function EndnotePrAdapter.GetEndnoteById(_key: string);
|
||||
begin
|
||||
return endnote_hash_[_key];
|
||||
end;
|
||||
|
||||
function EndnotePrAdapter.SetEndnoteById(_key: string; _value: tslobj);
|
||||
begin
|
||||
endnote_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
type EndnotesAdapter = class
|
||||
public
|
||||
function Create(_obj: Endnotes);
|
||||
function Init();
|
||||
|
||||
function GetEndnoteById(_key: string);
|
||||
function SetEndnoteById(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Endnotes;
|
||||
endnote_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function EndnotesAdapter.Create(_obj: Endnotes);
|
||||
begin
|
||||
object_ := _obj;
|
||||
endnote_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function EndnotesAdapter.Init();
|
||||
begin
|
||||
elements := object_.Endnotes();
|
||||
for k,v in elements do
|
||||
endnote_hash_[v.Id] := v;
|
||||
end;
|
||||
|
||||
function EndnotesAdapter.GetEndnoteById(_key: string);
|
||||
begin
|
||||
return endnote_hash_[_key];
|
||||
end;
|
||||
|
||||
function EndnotesAdapter.SetEndnoteById(_key: string; _value: tslobj);
|
||||
begin
|
||||
endnote_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
type FootnotePrAdapter = class
|
||||
public
|
||||
function Create(_obj: FootnotePr);
|
||||
function Init();
|
||||
|
||||
function GetFootnoteById(_key: string);
|
||||
function SetFootnoteById(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: FootnotePr;
|
||||
footnote_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function FootnotePrAdapter.Create(_obj: FootnotePr);
|
||||
begin
|
||||
object_ := _obj;
|
||||
footnote_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function FootnotePrAdapter.Init();
|
||||
begin
|
||||
elements := object_.Footnotes();
|
||||
for k,v in elements do
|
||||
footnote_hash_[v.Id] := v;
|
||||
end;
|
||||
|
||||
function FootnotePrAdapter.GetFootnoteById(_key: string);
|
||||
begin
|
||||
return footnote_hash_[_key];
|
||||
end;
|
||||
|
||||
function FootnotePrAdapter.SetFootnoteById(_key: string; _value: tslobj);
|
||||
begin
|
||||
footnote_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
type FootnotesAdapter = class
|
||||
public
|
||||
function Create(_obj: Footnotes);
|
||||
function Init();
|
||||
|
||||
function GetFootnoteById(_key: string);
|
||||
function SetFootnoteById(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Footnotes;
|
||||
footnote_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function FootnotesAdapter.Create(_obj: Footnotes);
|
||||
begin
|
||||
object_ := _obj;
|
||||
footnote_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function FootnotesAdapter.Init();
|
||||
begin
|
||||
elements := object_.Footnotes();
|
||||
for k,v in elements do
|
||||
footnote_hash_[v.Id] := v;
|
||||
end;
|
||||
|
||||
function FootnotesAdapter.GetFootnoteById(_key: string);
|
||||
begin
|
||||
return footnote_hash_[_key];
|
||||
end;
|
||||
|
||||
function FootnotesAdapter.SetFootnoteById(_key: string; _value: tslobj);
|
||||
begin
|
||||
footnote_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function APPrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}DefRPr := new ARPrUnitDecorator(object_.DefRPr);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildDefRPr) then
|
||||
{self.}XmlChildDefRPr := new ARPrUnitDecorator(object_.XmlChildDefRPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,18 +22,35 @@ end;
|
|||
|
||||
function ARPrUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrLang) then
|
||||
{self.}Lang := object_.XmlAttrLang.Value;
|
||||
if not ifnil(object_.XmlAttrAltLang) then
|
||||
{self.}AltLang := object_.XmlAttrAltLang.Value;
|
||||
if not ifnil(object_.XmlAttrB) then
|
||||
{self.}B := object_.XmlAttrB.Value;
|
||||
if not ifnil(object_.XmlAttrBaseline) then
|
||||
{self.}Baseline := object_.XmlAttrBaseline.Value;
|
||||
if not ifnil(object_.XmlAttrI) then
|
||||
{self.}I := object_.XmlAttrI.Value;
|
||||
if not ifnil(object_.XmlAttrKern) then
|
||||
{self.}Kern := object_.XmlAttrKern.Value;
|
||||
if not ifnil(object_.XmlAttrSpc) then
|
||||
{self.}Spc := object_.XmlAttrSpc.Value;
|
||||
if not ifnil(object_.XmlAttrStrike) then
|
||||
{self.}Strike := object_.XmlAttrStrike.Value;
|
||||
if not ifnil(object_.XmlAttrSz) then
|
||||
{self.}Sz := object_.XmlAttrSz.Value;
|
||||
if not ifnil(object_.XmlAttrU) then
|
||||
{self.}U := object_.XmlAttrU.Value;
|
||||
if not ifnil(object_.XmlChildSolidFill) then
|
||||
{self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill);
|
||||
if not ifnil(object_.XmlChildLatin) then
|
||||
{self.}XmlChildLatin := new LatinUnitDecorator(object_.XmlChildLatin);
|
||||
if not ifnil(object_.XmlChildEa) then
|
||||
{self.}XmlChildEa := new LatinUnitDecorator(object_.XmlChildEa);
|
||||
if not ifnil(object_.XmlChildCs) then
|
||||
{self.}XmlChildCs := new LatinUnitDecorator(object_.XmlChildCs);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function ARUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}RPr := new ARPrUnitDecorator(object_.RPr);
|
||||
{self.}T := new TUnitDecorator(object_.T);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildRPr) then
|
||||
{self.}XmlChildRPr := new ARPrUnitDecorator(object_.XmlChildRPr);
|
||||
if not ifnil(object_.XmlChildT) then
|
||||
{self.}XmlChildT := new TUnitDecorator(object_.XmlChildT);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,9 +22,17 @@ end;
|
|||
|
||||
function AbstractNumUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrAbstractNumId) then
|
||||
{self.}AbstractNumId := object_.XmlAttrAbstractNumId.Value;
|
||||
if not ifnil(object_.XmlAttrRestartNumberingAfterBreak) then
|
||||
{self.}RestartNumberingAfterBreak := object_.XmlAttrRestartNumberingAfterBreak.Value;
|
||||
if not ifnil(object_.XmlChildNsid) then
|
||||
{self.}XmlChildNsid := new PureWValUnitDecorator(object_.XmlChildNsid);
|
||||
if not ifnil(object_.XmlChildMultiLevelType) then
|
||||
{self.}XmlChildMultiLevelType := new PureWValUnitDecorator(object_.XmlChildMultiLevelType);
|
||||
if not ifnil(object_.XmlChildTmpl) then
|
||||
{self.}XmlChildTmpl := new PureWValUnitDecorator(object_.XmlChildTmpl);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function AlternateContentUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrXmlnsMc.Value := object_.XmlAttrXmlnsMc.Value;
|
||||
{self.}Choice := new ChoiceUnitDecorator(object_.Choice);
|
||||
{self.}Fallback := new FallbackUnitDecorator(object_.Fallback);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsMc) then
|
||||
{self.}XmlnsMc := object_.XmlAttrXmlnsMc.Value;
|
||||
if not ifnil(object_.XmlChildChoice) then
|
||||
{self.}XmlChildChoice := new ChoiceUnitDecorator(object_.XmlChildChoice);
|
||||
if not ifnil(object_.XmlChildFallback) then
|
||||
{self.}XmlChildFallback := new FallbackUnitDecorator(object_.XmlChildFallback);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,27 +22,53 @@ end;
|
|||
|
||||
function AnchorUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrDistT.Value := object_.XmlAttrDistT.Value;
|
||||
{self.}XmlAttrDistB.Value := object_.XmlAttrDistB.Value;
|
||||
{self.}XmlAttrDistL.Value := object_.XmlAttrDistL.Value;
|
||||
{self.}XmlAttrDistR.Value := object_.XmlAttrDistR.Value;
|
||||
{self.}XmlAttrSimplePos.Value := object_.XmlAttrSimplePos.Value;
|
||||
{self.}XmlAttrRelativeHeight.Value := object_.XmlAttrRelativeHeight.Value;
|
||||
{self.}XmlAttrBehindDoc.Value := object_.XmlAttrBehindDoc.Value;
|
||||
{self.}XmlAttrLocked.Value := object_.XmlAttrLocked.Value;
|
||||
{self.}XmlAttrLayoutInCell.Value := object_.XmlAttrLayoutInCell.Value;
|
||||
{self.}XmlAttrAllowOverlap.Value := object_.XmlAttrAllowOverlap.Value;
|
||||
{self.}XmlAttrAnchorId.Value := object_.XmlAttrAnchorId.Value;
|
||||
{self.}XmlAttrEditId.Value := object_.XmlAttrEditId.Value;
|
||||
{self.}SimplePos := new XYUnitDecorator(object_.SimplePos);
|
||||
{self.}PositionH := new PositionHUnitDecorator(object_.PositionH);
|
||||
{self.}PositionV := new PositionVUnitDecorator(object_.PositionV);
|
||||
{self.}Extent := new CXYUnitDecorator(object_.Extent);
|
||||
{self.}EffectExtent := new EffectExtentUnitDecorator(object_.EffectExtent);
|
||||
if not ifnil(object_.XmlChildWrapNone.Value) then {self.}XmlChildWrapNone.Value := object_.XmlChildWrapNone.Value;
|
||||
{self.}DocPr := new DocPrUnitDecorator(object_.DocPr);
|
||||
{self.}CNvGraphicFramePr := new CNvGraphicFramePrUnitDecorator(object_.CNvGraphicFramePr);
|
||||
{self.}Graphic := new GraphicUnitDecorator(object_.Graphic);
|
||||
{self.}SizeRelH := new SizeRelHUnitDecorator(object_.SizeRelH);
|
||||
{self.}SizeRelV := new SizeRelVUnitDecorator(object_.SizeRelV);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrDistT) then
|
||||
{self.}DistT := object_.XmlAttrDistT.Value;
|
||||
if not ifnil(object_.XmlAttrDistB) then
|
||||
{self.}DistB := object_.XmlAttrDistB.Value;
|
||||
if not ifnil(object_.XmlAttrDistL) then
|
||||
{self.}DistL := object_.XmlAttrDistL.Value;
|
||||
if not ifnil(object_.XmlAttrDistR) then
|
||||
{self.}DistR := object_.XmlAttrDistR.Value;
|
||||
if not ifnil(object_.XmlAttrSimplePos) then
|
||||
{self.}SimplePos := object_.XmlAttrSimplePos.Value;
|
||||
if not ifnil(object_.XmlAttrRelativeHeight) then
|
||||
{self.}RelativeHeight := object_.XmlAttrRelativeHeight.Value;
|
||||
if not ifnil(object_.XmlAttrBehindDoc) then
|
||||
{self.}BehindDoc := object_.XmlAttrBehindDoc.Value;
|
||||
if not ifnil(object_.XmlAttrLocked) then
|
||||
{self.}Locked := object_.XmlAttrLocked.Value;
|
||||
if not ifnil(object_.XmlAttrLayoutInCell) then
|
||||
{self.}LayoutInCell := object_.XmlAttrLayoutInCell.Value;
|
||||
if not ifnil(object_.XmlAttrAllowOverlap) then
|
||||
{self.}AllowOverlap := object_.XmlAttrAllowOverlap.Value;
|
||||
if not ifnil(object_.XmlAttrAnchorId) then
|
||||
{self.}AnchorId := object_.XmlAttrAnchorId.Value;
|
||||
if not ifnil(object_.XmlAttrEditId) then
|
||||
{self.}EditId := object_.XmlAttrEditId.Value;
|
||||
if not ifnil(object_.XmlChildSimplePos) then
|
||||
{self.}XmlChildSimplePos := new XYUnitDecorator(object_.XmlChildSimplePos);
|
||||
if not ifnil(object_.XmlChildPositionH) then
|
||||
{self.}XmlChildPositionH := new PositionHUnitDecorator(object_.XmlChildPositionH);
|
||||
if not ifnil(object_.XmlChildPositionV) then
|
||||
{self.}XmlChildPositionV := new PositionVUnitDecorator(object_.XmlChildPositionV);
|
||||
if not ifnil(object_.XmlChildExtent) then
|
||||
{self.}XmlChildExtent := new CXYUnitDecorator(object_.XmlChildExtent);
|
||||
if not ifnil(object_.XmlChildEffectExtent) then
|
||||
{self.}XmlChildEffectExtent := new EffectExtentUnitDecorator(object_.XmlChildEffectExtent);
|
||||
if not ifnil(object_.XmlChildWrapNone) then
|
||||
{self.}WrapNone.Copy(object_.XmlChildWrapNone);
|
||||
if not ifnil(object_.XmlChildDocPr) then
|
||||
{self.}XmlChildDocPr := new DocPrUnitDecorator(object_.XmlChildDocPr);
|
||||
if not ifnil(object_.XmlChildCNvGraphicFramePr) then
|
||||
{self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePrUnitDecorator(object_.XmlChildCNvGraphicFramePr);
|
||||
if not ifnil(object_.XmlChildGraphic) then
|
||||
{self.}XmlChildGraphic := new GraphicUnitDecorator(object_.XmlChildGraphic);
|
||||
if not ifnil(object_.XmlChildSizeRelH) then
|
||||
{self.}XmlChildSizeRelH := new SizeRelHUnitDecorator(object_.XmlChildSizeRelH);
|
||||
if not ifnil(object_.XmlChildSizeRelV) then
|
||||
{self.}XmlChildSizeRelV := new SizeRelVUnitDecorator(object_.XmlChildSizeRelV);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function ApUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}PPr := new APPrUnitDecorator(object_.PPr);
|
||||
{self.}EndParaRPr := new ARPrUnitDecorator(object_.EndParaRPr);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildPPr) then
|
||||
{self.}XmlChildPPr := new APPrUnitDecorator(object_.XmlChildPPr);
|
||||
if not ifnil(object_.XmlChildEndParaRPr) then
|
||||
{self.}XmlChildEndParaRPr := new ARPrUnitDecorator(object_.XmlChildEndParaRPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,21 +22,41 @@ end;
|
|||
|
||||
function AxUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildAxId) then
|
||||
{self.}XmlChildAxId := new PureValUnitDecorator(object_.XmlChildAxId);
|
||||
if not ifnil(object_.XmlChildScaling) then
|
||||
{self.}XmlChildScaling := new ScalingUnitDecorator(object_.XmlChildScaling);
|
||||
if not ifnil(object_.XmlChild_Delete) then
|
||||
{self.}XmlChild_Delete := new PureValUnitDecorator(object_.XmlChild_Delete);
|
||||
if not ifnil(object_.XmlChildAxPos) then
|
||||
{self.}XmlChildAxPos := new PureValUnitDecorator(object_.XmlChildAxPos);
|
||||
if not ifnil(object_.XmlChildNumFmt) then
|
||||
{self.}XmlChildNumFmt := new NumFmtUnitDecorator(object_.XmlChildNumFmt);
|
||||
if not ifnil(object_.XmlChildMajorTickMark) then
|
||||
{self.}XmlChildMajorTickMark := new PureValUnitDecorator(object_.XmlChildMajorTickMark);
|
||||
if not ifnil(object_.XmlChildMinorTickMark) then
|
||||
{self.}XmlChildMinorTickMark := new PureValUnitDecorator(object_.XmlChildMinorTickMark);
|
||||
if not ifnil(object_.XmlChildTickLblPos) then
|
||||
{self.}XmlChildTickLblPos := new PureValUnitDecorator(object_.XmlChildTickLblPos);
|
||||
if not ifnil(object_.XmlChildSpPr) then
|
||||
{self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr);
|
||||
if not ifnil(object_.XmlChildTxPr) then
|
||||
{self.}XmlChildTxPr := new TxPrUnitDecorator(object_.XmlChildTxPr);
|
||||
if not ifnil(object_.XmlChildCrossAx) then
|
||||
{self.}XmlChildCrossAx := new PureValUnitDecorator(object_.XmlChildCrossAx);
|
||||
if not ifnil(object_.XmlChildCrosses) then
|
||||
{self.}XmlChildCrosses := new PureValUnitDecorator(object_.XmlChildCrosses);
|
||||
if not ifnil(object_.XmlChildCrossBetween) then
|
||||
{self.}XmlChildCrossBetween := new PureValUnitDecorator(object_.XmlChildCrossBetween);
|
||||
if not ifnil(object_.XmlChildAuto) then
|
||||
{self.}XmlChildAuto := new PureValUnitDecorator(object_.XmlChildAuto);
|
||||
if not ifnil(object_.XmlChildLblAlgn) then
|
||||
{self.}XmlChildLblAlgn := new PureValUnitDecorator(object_.XmlChildLblAlgn);
|
||||
if not ifnil(object_.XmlChildLblOffset) then
|
||||
{self.}XmlChildLblOffset := new PureValUnitDecorator(object_.XmlChildLblOffset);
|
||||
if not ifnil(object_.XmlChildNoMultiLvlLbl) then
|
||||
{self.}XmlChildNoMultiLvlLbl := new PureValUnitDecorator(object_.XmlChildNoMultiLvlLbl);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,8 +22,15 @@ end;
|
|||
|
||||
function BarChartUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildBarDir) then
|
||||
{self.}XmlChildBarDir := new PureValUnitDecorator(object_.XmlChildBarDir);
|
||||
if not ifnil(object_.XmlChildGrouping) then
|
||||
{self.}XmlChildGrouping := new PureValUnitDecorator(object_.XmlChildGrouping);
|
||||
if not ifnil(object_.XmlChildVaryColors) then
|
||||
{self.}XmlChildVaryColors := new PureValUnitDecorator(object_.XmlChildVaryColors);
|
||||
if not ifnil(object_.XmlChildGapWidth) then
|
||||
{self.}XmlChildGapWidth := new PureValUnitDecorator(object_.XmlChildGapWidth);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function BlipFillUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}Blip := new BlipUnitDecorator(object_.Blip);
|
||||
{self.}Stretch := new StretchUnitDecorator(object_.Stretch);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildBlip) then
|
||||
{self.}XmlChildBlip := new BlipUnitDecorator(object_.XmlChildBlip);
|
||||
if not ifnil(object_.XmlChildStretch) then
|
||||
{self.}XmlChildStretch := new StretchUnitDecorator(object_.XmlChildStretch);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function BlipUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrEmbed.Value := object_.XmlAttrEmbed.Value;
|
||||
{self.}XmlAttrCstate.Value := object_.XmlAttrCstate.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrEmbed) then
|
||||
{self.}Embed := object_.XmlAttrEmbed.Value;
|
||||
if not ifnil(object_.XmlAttrCstate) then
|
||||
{self.}Cstate := object_.XmlAttrCstate.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,24 +22,47 @@ end;
|
|||
|
||||
function BodyPrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrRot.Value := object_.XmlAttrRot.Value;
|
||||
{self.}XmlAttrSpcFirstLastPara.Value := object_.XmlAttrSpcFirstLastPara.Value;
|
||||
{self.}XmlAttrVertOverflow.Value := object_.XmlAttrVertOverflow.Value;
|
||||
{self.}XmlAttrHorzOverflow.Value := object_.XmlAttrHorzOverflow.Value;
|
||||
{self.}XmlAttrVert.Value := object_.XmlAttrVert.Value;
|
||||
{self.}XmlAttrWrap.Value := object_.XmlAttrWrap.Value;
|
||||
{self.}XmlAttrLIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrLIns.Value);
|
||||
{self.}XmlAttrTIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrTIns.Value);
|
||||
{self.}XmlAttrRIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrRIns.Value);
|
||||
{self.}XmlAttrBIns.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrBIns.Value);
|
||||
{self.}XmlAttrNumCol.Value := object_.XmlAttrNumCol.Value;
|
||||
{self.}XmlAttrSpcCol.Value := object_.XmlAttrSpcCol.Value;
|
||||
{self.}XmlAttrRtlCol.Value := object_.XmlAttrRtlCol.Value;
|
||||
{self.}XmlAttrFromWordArt.Value := object_.XmlAttrFromWordArt.Value;
|
||||
{self.}XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value;
|
||||
{self.}XmlAttrAnchorCtr.Value := object_.XmlAttrAnchorCtr.Value;
|
||||
{self.}XmlAttrForceAA.Value := object_.XmlAttrForceAA.Value;
|
||||
{self.}XmlAttrCompatLnSpc.Value := object_.XmlAttrCompatLnSpc.Value;
|
||||
{self.}PrstTxWrap := new PrstTxWrapUnitDecorator(object_.PrstTxWrap);
|
||||
if not ifnil(object_.XmlChildNoAutofit.Value) then {self.}XmlChildNoAutofit.Value := object_.XmlChildNoAutofit.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrRot) then
|
||||
{self.}Rot := object_.XmlAttrRot.Value;
|
||||
if not ifnil(object_.XmlAttrSpcFirstLastPara) then
|
||||
{self.}SpcFirstLastPara := object_.XmlAttrSpcFirstLastPara.Value;
|
||||
if not ifnil(object_.XmlAttrVertOverflow) then
|
||||
{self.}VertOverflow := object_.XmlAttrVertOverflow.Value;
|
||||
if not ifnil(object_.XmlAttrHorzOverflow) then
|
||||
{self.}HorzOverflow := object_.XmlAttrHorzOverflow.Value;
|
||||
if not ifnil(object_.XmlAttrVert) then
|
||||
{self.}Vert := object_.XmlAttrVert.Value;
|
||||
if not ifnil(object_.XmlAttrWrap) then
|
||||
{self.}Wrap := object_.XmlAttrWrap.Value;
|
||||
if not ifnil(object_.XmlAttrLIns) then
|
||||
{self.}LIns := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrLIns.Value);
|
||||
if not ifnil(object_.XmlAttrTIns) then
|
||||
{self.}TIns := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrTIns.Value);
|
||||
if not ifnil(object_.XmlAttrRIns) then
|
||||
{self.}RIns := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrRIns.Value);
|
||||
if not ifnil(object_.XmlAttrBIns) then
|
||||
{self.}BIns := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrBIns.Value);
|
||||
if not ifnil(object_.XmlAttrNumCol) then
|
||||
{self.}NumCol := object_.XmlAttrNumCol.Value;
|
||||
if not ifnil(object_.XmlAttrSpcCol) then
|
||||
{self.}SpcCol := object_.XmlAttrSpcCol.Value;
|
||||
if not ifnil(object_.XmlAttrRtlCol) then
|
||||
{self.}RtlCol := object_.XmlAttrRtlCol.Value;
|
||||
if not ifnil(object_.XmlAttrFromWordArt) then
|
||||
{self.}FromWordArt := object_.XmlAttrFromWordArt.Value;
|
||||
if not ifnil(object_.XmlAttrAnchor) then
|
||||
{self.}Anchor := object_.XmlAttrAnchor.Value;
|
||||
if not ifnil(object_.XmlAttrAnchorCtr) then
|
||||
{self.}AnchorCtr := object_.XmlAttrAnchorCtr.Value;
|
||||
if not ifnil(object_.XmlAttrForceAA) then
|
||||
{self.}ForceAA := object_.XmlAttrForceAA.Value;
|
||||
if not ifnil(object_.XmlAttrCompatLnSpc) then
|
||||
{self.}CompatLnSpc := object_.XmlAttrCompatLnSpc.Value;
|
||||
if not ifnil(object_.XmlChildPrstTxWrap) then
|
||||
{self.}XmlChildPrstTxWrap := new PrstTxWrapUnitDecorator(object_.XmlChildPrstTxWrap);
|
||||
if not ifnil(object_.XmlChildNoAutofit) then
|
||||
{self.}NoAutofit.Copy(object_.XmlChildNoAutofit);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function BodyUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}SectPr := new SectPrUnitDecorator(object_.SectPr);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSectPr) then
|
||||
{self.}XmlChildSectPr := new SectPrUnitDecorator(object_.XmlChildSectPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function BookmarkUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function BrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrType) then
|
||||
{self.}Type := object_.XmlAttrType.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function CNvGraphicFramePrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}GraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.GraphicFrameLocks);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildGraphicFrameLocks) then
|
||||
{self.}XmlChildGraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.XmlChildGraphicFrameLocks);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function CNvPicPrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}PicLocks := new PicLocksUnitDecorator(object_.PicLocks);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildPicLocks) then
|
||||
{self.}XmlChildPicLocks := new PicLocksUnitDecorator(object_.XmlChildPicLocks);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function CNvPrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
{self.}XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
{self.}XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlAttrDescr) then
|
||||
{self.}Descr := object_.XmlAttrDescr.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function CNvSpPrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrTxBox.Value := object_.XmlAttrTxBox.Value;
|
||||
{self.}SpLocks := new SpLocksUnitDecorator(object_.SpLocks);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrTxBox) then
|
||||
{self.}TxBox := object_.XmlAttrTxBox.Value;
|
||||
if not ifnil(object_.XmlChildSpLocks) then
|
||||
{self.}XmlChildSpLocks := new SpLocksUnitDecorator(object_.XmlChildSpLocks);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function CXYUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrCx.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCx.Value);
|
||||
{self.}XmlAttrCy.Value := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCy.Value);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrCx) then
|
||||
{self.}Cx := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCx.Value);
|
||||
if not ifnil(object_.XmlAttrCy) then
|
||||
{self.}Cy := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrCy.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,10 @@ end;
|
|||
|
||||
function CacheUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}PtCount := new PureValUnitDecorator(object_.PtCount);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildFormatCode) then
|
||||
if not ifnil(object_.XmlChildPtCount) then
|
||||
{self.}XmlChildPtCount := new PureValUnitDecorator(object_.XmlChildPtCount);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function CatUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}StrRef := new StrRefUnitDecorator(object_.StrRef);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildStrRef) then
|
||||
{self.}XmlChildStrRef := new StrRefUnitDecorator(object_.XmlChildStrRef);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,13 +22,25 @@ end;
|
|||
|
||||
function ChartSpaceUnitDecorator.Convert();
|
||||
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);
|
||||
{self.}AlternateContent := new AlternateContentUnitDecorator(object_.AlternateContent);
|
||||
{self.}Chart := new ChartUnitDecorator(object_.Chart);
|
||||
{self.}SpPr := new SpPrUnitDecorator(object_.SpPr);
|
||||
{self.}ExternalData := new ExternalDataUnitDecorator(object_.ExternalData);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsC) then
|
||||
{self.}XmlnsC := object_.XmlAttrXmlnsC.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsA) then
|
||||
{self.}XmlnsA := object_.XmlAttrXmlnsA.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsR) then
|
||||
{self.}XmlnsR := object_.XmlAttrXmlnsR.Value;
|
||||
if not ifnil(object_.XmlChildDate1904) then
|
||||
{self.}XmlChildDate1904 := new PureValUnitDecorator(object_.XmlChildDate1904);
|
||||
if not ifnil(object_.XmlChildLang) then
|
||||
{self.}XmlChildLang := new PureValUnitDecorator(object_.XmlChildLang);
|
||||
if not ifnil(object_.XmlChildAlternateContent) then
|
||||
{self.}XmlChildAlternateContent := new AlternateContentUnitDecorator(object_.XmlChildAlternateContent);
|
||||
if not ifnil(object_.XmlChildChart) then
|
||||
{self.}XmlChildChart := new ChartUnitDecorator(object_.XmlChildChart);
|
||||
if not ifnil(object_.XmlChildSpPr) then
|
||||
{self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr);
|
||||
if not ifnil(object_.XmlChildExternalData) then
|
||||
{self.}XmlChildExternalData := new ExternalDataUnitDecorator(object_.XmlChildExternalData);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,12 +22,23 @@ end;
|
|||
|
||||
function ChartUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildTitle) then
|
||||
{self.}XmlChildTitle := new TitleUnitDecorator(object_.XmlChildTitle);
|
||||
if not ifnil(object_.XmlChildAutoTitleDeleted) then
|
||||
{self.}XmlChildAutoTitleDeleted := new PureValUnitDecorator(object_.XmlChildAutoTitleDeleted);
|
||||
if not ifnil(object_.XmlChildView3D) then
|
||||
{self.}XmlChildView3D := new View3DUnitDecorator(object_.XmlChildView3D);
|
||||
if not ifnil(object_.XmlChildPlotArea) then
|
||||
{self.}XmlChildPlotArea := new PlotAreaUnitDecorator(object_.XmlChildPlotArea);
|
||||
if not ifnil(object_.XmlChildLegend) then
|
||||
{self.}XmlChildLegend := new LegendUnitDecorator(object_.XmlChildLegend);
|
||||
if not ifnil(object_.XmlChildPlotVisOnly) then
|
||||
{self.}XmlChildPlotVisOnly := new PureValUnitDecorator(object_.XmlChildPlotVisOnly);
|
||||
if not ifnil(object_.XmlChildDispBlanksAs) then
|
||||
{self.}XmlChildDispBlanksAs := new PureValUnitDecorator(object_.XmlChildDispBlanksAs);
|
||||
if not ifnil(object_.XmlChildShowDLblsOverMax) then
|
||||
{self.}XmlChildShowDLblsOverMax := new PureValUnitDecorator(object_.XmlChildShowDLblsOverMax);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,8 +22,15 @@ end;
|
|||
|
||||
function ChoiceUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrRequires.Value := object_.XmlAttrRequires.Value;
|
||||
{self.}XmlAttrXmlnsC14.Value := object_.XmlAttrXmlnsC14.Value;
|
||||
{self.}Style := new PureValUnitDecorator(object_.Style);
|
||||
{self.}Drawing := new DrawingUnitDecorator(object_.Drawing);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrRequires) then
|
||||
{self.}Requires := object_.XmlAttrRequires.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsC14) then
|
||||
{self.}XmlnsC14 := object_.XmlAttrXmlnsC14.Value;
|
||||
if not ifnil(object_.XmlChildStyle) then
|
||||
{self.}XmlChildStyle := new PureValUnitDecorator(object_.XmlChildStyle);
|
||||
if not ifnil(object_.XmlChildDrawing) then
|
||||
{self.}XmlChildDrawing := new DrawingUnitDecorator(object_.XmlChildDrawing);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function Clr1UnitDecorator.Convert();
|
||||
begin
|
||||
{self.}SysClr := new SysClrUnitDecorator(object_.SysClr);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSysClr) then
|
||||
{self.}XmlChildSysClr := new SysClrUnitDecorator(object_.XmlChildSysClr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function Clr2UnitDecorator.Convert();
|
||||
begin
|
||||
{self.}SrgbClr := new SrgbClrUnitDecorator(object_.SrgbClr);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSrgbClr) then
|
||||
{self.}XmlChildSrgbClr := new SrgbClrUnitDecorator(object_.XmlChildSrgbClr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,16 +22,31 @@ end;
|
|||
|
||||
function ClrSchemeMappingUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrBg1.Value := object_.XmlAttrBg1.Value;
|
||||
{self.}XmlAttrT1.Value := object_.XmlAttrT1.Value;
|
||||
{self.}XmlAttrBg2.Value := object_.XmlAttrBg2.Value;
|
||||
{self.}XmlAttrT2.Value := object_.XmlAttrT2.Value;
|
||||
{self.}XmlAttrAccent1.Value := object_.XmlAttrAccent1.Value;
|
||||
{self.}XmlAttrAccent2.Value := object_.XmlAttrAccent2.Value;
|
||||
{self.}XmlAttrAccent3.Value := object_.XmlAttrAccent3.Value;
|
||||
{self.}XmlAttrAccent4.Value := object_.XmlAttrAccent4.Value;
|
||||
{self.}XmlAttrAccent5.Value := object_.XmlAttrAccent5.Value;
|
||||
{self.}XmlAttrAccent6.Value := object_.XmlAttrAccent6.Value;
|
||||
{self.}XmlAttrHyperLink.Value := object_.XmlAttrHyperLink.Value;
|
||||
{self.}XmlAttrFollowedHyperlink.Value := object_.XmlAttrFollowedHyperlink.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrBg1) then
|
||||
{self.}Bg1 := object_.XmlAttrBg1.Value;
|
||||
if not ifnil(object_.XmlAttrT1) then
|
||||
{self.}T1 := object_.XmlAttrT1.Value;
|
||||
if not ifnil(object_.XmlAttrBg2) then
|
||||
{self.}Bg2 := object_.XmlAttrBg2.Value;
|
||||
if not ifnil(object_.XmlAttrT2) then
|
||||
{self.}T2 := object_.XmlAttrT2.Value;
|
||||
if not ifnil(object_.XmlAttrAccent1) then
|
||||
{self.}Accent1 := object_.XmlAttrAccent1.Value;
|
||||
if not ifnil(object_.XmlAttrAccent2) then
|
||||
{self.}Accent2 := object_.XmlAttrAccent2.Value;
|
||||
if not ifnil(object_.XmlAttrAccent3) then
|
||||
{self.}Accent3 := object_.XmlAttrAccent3.Value;
|
||||
if not ifnil(object_.XmlAttrAccent4) then
|
||||
{self.}Accent4 := object_.XmlAttrAccent4.Value;
|
||||
if not ifnil(object_.XmlAttrAccent5) then
|
||||
{self.}Accent5 := object_.XmlAttrAccent5.Value;
|
||||
if not ifnil(object_.XmlAttrAccent6) then
|
||||
{self.}Accent6 := object_.XmlAttrAccent6.Value;
|
||||
if not ifnil(object_.XmlAttrHyperLink) then
|
||||
{self.}HyperLink := object_.XmlAttrHyperLink.Value;
|
||||
if not ifnil(object_.XmlAttrFollowedHyperlink) then
|
||||
{self.}FollowedHyperlink := object_.XmlAttrFollowedHyperlink.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,17 +22,33 @@ end;
|
|||
|
||||
function ClrSchemeUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlChildDk1) then
|
||||
{self.}XmlChildDk1 := new Clr1UnitDecorator(object_.XmlChildDk1);
|
||||
if not ifnil(object_.XmlChildLt1) then
|
||||
{self.}XmlChildLt1 := new Clr1UnitDecorator(object_.XmlChildLt1);
|
||||
if not ifnil(object_.XmlChildDk2) then
|
||||
{self.}XmlChildDk2 := new Clr2UnitDecorator(object_.XmlChildDk2);
|
||||
if not ifnil(object_.XmlChildLt2) then
|
||||
{self.}XmlChildLt2 := new Clr2UnitDecorator(object_.XmlChildLt2);
|
||||
if not ifnil(object_.XmlChildAccent1) then
|
||||
{self.}XmlChildAccent1 := new Clr2UnitDecorator(object_.XmlChildAccent1);
|
||||
if not ifnil(object_.XmlChildAccent2) then
|
||||
{self.}XmlChildAccent2 := new Clr2UnitDecorator(object_.XmlChildAccent2);
|
||||
if not ifnil(object_.XmlChildAccent3) then
|
||||
{self.}XmlChildAccent3 := new Clr2UnitDecorator(object_.XmlChildAccent3);
|
||||
if not ifnil(object_.XmlChildAccent4) then
|
||||
{self.}XmlChildAccent4 := new Clr2UnitDecorator(object_.XmlChildAccent4);
|
||||
if not ifnil(object_.XmlChildAccent5) then
|
||||
{self.}XmlChildAccent5 := new Clr2UnitDecorator(object_.XmlChildAccent5);
|
||||
if not ifnil(object_.XmlChildAccent6) then
|
||||
{self.}XmlChildAccent6 := new Clr2UnitDecorator(object_.XmlChildAccent6);
|
||||
if not ifnil(object_.XmlChildHlink) then
|
||||
{self.}XmlChildHlink := new Clr2UnitDecorator(object_.XmlChildHlink);
|
||||
if not ifnil(object_.XmlChildFolHlink) then
|
||||
{self.}XmlChildFolHlink := new Clr2UnitDecorator(object_.XmlChildFolHlink);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,17 +22,33 @@ end;
|
|||
|
||||
function CnfStyleUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
{self.}XmlAttrFirstRow.Value := object_.XmlAttrFirstRow.Value;
|
||||
{self.}XmlAttrLastRow.Value := object_.XmlAttrLastRow.Value;
|
||||
{self.}XmlAttrFirstColumn.Value := object_.XmlAttrFirstColumn.Value;
|
||||
{self.}XmlAttrLastColumn.Value := object_.XmlAttrLastColumn.Value;
|
||||
{self.}XmlAttrOddVBand.Value := object_.XmlAttrOddVBand.Value;
|
||||
{self.}XmlAttrEvenVBand.Value := object_.XmlAttrEvenVBand.Value;
|
||||
{self.}XmlAttrOddHBand.Value := object_.XmlAttrOddHBand.Value;
|
||||
{self.}XmlAttrEvenHBand.Value := object_.XmlAttrEvenHBand.Value;
|
||||
{self.}XmlAttrFirstRowFirstColumn.Value := object_.XmlAttrFirstRowFirstColumn.Value;
|
||||
{self.}XmlAttrFirstRowLastColumn.Value := object_.XmlAttrFirstRowLastColumn.Value;
|
||||
{self.}XmlAttrLastRowFirstColumn.Value := object_.XmlAttrLastRowFirstColumn.Value;
|
||||
{self.}XmlAttrLastRowLastColumn.Value := object_.XmlAttrLastRowLastColumn.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrVal) then
|
||||
{self.}Val := object_.XmlAttrVal.Value;
|
||||
if not ifnil(object_.XmlAttrFirstRow) then
|
||||
{self.}FirstRow := object_.XmlAttrFirstRow.Value;
|
||||
if not ifnil(object_.XmlAttrLastRow) then
|
||||
{self.}LastRow := object_.XmlAttrLastRow.Value;
|
||||
if not ifnil(object_.XmlAttrFirstColumn) then
|
||||
{self.}FirstColumn := object_.XmlAttrFirstColumn.Value;
|
||||
if not ifnil(object_.XmlAttrLastColumn) then
|
||||
{self.}LastColumn := object_.XmlAttrLastColumn.Value;
|
||||
if not ifnil(object_.XmlAttrOddVBand) then
|
||||
{self.}OddVBand := object_.XmlAttrOddVBand.Value;
|
||||
if not ifnil(object_.XmlAttrEvenVBand) then
|
||||
{self.}EvenVBand := object_.XmlAttrEvenVBand.Value;
|
||||
if not ifnil(object_.XmlAttrOddHBand) then
|
||||
{self.}OddHBand := object_.XmlAttrOddHBand.Value;
|
||||
if not ifnil(object_.XmlAttrEvenHBand) then
|
||||
{self.}EvenHBand := object_.XmlAttrEvenHBand.Value;
|
||||
if not ifnil(object_.XmlAttrFirstRowFirstColumn) then
|
||||
{self.}FirstRowFirstColumn := object_.XmlAttrFirstRowFirstColumn.Value;
|
||||
if not ifnil(object_.XmlAttrFirstRowLastColumn) then
|
||||
{self.}FirstRowLastColumn := object_.XmlAttrFirstRowLastColumn.Value;
|
||||
if not ifnil(object_.XmlAttrLastRowFirstColumn) then
|
||||
{self.}LastRowFirstColumn := object_.XmlAttrLastRowFirstColumn.Value;
|
||||
if not ifnil(object_.XmlAttrLastRowLastColumn) then
|
||||
{self.}LastRowLastColumn := object_.XmlAttrLastRowLastColumn.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function ColorUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
{self.}XmlAttrThemeColor.Value := object_.XmlAttrThemeColor.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrVal) then
|
||||
{self.}Val := object_.XmlAttrVal.Value;
|
||||
if not ifnil(object_.XmlAttrThemeColor) then
|
||||
{self.}ThemeColor := object_.XmlAttrThemeColor.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function ColsUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrSpace.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrSpace) then
|
||||
{self.}Space := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function CommentRangeUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function CommentUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrAuthor.Value := object_.XmlAttrAuthor.Value;
|
||||
{self.}XmlAttrDate.Value := object_.XmlAttrDate.Value;
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrAuthor) then
|
||||
{self.}Author := object_.XmlAttrAuthor.Value;
|
||||
if not ifnil(object_.XmlAttrDate) then
|
||||
{self.}Date := object_.XmlAttrDate.Value;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,22 +22,43 @@ end;
|
|||
|
||||
function CommentsUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpc) then
|
||||
{self.}XmlnsWpc := object_.XmlAttrXmlnsWpc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsMc) then
|
||||
{self.}XmlnsMc := object_.XmlAttrXmlnsMc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsO) then
|
||||
{self.}XmlnsO := object_.XmlAttrXmlnsO.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsR) then
|
||||
{self.}XmlnsR := object_.XmlAttrXmlnsR.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsM) then
|
||||
{self.}XmlnsM := object_.XmlAttrXmlnsM.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsV) then
|
||||
{self.}XmlnsV := object_.XmlAttrXmlnsV.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp14) then
|
||||
{self.}XmlnsWp14 := object_.XmlAttrXmlnsWp14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp) then
|
||||
{self.}XmlnsWp := object_.XmlAttrXmlnsWp.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW) then
|
||||
{self.}XmlnsW := object_.XmlAttrXmlnsW.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW14) then
|
||||
{self.}XmlnsW14 := object_.XmlAttrXmlnsW14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW15) then
|
||||
{self.}XmlnsW15 := object_.XmlAttrXmlnsW15.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW10) then
|
||||
{self.}XmlnsW10 := object_.XmlAttrXmlnsW10.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpg) then
|
||||
{self.}XmlnsWpg := object_.XmlAttrXmlnsWpg.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpi) then
|
||||
{self.}XmlnsWpi := object_.XmlAttrXmlnsWpi.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWne) then
|
||||
{self.}XmlnsWne := object_.XmlAttrXmlnsWne.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWps) then
|
||||
{self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpsCustomData) then
|
||||
{self.}XmlnsWpsCustomData := object_.XmlAttrXmlnsWpsCustomData.Value;
|
||||
if not ifnil(object_.XmlAttrMcIgnorable) then
|
||||
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function CompatSettingUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
{self.}XmlAttrUri.Value := object_.XmlAttrUri.Value;
|
||||
{self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlAttrUri) then
|
||||
{self.}Uri := object_.XmlAttrUri.Value;
|
||||
if not ifnil(object_.XmlAttrVal) then
|
||||
{self.}Val := object_.XmlAttrVal.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,11 +22,21 @@ end;
|
|||
|
||||
function CompatUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSpaceForUL) then
|
||||
{self.}SpaceForUL.Copy(object_.XmlChildSpaceForUL);
|
||||
if not ifnil(object_.XmlChildBalanceSingleByteDoubleByteWidth) then
|
||||
{self.}BalanceSingleByteDoubleByteWidth.Copy(object_.XmlChildBalanceSingleByteDoubleByteWidth);
|
||||
if not ifnil(object_.XmlChildDoNotLeaveBackslashAlone) then
|
||||
{self.}DoNotLeaveBackslashAlone.Copy(object_.XmlChildDoNotLeaveBackslashAlone);
|
||||
if not ifnil(object_.XmlChildUlTrailSpace) then
|
||||
{self.}UlTrailSpace.Copy(object_.XmlChildUlTrailSpace);
|
||||
if not ifnil(object_.XmlChildDoNotExpandShiftReturn) then
|
||||
{self.}DoNotExpandShiftReturn.Copy(object_.XmlChildDoNotExpandShiftReturn);
|
||||
if not ifnil(object_.XmlChildAdjustLineHeightInTable) then
|
||||
{self.}AdjustLineHeightInTable.Copy(object_.XmlChildAdjustLineHeightInTable);
|
||||
if not ifnil(object_.XmlChildUseFELayout) then
|
||||
{self.}UseFELayout.Copy(object_.XmlChildUseFELayout);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,11 +22,29 @@ end;
|
|||
|
||||
function CorePropertiesUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsCp) then
|
||||
{self.}XmlnsCp := object_.XmlAttrXmlnsCp.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsDc) then
|
||||
{self.}XmlnsDc := object_.XmlAttrXmlnsDc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsDcterms) then
|
||||
{self.}XmlnsDcterms := object_.XmlAttrXmlnsDcterms.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsDcmitype) then
|
||||
{self.}XmlnsDcmitype := object_.XmlAttrXmlnsDcmitype.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsXsi) then
|
||||
{self.}XmlnsXsi := object_.XmlAttrXmlnsXsi.Value;
|
||||
if not ifnil(object_.XmlChildTitle) then
|
||||
if not ifnil(object_.XmlChildSubject) then
|
||||
if not ifnil(object_.XmlChildCreator) then
|
||||
if not ifnil(object_.XmlChildKeywords) then
|
||||
if not ifnil(object_.XmlChildDescription) then
|
||||
if not ifnil(object_.XmlChildLastModifiedBy) then
|
||||
if not ifnil(object_.XmlChildRevision) then
|
||||
if not ifnil(object_.XmlChildLastPrinted) then
|
||||
if not ifnil(object_.XmlChildCreated) then
|
||||
{self.}XmlChildCreated := new CreatedUnitDecorator(object_.XmlChildCreated);
|
||||
if not ifnil(object_.XmlChildModified) then
|
||||
{self.}XmlChildModified := new ModifiedUnitDecorator(object_.XmlChildModified);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function CreatedUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrXsiType.Value := object_.XmlAttrXsiType.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXsiType) then
|
||||
{self.}XsiType := object_.XmlAttrXsiType.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,13 +22,25 @@ end;
|
|||
|
||||
function DLblsUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSpPr) then
|
||||
{self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr);
|
||||
if not ifnil(object_.XmlChildShowLegendKey) then
|
||||
{self.}XmlChildShowLegendKey := new PureValUnitDecorator(object_.XmlChildShowLegendKey);
|
||||
if not ifnil(object_.XmlChildShowVal) then
|
||||
{self.}XmlChildShowVal := new PureValUnitDecorator(object_.XmlChildShowVal);
|
||||
if not ifnil(object_.XmlChildShowCatName) then
|
||||
{self.}XmlChildShowCatName := new PureValUnitDecorator(object_.XmlChildShowCatName);
|
||||
if not ifnil(object_.XmlChildShowSerName) then
|
||||
{self.}XmlChildShowSerName := new PureValUnitDecorator(object_.XmlChildShowSerName);
|
||||
if not ifnil(object_.XmlChildShowPercent) then
|
||||
{self.}XmlChildShowPercent := new PureValUnitDecorator(object_.XmlChildShowPercent);
|
||||
if not ifnil(object_.XmlChildShowBubbleSize) then
|
||||
{self.}XmlChildShowBubbleSize := new PureValUnitDecorator(object_.XmlChildShowBubbleSize);
|
||||
if not ifnil(object_.XmlChildShowLeaderLines) then
|
||||
{self.}XmlChildShowLeaderLines := new PureValUnitDecorator(object_.XmlChildShowLeaderLines);
|
||||
if not ifnil(object_.XmlChildExtLst) then
|
||||
{self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,9 +22,17 @@ end;
|
|||
|
||||
function DTableUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildShowHorzBorder) then
|
||||
{self.}XmlChildShowHorzBorder := new PureValUnitDecorator(object_.XmlChildShowHorzBorder);
|
||||
if not ifnil(object_.XmlChildShowVertBorder) then
|
||||
{self.}XmlChildShowVertBorder := new PureValUnitDecorator(object_.XmlChildShowVertBorder);
|
||||
if not ifnil(object_.XmlChildShowOutline) then
|
||||
{self.}XmlChildShowOutline := new PureValUnitDecorator(object_.XmlChildShowOutline);
|
||||
if not ifnil(object_.XmlChildShowKeys) then
|
||||
{self.}XmlChildShowKeys := new PureValUnitDecorator(object_.XmlChildShowKeys);
|
||||
if not ifnil(object_.XmlChildTxPr) then
|
||||
{self.}XmlChildTxPr := new TxPrUnitDecorator(object_.XmlChildTxPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function DefaultUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrExtension.Value := object_.XmlAttrExtension.Value;
|
||||
{self.}XmlAttrContentType.Value := object_.XmlAttrContentType.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrExtension) then
|
||||
{self.}Extension := object_.XmlAttrExtension.Value;
|
||||
if not ifnil(object_.XmlAttrContentType) then
|
||||
{self.}ContentType := object_.XmlAttrContentType.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function DocDefaultsUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}RPrDefault := new RPrDefaultUnitDecorator(object_.RPrDefault);
|
||||
{self.}PPrDefault := new PPrDefaultUnitDecorator(object_.PPrDefault);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildRPrDefault) then
|
||||
{self.}XmlChildRPrDefault := new RPrDefaultUnitDecorator(object_.XmlChildRPrDefault);
|
||||
if not ifnil(object_.XmlChildPPrDefault) then
|
||||
{self.}XmlChildPPrDefault := new PPrDefaultUnitDecorator(object_.XmlChildPPrDefault);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function DocGridUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
{self.}XmlAttrLinePitch.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLinePitch.Value);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrType) then
|
||||
{self.}Type := object_.XmlAttrType.Value;
|
||||
if not ifnil(object_.XmlAttrLinePitch) then
|
||||
{self.}LinePitch := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLinePitch.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function DocPartObjUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}DocPartGallery := new PureWValUnitDecorator(object_.DocPartGallery);
|
||||
{self.}DocPartUnique := new PureValUnitDecorator(object_.DocPartUnique);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildDocPartGallery) then
|
||||
{self.}XmlChildDocPartGallery := new PureWValUnitDecorator(object_.XmlChildDocPartGallery);
|
||||
if not ifnil(object_.XmlChildDocPartUnique) then
|
||||
{self.}XmlChildDocPartUnique := new PureValUnitDecorator(object_.XmlChildDocPartUnique);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function DocPrUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
{self.}XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
{self.}XmlAttrDescr.Value := object_.XmlAttrDescr.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlAttrDescr) then
|
||||
{self.}Descr := object_.XmlAttrDescr.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,18 +22,35 @@ end;
|
|||
|
||||
function DocumentUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpc) then
|
||||
{self.}XmlnsWpc := object_.XmlAttrXmlnsWpc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW15) then
|
||||
{self.}XmlnsW15 := object_.XmlAttrXmlnsW15.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cex) then
|
||||
{self.}XmlnsW16Cex := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cid) then
|
||||
{self.}XmlnsW16Cid := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16) then
|
||||
{self.}XmlnsW16 := object_.XmlAttrXmlnsW16.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Du) then
|
||||
{self.}XmlnsW16Du := object_.XmlAttrXmlnsW16Du.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16sdtdh) then
|
||||
{self.}XmlnsW16sdtdh := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16se) then
|
||||
{self.}XmlnsW16se := object_.XmlAttrXmlnsW16se.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpg) then
|
||||
{self.}XmlnsWpg := object_.XmlAttrXmlnsWpg.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpi) then
|
||||
{self.}XmlnsWpi := object_.XmlAttrXmlnsWpi.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWne) then
|
||||
{self.}XmlnsWne := object_.XmlAttrXmlnsWne.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWps) then
|
||||
{self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
|
||||
if not ifnil(object_.XmlAttrMcIgnorable) then
|
||||
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
|
||||
if not ifnil(object_.XmlChildBody) then
|
||||
{self.}XmlChildBody := new BodyUnitDecorator(object_.XmlChildBody);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function DrawingUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}_Inline := new _InlineUnitDecorator(object_._Inline);
|
||||
{self.}Anchor := new AnchorUnitDecorator(object_.Anchor);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChild_Inline) then
|
||||
{self.}XmlChild_Inline := new _InlineUnitDecorator(object_.XmlChild_Inline);
|
||||
if not ifnil(object_.XmlChildAnchor) then
|
||||
{self.}XmlChildAnchor := new AnchorUnitDecorator(object_.XmlChildAnchor);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,8 +22,15 @@ end;
|
|||
|
||||
function EffectExtentUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrL) then
|
||||
{self.}L := object_.XmlAttrL.Value;
|
||||
if not ifnil(object_.XmlAttrT) then
|
||||
{self.}T := object_.XmlAttrT.Value;
|
||||
if not ifnil(object_.XmlAttrR) then
|
||||
{self.}R := object_.XmlAttrR.Value;
|
||||
if not ifnil(object_.XmlAttrB) then
|
||||
{self.}B := object_.XmlAttrB.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function EffectLstUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}OuterShdw := new OuterShdwUnitDecorator(object_.OuterShdw);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildOuterShdw) then
|
||||
{self.}XmlChildOuterShdw := new OuterShdwUnitDecorator(object_.XmlChildOuterShdw);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,4 +22,7 @@ end;
|
|||
|
||||
function EffectStyleLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function EffectStyleUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}EffectLst := new EffectLstUnitDecorator(object_.EffectLst);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildEffectLst) then
|
||||
{self.}XmlChildEffectLst := new EffectLstUnitDecorator(object_.XmlChildEffectLst);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,4 +22,7 @@ end;
|
|||
|
||||
function EndnotePrUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function EndnoteUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrType) then
|
||||
{self.}Type := object_.XmlAttrType.Value;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,37 +22,73 @@ end;
|
|||
|
||||
function EndnotesUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpc) then
|
||||
{self.}XmlnsWpc := object_.XmlAttrXmlnsWpc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx) then
|
||||
{self.}XmlnsCx := object_.XmlAttrXmlnsCx.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx1) then
|
||||
{self.}XmlnsCx1 := object_.XmlAttrXmlnsCx1.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx2) then
|
||||
{self.}XmlnsCx2 := object_.XmlAttrXmlnsCx2.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx3) then
|
||||
{self.}XmlnsCx3 := object_.XmlAttrXmlnsCx3.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx4) then
|
||||
{self.}XmlnsCx4 := object_.XmlAttrXmlnsCx4.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx5) then
|
||||
{self.}XmlnsCx5 := object_.XmlAttrXmlnsCx5.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx6) then
|
||||
{self.}XmlnsCx6 := object_.XmlAttrXmlnsCx6.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx7) then
|
||||
{self.}XmlnsCx7 := object_.XmlAttrXmlnsCx7.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx8) then
|
||||
{self.}XmlnsCx8 := object_.XmlAttrXmlnsCx8.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsMc) then
|
||||
{self.}XmlnsMc := object_.XmlAttrXmlnsMc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsAink) then
|
||||
{self.}XmlnsAink := object_.XmlAttrXmlnsAink.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsAm3d) then
|
||||
{self.}XmlnsAm3d := object_.XmlAttrXmlnsAm3d.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsO) then
|
||||
{self.}XmlnsO := object_.XmlAttrXmlnsO.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsOel) then
|
||||
{self.}XmlnsOel := object_.XmlAttrXmlnsOel.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsR) then
|
||||
{self.}XmlnsR := object_.XmlAttrXmlnsR.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsM) then
|
||||
{self.}XmlnsM := object_.XmlAttrXmlnsM.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsV) then
|
||||
{self.}XmlnsV := object_.XmlAttrXmlnsV.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp14) then
|
||||
{self.}XmlnsWp14 := object_.XmlAttrXmlnsWp14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp) then
|
||||
{self.}XmlnsWp := object_.XmlAttrXmlnsWp.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW14) then
|
||||
{self.}XmlnsW14 := object_.XmlAttrXmlnsW14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW15) then
|
||||
{self.}XmlnsW15 := object_.XmlAttrXmlnsW15.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cex) then
|
||||
{self.}XmlnsW16Cex := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cid) then
|
||||
{self.}XmlnsW16Cid := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16) then
|
||||
{self.}XmlnsW16 := object_.XmlAttrXmlnsW16.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Du) then
|
||||
{self.}XmlnsW16Du := object_.XmlAttrXmlnsW16Du.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16sdtdh) then
|
||||
{self.}XmlnsW16sdtdh := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16se) then
|
||||
{self.}XmlnsW16se := object_.XmlAttrXmlnsW16se.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpg) then
|
||||
{self.}XmlnsWpg := object_.XmlAttrXmlnsWpg.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpi) then
|
||||
{self.}XmlnsWpi := object_.XmlAttrXmlnsWpi.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWne) then
|
||||
{self.}XmlnsWne := object_.XmlAttrXmlnsWne.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWps) then
|
||||
{self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
|
||||
if not ifnil(object_.XmlAttrMcIgnorable) then
|
||||
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,4 +22,7 @@ end;
|
|||
|
||||
function ExtLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,8 +22,15 @@ end;
|
|||
|
||||
function ExtUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrUri) then
|
||||
{self.}Uri := object_.XmlAttrUri.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsC16) then
|
||||
{self.}XmlnsC16 := object_.XmlAttrXmlnsC16.Value;
|
||||
if not ifnil(object_.XmlChildThm15ThemeFamily) then
|
||||
{self.}XmlChildThm15ThemeFamily := new ThemeFamilyUnitDecorator(object_.XmlChildThm15ThemeFamily);
|
||||
if not ifnil(object_.XmlChildUniqueId) then
|
||||
{self.}XmlChildUniqueId := new PureValUnitDecorator(object_.XmlChildUniqueId);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function ExternalDataUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
{self.}AutoUpdate := new PureValUnitDecorator(object_.AutoUpdate);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
if not ifnil(object_.XmlChildAutoUpdate) then
|
||||
{self.}XmlChildAutoUpdate := new PureValUnitDecorator(object_.XmlChildAutoUpdate);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function FallbackUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}Style := new PureValUnitDecorator(object_.Style);
|
||||
{self.}Pict := new PictUnitDecorator(object_.Pict);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildStyle) then
|
||||
{self.}XmlChildStyle := new PureValUnitDecorator(object_.XmlChildStyle);
|
||||
if not ifnil(object_.XmlChildPict) then
|
||||
{self.}XmlChildPict := new PictUnitDecorator(object_.XmlChildPict);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,4 +22,7 @@ end;
|
|||
|
||||
function FillStyleLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function FldCharUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrFldCharType.Value := object_.XmlAttrFldCharType.Value;
|
||||
{self.}XmlAttrDirty.Value := object_.XmlAttrDirty.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrFldCharType) then
|
||||
{self.}FldCharType := object_.XmlAttrFldCharType.Value;
|
||||
if not ifnil(object_.XmlAttrDirty) then
|
||||
{self.}Dirty := object_.XmlAttrDirty.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function FldSimpleUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrInstr.Value := object_.XmlAttrInstr.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrInstr) then
|
||||
{self.}Instr := object_.XmlAttrInstr.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,9 +22,17 @@ end;
|
|||
|
||||
function FmtSchemeUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlChildFillStyleLst) then
|
||||
{self.}XmlChildFillStyleLst := new FillStyleLstUnitDecorator(object_.XmlChildFillStyleLst);
|
||||
if not ifnil(object_.XmlChildLnStyleLst) then
|
||||
{self.}XmlChildLnStyleLst := new LnStyleLstUnitDecorator(object_.XmlChildLnStyleLst);
|
||||
if not ifnil(object_.XmlChildEffectStyleLst) then
|
||||
{self.}XmlChildEffectStyleLst := new EffectStyleLstUnitDecorator(object_.XmlChildEffectStyleLst);
|
||||
if not ifnil(object_.XmlChildBgFillStyleLst) then
|
||||
{self.}XmlChildBgFillStyleLst := new FillStyleLstUnitDecorator(object_.XmlChildBgFillStyleLst);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function FontSchemeUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrName.Value := object_.XmlAttrName.Value;
|
||||
{self.}Majorfont := new MfontUnitDecorator(object_.Majorfont);
|
||||
{self.}Minorfont := new MfontUnitDecorator(object_.Minorfont);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlChildMajorfont) then
|
||||
{self.}XmlChildMajorfont := new MfontUnitDecorator(object_.XmlChildMajorfont);
|
||||
if not ifnil(object_.XmlChildMinorfont) then
|
||||
{self.}XmlChildMinorfont := new MfontUnitDecorator(object_.XmlChildMinorfont);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,11 +22,21 @@ end;
|
|||
|
||||
function FontUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlChildAltName) then
|
||||
{self.}XmlChildAltName := new PureWValUnitDecorator(object_.XmlChildAltName);
|
||||
if not ifnil(object_.XmlChildPanosel) then
|
||||
{self.}XmlChildPanosel := new PureWValUnitDecorator(object_.XmlChildPanosel);
|
||||
if not ifnil(object_.XmlChildCharset) then
|
||||
{self.}XmlChildCharset := new PureWValUnitDecorator(object_.XmlChildCharset);
|
||||
if not ifnil(object_.XmlChildFamily) then
|
||||
{self.}XmlChildFamily := new PureWValUnitDecorator(object_.XmlChildFamily);
|
||||
if not ifnil(object_.XmlChildPitch) then
|
||||
{self.}XmlChildPitch := new PureWValUnitDecorator(object_.XmlChildPitch);
|
||||
if not ifnil(object_.XmlChildSig) then
|
||||
{self.}XmlChildSig := new SigUnitDecorator(object_.XmlChildSig);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,16 +22,31 @@ end;
|
|||
|
||||
function FontsUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsMc) then
|
||||
{self.}XmlnsMc := object_.XmlAttrXmlnsMc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsR) then
|
||||
{self.}XmlnsR := object_.XmlAttrXmlnsR.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW) then
|
||||
{self.}XmlnsW := object_.XmlAttrXmlnsW.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW14) then
|
||||
{self.}XmlnsW14 := object_.XmlAttrXmlnsW14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW15) then
|
||||
{self.}XmlnsW15 := object_.XmlAttrXmlnsW15.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cex) then
|
||||
{self.}XmlnsW16Cex := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cid) then
|
||||
{self.}XmlnsW16Cid := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16) then
|
||||
{self.}XmlnsW16 := object_.XmlAttrXmlnsW16.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Du) then
|
||||
{self.}XmlnsW16Du := object_.XmlAttrXmlnsW16Du.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16sdtdh) then
|
||||
{self.}XmlnsW16sdtdh := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16se) then
|
||||
{self.}XmlnsW16se := object_.XmlAttrXmlnsW16se.Value;
|
||||
if not ifnil(object_.XmlAttrMcIgnorable) then
|
||||
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,4 +22,13 @@ end;
|
|||
|
||||
function FootnotePrUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildPos) then
|
||||
{self.}XmlChildPos := new PureWValUnitDecorator(object_.XmlChildPos);
|
||||
if not ifnil(object_.XmlChildNumFmt) then
|
||||
{self.}XmlChildNumFmt := new PureWValUnitDecorator(object_.XmlChildNumFmt);
|
||||
if not ifnil(object_.XmlChildNumStart) then
|
||||
{self.}XmlChildNumStart := new PureWValUnitDecorator(object_.XmlChildNumStart);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function FootnoteUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrType.Value := object_.XmlAttrType.Value;
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrType) then
|
||||
{self.}Type := object_.XmlAttrType.Value;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,37 +22,73 @@ end;
|
|||
|
||||
function FootnotesUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpc) then
|
||||
{self.}XmlnsWpc := object_.XmlAttrXmlnsWpc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx) then
|
||||
{self.}XmlnsCx := object_.XmlAttrXmlnsCx.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx1) then
|
||||
{self.}XmlnsCx1 := object_.XmlAttrXmlnsCx1.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx2) then
|
||||
{self.}XmlnsCx2 := object_.XmlAttrXmlnsCx2.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx3) then
|
||||
{self.}XmlnsCx3 := object_.XmlAttrXmlnsCx3.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx4) then
|
||||
{self.}XmlnsCx4 := object_.XmlAttrXmlnsCx4.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx5) then
|
||||
{self.}XmlnsCx5 := object_.XmlAttrXmlnsCx5.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx6) then
|
||||
{self.}XmlnsCx6 := object_.XmlAttrXmlnsCx6.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx7) then
|
||||
{self.}XmlnsCx7 := object_.XmlAttrXmlnsCx7.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsCx8) then
|
||||
{self.}XmlnsCx8 := object_.XmlAttrXmlnsCx8.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsMc) then
|
||||
{self.}XmlnsMc := object_.XmlAttrXmlnsMc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsAink) then
|
||||
{self.}XmlnsAink := object_.XmlAttrXmlnsAink.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsAm3d) then
|
||||
{self.}XmlnsAm3d := object_.XmlAttrXmlnsAm3d.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsO) then
|
||||
{self.}XmlnsO := object_.XmlAttrXmlnsO.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsOel) then
|
||||
{self.}XmlnsOel := object_.XmlAttrXmlnsOel.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsR) then
|
||||
{self.}XmlnsR := object_.XmlAttrXmlnsR.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsM) then
|
||||
{self.}XmlnsM := object_.XmlAttrXmlnsM.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsV) then
|
||||
{self.}XmlnsV := object_.XmlAttrXmlnsV.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp14) then
|
||||
{self.}XmlnsWp14 := object_.XmlAttrXmlnsWp14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp) then
|
||||
{self.}XmlnsWp := object_.XmlAttrXmlnsWp.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW14) then
|
||||
{self.}XmlnsW14 := object_.XmlAttrXmlnsW14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW15) then
|
||||
{self.}XmlnsW15 := object_.XmlAttrXmlnsW15.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cex) then
|
||||
{self.}XmlnsW16Cex := object_.XmlAttrXmlnsW16Cex.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Cid) then
|
||||
{self.}XmlnsW16Cid := object_.XmlAttrXmlnsW16Cid.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16) then
|
||||
{self.}XmlnsW16 := object_.XmlAttrXmlnsW16.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16Du) then
|
||||
{self.}XmlnsW16Du := object_.XmlAttrXmlnsW16Du.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16sdtdh) then
|
||||
{self.}XmlnsW16sdtdh := object_.XmlAttrXmlnsW16sdtdh.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW16se) then
|
||||
{self.}XmlnsW16se := object_.XmlAttrXmlnsW16se.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpg) then
|
||||
{self.}XmlnsWpg := object_.XmlAttrXmlnsWpg.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpi) then
|
||||
{self.}XmlnsWpi := object_.XmlAttrXmlnsWpi.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWne) then
|
||||
{self.}XmlnsWne := object_.XmlAttrXmlnsWne.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWps) then
|
||||
{self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
|
||||
if not ifnil(object_.XmlAttrMcIgnorable) then
|
||||
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,19 +22,37 @@ end;
|
|||
|
||||
function FtrUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsM) then
|
||||
{self.}XmlnsM := object_.XmlAttrXmlnsM.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsMc) then
|
||||
{self.}XmlnsMc := object_.XmlAttrXmlnsMc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsMo) then
|
||||
{self.}XmlnsMo := object_.XmlAttrXmlnsMo.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsR) then
|
||||
{self.}XmlnsR := object_.XmlAttrXmlnsR.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsV) then
|
||||
{self.}XmlnsV := object_.XmlAttrXmlnsV.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW14) then
|
||||
{self.}XmlnsW14 := object_.XmlAttrXmlnsW14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW) then
|
||||
{self.}XmlnsW := object_.XmlAttrXmlnsW.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWne) then
|
||||
{self.}XmlnsWne := object_.XmlAttrXmlnsWne.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp14) then
|
||||
{self.}XmlnsWp14 := object_.XmlAttrXmlnsWp14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp) then
|
||||
{self.}XmlnsWp := object_.XmlAttrXmlnsWp.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpc) then
|
||||
{self.}XmlnsWpc := object_.XmlAttrXmlnsWpc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpg) then
|
||||
{self.}XmlnsWpg := object_.XmlAttrXmlnsWpg.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpi) then
|
||||
{self.}XmlnsWpi := object_.XmlAttrXmlnsWpi.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWps) then
|
||||
{self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
|
||||
if not ifnil(object_.XmlAttrMcIgnorable) then
|
||||
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function GradFillUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrRotWithShape.Value := object_.XmlAttrRotWithShape.Value;
|
||||
{self.}GsLst := new GsLstUnitDecorator(object_.GsLst);
|
||||
{self.}Lin := new LinUnitDecorator(object_.Lin);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrRotWithShape) then
|
||||
{self.}RotWithShape := object_.XmlAttrRotWithShape.Value;
|
||||
if not ifnil(object_.XmlChildGsLst) then
|
||||
{self.}XmlChildGsLst := new GsLstUnitDecorator(object_.XmlChildGsLst);
|
||||
if not ifnil(object_.XmlChildLin) then
|
||||
{self.}XmlChildLin := new LinUnitDecorator(object_.XmlChildLin);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,8 +22,15 @@ end;
|
|||
|
||||
function GraphicDataUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrUri.Value := object_.XmlAttrUri.Value;
|
||||
{self.}Pic := new PicUnitDecorator(object_.Pic);
|
||||
{self.}Chart := new ChartUnitDecorator(object_.Chart);
|
||||
{self.}Wsp := new WspUnitDecorator(object_.Wsp);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrUri) then
|
||||
{self.}Uri := object_.XmlAttrUri.Value;
|
||||
if not ifnil(object_.XmlChildPic) then
|
||||
{self.}XmlChildPic := new PicUnitDecorator(object_.XmlChildPic);
|
||||
if not ifnil(object_.XmlChildChart) then
|
||||
{self.}XmlChildChart := new ChartUnitDecorator(object_.XmlChildChart);
|
||||
if not ifnil(object_.XmlChildWsp) then
|
||||
{self.}XmlChildWsp := new WspUnitDecorator(object_.XmlChildWsp);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function GraphicFrameLocksUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrNoChangeAspect.Value := object_.XmlAttrNoChangeAspect.Value;
|
||||
{self.}XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrNoChangeAspect) then
|
||||
{self.}NoChangeAspect := object_.XmlAttrNoChangeAspect.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsA) then
|
||||
{self.}XmlnsA := object_.XmlAttrXmlnsA.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function GraphicUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrXmlnsA.Value := object_.XmlAttrXmlnsA.Value;
|
||||
{self.}GraphicData := new GraphicDataUnitDecorator(object_.GraphicData);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsA) then
|
||||
{self.}XmlnsA := object_.XmlAttrXmlnsA.Value;
|
||||
if not ifnil(object_.XmlChildGraphicData) then
|
||||
{self.}XmlChildGraphicData := new GraphicDataUnitDecorator(object_.XmlChildGraphicData);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function GridColUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrw.Value := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrw) then
|
||||
{self.}w := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function GridSpanUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrVal.Value := TSSafeUnitConverter.ToInt(object_.XmlAttrVal.Value);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrVal) then
|
||||
{self.}Val := TSSafeUnitConverter.ToInt(object_.XmlAttrVal.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,4 +22,7 @@ end;
|
|||
|
||||
function GsLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function GsUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrPos.Value := object_.XmlAttrPos.Value;
|
||||
{self.}SchemeClr := new SchemeClrUnitDecorator(object_.SchemeClr);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrPos) then
|
||||
{self.}Pos := object_.XmlAttrPos.Value;
|
||||
if not ifnil(object_.XmlChildSchemeClr) then
|
||||
{self.}XmlChildSchemeClr := new SchemeClrUnitDecorator(object_.XmlChildSchemeClr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function HdrShapeDefaultsUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}ShapeDefaults := new ShapeDefaultsUnitDecorator(object_.ShapeDefaults);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildShapeDefaults) then
|
||||
{self.}XmlChildShapeDefaults := new ShapeDefaultsUnitDecorator(object_.XmlChildShapeDefaults);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,19 +22,37 @@ end;
|
|||
|
||||
function HdrUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXmlnsM) then
|
||||
{self.}XmlnsM := object_.XmlAttrXmlnsM.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsMc) then
|
||||
{self.}XmlnsMc := object_.XmlAttrXmlnsMc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsMo) then
|
||||
{self.}XmlnsMo := object_.XmlAttrXmlnsMo.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsR) then
|
||||
{self.}XmlnsR := object_.XmlAttrXmlnsR.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsV) then
|
||||
{self.}XmlnsV := object_.XmlAttrXmlnsV.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW14) then
|
||||
{self.}XmlnsW14 := object_.XmlAttrXmlnsW14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsW) then
|
||||
{self.}XmlnsW := object_.XmlAttrXmlnsW.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWne) then
|
||||
{self.}XmlnsWne := object_.XmlAttrXmlnsWne.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp14) then
|
||||
{self.}XmlnsWp14 := object_.XmlAttrXmlnsWp14.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWp) then
|
||||
{self.}XmlnsWp := object_.XmlAttrXmlnsWp.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpc) then
|
||||
{self.}XmlnsWpc := object_.XmlAttrXmlnsWpc.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpg) then
|
||||
{self.}XmlnsWpg := object_.XmlAttrXmlnsWpg.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWpi) then
|
||||
{self.}XmlnsWpi := object_.XmlAttrXmlnsWpi.Value;
|
||||
if not ifnil(object_.XmlAttrXmlnsWps) then
|
||||
{self.}XmlnsWps := object_.XmlAttrXmlnsWps.Value;
|
||||
if not ifnil(object_.XmlAttrMcIgnorable) then
|
||||
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function HyperLinkUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrAnchor.Value := object_.XmlAttrAnchor.Value;
|
||||
{self.}XmlAttrId.Value := object_.XmlAttrId.Value;
|
||||
{self.}XmlAttrHistory.Value := object_.XmlAttrHistory.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrAnchor) then
|
||||
{self.}Anchor := object_.XmlAttrAnchor.Value;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
if not ifnil(object_.XmlAttrHistory) then
|
||||
{self.}History := object_.XmlAttrHistory.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function IdMapUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrExt.Value := object_.XmlAttrExt.Value;
|
||||
{self.}XmlAttrData.Value := object_.XmlAttrData.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrExt) then
|
||||
{self.}Ext := object_.XmlAttrExt.Value;
|
||||
if not ifnil(object_.XmlAttrData) then
|
||||
{self.}Data := object_.XmlAttrData.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,12 +22,23 @@ end;
|
|||
|
||||
function IndUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrFirstLineChars) then
|
||||
{self.}FirstLineChars := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrFirstLineChars.Value);
|
||||
if not ifnil(object_.XmlAttrFirstLine) then
|
||||
{self.}FirstLine := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrFirstLine.Value);
|
||||
if not ifnil(object_.XmlAttrRightChars) then
|
||||
{self.}RightChars := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrRightChars.Value);
|
||||
if not ifnil(object_.XmlAttrRight) then
|
||||
{self.}Right := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrRight.Value);
|
||||
if not ifnil(object_.XmlAttrLeftChars) then
|
||||
{self.}LeftChars := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrLeftChars.Value);
|
||||
if not ifnil(object_.XmlAttrLeft) then
|
||||
{self.}Left := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLeft.Value);
|
||||
if not ifnil(object_.XmlAttrHanging) then
|
||||
{self.}Hanging := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrHanging.Value);
|
||||
if not ifnil(object_.XmlAttrHangingChars) then
|
||||
{self.}HangingChars := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrHangingChars.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,5 +22,9 @@ end;
|
|||
|
||||
function InstrTextUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrSpace.Value := object_.XmlAttrSpace.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrSpace) then
|
||||
{self.}Space := object_.XmlAttrSpace.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function LangUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrVal.Value := object_.XmlAttrVal.Value;
|
||||
{self.}XmlAttrEastAsia.Value := object_.XmlAttrEastAsia.Value;
|
||||
{self.}XmlAttrBidi.Value := object_.XmlAttrBidi.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrVal) then
|
||||
{self.}Val := object_.XmlAttrVal.Value;
|
||||
if not ifnil(object_.XmlAttrEastAsia) then
|
||||
{self.}EastAsia := object_.XmlAttrEastAsia.Value;
|
||||
if not ifnil(object_.XmlAttrBidi) then
|
||||
{self.}Bidi := object_.XmlAttrBidi.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,10 +22,19 @@ end;
|
|||
|
||||
function LatenStylesUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrDefLickedState) then
|
||||
{self.}DefLickedState := object_.XmlAttrDefLickedState.Value;
|
||||
if not ifnil(object_.XmlAttrDefUIPriority) then
|
||||
{self.}DefUIPriority := object_.XmlAttrDefUIPriority.Value;
|
||||
if not ifnil(object_.XmlAttrDefSemiHidden) then
|
||||
{self.}DefSemiHidden := object_.XmlAttrDefSemiHidden.Value;
|
||||
if not ifnil(object_.XmlAttrDefUnhideWhenUsed) then
|
||||
{self.}DefUnhideWhenUsed := object_.XmlAttrDefUnhideWhenUsed.Value;
|
||||
if not ifnil(object_.XmlAttrDefQFormat) then
|
||||
{self.}DefQFormat := object_.XmlAttrDefQFormat.Value;
|
||||
if not ifnil(object_.XmlAttrCount) then
|
||||
{self.}Count := object_.XmlAttrCount.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function LatinUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
|
||||
{self.}XmlAttrPanose.Value := object_.XmlAttrPanose.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrTypeface) then
|
||||
{self.}Typeface := object_.XmlAttrTypeface.Value;
|
||||
if not ifnil(object_.XmlAttrPanose) then
|
||||
{self.}Panose := object_.XmlAttrPanose.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,8 +22,15 @@ end;
|
|||
|
||||
function LegendUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildLegendPos) then
|
||||
{self.}XmlChildLegendPos := new PureValUnitDecorator(object_.XmlChildLegendPos);
|
||||
if not ifnil(object_.XmlChildLayout) then
|
||||
{self.}Layout.Copy(object_.XmlChildLayout);
|
||||
if not ifnil(object_.XmlChildOverlay) then
|
||||
{self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay);
|
||||
if not ifnil(object_.XmlChildTxPr) then
|
||||
{self.}XmlChildTxPr := new TxPrUnitDecorator(object_.XmlChildTxPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function LinUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrAng.Value := object_.XmlAttrAng.Value;
|
||||
{self.}XmlAttrScaled.Value := object_.XmlAttrScaled.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrAng) then
|
||||
{self.}Ang := object_.XmlAttrAng.Value;
|
||||
if not ifnil(object_.XmlAttrScaled) then
|
||||
{self.}Scaled := object_.XmlAttrScaled.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,4 +22,7 @@ end;
|
|||
|
||||
function LnStyleLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,11 +22,21 @@ end;
|
|||
|
||||
function LnUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrW) then
|
||||
{self.}W := object_.XmlAttrW.Value;
|
||||
if not ifnil(object_.XmlAttrCap) then
|
||||
{self.}Cap := object_.XmlAttrCap.Value;
|
||||
if not ifnil(object_.XmlAttrCmpd) then
|
||||
{self.}Cmpd := object_.XmlAttrCmpd.Value;
|
||||
if not ifnil(object_.XmlAttrAlgn) then
|
||||
{self.}Algn := object_.XmlAttrAlgn.Value;
|
||||
if not ifnil(object_.XmlChildSolidFill) then
|
||||
{self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill);
|
||||
if not ifnil(object_.XmlChildPrstDash) then
|
||||
{self.}XmlChildPrstDash := new PureValUnitDecorator(object_.XmlChildPrstDash);
|
||||
if not ifnil(object_.XmlChildMiter) then
|
||||
{self.}XmlChildMiter := new MiterUnitDecorator(object_.XmlChildMiter);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,9 +22,17 @@ end;
|
|||
|
||||
function LsdExceptionUnitDecorator.Convert();
|
||||
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;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrName) then
|
||||
{self.}Name := object_.XmlAttrName.Value;
|
||||
if not ifnil(object_.XmlAttrUIPriority) then
|
||||
{self.}UIPriority := object_.XmlAttrUIPriority.Value;
|
||||
if not ifnil(object_.XmlAttrSemiHidden) then
|
||||
{self.}SemiHidden := object_.XmlAttrSemiHidden.Value;
|
||||
if not ifnil(object_.XmlAttrUnhideWhenUsed) then
|
||||
{self.}UnhideWhenUsed := object_.XmlAttrUnhideWhenUsed.Value;
|
||||
if not ifnil(object_.XmlAttrQFormat) then
|
||||
{self.}QFormat := object_.XmlAttrQFormat.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,14 +22,27 @@ end;
|
|||
|
||||
function LvlUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrIlvl) then
|
||||
{self.}Ilvl := object_.XmlAttrIlvl.Value;
|
||||
if not ifnil(object_.XmlAttrTentative) then
|
||||
{self.}Tentative := object_.XmlAttrTentative.Value;
|
||||
if not ifnil(object_.XmlChildStart) then
|
||||
{self.}XmlChildStart := new PureWValUnitDecorator(object_.XmlChildStart);
|
||||
if not ifnil(object_.XmlChildNumFmt) then
|
||||
{self.}XmlChildNumFmt := new PureWValUnitDecorator(object_.XmlChildNumFmt);
|
||||
if not ifnil(object_.XmlChildPStyle) then
|
||||
{self.}XmlChildPStyle := new PureWValUnitDecorator(object_.XmlChildPStyle);
|
||||
if not ifnil(object_.XmlChildSuff) then
|
||||
{self.}XmlChildSuff := new PureWValUnitDecorator(object_.XmlChildSuff);
|
||||
if not ifnil(object_.XmlChildLvlText) then
|
||||
{self.}XmlChildLvlText := new PureWValUnitDecorator(object_.XmlChildLvlText);
|
||||
if not ifnil(object_.XmlChildLvlJc) then
|
||||
{self.}XmlChildLvlJc := new PureWValUnitDecorator(object_.XmlChildLvlJc);
|
||||
if not ifnil(object_.XmlChildPPr) then
|
||||
{self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr);
|
||||
if not ifnil(object_.XmlChildRPr) then
|
||||
{self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,6 +22,11 @@ end;
|
|||
|
||||
function MFontFontUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}XmlAttrScript.Value := object_.XmlAttrScript.Value;
|
||||
{self.}XmlAttrTypeface.Value := object_.XmlAttrTypeface.Value;
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrScript) then
|
||||
{self.}Script := object_.XmlAttrScript.Value;
|
||||
if not ifnil(object_.XmlAttrTypeface) then
|
||||
{self.}Typeface := object_.XmlAttrTypeface.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,7 +22,13 @@ end;
|
|||
|
||||
function MFontUnitDecorator.Convert();
|
||||
begin
|
||||
{self.}Latin := new LatinUnitDecorator(object_.Latin);
|
||||
{self.}Ea := new LatinUnitDecorator(object_.Ea);
|
||||
{self.}Cs := new LatinUnitDecorator(object_.Cs);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildLatin) then
|
||||
{self.}XmlChildLatin := new LatinUnitDecorator(object_.XmlChildLatin);
|
||||
if not ifnil(object_.XmlChildEa) then
|
||||
{self.}XmlChildEa := new LatinUnitDecorator(object_.XmlChildEa);
|
||||
if not ifnil(object_.XmlChildCs) then
|
||||
{self.}XmlChildCs := new LatinUnitDecorator(object_.XmlChildCs);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -22,15 +22,29 @@ end;
|
|||
|
||||
function MathPrUnitDecorator.Convert();
|
||||
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);
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildMathFont) then
|
||||
{self.}XmlChildMathFont := new PureWValUnitDecorator(object_.XmlChildMathFont);
|
||||
if not ifnil(object_.XmlChildBrkBin) then
|
||||
{self.}XmlChildBrkBin := new PureWValUnitDecorator(object_.XmlChildBrkBin);
|
||||
if not ifnil(object_.XmlChildBrkBinSub) then
|
||||
{self.}XmlChildBrkBinSub := new PureWValUnitDecorator(object_.XmlChildBrkBinSub);
|
||||
if not ifnil(object_.XmlChildSmallFrac) then
|
||||
{self.}XmlChildSmallFrac := new PureWValUnitDecorator(object_.XmlChildSmallFrac);
|
||||
if not ifnil(object_.XmlChildDispDef) then
|
||||
{self.}DispDef.Copy(object_.XmlChildDispDef);
|
||||
if not ifnil(object_.XmlChildLMargin) then
|
||||
{self.}XmlChildLMargin := new PureWValUnitDecorator(object_.XmlChildLMargin);
|
||||
if not ifnil(object_.XmlChildRMargin) then
|
||||
{self.}XmlChildRMargin := new PureWValUnitDecorator(object_.XmlChildRMargin);
|
||||
if not ifnil(object_.XmlChildDefJc) then
|
||||
{self.}XmlChildDefJc := new PureWValUnitDecorator(object_.XmlChildDefJc);
|
||||
if not ifnil(object_.XmlChildWrapIndent) then
|
||||
{self.}XmlChildWrapIndent := new PureWValUnitDecorator(object_.XmlChildWrapIndent);
|
||||
if not ifnil(object_.XmlChildIntLim) then
|
||||
{self.}XmlChildIntLim := new PureWValUnitDecorator(object_.XmlChildIntLim);
|
||||
if not ifnil(object_.XmlChildNaryLim) then
|
||||
{self.}XmlChildNaryLim := new PureWValUnitDecorator(object_.XmlChildNaryLim);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue