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

config update

Browse Source
This commit is contained in:
csh
2025-01-03 10:24:13 +08:00
parent c77abfc1c8
commit 41bbf69f79
7 changed files with 3211 additions and 320 deletions
Download Patch File Download Diff File Expand all files Collapse all files
autounit/DocxML.tsf
+2684 -256
View File
File diff suppressed because it is too large Load Diff
autounit/DocxMLUnitDecorator.tsf
+441 -44
View File
@@ -92,6 +92,15 @@ private
object_: PBdr;
end;
type FramePrUnitDecorator = class(FramePr)
public
function Create(_obj: FramePr);
function GetObject();
function Convert();
private
object_: FramePr;
end;
type PBorderUnitDecorator = class(PBorder)
public
function Create(_obj: PBorder);
@@ -155,6 +164,60 @@ private
object_: RPr;
end;
type ShdUnitDecorator = class(Shd)
public
function Create(_obj: Shd);
function GetObject();
function Convert();
private
object_: Shd;
end;
type HighlightUnitDecorator = class(Highlight)
public
function Create(_obj: Highlight);
function GetObject();
function Convert();
private
object_: Highlight;
end;
type FitTextUnitDecorator = class(FitText)
public
function Create(_obj: FitText);
function GetObject();
function Convert();
private
object_: FitText;
end;
type EastAsianLayoutUnitDecorator = class(EastAsianLayout)
public
function Create(_obj: EastAsianLayout);
function GetObject();
function Convert();
private
object_: EastAsianLayout;
end;
type DelUnitDecorator = class(Del)
public
function Create(_obj: Del);
function GetObject();
function Convert();
private
object_: Del;
end;
type BdrUnitDecorator = class(Bdr)
public
function Create(_obj: Bdr);
function GetObject();
function Convert();
private
object_: Bdr;
end;
type RFontsUnitDecorator = class(RFonts)
public
function Create(_obj: RFonts);
@@ -470,15 +533,6 @@ private
object_: GridSpan;
end;
type ShdUnitDecorator = class(Shd)
public
function Create(_obj: Shd);
function GetObject();
function Convert();
private
object_: Shd;
end;
type SdtUnitDecorator = class(Sdt)
public
function Create(_obj: Sdt);
@@ -920,6 +974,15 @@ private
object_: Pict;
end;
type ControlUnitDecorator = class(Control)
public
function Create(_obj: Control);
function GetObject();
function Convert();
private
object_: Control;
end;
type FtrUnitDecorator = class(Ftr)
public
function Create(_obj: Ftr);
@@ -1045,8 +1108,8 @@ function DocumentUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrMcIgnorable) then
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
if not ifnil(object_.XmlAttrIgnorable) then
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
if not ifnil(object_.XmlChildBody) then
{self.}XmlChildBody := new BodyUnitDecorator(object_.XmlChildBody);
tslassigning := tslassigning_backup;
@@ -1116,6 +1179,11 @@ begin
{self.}XmlChildOMathPara := new OMathParaUnitDecorator(object_.XmlChildOMathPara);
if not ifnil(object_.XmlChildIns) then
{self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns);
if not ifnil(object_.XmlChildDel) then
{self.}XmlChildDel := new DelUnitDecorator(object_.XmlChildDel);
elems := object_.Sdts();
for _,elem in elems do
{self.}AppendChild(new SdtUnitDecorator(elem));
elems := object_.Rs();
for _,elem in elems do
{self.}AppendChild(new RUnitDecorator(elem));
@@ -1256,6 +1324,8 @@ begin
{self.}XmlChildSectPr := new SectPrUnitDecorator(object_.XmlChildSectPr);
if not ifnil(object_.XmlChildTabs) then
{self.}XmlChildTabs := new TabsUnitDecorator(object_.XmlChildTabs);
if not ifnil(object_.XmlChildBidi) then
{self.}Bidi.Copy(object_.XmlChildBidi);
if not ifnil(object_.XmlChildWidowControl) then
{self.}WidowControl.Copy(object_.XmlChildWidowControl);
if not ifnil(object_.XmlChildSnapToGrid) then
@@ -1272,8 +1342,20 @@ begin
{self.}KeepNext.Copy(object_.XmlChildKeepNext);
if not ifnil(object_.XmlChildKeepLines) then
{self.}KeepLines.Copy(object_.XmlChildKeepLines);
if not ifnil(object_.XmlChildMirrorIndents) then
{self.}MirrorIndents.Copy(object_.XmlChildMirrorIndents);
if not ifnil(object_.XmlChildKinsoku) then
{self.}XmlChildKinsoku := new PureWValUnitDecorator(object_.XmlChildKinsoku);
if not ifnil(object_.XmlChildPageBreakBefore) then
{self.}PageBreakBefore.Copy(object_.XmlChildPageBreakBefore);
if not ifnil(object_.XmlChildSuppressAutoHyphens) then
{self.}SuppressAutoHyphens.Copy(object_.XmlChildSuppressAutoHyphens);
if not ifnil(object_.XmlChildSuppressLineNumbers) then
{self.}SuppressLineNumbers.Copy(object_.XmlChildSuppressLineNumbers);
if not ifnil(object_.XmlChildSuppressOverlap) then
{self.}SuppressOverlap.Copy(object_.XmlChildSuppressOverlap);
if not ifnil(object_.XmlChildOverflowPunct) then
{self.}XmlChildOverflowPunct := new PureWValUnitDecorator(object_.XmlChildOverflowPunct);
if not ifnil(object_.XmlChildAdjustRightInd) then
{self.}XmlChildAdjustRightInd := new PureWValUnitDecorator(object_.XmlChildAdjustRightInd);
if not ifnil(object_.XmlChildSpacing) then
@@ -1294,8 +1376,20 @@ begin
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildWordWrap) then
{self.}XmlChildWordWrap := new PureWValUnitDecorator(object_.XmlChildWordWrap);
if not ifnil(object_.XmlChildDivId) then
{self.}XmlChildDivId := new PureWValUnitDecorator(object_.XmlChildDivId);
if not ifnil(object_.XmlChildCnfStyle) then
{self.}XmlChildCnfStyle := new PureWValUnitDecorator(object_.XmlChildCnfStyle);
if not ifnil(object_.XmlChildFramePr) then
{self.}XmlChildFramePr := new FramePrUnitDecorator(object_.XmlChildFramePr);
if not ifnil(object_.XmlChildTextboxTightWrap) then
{self.}XmlChildTextboxTightWrap := new PureWValUnitDecorator(object_.XmlChildTextboxTightWrap);
if not ifnil(object_.XmlChildTopLinePunct) then
{self.}XmlChildTopLinePunct := new PureWValUnitDecorator(object_.XmlChildTopLinePunct);
if not ifnil(object_.XmlChildTextAlignment) then
{self.}XmlChildTextAlignment := new PureWValUnitDecorator(object_.XmlChildTextAlignment);
if not ifnil(object_.XmlChildTextDirection) then
{self.}XmlChildTextDirection := new PureWValUnitDecorator(object_.XmlChildTextDirection);
tslassigning := tslassigning_backup;
end;
@@ -1317,8 +1411,65 @@ begin
tslassigning := 1;
if not ifnil(object_.XmlChildTop) then
{self.}XmlChildTop := new PBorderUnitDecorator(object_.XmlChildTop);
if not ifnil(object_.XmlChildLeft) then
{self.}XmlChildLeft := new PBorderUnitDecorator(object_.XmlChildLeft);
if not ifnil(object_.XmlChildRight) then
{self.}XmlChildRight := new PBorderUnitDecorator(object_.XmlChildRight);
if not ifnil(object_.XmlChildBottom) then
{self.}XmlChildBottom := new PBorderUnitDecorator(object_.XmlChildBottom);
if not ifnil(object_.XmlChildBetween) then
{self.}XmlChildBetween := new PBorderUnitDecorator(object_.XmlChildBetween);
tslassigning := tslassigning_backup;
end;
function FramePrUnitDecorator.Create(_obj: FramePr);
begin
class(FramePr).Create();
object_ := _obj;
{self.}Convert();
end;
function FramePrUnitDecorator.GetObject();
begin
return object_;
end;
function FramePrUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrAnchorLock) then
{self.}AnchorLock := object_.XmlAttrAnchorLock.Value;
if not ifnil(object_.XmlAttrDropCap) then
{self.}DropCap := object_.XmlAttrDropCap.Value;
if not ifnil(object_.XmlAttrVAnchor) then
{self.}VAnchor := object_.XmlAttrVAnchor.Value;
if not ifnil(object_.XmlAttrHAnchor) then
{self.}HAnchor := object_.XmlAttrHAnchor.Value;
if not ifnil(object_.XmlAttrHRule) then
{self.}HRule := object_.XmlAttrHRule.Value;
if not ifnil(object_.XmlAttrHSpace) then
{self.}HSpace := object_.XmlAttrHSpace.Value;
if not ifnil(object_.XmlAttrVSpace) then
{self.}VSpace := object_.XmlAttrVSpace.Value;
if not ifnil(object_.XmlAttrLines) then
{self.}Lines := object_.XmlAttrLines.Value;
if not ifnil(object_.XmlAttrWrap) then
{self.}Wrap := object_.XmlAttrWrap.Value;
if not ifnil(object_.XmlAttrVal) then
{self.}Val := object_.XmlAttrVal.Value;
if not ifnil(object_.XmlAttrW) then
{self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value);
if not ifnil(object_.XmlAttrH) then
{self.}H := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrH.Value);
if not ifnil(object_.XmlAttrX) then
{self.}X := object_.XmlAttrX.Value;
if not ifnil(object_.XmlAttrY) then
{self.}Y := object_.XmlAttrY.Value;
if not ifnil(object_.XmlAttrXAlign) then
{self.}XAlign := object_.XmlAttrXAlign.Value;
if not ifnil(object_.XmlAttrYAlign) then
{self.}YAlign := object_.XmlAttrYAlign.Value;
tslassigning := tslassigning_backup;
end;
@@ -1344,8 +1495,14 @@ begin
{self.}Color := object_.XmlAttrColor.Value;
if not ifnil(object_.XmlAttrSpace) then
{self.}Space := object_.XmlAttrSpace.Value;
if not ifnil(object_.XmlAttrFrame) then
{self.}Frame := object_.XmlAttrFrame.Value;
if not ifnil(object_.XmlAttrShadow) then
{self.}Shadow := object_.XmlAttrShadow.Value;
if not ifnil(object_.XmlAttrThemeColor) then
{self.}ThemeColor := object_.XmlAttrThemeColor.Value;
if not ifnil(object_.XmlAttrThemeShade) then
{self.}ThemeShade := object_.XmlAttrThemeShade.Value;
if not ifnil(object_.XmlAttrThemeTint) then
{self.}ThemeTint := object_.XmlAttrThemeTint.Value;
if not ifnil(object_.XmlAttrSz) then
@@ -1511,6 +1668,8 @@ begin
tslassigning := 1;
if not ifnil(object_.XmlChildNoProof) then
{self.}XmlChildNoProof := new PureValUnitDecorator(object_.XmlChildNoProof);
if not ifnil(object_.XmlChildOutline) then
{self.}XmlChildOutline := new PureValUnitDecorator(object_.XmlChildOutline);
if not ifnil(object_.XmlChildPosition) then
{self.}XmlChildPosition := new PureValUnitDecorator(object_.XmlChildPosition);
if not ifnil(object_.XmlChildWebHidden) then
@@ -1531,10 +1690,32 @@ begin
{self.}B.Copy(object_.XmlChildB);
if not ifnil(object_.XmlChildBCs) then
{self.}BCs.Copy(object_.XmlChildBCs);
if not ifnil(object_.XmlChildBdr) then
{self.}XmlChildBdr := new BdrUnitDecorator(object_.XmlChildBdr);
if not ifnil(object_.XmlChildCaps) then
{self.}XmlChildCaps := new PureWValUnitDecorator(object_.XmlChildCaps);
if not ifnil(object_.XmlChildDel) then
{self.}XmlChildDel := new DelUnitDecorator(object_.XmlChildDel);
if not ifnil(object_.XmlChildStrike) then
{self.}Strike.Copy(object_.XmlChildStrike);
if not ifnil(object_.XmlChildDStrike) then
{self.}XmlChildDStrike := new PureWValUnitDecorator(object_.XmlChildDStrike);
if not ifnil(object_.XmlChildEffect) then
{self.}XmlChildEffect := new PureWValUnitDecorator(object_.XmlChildEffect);
if not ifnil(object_.XmlChildEm) then
{self.}XmlChildEm := new PureWValUnitDecorator(object_.XmlChildEm);
if not ifnil(object_.XmlChildEmboss) then
{self.}XmlChildEmboss := new PureWValUnitDecorator(object_.XmlChildEmboss);
if not ifnil(object_.XmlChildFitText) then
{self.}XmlChildFitText := new FitTextUnitDecorator(object_.XmlChildFitText);
if not ifnil(object_.XmlChildHighlight) then
{self.}XmlChildHighlight := new HighlightUnitDecorator(object_.XmlChildHighlight);
if not ifnil(object_.XmlChildColor) then
{self.}XmlChildColor := new ColorUnitDecorator(object_.XmlChildColor);
if not ifnil(object_.XmlChildEastAsianLayout) then
{self.}XmlChildEastAsianLayout := new EastAsianLayoutUnitDecorator(object_.XmlChildEastAsianLayout);
if not ifnil(object_.XmlChildCs) then
{self.}Cs.Copy(object_.XmlChildCs);
if not ifnil(object_.XmlChildSz) then
{self.}XmlChildSz := new SzUnitDecorator(object_.XmlChildSz);
if not ifnil(object_.XmlChildSzCs) then
@@ -1543,10 +1724,212 @@ begin
{self.}U.Copy(object_.XmlChildU);
if not ifnil(object_.XmlChildLang) then
{self.}XmlChildLang := new LangUnitDecorator(object_.XmlChildLang);
if not ifnil(object_.XmlChildImprint) then
{self.}XmlChildImprint := new PureWValUnitDecorator(object_.XmlChildImprint);
if not ifnil(object_.XmlChildVertAlign) then
{self.}XmlChildVertAlign := new PureWValUnitDecorator(object_.XmlChildVertAlign);
if not ifnil(object_.XmlChildLigatures) then
{self.}XmlChildLigatures := new PureWValUnitDecorator(object_.XmlChildLigatures);
if not ifnil(object_.XmlChildRtl) then
{self.}XmlChildRtl := new PureWValUnitDecorator(object_.XmlChildRtl);
if not ifnil(object_.XmlChildOMath) then
{self.}OMath.Copy(object_.XmlChildOMath);
if not ifnil(object_.XmlChildShadow) then
{self.}Shadow.Copy(object_.XmlChildShadow);
if not ifnil(object_.XmlChildSpecVanish) then
{self.}SpecVanish.Copy(object_.XmlChildSpecVanish);
if not ifnil(object_.XmlChildVanish) then
{self.}Vanish.Copy(object_.XmlChildVanish);
if not ifnil(object_.XmlChildShd) then
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildSmallCaps) then
{self.}XmlChildSmallCaps := new PureWValUnitDecorator(object_.XmlChildSmallCaps);
if not ifnil(object_.XmlChildW) then
{self.}XmlChildW := new PureWValUnitDecorator(object_.XmlChildW);
tslassigning := tslassigning_backup;
end;
function ShdUnitDecorator.Create(_obj: Shd);
begin
class(Shd).Create();
object_ := _obj;
{self.}Convert();
end;
function ShdUnitDecorator.GetObject();
begin
return object_;
end;
function ShdUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrVal) then
{self.}Val := object_.XmlAttrVal.Value;
if not ifnil(object_.XmlAttrColor) then
{self.}Color := object_.XmlAttrColor.Value;
if not ifnil(object_.XmlAttrFill) then
{self.}Fill := object_.XmlAttrFill.Value;
if not ifnil(object_.XmlAttrThemeColor) then
{self.}ThemeColor := object_.XmlAttrThemeColor.Value;
if not ifnil(object_.XmlAttrThemeFill) then
{self.}ThemeFill := object_.XmlAttrThemeFill.Value;
if not ifnil(object_.XmlAttrThemeFillTint) then
{self.}ThemeFillTint := object_.XmlAttrThemeFillTint.Value;
if not ifnil(object_.XmlAttrThemeFillShade) then
{self.}ThemeFillShade := object_.XmlAttrThemeFillShade.Value;
if not ifnil(object_.XmlAttrThemeShade) then
{self.}ThemeShade := object_.XmlAttrThemeShade.Value;
if not ifnil(object_.XmlAttrThemeTint) then
{self.}ThemeTint := object_.XmlAttrThemeTint.Value;
tslassigning := tslassigning_backup;
end;
function HighlightUnitDecorator.Create(_obj: Highlight);
begin
class(Highlight).Create();
object_ := _obj;
{self.}Convert();
end;
function HighlightUnitDecorator.GetObject();
begin
return object_;
end;
function HighlightUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrVal) then
{self.}Val := object_.XmlAttrVal.Value;
tslassigning := tslassigning_backup;
end;
function FitTextUnitDecorator.Create(_obj: FitText);
begin
class(FitText).Create();
object_ := _obj;
{self.}Convert();
end;
function FitTextUnitDecorator.GetObject();
begin
return object_;
end;
function FitTextUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrId) then
{self.}Id := object_.XmlAttrId.Value;
if not ifnil(object_.XmlAttrVal) then
{self.}Val := object_.XmlAttrVal.Value;
tslassigning := tslassigning_backup;
end;
function EastAsianLayoutUnitDecorator.Create(_obj: EastAsianLayout);
begin
class(EastAsianLayout).Create();
object_ := _obj;
{self.}Convert();
end;
function EastAsianLayoutUnitDecorator.GetObject();
begin
return object_;
end;
function EastAsianLayoutUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrCombine) then
{self.}Combine := object_.XmlAttrCombine.Value;
if not ifnil(object_.XmlAttrCombineBrackets) then
{self.}CombineBrackets := object_.XmlAttrCombineBrackets.Value;
if not ifnil(object_.XmlAttrId) then
{self.}Id := object_.XmlAttrId.Value;
if not ifnil(object_.XmlAttrVert) then
{self.}Vert := object_.XmlAttrVert.Value;
if not ifnil(object_.XmlAttrVertCompress) then
{self.}VertCompress := object_.XmlAttrVertCompress.Value;
tslassigning := tslassigning_backup;
end;
function DelUnitDecorator.Create(_obj: Del);
begin
class(Del).Create();
object_ := _obj;
{self.}Convert();
end;
function DelUnitDecorator.GetObject();
begin
return object_;
end;
function DelUnitDecorator.Convert();
begin
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;
if not ifnil(object_.XmlAttrColor) then
{self.}Color := object_.XmlAttrColor.Value;
if not ifnil(object_.XmlAttrThemeColor) then
{self.}ThemeColor := object_.XmlAttrThemeColor.Value;
if not ifnil(object_.XmlAttrThemeShade) then
{self.}ThemeShade := object_.XmlAttrThemeShade.Value;
if not ifnil(object_.XmlAttrThemeTint) then
{self.}ThemeTint := object_.XmlAttrThemeTint.Value;
if not ifnil(object_.XmlAttrFrame) then
{self.}Frame := object_.XmlAttrFrame.Value;
if not ifnil(object_.XmlAttrShadow) then
{self.}Shadow := object_.XmlAttrShadow.Value;
tslassigning := tslassigning_backup;
end;
function BdrUnitDecorator.Create(_obj: Bdr);
begin
class(Bdr).Create();
object_ := _obj;
{self.}Convert();
end;
function BdrUnitDecorator.GetObject();
begin
return object_;
end;
function BdrUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrVal) then
{self.}Val := object_.XmlAttrVal.Value;
if not ifnil(object_.XmlAttrSz) then
{self.}Sz := object_.XmlAttrSz.Value;
if not ifnil(object_.XmlAttrSpace) then
{self.}Space := object_.XmlAttrSpace.Value;
if not ifnil(object_.XmlAttrColor) then
{self.}Color := object_.XmlAttrColor.Value;
if not ifnil(object_.XmlAttrThemeColor) then
{self.}ThemeColor := object_.XmlAttrThemeColor.Value;
if not ifnil(object_.XmlAttrThemeShade) then
{self.}ThemeShade := object_.XmlAttrThemeShade.Value;
if not ifnil(object_.XmlAttrThemeTint) then
{self.}ThemeTint := object_.XmlAttrThemeTint.Value;
if not ifnil(object_.XmlAttrFrame) then
{self.}Frame := object_.XmlAttrFrame.Value;
if not ifnil(object_.XmlAttrShadow) then
{self.}Shadow := object_.XmlAttrShadow.Value;
tslassigning := tslassigning_backup;
end;
@@ -1738,6 +2121,8 @@ begin
{self.}XmlChildAlternateContent := new AlternateContentUnitDecorator(object_.XmlChildAlternateContent);
if not ifnil(object_.XmlChildDrawing) then
{self.}XmlChildDrawing := new DrawingUnitDecorator(object_.XmlChildDrawing);
if not ifnil(object_.XmlChildPict) then
{self.}XmlChildPict := new PictUnitDecorator(object_.XmlChildPict);
if not ifnil(object_.XmlChildT) then
{self.}XmlChildT := new TUnitDecorator(object_.XmlChildT);
if not ifnil(object_.XmlChildObject) then
@@ -1957,6 +2342,9 @@ begin
elems := object_.Trs();
for _,elem in elems do
{self.}AppendChild(new TrUnitDecorator(elem));
elems := object_.Sdts();
for _,elem in elems do
{self.}AppendChild(new SdtUnitDecorator(elem));
tslassigning := tslassigning_backup;
end;
@@ -2238,6 +2626,9 @@ begin
{self.}RsidTr := object_.XmlAttrRsidTr.Value;
if not ifnil(object_.XmlChildTrPr) then
{self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr);
elems := object_.Sdts();
for _,elem in elems do
{self.}AppendChild(new SdtUnitDecorator(elem));
elems := object_.Tcs();
for _,elem in elems do
{self.}AppendChild(new TcUnitDecorator(elem));
@@ -2272,6 +2663,8 @@ begin
{self.}XmlChildCnfStyle := new CnfStyleUnitDecorator(object_.XmlChildCnfStyle);
if not ifnil(object_.XmlChildIns) then
{self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns);
if not ifnil(object_.XmlChildDel) then
{self.}XmlChildDel := new DelUnitDecorator(object_.XmlChildDel);
tslassigning := tslassigning_backup;
end;
@@ -2430,6 +2823,8 @@ begin
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildTcBorders) then
{self.}XmlChildTcBorders := new TcBordersUnitDecorator(object_.XmlChildTcBorders);
if not ifnil(object_.XmlChildTextDirection) then
{self.}XmlChildTextDirection := new PureWValUnitDecorator(object_.XmlChildTextDirection);
tslassigning := tslassigning_backup;
end;
@@ -2520,35 +2915,6 @@ begin
tslassigning := tslassigning_backup;
end;
function ShdUnitDecorator.Create(_obj: Shd);
begin
class(Shd).Create();
object_ := _obj;
{self.}Convert();
end;
function ShdUnitDecorator.GetObject();
begin
return object_;
end;
function ShdUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrVal) then
{self.}Val := object_.XmlAttrVal.Value;
if not ifnil(object_.XmlAttrColor) then
{self.}Color := object_.XmlAttrColor.Value;
if not ifnil(object_.XmlAttrFill) then
{self.}Fill := object_.XmlAttrFill.Value;
if not ifnil(object_.XmlAttrThemeFill) then
{self.}ThemeFill := object_.XmlAttrThemeFill.Value;
if not ifnil(object_.XmlAttrThemeFillTint) then
{self.}ThemeFillTint := object_.XmlAttrThemeFillTint.Value;
tslassigning := tslassigning_backup;
end;
function SdtUnitDecorator.Create(_obj: Sdt);
begin
class(Sdt).Create();
@@ -2709,6 +3075,8 @@ begin
{self.}TitlePg.Copy(object_.XmlChildTitlePg);
if not ifnil(object_.XmlChildDocGrid) then
{self.}XmlChildDocGrid := new DocGridUnitDecorator(object_.XmlChildDocGrid);
if not ifnil(object_.XmlChildTextDirection) then
{self.}XmlChildTextDirection := new PureWValUnitDecorator(object_.XmlChildTextDirection);
tslassigning := tslassigning_backup;
end;
@@ -3506,8 +3874,8 @@ function StylesUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrMcIgnorable) then
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
if not ifnil(object_.XmlAttrIgnorable) then
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
if not ifnil(object_.XmlChildDocDefaults) then
{self.}XmlChildDocDefaults := new DocDefaultsUnitDecorator(object_.XmlChildDocDefaults);
if not ifnil(object_.XmlChildLatenStyles) then
@@ -3801,8 +4169,8 @@ function WebSettingsUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrMcIgnorable) then
{self.}McIgnorable := object_.XmlAttrMcIgnorable.Value;
if not ifnil(object_.XmlAttrIgnorable) then
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
if not ifnil(object_.XmlChildOptimizeForBrowser) then
{self.}OptimizeForBrowser.Copy(object_.XmlChildOptimizeForBrowser);
if not ifnil(object_.XmlChildAllowPNG) then
@@ -3901,6 +4269,33 @@ begin
{self.}XmlChildShapetype := new ShapetypeUnitDecorator(object_.XmlChildShapetype);
if not ifnil(object_.XmlChildShape) then
{self.}XmlChildShape := new ShapeUnitDecorator(object_.XmlChildShape);
if not ifnil(object_.XmlChildControl) then
{self.}XmlChildControl := new ControlUnitDecorator(object_.XmlChildControl);
tslassigning := tslassigning_backup;
end;
function ControlUnitDecorator.Create(_obj: Control);
begin
class(Control).Create();
object_ := _obj;
{self.}Convert();
end;
function ControlUnitDecorator.GetObject();
begin
return object_;
end;
function ControlUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrId) then
{self.}Id := object_.XmlAttrId.Value;
if not ifnil(object_.XmlAttrShapeid) then
{self.}Shapeid := object_.XmlAttrShapeid.Value;
if not ifnil(object_.XmlAttrname) then
{self.}name := object_.XmlAttrname.Value;
tslassigning := tslassigning_backup;
end;
@@ -3949,6 +4344,8 @@ begin
elems := object_.Ps();
for _,elem in elems do
{self.}AppendChild(new PUnitDecorator(elem));
if not ifnil(object_.XmlChildSdt) then
{self.}XmlChildSdt := new SdtUnitDecorator(object_.XmlChildSdt);
tslassigning := tslassigning_backup;
end;
autounit/SharedML.tsf
+16
View File
@@ -259,11 +259,14 @@ public
// normal property
property RPr read ReadXmlChildRPr;
property Del read ReadXmlChildDel;
function ReadXmlChildRPr(): RPr;
function ReadXmlChildDel(): Del;
public
// Children
XmlChildRPr: RPr;
XmlChildDel: Del;
end;
type E = class(OpenXmlElement)
@@ -1576,6 +1579,7 @@ begin
);
sorted_child_ := array(
pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))),
pre + "del": array(1, makeweakref(thisFunction(ReadXmlChildDel))),
);
container_ := new TSOfficeContainer(sorted_child_);
end;
@@ -1587,6 +1591,8 @@ begin
class(OpenXmlElement).Copy(_obj);
if not ifnil(_obj.XmlChildRPr) then
{self.}RPr.Copy(_obj.XmlChildRPr);
if not ifnil(_obj.XmlChildDel) then
{self.}Del.Copy(_obj.XmlChildDel);
tslassigning := tslassigning_backup;
end;
@@ -1600,6 +1606,16 @@ begin
return {self.}XmlChildRPr;
end;
function CtrlPr.ReadXmlChildDel(): Del;
begin
if tslassigning and ifnil({self.}XmlChildDel) then
begin
{self.}XmlChildDel := new Del(self, {self.}Prefix, "del");
container_.Set({self.}XmlChildDel);
end
return {self.}XmlChildDel;
end;
function E.Create();overload;
begin
{self.}Create(nil, "m", "e");
autounit/SharedMLUnitDecorator.tsf
+2
View File
@@ -569,6 +569,8 @@ begin
tslassigning := 1;
if not ifnil(object_.XmlChildRPr) then
{self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr);
if not ifnil(object_.XmlChildDel) then
{self.}XmlChildDel := new DelUnitDecorator(object_.XmlChildDel);
tslassigning := tslassigning_backup;
end;
autounit/VXml.tsf → autounit/VML.tsf
+59 -15
View File
@@ -1,4 +1,4 @@
unit VXml;
unit VML;
interface
uses DocxML;
@@ -202,17 +202,25 @@ public
function Copy(_obj: Textpath);override;
public
// attributes property
property On read ReadXmlAttrOn write WriteXmlAttrOn;
property _On read ReadXmlAttr_On write WriteXmlAttr_On;
property Fitshape read ReadXmlAttrFitshape write WriteXmlAttrFitshape;
function ReadXmlAttrOn();
function WriteXmlAttrOn(_value);
property Style read ReadXmlAttrStyle write WriteXmlAttrStyle;
property String read ReadXmlAttrString write WriteXmlAttrString;
function ReadXmlAttr_On();
function WriteXmlAttr_On(_value);
function ReadXmlAttrFitshape();
function WriteXmlAttrFitshape(_value);
function ReadXmlAttrStyle();
function WriteXmlAttrStyle(_value);
function ReadXmlAttrString();
function WriteXmlAttrString(_value);
public
// Attributes
XmlAttrOn: OpenXmlAttribute;
XmlAttr_On: OpenXmlAttribute;
XmlAttrFitshape: OpenXmlAttribute;
XmlAttrStyle: OpenXmlAttribute;
XmlAttrString: OpenXmlAttribute;
end;
@@ -1127,8 +1135,10 @@ begin
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
attributes_ := array();
attributes_pf_ := array(
"on": makeweakref(thisFunction(WriteXmlAttrOn)),
"on": makeweakref(thisFunction(WriteXmlAttr_On)),
"fitshape": makeweakref(thisFunction(WriteXmlAttrFitshape)),
"style": makeweakref(thisFunction(WriteXmlAttrStyle)),
"string": makeweakref(thisFunction(WriteXmlAttrString)),
);
sorted_child_ := array(
);
@@ -1140,26 +1150,30 @@ begin
tslassigning_backup := tslassigning;
tslassigning := 1;
class(OpenXmlElement).Copy(_obj);
if not ifnil(_obj.On) then
{self.}On := _obj.On;
if not ifnil(_obj._On) then
{self.}_On := _obj._On;
if not ifnil(_obj.Fitshape) then
{self.}Fitshape := _obj.Fitshape;
if not ifnil(_obj.Style) then
{self.}Style := _obj.Style;
if not ifnil(_obj.String) then
{self.}String := _obj.String;
tslassigning := tslassigning_backup;
end;
function Textpath.ReadXmlAttrOn();
function Textpath.ReadXmlAttr_On();
begin
return {self.}XmlAttrOn.Value;
return {self.}XmlAttr_On.Value;
end;
function Textpath.WriteXmlAttrOn(_value);
function Textpath.WriteXmlAttr_On(_value);
begin
if ifnil({self.}XmlAttrOn) then
if ifnil({self.}XmlAttr_On) then
begin
{self.}XmlAttrOn := new OpenXmlAttribute("", "on", nil);
attributes_[length(attributes_)] := {self.}XmlAttrOn;
{self.}XmlAttr_On := new OpenXmlAttribute("", "on", nil);
attributes_[length(attributes_)] := {self.}XmlAttr_On;
end
{self.}XmlAttrOn.Value := _value;
{self.}XmlAttr_On.Value := _value;
end;
function Textpath.ReadXmlAttrFitshape();
@@ -1177,6 +1191,36 @@ begin
{self.}XmlAttrFitshape.Value := _value;
end;
function Textpath.ReadXmlAttrStyle();
begin
return {self.}XmlAttrStyle.Value;
end;
function Textpath.WriteXmlAttrStyle(_value);
begin
if ifnil({self.}XmlAttrStyle) then
begin
{self.}XmlAttrStyle := new OpenXmlAttribute("", "style", nil);
attributes_[length(attributes_)] := {self.}XmlAttrStyle;
end
{self.}XmlAttrStyle.Value := _value;
end;
function Textpath.ReadXmlAttrString();
begin
return {self.}XmlAttrString.Value;
end;
function Textpath.WriteXmlAttrString(_value);
begin
if ifnil({self.}XmlAttrString) then
begin
{self.}XmlAttrString := new OpenXmlAttribute("", "string", nil);
attributes_[length(attributes_)] := {self.}XmlAttrString;
end
{self.}XmlAttrString.Value := _value;
end;
function Handles.Create();overload;
begin
{self.}Create(nil, "v", "handles");
autounit/VXmlAdapter.tsf → autounit/VMLAdapter.tsf
+1 -1
View File
@@ -1,4 +1,4 @@
unit VXmlAdapter;
unit VMLAdapter;
interface
implementation
autounit/VXmlUnitDecorator.tsf → autounit/VMLUnitDecorator.tsf
+8 -4
View File
@@ -1,6 +1,6 @@
unit VXmlUnitDecorator;
unit VMLUnitDecorator;
interface
uses VXml, TSSafeUnitConverter;
uses VML, TSSafeUnitConverter;
type ShapetypeUnitDecorator = class(Shapetype)
public
@@ -322,10 +322,14 @@ function TextpathUnitDecorator.Convert();
begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlAttrOn) then
{self.}On := object_.XmlAttrOn.Value;
if not ifnil(object_.XmlAttr_On) then
{self.}_On := object_.XmlAttr_On.Value;
if not ifnil(object_.XmlAttrFitshape) then
{self.}Fitshape := object_.XmlAttrFitshape.Value;
if not ifnil(object_.XmlAttrStyle) then
{self.}Style := object_.XmlAttrStyle.Value;
if not ifnil(object_.XmlAttrString) then
{self.}String := object_.XmlAttrString.Value;
tslassigning := tslassigning_backup;
end;