v2.1.1 大量更新，功能性更新见readme
This commit is contained in:
+10026
-2452
File diff suppressed because it is too large
Load Diff
@@ -290,6 +290,15 @@ private
|
||||
object_: R;
|
||||
end;
|
||||
|
||||
type CommentReferenceUnitDecorator = class(CommentReference)
|
||||
public
|
||||
function Create(_obj: CommentReference);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CommentReference;
|
||||
end;
|
||||
|
||||
type ObjectUnitDecorator = class(Object)
|
||||
public
|
||||
function Create(_obj: Object);
|
||||
@@ -1340,11 +1349,11 @@ begin
|
||||
if not ifnil(object_.XmlChildTabs) then
|
||||
{self.}XmlChildTabs := new TabsUnitDecorator(object_.XmlChildTabs);
|
||||
if not ifnil(object_.XmlChildBidi) then
|
||||
{self.}XmlChildBidi.Copy(object_.XmlChildBidi);
|
||||
{self.}Bidi.Copy(object_.XmlChildBidi);
|
||||
if not ifnil(object_.XmlChildWidowControl) then
|
||||
{self.}XmlChildWidowControl.Copy(object_.XmlChildWidowControl);
|
||||
{self.}WidowControl.Copy(object_.XmlChildWidowControl);
|
||||
if not ifnil(object_.XmlChildSnapToGrid) then
|
||||
{self.}XmlChildSnapToGrid.Copy(object_.XmlChildSnapToGrid);
|
||||
{self.}SnapToGrid.Copy(object_.XmlChildSnapToGrid);
|
||||
if not ifnil(object_.XmlChildPStyle) then
|
||||
{self.}XmlChildPStyle := new PureWValUnitDecorator(object_.XmlChildPStyle);
|
||||
if not ifnil(object_.XmlChildNumPr) then
|
||||
@@ -1354,21 +1363,21 @@ begin
|
||||
if not ifnil(object_.XmlChildInd) then
|
||||
{self.}XmlChildInd := new IndUnitDecorator(object_.XmlChildInd);
|
||||
if not ifnil(object_.XmlChildKeepNext) then
|
||||
{self.}XmlChildKeepNext.Copy(object_.XmlChildKeepNext);
|
||||
{self.}KeepNext.Copy(object_.XmlChildKeepNext);
|
||||
if not ifnil(object_.XmlChildKeepLines) then
|
||||
{self.}XmlChildKeepLines.Copy(object_.XmlChildKeepLines);
|
||||
{self.}KeepLines.Copy(object_.XmlChildKeepLines);
|
||||
if not ifnil(object_.XmlChildMirrorIndents) then
|
||||
{self.}XmlChildMirrorIndents.Copy(object_.XmlChildMirrorIndents);
|
||||
{self.}MirrorIndents.Copy(object_.XmlChildMirrorIndents);
|
||||
if not ifnil(object_.XmlChildKinsoku) then
|
||||
{self.}XmlChildKinsoku := new PureWValUnitDecorator(object_.XmlChildKinsoku);
|
||||
if not ifnil(object_.XmlChildPageBreakBefore) then
|
||||
{self.}XmlChildPageBreakBefore.Copy(object_.XmlChildPageBreakBefore);
|
||||
{self.}PageBreakBefore.Copy(object_.XmlChildPageBreakBefore);
|
||||
if not ifnil(object_.XmlChildSuppressAutoHyphens) then
|
||||
{self.}XmlChildSuppressAutoHyphens.Copy(object_.XmlChildSuppressAutoHyphens);
|
||||
{self.}SuppressAutoHyphens.Copy(object_.XmlChildSuppressAutoHyphens);
|
||||
if not ifnil(object_.XmlChildSuppressLineNumbers) then
|
||||
{self.}XmlChildSuppressLineNumbers.Copy(object_.XmlChildSuppressLineNumbers);
|
||||
{self.}SuppressLineNumbers.Copy(object_.XmlChildSuppressLineNumbers);
|
||||
if not ifnil(object_.XmlChildSuppressOverlap) then
|
||||
{self.}XmlChildSuppressOverlap.Copy(object_.XmlChildSuppressOverlap);
|
||||
{self.}SuppressOverlap.Copy(object_.XmlChildSuppressOverlap);
|
||||
if not ifnil(object_.XmlChildOverflowPunct) then
|
||||
{self.}XmlChildOverflowPunct := new PureWValUnitDecorator(object_.XmlChildOverflowPunct);
|
||||
if not ifnil(object_.XmlChildAdjustRightInd) then
|
||||
@@ -1386,7 +1395,7 @@ begin
|
||||
if not ifnil(object_.XmlChildPBdr) then
|
||||
{self.}XmlChildPBdr := new PBdrUnitDecorator(object_.XmlChildPBdr);
|
||||
if not ifnil(object_.XmlChildContextualSpacing) then
|
||||
{self.}XmlChildContextualSpacing.Copy(object_.XmlChildContextualSpacing);
|
||||
{self.}ContextualSpacing.Copy(object_.XmlChildContextualSpacing);
|
||||
if not ifnil(object_.XmlChildShd) then
|
||||
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
|
||||
if not ifnil(object_.XmlChildWordWrap) then
|
||||
@@ -1405,6 +1414,8 @@ begin
|
||||
{self.}XmlChildTextAlignment := new PureWValUnitDecorator(object_.XmlChildTextAlignment);
|
||||
if not ifnil(object_.XmlChildTextDirection) then
|
||||
{self.}XmlChildTextDirection := new PureWValUnitDecorator(object_.XmlChildTextDirection);
|
||||
if not ifnil(object_.XmlChildCollapsed) then
|
||||
{self.}XmlChildCollapsed := new PureWValUnitDecorator(object_.XmlChildCollapsed);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -1698,13 +1709,13 @@ begin
|
||||
if not ifnil(object_.XmlChildKern) then
|
||||
{self.}XmlChildKern := new PureWValUnitDecorator(object_.XmlChildKern);
|
||||
if not ifnil(object_.XmlChildI) then
|
||||
{self.}XmlChildI.Copy(object_.XmlChildI);
|
||||
{self.}I.Copy(object_.XmlChildI);
|
||||
if not ifnil(object_.XmlChildICs) then
|
||||
{self.}XmlChildICs.Copy(object_.XmlChildICs);
|
||||
{self.}ICs.Copy(object_.XmlChildICs);
|
||||
if not ifnil(object_.XmlChildB) then
|
||||
{self.}XmlChildB.Copy(object_.XmlChildB);
|
||||
{self.}B.Copy(object_.XmlChildB);
|
||||
if not ifnil(object_.XmlChildBCs) then
|
||||
{self.}XmlChildBCs.Copy(object_.XmlChildBCs);
|
||||
{self.}BCs.Copy(object_.XmlChildBCs);
|
||||
if not ifnil(object_.XmlChildBdr) then
|
||||
{self.}XmlChildBdr := new BdrUnitDecorator(object_.XmlChildBdr);
|
||||
if not ifnil(object_.XmlChildCaps) then
|
||||
@@ -1712,7 +1723,7 @@ begin
|
||||
if not ifnil(object_.XmlChildDel) then
|
||||
{self.}XmlChildDel := new DelUnitDecorator(object_.XmlChildDel);
|
||||
if not ifnil(object_.XmlChildStrike) then
|
||||
{self.}XmlChildStrike.Copy(object_.XmlChildStrike);
|
||||
{self.}Strike.Copy(object_.XmlChildStrike);
|
||||
if not ifnil(object_.XmlChildDStrike) then
|
||||
{self.}XmlChildDStrike := new PureWValUnitDecorator(object_.XmlChildDStrike);
|
||||
if not ifnil(object_.XmlChildEffect) then
|
||||
@@ -1730,13 +1741,13 @@ begin
|
||||
if not ifnil(object_.XmlChildEastAsianLayout) then
|
||||
{self.}XmlChildEastAsianLayout := new EastAsianLayoutUnitDecorator(object_.XmlChildEastAsianLayout);
|
||||
if not ifnil(object_.XmlChildCs) then
|
||||
{self.}XmlChildCs.Copy(object_.XmlChildCs);
|
||||
{self.}Cs.Copy(object_.XmlChildCs);
|
||||
if not ifnil(object_.XmlChildSz) then
|
||||
{self.}XmlChildSz := new SzUnitDecorator(object_.XmlChildSz);
|
||||
if not ifnil(object_.XmlChildSzCs) then
|
||||
{self.}XmlChildSzCs := new SzCsUnitDecorator(object_.XmlChildSzCs);
|
||||
if not ifnil(object_.XmlChildU) then
|
||||
{self.}XmlChildU.Copy(object_.XmlChildU);
|
||||
{self.}U.Copy(object_.XmlChildU);
|
||||
if not ifnil(object_.XmlChildLang) then
|
||||
{self.}XmlChildLang := new LangUnitDecorator(object_.XmlChildLang);
|
||||
if not ifnil(object_.XmlChildImprint) then
|
||||
@@ -1748,13 +1759,13 @@ begin
|
||||
if not ifnil(object_.XmlChildRtl) then
|
||||
{self.}XmlChildRtl := new PureWValUnitDecorator(object_.XmlChildRtl);
|
||||
if not ifnil(object_.XmlChildOMath) then
|
||||
{self.}XmlChildOMath.Copy(object_.XmlChildOMath);
|
||||
{self.}OMath.Copy(object_.XmlChildOMath);
|
||||
if not ifnil(object_.XmlChildShadow) then
|
||||
{self.}XmlChildShadow.Copy(object_.XmlChildShadow);
|
||||
{self.}Shadow.Copy(object_.XmlChildShadow);
|
||||
if not ifnil(object_.XmlChildSpecVanish) then
|
||||
{self.}XmlChildSpecVanish.Copy(object_.XmlChildSpecVanish);
|
||||
{self.}SpecVanish.Copy(object_.XmlChildSpecVanish);
|
||||
if not ifnil(object_.XmlChildVanish) then
|
||||
{self.}XmlChildVanish.Copy(object_.XmlChildVanish);
|
||||
{self.}Vanish.Copy(object_.XmlChildVanish);
|
||||
if not ifnil(object_.XmlChildShd) then
|
||||
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
|
||||
if not ifnil(object_.XmlChildSmallCaps) then
|
||||
@@ -2151,11 +2162,11 @@ begin
|
||||
if not ifnil(object_.XmlChildInstrText) then
|
||||
{self.}XmlChildInstrText := new InstrTextUnitDecorator(object_.XmlChildInstrText);
|
||||
if not ifnil(object_.XmlChildSeparator) then
|
||||
{self.}XmlChildSeparator.Copy(object_.XmlChildSeparator);
|
||||
{self.}Separator.Copy(object_.XmlChildSeparator);
|
||||
if not ifnil(object_.XmlChildContinuationSeparator) then
|
||||
{self.}XmlChildContinuationSeparator.Copy(object_.XmlChildContinuationSeparator);
|
||||
{self.}ContinuationSeparator.Copy(object_.XmlChildContinuationSeparator);
|
||||
if not ifnil(object_.XmlChildLastRenderedPageBreak) then
|
||||
{self.}XmlChildLastRenderedPageBreak.Copy(object_.XmlChildLastRenderedPageBreak);
|
||||
{self.}LastRenderedPageBreak.Copy(object_.XmlChildLastRenderedPageBreak);
|
||||
if not ifnil(object_.XmlChildAlternateContent) then
|
||||
{self.}XmlChildAlternateContent := new AlternateContentUnitDecorator(object_.XmlChildAlternateContent);
|
||||
if not ifnil(object_.XmlChildDrawing) then
|
||||
@@ -2169,7 +2180,30 @@ begin
|
||||
if not ifnil(object_.XmlChildFootnoteReference) then
|
||||
{self.}XmlChildFootnoteReference := new FootnoteReferenceUnitDecorator(object_.XmlChildFootnoteReference);
|
||||
if not ifnil(object_.XmlChildFootnoteRef) then
|
||||
{self.}XmlChildFootnoteRef.Copy(object_.XmlChildFootnoteRef);
|
||||
{self.}FootnoteRef.Copy(object_.XmlChildFootnoteRef);
|
||||
if not ifnil(object_.XmlChildCommentReference) then
|
||||
{self.}XmlChildCommentReference := new CommentReferenceUnitDecorator(object_.XmlChildCommentReference);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function CommentReferenceUnitDecorator.Create(_obj: CommentReference);
|
||||
begin
|
||||
class(CommentReference).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CommentReferenceUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CommentReferenceUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -2697,7 +2731,7 @@ begin
|
||||
if not ifnil(object_.XmlChildJc) then
|
||||
{self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc);
|
||||
if not ifnil(object_.XmlChildCantSplit) then
|
||||
{self.}XmlChildCantSplit.Copy(object_.XmlChildCantSplit);
|
||||
{self.}CantSplit.Copy(object_.XmlChildCantSplit);
|
||||
if not ifnil(object_.XmlChildCnfStyle) then
|
||||
{self.}XmlChildCnfStyle := new CnfStyleUnitDecorator(object_.XmlChildCnfStyle);
|
||||
if not ifnil(object_.XmlChildIns) then
|
||||
@@ -2853,11 +2887,11 @@ begin
|
||||
if not ifnil(object_.XmlChildGridSpan) then
|
||||
{self.}XmlChildGridSpan := new GridSpanUnitDecorator(object_.XmlChildGridSpan);
|
||||
if not ifnil(object_.XmlChildVMerge) then
|
||||
{self.}XmlChildVMerge.Copy(object_.XmlChildVMerge);
|
||||
{self.}VMerge.Copy(object_.XmlChildVMerge);
|
||||
if not ifnil(object_.XmlChildVAlign) then
|
||||
{self.}XmlChildVAlign := new PureWValUnitDecorator(object_.XmlChildVAlign);
|
||||
if not ifnil(object_.XmlChildHideMark) then
|
||||
{self.}XmlChildHideMark.Copy(object_.XmlChildHideMark);
|
||||
{self.}HideMark.Copy(object_.XmlChildHideMark);
|
||||
if not ifnil(object_.XmlChildShd) then
|
||||
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
|
||||
if not ifnil(object_.XmlChildTcBorders) then
|
||||
@@ -3116,7 +3150,7 @@ begin
|
||||
if not ifnil(object_.XmlChildCols) then
|
||||
{self.}XmlChildCols := new ColsUnitDecorator(object_.XmlChildCols);
|
||||
if not ifnil(object_.XmlChildTitlePg) then
|
||||
{self.}XmlChildTitlePg.Copy(object_.XmlChildTitlePg);
|
||||
{self.}TitlePg.Copy(object_.XmlChildTitlePg);
|
||||
if not ifnil(object_.XmlChildDocGrid) then
|
||||
{self.}XmlChildDocGrid := new DocGridUnitDecorator(object_.XmlChildDocGrid);
|
||||
if not ifnil(object_.XmlChildTextDirection) then
|
||||
@@ -3483,10 +3517,10 @@ begin
|
||||
{self.}Usb2 := object_.XmlAttrUsb2.Value;
|
||||
if not ifnil(object_.XmlAttrUsb3) then
|
||||
{self.}Usb3 := object_.XmlAttrUsb3.Value;
|
||||
if not ifnil(object_.XmlAttrcsb0) then
|
||||
{self.}csb0 := object_.XmlAttrcsb0.Value;
|
||||
if not ifnil(object_.XmlAttrcsb1) then
|
||||
{self.}csb1 := object_.XmlAttrcsb1.Value;
|
||||
if not ifnil(object_.XmlAttrCsb0) then
|
||||
{self.}Csb0 := object_.XmlAttrCsb0.Value;
|
||||
if not ifnil(object_.XmlAttrCsb1) then
|
||||
{self.}Csb1 := object_.XmlAttrCsb1.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -3508,48 +3542,20 @@ begin
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrIgnorable) then
|
||||
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
|
||||
if not ifnil(object_.XmlChildZoom) then
|
||||
{self.}XmlChildZoom := new ZoomUnitDecorator(object_.XmlChildZoom);
|
||||
if not ifnil(object_.XmlChildBordersDoNotSurroundHeader) then
|
||||
{self.}XmlChildBordersDoNotSurroundHeader.Copy(object_.XmlChildBordersDoNotSurroundHeader);
|
||||
if not ifnil(object_.XmlChildBordersDoNotSurroundFooter) then
|
||||
{self.}XmlChildBordersDoNotSurroundFooter.Copy(object_.XmlChildBordersDoNotSurroundFooter);
|
||||
if not ifnil(object_.XmlChildDefaultTabStop) then
|
||||
{self.}XmlChildDefaultTabStop := new PureWValUnitDecorator(object_.XmlChildDefaultTabStop);
|
||||
if not ifnil(object_.XmlChildEvenAndOddHeaders) then
|
||||
{self.}XmlChildEvenAndOddHeaders.Copy(object_.XmlChildEvenAndOddHeaders);
|
||||
if not ifnil(object_.XmlChildDrawingGridVerticalSpacing) then
|
||||
{self.}XmlChildDrawingGridVerticalSpacing := new PureWValUnitDecorator(object_.XmlChildDrawingGridVerticalSpacing);
|
||||
if not ifnil(object_.XmlChildDisplayHorizontalDrawingGridEvery) then
|
||||
{self.}XmlChildDisplayHorizontalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayHorizontalDrawingGridEvery);
|
||||
if not ifnil(object_.XmlChildDisplayVerticalDrawingGridEvery) then
|
||||
{self.}XmlChildDisplayVerticalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayVerticalDrawingGridEvery);
|
||||
if not ifnil(object_.XmlChildCharacterSpacingControl) then
|
||||
{self.}XmlChildCharacterSpacingControl := new PureWValUnitDecorator(object_.XmlChildCharacterSpacingControl);
|
||||
if not ifnil(object_.XmlChildHdrShapeDefaults) then
|
||||
{self.}XmlChildHdrShapeDefaults := new HdrShapeDefaultsUnitDecorator(object_.XmlChildHdrShapeDefaults);
|
||||
if not ifnil(object_.XmlChildFootnotePr) then
|
||||
{self.}XmlChildFootnotePr := new FootnotePrUnitDecorator(object_.XmlChildFootnotePr);
|
||||
if not ifnil(object_.XmlChildEndnotePr) then
|
||||
{self.}XmlChildEndnotePr := new EndnotePrUnitDecorator(object_.XmlChildEndnotePr);
|
||||
if not ifnil(object_.XmlChildCompat) then
|
||||
{self.}XmlChildCompat := new CompatUnitDecorator(object_.XmlChildCompat);
|
||||
if not ifnil(object_.XmlChildRsids) then
|
||||
{self.}XmlChildRsids := new RsidsUnitDecorator(object_.XmlChildRsids);
|
||||
if not ifnil(object_.XmlChildMathPr) then
|
||||
{self.}XmlChildMathPr := new MathPrUnitDecorator(object_.XmlChildMathPr);
|
||||
if not ifnil(object_.XmlChildThemeFontLang) then
|
||||
{self.}XmlChildThemeFontLang := new ThemeFontLangUnitDecorator(object_.XmlChildThemeFontLang);
|
||||
if not ifnil(object_.XmlChildClrSchemeMapping) then
|
||||
{self.}XmlChildClrSchemeMapping := new ClrSchemeMappingUnitDecorator(object_.XmlChildClrSchemeMapping);
|
||||
if not ifnil(object_.XmlChildDoNotIncludeSubdocsInStats) then
|
||||
{self.}XmlChildDoNotIncludeSubdocsInStats.Copy(object_.XmlChildDoNotIncludeSubdocsInStats);
|
||||
if not ifnil(object_.XmlChildShapeDefaults) then
|
||||
{self.}XmlChildShapeDefaults := new ShapeDefaults2UnitDecorator(object_.XmlChildShapeDefaults);
|
||||
if not ifnil(object_.XmlChildDecimalSymbol) then
|
||||
{self.}XmlChildDecimalSymbol := new PureWValUnitDecorator(object_.XmlChildDecimalSymbol);
|
||||
if not ifnil(object_.XmlChildListSeparator) then
|
||||
{self.}XmlChildListSeparator := new PureWValUnitDecorator(object_.XmlChildListSeparator);
|
||||
if not ifnil(object_.XmlAttrIgnorable) then
|
||||
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
|
||||
if not ifnil(object_.XmlAttrIgnorable) then
|
||||
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
|
||||
if not ifnil(object_.XmlAttrPr) then
|
||||
{self.}Pr := object_.XmlAttrPr.Value;
|
||||
if not ifnil(object_.XmlAttrPr) then
|
||||
{self.}Pr := object_.XmlAttrPr.Value;
|
||||
if not ifnil(object_.XmlAttrSig) then
|
||||
{self.}Sig := object_.XmlAttrSig.Value;
|
||||
if not ifnil(object_.XmlAttrSig) then
|
||||
{self.}Sig := object_.XmlAttrSig.Value;
|
||||
if not ifnil(object_.XmlAttrSig) then
|
||||
{self.}Sig := object_.XmlAttrSig.Value;
|
||||
if not ifnil(object_.XmlChildDocId) then
|
||||
{self.}XmlChildDocId := new PureWValUnitDecorator(object_.XmlChildDocId);
|
||||
if not ifnil(object_.XmlChildDocId) then
|
||||
@@ -3557,7 +3563,7 @@ begin
|
||||
if not ifnil(object_.XmlChildDocId) then
|
||||
{self.}XmlChildDocId := new PureWValUnitDecorator(object_.XmlChildDocId);
|
||||
if not ifnil(object_.XmlChildChartTrackingRefBased) then
|
||||
{self.}XmlChildChartTrackingRefBased.Copy(object_.XmlChildChartTrackingRefBased);
|
||||
{self.}ChartTrackingRefBased.Copy(object_.XmlChildChartTrackingRefBased);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -3703,19 +3709,19 @@ begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSpaceForUL) then
|
||||
{self.}XmlChildSpaceForUL.Copy(object_.XmlChildSpaceForUL);
|
||||
{self.}SpaceForUL.Copy(object_.XmlChildSpaceForUL);
|
||||
if not ifnil(object_.XmlChildBalanceSingleByteDoubleByteWidth) then
|
||||
{self.}XmlChildBalanceSingleByteDoubleByteWidth.Copy(object_.XmlChildBalanceSingleByteDoubleByteWidth);
|
||||
{self.}BalanceSingleByteDoubleByteWidth.Copy(object_.XmlChildBalanceSingleByteDoubleByteWidth);
|
||||
if not ifnil(object_.XmlChildDoNotLeaveBackslashAlone) then
|
||||
{self.}XmlChildDoNotLeaveBackslashAlone.Copy(object_.XmlChildDoNotLeaveBackslashAlone);
|
||||
{self.}DoNotLeaveBackslashAlone.Copy(object_.XmlChildDoNotLeaveBackslashAlone);
|
||||
if not ifnil(object_.XmlChildUlTrailSpace) then
|
||||
{self.}XmlChildUlTrailSpace.Copy(object_.XmlChildUlTrailSpace);
|
||||
{self.}UlTrailSpace.Copy(object_.XmlChildUlTrailSpace);
|
||||
if not ifnil(object_.XmlChildDoNotExpandShiftReturn) then
|
||||
{self.}XmlChildDoNotExpandShiftReturn.Copy(object_.XmlChildDoNotExpandShiftReturn);
|
||||
{self.}DoNotExpandShiftReturn.Copy(object_.XmlChildDoNotExpandShiftReturn);
|
||||
if not ifnil(object_.XmlChildAdjustLineHeightInTable) then
|
||||
{self.}XmlChildAdjustLineHeightInTable.Copy(object_.XmlChildAdjustLineHeightInTable);
|
||||
{self.}AdjustLineHeightInTable.Copy(object_.XmlChildAdjustLineHeightInTable);
|
||||
if not ifnil(object_.XmlChildUseFELayout) then
|
||||
{self.}XmlChildUseFELayout.Copy(object_.XmlChildUseFELayout);
|
||||
{self.}UseFELayout.Copy(object_.XmlChildUseFELayout);
|
||||
elems := object_.CompatSettings();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new CompatSettingUnitDecorator(elem));
|
||||
@@ -4097,11 +4103,11 @@ begin
|
||||
if not ifnil(object_.XmlChildUIPriority) then
|
||||
{self.}XmlChildUIPriority := new PureWValUnitDecorator(object_.XmlChildUIPriority);
|
||||
if not ifnil(object_.XmlChildSemiHidden) then
|
||||
{self.}XmlChildSemiHidden.Copy(object_.XmlChildSemiHidden);
|
||||
{self.}SemiHidden.Copy(object_.XmlChildSemiHidden);
|
||||
if not ifnil(object_.XmlChildUnhideWhenUsed) then
|
||||
{self.}XmlChildUnhideWhenUsed.Copy(object_.XmlChildUnhideWhenUsed);
|
||||
{self.}UnhideWhenUsed.Copy(object_.XmlChildUnhideWhenUsed);
|
||||
if not ifnil(object_.XmlChildQFormat) then
|
||||
{self.}XmlChildQFormat.Copy(object_.XmlChildQFormat);
|
||||
{self.}QFormat.Copy(object_.XmlChildQFormat);
|
||||
if not ifnil(object_.XmlChildRsid) then
|
||||
{self.}XmlChildRsid := new PureWValUnitDecorator(object_.XmlChildRsid);
|
||||
if not ifnil(object_.XmlChildPPr) then
|
||||
@@ -4220,9 +4226,9 @@ begin
|
||||
if not ifnil(object_.XmlAttrIgnorable) then
|
||||
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
|
||||
if not ifnil(object_.XmlChildOptimizeForBrowser) then
|
||||
{self.}XmlChildOptimizeForBrowser.Copy(object_.XmlChildOptimizeForBrowser);
|
||||
{self.}OptimizeForBrowser.Copy(object_.XmlChildOptimizeForBrowser);
|
||||
if not ifnil(object_.XmlChildAllowPNG) then
|
||||
{self.}XmlChildAllowPNG.Copy(object_.XmlChildAllowPNG);
|
||||
{self.}AllowPNG.Copy(object_.XmlChildAllowPNG);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
|
||||
+1019
-1
File diff suppressed because it is too large
Load Diff
@@ -862,9 +862,9 @@ begin
|
||||
if not ifnil(object_.XmlChildThemeElements) then
|
||||
{self.}XmlChildThemeElements := new ThemeElementsUnitDecorator(object_.XmlChildThemeElements);
|
||||
if not ifnil(object_.XmlChildObjectDefaults) then
|
||||
{self.}XmlChildObjectDefaults.Copy(object_.XmlChildObjectDefaults);
|
||||
{self.}ObjectDefaults.Copy(object_.XmlChildObjectDefaults);
|
||||
if not ifnil(object_.XmlChildExtraClrSchemeLst) then
|
||||
{self.}XmlChildExtraClrSchemeLst.Copy(object_.XmlChildExtraClrSchemeLst);
|
||||
{self.}ExtraClrSchemeLst.Copy(object_.XmlChildExtraClrSchemeLst);
|
||||
if not ifnil(object_.XmlChildExtLst) then
|
||||
{self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst);
|
||||
tslassigning := tslassigning_backup;
|
||||
@@ -1623,7 +1623,7 @@ begin
|
||||
if not ifnil(object_.XmlChildLegendPos) then
|
||||
{self.}XmlChildLegendPos := new PureValUnitDecorator(object_.XmlChildLegendPos);
|
||||
if not ifnil(object_.XmlChildLayout) then
|
||||
{self.}XmlChildLayout.Copy(object_.XmlChildLayout);
|
||||
{self.}Layout.Copy(object_.XmlChildLayout);
|
||||
if not ifnil(object_.XmlChildOverlay) then
|
||||
{self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay);
|
||||
if not ifnil(object_.XmlChildTxPr) then
|
||||
@@ -1673,7 +1673,7 @@ begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildLayout) then
|
||||
{self.}XmlChildLayout.Copy(object_.XmlChildLayout);
|
||||
{self.}Layout.Copy(object_.XmlChildLayout);
|
||||
if not ifnil(object_.XmlChildBarChart) then
|
||||
{self.}XmlChildBarChart := new BarChartUnitDecorator(object_.XmlChildBarChart);
|
||||
if not ifnil(object_.XmlChildCatAx) then
|
||||
@@ -2094,7 +2094,7 @@ begin
|
||||
if not ifnil(object_.XmlChildBodyPr) then
|
||||
{self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr);
|
||||
if not ifnil(object_.XmlChildLstStyle) then
|
||||
{self.}XmlChildLstStyle.Copy(object_.XmlChildLstStyle);
|
||||
{self.}LstStyle.Copy(object_.XmlChildLstStyle);
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
@@ -2120,7 +2120,7 @@ begin
|
||||
if not ifnil(object_.XmlChildTx) then
|
||||
{self.}XmlChildTx := new TxUnitDecorator(object_.XmlChildTx);
|
||||
if not ifnil(object_.XmlChildLayout) then
|
||||
{self.}XmlChildLayout.Copy(object_.XmlChildLayout);
|
||||
{self.}Layout.Copy(object_.XmlChildLayout);
|
||||
if not ifnil(object_.XmlChildOverlay) then
|
||||
{self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay);
|
||||
tslassigning := tslassigning_backup;
|
||||
@@ -2168,7 +2168,7 @@ begin
|
||||
if not ifnil(object_.XmlChildBodyPr) then
|
||||
{self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr);
|
||||
if not ifnil(object_.XmlChildLstStyle) then
|
||||
{self.}XmlChildLstStyle.Copy(object_.XmlChildLstStyle);
|
||||
{self.}LstStyle.Copy(object_.XmlChildLstStyle);
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
@@ -2230,7 +2230,7 @@ begin
|
||||
if not ifnil(object_.XmlChildPrstTxWrap) then
|
||||
{self.}XmlChildPrstTxWrap := new PrstTxWrapUnitDecorator(object_.XmlChildPrstTxWrap);
|
||||
if not ifnil(object_.XmlChildNoAutofit) then
|
||||
{self.}XmlChildNoAutofit.Copy(object_.XmlChildNoAutofit);
|
||||
{self.}NoAutofit.Copy(object_.XmlChildNoAutofit);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -2253,7 +2253,7 @@ begin
|
||||
if not ifnil(object_.XmlAttrPrst) then
|
||||
{self.}Prst := object_.XmlAttrPrst.Value;
|
||||
if not ifnil(object_.XmlChildAvLst) then
|
||||
{self.}XmlChildAvLst.Copy(object_.XmlChildAvLst);
|
||||
{self.}AvLst.Copy(object_.XmlChildAvLst);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -2952,7 +2952,7 @@ begin
|
||||
if not ifnil(object_.XmlChildPrstGeom) then
|
||||
{self.}XmlChildPrstGeom := new PrstGeomUnitDecorator(object_.XmlChildPrstGeom);
|
||||
if not ifnil(object_.XmlChildNoFill) then
|
||||
{self.}XmlChildNoFill.Copy(object_.XmlChildNoFill);
|
||||
{self.}NoFill.Copy(object_.XmlChildNoFill);
|
||||
if not ifnil(object_.XmlChildSolidFill) then
|
||||
{self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill);
|
||||
if not ifnil(object_.XmlChildLn) then
|
||||
@@ -3008,7 +3008,7 @@ begin
|
||||
if not ifnil(object_.XmlAttrAlgn) then
|
||||
{self.}Algn := object_.XmlAttrAlgn.Value;
|
||||
if not ifnil(object_.XmlChildNoFill) then
|
||||
{self.}XmlChildNoFill.Copy(object_.XmlChildNoFill);
|
||||
{self.}NoFill.Copy(object_.XmlChildNoFill);
|
||||
if not ifnil(object_.XmlChildSolidFill) then
|
||||
{self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill);
|
||||
if not ifnil(object_.XmlChildPrstDash) then
|
||||
@@ -3016,9 +3016,9 @@ begin
|
||||
if not ifnil(object_.XmlChildMiter) then
|
||||
{self.}XmlChildMiter := new MiterUnitDecorator(object_.XmlChildMiter);
|
||||
if not ifnil(object_.XmlChildHeadEnd) then
|
||||
{self.}XmlChildHeadEnd.Copy(object_.XmlChildHeadEnd);
|
||||
{self.}HeadEnd.Copy(object_.XmlChildHeadEnd);
|
||||
if not ifnil(object_.XmlChildTailEnd) then
|
||||
{self.}XmlChildTailEnd.Copy(object_.XmlChildTailEnd);
|
||||
{self.}TailEnd.Copy(object_.XmlChildTailEnd);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -3194,7 +3194,7 @@ begin
|
||||
if not ifnil(object_.XmlChildEffectExtent) then
|
||||
{self.}XmlChildEffectExtent := new EffectExtentUnitDecorator(object_.XmlChildEffectExtent);
|
||||
if not ifnil(object_.XmlChildWrapNone) then
|
||||
{self.}XmlChildWrapNone.Copy(object_.XmlChildWrapNone);
|
||||
{self.}WrapNone.Copy(object_.XmlChildWrapNone);
|
||||
if not ifnil(object_.XmlChildDocPr) then
|
||||
{self.}XmlChildDocPr := new DocPrUnitDecorator(object_.XmlChildDocPr);
|
||||
if not ifnil(object_.XmlChildCNvGraphicFramePr) then
|
||||
|
||||
+2274
-659
File diff suppressed because it is too large
Load Diff
+331
-210
@@ -101,15 +101,6 @@ private
|
||||
object_: CtrlPr;
|
||||
end;
|
||||
|
||||
type EUnitDecorator = class(E)
|
||||
public
|
||||
function Create(_obj: E);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: E;
|
||||
end;
|
||||
|
||||
type SSupUnitDecorator = class(SSup)
|
||||
public
|
||||
function Create(_obj: SSup);
|
||||
@@ -128,15 +119,6 @@ private
|
||||
object_: SSupPr;
|
||||
end;
|
||||
|
||||
type SupUnitDecorator = class(Sup)
|
||||
public
|
||||
function Create(_obj: Sup);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Sup;
|
||||
end;
|
||||
|
||||
type FUnitDecorator = class(F)
|
||||
public
|
||||
function Create(_obj: F);
|
||||
@@ -155,15 +137,6 @@ private
|
||||
object_: FPr;
|
||||
end;
|
||||
|
||||
type NumUnitDecorator = class(Num)
|
||||
public
|
||||
function Create(_obj: Num);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Num;
|
||||
end;
|
||||
|
||||
type RadUnitDecorator = class(Rad)
|
||||
public
|
||||
function Create(_obj: Rad);
|
||||
@@ -182,24 +155,6 @@ private
|
||||
object_: RadPr;
|
||||
end;
|
||||
|
||||
type DegUnitDecorator = class(Deg)
|
||||
public
|
||||
function Create(_obj: Deg);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Deg;
|
||||
end;
|
||||
|
||||
type DenUnitDecorator = class(Den)
|
||||
public
|
||||
function Create(_obj: Den);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Den;
|
||||
end;
|
||||
|
||||
type SSubUnitDecorator = class(SSub)
|
||||
public
|
||||
function Create(_obj: SSub);
|
||||
@@ -218,15 +173,6 @@ private
|
||||
object_: SSubPr;
|
||||
end;
|
||||
|
||||
type SubUnitDecorator = class(Sub)
|
||||
public
|
||||
function Create(_obj: Sub);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Sub;
|
||||
end;
|
||||
|
||||
type NaryUnitDecorator = class(Nary)
|
||||
public
|
||||
function Create(_obj: Nary);
|
||||
@@ -344,6 +290,60 @@ private
|
||||
object_: _Override;
|
||||
end;
|
||||
|
||||
type NumUnitDecorator = class(Num)
|
||||
public
|
||||
function Create(_obj: Num);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Num;
|
||||
end;
|
||||
|
||||
type DegUnitDecorator = class(Deg)
|
||||
public
|
||||
function Create(_obj: Deg);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Deg;
|
||||
end;
|
||||
|
||||
type EUnitDecorator = class(E)
|
||||
public
|
||||
function Create(_obj: E);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: E;
|
||||
end;
|
||||
|
||||
type SupUnitDecorator = class(Sup)
|
||||
public
|
||||
function Create(_obj: Sup);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Sup;
|
||||
end;
|
||||
|
||||
type DenUnitDecorator = class(Den)
|
||||
public
|
||||
function Create(_obj: Den);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Den;
|
||||
end;
|
||||
|
||||
type SubUnitDecorator = class(Sub)
|
||||
public
|
||||
function Create(_obj: Sub);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Sub;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
function MathPrUnitDecorator.Create(_obj: MathPr);
|
||||
@@ -371,7 +371,7 @@ begin
|
||||
if not ifnil(object_.XmlChildSmallFrac) then
|
||||
{self.}XmlChildSmallFrac := new PureMValUnitDecorator(object_.XmlChildSmallFrac);
|
||||
if not ifnil(object_.XmlChildDispDef) then
|
||||
{self.}XmlChildDispDef.Copy(object_.XmlChildDispDef);
|
||||
{self.}DispDef.Copy(object_.XmlChildDispDef);
|
||||
if not ifnil(object_.XmlChildLMargin) then
|
||||
{self.}XmlChildLMargin := new PureMValUnitDecorator(object_.XmlChildLMargin);
|
||||
if not ifnil(object_.XmlChildRMargin) then
|
||||
@@ -483,9 +483,15 @@ begin
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.Naries();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new NaryUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
@@ -637,44 +643,6 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function EUnitDecorator.Create(_obj: E);
|
||||
begin
|
||||
class(E).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
elems := object_.Ds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new DUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
if not ifnil(object_.XmlChildF) then
|
||||
{self.}XmlChildF := new FUnitDecorator(object_.XmlChildF);
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function SSupUnitDecorator.Create(_obj: SSup);
|
||||
begin
|
||||
class(SSup).Create();
|
||||
@@ -721,30 +689,6 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function SupUnitDecorator.Create(_obj: Sup);
|
||||
begin
|
||||
class(Sup).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function SupUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function SupUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function FUnitDecorator.Create(_obj: F);
|
||||
begin
|
||||
class(F).Create();
|
||||
@@ -793,32 +737,6 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.Create(_obj: Num);
|
||||
begin
|
||||
class(Num).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
if not ifnil(object_.XmlChildRad) then
|
||||
{self.}XmlChildRad := new RadUnitDecorator(object_.XmlChildRad);
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function RadUnitDecorator.Create(_obj: Rad);
|
||||
begin
|
||||
class(Rad).Create();
|
||||
@@ -867,49 +785,6 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function DegUnitDecorator.Create(_obj: Deg);
|
||||
begin
|
||||
class(Deg).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DegUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DegUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function DenUnitDecorator.Create(_obj: Den);
|
||||
begin
|
||||
class(Den).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DenUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DenUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function SSubUnitDecorator.Create(_obj: SSub);
|
||||
begin
|
||||
class(SSub).Create();
|
||||
@@ -956,30 +831,6 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function SubUnitDecorator.Create(_obj: Sub);
|
||||
begin
|
||||
class(Sub).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function SubUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function SubUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function NaryUnitDecorator.Create(_obj: Nary);
|
||||
begin
|
||||
class(Nary).Create();
|
||||
@@ -1297,4 +1148,274 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.Create(_obj: Num);
|
||||
begin
|
||||
class(Num).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function NumUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
elems := object_.Ds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new DUnitDecorator(elem));
|
||||
elems := object_.Fs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FUnitDecorator(elem));
|
||||
elems := object_.Rads();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RadUnitDecorator(elem));
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.Naries();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new NaryUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function DegUnitDecorator.Create(_obj: Deg);
|
||||
begin
|
||||
class(Deg).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DegUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DegUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
elems := object_.Ds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new DUnitDecorator(elem));
|
||||
elems := object_.Fs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FUnitDecorator(elem));
|
||||
elems := object_.Rads();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RadUnitDecorator(elem));
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.Naries();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new NaryUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function EUnitDecorator.Create(_obj: E);
|
||||
begin
|
||||
class(E).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
elems := object_.Ds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new DUnitDecorator(elem));
|
||||
elems := object_.Fs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FUnitDecorator(elem));
|
||||
elems := object_.Rads();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RadUnitDecorator(elem));
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.Naries();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new NaryUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function SupUnitDecorator.Create(_obj: Sup);
|
||||
begin
|
||||
class(Sup).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function SupUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function SupUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
elems := object_.Ds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new DUnitDecorator(elem));
|
||||
elems := object_.Fs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FUnitDecorator(elem));
|
||||
elems := object_.Rads();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RadUnitDecorator(elem));
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.Naries();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new NaryUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function DenUnitDecorator.Create(_obj: Den);
|
||||
begin
|
||||
class(Den).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DenUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DenUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
elems := object_.Ds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new DUnitDecorator(elem));
|
||||
elems := object_.Fs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FUnitDecorator(elem));
|
||||
elems := object_.Rads();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RadUnitDecorator(elem));
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.Naries();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new NaryUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function SubUnitDecorator.Create(_obj: Sub);
|
||||
begin
|
||||
class(Sub).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function SubUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function SubUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildCtrlPr) then
|
||||
{self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
elems := object_.Ds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new DUnitDecorator(elem));
|
||||
elems := object_.Fs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FUnitDecorator(elem));
|
||||
elems := object_.Rads();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RadUnitDecorator(elem));
|
||||
elems := object_.SSubs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSubUnitDecorator(elem));
|
||||
elems := object_.SSups();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SSupUnitDecorator(elem));
|
||||
elems := object_.Naries();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new NaryUnitDecorator(elem));
|
||||
elems := object_.Funcs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FuncUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
end.
|
||||
+130
-1
@@ -1,6 +1,6 @@
|
||||
unit VML;
|
||||
interface
|
||||
uses DocxML;
|
||||
uses TSSafeUnitConverter, DocxML;
|
||||
|
||||
type Shapetype = class(OpenXmlCompositeElement)
|
||||
public
|
||||
@@ -9,6 +9,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Shapetype);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId;
|
||||
@@ -81,6 +83,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Formulas);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
|
||||
// multi property
|
||||
@@ -100,6 +104,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Lock);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Ext read ReadXmlAttrExt write WriteXmlAttrExt;
|
||||
@@ -123,6 +129,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: F);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Eqn read ReadXmlAttrEqn write WriteXmlAttrEqn;
|
||||
@@ -142,6 +150,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Stroke);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Joinstyle read ReadXmlAttrJoinstyle write WriteXmlAttrJoinstyle;
|
||||
@@ -161,6 +171,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Path);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Extrusionok read ReadXmlAttrExtrusionok write WriteXmlAttrExtrusionok;
|
||||
@@ -200,6 +212,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Textpath);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property _On read ReadXmlAttr_On write WriteXmlAttr_On;
|
||||
@@ -231,6 +245,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Handles);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
|
||||
// normal property
|
||||
@@ -249,6 +265,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: H);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Xrange read ReadXmlAttrXrange write WriteXmlAttrXrange;
|
||||
@@ -272,6 +290,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Shape);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
||||
@@ -345,6 +365,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Wrap);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Anchorx read ReadXmlAttrAnchorx write WriteXmlAttrAnchorx;
|
||||
@@ -368,6 +390,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Fill);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Opacity read ReadXmlAttrOpacity write WriteXmlAttrOpacity;
|
||||
@@ -387,6 +411,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Imagedata);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Id read ReadXmlAttrId write WriteXmlAttrId;
|
||||
@@ -410,6 +436,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: Textbox);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
|
||||
// normal property
|
||||
@@ -428,6 +456,8 @@ public
|
||||
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
|
||||
function Init();override;
|
||||
function Copy(_obj: OLEObject);override;
|
||||
function ConvertToPoint();override;
|
||||
|
||||
public
|
||||
// attributes property
|
||||
property Type read ReadXmlAttrType write WriteXmlAttrType;
|
||||
@@ -542,6 +572,22 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Shapetype.ConvertToPoint();override;
|
||||
begin
|
||||
if not ifnil({self.}XmlChildStroke) then
|
||||
{self.}XmlChildStroke.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildFormulas) then
|
||||
{self.}XmlChildFormulas.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildPath) then
|
||||
{self.}XmlChildPath.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildTextpath) then
|
||||
{self.}XmlChildTextpath.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildHandles) then
|
||||
{self.}XmlChildHandles.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildLock) then
|
||||
{self.}XmlChildLock.ConvertToPoint();
|
||||
end;
|
||||
|
||||
function Shapetype.ReadXmlAttrAnchorId();
|
||||
begin
|
||||
return {self.}XmlAttrAnchorId.Value;
|
||||
@@ -773,6 +819,13 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Formulas.ConvertToPoint();override;
|
||||
begin
|
||||
elems := {self.}Fs();
|
||||
for _,elem in elems do
|
||||
elem.ConvertToPoint();
|
||||
end;
|
||||
|
||||
function Formulas.ReadFs(_index);
|
||||
begin
|
||||
ind := ifnil(_index) ? -2 : _index;
|
||||
@@ -835,6 +888,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Lock.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function Lock.ReadXmlAttrExt();
|
||||
begin
|
||||
return {self.}XmlAttrExt.Value;
|
||||
@@ -903,6 +961,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function F.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function F.ReadXmlAttrEqn();
|
||||
begin
|
||||
return {self.}XmlAttrEqn.Value;
|
||||
@@ -956,6 +1019,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Stroke.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function Stroke.ReadXmlAttrJoinstyle();
|
||||
begin
|
||||
return {self.}XmlAttrJoinstyle.Value;
|
||||
@@ -1024,6 +1092,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Path.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function Path.ReadXmlAttrExtrusionok();
|
||||
begin
|
||||
return {self.}XmlAttrExtrusionok.Value;
|
||||
@@ -1161,6 +1234,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Textpath.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function Textpath.ReadXmlAttr_On();
|
||||
begin
|
||||
return {self.}XmlAttr_On.Value;
|
||||
@@ -1259,6 +1337,12 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Handles.ConvertToPoint();override;
|
||||
begin
|
||||
if not ifnil({self.}XmlChildH) then
|
||||
{self.}XmlChildH.ConvertToPoint();
|
||||
end;
|
||||
|
||||
function Handles.ReadXmlChildH(): H;
|
||||
begin
|
||||
if tslassigning and (ifnil({self.}XmlChildH) or {self.}XmlChildH.Removed) then
|
||||
@@ -1310,6 +1394,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function H.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function H.ReadXmlAttrXrange();
|
||||
begin
|
||||
return {self.}XmlAttrXrange.Value;
|
||||
@@ -1420,6 +1509,20 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Shape.ConvertToPoint();override;
|
||||
begin
|
||||
if not ifnil({self.}XmlChildFill) then
|
||||
{self.}XmlChildFill.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildTextbox) then
|
||||
{self.}XmlChildTextbox.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildTextpath) then
|
||||
{self.}XmlChildTextpath.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildImagedata) then
|
||||
{self.}XmlChildImagedata.ConvertToPoint();
|
||||
if not ifnil({self.}XmlChildWrap) then
|
||||
{self.}XmlChildWrap.ConvertToPoint();
|
||||
end;
|
||||
|
||||
function Shape.ReadXmlAttrId();
|
||||
begin
|
||||
return {self.}XmlAttrId.Value;
|
||||
@@ -1661,6 +1764,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Wrap.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function Wrap.ReadXmlAttrAnchorx();
|
||||
begin
|
||||
return {self.}XmlAttrAnchorx.Value;
|
||||
@@ -1729,6 +1837,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Fill.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function Fill.ReadXmlAttrOpacity();
|
||||
begin
|
||||
return {self.}XmlAttrOpacity.Value;
|
||||
@@ -1785,6 +1898,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Imagedata.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function Imagedata.ReadXmlAttrId();
|
||||
begin
|
||||
return {self.}XmlAttrId.Value;
|
||||
@@ -1853,6 +1971,12 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function Textbox.ConvertToPoint();override;
|
||||
begin
|
||||
if not ifnil({self.}XmlChildTxbxContent) then
|
||||
{self.}XmlChildTxbxContent.ConvertToPoint();
|
||||
end;
|
||||
|
||||
function Textbox.ReadXmlChildTxbxContent(): TxbxContent;
|
||||
begin
|
||||
if tslassigning and (ifnil({self.}XmlChildTxbxContent) or {self.}XmlChildTxbxContent.Removed) then
|
||||
@@ -1916,6 +2040,11 @@ begin
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
||||
function OLEObject.ConvertToPoint();override;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function OLEObject.ReadXmlAttrType();
|
||||
begin
|
||||
return {self.}XmlAttrType.Value;
|
||||
|
||||
Reference in New Issue
Block a user