❗重大更新：设计方式由namspace转变成unit
This commit is contained in:
parent
48e4de7b87
commit
c77abfc1c8
78
README.md
78
README.md
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
## 概述
|
||||
|
||||
将docx、pptx、xlsx等文件中的xml转为tsl对象
|
||||
将 docx、pptx、xlsx 等文件中的 xml 转为 tsl 对象
|
||||
|
||||
```xml
|
||||
<w:p w14:paraId="6E3ED3BE" w14:textId="77777777" w:rsidR="00C57A1E"
|
||||
|
|
@ -25,10 +25,10 @@
|
|||
</w:p>
|
||||
```
|
||||
|
||||
上述是一个docx中的段落的xml，序列化为tsl过程如下
|
||||
上述是一个 docx 中的段落的 xml，序列化为 tsl 过程如下
|
||||
|
||||
```go
|
||||
namespace "DOCX" // 设置命名空间为DOCX
|
||||
uses DocxML; // 上述xml属于DocxML
|
||||
p := new P(); // 创建一个P对象（段落w:p）
|
||||
p.Init(node); // 假设node节点是上面的xml指向的Node对象
|
||||
p.Deserialize(); // 将node对象的xml序列化到tsl对象
|
||||
|
|
@ -52,17 +52,37 @@ echo p.Rs(1).T.Text; // 输出：(份)
|
|||
|
||||
`OpenXmlElement.tsf`提供了一些常用的方法，具体可见`tsf`文件
|
||||
|
||||
## Unit 单元
|
||||
|
||||
- `DocxML`
|
||||
包含`docx`文件独有的 xml 节点对象，一般 xml 的命名空间是`w`，如`w:p`
|
||||
- `PptxML`
|
||||
包含`pptx`文件独有的 xml 节点对象，一般 xml 的命名空间是`p`，如`p:spPr`
|
||||
- `XlsxML`
|
||||
包含`xlsx`文件独有的 xml 节点对象
|
||||
- `DrawingML`
|
||||
包含`docx,pptx,xlsx`文件图形的 xml 节点对象，一般 xml 的命名空间是`a`，如`a:xfrm`
|
||||
- `SharedML`
|
||||
包含`docx,pptx,xlsx`文件共有的 xml 节点对象
|
||||
- `VML`
|
||||
|
||||
[参考链接 1](http://webapp.docx4java.org/OnlineDemo/ecma376/)
|
||||
[参考链接 2](http://officeopenxml.com/index.php)
|
||||
|
||||
## 部件
|
||||
|
||||
### Components
|
||||
|
||||
一共有三个部件，分别是`Components@DOCX.tsf`，`Components@XLSX.tsf`，`Components@PPTX.tsf`
|
||||
一共有三个部件，分别是：
|
||||
|
||||
以`Components@DOCX.tsf`为例，使用这个类，可以获取到对应的docx文件的xml对象
|
||||
1. `DocxComponents.tsf`：docx 文件的各部分 xml 内容
|
||||
2. `XlsxComponents`：xlsx 文件的各部分 xml 内容
|
||||
3. `PptxComponents`：pptx 文件的各部分 xml 内容
|
||||
|
||||
以`DocxComponents.tsf`为例，使用这个类，可以获取到对应的 docx 文件的 xml 对象
|
||||
|
||||
```go
|
||||
namespace "DOCX"
|
||||
component := new Components(); // 创建对象
|
||||
component := new DocxComponents(); // 创建对象
|
||||
component.Open("", "xxx.docx"); // 打开文件
|
||||
document := component.Document; // 获取document.xml，生成Document对象
|
||||
document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中
|
||||
|
|
@ -72,7 +92,7 @@ document.Body.Elements(); // 可以获取document的body下的所有对象列
|
|||
styles := component.Styles; // 获取styles.xml，生成Styles对象
|
||||
```
|
||||
|
||||
document.xml内容如下
|
||||
document.xml 内容如下
|
||||
|
||||
```xml
|
||||
<w:document xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas"
|
||||
|
|
@ -106,13 +126,13 @@ document.xml内容如下
|
|||
</w:document>
|
||||
```
|
||||
|
||||
### 单位装饰器UnitDecorator
|
||||
### 单位装饰器 UnitDecorator
|
||||
|
||||
每个对象都有一个单位装饰器，能统一转成磅(point)单位（如果有配置属性转换），还能保留原来的接口
|
||||
|
||||
装饰器`tsf`统一命名是`原本对象名+UnitDecorator@命名空间`，如`docx`的`SectPr`对象的装饰器是`SectPrUnitDecorator@DOCX`
|
||||
每个`ML`都有装饰器`tsf`统一命名是`Unit的名称+UnitDecorator`，如`docx`（`docx`大部分`xml`隶属于`DocxML`）的`SectPr`对象的装饰器是`SectPrUnitDecorator`
|
||||
|
||||
如：有下面一段xml，其中的`pgSz.w = "11906", pgSz.h = "16838"`都需要转换成point
|
||||
如：有下面一段 xml，其中的`pgSz.w = "11906", pgSz.h = "16838"`都需要转换成 point
|
||||
|
||||
```xml
|
||||
<w:sectPr w:rsidR="00B118EF" w:rsidSect="002E4343">
|
||||
|
|
@ -126,7 +146,7 @@ document.xml内容如下
|
|||
```
|
||||
|
||||
```go
|
||||
namespace "DOCX"
|
||||
uses DocxMLUnitDecorator;
|
||||
component := new Components(); // 创建对象
|
||||
component.Open("", "xxx.docx"); // 打开文件
|
||||
document := component.Document; // 获取document.xml，生成Document对象
|
||||
|
|
@ -139,13 +159,13 @@ echo "\n";
|
|||
echo "w = ", sect_pr_unit_decorator.PgSz.W; // 此时输出的是数字类型，单位是point
|
||||
```
|
||||
|
||||
### 适配器Adapter
|
||||
### 适配器 Adapter
|
||||
|
||||
适配器是通过key获取对应的对象，比如样式可以通过样式ID获取对应的样式对象
|
||||
适配器是通过 key 获取对应的对象，比如样式可以通过样式 ID 获取对应的样式对象
|
||||
|
||||
只有部分对象才有适配器（具体可见`autoclass/adapter`），比如`Styles`的适配器是`StylesAdapter@DOCX`
|
||||
只有部分对象才有适配器（具体可见`autounit/xxxMLAdapter`），比如`DocxML.Styles`的适配器是`StylesAdapter`
|
||||
|
||||
styles.xml部分如下
|
||||
styles.xml 部分如下
|
||||
|
||||
```xml
|
||||
<w:styles xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006">
|
||||
|
|
@ -175,7 +195,7 @@ styles.xml部分如下
|
|||
```
|
||||
|
||||
```go
|
||||
namespace "DOCX"
|
||||
uses DocxMLAdapter;
|
||||
component := new Components(); // 创建对象
|
||||
component.Open("", "xxx.docx"); // 打开文件
|
||||
document := component.Document; // 获取document.xml，生成Document对象
|
||||
|
|
@ -188,3 +208,27 @@ styles_adapter := new StylesAdapter(styles);
|
|||
style := styles_adapter.GetStyleByStyleId("a6");
|
||||
echo style.Name; // 输出的是"页脚 字符"
|
||||
```
|
||||
|
||||
### 补充
|
||||
|
||||
```xml
|
||||
<m:r>
|
||||
<m:rPr>
|
||||
<m:sty m:val="p" />
|
||||
</m:rPr>
|
||||
<a:rPr lang="en-US"
|
||||
altLang="zh-CN" sz="1100"
|
||||
i="0" kern="1200">
|
||||
<a:latin
|
||||
typeface="Cambria Math"
|
||||
panose="02040503050406030204"
|
||||
pitchFamily="18"
|
||||
charset="0" />
|
||||
</a:rPr>
|
||||
<m:t>cos</m:t>
|
||||
</m:r>
|
||||
```
|
||||
|
||||
由于设计取对象时候不包含前缀，那么同时存在多个`rPr`时，如何区分是哪一个？
|
||||
取`m:rPr`时，可通过`r.RPr`，这是因为它们的前缀都是`m`，所以可直接获取
|
||||
取`a:rPr`时，需要指定前缀`a`，通过`r.RPr('a')`，进行获取`RPr`对象
|
||||
|
|
|
|||
|
|
@ -1,36 +0,0 @@
|
|||
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;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
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;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
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;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
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;
|
||||
|
|
@ -1,53 +0,0 @@
|
|||
type NumberingAdapter = class
|
||||
public
|
||||
function Create(_obj: Numbering);
|
||||
function Init();
|
||||
|
||||
function GetAbstractNumByAbstractNumId(_key: string);
|
||||
function SetAbstractNumByAbstractNumId(_key: string; _value: tslobj);
|
||||
function GetNumByNumId(_key: string);
|
||||
function SetNumByNumId(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Numbering;
|
||||
abstractnum_hash_: tableArray;
|
||||
num_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function NumberingAdapter.Create(_obj: Numbering);
|
||||
begin
|
||||
object_ := _obj;
|
||||
abstractnum_hash_ := array();
|
||||
num_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function NumberingAdapter.Init();
|
||||
begin
|
||||
elements := object_.AbstractNums();
|
||||
for k,v in elements do
|
||||
abstractnum_hash_[v.AbstractNumId] := v;
|
||||
elements := object_.Nums();
|
||||
for k,v in elements do
|
||||
num_hash_[v.NumId] := v;
|
||||
end;
|
||||
|
||||
function NumberingAdapter.GetAbstractNumByAbstractNumId(_key: string);
|
||||
begin
|
||||
return abstractnum_hash_[_key];
|
||||
end;
|
||||
|
||||
function NumberingAdapter.SetAbstractNumByAbstractNumId(_key: string; _value: tslobj);
|
||||
begin
|
||||
abstractnum_hash_[_key] := _value;
|
||||
end;
|
||||
|
||||
function NumberingAdapter.GetNumByNumId(_key: string);
|
||||
begin
|
||||
return num_hash_[_key];
|
||||
end;
|
||||
|
||||
function NumberingAdapter.SetNumByNumId(_key: string; _value: tslobj);
|
||||
begin
|
||||
num_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type RelationshipsAdapter = class
|
||||
public
|
||||
function Create(_obj: Relationships);
|
||||
function Init();
|
||||
|
||||
function GetRelationshipById(_key: string);
|
||||
function SetRelationshipById(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Relationships;
|
||||
relationship_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.Create(_obj: Relationships);
|
||||
begin
|
||||
object_ := _obj;
|
||||
relationship_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.Init();
|
||||
begin
|
||||
elements := object_.Relationships();
|
||||
for k,v in elements do
|
||||
relationship_hash_[v.Id] := v;
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.GetRelationshipById(_key: string);
|
||||
begin
|
||||
return relationship_hash_[_key];
|
||||
end;
|
||||
|
||||
function RelationshipsAdapter.SetRelationshipById(_key: string; _value: tslobj);
|
||||
begin
|
||||
relationship_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -1,53 +0,0 @@
|
|||
type SectPrAdapter = class
|
||||
public
|
||||
function Create(_obj: SectPr);
|
||||
function Init();
|
||||
|
||||
function GetHeaderReferenceByType(_key: string);
|
||||
function SetHeaderReferenceByType(_key: string; _value: tslobj);
|
||||
function GetFooterReferenceByType(_key: string);
|
||||
function SetFooterReferenceByType(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: SectPr;
|
||||
headerreference_hash_: tableArray;
|
||||
footerreference_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function SectPrAdapter.Create(_obj: SectPr);
|
||||
begin
|
||||
object_ := _obj;
|
||||
headerreference_hash_ := array();
|
||||
footerreference_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function SectPrAdapter.Init();
|
||||
begin
|
||||
elements := object_.HeaderReferences();
|
||||
for k,v in elements do
|
||||
headerreference_hash_[v.Type] := v;
|
||||
elements := object_.FooterReferences();
|
||||
for k,v in elements do
|
||||
footerreference_hash_[v.Type] := v;
|
||||
end;
|
||||
|
||||
function SectPrAdapter.GetHeaderReferenceByType(_key: string);
|
||||
begin
|
||||
return headerreference_hash_[_key];
|
||||
end;
|
||||
|
||||
function SectPrAdapter.SetHeaderReferenceByType(_key: string; _value: tslobj);
|
||||
begin
|
||||
headerreference_hash_[_key] := _value;
|
||||
end;
|
||||
|
||||
function SectPrAdapter.GetFooterReferenceByType(_key: string);
|
||||
begin
|
||||
return footerreference_hash_[_key];
|
||||
end;
|
||||
|
||||
function SectPrAdapter.SetFooterReferenceByType(_key: string; _value: tslobj);
|
||||
begin
|
||||
footerreference_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type StyleAdapter = class
|
||||
public
|
||||
function Create(_obj: Style);
|
||||
function Init();
|
||||
|
||||
function GetTblStylePrByType(_key: string);
|
||||
function SetTblStylePrByType(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Style;
|
||||
tblstylepr_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function StyleAdapter.Create(_obj: Style);
|
||||
begin
|
||||
object_ := _obj;
|
||||
tblstylepr_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function StyleAdapter.Init();
|
||||
begin
|
||||
elements := object_.TblStylePrs();
|
||||
for k,v in elements do
|
||||
tblstylepr_hash_[v.Type] := v;
|
||||
end;
|
||||
|
||||
function StyleAdapter.GetTblStylePrByType(_key: string);
|
||||
begin
|
||||
return tblstylepr_hash_[_key];
|
||||
end;
|
||||
|
||||
function StyleAdapter.SetTblStylePrByType(_key: string; _value: tslobj);
|
||||
begin
|
||||
tblstylepr_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type StylesAdapter = class
|
||||
public
|
||||
function Create(_obj: Styles);
|
||||
function Init();
|
||||
|
||||
function GetStyleByStyleId(_key: string);
|
||||
function SetStyleByStyleId(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Styles;
|
||||
style_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function StylesAdapter.Create(_obj: Styles);
|
||||
begin
|
||||
object_ := _obj;
|
||||
style_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function StylesAdapter.Init();
|
||||
begin
|
||||
elements := object_.Styles();
|
||||
for k,v in elements do
|
||||
style_hash_[v.StyleId] := v;
|
||||
end;
|
||||
|
||||
function StylesAdapter.GetStyleByStyleId(_key: string);
|
||||
begin
|
||||
return style_hash_[_key];
|
||||
end;
|
||||
|
||||
function StylesAdapter.SetStyleByStyleId(_key: string; _value: tslobj);
|
||||
begin
|
||||
style_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type TabsAdapter = class
|
||||
public
|
||||
function Create(_obj: Tabs);
|
||||
function Init();
|
||||
|
||||
function GetTabByVal(_key: string);
|
||||
function SetTabByVal(_key: string; _value: tslobj);
|
||||
|
||||
private
|
||||
object_: Tabs;
|
||||
tab_hash_: tableArray;
|
||||
end;
|
||||
|
||||
function TabsAdapter.Create(_obj: Tabs);
|
||||
begin
|
||||
object_ := _obj;
|
||||
tab_hash_ := array();
|
||||
{self.}Init();
|
||||
end;
|
||||
|
||||
function TabsAdapter.Init();
|
||||
begin
|
||||
elements := object_.Tabs();
|
||||
for k,v in elements do
|
||||
tab_hash_[v.Val] := v;
|
||||
end;
|
||||
|
||||
function TabsAdapter.GetTabByVal(_key: string);
|
||||
begin
|
||||
return tab_hash_[_key];
|
||||
end;
|
||||
|
||||
function TabsAdapter.SetTabByVal(_key: string; _value: tslobj);
|
||||
begin
|
||||
tab_hash_[_key] := _value;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type APPrUnitDecorator = class(APPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: APPr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: APPr;
|
||||
end;
|
||||
|
||||
function APPrUnitDecorator.Create(_obj: APPr);
|
||||
begin
|
||||
class(APPr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function APPrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function APPrUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildDefRPr) then
|
||||
{self.}XmlChildDefRPr := new ARPrUnitDecorator(object_.XmlChildDefRPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,56 +0,0 @@
|
|||
type ARPrUnitDecorator = class(ARPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ARPr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: ARPr;
|
||||
end;
|
||||
|
||||
function ARPrUnitDecorator.Create(_obj: ARPr);
|
||||
begin
|
||||
class(ARPr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ARPrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ARPrUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type ARUnitDecorator = class(AR)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: AR);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: AR;
|
||||
end;
|
||||
|
||||
function ARUnitDecorator.Create(_obj: AR);
|
||||
begin
|
||||
class(AR).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ARUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ARUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,41 +0,0 @@
|
|||
type AbstractNumUnitDecorator = class(AbstractNum)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: AbstractNum);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: AbstractNum;
|
||||
end;
|
||||
|
||||
function AbstractNumUnitDecorator.Create(_obj: AbstractNum);
|
||||
begin
|
||||
class(AbstractNum).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function AbstractNumUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function AbstractNumUnitDecorator.Convert();
|
||||
begin
|
||||
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);
|
||||
elems := object_.Lvls();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new LvlUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type AlternateContentUnitDecorator = class(AlternateContent)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: AlternateContent);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: AlternateContent;
|
||||
end;
|
||||
|
||||
function AlternateContentUnitDecorator.Create(_obj: AlternateContent);
|
||||
begin
|
||||
class(AlternateContent).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function AlternateContentUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function AlternateContentUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,76 +0,0 @@
|
|||
type AnchorUnitDecorator = class(Anchor)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Anchor);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Anchor;
|
||||
end;
|
||||
|
||||
function AnchorUnitDecorator.Create(_obj: Anchor);
|
||||
begin
|
||||
class(Anchor).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function AnchorUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function AnchorUnitDecorator.Convert();
|
||||
begin
|
||||
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_.XmlAttrHidden) then
|
||||
{self.}Hidden := object_.XmlAttrHidden.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;
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
type ApUnitDecorator = class(Ap)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ap);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Ap;
|
||||
end;
|
||||
|
||||
function ApUnitDecorator.Create(_obj: Ap);
|
||||
begin
|
||||
class(Ap).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ApUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ApUnitDecorator.Convert();
|
||||
begin
|
||||
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);
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new ARUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,62 +0,0 @@
|
|||
type AxUnitDecorator = class(Ax)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ax);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Ax;
|
||||
end;
|
||||
|
||||
function AxUnitDecorator.Create(_obj: Ax);
|
||||
begin
|
||||
class(Ax).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function AxUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function AxUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
type BarChartUnitDecorator = class(BarChart)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: BarChart);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: BarChart;
|
||||
end;
|
||||
|
||||
function BarChartUnitDecorator.Create(_obj: BarChart);
|
||||
begin
|
||||
class(BarChart).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function BarChartUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function BarChartUnitDecorator.Convert();
|
||||
begin
|
||||
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);
|
||||
elems := object_.Sers();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SerUnitDecorator(elem));
|
||||
if not ifnil(object_.XmlChildGapWidth) then
|
||||
{self.}XmlChildGapWidth := new PureValUnitDecorator(object_.XmlChildGapWidth);
|
||||
elems := object_.AxIds();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PureValUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type BlipFillUnitDecorator = class(BlipFill)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: BlipFill);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: BlipFill;
|
||||
end;
|
||||
|
||||
function BlipFillUnitDecorator.Create(_obj: BlipFill);
|
||||
begin
|
||||
class(BlipFill).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function BlipFillUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function BlipFillUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type BlipUnitDecorator = class(Blip)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Blip);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Blip;
|
||||
end;
|
||||
|
||||
function BlipUnitDecorator.Create(_obj: Blip);
|
||||
begin
|
||||
class(Blip).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function BlipUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function BlipUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,68 +0,0 @@
|
|||
type BodyPrUnitDecorator = class(BodyPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: BodyPr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: BodyPr;
|
||||
end;
|
||||
|
||||
function BodyPrUnitDecorator.Create(_obj: BodyPr);
|
||||
begin
|
||||
class(BodyPr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function BodyPrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function BodyPrUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,39 +0,0 @@
|
|||
type BodyUnitDecorator = class(Body)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Body);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Body;
|
||||
end;
|
||||
|
||||
function BodyUnitDecorator.Create(_obj: Body);
|
||||
begin
|
||||
class(Body).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function BodyUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function BodyUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
elems := object_.Tbls();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new TblUnitDecorator(elem));
|
||||
elems := object_.Sdts();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SdtUnitDecorator(elem));
|
||||
if not ifnil(object_.XmlChildSectPr) then
|
||||
{self.}XmlChildSectPr := new SectPrUnitDecorator(object_.XmlChildSectPr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type BookmarkUnitDecorator = class(Bookmark)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Bookmark);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Bookmark;
|
||||
end;
|
||||
|
||||
function BookmarkUnitDecorator.Create(_obj: Bookmark);
|
||||
begin
|
||||
class(Bookmark).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function BookmarkUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function BookmarkUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type BrUnitDecorator = class(Br)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Br);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Br;
|
||||
end;
|
||||
|
||||
function BrUnitDecorator.Create(_obj: Br);
|
||||
begin
|
||||
class(Br).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function BrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function BrUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrType) then
|
||||
{self.}Type := object_.XmlAttrType.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type CNvGraphicFramePrUnitDecorator = class(CNvGraphicFramePr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CNvGraphicFramePr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CNvGraphicFramePr;
|
||||
end;
|
||||
|
||||
function CNvGraphicFramePrUnitDecorator.Create(_obj: CNvGraphicFramePr);
|
||||
begin
|
||||
class(CNvGraphicFramePr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CNvGraphicFramePrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CNvGraphicFramePrUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildGraphicFrameLocks) then
|
||||
{self.}XmlChildGraphicFrameLocks := new GraphicFrameLocksUnitDecorator(object_.XmlChildGraphicFrameLocks);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type CNvPicPrUnitDecorator = class(CNvPicPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CNvPicPr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CNvPicPr;
|
||||
end;
|
||||
|
||||
function CNvPicPrUnitDecorator.Create(_obj: CNvPicPr);
|
||||
begin
|
||||
class(CNvPicPr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CNvPicPrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CNvPicPrUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildPicLocks) then
|
||||
{self.}XmlChildPicLocks := new PicLocksUnitDecorator(object_.XmlChildPicLocks);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type CNvPrUnitDecorator = class(CNvPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CNvPr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CNvPr;
|
||||
end;
|
||||
|
||||
function CNvPrUnitDecorator.Create(_obj: CNvPr);
|
||||
begin
|
||||
class(CNvPr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CNvPrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CNvPrUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type CNvSpPrUnitDecorator = class(CNvSpPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CNvSpPr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CNvSpPr;
|
||||
end;
|
||||
|
||||
function CNvSpPrUnitDecorator.Create(_obj: CNvSpPr);
|
||||
begin
|
||||
class(CNvSpPr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CNvSpPrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CNvSpPrUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type CXYUnitDecorator = class(CXY)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CXY);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CXY;
|
||||
end;
|
||||
|
||||
function CXYUnitDecorator.Create(_obj: CXY);
|
||||
begin
|
||||
class(CXY).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CXYUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CXYUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type CacheUnitDecorator = class(Cache)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Cache);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Cache;
|
||||
end;
|
||||
|
||||
function CacheUnitDecorator.Create(_obj: Cache);
|
||||
begin
|
||||
class(Cache).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CacheUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CacheUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildFormatCode) then
|
||||
if not ifnil(object_.XmlChildPtCount) then
|
||||
{self.}XmlChildPtCount := new PureValUnitDecorator(object_.XmlChildPtCount);
|
||||
elems := object_.Pts();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PtUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type CatUnitDecorator = class(Cat)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Cat);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Cat;
|
||||
end;
|
||||
|
||||
function CatUnitDecorator.Create(_obj: Cat);
|
||||
begin
|
||||
class(Cat).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CatUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CatUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildStrRef) then
|
||||
{self.}XmlChildStrRef := new StrRefUnitDecorator(object_.XmlChildStrRef);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,46 +0,0 @@
|
|||
type ChartSpaceUnitDecorator = class(ChartSpace)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ChartSpace);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: ChartSpace;
|
||||
end;
|
||||
|
||||
function ChartSpaceUnitDecorator.Create(_obj: ChartSpace);
|
||||
begin
|
||||
class(ChartSpace).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ChartSpaceUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ChartSpaceUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,44 +0,0 @@
|
|||
type ChartUnitDecorator = class(Chart)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Chart);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Chart;
|
||||
end;
|
||||
|
||||
function ChartUnitDecorator.Create(_obj: Chart);
|
||||
begin
|
||||
class(Chart).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ChartUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ChartUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type ChoiceUnitDecorator = class(Choice)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Choice);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Choice;
|
||||
end;
|
||||
|
||||
function ChoiceUnitDecorator.Create(_obj: Choice);
|
||||
begin
|
||||
class(Choice).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ChoiceUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ChoiceUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type Clr1UnitDecorator = class(Clr1)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Clr1);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Clr1;
|
||||
end;
|
||||
|
||||
function Clr1UnitDecorator.Create(_obj: Clr1);
|
||||
begin
|
||||
class(Clr1).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function Clr1UnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function Clr1UnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSysClr) then
|
||||
{self.}XmlChildSysClr := new SysClrUnitDecorator(object_.XmlChildSysClr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type Clr2UnitDecorator = class(Clr2)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Clr2);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Clr2;
|
||||
end;
|
||||
|
||||
function Clr2UnitDecorator.Create(_obj: Clr2);
|
||||
begin
|
||||
class(Clr2).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function Clr2UnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function Clr2UnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildSrgbClr) then
|
||||
{self.}XmlChildSrgbClr := new SrgbClrUnitDecorator(object_.XmlChildSrgbClr);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,52 +0,0 @@
|
|||
type ClrSchemeMappingUnitDecorator = class(ClrSchemeMapping)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ClrSchemeMapping);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: ClrSchemeMapping;
|
||||
end;
|
||||
|
||||
function ClrSchemeMappingUnitDecorator.Create(_obj: ClrSchemeMapping);
|
||||
begin
|
||||
class(ClrSchemeMapping).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ClrSchemeMappingUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ClrSchemeMappingUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,54 +0,0 @@
|
|||
type ClrSchemeUnitDecorator = class(ClrScheme)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ClrScheme);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: ClrScheme;
|
||||
end;
|
||||
|
||||
function ClrSchemeUnitDecorator.Create(_obj: ClrScheme);
|
||||
begin
|
||||
class(ClrScheme).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ClrSchemeUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ClrSchemeUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,54 +0,0 @@
|
|||
type CnfStyleUnitDecorator = class(CnfStyle)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CnfStyle);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CnfStyle;
|
||||
end;
|
||||
|
||||
function CnfStyleUnitDecorator.Create(_obj: CnfStyle);
|
||||
begin
|
||||
class(CnfStyle).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CnfStyleUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CnfStyleUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type ColUnitDecorator = class(Col)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Col);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Col;
|
||||
end;
|
||||
|
||||
function ColUnitDecorator.Create(_obj: Col);
|
||||
begin
|
||||
class(Col).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ColUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ColUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrW) then
|
||||
{self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value);
|
||||
if not ifnil(object_.XmlAttrSpace) then
|
||||
{self.}Space := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type ColorUnitDecorator = class(Color)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Color);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Color;
|
||||
end;
|
||||
|
||||
function ColorUnitDecorator.Create(_obj: Color);
|
||||
begin
|
||||
class(Color).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ColorUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ColorUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,37 +0,0 @@
|
|||
type ColsUnitDecorator = class(Cols)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Cols);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Cols;
|
||||
end;
|
||||
|
||||
function ColsUnitDecorator.Create(_obj: Cols);
|
||||
begin
|
||||
class(Cols).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ColsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ColsUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrNum) then
|
||||
{self.}Num := TSSafeUnitConverter.ToInt(object_.XmlAttrNum.Value);
|
||||
if not ifnil(object_.XmlAttrSpace) then
|
||||
{self.}Space := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrSpace.Value);
|
||||
if not ifnil(object_.XmlAttrEqualWidth) then
|
||||
{self.}EqualWidth := object_.XmlAttrEqualWidth.Value;
|
||||
elems := object_.Cols();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new ColUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type CommentRangeUnitDecorator = class(CommentRange)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CommentRange);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CommentRange;
|
||||
end;
|
||||
|
||||
function CommentRangeUnitDecorator.Create(_obj: CommentRange);
|
||||
begin
|
||||
class(CommentRange).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CommentRangeUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CommentRangeUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,37 +0,0 @@
|
|||
type CommentUnitDecorator = class(Comment)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Comment);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Comment;
|
||||
end;
|
||||
|
||||
function CommentUnitDecorator.Create(_obj: Comment);
|
||||
begin
|
||||
class(Comment).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CommentUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CommentUnitDecorator.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;
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,67 +0,0 @@
|
|||
type CommentsUnitDecorator = class(Comments)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Comments);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Comments;
|
||||
end;
|
||||
|
||||
function CommentsUnitDecorator.Create(_obj: Comments);
|
||||
begin
|
||||
class(Comments).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CommentsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CommentsUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Comments();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new CommentUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type CompatSettingUnitDecorator = class(CompatSetting)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CompatSetting);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CompatSetting;
|
||||
end;
|
||||
|
||||
function CompatSettingUnitDecorator.Create(_obj: CompatSetting);
|
||||
begin
|
||||
class(CompatSetting).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CompatSettingUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CompatSettingUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,45 +0,0 @@
|
|||
type CompatUnitDecorator = class(Compat)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Compat);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Compat;
|
||||
end;
|
||||
|
||||
function CompatUnitDecorator.Create(_obj: Compat);
|
||||
begin
|
||||
class(Compat).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CompatUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CompatUnitDecorator.Convert();
|
||||
begin
|
||||
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);
|
||||
elems := object_.CompatSettings();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new CompatSettingUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,50 +0,0 @@
|
|||
type CorePropertiesUnitDecorator = class(CoreProperties)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: CoreProperties);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: CoreProperties;
|
||||
end;
|
||||
|
||||
function CorePropertiesUnitDecorator.Create(_obj: CoreProperties);
|
||||
begin
|
||||
class(CoreProperties).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CorePropertiesUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CorePropertiesUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type CreatedUnitDecorator = class(Created)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Created);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Created;
|
||||
end;
|
||||
|
||||
function CreatedUnitDecorator.Create(_obj: Created);
|
||||
begin
|
||||
class(Created).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function CreatedUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function CreatedUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrXsiType) then
|
||||
{self.}XsiType := object_.XmlAttrXsiType.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,46 +0,0 @@
|
|||
type DLblsUnitDecorator = class(DLbls)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DLbls);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: DLbls;
|
||||
end;
|
||||
|
||||
function DLblsUnitDecorator.Create(_obj: DLbls);
|
||||
begin
|
||||
class(DLbls).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DLblsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DLblsUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,38 +0,0 @@
|
|||
type DTableUnitDecorator = class(DTable)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DTable);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: DTable;
|
||||
end;
|
||||
|
||||
function DTableUnitDecorator.Create(_obj: DTable);
|
||||
begin
|
||||
class(DTable).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DTableUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DTableUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type DefaultUnitDecorator = class(Default)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Default);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Default;
|
||||
end;
|
||||
|
||||
function DefaultUnitDecorator.Create(_obj: Default);
|
||||
begin
|
||||
class(Default).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DefaultUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DefaultUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type DocDefaultsUnitDecorator = class(DocDefaults)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocDefaults);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: DocDefaults;
|
||||
end;
|
||||
|
||||
function DocDefaultsUnitDecorator.Create(_obj: DocDefaults);
|
||||
begin
|
||||
class(DocDefaults).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DocDefaultsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DocDefaultsUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type DocGridUnitDecorator = class(DocGrid)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocGrid);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: DocGrid;
|
||||
end;
|
||||
|
||||
function DocGridUnitDecorator.Create(_obj: DocGrid);
|
||||
begin
|
||||
class(DocGrid).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DocGridUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DocGridUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type DocPartObjUnitDecorator = class(DocPartObj)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocPartObj);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: DocPartObj;
|
||||
end;
|
||||
|
||||
function DocPartObjUnitDecorator.Create(_obj: DocPartObj);
|
||||
begin
|
||||
class(DocPartObj).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DocPartObjUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DocPartObjUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type DocPrUnitDecorator = class(DocPr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: DocPr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: DocPr;
|
||||
end;
|
||||
|
||||
function DocPrUnitDecorator.Create(_obj: DocPr);
|
||||
begin
|
||||
class(DocPr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DocPrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DocPrUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,56 +0,0 @@
|
|||
type DocumentUnitDecorator = class(Document)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Document);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Document;
|
||||
end;
|
||||
|
||||
function DocumentUnitDecorator.Create(_obj: Document);
|
||||
begin
|
||||
class(Document).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DocumentUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DocumentUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type DrawingUnitDecorator = class(Drawing)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Drawing);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Drawing;
|
||||
end;
|
||||
|
||||
function DrawingUnitDecorator.Create(_obj: Drawing);
|
||||
begin
|
||||
class(Drawing).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function DrawingUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function DrawingUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type EffectExtentUnitDecorator = class(EffectExtent)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectExtent);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: EffectExtent;
|
||||
end;
|
||||
|
||||
function EffectExtentUnitDecorator.Create(_obj: EffectExtent);
|
||||
begin
|
||||
class(EffectExtent).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EffectExtentUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EffectExtentUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type EffectLstUnitDecorator = class(EffectLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectLst);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: EffectLst;
|
||||
end;
|
||||
|
||||
function EffectLstUnitDecorator.Create(_obj: EffectLst);
|
||||
begin
|
||||
class(EffectLst).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EffectLstUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EffectLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildOuterShdw) then
|
||||
{self.}XmlChildOuterShdw := new OuterShdwUnitDecorator(object_.XmlChildOuterShdw);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
type EffectStyleLstUnitDecorator = class(EffectStyleLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectStyleLst);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: EffectStyleLst;
|
||||
end;
|
||||
|
||||
function EffectStyleLstUnitDecorator.Create(_obj: EffectStyleLst);
|
||||
begin
|
||||
class(EffectStyleLst).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EffectStyleLstUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EffectStyleLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.EffectStyles();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new EffectStyleUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type EffectStyleUnitDecorator = class(EffectStyle)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EffectStyle);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: EffectStyle;
|
||||
end;
|
||||
|
||||
function EffectStyleUnitDecorator.Create(_obj: EffectStyle);
|
||||
begin
|
||||
class(EffectStyle).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EffectStyleUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EffectStyleUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildEffectLst) then
|
||||
{self.}XmlChildEffectLst := new EffectLstUnitDecorator(object_.XmlChildEffectLst);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,37 +0,0 @@
|
|||
type EndnotePrUnitDecorator = class(EndnotePr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: EndnotePr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: EndnotePr;
|
||||
end;
|
||||
|
||||
function EndnotePrUnitDecorator.Create(_obj: EndnotePr);
|
||||
begin
|
||||
class(EndnotePr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EndnotePrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EndnotePrUnitDecorator.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);
|
||||
elems := object_.Endnotes();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new EndnoteUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
type EndnoteUnitDecorator = class(Endnote)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Endnote);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Endnote;
|
||||
end;
|
||||
|
||||
function EndnoteUnitDecorator.Create(_obj: Endnote);
|
||||
begin
|
||||
class(Endnote).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EndnoteUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EndnoteUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,97 +0,0 @@
|
|||
type EndnotesUnitDecorator = class(Endnotes)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Endnotes);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Endnotes;
|
||||
end;
|
||||
|
||||
function EndnotesUnitDecorator.Create(_obj: Endnotes);
|
||||
begin
|
||||
class(Endnotes).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function EndnotesUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function EndnotesUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Endnotes();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new EndnoteUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
type ExtLstUnitDecorator = class(ExtLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ExtLst);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: ExtLst;
|
||||
end;
|
||||
|
||||
function ExtLstUnitDecorator.Create(_obj: ExtLst);
|
||||
begin
|
||||
class(ExtLst).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ExtLstUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ExtLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Exts();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new ExtUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type ExtUnitDecorator = class(Ext)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ext);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Ext;
|
||||
end;
|
||||
|
||||
function ExtUnitDecorator.Create(_obj: Ext);
|
||||
begin
|
||||
class(Ext).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ExtUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ExtUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type ExternalDataUnitDecorator = class(ExternalData)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: ExternalData);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: ExternalData;
|
||||
end;
|
||||
|
||||
function ExternalDataUnitDecorator.Create(_obj: ExternalData);
|
||||
begin
|
||||
class(ExternalData).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ExternalDataUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ExternalDataUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type FUnitDecorator = class(F)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: F);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: F;
|
||||
end;
|
||||
|
||||
function FUnitDecorator.Create(_obj: F);
|
||||
begin
|
||||
class(F).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrEqn) then
|
||||
{self.}Eqn := object_.XmlAttrEqn.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type FallbackUnitDecorator = class(Fallback)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Fallback);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Fallback;
|
||||
end;
|
||||
|
||||
function FallbackUnitDecorator.Create(_obj: Fallback);
|
||||
begin
|
||||
class(Fallback).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FallbackUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FallbackUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type FillStyleLstUnitDecorator = class(FillStyleLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FillStyleLst);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: FillStyleLst;
|
||||
end;
|
||||
|
||||
function FillStyleLstUnitDecorator.Create(_obj: FillStyleLst);
|
||||
begin
|
||||
class(FillStyleLst).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FillStyleLstUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FillStyleLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.SolidFills();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new SolidFillUnitDecorator(elem));
|
||||
elems := object_.GradFills();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new GradFillUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type FldCharUnitDecorator = class(FldChar)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FldChar);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: FldChar;
|
||||
end;
|
||||
|
||||
function FldCharUnitDecorator.Create(_obj: FldChar);
|
||||
begin
|
||||
class(FldChar).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FldCharUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FldCharUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrFldCharType) then
|
||||
{self.}FldCharType := object_.XmlAttrFldCharType.Value;
|
||||
if not ifnil(object_.XmlAttrFldLock) then
|
||||
{self.}FldLock := object_.XmlAttrFldLock.Value;
|
||||
if not ifnil(object_.XmlAttrDirty) then
|
||||
{self.}Dirty := object_.XmlAttrDirty.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
type FldSimpleUnitDecorator = class(FldSimple)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FldSimple);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: FldSimple;
|
||||
end;
|
||||
|
||||
function FldSimpleUnitDecorator.Create(_obj: FldSimple);
|
||||
begin
|
||||
class(FldSimple).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FldSimpleUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FldSimpleUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrInstr) then
|
||||
{self.}Instr := object_.XmlAttrInstr.Value;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,38 +0,0 @@
|
|||
type FmtSchemeUnitDecorator = class(FmtScheme)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FmtScheme);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: FmtScheme;
|
||||
end;
|
||||
|
||||
function FmtSchemeUnitDecorator.Create(_obj: FmtScheme);
|
||||
begin
|
||||
class(FmtScheme).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FmtSchemeUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FmtSchemeUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type FontSchemeUnitDecorator = class(FontScheme)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FontScheme);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: FontScheme;
|
||||
end;
|
||||
|
||||
function FontSchemeUnitDecorator.Create(_obj: FontScheme);
|
||||
begin
|
||||
class(FontScheme).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FontSchemeUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FontSchemeUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
type FontUnitDecorator = class(Font)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Font);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Font;
|
||||
end;
|
||||
|
||||
function FontUnitDecorator.Create(_obj: Font);
|
||||
begin
|
||||
class(Font).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FontUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FontUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,55 +0,0 @@
|
|||
type FontsUnitDecorator = class(Fonts)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Fonts);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Fonts;
|
||||
end;
|
||||
|
||||
function FontsUnitDecorator.Create(_obj: Fonts);
|
||||
begin
|
||||
class(Fonts).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FontsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FontsUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Fonts();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FontUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,37 +0,0 @@
|
|||
type FootnotePrUnitDecorator = class(FootnotePr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FootnotePr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: FootnotePr;
|
||||
end;
|
||||
|
||||
function FootnotePrUnitDecorator.Create(_obj: FootnotePr);
|
||||
begin
|
||||
class(FootnotePr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FootnotePrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
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);
|
||||
elems := object_.Footnotes();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FootnoteUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type FootnoteReferenceUnitDecorator = class(FootnoteReference)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: FootnoteReference);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: FootnoteReference;
|
||||
end;
|
||||
|
||||
function FootnoteReferenceUnitDecorator.Create(_obj: FootnoteReference);
|
||||
begin
|
||||
class(FootnoteReference).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FootnoteReferenceUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FootnoteReferenceUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
type FootnoteUnitDecorator = class(Footnote)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Footnote);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Footnote;
|
||||
end;
|
||||
|
||||
function FootnoteUnitDecorator.Create(_obj: Footnote);
|
||||
begin
|
||||
class(Footnote).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FootnoteUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FootnoteUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,97 +0,0 @@
|
|||
type FootnotesUnitDecorator = class(Footnotes)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Footnotes);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Footnotes;
|
||||
end;
|
||||
|
||||
function FootnotesUnitDecorator.Create(_obj: Footnotes);
|
||||
begin
|
||||
class(Footnotes).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FootnotesUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FootnotesUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Footnotes();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new FootnoteUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
type FormulasUnitDecorator = class(Formulas)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Formulas);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Formulas;
|
||||
end;
|
||||
|
||||
function FormulasUnitDecorator.Create(_obj: Formulas);
|
||||
begin
|
||||
class(Formulas).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FormulasUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FormulasUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Fs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new ShapetypeUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,61 +0,0 @@
|
|||
type FtrUnitDecorator = class(Ftr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ftr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Ftr;
|
||||
end;
|
||||
|
||||
function FtrUnitDecorator.Create(_obj: Ftr);
|
||||
begin
|
||||
class(Ftr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function FtrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function FtrUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
type GradFillUnitDecorator = class(GradFill)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GradFill);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: GradFill;
|
||||
end;
|
||||
|
||||
function GradFillUnitDecorator.Create(_obj: GradFill);
|
||||
begin
|
||||
class(GradFill).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GradFillUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GradFillUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
type GraphicDataUnitDecorator = class(GraphicData)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GraphicData);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: GraphicData;
|
||||
end;
|
||||
|
||||
function GraphicDataUnitDecorator.Create(_obj: GraphicData);
|
||||
begin
|
||||
class(GraphicData).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GraphicDataUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GraphicDataUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type GraphicFrameLocksUnitDecorator = class(GraphicFrameLocks)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GraphicFrameLocks);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: GraphicFrameLocks;
|
||||
end;
|
||||
|
||||
function GraphicFrameLocksUnitDecorator.Create(_obj: GraphicFrameLocks);
|
||||
begin
|
||||
class(GraphicFrameLocks).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GraphicFrameLocksUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GraphicFrameLocksUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type GraphicUnitDecorator = class(Graphic)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Graphic);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Graphic;
|
||||
end;
|
||||
|
||||
function GraphicUnitDecorator.Create(_obj: Graphic);
|
||||
begin
|
||||
class(Graphic).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GraphicUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GraphicUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type GridColUnitDecorator = class(GridCol)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GridCol);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: GridCol;
|
||||
end;
|
||||
|
||||
function GridColUnitDecorator.Create(_obj: GridCol);
|
||||
begin
|
||||
class(GridCol).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GridColUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GridColUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrw) then
|
||||
{self.}w := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrw.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type GridSpanUnitDecorator = class(GridSpan)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GridSpan);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: GridSpan;
|
||||
end;
|
||||
|
||||
function GridSpanUnitDecorator.Create(_obj: GridSpan);
|
||||
begin
|
||||
class(GridSpan).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GridSpanUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GridSpanUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrVal) then
|
||||
{self.}Val := TSSafeUnitConverter.ToInt(object_.XmlAttrVal.Value);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
type GsLstUnitDecorator = class(GsLst)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: GsLst);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: GsLst;
|
||||
end;
|
||||
|
||||
function GsLstUnitDecorator.Create(_obj: GsLst);
|
||||
begin
|
||||
class(GsLst).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GsLstUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GsLstUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
elems := object_.Gses();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new GsUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type GsUnitDecorator = class(Gs)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Gs);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Gs;
|
||||
end;
|
||||
|
||||
function GsUnitDecorator.Create(_obj: Gs);
|
||||
begin
|
||||
class(Gs).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function GsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function GsUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
type HdrShapeDefaultsUnitDecorator = class(HdrShapeDefaults)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: HdrShapeDefaults);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: HdrShapeDefaults;
|
||||
end;
|
||||
|
||||
function HdrShapeDefaultsUnitDecorator.Create(_obj: HdrShapeDefaults);
|
||||
begin
|
||||
class(HdrShapeDefaults).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function HdrShapeDefaultsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function HdrShapeDefaultsUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlChildShapeDefaults) then
|
||||
{self.}XmlChildShapeDefaults := new ShapeDefaultsUnitDecorator(object_.XmlChildShapeDefaults);
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,61 +0,0 @@
|
|||
type HdrUnitDecorator = class(Hdr)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Hdr);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Hdr;
|
||||
end;
|
||||
|
||||
function HdrUnitDecorator.Create(_obj: Hdr);
|
||||
begin
|
||||
class(Hdr).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function HdrUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function HdrUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Ps();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new PUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,37 +0,0 @@
|
|||
type HyperLinkUnitDecorator = class(HyperLink)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: HyperLink);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: HyperLink;
|
||||
end;
|
||||
|
||||
function HyperLinkUnitDecorator.Create(_obj: HyperLink);
|
||||
begin
|
||||
class(HyperLink).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function HyperLinkUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function HyperLinkUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type IdMapUnitDecorator = class(IdMap)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: IdMap);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: IdMap;
|
||||
end;
|
||||
|
||||
function IdMapUnitDecorator.Create(_obj: IdMap);
|
||||
begin
|
||||
class(IdMap).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function IdMapUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function IdMapUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
type ImagedataUnitDecorator = class(Imagedata)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Imagedata);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Imagedata;
|
||||
end;
|
||||
|
||||
function ImagedataUnitDecorator.Create(_obj: Imagedata);
|
||||
begin
|
||||
class(Imagedata).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function ImagedataUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function ImagedataUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
if not ifnil(object_.XmlAttrTitle) then
|
||||
{self.}Title := object_.XmlAttrTitle.Value;
|
||||
tslassigning := tslassigning_backup;
|
||||
end;
|
||||
|
|
@ -1,44 +0,0 @@
|
|||
type IndUnitDecorator = class(Ind)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ind);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Ind;
|
||||
end;
|
||||
|
||||
function IndUnitDecorator.Create(_obj: Ind);
|
||||
begin
|
||||
class(Ind).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function IndUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function IndUnitDecorator.Convert();
|
||||
begin
|
||||
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;
|
||||
|
|
@ -1,39 +0,0 @@
|
|||
type InsUnitDecorator = class(Ins)
|
||||
uses TSSafeUnitConverter;
|
||||
public
|
||||
function Create(_obj: Ins);
|
||||
function GetObject();
|
||||
function Convert();
|
||||
private
|
||||
object_: Ins;
|
||||
end;
|
||||
|
||||
function InsUnitDecorator.Create(_obj: Ins);
|
||||
begin
|
||||
class(Ins).Create();
|
||||
object_ := _obj;
|
||||
{self.}Convert();
|
||||
end;
|
||||
|
||||
function InsUnitDecorator.GetObject();
|
||||
begin
|
||||
return object_;
|
||||
end;
|
||||
|
||||
function InsUnitDecorator.Convert();
|
||||
begin
|
||||
tslassigning_backup := tslassigning;
|
||||
tslassigning := 1;
|
||||
if not ifnil(object_.XmlAttrId) then
|
||||
{self.}Id := object_.XmlAttrId.Value;
|
||||
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_.XmlAttrW16duDateUtc) then
|
||||
{self.}W16duDateUtc := object_.XmlAttrW16duDateUtc.Value;
|
||||
elems := object_.Rs();
|
||||
for _,elem in elems do
|
||||
{self.}AppendChild(new RUnitDecorator(elem));
|
||||
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