diff --git a/README.md b/README.md index 5e0a119..bdab9a6 100644 --- a/README.md +++ b/README.md @@ -2,7 +2,7 @@ ## 概述 -将docx、pptx、xlsx等文件中的xml转为tsl对象 +将 docx、pptx、xlsx 等文件中的 xml 转为 tsl 对象 ```xml ``` -上述是一个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,27 +52,47 @@ 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.Open("", "xxx.docx"); // 打开文件 -document := component.Document; // 获取document.xml，生成Document对象 -document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中 -document.Body.Elements(); // 可以获取document的body下的所有对象列表 +component := new DocxComponents(); // 创建对象 +component.Open("", "xxx.docx"); // 打开文件 +document := component.Document; // 获取document.xml，生成Document对象 +document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中 +document.Body.Elements(); // 可以获取document的body下的所有对象列表 // 反序列化后，可进行读写 styles := component.Styles; // 获取styles.xml，生成Styles对象 ``` -document.xml内容如下 +document.xml 内容如下 ```xml ``` -### 单位装饰器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 @@ -126,11 +146,11 @@ document.xml内容如下 ``` ```go -namespace "DOCX" -component := new Components(); // 创建对象 +uses DocxMLUnitDecorator; +component := new Components(); // 创建对象 component.Open("", "xxx.docx"); // 打开文件 document := component.Document; // 获取document.xml，生成Document对象 -document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中 +document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中 sect_pr := document.Body.SectPr; // 获取SectPr对象 sect_pr_unit_decorator := new SectPrUnitDecorator(sect_pr); // 装饰器构造需要原本的对象 @@ -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 @@ -175,11 +195,11 @@ styles.xml部分如下 ``` ```go -namespace "DOCX" -component := new Components(); // 创建对象 +uses DocxMLAdapter; +component := new Components(); // 创建对象 component.Open("", "xxx.docx"); // 打开文件 document := component.Document; // 获取document.xml，生成Document对象 -document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中 +document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中 styles := document.Styles; // 现在需要通过styleId获取Style对象 @@ -188,3 +208,27 @@ styles_adapter := new StylesAdapter(styles); style := styles_adapter.GetStyleByStyleId("a6"); echo style.Name; // 输出的是"页脚 字符" ``` + +### 补充 + +```xml + + + + + + + + cos + +``` + +由于设计取对象时候不包含前缀，那么同时存在多个`rPr`时，如何区分是哪一个？ +取`m:rPr`时，可通过`r.RPr`，这是因为它们的前缀都是`m`，所以可直接获取 +取`a:rPr`时，需要指定前缀`a`，通过`r.RPr('a')`，进行获取`RPr`对象 diff --git a/autoclass/adapter/docx/EndnotePrAdapter@DOCX.tsf b/autoclass/adapter/docx/EndnotePrAdapter@DOCX.tsf deleted file mode 100644 index fb82082..0000000 --- a/autoclass/adapter/docx/EndnotePrAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/EndnotesAdapter@DOCX.tsf b/autoclass/adapter/docx/EndnotesAdapter@DOCX.tsf deleted file mode 100644 index 519d0ce..0000000 --- a/autoclass/adapter/docx/EndnotesAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/FootnotePrAdapter@DOCX.tsf b/autoclass/adapter/docx/FootnotePrAdapter@DOCX.tsf deleted file mode 100644 index 4f61cd1..0000000 --- a/autoclass/adapter/docx/FootnotePrAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/FootnotesAdapter@DOCX.tsf b/autoclass/adapter/docx/FootnotesAdapter@DOCX.tsf deleted file mode 100644 index 3bd2366..0000000 --- a/autoclass/adapter/docx/FootnotesAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/NumberingAdapter@DOCX.tsf b/autoclass/adapter/docx/NumberingAdapter@DOCX.tsf deleted file mode 100644 index 9689d19..0000000 --- a/autoclass/adapter/docx/NumberingAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf b/autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf deleted file mode 100644 index 869bd29..0000000 --- a/autoclass/adapter/docx/RelationshipsAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/SectPrAdapter@DOCX.tsf b/autoclass/adapter/docx/SectPrAdapter@DOCX.tsf deleted file mode 100644 index 20d3524..0000000 --- a/autoclass/adapter/docx/SectPrAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/StyleAdapter@DOCX.tsf b/autoclass/adapter/docx/StyleAdapter@DOCX.tsf deleted file mode 100644 index a8df4cc..0000000 --- a/autoclass/adapter/docx/StyleAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/StylesAdapter@DOCX.tsf b/autoclass/adapter/docx/StylesAdapter@DOCX.tsf deleted file mode 100644 index 1e0eb55..0000000 --- a/autoclass/adapter/docx/StylesAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/adapter/docx/TabsAdapter@DOCX.tsf b/autoclass/adapter/docx/TabsAdapter@DOCX.tsf deleted file mode 100644 index 4adf339..0000000 --- a/autoclass/adapter/docx/TabsAdapter@DOCX.tsf +++ /dev/null @@ -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; diff --git a/autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf deleted file mode 100644 index f05a8db..0000000 --- a/autoclass/decorator/docx/APPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf deleted file mode 100644 index b52ed79..0000000 --- a/autoclass/decorator/docx/ARPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf deleted file mode 100644 index 760bc70..0000000 --- a/autoclass/decorator/docx/ARUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf deleted file mode 100644 index e124285..0000000 --- a/autoclass/decorator/docx/AbstractNumUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf deleted file mode 100644 index b141bd0..0000000 --- a/autoclass/decorator/docx/AlternateContentUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/AnchorUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/AnchorUnitDecorator@DOCX.tsf deleted file mode 100644 index 2660c80..0000000 --- a/autoclass/decorator/docx/AnchorUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf deleted file mode 100644 index 830ec70..0000000 --- a/autoclass/decorator/docx/ApUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf deleted file mode 100644 index 9b0c2cb..0000000 --- a/autoclass/decorator/docx/AxUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf deleted file mode 100644 index 1560979..0000000 --- a/autoclass/decorator/docx/BarChartUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf deleted file mode 100644 index 86cab4a..0000000 --- a/autoclass/decorator/docx/BlipFillUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf deleted file mode 100644 index 8dcfc78..0000000 --- a/autoclass/decorator/docx/BlipUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf deleted file mode 100644 index d988658..0000000 --- a/autoclass/decorator/docx/BodyPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf deleted file mode 100644 index 7fb8fe1..0000000 --- a/autoclass/decorator/docx/BodyUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf deleted file mode 100644 index d0e3cd2..0000000 --- a/autoclass/decorator/docx/BookmarkUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf deleted file mode 100644 index d64c467..0000000 --- a/autoclass/decorator/docx/BrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf deleted file mode 100644 index e767c55..0000000 --- a/autoclass/decorator/docx/CNvGraphicFramePrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 04acc34..0000000 --- a/autoclass/decorator/docx/CNvPicPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 1dd5aca..0000000 --- a/autoclass/decorator/docx/CNvPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CNvSpPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CNvSpPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 1b8663b..0000000 --- a/autoclass/decorator/docx/CNvSpPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf deleted file mode 100644 index de51a92..0000000 --- a/autoclass/decorator/docx/CXYUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf deleted file mode 100644 index 456023b..0000000 --- a/autoclass/decorator/docx/CacheUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf deleted file mode 100644 index eea7847..0000000 --- a/autoclass/decorator/docx/CatUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf deleted file mode 100644 index 9f26c29..0000000 --- a/autoclass/decorator/docx/ChartSpaceUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf deleted file mode 100644 index 3b8fee6..0000000 --- a/autoclass/decorator/docx/ChartUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf deleted file mode 100644 index 91818c9..0000000 --- a/autoclass/decorator/docx/ChoiceUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf b/autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf deleted file mode 100644 index 5630b47..0000000 --- a/autoclass/decorator/docx/Clr1UnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf b/autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf deleted file mode 100644 index 5053a00..0000000 --- a/autoclass/decorator/docx/Clr2UnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ClrSchemeMappingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ClrSchemeMappingUnitDecorator@DOCX.tsf deleted file mode 100644 index 3640e62..0000000 --- a/autoclass/decorator/docx/ClrSchemeMappingUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf deleted file mode 100644 index 4f6ee77..0000000 --- a/autoclass/decorator/docx/ClrSchemeUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CnfStyleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CnfStyleUnitDecorator@DOCX.tsf deleted file mode 100644 index b23ce96..0000000 --- a/autoclass/decorator/docx/CnfStyleUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ColUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ColUnitDecorator@DOCX.tsf deleted file mode 100644 index 94ebf30..0000000 --- a/autoclass/decorator/docx/ColUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf deleted file mode 100644 index d270121..0000000 --- a/autoclass/decorator/docx/ColorUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf deleted file mode 100644 index 1ab8b27..0000000 --- a/autoclass/decorator/docx/ColsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf deleted file mode 100644 index f788f37..0000000 --- a/autoclass/decorator/docx/CommentRangeUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf deleted file mode 100644 index 68028d4..0000000 --- a/autoclass/decorator/docx/CommentUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf deleted file mode 100644 index 8d7e8df..0000000 --- a/autoclass/decorator/docx/CommentsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf deleted file mode 100644 index 34305cc..0000000 --- a/autoclass/decorator/docx/CompatSettingUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf deleted file mode 100644 index 40de558..0000000 --- a/autoclass/decorator/docx/CompatUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf deleted file mode 100644 index 8ede3f8..0000000 --- a/autoclass/decorator/docx/CorePropertiesUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf deleted file mode 100644 index d203075..0000000 --- a/autoclass/decorator/docx/CreatedUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf deleted file mode 100644 index c4d5dd8..0000000 --- a/autoclass/decorator/docx/DLblsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf deleted file mode 100644 index 56f6257..0000000 --- a/autoclass/decorator/docx/DTableUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf deleted file mode 100644 index bf7b71f..0000000 --- a/autoclass/decorator/docx/DefaultUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf deleted file mode 100644 index b211bd3..0000000 --- a/autoclass/decorator/docx/DocDefaultsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf deleted file mode 100644 index 08699b4..0000000 --- a/autoclass/decorator/docx/DocGridUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf deleted file mode 100644 index c67f829..0000000 --- a/autoclass/decorator/docx/DocPartObjUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf deleted file mode 100644 index d906dfa..0000000 --- a/autoclass/decorator/docx/DocPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf deleted file mode 100644 index a22e21b..0000000 --- a/autoclass/decorator/docx/DocumentUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf deleted file mode 100644 index fbda7da..0000000 --- a/autoclass/decorator/docx/DrawingUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf deleted file mode 100644 index 4b52931..0000000 --- a/autoclass/decorator/docx/EffectExtentUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf deleted file mode 100644 index 194c8c5..0000000 --- a/autoclass/decorator/docx/EffectLstUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf deleted file mode 100644 index d17c6f7..0000000 --- a/autoclass/decorator/docx/EffectStyleLstUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf deleted file mode 100644 index 28e1e79..0000000 --- a/autoclass/decorator/docx/EffectStyleUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf deleted file mode 100644 index 124cd0e..0000000 --- a/autoclass/decorator/docx/EndnotePrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf deleted file mode 100644 index 1ad85dd..0000000 --- a/autoclass/decorator/docx/EndnoteUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf deleted file mode 100644 index 40be7a6..0000000 --- a/autoclass/decorator/docx/EndnotesUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf deleted file mode 100644 index 540e436..0000000 --- a/autoclass/decorator/docx/ExtLstUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf deleted file mode 100644 index c420e00..0000000 --- a/autoclass/decorator/docx/ExtUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf deleted file mode 100644 index 7fd2121..0000000 --- a/autoclass/decorator/docx/ExternalDataUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FUnitDecorator@DOCX.tsf deleted file mode 100644 index 63e2f48..0000000 --- a/autoclass/decorator/docx/FUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf deleted file mode 100644 index 5486255..0000000 --- a/autoclass/decorator/docx/FallbackUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf deleted file mode 100644 index 203cf1d..0000000 --- a/autoclass/decorator/docx/FillStyleLstUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf deleted file mode 100644 index 25995a5..0000000 --- a/autoclass/decorator/docx/FldCharUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FldSimpleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FldSimpleUnitDecorator@DOCX.tsf deleted file mode 100644 index 2dbb692..0000000 --- a/autoclass/decorator/docx/FldSimpleUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf deleted file mode 100644 index c0c9ce5..0000000 --- a/autoclass/decorator/docx/FmtSchemeUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf deleted file mode 100644 index 85da6d1..0000000 --- a/autoclass/decorator/docx/FontSchemeUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf deleted file mode 100644 index 5ab76e0..0000000 --- a/autoclass/decorator/docx/FontUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf deleted file mode 100644 index bb70423..0000000 --- a/autoclass/decorator/docx/FontsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf deleted file mode 100644 index bfa4de2..0000000 --- a/autoclass/decorator/docx/FootnotePrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FootnoteReferenceUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FootnoteReferenceUnitDecorator@DOCX.tsf deleted file mode 100644 index a4461bc..0000000 --- a/autoclass/decorator/docx/FootnoteReferenceUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf deleted file mode 100644 index 8c1d38d..0000000 --- a/autoclass/decorator/docx/FootnoteUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf deleted file mode 100644 index f82c2b3..0000000 --- a/autoclass/decorator/docx/FootnotesUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FormulasUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FormulasUnitDecorator@DOCX.tsf deleted file mode 100644 index d1490b8..0000000 --- a/autoclass/decorator/docx/FormulasUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf deleted file mode 100644 index 1aa79df..0000000 --- a/autoclass/decorator/docx/FtrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf deleted file mode 100644 index 682686b..0000000 --- a/autoclass/decorator/docx/GradFillUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf deleted file mode 100644 index 80211d5..0000000 --- a/autoclass/decorator/docx/GraphicDataUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf deleted file mode 100644 index 24b6dc3..0000000 --- a/autoclass/decorator/docx/GraphicFrameLocksUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf deleted file mode 100644 index 792eb1e..0000000 --- a/autoclass/decorator/docx/GraphicUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf deleted file mode 100644 index 3fac7ed..0000000 --- a/autoclass/decorator/docx/GridColUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GridSpanUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GridSpanUnitDecorator@DOCX.tsf deleted file mode 100644 index 5e71cb5..0000000 --- a/autoclass/decorator/docx/GridSpanUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf deleted file mode 100644 index b4bdee9..0000000 --- a/autoclass/decorator/docx/GsLstUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf deleted file mode 100644 index ae8715a..0000000 --- a/autoclass/decorator/docx/GsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf deleted file mode 100644 index ce5d85c..0000000 --- a/autoclass/decorator/docx/HdrShapeDefaultsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf deleted file mode 100644 index 6bc9d3c..0000000 --- a/autoclass/decorator/docx/HdrUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf deleted file mode 100644 index ac153ae..0000000 --- a/autoclass/decorator/docx/HyperLinkUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf deleted file mode 100644 index 97e037d..0000000 --- a/autoclass/decorator/docx/IdMapUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/ImagedataUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ImagedataUnitDecorator@DOCX.tsf deleted file mode 100644 index 7b8bbb7..0000000 --- a/autoclass/decorator/docx/ImagedataUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf deleted file mode 100644 index 420564f..0000000 --- a/autoclass/decorator/docx/IndUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/InsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/InsUnitDecorator@DOCX.tsf deleted file mode 100644 index f6ae0a3..0000000 --- a/autoclass/decorator/docx/InsUnitDecorator@DOCX.tsf +++ /dev/null @@ -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; \ No newline at end of file diff --git a/autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf deleted file mode 100644 index 7d6fcbb..0000000 --- a/autoclass/decorator/docx/InstrTextUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type InstrTextUnitDecorator = class(InstrText) -uses TSSafeUnitConverter; -public - function Create(_obj: InstrText); - function GetObject(); - function Convert(); -private - object_: InstrText; -end; - -function InstrTextUnitDecorator.Create(_obj: InstrText); -begin - class(InstrText).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function InstrTextUnitDecorator.GetObject(); -begin - return object_; -end; - -function InstrTextUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrSpace) then - {self.}Space := object_.XmlAttrSpace.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf deleted file mode 100644 index 73b6ee6..0000000 --- a/autoclass/decorator/docx/LangUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type LangUnitDecorator = class(Lang) -uses TSSafeUnitConverter; -public - function Create(_obj: Lang); - function GetObject(); - function Convert(); -private - object_: Lang; -end; - -function LangUnitDecorator.Create(_obj: Lang); -begin - class(Lang).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LangUnitDecorator.GetObject(); -begin - return object_; -end; - -function LangUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrEastAsia) then - {self.}EastAsia := object_.XmlAttrEastAsia.Value; - if not ifnil(object_.XmlAttrBidi) then - {self.}Bidi := object_.XmlAttrBidi.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf deleted file mode 100644 index 84986ce..0000000 --- a/autoclass/decorator/docx/LatenStylesUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,43 +0,0 @@ -type LatenStylesUnitDecorator = class(LatenStyles) -uses TSSafeUnitConverter; -public - function Create(_obj: LatenStyles); - function GetObject(); - function Convert(); -private - object_: LatenStyles; -end; - -function LatenStylesUnitDecorator.Create(_obj: LatenStyles); -begin - class(LatenStyles).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LatenStylesUnitDecorator.GetObject(); -begin - return object_; -end; - -function LatenStylesUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrDefLickedState) then - {self.}DefLickedState := object_.XmlAttrDefLickedState.Value; - if not ifnil(object_.XmlAttrDefUIPriority) then - {self.}DefUIPriority := object_.XmlAttrDefUIPriority.Value; - if not ifnil(object_.XmlAttrDefSemiHidden) then - {self.}DefSemiHidden := object_.XmlAttrDefSemiHidden.Value; - if not ifnil(object_.XmlAttrDefUnhideWhenUsed) then - {self.}DefUnhideWhenUsed := object_.XmlAttrDefUnhideWhenUsed.Value; - if not ifnil(object_.XmlAttrDefQFormat) then - {self.}DefQFormat := object_.XmlAttrDefQFormat.Value; - if not ifnil(object_.XmlAttrCount) then - {self.}Count := object_.XmlAttrCount.Value; - elems := object_.LsdExceptions(); - for _,elem in elems do - {self.}AppendChild(new LsdExceptionUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf deleted file mode 100644 index cfd3e64..0000000 --- a/autoclass/decorator/docx/LatinUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type LatinUnitDecorator = class(Latin) -uses TSSafeUnitConverter; -public - function Create(_obj: Latin); - function GetObject(); - function Convert(); -private - object_: Latin; -end; - -function LatinUnitDecorator.Create(_obj: Latin); -begin - class(Latin).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LatinUnitDecorator.GetObject(); -begin - return object_; -end; - -function LatinUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrTypeface) then - {self.}Typeface := object_.XmlAttrTypeface.Value; - if not ifnil(object_.XmlAttrPanose) then - {self.}Panose := object_.XmlAttrPanose.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf deleted file mode 100644 index 8ba076e..0000000 --- a/autoclass/decorator/docx/LegendUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type LegendUnitDecorator = class(Legend) -uses TSSafeUnitConverter; -public - function Create(_obj: Legend); - function GetObject(); - function Convert(); -private - object_: Legend; -end; - -function LegendUnitDecorator.Create(_obj: Legend); -begin - class(Legend).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LegendUnitDecorator.GetObject(); -begin - return object_; -end; - -function LegendUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildLegendPos) then - {self.}XmlChildLegendPos := new PureValUnitDecorator(object_.XmlChildLegendPos); - if not ifnil(object_.XmlChildLayout) then - {self.}Layout.Copy(object_.XmlChildLayout); - if not ifnil(object_.XmlChildOverlay) then - {self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay); - if not ifnil(object_.XmlChildTxPr) then - {self.}XmlChildTxPr := new TxPrUnitDecorator(object_.XmlChildTxPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf deleted file mode 100644 index e6088fb..0000000 --- a/autoclass/decorator/docx/LinUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type LinUnitDecorator = class(Lin) -uses TSSafeUnitConverter; -public - function Create(_obj: Lin); - function GetObject(); - function Convert(); -private - object_: Lin; -end; - -function LinUnitDecorator.Create(_obj: Lin); -begin - class(Lin).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LinUnitDecorator.GetObject(); -begin - return object_; -end; - -function LinUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrAng) then - {self.}Ang := object_.XmlAttrAng.Value; - if not ifnil(object_.XmlAttrScaled) then - {self.}Scaled := object_.XmlAttrScaled.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf deleted file mode 100644 index 427206a..0000000 --- a/autoclass/decorator/docx/LnStyleLstUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type LnStyleLstUnitDecorator = class(LnStyleLst) -uses TSSafeUnitConverter; -public - function Create(_obj: LnStyleLst); - function GetObject(); - function Convert(); -private - object_: LnStyleLst; -end; - -function LnStyleLstUnitDecorator.Create(_obj: LnStyleLst); -begin - class(LnStyleLst).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LnStyleLstUnitDecorator.GetObject(); -begin - return object_; -end; - -function LnStyleLstUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - elems := object_.Lns(); - for _,elem in elems do - {self.}AppendChild(new LnUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf deleted file mode 100644 index cbb1aef..0000000 --- a/autoclass/decorator/docx/LnUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,42 +0,0 @@ -type LnUnitDecorator = class(Ln) -uses TSSafeUnitConverter; -public - function Create(_obj: Ln); - function GetObject(); - function Convert(); -private - object_: Ln; -end; - -function LnUnitDecorator.Create(_obj: Ln); -begin - class(Ln).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LnUnitDecorator.GetObject(); -begin - return object_; -end; - -function LnUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrW) then - {self.}W := object_.XmlAttrW.Value; - if not ifnil(object_.XmlAttrCap) then - {self.}Cap := object_.XmlAttrCap.Value; - if not ifnil(object_.XmlAttrCmpd) then - {self.}Cmpd := object_.XmlAttrCmpd.Value; - if not ifnil(object_.XmlAttrAlgn) then - {self.}Algn := object_.XmlAttrAlgn.Value; - if not ifnil(object_.XmlChildSolidFill) then - {self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill); - if not ifnil(object_.XmlChildPrstDash) then - {self.}XmlChildPrstDash := new PureValUnitDecorator(object_.XmlChildPrstDash); - if not ifnil(object_.XmlChildMiter) then - {self.}XmlChildMiter := new MiterUnitDecorator(object_.XmlChildMiter); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LockUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LockUnitDecorator@DOCX.tsf deleted file mode 100644 index 6234227..0000000 --- a/autoclass/decorator/docx/LockUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type LockUnitDecorator = class(Lock) -uses TSSafeUnitConverter; -public - function Create(_obj: Lock); - function GetObject(); - function Convert(); -private - object_: Lock; -end; - -function LockUnitDecorator.Create(_obj: Lock); -begin - class(Lock).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LockUnitDecorator.GetObject(); -begin - return object_; -end; - -function LockUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrExt) then - {self.}Ext := object_.XmlAttrExt.Value; - if not ifnil(object_.XmlAttrAspectration) then - {self.}Aspectration := object_.XmlAttrAspectration.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf deleted file mode 100644 index 7d1de54..0000000 --- a/autoclass/decorator/docx/LsdExceptionUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,38 +0,0 @@ -type LsdExceptionUnitDecorator = class(LsdException) -uses TSSafeUnitConverter; -public - function Create(_obj: LsdException); - function GetObject(); - function Convert(); -private - object_: LsdException; -end; - -function LsdExceptionUnitDecorator.Create(_obj: LsdException); -begin - class(LsdException).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LsdExceptionUnitDecorator.GetObject(); -begin - return object_; -end; - -function LsdExceptionUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrName) then - {self.}Name := object_.XmlAttrName.Value; - if not ifnil(object_.XmlAttrUIPriority) then - {self.}UIPriority := object_.XmlAttrUIPriority.Value; - if not ifnil(object_.XmlAttrSemiHidden) then - {self.}SemiHidden := object_.XmlAttrSemiHidden.Value; - if not ifnil(object_.XmlAttrUnhideWhenUsed) then - {self.}UnhideWhenUsed := object_.XmlAttrUnhideWhenUsed.Value; - if not ifnil(object_.XmlAttrQFormat) then - {self.}QFormat := object_.XmlAttrQFormat.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf deleted file mode 100644 index acba8c0..0000000 --- a/autoclass/decorator/docx/LvlUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,48 +0,0 @@ -type LvlUnitDecorator = class(Lvl) -uses TSSafeUnitConverter; -public - function Create(_obj: Lvl); - function GetObject(); - function Convert(); -private - object_: Lvl; -end; - -function LvlUnitDecorator.Create(_obj: Lvl); -begin - class(Lvl).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function LvlUnitDecorator.GetObject(); -begin - return object_; -end; - -function LvlUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrIlvl) then - {self.}Ilvl := object_.XmlAttrIlvl.Value; - if not ifnil(object_.XmlAttrTentative) then - {self.}Tentative := object_.XmlAttrTentative.Value; - if not ifnil(object_.XmlChildStart) then - {self.}XmlChildStart := new PureWValUnitDecorator(object_.XmlChildStart); - if not ifnil(object_.XmlChildNumFmt) then - {self.}XmlChildNumFmt := new PureWValUnitDecorator(object_.XmlChildNumFmt); - if not ifnil(object_.XmlChildPStyle) then - {self.}XmlChildPStyle := new PureWValUnitDecorator(object_.XmlChildPStyle); - if not ifnil(object_.XmlChildSuff) then - {self.}XmlChildSuff := new PureWValUnitDecorator(object_.XmlChildSuff); - if not ifnil(object_.XmlChildLvlText) then - {self.}XmlChildLvlText := new PureWValUnitDecorator(object_.XmlChildLvlText); - if not ifnil(object_.XmlChildLvlJc) then - {self.}XmlChildLvlJc := new PureWValUnitDecorator(object_.XmlChildLvlJc); - if not ifnil(object_.XmlChildPPr) then - {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf deleted file mode 100644 index e7781d1..0000000 --- a/autoclass/decorator/docx/MFontFontUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type MFontFontUnitDecorator = class(MFontFont) -uses TSSafeUnitConverter; -public - function Create(_obj: MFontFont); - function GetObject(); - function Convert(); -private - object_: MFontFont; -end; - -function MFontFontUnitDecorator.Create(_obj: MFontFont); -begin - class(MFontFont).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function MFontFontUnitDecorator.GetObject(); -begin - return object_; -end; - -function MFontFontUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrScript) then - {self.}Script := object_.XmlAttrScript.Value; - if not ifnil(object_.XmlAttrTypeface) then - {self.}Typeface := object_.XmlAttrTypeface.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf deleted file mode 100644 index dd87dcb..0000000 --- a/autoclass/decorator/docx/MFontUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,37 +0,0 @@ -type MFontUnitDecorator = class(MFont) -uses TSSafeUnitConverter; -public - function Create(_obj: MFont); - function GetObject(); - function Convert(); -private - object_: MFont; -end; - -function MFontUnitDecorator.Create(_obj: MFont); -begin - class(MFont).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function MFontUnitDecorator.GetObject(); -begin - return object_; -end; - -function MFontUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildLatin) then - {self.}XmlChildLatin := new LatinUnitDecorator(object_.XmlChildLatin); - if not ifnil(object_.XmlChildEa) then - {self.}XmlChildEa := new LatinUnitDecorator(object_.XmlChildEa); - if not ifnil(object_.XmlChildCs) then - {self.}XmlChildCs := new LatinUnitDecorator(object_.XmlChildCs); - elems := object_.Fonts(); - for _,elem in elems do - {self.}AppendChild(new MFontFontUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf deleted file mode 100644 index d8cb6b7..0000000 --- a/autoclass/decorator/docx/MathPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,50 +0,0 @@ -type MathPrUnitDecorator = class(MathPr) -uses TSSafeUnitConverter; -public - function Create(_obj: MathPr); - function GetObject(); - function Convert(); -private - object_: MathPr; -end; - -function MathPrUnitDecorator.Create(_obj: MathPr); -begin - class(MathPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function MathPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function MathPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildMathFont) then - {self.}XmlChildMathFont := new PureWValUnitDecorator(object_.XmlChildMathFont); - if not ifnil(object_.XmlChildBrkBin) then - {self.}XmlChildBrkBin := new PureWValUnitDecorator(object_.XmlChildBrkBin); - if not ifnil(object_.XmlChildBrkBinSub) then - {self.}XmlChildBrkBinSub := new PureWValUnitDecorator(object_.XmlChildBrkBinSub); - if not ifnil(object_.XmlChildSmallFrac) then - {self.}XmlChildSmallFrac := new PureWValUnitDecorator(object_.XmlChildSmallFrac); - if not ifnil(object_.XmlChildDispDef) then - {self.}DispDef.Copy(object_.XmlChildDispDef); - if not ifnil(object_.XmlChildLMargin) then - {self.}XmlChildLMargin := new PureWValUnitDecorator(object_.XmlChildLMargin); - if not ifnil(object_.XmlChildRMargin) then - {self.}XmlChildRMargin := new PureWValUnitDecorator(object_.XmlChildRMargin); - if not ifnil(object_.XmlChildDefJc) then - {self.}XmlChildDefJc := new PureWValUnitDecorator(object_.XmlChildDefJc); - if not ifnil(object_.XmlChildWrapIndent) then - {self.}XmlChildWrapIndent := new PureWValUnitDecorator(object_.XmlChildWrapIndent); - if not ifnil(object_.XmlChildIntLim) then - {self.}XmlChildIntLim := new PureWValUnitDecorator(object_.XmlChildIntLim); - if not ifnil(object_.XmlChildNaryLim) then - {self.}XmlChildNaryLim := new PureWValUnitDecorator(object_.XmlChildNaryLim); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf deleted file mode 100644 index 06851d9..0000000 --- a/autoclass/decorator/docx/MiterUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type MiterUnitDecorator = class(Miter) -uses TSSafeUnitConverter; -public - function Create(_obj: Miter); - function GetObject(); - function Convert(); -private - object_: Miter; -end; - -function MiterUnitDecorator.Create(_obj: Miter); -begin - class(Miter).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function MiterUnitDecorator.GetObject(); -begin - return object_; -end; - -function MiterUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrLim) then - {self.}Lim := object_.XmlAttrLim.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf deleted file mode 100644 index e7272a4..0000000 --- a/autoclass/decorator/docx/ModifiedUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type ModifiedUnitDecorator = class(Modified) -uses TSSafeUnitConverter; -public - function Create(_obj: Modified); - function GetObject(); - function Convert(); -private - object_: Modified; -end; - -function ModifiedUnitDecorator.Create(_obj: Modified); -begin - class(Modified).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ModifiedUnitDecorator.GetObject(); -begin - return object_; -end; - -function ModifiedUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrXsiType) then - {self.}XsiType := object_.XmlAttrXsiType.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf deleted file mode 100644 index 3473752..0000000 --- a/autoclass/decorator/docx/NumFmtUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type NumFmtUnitDecorator = class(NumFmt) -uses TSSafeUnitConverter; -public - function Create(_obj: NumFmt); - function GetObject(); - function Convert(); -private - object_: NumFmt; -end; - -function NumFmtUnitDecorator.Create(_obj: NumFmt); -begin - class(NumFmt).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function NumFmtUnitDecorator.GetObject(); -begin - return object_; -end; - -function NumFmtUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrFormatCode) then - {self.}FormatCode := object_.XmlAttrFormatCode.Value; - if not ifnil(object_.XmlAttrSourceLinked) then - {self.}SourceLinked := object_.XmlAttrSourceLinked.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf deleted file mode 100644 index c08966c..0000000 --- a/autoclass/decorator/docx/NumPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type NumPrUnitDecorator = class(NumPr) -uses TSSafeUnitConverter; -public - function Create(_obj: NumPr); - function GetObject(); - function Convert(); -private - object_: NumPr; -end; - -function NumPrUnitDecorator.Create(_obj: NumPr); -begin - class(NumPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function NumPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function NumPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildIlvl) then - {self.}XmlChildIlvl := new PureWValUnitDecorator(object_.XmlChildIlvl); - if not ifnil(object_.XmlChildNumId) then - {self.}XmlChildNumId := new PureWValUnitDecorator(object_.XmlChildNumId); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf deleted file mode 100644 index dcd5235..0000000 --- a/autoclass/decorator/docx/NumRefUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type NumRefUnitDecorator = class(NumRef) -uses TSSafeUnitConverter; -public - function Create(_obj: NumRef); - function GetObject(); - function Convert(); -private - object_: NumRef; -end; - -function NumRefUnitDecorator.Create(_obj: NumRef); -begin - class(NumRef).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function NumRefUnitDecorator.GetObject(); -begin - return object_; -end; - -function NumRefUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildF) then - if not ifnil(object_.XmlChildNumCache) then - {self.}XmlChildNumCache := new CacheUnitDecorator(object_.XmlChildNumCache); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf deleted file mode 100644 index 0473ac4..0000000 --- a/autoclass/decorator/docx/NumUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type NumUnitDecorator = class(Num) -uses TSSafeUnitConverter; -public - function Create(_obj: Num); - function GetObject(); - function Convert(); -private - object_: Num; -end; - -function NumUnitDecorator.Create(_obj: Num); -begin - class(Num).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function NumUnitDecorator.GetObject(); -begin - return object_; -end; - -function NumUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrNumId) then - {self.}NumId := object_.XmlAttrNumId.Value; - if not ifnil(object_.XmlChildAbstractNumId) then - {self.}XmlChildAbstractNumId := new PureWValUnitDecorator(object_.XmlChildAbstractNumId); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf deleted file mode 100644 index ad392da..0000000 --- a/autoclass/decorator/docx/NumberingUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,104 +0,0 @@ -type NumberingUnitDecorator = class(Numbering) -uses TSSafeUnitConverter; -public - function Create(_obj: Numbering); - function GetObject(); - function Convert(); -private - object_: Numbering; -end; - -function NumberingUnitDecorator.Create(_obj: Numbering); -begin - class(Numbering).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function NumberingUnitDecorator.GetObject(); -begin - return object_; -end; - -function NumberingUnitDecorator.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_.XmlAttrXmlnsW10) then - {self.}XmlnsW10 := object_.XmlAttrXmlnsW10.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_.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_.AbstractNums(); - for _,elem in elems do - {self.}AppendChild(new AbstractNumUnitDecorator(elem)); - elems := object_.Nums(); - for _,elem in elems do - {self.}AppendChild(new NumUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/NvPicPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/NvPicPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 29d907c..0000000 --- a/autoclass/decorator/docx/NvPicPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type NvPicPrUnitDecorator = class(NvPicPr) -uses TSSafeUnitConverter; -public - function Create(_obj: NvPicPr); - function GetObject(); - function Convert(); -private - object_: NvPicPr; -end; - -function NvPicPrUnitDecorator.Create(_obj: NvPicPr); -begin - class(NvPicPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function NvPicPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function NvPicPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildCNvPr) then - {self.}XmlChildCNvPr := new CNvPrUnitDecorator(object_.XmlChildCNvPr); - if not ifnil(object_.XmlChildCNvPicPr) then - {self.}XmlChildCNvPicPr := new CNvPicPrUnitDecorator(object_.XmlChildCNvPicPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/OLEObjectUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/OLEObjectUnitDecorator@DOCX.tsf deleted file mode 100644 index 1e85576..0000000 --- a/autoclass/decorator/docx/OLEObjectUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type OLEObjectUnitDecorator = class(OLEObject) -uses TSSafeUnitConverter; -public - function Create(_obj: OLEObject); - function GetObject(); - function Convert(); -private - object_: OLEObject; -end; - -function OLEObjectUnitDecorator.Create(_obj: OLEObject); -begin - class(OLEObject).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function OLEObjectUnitDecorator.GetObject(); -begin - return object_; -end; - -function OLEObjectUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - if not ifnil(object_.XmlAttrProgID) then - {self.}ProgID := object_.XmlAttrProgID.Value; - if not ifnil(object_.XmlAttrShapeID) then - {self.}ShapeID := object_.XmlAttrShapeID.Value; - if not ifnil(object_.XmlAttrDrawAspect) then - {self.}DrawAspect := object_.XmlAttrDrawAspect.Value; - if not ifnil(object_.XmlAttrObjectID) then - {self.}ObjectID := object_.XmlAttrObjectID.Value; - if not ifnil(object_.XmlAttrId) then - {self.}Id := object_.XmlAttrId.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ObjectUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ObjectUnitDecorator@DOCX.tsf deleted file mode 100644 index d4ebc21..0000000 --- a/autoclass/decorator/docx/ObjectUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type ObjectUnitDecorator = class(Object) -uses TSSafeUnitConverter; -public - function Create(_obj: Object); - function GetObject(); - function Convert(); -private - object_: Object; -end; - -function ObjectUnitDecorator.Create(_obj: Object); -begin - class(Object).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ObjectUnitDecorator.GetObject(); -begin - return object_; -end; - -function ObjectUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrDxaOrig) then - {self.}DxaOrig := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrDxaOrig.Value); - if not ifnil(object_.XmlAttrDyaOrig) then - {self.}DyaOrig := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrDyaOrig.Value); - if not ifnil(object_.XmlAttrAnchorId) then - {self.}AnchorId := object_.XmlAttrAnchorId.Value; - if not ifnil(object_.XmlChildShapetype) then - {self.}XmlChildShapetype := new ShapetypeUnitDecorator(object_.XmlChildShapetype); - if not ifnil(object_.XmlChildShape) then - {self.}XmlChildShape := new ShapeUnitDecorator(object_.XmlChildShape); - if not ifnil(object_.XmlChildOLEObject) then - {self.}XmlChildOLEObject := new OLEObjectUnitDecorator(object_.XmlChildOLEObject); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/OuterShdwUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/OuterShdwUnitDecorator@DOCX.tsf deleted file mode 100644 index 236f2af..0000000 --- a/autoclass/decorator/docx/OuterShdwUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type OuterShdwUnitDecorator = class(OuterShdw) -uses TSSafeUnitConverter; -public - function Create(_obj: OuterShdw); - function GetObject(); - function Convert(); -private - object_: OuterShdw; -end; - -function OuterShdwUnitDecorator.Create(_obj: OuterShdw); -begin - class(OuterShdw).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function OuterShdwUnitDecorator.GetObject(); -begin - return object_; -end; - -function OuterShdwUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrBlurRad) then - {self.}BlurRad := object_.XmlAttrBlurRad.Value; - if not ifnil(object_.XmlAttrDist) then - {self.}Dist := object_.XmlAttrDist.Value; - if not ifnil(object_.XmlAttrDir) then - {self.}Dir := object_.XmlAttrDir.Value; - if not ifnil(object_.XmlAttrAlgn) then - {self.}Algn := object_.XmlAttrAlgn.Value; - if not ifnil(object_.XmlAttrRotWithShape) then - {self.}RotWithShape := object_.XmlAttrRotWithShape.Value; - if not ifnil(object_.XmlChildSrgbClr) then - {self.}XmlChildSrgbClr := new SrgbClrUnitDecorator(object_.XmlChildSrgbClr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PBdrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PBdrUnitDecorator@DOCX.tsf deleted file mode 100644 index c0b6196..0000000 --- a/autoclass/decorator/docx/PBdrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type PBdrUnitDecorator = class(PBdr) -uses TSSafeUnitConverter; -public - function Create(_obj: PBdr); - function GetObject(); - function Convert(); -private - object_: PBdr; -end; - -function PBdrUnitDecorator.Create(_obj: PBdr); -begin - class(PBdr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PBdrUnitDecorator.GetObject(); -begin - return object_; -end; - -function PBdrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTop) then - {self.}XmlChildTop := new PBorderUnitDecorator(object_.XmlChildTop); - if not ifnil(object_.XmlChildBottom) then - {self.}XmlChildBottom := new PBorderUnitDecorator(object_.XmlChildBottom); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PBorderUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PBorderUnitDecorator@DOCX.tsf deleted file mode 100644 index efd2e6c..0000000 --- a/autoclass/decorator/docx/PBorderUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type PBorderUnitDecorator = class(PBorder) -uses TSSafeUnitConverter; -public - function Create(_obj: PBorder); - function GetObject(); - function Convert(); -private - object_: PBorder; -end; - -function PBorderUnitDecorator.Create(_obj: PBorder); -begin - class(PBorder).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PBorderUnitDecorator.GetObject(); -begin - return object_; -end; - -function PBorderUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrColor) then - {self.}Color := object_.XmlAttrColor.Value; - if not ifnil(object_.XmlAttrSpace) then - {self.}Space := object_.XmlAttrSpace.Value; - if not ifnil(object_.XmlAttrThemeColor) then - {self.}ThemeColor := object_.XmlAttrThemeColor.Value; - if not ifnil(object_.XmlAttrThemeTint) then - {self.}ThemeTint := object_.XmlAttrThemeTint.Value; - if not ifnil(object_.XmlAttrSz) then - {self.}Sz := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrSz.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PPrDefaultUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PPrDefaultUnitDecorator@DOCX.tsf deleted file mode 100644 index f9fdbfc..0000000 --- a/autoclass/decorator/docx/PPrDefaultUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type PPrDefaultUnitDecorator = class(PPrDefault) -uses TSSafeUnitConverter; -public - function Create(_obj: PPrDefault); - function GetObject(); - function Convert(); -private - object_: PPrDefault; -end; - -function PPrDefaultUnitDecorator.Create(_obj: PPrDefault); -begin - class(PPrDefault).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PPrDefaultUnitDecorator.GetObject(); -begin - return object_; -end; - -function PPrDefaultUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildPPr) then - {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf deleted file mode 100644 index cef2d31..0000000 --- a/autoclass/decorator/docx/PPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,72 +0,0 @@ -type PPrUnitDecorator = class(PPr) -uses TSSafeUnitConverter; -public - function Create(_obj: PPr); - function GetObject(); - function Convert(); -private - object_: PPr; -end; - -function PPrUnitDecorator.Create(_obj: PPr); -begin - class(PPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function PPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildSectPr) then - {self.}XmlChildSectPr := new SectPrUnitDecorator(object_.XmlChildSectPr); - if not ifnil(object_.XmlChildTabs) then - {self.}XmlChildTabs := new TabsUnitDecorator(object_.XmlChildTabs); - if not ifnil(object_.XmlChildWidowControl) then - {self.}WidowControl.Copy(object_.XmlChildWidowControl); - if not ifnil(object_.XmlChildSnapToGrid) then - {self.}SnapToGrid.Copy(object_.XmlChildSnapToGrid); - if not ifnil(object_.XmlChildPStyle) then - {self.}XmlChildPStyle := new PureWValUnitDecorator(object_.XmlChildPStyle); - if not ifnil(object_.XmlChildNumPr) then - {self.}XmlChildNumPr := new NumPrUnitDecorator(object_.XmlChildNumPr); - if not ifnil(object_.XmlChildJc) then - {self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc); - if not ifnil(object_.XmlChildInd) then - {self.}XmlChildInd := new IndUnitDecorator(object_.XmlChildInd); - if not ifnil(object_.XmlChildKeepNext) then - {self.}KeepNext.Copy(object_.XmlChildKeepNext); - if not ifnil(object_.XmlChildKeepLines) then - {self.}KeepLines.Copy(object_.XmlChildKeepLines); - if not ifnil(object_.XmlChildPageBreakBefore) then - {self.}PageBreakBefore.Copy(object_.XmlChildPageBreakBefore); - if not ifnil(object_.XmlChildAdjustRightInd) then - {self.}XmlChildAdjustRightInd := new PureWValUnitDecorator(object_.XmlChildAdjustRightInd); - if not ifnil(object_.XmlChildSpacing) then - {self.}XmlChildSpacing := new SpacingUnitDecorator(object_.XmlChildSpacing); - if not ifnil(object_.XmlChildOutlineLvl) then - {self.}XmlChildOutlineLvl := new PureWValUnitDecorator(object_.XmlChildOutlineLvl); - if not ifnil(object_.XmlChildAutoSpaceDE) then - {self.}XmlChildAutoSpaceDE := new PureWValUnitDecorator(object_.XmlChildAutoSpaceDE); - if not ifnil(object_.XmlChildAutoSpaceDN) then - {self.}XmlChildAutoSpaceDN := new PureWValUnitDecorator(object_.XmlChildAutoSpaceDN); - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - if not ifnil(object_.XmlChildPBdr) then - {self.}XmlChildPBdr := new PBdrUnitDecorator(object_.XmlChildPBdr); - if not ifnil(object_.XmlChildContextualSpacing) then - {self.}ContextualSpacing.Copy(object_.XmlChildContextualSpacing); - if not ifnil(object_.XmlChildShd) then - {self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd); - if not ifnil(object_.XmlChildWordWrap) then - {self.}XmlChildWordWrap := new PureWValUnitDecorator(object_.XmlChildWordWrap); - if not ifnil(object_.XmlChildTextboxTightWrap) then - {self.}XmlChildTextboxTightWrap := new PureWValUnitDecorator(object_.XmlChildTextboxTightWrap); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PUnitDecorator@DOCX.tsf deleted file mode 100644 index c941bc6..0000000 --- a/autoclass/decorator/docx/PUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,65 +0,0 @@ -type PUnitDecorator = class(P) -uses TSSafeUnitConverter; -public - function Create(_obj: P); - function GetObject(); - function Convert(); -private - object_: P; -end; - -function PUnitDecorator.Create(_obj: P); -begin - class(P).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PUnitDecorator.GetObject(); -begin - return object_; -end; - -function PUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrW14ParaId) then - {self.}W14ParaId := object_.XmlAttrW14ParaId.Value; - if not ifnil(object_.XmlAttrW14TextId) then - {self.}W14TextId := object_.XmlAttrW14TextId.Value; - if not ifnil(object_.XmlAttrWRsidR) then - {self.}WRsidR := object_.XmlAttrWRsidR.Value; - if not ifnil(object_.XmlAttrWRsidRPr) then - {self.}WRsidRPr := object_.XmlAttrWRsidRPr.Value; - if not ifnil(object_.XmlAttrWRsidRDefault) then - {self.}WRsidRDefault := object_.XmlAttrWRsidRDefault.Value; - if not ifnil(object_.XmlAttrWRsidP) then - {self.}WRsidP := object_.XmlAttrWRsidP.Value; - if not ifnil(object_.XmlChildPPr) then - {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); - if not ifnil(object_.XmlChildIns) then - {self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns); - elems := object_.Rs(); - for _,elem in elems do - {self.}AppendChild(new RUnitDecorator(elem)); - elems := object_.CommentRangeStarts(); - for _,elem in elems do - {self.}AppendChild(new CommentRangeUnitDecorator(elem)); - elems := object_.CommentRangeEnds(); - for _,elem in elems do - {self.}AppendChild(new CommentRangeUnitDecorator(elem)); - elems := object_.BookmarkStarts(); - for _,elem in elems do - {self.}AppendChild(new BookmarkUnitDecorator(elem)); - elems := object_.BookmarkEnds(); - for _,elem in elems do - {self.}AppendChild(new BookmarkUnitDecorator(elem)); - elems := object_.Hyperlinks(); - for _,elem in elems do - {self.}AppendChild(new HyperLinkUnitDecorator(elem)); - elems := object_.FldSimples(); - for _,elem in elems do - {self.}AppendChild(new FldSimpleUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PathUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PathUnitDecorator@DOCX.tsf deleted file mode 100644 index d01098a..0000000 --- a/autoclass/decorator/docx/PathUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type PathUnitDecorator = class(Path) -uses TSSafeUnitConverter; -public - function Create(_obj: Path); - function GetObject(); - function Convert(); -private - object_: Path; -end; - -function PathUnitDecorator.Create(_obj: Path); -begin - class(Path).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PathUnitDecorator.GetObject(); -begin - return object_; -end; - -function PathUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrExtrusionok) then - {self.}Extrusionok := object_.XmlAttrExtrusionok.Value; - if not ifnil(object_.XmlAttrGradientshapeok) then - {self.}Gradientshapeok := object_.XmlAttrGradientshapeok.Value; - if not ifnil(object_.XmlAttrConnecttype) then - {self.}Connecttype := object_.XmlAttrConnecttype.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PgMarUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PgMarUnitDecorator@DOCX.tsf deleted file mode 100644 index 4b843e9..0000000 --- a/autoclass/decorator/docx/PgMarUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,42 +0,0 @@ -type PgMarUnitDecorator = class(PgMar) -uses TSSafeUnitConverter; -public - function Create(_obj: PgMar); - function GetObject(); - function Convert(); -private - object_: PgMar; -end; - -function PgMarUnitDecorator.Create(_obj: PgMar); -begin - class(PgMar).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PgMarUnitDecorator.GetObject(); -begin - return object_; -end; - -function PgMarUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrTop) then - {self.}Top := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrTop.Value); - if not ifnil(object_.XmlAttrRight) then - {self.}Right := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrRight.Value); - if not ifnil(object_.XmlAttrBottom) then - {self.}Bottom := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrBottom.Value); - if not ifnil(object_.XmlAttrLeft) then - {self.}Left := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLeft.Value); - if not ifnil(object_.XmlAttrHeader) then - {self.}Header := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrHeader.Value); - if not ifnil(object_.XmlAttrFooter) then - {self.}Footer := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrFooter.Value); - if not ifnil(object_.XmlAttrGutter) then - {self.}Gutter := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrGutter.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PgNumTypeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PgNumTypeUnitDecorator@DOCX.tsf deleted file mode 100644 index 8de7731..0000000 --- a/autoclass/decorator/docx/PgNumTypeUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type PgNumTypeUnitDecorator = class(PgNumType) -uses TSSafeUnitConverter; -public - function Create(_obj: PgNumType); - function GetObject(); - function Convert(); -private - object_: PgNumType; -end; - -function PgNumTypeUnitDecorator.Create(_obj: PgNumType); -begin - class(PgNumType).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PgNumTypeUnitDecorator.GetObject(); -begin - return object_; -end; - -function PgNumTypeUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrStart) then - {self.}Start := TSSafeUnitConverter.ToInt(object_.XmlAttrStart.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PgSzUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PgSzUnitDecorator@DOCX.tsf deleted file mode 100644 index ef73e03..0000000 --- a/autoclass/decorator/docx/PgSzUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type PgSzUnitDecorator = class(PgSz) -uses TSSafeUnitConverter; -public - function Create(_obj: PgSz); - function GetObject(); - function Convert(); -private - object_: PgSz; -end; - -function PgSzUnitDecorator.Create(_obj: PgSz); -begin - class(PgSz).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PgSzUnitDecorator.GetObject(); -begin - return object_; -end; - -function PgSzUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrW) then - {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); - if not ifnil(object_.XmlAttrH) then - {self.}H := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrH.Value); - if not ifnil(object_.XmlAttrOrient) then - {self.}Orient := object_.XmlAttrOrient.Value; - if not ifnil(object_.XmlAttrCode) then - {self.}Code := object_.XmlAttrCode.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PicLocksUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PicLocksUnitDecorator@DOCX.tsf deleted file mode 100644 index 651fd1e..0000000 --- a/autoclass/decorator/docx/PicLocksUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type PicLocksUnitDecorator = class(PicLocks) -uses TSSafeUnitConverter; -public - function Create(_obj: PicLocks); - function GetObject(); - function Convert(); -private - object_: PicLocks; -end; - -function PicLocksUnitDecorator.Create(_obj: PicLocks); -begin - class(PicLocks).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PicLocksUnitDecorator.GetObject(); -begin - return object_; -end; - -function PicLocksUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrNoChangeAspect) then - {self.}NoChangeAspect := object_.XmlAttrNoChangeAspect.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PicUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PicUnitDecorator@DOCX.tsf deleted file mode 100644 index 5350bfb..0000000 --- a/autoclass/decorator/docx/PicUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type PicUnitDecorator = class(Pic) -uses TSSafeUnitConverter; -public - function Create(_obj: Pic); - function GetObject(); - function Convert(); -private - object_: Pic; -end; - -function PicUnitDecorator.Create(_obj: Pic); -begin - class(Pic).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PicUnitDecorator.GetObject(); -begin - return object_; -end; - -function PicUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrXmlnsPic) then - {self.}XmlnsPic := object_.XmlAttrXmlnsPic.Value; - if not ifnil(object_.XmlChildNvPicPr) then - {self.}XmlChildNvPicPr := new NvPicPrUnitDecorator(object_.XmlChildNvPicPr); - if not ifnil(object_.XmlChildBlipFill) then - {self.}XmlChildBlipFill := new BlipFillUnitDecorator(object_.XmlChildBlipFill); - if not ifnil(object_.XmlChildSpPr) then - {self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PictUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PictUnitDecorator@DOCX.tsf deleted file mode 100644 index 967c19c..0000000 --- a/autoclass/decorator/docx/PictUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type PictUnitDecorator = class(Pict) -uses TSSafeUnitConverter; -public - function Create(_obj: Pict); - function GetObject(); - function Convert(); -private - object_: Pict; -end; - -function PictUnitDecorator.Create(_obj: Pict); -begin - class(Pict).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PictUnitDecorator.GetObject(); -begin - return object_; -end; - -function PictUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildShapetype) then - {self.}XmlChildShapetype := new ShapetypeUnitDecorator(object_.XmlChildShapetype); - if not ifnil(object_.XmlChildShape) then - {self.}XmlChildShape := new ShapeUnitDecorator(object_.XmlChildShape); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PlotAreaUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PlotAreaUnitDecorator@DOCX.tsf deleted file mode 100644 index b8e9ac0..0000000 --- a/autoclass/decorator/docx/PlotAreaUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type PlotAreaUnitDecorator = class(PlotArea) -uses TSSafeUnitConverter; -public - function Create(_obj: PlotArea); - function GetObject(); - function Convert(); -private - object_: PlotArea; -end; - -function PlotAreaUnitDecorator.Create(_obj: PlotArea); -begin - class(PlotArea).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PlotAreaUnitDecorator.GetObject(); -begin - return object_; -end; - -function PlotAreaUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildLayout) then - {self.}Layout.Copy(object_.XmlChildLayout); - if not ifnil(object_.XmlChildBarChart) then - {self.}XmlChildBarChart := new BarChartUnitDecorator(object_.XmlChildBarChart); - if not ifnil(object_.XmlChildCatAx) then - {self.}XmlChildCatAx := new AxUnitDecorator(object_.XmlChildCatAx); - if not ifnil(object_.XmlChildValAx) then - {self.}XmlChildValAx := new AxUnitDecorator(object_.XmlChildValAx); - if not ifnil(object_.XmlChildDTable) then - {self.}XmlChildDTable := new DTableUnitDecorator(object_.XmlChildDTable); - if not ifnil(object_.XmlChildSpPr) then - {self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PositionHUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PositionHUnitDecorator@DOCX.tsf deleted file mode 100644 index 6e6839f..0000000 --- a/autoclass/decorator/docx/PositionHUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type PositionHUnitDecorator = class(PositionH) -uses TSSafeUnitConverter; -public - function Create(_obj: PositionH); - function GetObject(); - function Convert(); -private - object_: PositionH; -end; - -function PositionHUnitDecorator.Create(_obj: PositionH); -begin - class(PositionH).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PositionHUnitDecorator.GetObject(); -begin - return object_; -end; - -function PositionHUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrRelativeFrom) then - {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; - if not ifnil(object_.XmlChildPosOffset) then - {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPosOffset.Text); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PositionVUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PositionVUnitDecorator@DOCX.tsf deleted file mode 100644 index e5152a7..0000000 --- a/autoclass/decorator/docx/PositionVUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type PositionVUnitDecorator = class(PositionV) -uses TSSafeUnitConverter; -public - function Create(_obj: PositionV); - function GetObject(); - function Convert(); -private - object_: PositionV; -end; - -function PositionVUnitDecorator.Create(_obj: PositionV); -begin - class(PositionV).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PositionVUnitDecorator.GetObject(); -begin - return object_; -end; - -function PositionVUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrRelativeFrom) then - {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; - if not ifnil(object_.XmlChildPosOffset) then - {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPosOffset.Text); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PropertiesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PropertiesUnitDecorator@DOCX.tsf deleted file mode 100644 index baded62..0000000 --- a/autoclass/decorator/docx/PropertiesUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,48 +0,0 @@ -type PropertiesUnitDecorator = class(Properties) -uses TSSafeUnitConverter; -public - function Create(_obj: Properties); - function GetObject(); - function Convert(); -private - object_: Properties; -end; - -function PropertiesUnitDecorator.Create(_obj: Properties); -begin - class(Properties).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PropertiesUnitDecorator.GetObject(); -begin - return object_; -end; - -function PropertiesUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrXmlns) then - {self.}Xmlns := object_.XmlAttrXmlns.Value; - if not ifnil(object_.XmlAttrXmlnsVt) then - {self.}XmlnsVt := object_.XmlAttrXmlnsVt.Value; - if not ifnil(object_.XmlChildTemplate) then - if not ifnil(object_.XmlChildTotalTime) then - if not ifnil(object_.XmlChildPages) then - if not ifnil(object_.XmlChildWords) then - if not ifnil(object_.XmlChildCharacters) then - if not ifnil(object_.XmlChildApplication) then - if not ifnil(object_.XmlChildDocSecurity) then - if not ifnil(object_.XmlChildLines) then - if not ifnil(object_.XmlChildParagraphs) then - if not ifnil(object_.XmlChildScaleCrop) then - if not ifnil(object_.XmlChildCompany) then - if not ifnil(object_.XmlChildLinksUpToDate) then - if not ifnil(object_.XmlChildCharactersWithSpaces) then - if not ifnil(object_.XmlChildSharedDoc) then - if not ifnil(object_.XmlChildHyperlinksChanged) then - if not ifnil(object_.XmlChildAppVersion) then - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PrstGeomUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PrstGeomUnitDecorator@DOCX.tsf deleted file mode 100644 index e94266c..0000000 --- a/autoclass/decorator/docx/PrstGeomUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type PrstGeomUnitDecorator = class(PrstGeom) -uses TSSafeUnitConverter; -public - function Create(_obj: PrstGeom); - function GetObject(); - function Convert(); -private - object_: PrstGeom; -end; - -function PrstGeomUnitDecorator.Create(_obj: PrstGeom); -begin - class(PrstGeom).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PrstGeomUnitDecorator.GetObject(); -begin - return object_; -end; - -function PrstGeomUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrPrst) then - {self.}Prst := object_.XmlAttrPrst.Value; - if not ifnil(object_.XmlChildAvLst) then - {self.}XmlChildAvLst := new PureValUnitDecorator(object_.XmlChildAvLst); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PrstTxWrapUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PrstTxWrapUnitDecorator@DOCX.tsf deleted file mode 100644 index 2022148..0000000 --- a/autoclass/decorator/docx/PrstTxWrapUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type PrstTxWrapUnitDecorator = class(PrstTxWrap) -uses TSSafeUnitConverter; -public - function Create(_obj: PrstTxWrap); - function GetObject(); - function Convert(); -private - object_: PrstTxWrap; -end; - -function PrstTxWrapUnitDecorator.Create(_obj: PrstTxWrap); -begin - class(PrstTxWrap).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PrstTxWrapUnitDecorator.GetObject(); -begin - return object_; -end; - -function PrstTxWrapUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrPrst) then - {self.}Prst := object_.XmlAttrPrst.Value; - if not ifnil(object_.XmlChildAvLst) then - {self.}AvLst.Copy(object_.XmlChildAvLst); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PtUnitDecorator@DOCX.tsf deleted file mode 100644 index a6a977d..0000000 --- a/autoclass/decorator/docx/PtUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type PtUnitDecorator = class(Pt) -uses TSSafeUnitConverter; -public - function Create(_obj: Pt); - function GetObject(); - function Convert(); -private - object_: Pt; -end; - -function PtUnitDecorator.Create(_obj: Pt); -begin - class(Pt).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PtUnitDecorator.GetObject(); -begin - return object_; -end; - -function PtUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrIdx) then - {self.}Idx := object_.XmlAttrIdx.Value; - if not ifnil(object_.XmlChildV) then - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PureValUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PureValUnitDecorator@DOCX.tsf deleted file mode 100644 index 35de7df..0000000 --- a/autoclass/decorator/docx/PureValUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type PureValUnitDecorator = class(PureVal) -uses TSSafeUnitConverter; -public - function Create(_obj: PureVal); - function GetObject(); - function Convert(); -private - object_: PureVal; -end; - -function PureValUnitDecorator.Create(_obj: PureVal); -begin - class(PureVal).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PureValUnitDecorator.GetObject(); -begin - return object_; -end; - -function PureValUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/PureWValUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/PureWValUnitDecorator@DOCX.tsf deleted file mode 100644 index 007dcbf..0000000 --- a/autoclass/decorator/docx/PureWValUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type PureWValUnitDecorator = class(PureWVal) -uses TSSafeUnitConverter; -public - function Create(_obj: PureWVal); - function GetObject(); - function Convert(); -private - object_: PureWVal; -end; - -function PureWValUnitDecorator.Create(_obj: PureWVal); -begin - class(PureWVal).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function PureWValUnitDecorator.GetObject(); -begin - return object_; -end; - -function PureWValUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RFontsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RFontsUnitDecorator@DOCX.tsf deleted file mode 100644 index 850b009..0000000 --- a/autoclass/decorator/docx/RFontsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,46 +0,0 @@ -type RFontsUnitDecorator = class(RFonts) -uses TSSafeUnitConverter; -public - function Create(_obj: RFonts); - function GetObject(); - function Convert(); -private - object_: RFonts; -end; - -function RFontsUnitDecorator.Create(_obj: RFonts); -begin - class(RFonts).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RFontsUnitDecorator.GetObject(); -begin - return object_; -end; - -function RFontsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrAscii) then - {self.}Ascii := object_.XmlAttrAscii.Value; - if not ifnil(object_.XmlAttrAsciiTheme) then - {self.}AsciiTheme := object_.XmlAttrAsciiTheme.Value; - if not ifnil(object_.XmlAttrEastAsia) then - {self.}EastAsia := object_.XmlAttrEastAsia.Value; - if not ifnil(object_.XmlAttrEastAsiaTheme) then - {self.}EastAsiaTheme := object_.XmlAttrEastAsiaTheme.Value; - if not ifnil(object_.XmlAttrHAnsi) then - {self.}HAnsi := object_.XmlAttrHAnsi.Value; - if not ifnil(object_.XmlAttrHAnsiTheme) then - {self.}HAnsiTheme := object_.XmlAttrHAnsiTheme.Value; - if not ifnil(object_.XmlAttrHint) then - {self.}Hint := object_.XmlAttrHint.Value; - if not ifnil(object_.XmlAttrCs) then - {self.}Cs := object_.XmlAttrCs.Value; - if not ifnil(object_.XmlAttrCsTheme) then - {self.}CsTheme := object_.XmlAttrCsTheme.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RPrDefaultUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RPrDefaultUnitDecorator@DOCX.tsf deleted file mode 100644 index d6c9c55..0000000 --- a/autoclass/decorator/docx/RPrDefaultUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type RPrDefaultUnitDecorator = class(RPrDefault) -uses TSSafeUnitConverter; -public - function Create(_obj: RPrDefault); - function GetObject(); - function Convert(); -private - object_: RPrDefault; -end; - -function RPrDefaultUnitDecorator.Create(_obj: RPrDefault); -begin - class(RPrDefault).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RPrDefaultUnitDecorator.GetObject(); -begin - return object_; -end; - -function RPrDefaultUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 4051daa..0000000 --- a/autoclass/decorator/docx/RPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,66 +0,0 @@ -type RPrUnitDecorator = class(RPr) -uses TSSafeUnitConverter; -public - function Create(_obj: RPr); - function GetObject(); - function Convert(); -private - object_: RPr; -end; - -function RPrUnitDecorator.Create(_obj: RPr); -begin - class(RPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function RPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildNoProof) then - {self.}XmlChildNoProof := new PureValUnitDecorator(object_.XmlChildNoProof); - if not ifnil(object_.XmlChildPosition) then - {self.}XmlChildPosition := new PureValUnitDecorator(object_.XmlChildPosition); - if not ifnil(object_.XmlChildWebHidden) then - {self.}XmlChildWebHidden := new PureWValUnitDecorator(object_.XmlChildWebHidden); - if not ifnil(object_.XmlChildRStyle) then - {self.}XmlChildRStyle := new PureWValUnitDecorator(object_.XmlChildRStyle); - if not ifnil(object_.XmlChildIns) then - {self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns); - if not ifnil(object_.XmlChildRFonts) then - {self.}XmlChildRFonts := new RFontsUnitDecorator(object_.XmlChildRFonts); - if not ifnil(object_.XmlChildKern) then - {self.}XmlChildKern := new PureWValUnitDecorator(object_.XmlChildKern); - if not ifnil(object_.XmlChildI) then - {self.}I.Copy(object_.XmlChildI); - if not ifnil(object_.XmlChildICs) then - {self.}ICs.Copy(object_.XmlChildICs); - if not ifnil(object_.XmlChildB) then - {self.}B.Copy(object_.XmlChildB); - if not ifnil(object_.XmlChildBCs) then - {self.}BCs.Copy(object_.XmlChildBCs); - if not ifnil(object_.XmlChildStrike) then - {self.}Strike.Copy(object_.XmlChildStrike); - if not ifnil(object_.XmlChildColor) then - {self.}XmlChildColor := new ColorUnitDecorator(object_.XmlChildColor); - if not ifnil(object_.XmlChildSz) then - {self.}XmlChildSz := new SzUnitDecorator(object_.XmlChildSz); - if not ifnil(object_.XmlChildSzCs) then - {self.}XmlChildSzCs := new SzCsUnitDecorator(object_.XmlChildSzCs); - if not ifnil(object_.XmlChildU) then - {self.}U.Copy(object_.XmlChildU); - if not ifnil(object_.XmlChildLang) then - {self.}XmlChildLang := new LangUnitDecorator(object_.XmlChildLang); - if not ifnil(object_.XmlChildVertAlign) then - {self.}XmlChildVertAlign := new PureWValUnitDecorator(object_.XmlChildVertAlign); - if not ifnil(object_.XmlChildW14Ligatures) then - {self.}XmlChildW14Ligatures := new PureWValUnitDecorator(object_.XmlChildW14Ligatures); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RUnitDecorator@DOCX.tsf deleted file mode 100644 index 0a7e0ef..0000000 --- a/autoclass/decorator/docx/RUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,60 +0,0 @@ -type RUnitDecorator = class(R) -uses TSSafeUnitConverter; -public - function Create(_obj: R); - function GetObject(); - function Convert(); -private - object_: R; -end; - -function RUnitDecorator.Create(_obj: R); -begin - class(R).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RUnitDecorator.GetObject(); -begin - return object_; -end; - -function RUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrWRsidRPr) then - {self.}WRsidRPr := object_.XmlAttrWRsidRPr.Value; - if not ifnil(object_.XmlAttrAnchor) then - {self.}Anchor := object_.XmlAttrAnchor.Value; - if not ifnil(object_.XmlAttrHistory) then - {self.}History := object_.XmlAttrHistory.Value; - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - if not ifnil(object_.XmlChildBr) then - {self.}XmlChildBr := new BrUnitDecorator(object_.XmlChildBr); - if not ifnil(object_.XmlChildFldChar) then - {self.}XmlChildFldChar := new FldCharUnitDecorator(object_.XmlChildFldChar); - if not ifnil(object_.XmlChildInstrText) then - {self.}XmlChildInstrText := new InstrTextUnitDecorator(object_.XmlChildInstrText); - if not ifnil(object_.XmlChildSeparator) then - {self.}Separator.Copy(object_.XmlChildSeparator); - if not ifnil(object_.XmlChildContinuationSeparator) then - {self.}ContinuationSeparator.Copy(object_.XmlChildContinuationSeparator); - if not ifnil(object_.XmlChildLastRenderedPageBreak) then - {self.}LastRenderedPageBreak.Copy(object_.XmlChildLastRenderedPageBreak); - if not ifnil(object_.XmlChildAlternateContent) then - {self.}XmlChildAlternateContent := new AlternateContentUnitDecorator(object_.XmlChildAlternateContent); - if not ifnil(object_.XmlChildDrawing) then - {self.}XmlChildDrawing := new DrawingUnitDecorator(object_.XmlChildDrawing); - if not ifnil(object_.XmlChildT) then - {self.}XmlChildT := new TUnitDecorator(object_.XmlChildT); - if not ifnil(object_.XmlChildObject) then - {self.}XmlChildObject := new ObjectUnitDecorator(object_.XmlChildObject); - if not ifnil(object_.XmlChildFootnoteReference) then - {self.}XmlChildFootnoteReference := new FootnoteReferenceUnitDecorator(object_.XmlChildFootnoteReference); - if not ifnil(object_.XmlChildFootnoteRef) then - {self.}FootnoteRef.Copy(object_.XmlChildFootnoteRef); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ReferenceUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ReferenceUnitDecorator@DOCX.tsf deleted file mode 100644 index 19d94cc..0000000 --- a/autoclass/decorator/docx/ReferenceUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type ReferenceUnitDecorator = class(Reference) -uses TSSafeUnitConverter; -public - function Create(_obj: Reference); - function GetObject(); - function Convert(); -private - object_: Reference; -end; - -function ReferenceUnitDecorator.Create(_obj: Reference); -begin - class(Reference).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ReferenceUnitDecorator.GetObject(); -begin - return object_; -end; - -function ReferenceUnitDecorator.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; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RelationshipUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RelationshipUnitDecorator@DOCX.tsf deleted file mode 100644 index 76f551f..0000000 --- a/autoclass/decorator/docx/RelationshipUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type RelationshipUnitDecorator = class(Relationship) -uses TSSafeUnitConverter; -public - function Create(_obj: Relationship); - function GetObject(); - function Convert(); -private - object_: Relationship; -end; - -function RelationshipUnitDecorator.Create(_obj: Relationship); -begin - class(Relationship).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RelationshipUnitDecorator.GetObject(); -begin - return object_; -end; - -function RelationshipUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrId) then - {self.}Id := object_.XmlAttrId.Value; - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - if not ifnil(object_.XmlAttrTarget) then - {self.}Target := object_.XmlAttrTarget.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf deleted file mode 100644 index 8dda8c1..0000000 --- a/autoclass/decorator/docx/RelationshipsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,33 +0,0 @@ -type RelationshipsUnitDecorator = class(Relationships) -uses TSSafeUnitConverter; -public - function Create(_obj: Relationships); - function GetObject(); - function Convert(); -private - object_: Relationships; -end; - -function RelationshipsUnitDecorator.Create(_obj: Relationships); -begin - class(Relationships).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RelationshipsUnitDecorator.GetObject(); -begin - return object_; -end; - -function RelationshipsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrxmlns) then - {self.}xmlns := object_.XmlAttrxmlns.Value; - elems := object_.Relationships(); - for _,elem in elems do - {self.}AppendChild(new RelationshipUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf deleted file mode 100644 index 05fa93d..0000000 --- a/autoclass/decorator/docx/RichUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,35 +0,0 @@ -type RichUnitDecorator = class(Rich) -uses TSSafeUnitConverter; -public - function Create(_obj: Rich); - function GetObject(); - function Convert(); -private - object_: Rich; -end; - -function RichUnitDecorator.Create(_obj: Rich); -begin - class(Rich).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RichUnitDecorator.GetObject(); -begin - return object_; -end; - -function RichUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildBodyPr) then - {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr); - if not ifnil(object_.XmlChildLstStyle) then - {self.}LstStyle.Copy(object_.XmlChildLstStyle); - elems := object_.Ps(); - for _,elem in elems do - {self.}AppendChild(new ApUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf deleted file mode 100644 index 9005c34..0000000 --- a/autoclass/decorator/docx/RsidsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,33 +0,0 @@ -type RsidsUnitDecorator = class(Rsids) -uses TSSafeUnitConverter; -public - function Create(_obj: Rsids); - function GetObject(); - function Convert(); -private - object_: Rsids; -end; - -function RsidsUnitDecorator.Create(_obj: Rsids); -begin - class(Rsids).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function RsidsUnitDecorator.GetObject(); -begin - return object_; -end; - -function RsidsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildRsidRoot) then - {self.}XmlChildRsidRoot := new PureWValUnitDecorator(object_.XmlChildRsidRoot); - elems := object_.Rsids(); - for _,elem in elems do - {self.}AppendChild(new PureWValUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf deleted file mode 100644 index fa9531b..0000000 --- a/autoclass/decorator/docx/ScalingUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type ScalingUnitDecorator = class(Scaling) -uses TSSafeUnitConverter; -public - function Create(_obj: Scaling); - function GetObject(); - function Convert(); -private - object_: Scaling; -end; - -function ScalingUnitDecorator.Create(_obj: Scaling); -begin - class(Scaling).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ScalingUnitDecorator.GetObject(); -begin - return object_; -end; - -function ScalingUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildOrientation) then - {self.}XmlChildOrientation := new PureValUnitDecorator(object_.XmlChildOrientation); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SchemeClrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SchemeClrUnitDecorator@DOCX.tsf deleted file mode 100644 index d2765d8..0000000 --- a/autoclass/decorator/docx/SchemeClrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type SchemeClrUnitDecorator = class(SchemeClr) -uses TSSafeUnitConverter; -public - function Create(_obj: SchemeClr); - function GetObject(); - function Convert(); -private - object_: SchemeClr; -end; - -function SchemeClrUnitDecorator.Create(_obj: SchemeClr); -begin - class(SchemeClr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SchemeClrUnitDecorator.GetObject(); -begin - return object_; -end; - -function SchemeClrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlChildLumMod) then - {self.}XmlChildLumMod := new PureValUnitDecorator(object_.XmlChildLumMod); - if not ifnil(object_.XmlChildSatMod) then - {self.}XmlChildSatMod := new PureValUnitDecorator(object_.XmlChildSatMod); - if not ifnil(object_.XmlChildTint) then - {self.}XmlChildTint := new PureValUnitDecorator(object_.XmlChildTint); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf deleted file mode 100644 index 87bc6b1..0000000 --- a/autoclass/decorator/docx/SdtContentUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type SdtContentUnitDecorator = class(SdtContent) -uses TSSafeUnitConverter; -public - function Create(_obj: SdtContent); - function GetObject(); - function Convert(); -private - object_: SdtContent; -end; - -function SdtContentUnitDecorator.Create(_obj: SdtContent); -begin - class(SdtContent).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SdtContentUnitDecorator.GetObject(); -begin - return object_; -end; - -function SdtContentUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - elems := object_.Ps(); - for _,elem in elems do - {self.}AppendChild(new PUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SdtEndPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtEndPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 36ee73f..0000000 --- a/autoclass/decorator/docx/SdtEndPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type SdtEndPrUnitDecorator = class(SdtEndPr) -uses TSSafeUnitConverter; -public - function Create(_obj: SdtEndPr); - function GetObject(); - function Convert(); -private - object_: SdtEndPr; -end; - -function SdtEndPrUnitDecorator.Create(_obj: SdtEndPr); -begin - class(SdtEndPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SdtEndPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function SdtEndPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SdtPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtPrUnitDecorator@DOCX.tsf deleted file mode 100644 index b42ce5b..0000000 --- a/autoclass/decorator/docx/SdtPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type SdtPrUnitDecorator = class(SdtPr) -uses TSSafeUnitConverter; -public - function Create(_obj: SdtPr); - function GetObject(); - function Convert(); -private - object_: SdtPr; -end; - -function SdtPrUnitDecorator.Create(_obj: SdtPr); -begin - class(SdtPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SdtPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function SdtPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - if not ifnil(object_.XmlChildId) then - {self.}XmlChildId := new PureWValUnitDecorator(object_.XmlChildId); - if not ifnil(object_.XmlChildDocPartObj) then - {self.}XmlChildDocPartObj := new DocPartObjUnitDecorator(object_.XmlChildDocPartObj); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SdtUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SdtUnitDecorator@DOCX.tsf deleted file mode 100644 index 7a00c82..0000000 --- a/autoclass/decorator/docx/SdtUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type SdtUnitDecorator = class(Sdt) -uses TSSafeUnitConverter; -public - function Create(_obj: Sdt); - function GetObject(); - function Convert(); -private - object_: Sdt; -end; - -function SdtUnitDecorator.Create(_obj: Sdt); -begin - class(Sdt).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SdtUnitDecorator.GetObject(); -begin - return object_; -end; - -function SdtUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildSdtPr) then - {self.}XmlChildSdtPr := new SdtPrUnitDecorator(object_.XmlChildSdtPr); - if not ifnil(object_.XmlChildSdtEndPr) then - {self.}XmlChildSdtEndPr := new SdtEndPrUnitDecorator(object_.XmlChildSdtEndPr); - if not ifnil(object_.XmlChildSdtContent) then - {self.}XmlChildSdtContent := new SdtContentUnitDecorator(object_.XmlChildSdtContent); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 635e6e6..0000000 --- a/autoclass/decorator/docx/SectPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,56 +0,0 @@ -type SectPrUnitDecorator = class(SectPr) -uses TSSafeUnitConverter; -public - function Create(_obj: SectPr); - function GetObject(); - function Convert(); -private - object_: SectPr; -end; - -function SectPrUnitDecorator.Create(_obj: SectPr); -begin - class(SectPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SectPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function SectPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrWRsidR) then - {self.}WRsidR := object_.XmlAttrWRsidR.Value; - if not ifnil(object_.XmlAttrWRsidSect) then - {self.}WRsidSect := object_.XmlAttrWRsidSect.Value; - elems := object_.HeaderReferences(); - for _,elem in elems do - {self.}AppendChild(new ReferenceUnitDecorator(elem)); - elems := object_.FooterReferences(); - for _,elem in elems do - {self.}AppendChild(new ReferenceUnitDecorator(elem)); - if not ifnil(object_.XmlChildFootnotePr) then - {self.}XmlChildFootnotePr := new FootnotePrUnitDecorator(object_.XmlChildFootnotePr); - if not ifnil(object_.XmlChildEndnotePr) then - {self.}XmlChildEndnotePr := new EndnotePrUnitDecorator(object_.XmlChildEndnotePr); - if not ifnil(object_.XmlChildType) then - {self.}XmlChildType := new PureWValUnitDecorator(object_.XmlChildType); - if not ifnil(object_.XmlChildPgSz) then - {self.}XmlChildPgSz := new PgSzUnitDecorator(object_.XmlChildPgSz); - if not ifnil(object_.XmlChildPgMar) then - {self.}XmlChildPgMar := new PgMarUnitDecorator(object_.XmlChildPgMar); - if not ifnil(object_.XmlChildPgNumType) then - {self.}XmlChildPgNumType := new PgNumTypeUnitDecorator(object_.XmlChildPgNumType); - if not ifnil(object_.XmlChildCols) then - {self.}XmlChildCols := new ColsUnitDecorator(object_.XmlChildCols); - if not ifnil(object_.XmlChildTitlePg) then - {self.}TitlePg.Copy(object_.XmlChildTitlePg); - if not ifnil(object_.XmlChildDocGrid) then - {self.}XmlChildDocGrid := new DocGridUnitDecorator(object_.XmlChildDocGrid); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SerUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SerUnitDecorator@DOCX.tsf deleted file mode 100644 index b9c6cd4..0000000 --- a/autoclass/decorator/docx/SerUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,44 +0,0 @@ -type SerUnitDecorator = class(Ser) -uses TSSafeUnitConverter; -public - function Create(_obj: Ser); - function GetObject(); - function Convert(); -private - object_: Ser; -end; - -function SerUnitDecorator.Create(_obj: Ser); -begin - class(Ser).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SerUnitDecorator.GetObject(); -begin - return object_; -end; - -function SerUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildIdx) then - {self.}XmlChildIdx := new PureValUnitDecorator(object_.XmlChildIdx); - if not ifnil(object_.XmlChildOrder) then - {self.}XmlChildOrder := new PureValUnitDecorator(object_.XmlChildOrder); - if not ifnil(object_.XmlChildTx) then - {self.}XmlChildTx := new TxUnitDecorator(object_.XmlChildTx); - if not ifnil(object_.XmlChildInvertIfNegative) then - {self.}XmlChildInvertIfNegative := new PureValUnitDecorator(object_.XmlChildInvertIfNegative); - if not ifnil(object_.XmlChildDLbls) then - {self.}XmlChildDLbls := new DLblsUnitDecorator(object_.XmlChildDLbls); - if not ifnil(object_.XmlChildCat) then - {self.}XmlChildCat := new CatUnitDecorator(object_.XmlChildCat); - if not ifnil(object_.XmlChildVal) then - {self.}XmlChildVal := new ValUnitDecorator(object_.XmlChildVal); - if not ifnil(object_.XmlChildExtLst) then - {self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf deleted file mode 100644 index fb8a2b9..0000000 --- a/autoclass/decorator/docx/SettingsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,104 +0,0 @@ -type SettingsUnitDecorator = class(Settings) -uses TSSafeUnitConverter; -public - function Create(_obj: Settings); - function GetObject(); - function Convert(); -private - object_: Settings; -end; - -function SettingsUnitDecorator.Create(_obj: Settings); -begin - class(Settings).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SettingsUnitDecorator.GetObject(); -begin - return object_; -end; - -function SettingsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - 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_.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_.XmlAttrXmlnsW16se) then - {self.}XmlnsW16se := object_.XmlAttrXmlnsW16se.Value; - if not ifnil(object_.XmlAttrXmlnsSl) then - {self.}XmlnsSl := object_.XmlAttrXmlnsSl.Value; - if not ifnil(object_.XmlAttrMcIgnorable) then - {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value; - if not ifnil(object_.XmlChildZoom) then - {self.}XmlChildZoom := new ZoomUnitDecorator(object_.XmlChildZoom); - if not ifnil(object_.XmlChildBordersDoNotSurroundHeader) then - {self.}BordersDoNotSurroundHeader.Copy(object_.XmlChildBordersDoNotSurroundHeader); - if not ifnil(object_.XmlChildBordersDoNotSurroundFooter) then - {self.}BordersDoNotSurroundFooter.Copy(object_.XmlChildBordersDoNotSurroundFooter); - if not ifnil(object_.XmlChildDefaultTabStop) then - {self.}XmlChildDefaultTabStop := new PureWValUnitDecorator(object_.XmlChildDefaultTabStop); - if not ifnil(object_.XmlChildEvenAndOddHeaders) then - {self.}EvenAndOddHeaders.Copy(object_.XmlChildEvenAndOddHeaders); - if not ifnil(object_.XmlChildDrawingGridVerticalSpacing) then - {self.}XmlChildDrawingGridVerticalSpacing := new PureWValUnitDecorator(object_.XmlChildDrawingGridVerticalSpacing); - if not ifnil(object_.XmlChildDisplayHorizontalDrawingGridEvery) then - {self.}XmlChildDisplayHorizontalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayHorizontalDrawingGridEvery); - if not ifnil(object_.XmlChildDisplayVerticalDrawingGridEvery) then - {self.}XmlChildDisplayVerticalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayVerticalDrawingGridEvery); - if not ifnil(object_.XmlChildCharacterSpacingControl) then - {self.}XmlChildCharacterSpacingControl := new PureWValUnitDecorator(object_.XmlChildCharacterSpacingControl); - if not ifnil(object_.XmlChildHdrShapeDefaults) then - {self.}XmlChildHdrShapeDefaults := new HdrShapeDefaultsUnitDecorator(object_.XmlChildHdrShapeDefaults); - if not ifnil(object_.XmlChildFootnotePr) then - {self.}XmlChildFootnotePr := new FootnotePrUnitDecorator(object_.XmlChildFootnotePr); - if not ifnil(object_.XmlChildEndnotePr) then - {self.}XmlChildEndnotePr := new EndnotePrUnitDecorator(object_.XmlChildEndnotePr); - if not ifnil(object_.XmlChildCompat) then - {self.}XmlChildCompat := new CompatUnitDecorator(object_.XmlChildCompat); - if not ifnil(object_.XmlChildRsids) then - {self.}XmlChildRsids := new RsidsUnitDecorator(object_.XmlChildRsids); - if not ifnil(object_.XmlChildMathPr) then - {self.}XmlChildMathPr := new MathPrUnitDecorator(object_.XmlChildMathPr); - if not ifnil(object_.XmlChildThemeFontLang) then - {self.}XmlChildThemeFontLang := new ThemeFontLangUnitDecorator(object_.XmlChildThemeFontLang); - if not ifnil(object_.XmlChildClrSchemeMapping) then - {self.}XmlChildClrSchemeMapping := new ClrSchemeMappingUnitDecorator(object_.XmlChildClrSchemeMapping); - if not ifnil(object_.XmlChildDoNotIncludeSubdocsInStats) then - {self.}DoNotIncludeSubdocsInStats.Copy(object_.XmlChildDoNotIncludeSubdocsInStats); - if not ifnil(object_.XmlChildShapeDefaults) then - {self.}XmlChildShapeDefaults := new ShapeDefaults2UnitDecorator(object_.XmlChildShapeDefaults); - if not ifnil(object_.XmlChildDecimalSymbol) then - {self.}XmlChildDecimalSymbol := new PureWValUnitDecorator(object_.XmlChildDecimalSymbol); - if not ifnil(object_.XmlChildListSeparator) then - {self.}XmlChildListSeparator := new PureWValUnitDecorator(object_.XmlChildListSeparator); - if not ifnil(object_.XmlChildW14DocId) then - {self.}XmlChildW14DocId := new PureWValUnitDecorator(object_.XmlChildW14DocId); - if not ifnil(object_.XmlChildW15ChartTrackingRefBased) then - {self.}W15ChartTrackingRefBased.Copy(object_.XmlChildW15ChartTrackingRefBased); - if not ifnil(object_.XmlChildW15DocId) then - {self.}XmlChildW15DocId := new PureWValUnitDecorator(object_.XmlChildW15DocId); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ShapeDefaults2UnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapeDefaults2UnitDecorator@DOCX.tsf deleted file mode 100644 index 0fb2e28..0000000 --- a/autoclass/decorator/docx/ShapeDefaults2UnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type ShapeDefaults2UnitDecorator = class(ShapeDefaults2) -uses TSSafeUnitConverter; -public - function Create(_obj: ShapeDefaults2); - function GetObject(); - function Convert(); -private - object_: ShapeDefaults2; -end; - -function ShapeDefaults2UnitDecorator.Create(_obj: ShapeDefaults2); -begin - class(ShapeDefaults2).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ShapeDefaults2UnitDecorator.GetObject(); -begin - return object_; -end; - -function ShapeDefaults2UnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildShapeDefaults) then - {self.}XmlChildShapeDefaults := new ShapeDefaultsUnitDecorator(object_.XmlChildShapeDefaults); - if not ifnil(object_.XmlChildShapeLayout) then - {self.}XmlChildShapeLayout := new ShapeLayoutUnitDecorator(object_.XmlChildShapeLayout); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ShapeDefaultsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapeDefaultsUnitDecorator@DOCX.tsf deleted file mode 100644 index 6510bf4..0000000 --- a/autoclass/decorator/docx/ShapeDefaultsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type ShapeDefaultsUnitDecorator = class(ShapeDefaults) -uses TSSafeUnitConverter; -public - function Create(_obj: ShapeDefaults); - function GetObject(); - function Convert(); -private - object_: ShapeDefaults; -end; - -function ShapeDefaultsUnitDecorator.Create(_obj: ShapeDefaults); -begin - class(ShapeDefaults).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ShapeDefaultsUnitDecorator.GetObject(); -begin - return object_; -end; - -function ShapeDefaultsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrExt) then - {self.}Ext := object_.XmlAttrExt.Value; - if not ifnil(object_.XmlAttrSpidmax) then - {self.}Spidmax := object_.XmlAttrSpidmax.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ShapeLayoutUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapeLayoutUnitDecorator@DOCX.tsf deleted file mode 100644 index 799f04a..0000000 --- a/autoclass/decorator/docx/ShapeLayoutUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type ShapeLayoutUnitDecorator = class(ShapeLayout) -uses TSSafeUnitConverter; -public - function Create(_obj: ShapeLayout); - function GetObject(); - function Convert(); -private - object_: ShapeLayout; -end; - -function ShapeLayoutUnitDecorator.Create(_obj: ShapeLayout); -begin - class(ShapeLayout).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ShapeLayoutUnitDecorator.GetObject(); -begin - return object_; -end; - -function ShapeLayoutUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrExt) then - {self.}Ext := object_.XmlAttrExt.Value; - if not ifnil(object_.XmlChildIdMap) then - {self.}XmlChildIdMap := new IdMapUnitDecorator(object_.XmlChildIdMap); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ShapeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapeUnitDecorator@DOCX.tsf deleted file mode 100644 index d7acb0b..0000000 --- a/autoclass/decorator/docx/ShapeUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,48 +0,0 @@ -type ShapeUnitDecorator = class(Shape) -uses TSSafeUnitConverter; -public - function Create(_obj: Shape); - function GetObject(); - function Convert(); -private - object_: Shape; -end; - -function ShapeUnitDecorator.Create(_obj: Shape); -begin - class(Shape).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ShapeUnitDecorator.GetObject(); -begin - return object_; -end; - -function ShapeUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrId) then - {self.}Id := object_.XmlAttrId.Value; - if not ifnil(object_.XmlAttrStyle) then - {self.}Style := object_.XmlAttrStyle.Value; - if not ifnil(object_.XmlAttrSpid) then - {self.}Spid := object_.XmlAttrSpid.Value; - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - if not ifnil(object_.XmlAttrGfxdata) then - {self.}Gfxdata := object_.XmlAttrGfxdata.Value; - if not ifnil(object_.XmlAttrFilled) then - {self.}Filled := object_.XmlAttrFilled.Value; - if not ifnil(object_.XmlAttrStroked) then - {self.}Stroked := object_.XmlAttrStroked.Value; - if not ifnil(object_.XmlAttrOle) then - {self.}Ole := object_.XmlAttrOle.Value; - if not ifnil(object_.XmlChildTextbox) then - {self.}XmlChildTextbox := new TextboxUnitDecorator(object_.XmlChildTextbox); - if not ifnil(object_.XmlChildImagedata) then - {self.}XmlChildImagedata := new ImagedataUnitDecorator(object_.XmlChildImagedata); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ShapetypeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShapetypeUnitDecorator@DOCX.tsf deleted file mode 100644 index 8753bf0..0000000 --- a/autoclass/decorator/docx/ShapetypeUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,52 +0,0 @@ -type ShapetypeUnitDecorator = class(Shapetype) -uses TSSafeUnitConverter; -public - function Create(_obj: Shapetype); - function GetObject(); - function Convert(); -private - object_: Shapetype; -end; - -function ShapetypeUnitDecorator.Create(_obj: Shapetype); -begin - class(Shapetype).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ShapetypeUnitDecorator.GetObject(); -begin - return object_; -end; - -function ShapetypeUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrAnchorId) then - {self.}AnchorId := object_.XmlAttrAnchorId.Value; - if not ifnil(object_.XmlAttrId) then - {self.}Id := object_.XmlAttrId.Value; - if not ifnil(object_.XmlAttrCoordsize) then - {self.}Coordsize := object_.XmlAttrCoordsize.Value; - if not ifnil(object_.XmlAttrSpt) then - {self.}Spt := object_.XmlAttrSpt.Value; - if not ifnil(object_.XmlAttrPreferrelative) then - {self.}Preferrelative := object_.XmlAttrPreferrelative.Value; - if not ifnil(object_.XmlAttrPath) then - {self.}Path := object_.XmlAttrPath.Value; - if not ifnil(object_.XmlAttrFilled) then - {self.}Filled := object_.XmlAttrFilled.Value; - if not ifnil(object_.XmlAttrStroked) then - {self.}Stroked := object_.XmlAttrStroked.Value; - if not ifnil(object_.XmlChildStroke) then - {self.}XmlChildStroke := new StrokeUnitDecorator(object_.XmlChildStroke); - if not ifnil(object_.XmlChildFormulas) then - {self.}XmlChildFormulas := new formulasUnitDecorator(object_.XmlChildFormulas); - if not ifnil(object_.XmlChildPath) then - {self.}XmlChildPath := new PathUnitDecorator(object_.XmlChildPath); - if not ifnil(object_.XmlChildLock) then - {self.}XmlChildLock := new LockUnitDecorator(object_.XmlChildLock); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ShdUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ShdUnitDecorator@DOCX.tsf deleted file mode 100644 index 37c71eb..0000000 --- a/autoclass/decorator/docx/ShdUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,38 +0,0 @@ -type ShdUnitDecorator = class(Shd) -uses TSSafeUnitConverter; -public - function Create(_obj: Shd); - function GetObject(); - function Convert(); -private - object_: Shd; -end; - -function ShdUnitDecorator.Create(_obj: Shd); -begin - class(Shd).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ShdUnitDecorator.GetObject(); -begin - return object_; -end; - -function ShdUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrColor) then - {self.}Color := object_.XmlAttrColor.Value; - if not ifnil(object_.XmlAttrFill) then - {self.}Fill := object_.XmlAttrFill.Value; - if not ifnil(object_.XmlAttrThemeFill) then - {self.}ThemeFill := object_.XmlAttrThemeFill.Value; - if not ifnil(object_.XmlAttrThemeFillTint) then - {self.}ThemeFillTint := object_.XmlAttrThemeFillTint.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SigUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SigUnitDecorator@DOCX.tsf deleted file mode 100644 index a7a8612..0000000 --- a/autoclass/decorator/docx/SigUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type SigUnitDecorator = class(Sig) -uses TSSafeUnitConverter; -public - function Create(_obj: Sig); - function GetObject(); - function Convert(); -private - object_: Sig; -end; - -function SigUnitDecorator.Create(_obj: Sig); -begin - class(Sig).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SigUnitDecorator.GetObject(); -begin - return object_; -end; - -function SigUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrUsb0) then - {self.}Usb0 := object_.XmlAttrUsb0.Value; - if not ifnil(object_.XmlAttrUsb1) then - {self.}Usb1 := object_.XmlAttrUsb1.Value; - if not ifnil(object_.XmlAttrUsb2) then - {self.}Usb2 := object_.XmlAttrUsb2.Value; - if not ifnil(object_.XmlAttrUsb3) then - {self.}Usb3 := object_.XmlAttrUsb3.Value; - if not ifnil(object_.XmlAttrcsb0) then - {self.}csb0 := object_.XmlAttrcsb0.Value; - if not ifnil(object_.XmlAttrcsb1) then - {self.}csb1 := object_.XmlAttrcsb1.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SizeRelHUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SizeRelHUnitDecorator@DOCX.tsf deleted file mode 100644 index ef6878e..0000000 --- a/autoclass/decorator/docx/SizeRelHUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type SizeRelHUnitDecorator = class(SizeRelH) -uses TSSafeUnitConverter; -public - function Create(_obj: SizeRelH); - function GetObject(); - function Convert(); -private - object_: SizeRelH; -end; - -function SizeRelHUnitDecorator.Create(_obj: SizeRelH); -begin - class(SizeRelH).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SizeRelHUnitDecorator.GetObject(); -begin - return object_; -end; - -function SizeRelHUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrRelativeFrom) then - {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; - if not ifnil(object_.XmlChildPctWidth) then - {self.}PctWidth.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPctWidth.Text); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SizeRelVUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SizeRelVUnitDecorator@DOCX.tsf deleted file mode 100644 index 1fb9bfa..0000000 --- a/autoclass/decorator/docx/SizeRelVUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type SizeRelVUnitDecorator = class(SizeRelV) -uses TSSafeUnitConverter; -public - function Create(_obj: SizeRelV); - function GetObject(); - function Convert(); -private - object_: SizeRelV; -end; - -function SizeRelVUnitDecorator.Create(_obj: SizeRelV); -begin - class(SizeRelV).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SizeRelVUnitDecorator.GetObject(); -begin - return object_; -end; - -function SizeRelVUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrRelativeFrom) then - {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; - if not ifnil(object_.XmlChildPctHeight) then - {self.}PctHeight.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPctHeight.Text); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SolidFillUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SolidFillUnitDecorator@DOCX.tsf deleted file mode 100644 index 23b590a..0000000 --- a/autoclass/decorator/docx/SolidFillUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type SolidFillUnitDecorator = class(SolidFill) -uses TSSafeUnitConverter; -public - function Create(_obj: SolidFill); - function GetObject(); - function Convert(); -private - object_: SolidFill; -end; - -function SolidFillUnitDecorator.Create(_obj: SolidFill); -begin - class(SolidFill).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SolidFillUnitDecorator.GetObject(); -begin - return object_; -end; - -function SolidFillUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildSchemeClr) then - {self.}XmlChildSchemeClr := new SchemeClrUnitDecorator(object_.XmlChildSchemeClr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SpLocksUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SpLocksUnitDecorator@DOCX.tsf deleted file mode 100644 index 495d401..0000000 --- a/autoclass/decorator/docx/SpLocksUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type SpLocksUnitDecorator = class(SpLocks) -uses TSSafeUnitConverter; -public - function Create(_obj: SpLocks); - function GetObject(); - function Convert(); -private - object_: SpLocks; -end; - -function SpLocksUnitDecorator.Create(_obj: SpLocks); -begin - class(SpLocks).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SpLocksUnitDecorator.GetObject(); -begin - return object_; -end; - -function SpLocksUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrNoChangeArrowheads) then - {self.}NoChangeArrowheads := object_.XmlAttrNoChangeArrowheads.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf deleted file mode 100644 index d5c904c..0000000 --- a/autoclass/decorator/docx/SpPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,42 +0,0 @@ -type SpPrUnitDecorator = class(SpPr) -uses TSSafeUnitConverter; -public - function Create(_obj: SpPr); - function GetObject(); - function Convert(); -private - object_: SpPr; -end; - -function SpPrUnitDecorator.Create(_obj: SpPr); -begin - class(SpPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SpPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function SpPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrBwMode) then - {self.}BwMode := object_.XmlAttrBwMode.Value; - if not ifnil(object_.XmlChildXfrm) then - {self.}XmlChildXfrm := new XfrmUnitDecorator(object_.XmlChildXfrm); - if not ifnil(object_.XmlChildPrstGeom) then - {self.}XmlChildPrstGeom := new PrstGeomUnitDecorator(object_.XmlChildPrstGeom); - if not ifnil(object_.XmlChildNoFill) then - {self.}NoFill.Copy(object_.XmlChildNoFill); - if not ifnil(object_.XmlChildSolidFill) then - {self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill); - if not ifnil(object_.XmlChildLn) then - {self.}XmlChildLn := new LnUnitDecorator(object_.XmlChildLn); - if not ifnil(object_.XmlChildEffectLst) then - {self.}XmlChildEffectLst := new EffectLstUnitDecorator(object_.XmlChildEffectLst); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf deleted file mode 100644 index 607d76f..0000000 --- a/autoclass/decorator/docx/SpacingUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,44 +0,0 @@ -type SpacingUnitDecorator = class(Spacing) -uses TSSafeUnitConverter; -public - function Create(_obj: Spacing); - function GetObject(); - function Convert(); -private - object_: Spacing; -end; - -function SpacingUnitDecorator.Create(_obj: Spacing); -begin - class(Spacing).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SpacingUnitDecorator.GetObject(); -begin - return object_; -end; - -function SpacingUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrBefore) then - {self.}Before := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrBefore.Value); - if not ifnil(object_.XmlAttrBeforeLines) then - {self.}BeforeLines := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrBeforeLines.Value); - if not ifnil(object_.XmlAttrBeforeAutospacing) then - {self.}BeforeAutospacing := object_.XmlAttrBeforeAutospacing.Value; - if not ifnil(object_.XmlAttrAfter) then - {self.}After := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrAfter.Value); - if not ifnil(object_.XmlAttrAfterLines) then - {self.}AfterLines := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrAfterLines.Value); - if not ifnil(object_.XmlAttrAfterAutospacing) then - {self.}AfterAutospacing := object_.XmlAttrAfterAutospacing.Value; - if not ifnil(object_.XmlAttrLine) then - {self.}Line := TSSafeUnitConverter.ToInt(object_.XmlAttrLine.Value); - if not ifnil(object_.XmlAttrLineRule) then - {self.}LineRule := object_.XmlAttrLineRule.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SrgbClrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SrgbClrUnitDecorator@DOCX.tsf deleted file mode 100644 index 564e57b..0000000 --- a/autoclass/decorator/docx/SrgbClrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type SrgbClrUnitDecorator = class(SrgbClr) -uses TSSafeUnitConverter; -public - function Create(_obj: SrgbClr); - function GetObject(); - function Convert(); -private - object_: SrgbClr; -end; - -function SrgbClrUnitDecorator.Create(_obj: SrgbClr); -begin - class(SrgbClr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SrgbClrUnitDecorator.GetObject(); -begin - return object_; -end; - -function SrgbClrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlChildAlpha) then - {self.}XmlChildAlpha := new PureValUnitDecorator(object_.XmlChildAlpha); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/StrRefUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StrRefUnitDecorator@DOCX.tsf deleted file mode 100644 index 7976abf..0000000 --- a/autoclass/decorator/docx/StrRefUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type StrRefUnitDecorator = class(StrRef) -uses TSSafeUnitConverter; -public - function Create(_obj: StrRef); - function GetObject(); - function Convert(); -private - object_: StrRef; -end; - -function StrRefUnitDecorator.Create(_obj: StrRef); -begin - class(StrRef).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function StrRefUnitDecorator.GetObject(); -begin - return object_; -end; - -function StrRefUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildF) then - if not ifnil(object_.XmlChildStrCache) then - {self.}XmlChildStrCache := new CacheUnitDecorator(object_.XmlChildStrCache); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/StretchUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StretchUnitDecorator@DOCX.tsf deleted file mode 100644 index f284e63..0000000 --- a/autoclass/decorator/docx/StretchUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type StretchUnitDecorator = class(Stretch) -uses TSSafeUnitConverter; -public - function Create(_obj: Stretch); - function GetObject(); - function Convert(); -private - object_: Stretch; -end; - -function StretchUnitDecorator.Create(_obj: Stretch); -begin - class(Stretch).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function StretchUnitDecorator.GetObject(); -begin - return object_; -end; - -function StretchUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildFillRect) then - {self.}XmlChildFillRect := new PureValUnitDecorator(object_.XmlChildFillRect); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/StrokeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StrokeUnitDecorator@DOCX.tsf deleted file mode 100644 index 5ef5adc..0000000 --- a/autoclass/decorator/docx/StrokeUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type StrokeUnitDecorator = class(Stroke) -uses TSSafeUnitConverter; -public - function Create(_obj: Stroke); - function GetObject(); - function Convert(); -private - object_: Stroke; -end; - -function StrokeUnitDecorator.Create(_obj: Stroke); -begin - class(Stroke).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function StrokeUnitDecorator.GetObject(); -begin - return object_; -end; - -function StrokeUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrJoinstyle) then - {self.}Joinstyle := object_.XmlAttrJoinstyle.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf deleted file mode 100644 index 614ca04..0000000 --- a/autoclass/decorator/docx/StyleUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type StyleUnitDecorator = class(Style) -uses TSSafeUnitConverter; -public - function Create(_obj: Style); - function GetObject(); - function Convert(); -private - object_: Style; -end; - -function StyleUnitDecorator.Create(_obj: Style); -begin - class(Style).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function StyleUnitDecorator.GetObject(); -begin - return object_; -end; - -function StyleUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - if not ifnil(object_.XmlAttrDefault) then - {self.}Default := object_.XmlAttrDefault.Value; - if not ifnil(object_.XmlAttrStyleId) then - {self.}StyleId := object_.XmlAttrStyleId.Value; - if not ifnil(object_.XmlChildName) then - {self.}XmlChildName := new PureWValUnitDecorator(object_.XmlChildName); - if not ifnil(object_.XmlChildBasedOn) then - {self.}XmlChildBasedOn := new PureWValUnitDecorator(object_.XmlChildBasedOn); - if not ifnil(object_.XmlChildNext) then - {self.}XmlChildNext := new PureWValUnitDecorator(object_.XmlChildNext); - if not ifnil(object_.XmlChildAutoRedefine) then - {self.}XmlChildAutoRedefine := new PureWValUnitDecorator(object_.XmlChildAutoRedefine); - if not ifnil(object_.XmlChildLink) then - {self.}XmlChildLink := new PureWValUnitDecorator(object_.XmlChildLink); - if not ifnil(object_.XmlChildUIPriority) then - {self.}XmlChildUIPriority := new PureWValUnitDecorator(object_.XmlChildUIPriority); - if not ifnil(object_.XmlChildSemiHidden) then - {self.}SemiHidden.Copy(object_.XmlChildSemiHidden); - if not ifnil(object_.XmlChildUnhideWhenUsed) then - {self.}UnhideWhenUsed.Copy(object_.XmlChildUnhideWhenUsed); - if not ifnil(object_.XmlChildQFormat) then - {self.}QFormat.Copy(object_.XmlChildQFormat); - if not ifnil(object_.XmlChildRsid) then - {self.}XmlChildRsid := new PureWValUnitDecorator(object_.XmlChildRsid); - if not ifnil(object_.XmlChildPPr) then - {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - if not ifnil(object_.XmlChildTblPr) then - {self.}XmlChildTblPr := new TblPrUnitDecorator(object_.XmlChildTblPr); - if not ifnil(object_.XmlChildTrPr) then - {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr); - if not ifnil(object_.XmlChildTcPr) then - {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr); - elems := object_.TblStylePrs(); - for _,elem in elems do - {self.}AppendChild(new TblStylePrUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf deleted file mode 100644 index 88796e4..0000000 --- a/autoclass/decorator/docx/StylesUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,59 +0,0 @@ -type StylesUnitDecorator = class(Styles) -uses TSSafeUnitConverter; -public - function Create(_obj: Styles); - function GetObject(); - function Convert(); -private - object_: Styles; -end; - -function StylesUnitDecorator.Create(_obj: Styles); -begin - class(Styles).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function StylesUnitDecorator.GetObject(); -begin - return object_; -end; - -function StylesUnitDecorator.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; - if not ifnil(object_.XmlChildDocDefaults) then - {self.}XmlChildDocDefaults := new DocDefaultsUnitDecorator(object_.XmlChildDocDefaults); - if not ifnil(object_.XmlChildLatenStyles) then - {self.}XmlChildLatenStyles := new LatenStylesUnitDecorator(object_.XmlChildLatenStyles); - elems := object_.Styles(); - for _,elem in elems do - {self.}AppendChild(new StyleUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SysClrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SysClrUnitDecorator@DOCX.tsf deleted file mode 100644 index 0cd225d..0000000 --- a/autoclass/decorator/docx/SysClrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type SysClrUnitDecorator = class(SysClr) -uses TSSafeUnitConverter; -public - function Create(_obj: SysClr); - function GetObject(); - function Convert(); -private - object_: SysClr; -end; - -function SysClrUnitDecorator.Create(_obj: SysClr); -begin - class(SysClr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SysClrUnitDecorator.GetObject(); -begin - return object_; -end; - -function SysClrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrLastClr) then - {self.}LastClr := object_.XmlAttrLastClr.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SzCsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SzCsUnitDecorator@DOCX.tsf deleted file mode 100644 index b498351..0000000 --- a/autoclass/decorator/docx/SzCsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type SzCsUnitDecorator = class(SzCs) -uses TSSafeUnitConverter; -public - function Create(_obj: SzCs); - function GetObject(); - function Convert(); -private - object_: SzCs; -end; - -function SzCsUnitDecorator.Create(_obj: SzCs); -begin - class(SzCs).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SzCsUnitDecorator.GetObject(); -begin - return object_; -end; - -function SzCsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrVal.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/SzUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/SzUnitDecorator@DOCX.tsf deleted file mode 100644 index 1454ee5..0000000 --- a/autoclass/decorator/docx/SzUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type SzUnitDecorator = class(Sz) -uses TSSafeUnitConverter; -public - function Create(_obj: Sz); - function GetObject(); - function Convert(); -private - object_: Sz; -end; - -function SzUnitDecorator.Create(_obj: Sz); -begin - class(Sz).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function SzUnitDecorator.GetObject(); -begin - return object_; -end; - -function SzUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrVal.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TUnitDecorator@DOCX.tsf deleted file mode 100644 index dc941e3..0000000 --- a/autoclass/decorator/docx/TUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type TUnitDecorator = class(T) -uses TSSafeUnitConverter; -public - function Create(_obj: T); - function GetObject(); - function Convert(); -private - object_: T; -end; - -function TUnitDecorator.Create(_obj: T); -begin - class(T).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TUnitDecorator.GetObject(); -begin - return object_; -end; - -function TUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrSpace) then - {self.}Space := object_.XmlAttrSpace.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TabUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TabUnitDecorator@DOCX.tsf deleted file mode 100644 index 5e607f0..0000000 --- a/autoclass/decorator/docx/TabUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type TabUnitDecorator = class(Tab) -uses TSSafeUnitConverter; -public - function Create(_obj: Tab); - function GetObject(); - function Convert(); -private - object_: Tab; -end; - -function TabUnitDecorator.Create(_obj: Tab); -begin - class(Tab).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TabUnitDecorator.GetObject(); -begin - return object_; -end; - -function TabUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrLeader) then - {self.}Leader := object_.XmlAttrLeader.Value; - if not ifnil(object_.XmlAttrPos) then - {self.}Pos := object_.XmlAttrPos.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf deleted file mode 100644 index 8fd029b..0000000 --- a/autoclass/decorator/docx/TabsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type TabsUnitDecorator = class(Tabs) -uses TSSafeUnitConverter; -public - function Create(_obj: Tabs); - function GetObject(); - function Convert(); -private - object_: Tabs; -end; - -function TabsUnitDecorator.Create(_obj: Tabs); -begin - class(Tabs).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TabsUnitDecorator.GetObject(); -begin - return object_; -end; - -function TabsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - elems := object_.Tabs(); - for _,elem in elems do - {self.}AppendChild(new TabUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf deleted file mode 100644 index 2cbdda9..0000000 --- a/autoclass/decorator/docx/TblBorderUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type TblBorderUnitDecorator = class(TblBorder) -uses TSSafeUnitConverter; -public - function Create(_obj: TblBorder); - function GetObject(); - function Convert(); -private - object_: TblBorder; -end; - -function TblBorderUnitDecorator.Create(_obj: TblBorder); -begin - class(TblBorder).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblBorderUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblBorderUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrColor) then - {self.}Color := object_.XmlAttrColor.Value; - if not ifnil(object_.XmlAttrSpace) then - {self.}Space := object_.XmlAttrSpace.Value; - if not ifnil(object_.XmlAttrThemeColor) then - {self.}ThemeColor := object_.XmlAttrThemeColor.Value; - if not ifnil(object_.XmlAttrThemeTint) then - {self.}ThemeTint := object_.XmlAttrThemeTint.Value; - if not ifnil(object_.XmlAttrSz) then - {self.}Sz := TSSafeUnitConverter.EighthPointToPoints(object_.XmlAttrSz.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf deleted file mode 100644 index 071e75b..0000000 --- a/autoclass/decorator/docx/TblBordersUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type TblBordersUnitDecorator = class(TblBorders) -uses TSSafeUnitConverter; -public - function Create(_obj: TblBorders); - function GetObject(); - function Convert(); -private - object_: TblBorders; -end; - -function TblBordersUnitDecorator.Create(_obj: TblBorders); -begin - class(TblBorders).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblBordersUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblBordersUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTop) then - {self.}XmlChildTop := new TblBorderUnitDecorator(object_.XmlChildTop); - if not ifnil(object_.XmlChildLeft) then - {self.}XmlChildLeft := new TblBorderUnitDecorator(object_.XmlChildLeft); - if not ifnil(object_.XmlChildBottom) then - {self.}XmlChildBottom := new TblBorderUnitDecorator(object_.XmlChildBottom); - if not ifnil(object_.XmlChildRight) then - {self.}XmlChildRight := new TblBorderUnitDecorator(object_.XmlChildRight); - if not ifnil(object_.XmlChildInsideH) then - {self.}XmlChildInsideH := new TblBorderUnitDecorator(object_.XmlChildInsideH); - if not ifnil(object_.XmlChildInsideV) then - {self.}XmlChildInsideV := new TblBorderUnitDecorator(object_.XmlChildInsideV); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblCellMarUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblCellMarUnitDecorator@DOCX.tsf deleted file mode 100644 index f6b5d93..0000000 --- a/autoclass/decorator/docx/TblCellMarUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type TblCellMarUnitDecorator = class(TblCellMar) -uses TSSafeUnitConverter; -public - function Create(_obj: TblCellMar); - function GetObject(); - function Convert(); -private - object_: TblCellMar; -end; - -function TblCellMarUnitDecorator.Create(_obj: TblCellMar); -begin - class(TblCellMar).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblCellMarUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblCellMarUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTop) then - {self.}XmlChildTop := new TblIndUnitDecorator(object_.XmlChildTop); - if not ifnil(object_.XmlChildLeft) then - {self.}XmlChildLeft := new TblIndUnitDecorator(object_.XmlChildLeft); - if not ifnil(object_.XmlChildBottom) then - {self.}XmlChildBottom := new TblIndUnitDecorator(object_.XmlChildBottom); - if not ifnil(object_.XmlChildRight) then - {self.}XmlChildRight := new TblIndUnitDecorator(object_.XmlChildRight); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblCellSpacingUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblCellSpacingUnitDecorator@DOCX.tsf deleted file mode 100644 index 3833f96..0000000 --- a/autoclass/decorator/docx/TblCellSpacingUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type TblCellSpacingUnitDecorator = class(TblCellSpacing) -uses TSSafeUnitConverter; -public - function Create(_obj: TblCellSpacing); - function GetObject(); - function Convert(); -private - object_: TblCellSpacing; -end; - -function TblCellSpacingUnitDecorator.Create(_obj: TblCellSpacing); -begin - class(TblCellSpacing).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblCellSpacingUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblCellSpacingUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrW) then - {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf deleted file mode 100644 index 95cb442..0000000 --- a/autoclass/decorator/docx/TblGridUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type TblGridUnitDecorator = class(TblGrid) -uses TSSafeUnitConverter; -public - function Create(_obj: TblGrid); - function GetObject(); - function Convert(); -private - object_: TblGrid; -end; - -function TblGridUnitDecorator.Create(_obj: TblGrid); -begin - class(TblGrid).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblGridUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblGridUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - elems := object_.GridCols(); - for _,elem in elems do - {self.}AppendChild(new GridColUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblIndUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblIndUnitDecorator@DOCX.tsf deleted file mode 100644 index 452481a..0000000 --- a/autoclass/decorator/docx/TblIndUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type TblIndUnitDecorator = class(TblInd) -uses TSSafeUnitConverter; -public - function Create(_obj: TblInd); - function GetObject(); - function Convert(); -private - object_: TblInd; -end; - -function TblIndUnitDecorator.Create(_obj: TblInd); -begin - class(TblInd).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblIndUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblIndUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrW) then - {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblLayoutUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblLayoutUnitDecorator@DOCX.tsf deleted file mode 100644 index 5448b5c..0000000 --- a/autoclass/decorator/docx/TblLayoutUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type TblLayoutUnitDecorator = class(TblLayout) -uses TSSafeUnitConverter; -public - function Create(_obj: TblLayout); - function GetObject(); - function Convert(); -private - object_: TblLayout; -end; - -function TblLayoutUnitDecorator.Create(_obj: TblLayout); -begin - class(TblLayout).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblLayoutUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblLayoutUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblLookUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblLookUnitDecorator@DOCX.tsf deleted file mode 100644 index fed8083..0000000 --- a/autoclass/decorator/docx/TblLookUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,42 +0,0 @@ -type TblLookUnitDecorator = class(TblLook) -uses TSSafeUnitConverter; -public - function Create(_obj: TblLook); - function GetObject(); - function Convert(); -private - object_: TblLook; -end; - -function TblLookUnitDecorator.Create(_obj: TblLook); -begin - class(TblLook).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblLookUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblLookUnitDecorator.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_.XmlAttrNoHBand) then - {self.}NoHBand := object_.XmlAttrNoHBand.Value; - if not ifnil(object_.XmlAttrNoVBand) then - {self.}NoVBand := object_.XmlAttrNoVBand.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 6ad4875..0000000 --- a/autoclass/decorator/docx/TblPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,56 +0,0 @@ -type TblPrUnitDecorator = class(TblPr) -uses TSSafeUnitConverter; -public - function Create(_obj: TblPr); - function GetObject(); - function Convert(); -private - object_: TblPr; -end; - -function TblPrUnitDecorator.Create(_obj: TblPr); -begin - class(TblPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildJc) then - {self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc); - if not ifnil(object_.XmlChildShd) then - {self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd); - if not ifnil(object_.XmlChildTblStyle) then - {self.}XmlChildTblStyle := new PureWValUnitDecorator(object_.XmlChildTblStyle); - if not ifnil(object_.XmlChildTblW) then - {self.}XmlChildTblW := new TblWUnitDecorator(object_.XmlChildTblW); - if not ifnil(object_.XmlChildTblInd) then - {self.}XmlChildTblInd := new TblWUnitDecorator(object_.XmlChildTblInd); - if not ifnil(object_.XmlChildTblLayout) then - {self.}XmlChildTblLayout := new TblLayoutUnitDecorator(object_.XmlChildTblLayout); - if not ifnil(object_.XmlChildTblLook) then - {self.}XmlChildTblLook := new TblLookUnitDecorator(object_.XmlChildTblLook); - if not ifnil(object_.XmlChildTblBorders) then - {self.}XmlChildTblBorders := new TblBordersUnitDecorator(object_.XmlChildTblBorders); - if not ifnil(object_.XmlChildTblCellMar) then - {self.}XmlChildTblCellMar := new TblCellMarUnitDecorator(object_.XmlChildTblCellMar); - if not ifnil(object_.XmlChildTblCellSpacing) then - {self.}XmlChildTblCellSpacing := new TblCellSpacingUnitDecorator(object_.XmlChildTblCellSpacing); - if not ifnil(object_.XmlChildTblCaption) then - {self.}XmlChildTblCaption := new PureWValUnitDecorator(object_.XmlChildTblCaption); - if not ifnil(object_.XmlChildTblDescription) then - {self.}XmlChildTblDescription := new PureWValUnitDecorator(object_.XmlChildTblDescription); - if not ifnil(object_.XmlChildTblStyleRowBandSize) then - {self.}XmlChildTblStyleRowBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleRowBandSize); - if not ifnil(object_.XmlChildTblStyleColBandSize) then - {self.}XmlChildTblStyleColBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleColBandSize); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblStylePrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblStylePrUnitDecorator@DOCX.tsf deleted file mode 100644 index 30d57b3..0000000 --- a/autoclass/decorator/docx/TblStylePrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type TblStylePrUnitDecorator = class(TblStylePr) -uses TSSafeUnitConverter; -public - function Create(_obj: TblStylePr); - function GetObject(); - function Convert(); -private - object_: TblStylePr; -end; - -function TblStylePrUnitDecorator.Create(_obj: TblStylePr); -begin - class(TblStylePr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblStylePrUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblStylePrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - if not ifnil(object_.XmlChildPPr) then - {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); - if not ifnil(object_.XmlChildRPr) then - {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); - if not ifnil(object_.XmlChildTblPr) then - {self.}XmlChildTblPr := new TblPrUnitDecorator(object_.XmlChildTblPr); - if not ifnil(object_.XmlChildTrPr) then - {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr); - if not ifnil(object_.XmlChildTcPr) then - {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf deleted file mode 100644 index eec42b9..0000000 --- a/autoclass/decorator/docx/TblUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,35 +0,0 @@ -type TblUnitDecorator = class(Tbl) -uses TSSafeUnitConverter; -public - function Create(_obj: Tbl); - function GetObject(); - function Convert(); -private - object_: Tbl; -end; - -function TblUnitDecorator.Create(_obj: Tbl); -begin - class(Tbl).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTblPr) then - {self.}XmlChildTblPr := new TblPrUnitDecorator(object_.XmlChildTblPr); - if not ifnil(object_.XmlChildTblGrid) then - {self.}XmlChildTblGrid := new TblGridUnitDecorator(object_.XmlChildTblGrid); - elems := object_.Trs(); - for _,elem in elems do - {self.}AppendChild(new TrUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TblWUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TblWUnitDecorator@DOCX.tsf deleted file mode 100644 index e706c4b..0000000 --- a/autoclass/decorator/docx/TblWUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type TblWUnitDecorator = class(TblW) -uses TSSafeUnitConverter; -public - function Create(_obj: TblW); - function GetObject(); - function Convert(); -private - object_: TblW; -end; - -function TblWUnitDecorator.Create(_obj: TblW); -begin - class(TblW).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TblWUnitDecorator.GetObject(); -begin - return object_; -end; - -function TblWUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrW) then - {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); - if not ifnil(object_.XmlAttrType) then - {self.}Type := object_.XmlAttrType.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TcBorderUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TcBorderUnitDecorator@DOCX.tsf deleted file mode 100644 index b01b771..0000000 --- a/autoclass/decorator/docx/TcBorderUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type TcBorderUnitDecorator = class(TcBorder) -uses TSSafeUnitConverter; -public - function Create(_obj: TcBorder); - function GetObject(); - function Convert(); -private - object_: TcBorder; -end; - -function TcBorderUnitDecorator.Create(_obj: TcBorder); -begin - class(TcBorder).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TcBorderUnitDecorator.GetObject(); -begin - return object_; -end; - -function TcBorderUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrColor) then - {self.}Color := object_.XmlAttrColor.Value; - if not ifnil(object_.XmlAttrSpace) then - {self.}Space := object_.XmlAttrSpace.Value; - if not ifnil(object_.XmlAttrThemeColor) then - {self.}ThemeColor := object_.XmlAttrThemeColor.Value; - if not ifnil(object_.XmlAttrThemeTint) then - {self.}ThemeTint := object_.XmlAttrThemeTint.Value; - if not ifnil(object_.XmlAttrSz) then - {self.}Sz := TSSafeUnitConverter.EighthPointToPoints(object_.XmlAttrSz.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TcBordersUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TcBordersUnitDecorator@DOCX.tsf deleted file mode 100644 index 5390f89..0000000 --- a/autoclass/decorator/docx/TcBordersUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,44 +0,0 @@ -type TcBordersUnitDecorator = class(TcBorders) -uses TSSafeUnitConverter; -public - function Create(_obj: TcBorders); - function GetObject(); - function Convert(); -private - object_: TcBorders; -end; - -function TcBordersUnitDecorator.Create(_obj: TcBorders); -begin - class(TcBorders).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TcBordersUnitDecorator.GetObject(); -begin - return object_; -end; - -function TcBordersUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTop) then - {self.}XmlChildTop := new TcBorderUnitDecorator(object_.XmlChildTop); - if not ifnil(object_.XmlChildLeft) then - {self.}XmlChildLeft := new TcBorderUnitDecorator(object_.XmlChildLeft); - if not ifnil(object_.XmlChildBottom) then - {self.}XmlChildBottom := new TcBorderUnitDecorator(object_.XmlChildBottom); - if not ifnil(object_.XmlChildRight) then - {self.}XmlChildRight := new TcBorderUnitDecorator(object_.XmlChildRight); - if not ifnil(object_.XmlChildTl2Br) then - {self.}XmlChildTl2Br := new TcBorderUnitDecorator(object_.XmlChildTl2Br); - if not ifnil(object_.XmlChildTr2Bl) then - {self.}XmlChildTr2Bl := new TcBorderUnitDecorator(object_.XmlChildTr2Bl); - if not ifnil(object_.XmlChildInsideH) then - {self.}XmlChildInsideH := new TcBorderUnitDecorator(object_.XmlChildInsideH); - if not ifnil(object_.XmlChildInsideV) then - {self.}XmlChildInsideV := new TcBorderUnitDecorator(object_.XmlChildInsideV); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf deleted file mode 100644 index d78cf5d..0000000 --- a/autoclass/decorator/docx/TcPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,42 +0,0 @@ -type TcPrUnitDecorator = class(TcPr) -uses TSSafeUnitConverter; -public - function Create(_obj: TcPr); - function GetObject(); - function Convert(); -private - object_: TcPr; -end; - -function TcPrUnitDecorator.Create(_obj: TcPr); -begin - class(TcPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TcPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function TcPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTcW) then - {self.}XmlChildTcW := new TblWUnitDecorator(object_.XmlChildTcW); - if not ifnil(object_.XmlChildGridSpan) then - {self.}XmlChildGridSpan := new GridSpanUnitDecorator(object_.XmlChildGridSpan); - if not ifnil(object_.XmlChildVMerge) then - {self.}VMerge.Copy(object_.XmlChildVMerge); - if not ifnil(object_.XmlChildVAlign) then - {self.}XmlChildVAlign := new PureWValUnitDecorator(object_.XmlChildVAlign); - if not ifnil(object_.XmlChildHideMark) then - {self.}HideMark.Copy(object_.XmlChildHideMark); - if not ifnil(object_.XmlChildShd) then - {self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd); - if not ifnil(object_.XmlChildTcBorders) then - {self.}XmlChildTcBorders := new TcBordersUnitDecorator(object_.XmlChildTcBorders); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf deleted file mode 100644 index 844d879..0000000 --- a/autoclass/decorator/docx/TcUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type TcUnitDecorator = class(Tc) -uses TSSafeUnitConverter; -public - function Create(_obj: Tc); - function GetObject(); - function Convert(); -private - object_: Tc; -end; - -function TcUnitDecorator.Create(_obj: Tc); -begin - class(Tc).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TcUnitDecorator.GetObject(); -begin - return object_; -end; - -function TcUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTcPr) then - {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr); - 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)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TextboxUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TextboxUnitDecorator@DOCX.tsf deleted file mode 100644 index 7c41840..0000000 --- a/autoclass/decorator/docx/TextboxUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type TextboxUnitDecorator = class(Textbox) -uses TSSafeUnitConverter; -public - function Create(_obj: Textbox); - function GetObject(); - function Convert(); -private - object_: Textbox; -end; - -function TextboxUnitDecorator.Create(_obj: Textbox); -begin - class(Textbox).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TextboxUnitDecorator.GetObject(); -begin - return object_; -end; - -function TextboxUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTxbxContent) then - {self.}XmlChildTxbxContent := new TxbxContentUnitDecorator(object_.XmlChildTxbxContent); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ThemeElementsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeElementsUnitDecorator@DOCX.tsf deleted file mode 100644 index bdd29ab..0000000 --- a/autoclass/decorator/docx/ThemeElementsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type ThemeElementsUnitDecorator = class(ThemeElements) -uses TSSafeUnitConverter; -public - function Create(_obj: ThemeElements); - function GetObject(); - function Convert(); -private - object_: ThemeElements; -end; - -function ThemeElementsUnitDecorator.Create(_obj: ThemeElements); -begin - class(ThemeElements).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ThemeElementsUnitDecorator.GetObject(); -begin - return object_; -end; - -function ThemeElementsUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrName) then - {self.}Name := object_.XmlAttrName.Value; - if not ifnil(object_.XmlChildClrScheme) then - {self.}XmlChildClrScheme := new ClrSchemeUnitDecorator(object_.XmlChildClrScheme); - if not ifnil(object_.XmlChildFontScheme) then - {self.}XmlChildFontScheme := new FontSchemeUnitDecorator(object_.XmlChildFontScheme); - if not ifnil(object_.XmlChildFmtScheme) then - {self.}XmlChildFmtScheme := new FmtSchemeUnitDecorator(object_.XmlChildFmtScheme); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ThemeFamilyUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeFamilyUnitDecorator@DOCX.tsf deleted file mode 100644 index fec7f08..0000000 --- a/autoclass/decorator/docx/ThemeFamilyUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type ThemeFamilyUnitDecorator = class(ThemeFamily) -uses TSSafeUnitConverter; -public - function Create(_obj: ThemeFamily); - function GetObject(); - function Convert(); -private - object_: ThemeFamily; -end; - -function ThemeFamilyUnitDecorator.Create(_obj: ThemeFamily); -begin - class(ThemeFamily).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ThemeFamilyUnitDecorator.GetObject(); -begin - return object_; -end; - -function ThemeFamilyUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrXmlnsThm15) then - {self.}XmlnsThm15 := object_.XmlAttrXmlnsThm15.Value; - if not ifnil(object_.XmlAttrName) then - {self.}Name := object_.XmlAttrName.Value; - if not ifnil(object_.XmlAttrId) then - {self.}Id := object_.XmlAttrId.Value; - if not ifnil(object_.XmlAttrVid) then - {self.}Vid := object_.XmlAttrVid.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ThemeFontLangUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeFontLangUnitDecorator@DOCX.tsf deleted file mode 100644 index c78972c..0000000 --- a/autoclass/decorator/docx/ThemeFontLangUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type ThemeFontLangUnitDecorator = class(ThemeFontLang) -uses TSSafeUnitConverter; -public - function Create(_obj: ThemeFontLang); - function GetObject(); - function Convert(); -private - object_: ThemeFontLang; -end; - -function ThemeFontLangUnitDecorator.Create(_obj: ThemeFontLang); -begin - class(ThemeFontLang).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ThemeFontLangUnitDecorator.GetObject(); -begin - return object_; -end; - -function ThemeFontLangUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrVal) then - {self.}Val := object_.XmlAttrVal.Value; - if not ifnil(object_.XmlAttrEastAsia) then - {self.}EastAsia := object_.XmlAttrEastAsia.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ThemeUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ThemeUnitDecorator@DOCX.tsf deleted file mode 100644 index c72ddeb..0000000 --- a/autoclass/decorator/docx/ThemeUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type ThemeUnitDecorator = class(Theme) -uses TSSafeUnitConverter; -public - function Create(_obj: Theme); - function GetObject(); - function Convert(); -private - object_: Theme; -end; - -function ThemeUnitDecorator.Create(_obj: Theme); -begin - class(Theme).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ThemeUnitDecorator.GetObject(); -begin - return object_; -end; - -function ThemeUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrXmlnsA) then - {self.}XmlnsA := object_.XmlAttrXmlnsA.Value; - if not ifnil(object_.XmlAttrName) then - {self.}Name := object_.XmlAttrName.Value; - if not ifnil(object_.XmlChildThemeElements) then - {self.}XmlChildThemeElements := new ThemeElementsUnitDecorator(object_.XmlChildThemeElements); - if not ifnil(object_.XmlChildObjectDefaults) then - {self.}ObjectDefaults.Copy(object_.XmlChildObjectDefaults); - if not ifnil(object_.XmlChildExtraClrSchemeLst) then - {self.}ExtraClrSchemeLst.Copy(object_.XmlChildExtraClrSchemeLst); - if not ifnil(object_.XmlChildExtLst) then - {self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TitleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TitleUnitDecorator@DOCX.tsf deleted file mode 100644 index c026738..0000000 --- a/autoclass/decorator/docx/TitleUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type TitleUnitDecorator = class(Title) -uses TSSafeUnitConverter; -public - function Create(_obj: Title); - function GetObject(); - function Convert(); -private - object_: Title; -end; - -function TitleUnitDecorator.Create(_obj: Title); -begin - class(Title).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TitleUnitDecorator.GetObject(); -begin - return object_; -end; - -function TitleUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTx) then - {self.}XmlChildTx := new TxUnitDecorator(object_.XmlChildTx); - if not ifnil(object_.XmlChildLayout) then - {self.}Layout.Copy(object_.XmlChildLayout); - if not ifnil(object_.XmlChildOverlay) then - {self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf deleted file mode 100644 index ab217a1..0000000 --- a/autoclass/decorator/docx/TrHeightUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type TrHeightUnitDecorator = class(TrHeight) -uses TSSafeUnitConverter; -public - function Create(_obj: TrHeight); - function GetObject(); - function Convert(); -private - object_: TrHeight; -end; - -function TrHeightUnitDecorator.Create(_obj: TrHeight); -begin - class(TrHeight).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TrHeightUnitDecorator.GetObject(); -begin - return object_; -end; - -function TrHeightUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrHRule) then - {self.}HRule := object_.XmlAttrHRule.Value; - if not ifnil(object_.XmlAttrval) then - {self.}val := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrval.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TrPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TrPrUnitDecorator@DOCX.tsf deleted file mode 100644 index 4cd887a..0000000 --- a/autoclass/decorator/docx/TrPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,40 +0,0 @@ -type TrPrUnitDecorator = class(TrPr) -uses TSSafeUnitConverter; -public - function Create(_obj: TrPr); - function GetObject(); - function Convert(); -private - object_: TrPr; -end; - -function TrPrUnitDecorator.Create(_obj: TrPr); -begin - class(TrPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TrPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function TrPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTrHeight) then - {self.}XmlChildTrHeight := new TrHeightUnitDecorator(object_.XmlChildTrHeight); - if not ifnil(object_.XmlChildTblHeader) then - {self.}XmlChildTblHeader := new PureWValUnitDecorator(object_.XmlChildTblHeader); - if not ifnil(object_.XmlChildJc) then - {self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc); - if not ifnil(object_.XmlChildCantSplit) then - {self.}CantSplit.Copy(object_.XmlChildCantSplit); - if not ifnil(object_.XmlChildCnfStyle) then - {self.}XmlChildCnfStyle := new CnfStyleUnitDecorator(object_.XmlChildCnfStyle); - if not ifnil(object_.XmlChildIns) then - {self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf deleted file mode 100644 index 9caecb7..0000000 --- a/autoclass/decorator/docx/TrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,41 +0,0 @@ -type TrUnitDecorator = class(Tr) -uses TSSafeUnitConverter; -public - function Create(_obj: Tr); - function GetObject(); - function Convert(); -private - object_: Tr; -end; - -function TrUnitDecorator.Create(_obj: Tr); -begin - class(Tr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TrUnitDecorator.GetObject(); -begin - return object_; -end; - -function TrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrWRsidR) then - {self.}WRsidR := object_.XmlAttrWRsidR.Value; - if not ifnil(object_.XmlAttrW14ParaId) then - {self.}W14ParaId := object_.XmlAttrW14ParaId.Value; - if not ifnil(object_.XmlAttrW14TextId) then - {self.}W14TextId := object_.XmlAttrW14TextId.Value; - if not ifnil(object_.XmlAttrWRsidTr) then - {self.}WRsidTr := object_.XmlAttrWRsidTr.Value; - if not ifnil(object_.XmlChildTrPr) then - {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr); - elems := object_.Tcs(); - for _,elem in elems do - {self.}AppendChild(new TcUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf deleted file mode 100644 index e2d7aaf..0000000 --- a/autoclass/decorator/docx/TxPrUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,35 +0,0 @@ -type TxPrUnitDecorator = class(TxPr) -uses TSSafeUnitConverter; -public - function Create(_obj: TxPr); - function GetObject(); - function Convert(); -private - object_: TxPr; -end; - -function TxPrUnitDecorator.Create(_obj: TxPr); -begin - class(TxPr).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TxPrUnitDecorator.GetObject(); -begin - return object_; -end; - -function TxPrUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildBodyPr) then - {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr); - if not ifnil(object_.XmlChildLstStyle) then - {self.}LstStyle.Copy(object_.XmlChildLstStyle); - elems := object_.Ps(); - for _,elem in elems do - {self.}AppendChild(new ApUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TxUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TxUnitDecorator@DOCX.tsf deleted file mode 100644 index e3481ed..0000000 --- a/autoclass/decorator/docx/TxUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type TxUnitDecorator = class(Tx) -uses TSSafeUnitConverter; -public - function Create(_obj: Tx); - function GetObject(); - function Convert(); -private - object_: Tx; -end; - -function TxUnitDecorator.Create(_obj: Tx); -begin - class(Tx).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TxUnitDecorator.GetObject(); -begin - return object_; -end; - -function TxUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildStrRef) then - {self.}XmlChildStrRef := new StrRefUnitDecorator(object_.XmlChildStrRef); - if not ifnil(object_.XmlChildRich) then - {self.}XmlChildRich := new RichUnitDecorator(object_.XmlChildRich); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TxbxContentUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TxbxContentUnitDecorator@DOCX.tsf deleted file mode 100644 index 2f766da..0000000 --- a/autoclass/decorator/docx/TxbxContentUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,31 +0,0 @@ -type TxbxContentUnitDecorator = class(TxbxContent) -uses TSSafeUnitConverter; -public - function Create(_obj: TxbxContent); - function GetObject(); - function Convert(); -private - object_: TxbxContent; -end; - -function TxbxContentUnitDecorator.Create(_obj: TxbxContent); -begin - class(TxbxContent).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TxbxContentUnitDecorator.GetObject(); -begin - return object_; -end; - -function TxbxContentUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - elems := object_.Ps(); - for _,elem in elems do - {self.}AppendChild(new PUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TxbxUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TxbxUnitDecorator@DOCX.tsf deleted file mode 100644 index a543126..0000000 --- a/autoclass/decorator/docx/TxbxUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type TxbxUnitDecorator = class(Txbx) -uses TSSafeUnitConverter; -public - function Create(_obj: Txbx); - function GetObject(); - function Convert(); -private - object_: Txbx; -end; - -function TxbxUnitDecorator.Create(_obj: Txbx); -begin - class(Txbx).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TxbxUnitDecorator.GetObject(); -begin - return object_; -end; - -function TxbxUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildTxbxContent) then - {self.}XmlChildTxbxContent := new TxbxContentUnitDecorator(object_.XmlChildTxbxContent); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf deleted file mode 100644 index 286ce12..0000000 --- a/autoclass/decorator/docx/TypesUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type TypesUnitDecorator = class(Types) -uses TSSafeUnitConverter; -public - function Create(_obj: Types); - function GetObject(); - function Convert(); -private - object_: Types; -end; - -function TypesUnitDecorator.Create(_obj: Types); -begin - class(Types).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function TypesUnitDecorator.GetObject(); -begin - return object_; -end; - -function TypesUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrxmlns) then - {self.}xmlns := object_.XmlAttrxmlns.Value; - elems := object_.Defaults(); - for _,elem in elems do - {self.}AppendChild(new DefaultUnitDecorator(elem)); - elems := object_.Overrides(); - for _,elem in elems do - {self.}AppendChild(new _OverrideUnitDecorator(elem)); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ValUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ValUnitDecorator@DOCX.tsf deleted file mode 100644 index 4625577..0000000 --- a/autoclass/decorator/docx/ValUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type ValUnitDecorator = class(Val) -uses TSSafeUnitConverter; -public - function Create(_obj: Val); - function GetObject(); - function Convert(); -private - object_: Val; -end; - -function ValUnitDecorator.Create(_obj: Val); -begin - class(Val).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ValUnitDecorator.GetObject(); -begin - return object_; -end; - -function ValUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildNumRef) then - {self.}XmlChildNumRef := new NumRefUnitDecorator(object_.XmlChildNumRef); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/View3DUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/View3DUnitDecorator@DOCX.tsf deleted file mode 100644 index e3b01ae..0000000 --- a/autoclass/decorator/docx/View3DUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,34 +0,0 @@ -type View3DUnitDecorator = class(View3D) -uses TSSafeUnitConverter; -public - function Create(_obj: View3D); - function GetObject(); - function Convert(); -private - object_: View3D; -end; - -function View3DUnitDecorator.Create(_obj: View3D); -begin - class(View3D).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function View3DUnitDecorator.GetObject(); -begin - return object_; -end; - -function View3DUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildRotX) then - {self.}XmlChildRotX := new PureValUnitDecorator(object_.XmlChildRotX); - if not ifnil(object_.XmlChildRotY) then - {self.}XmlChildRotY := new PureValUnitDecorator(object_.XmlChildRotY); - if not ifnil(object_.XmlChildRAngAx) then - {self.}XmlChildRAngAx := new PureValUnitDecorator(object_.XmlChildRAngAx); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/WebSettingsUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/WebSettingsUnitDecorator@DOCX.tsf deleted file mode 100644 index c8c5e75..0000000 --- a/autoclass/decorator/docx/WebSettingsUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,56 +0,0 @@ -type WebSettingsUnitDecorator = class(WebSettings) -uses TSSafeUnitConverter; -public - function Create(_obj: WebSettings); - function GetObject(); - function Convert(); -private - object_: WebSettings; -end; - -function WebSettingsUnitDecorator.Create(_obj: WebSettings); -begin - class(WebSettings).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function WebSettingsUnitDecorator.GetObject(); -begin - return object_; -end; - -function WebSettingsUnitDecorator.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; - if not ifnil(object_.XmlChildOptimizeForBrowser) then - {self.}OptimizeForBrowser.Copy(object_.XmlChildOptimizeForBrowser); - if not ifnil(object_.XmlChildAllowPNG) then - {self.}AllowPNG.Copy(object_.XmlChildAllowPNG); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/WpsStyleUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/WpsStyleUnitDecorator@DOCX.tsf deleted file mode 100644 index 09e63ad..0000000 --- a/autoclass/decorator/docx/WpsStyleUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,36 +0,0 @@ -type WpsStyleUnitDecorator = class(WpsStyle) -uses TSSafeUnitConverter; -public - function Create(_obj: WpsStyle); - function GetObject(); - function Convert(); -private - object_: WpsStyle; -end; - -function WpsStyleUnitDecorator.Create(_obj: WpsStyle); -begin - class(WpsStyle).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function WpsStyleUnitDecorator.GetObject(); -begin - return object_; -end; - -function WpsStyleUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildLnRef) then - {self.}XmlChildLnRef := new XRefUnitDecorator(object_.XmlChildLnRef); - if not ifnil(object_.XmlChildFillRef) then - {self.}XmlChildFillRef := new XRefUnitDecorator(object_.XmlChildFillRef); - if not ifnil(object_.XmlChildEffectRef) then - {self.}XmlChildEffectRef := new XRefUnitDecorator(object_.XmlChildEffectRef); - if not ifnil(object_.XmlChildFontRef) then - {self.}XmlChildFontRef := new XRefUnitDecorator(object_.XmlChildFontRef); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/WspUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/WspUnitDecorator@DOCX.tsf deleted file mode 100644 index ba55925..0000000 --- a/autoclass/decorator/docx/WspUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,38 +0,0 @@ -type WspUnitDecorator = class(Wsp) -uses TSSafeUnitConverter; -public - function Create(_obj: Wsp); - function GetObject(); - function Convert(); -private - object_: Wsp; -end; - -function WspUnitDecorator.Create(_obj: Wsp); -begin - class(Wsp).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function WspUnitDecorator.GetObject(); -begin - return object_; -end; - -function WspUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildCNvSpPr) then - {self.}XmlChildCNvSpPr := new CNvSpPrUnitDecorator(object_.XmlChildCNvSpPr); - if not ifnil(object_.XmlChildSpPr) then - {self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr); - if not ifnil(object_.XmlChildTxbx) then - {self.}XmlChildTxbx := new TxbxUnitDecorator(object_.XmlChildTxbx); - if not ifnil(object_.XmlChildStyle) then - {self.}XmlChildStyle := new WpsStyleUnitDecorator(object_.XmlChildStyle); - if not ifnil(object_.XmlChildBodyPr) then - {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/XRefUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/XRefUnitDecorator@DOCX.tsf deleted file mode 100644 index b888df0..0000000 --- a/autoclass/decorator/docx/XRefUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type XRefUnitDecorator = class(XRef) -uses TSSafeUnitConverter; -public - function Create(_obj: XRef); - function GetObject(); - function Convert(); -private - object_: XRef; -end; - -function XRefUnitDecorator.Create(_obj: XRef); -begin - class(XRef).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function XRefUnitDecorator.GetObject(); -begin - return object_; -end; - -function XRefUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrIdx) then - {self.}Idx := object_.XmlAttrIdx.Value; - if not ifnil(object_.XmlChildSchemeClr) then - {self.}XmlChildSchemeClr := new SchemeClrUnitDecorator(object_.XmlChildSchemeClr); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/XYUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/XYUnitDecorator@DOCX.tsf deleted file mode 100644 index cc7ef7b..0000000 --- a/autoclass/decorator/docx/XYUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type XYUnitDecorator = class(XY) -uses TSSafeUnitConverter; -public - function Create(_obj: XY); - function GetObject(); - function Convert(); -private - object_: XY; -end; - -function XYUnitDecorator.Create(_obj: XY); -begin - class(XY).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function XYUnitDecorator.GetObject(); -begin - return object_; -end; - -function XYUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrX) then - {self.}X := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrX.Value); - if not ifnil(object_.XmlAttrY) then - {self.}Y := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrY.Value); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/XfrmUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/XfrmUnitDecorator@DOCX.tsf deleted file mode 100644 index f19b02e..0000000 --- a/autoclass/decorator/docx/XfrmUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type XfrmUnitDecorator = class(Xfrm) -uses TSSafeUnitConverter; -public - function Create(_obj: Xfrm); - function GetObject(); - function Convert(); -private - object_: Xfrm; -end; - -function XfrmUnitDecorator.Create(_obj: Xfrm); -begin - class(Xfrm).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function XfrmUnitDecorator.GetObject(); -begin - return object_; -end; - -function XfrmUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlChildOff) then - {self.}XmlChildOff := new XYUnitDecorator(object_.XmlChildOff); - if not ifnil(object_.XmlChildExt) then - {self.}XmlChildExt := new CXYUnitDecorator(object_.XmlChildExt); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/ZoomUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/ZoomUnitDecorator@DOCX.tsf deleted file mode 100644 index 875ca52..0000000 --- a/autoclass/decorator/docx/ZoomUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,30 +0,0 @@ -type ZoomUnitDecorator = class(Zoom) -uses TSSafeUnitConverter; -public - function Create(_obj: Zoom); - function GetObject(); - function Convert(); -private - object_: Zoom; -end; - -function ZoomUnitDecorator.Create(_obj: Zoom); -begin - class(Zoom).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function ZoomUnitDecorator.GetObject(); -begin - return object_; -end; - -function ZoomUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrPercent) then - {self.}Percent := object_.XmlAttrPercent.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/_InlineUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/_InlineUnitDecorator@DOCX.tsf deleted file mode 100644 index 97d2a76..0000000 --- a/autoclass/decorator/docx/_InlineUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,50 +0,0 @@ -type _InlineUnitDecorator = class(_Inline) -uses TSSafeUnitConverter; -public - function Create(_obj: _Inline); - function GetObject(); - function Convert(); -private - object_: _Inline; -end; - -function _InlineUnitDecorator.Create(_obj: _Inline); -begin - class(_Inline).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function _InlineUnitDecorator.GetObject(); -begin - return object_; -end; - -function _InlineUnitDecorator.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_.XmlAttrAnchorId) then - {self.}AnchorId := object_.XmlAttrAnchorId.Value; - if not ifnil(object_.XmlAttrEditId) then - {self.}EditId := object_.XmlAttrEditId.Value; - 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_.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); - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/decorator/docx/_OverrideUnitDecorator@DOCX.tsf b/autoclass/decorator/docx/_OverrideUnitDecorator@DOCX.tsf deleted file mode 100644 index a9b27f2..0000000 --- a/autoclass/decorator/docx/_OverrideUnitDecorator@DOCX.tsf +++ /dev/null @@ -1,32 +0,0 @@ -type _OverrideUnitDecorator = class(_Override) -uses TSSafeUnitConverter; -public - function Create(_obj: _Override); - function GetObject(); - function Convert(); -private - object_: _Override; -end; - -function _OverrideUnitDecorator.Create(_obj: _Override); -begin - class(_Override).Create(); - object_ := _obj; - {self.}Convert(); -end; - -function _OverrideUnitDecorator.GetObject(); -begin - return object_; -end; - -function _OverrideUnitDecorator.Convert(); -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - if not ifnil(object_.XmlAttrPartName) then - {self.}PartName := object_.XmlAttrPartName.Value; - if not ifnil(object_.XmlAttrContentType) then - {self.}ContentType := object_.XmlAttrContentType.Value; - tslassigning := tslassigning_backup; -end; \ No newline at end of file diff --git a/autoclass/docx/APPr@DOCX.tsf b/autoclass/docx/APPr@DOCX.tsf deleted file mode 100644 index 95c7030..0000000 --- a/autoclass/docx/APPr@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type APPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: APPr);override; - -public - - // normal property - property DefRPr read ReadXmlChildDefRPr; - function ReadXmlChildDefRPr(); - -public - // Children - XmlChildDefRPr: ARPr; - -end; - -function APPr.Create();overload; -begin - {self.}Create(nil, "a", "pPr"); -end; - -function APPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function APPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function APPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "defRPr": array(0, makeweakref(thisFunction(ReadXmlChildDefRPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function APPr.Copy(_obj: APPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildDefRPr) then - {self.}DefRPr.Copy(_obj.XmlChildDefRPr); - tslassigning := tslassigning_backup; -end; - -function APPr.ReadXmlChildDefRPr(); -begin - if tslassigning and ifnil({self.}XmlChildDefRPr) then - begin - {self.}XmlChildDefRPr := new ARPr(self, {self.}Prefix, "defRPr"); - container_.Set({self.}XmlChildDefRPr); - end - return {self.}XmlChildDefRPr; -end; diff --git a/autoclass/docx/AR@DOCX.tsf b/autoclass/docx/AR@DOCX.tsf deleted file mode 100644 index c1bef6a..0000000 --- a/autoclass/docx/AR@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type AR = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: AR);override; - -public - - // normal property - property RPr read ReadXmlChildRPr; - property T read ReadXmlChildT; - function ReadXmlChildRPr(); - function ReadXmlChildT(); - -public - // Children - XmlChildRPr: ARPr; - XmlChildT: T; - -end; - -function AR.Create();overload; -begin - {self.}Create(nil, "a", "r"); -end; - -function AR.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function AR.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function AR.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), - pre + "t": array(1, makeweakref(thisFunction(ReadXmlChildT))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function AR.Copy(_obj: AR);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - if not ifnil(_obj.XmlChildT) then - {self.}T.Copy(_obj.XmlChildT); - tslassigning := tslassigning_backup; -end; - -function AR.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new ARPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; - -function AR.ReadXmlChildT(); -begin - if tslassigning and ifnil({self.}XmlChildT) then - begin - {self.}XmlChildT := new T(self, {self.}Prefix, "t"); - container_.Set({self.}XmlChildT); - end - return {self.}XmlChildT; -end; diff --git a/autoclass/docx/ARPr@DOCX.tsf b/autoclass/docx/ARPr@DOCX.tsf deleted file mode 100644 index ee34a8a..0000000 --- a/autoclass/docx/ARPr@DOCX.tsf +++ /dev/null @@ -1,339 +0,0 @@ -type ARPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ARPr);override; - -public - - // attributes property - property Lang read ReadXmlAttrLang write WriteXmlAttrLang; - property AltLang read ReadXmlAttrAltLang write WriteXmlAttrAltLang; - property B read ReadXmlAttrB write WriteXmlAttrB; - property Baseline read ReadXmlAttrBaseline write WriteXmlAttrBaseline; - property I read ReadXmlAttrI write WriteXmlAttrI; - property Kern read ReadXmlAttrKern write WriteXmlAttrKern; - property Spc read ReadXmlAttrSpc write WriteXmlAttrSpc; - property Strike read ReadXmlAttrStrike write WriteXmlAttrStrike; - property Sz read ReadXmlAttrSz write WriteXmlAttrSz; - property U read ReadXmlAttrU write WriteXmlAttrU; - function ReadXmlAttrLang(); - function WriteXmlAttrLang(_value); - function ReadXmlAttrAltLang(); - function WriteXmlAttrAltLang(_value); - function ReadXmlAttrB(); - function WriteXmlAttrB(_value); - function ReadXmlAttrBaseline(); - function WriteXmlAttrBaseline(_value); - function ReadXmlAttrI(); - function WriteXmlAttrI(_value); - function ReadXmlAttrKern(); - function WriteXmlAttrKern(_value); - function ReadXmlAttrSpc(); - function WriteXmlAttrSpc(_value); - function ReadXmlAttrStrike(); - function WriteXmlAttrStrike(_value); - function ReadXmlAttrSz(); - function WriteXmlAttrSz(_value); - function ReadXmlAttrU(); - function WriteXmlAttrU(_value); - - // normal property - property SolidFill read ReadXmlChildSolidFill; - property Latin read ReadXmlChildLatin; - property Ea read ReadXmlChildEa; - property Cs read ReadXmlChildCs; - function ReadXmlChildSolidFill(); - function ReadXmlChildLatin(); - function ReadXmlChildEa(); - function ReadXmlChildCs(); - -public - // Attributes - XmlAttrLang: OpenXmlAttribute; - XmlAttrAltLang: OpenXmlAttribute; - XmlAttrB: OpenXmlAttribute; - XmlAttrBaseline: OpenXmlAttribute; - XmlAttrI: OpenXmlAttribute; - XmlAttrKern: OpenXmlAttribute; - XmlAttrSpc: OpenXmlAttribute; - XmlAttrStrike: OpenXmlAttribute; - XmlAttrSz: OpenXmlAttribute; - XmlAttrU: OpenXmlAttribute; - - // Children - XmlChildSolidFill: SolidFill; - XmlChildLatin: Latin; - XmlChildEa: Latin; - XmlChildCs: Latin; - -end; - -function ARPr.Create();overload; -begin - {self.}Create(nil, "a", "rPr"); -end; - -function ARPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ARPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ARPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "lang": makeweakref(thisFunction(WriteXmlAttrLang)), - "altLang": makeweakref(thisFunction(WriteXmlAttrAltLang)), - "b": makeweakref(thisFunction(WriteXmlAttrB)), - "baseline": makeweakref(thisFunction(WriteXmlAttrBaseline)), - "i": makeweakref(thisFunction(WriteXmlAttrI)), - "kern": makeweakref(thisFunction(WriteXmlAttrKern)), - "spc": makeweakref(thisFunction(WriteXmlAttrSpc)), - "strike": makeweakref(thisFunction(WriteXmlAttrStrike)), - "sz": makeweakref(thisFunction(WriteXmlAttrSz)), - "u": makeweakref(thisFunction(WriteXmlAttrU)), - ); - sorted_child_ := array( - pre + "solidFill": array(0, makeweakref(thisFunction(ReadXmlChildSolidFill))), - pre + "latin": array(1, makeweakref(thisFunction(ReadXmlChildLatin))), - pre + "ea": array(2, makeweakref(thisFunction(ReadXmlChildEa))), - pre + "cs": array(3, makeweakref(thisFunction(ReadXmlChildCs))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ARPr.Copy(_obj: ARPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Lang) then - {self.}Lang := _obj.Lang; - if not ifnil(_obj.AltLang) then - {self.}AltLang := _obj.AltLang; - if not ifnil(_obj.B) then - {self.}B := _obj.B; - if not ifnil(_obj.Baseline) then - {self.}Baseline := _obj.Baseline; - if not ifnil(_obj.I) then - {self.}I := _obj.I; - if not ifnil(_obj.Kern) then - {self.}Kern := _obj.Kern; - if not ifnil(_obj.Spc) then - {self.}Spc := _obj.Spc; - if not ifnil(_obj.Strike) then - {self.}Strike := _obj.Strike; - if not ifnil(_obj.Sz) then - {self.}Sz := _obj.Sz; - if not ifnil(_obj.U) then - {self.}U := _obj.U; - if not ifnil(_obj.XmlChildSolidFill) then - {self.}SolidFill.Copy(_obj.XmlChildSolidFill); - if not ifnil(_obj.XmlChildLatin) then - {self.}Latin.Copy(_obj.XmlChildLatin); - if not ifnil(_obj.XmlChildEa) then - {self.}Ea.Copy(_obj.XmlChildEa); - if not ifnil(_obj.XmlChildCs) then - {self.}Cs.Copy(_obj.XmlChildCs); - tslassigning := tslassigning_backup; -end; - -function ARPr.ReadXmlAttrLang(); -begin - return {self.}XmlAttrLang.Value; -end; - -function ARPr.WriteXmlAttrLang(_value); -begin - if ifnil({self.}XmlAttrLang) then - begin - {self.}XmlAttrLang := new OpenXmlAttribute("", "lang", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLang; - end - {self.}XmlAttrLang.Value := _value; -end; - -function ARPr.ReadXmlAttrAltLang(); -begin - return {self.}XmlAttrAltLang.Value; -end; - -function ARPr.WriteXmlAttrAltLang(_value); -begin - if ifnil({self.}XmlAttrAltLang) then - begin - {self.}XmlAttrAltLang := new OpenXmlAttribute("", "altLang", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAltLang; - end - {self.}XmlAttrAltLang.Value := _value; -end; - -function ARPr.ReadXmlAttrB(); -begin - return {self.}XmlAttrB.Value; -end; - -function ARPr.WriteXmlAttrB(_value); -begin - if ifnil({self.}XmlAttrB) then - begin - {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); - attributes_[length(attributes_)] := {self.}XmlAttrB; - end - {self.}XmlAttrB.Value := _value; -end; - -function ARPr.ReadXmlAttrBaseline(); -begin - return {self.}XmlAttrBaseline.Value; -end; - -function ARPr.WriteXmlAttrBaseline(_value); -begin - if ifnil({self.}XmlAttrBaseline) then - begin - {self.}XmlAttrBaseline := new OpenXmlAttribute("", "baseline", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBaseline; - end - {self.}XmlAttrBaseline.Value := _value; -end; - -function ARPr.ReadXmlAttrI(); -begin - return {self.}XmlAttrI.Value; -end; - -function ARPr.WriteXmlAttrI(_value); -begin - if ifnil({self.}XmlAttrI) then - begin - {self.}XmlAttrI := new OpenXmlAttribute("", "i", nil); - attributes_[length(attributes_)] := {self.}XmlAttrI; - end - {self.}XmlAttrI.Value := _value; -end; - -function ARPr.ReadXmlAttrKern(); -begin - return {self.}XmlAttrKern.Value; -end; - -function ARPr.WriteXmlAttrKern(_value); -begin - if ifnil({self.}XmlAttrKern) then - begin - {self.}XmlAttrKern := new OpenXmlAttribute("", "kern", nil); - attributes_[length(attributes_)] := {self.}XmlAttrKern; - end - {self.}XmlAttrKern.Value := _value; -end; - -function ARPr.ReadXmlAttrSpc(); -begin - return {self.}XmlAttrSpc.Value; -end; - -function ARPr.WriteXmlAttrSpc(_value); -begin - if ifnil({self.}XmlAttrSpc) then - begin - {self.}XmlAttrSpc := new OpenXmlAttribute("", "spc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpc; - end - {self.}XmlAttrSpc.Value := _value; -end; - -function ARPr.ReadXmlAttrStrike(); -begin - return {self.}XmlAttrStrike.Value; -end; - -function ARPr.WriteXmlAttrStrike(_value); -begin - if ifnil({self.}XmlAttrStrike) then - begin - {self.}XmlAttrStrike := new OpenXmlAttribute("", "strike", nil); - attributes_[length(attributes_)] := {self.}XmlAttrStrike; - end - {self.}XmlAttrStrike.Value := _value; -end; - -function ARPr.ReadXmlAttrSz(); -begin - return {self.}XmlAttrSz.Value; -end; - -function ARPr.WriteXmlAttrSz(_value); -begin - if ifnil({self.}XmlAttrSz) then - begin - {self.}XmlAttrSz := new OpenXmlAttribute("", "sz", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSz; - end - {self.}XmlAttrSz.Value := _value; -end; - -function ARPr.ReadXmlAttrU(); -begin - return {self.}XmlAttrU.Value; -end; - -function ARPr.WriteXmlAttrU(_value); -begin - if ifnil({self.}XmlAttrU) then - begin - {self.}XmlAttrU := new OpenXmlAttribute("", "u", nil); - attributes_[length(attributes_)] := {self.}XmlAttrU; - end - {self.}XmlAttrU.Value := _value; -end; - -function ARPr.ReadXmlChildSolidFill(); -begin - if tslassigning and ifnil({self.}XmlChildSolidFill) then - begin - {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); - container_.Set({self.}XmlChildSolidFill); - end - return {self.}XmlChildSolidFill; -end; - -function ARPr.ReadXmlChildLatin(); -begin - if tslassigning and ifnil({self.}XmlChildLatin) then - begin - {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); - container_.Set({self.}XmlChildLatin); - end - return {self.}XmlChildLatin; -end; - -function ARPr.ReadXmlChildEa(); -begin - if tslassigning and ifnil({self.}XmlChildEa) then - begin - {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); - container_.Set({self.}XmlChildEa); - end - return {self.}XmlChildEa; -end; - -function ARPr.ReadXmlChildCs(); -begin - if tslassigning and ifnil({self.}XmlChildCs) then - begin - {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); - container_.Set({self.}XmlChildCs); - end - return {self.}XmlChildCs; -end; diff --git a/autoclass/docx/AbstractNum@DOCX.tsf b/autoclass/docx/AbstractNum@DOCX.tsf deleted file mode 100644 index ede7fff..0000000 --- a/autoclass/docx/AbstractNum@DOCX.tsf +++ /dev/null @@ -1,175 +0,0 @@ -type AbstractNum = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: AbstractNum);override; - -public - - // attributes property - property AbstractNumId read ReadXmlAttrAbstractNumId write WriteXmlAttrAbstractNumId; - property RestartNumberingAfterBreak read ReadXmlAttrRestartNumberingAfterBreak write WriteXmlAttrRestartNumberingAfterBreak; - function ReadXmlAttrAbstractNumId(); - function WriteXmlAttrAbstractNumId(_value); - function ReadXmlAttrRestartNumberingAfterBreak(); - function WriteXmlAttrRestartNumberingAfterBreak(_value); - - // normal property - property Nsid read ReadXmlChildNsid; - property MultiLevelType read ReadXmlChildMultiLevelType; - property Tmpl read ReadXmlChildTmpl; - function ReadXmlChildNsid(); - function ReadXmlChildMultiLevelType(); - function ReadXmlChildTmpl(); - - // multi property - property Lvls read ReadLvls; - function ReadLvls(_index); - function AddLvl(): Lvl; - function AppendLvl(): Lvl; - -public - // Attributes - XmlAttrAbstractNumId: OpenXmlAttribute; - XmlAttrRestartNumberingAfterBreak: OpenXmlAttribute; - - // Children - XmlChildNsid: PureWVal; - XmlChildMultiLevelType: PureWVal; - XmlChildTmpl: PureWVal; - -end; - -function AbstractNum.Create();overload; -begin - {self.}Create(nil, "w", "abstractNum"); -end; - -function AbstractNum.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function AbstractNum.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function AbstractNum.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "abstractNumId": makeweakref(thisFunction(WriteXmlAttrAbstractNumId)), - pre + "restartNumberingAfterBreak": makeweakref(thisFunction(WriteXmlAttrRestartNumberingAfterBreak)), - ); - sorted_child_ := array( - pre + "nsid": array(0, makeweakref(thisFunction(ReadXmlChildNsid))), - pre + "multiLevelType": array(1, makeweakref(thisFunction(ReadXmlChildMultiLevelType))), - pre + "tmpl": array(2, makeweakref(thisFunction(ReadXmlChildTmpl))), - pre + "lvl": array(3, makeweakref(thisFunction(AppendLvl))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function AbstractNum.Copy(_obj: AbstractNum);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.AbstractNumId) then - {self.}AbstractNumId := _obj.AbstractNumId; - if not ifnil(_obj.RestartNumberingAfterBreak) then - {self.}RestartNumberingAfterBreak := _obj.RestartNumberingAfterBreak; - if not ifnil(_obj.XmlChildNsid) then - {self.}Nsid.Copy(_obj.XmlChildNsid); - if not ifnil(_obj.XmlChildMultiLevelType) then - {self.}MultiLevelType.Copy(_obj.XmlChildMultiLevelType); - if not ifnil(_obj.XmlChildTmpl) then - {self.}Tmpl.Copy(_obj.XmlChildTmpl); - tslassigning := tslassigning_backup; -end; - -function AbstractNum.ReadXmlAttrAbstractNumId(); -begin - return {self.}XmlAttrAbstractNumId.Value; -end; - -function AbstractNum.WriteXmlAttrAbstractNumId(_value); -begin - if ifnil({self.}XmlAttrAbstractNumId) then - begin - {self.}XmlAttrAbstractNumId := new OpenXmlAttribute({self.}Prefix, "abstractNumId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAbstractNumId; - end - {self.}XmlAttrAbstractNumId.Value := _value; -end; - -function AbstractNum.ReadXmlAttrRestartNumberingAfterBreak(); -begin - return {self.}XmlAttrRestartNumberingAfterBreak.Value; -end; - -function AbstractNum.WriteXmlAttrRestartNumberingAfterBreak(_value); -begin - if ifnil({self.}XmlAttrRestartNumberingAfterBreak) then - begin - {self.}XmlAttrRestartNumberingAfterBreak := new OpenXmlAttribute({self.}Prefix, "restartNumberingAfterBreak", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRestartNumberingAfterBreak; - end - {self.}XmlAttrRestartNumberingAfterBreak.Value := _value; -end; - -function AbstractNum.ReadXmlChildNsid(); -begin - if tslassigning and ifnil({self.}XmlChildNsid) then - begin - {self.}XmlChildNsid := new PureWVal(self, {self.}Prefix, "nsid"); - container_.Set({self.}XmlChildNsid); - end - return {self.}XmlChildNsid; -end; - -function AbstractNum.ReadXmlChildMultiLevelType(); -begin - if tslassigning and ifnil({self.}XmlChildMultiLevelType) then - begin - {self.}XmlChildMultiLevelType := new PureWVal(self, {self.}Prefix, "multiLevelType"); - container_.Set({self.}XmlChildMultiLevelType); - end - return {self.}XmlChildMultiLevelType; -end; - -function AbstractNum.ReadXmlChildTmpl(); -begin - if tslassigning and ifnil({self.}XmlChildTmpl) then - begin - {self.}XmlChildTmpl := new PureWVal(self, {self.}Prefix, "tmpl"); - container_.Set({self.}XmlChildTmpl); - end - return {self.}XmlChildTmpl; -end; - -function AbstractNum.ReadLvls(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "lvl", ind); -end; - -function AbstractNum.AddLvl(): Lvl; -begin - obj := new Lvl(self, {self.}Prefix, "lvl"); - container_.Insert(obj); - return obj; -end; - -function AbstractNum.AppendLvl(): Lvl; -begin - obj := new Lvl(self, {self.}Prefix, "lvl"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/AlternateContent@DOCX.tsf b/autoclass/docx/AlternateContent@DOCX.tsf deleted file mode 100644 index 86fd15f..0000000 --- a/autoclass/docx/AlternateContent@DOCX.tsf +++ /dev/null @@ -1,109 +0,0 @@ -type AlternateContent = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: AlternateContent);override; - -public - - // attributes property - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - - // normal property - property Choice read ReadXmlChildChoice; - property Fallback read ReadXmlChildFallback; - function ReadXmlChildChoice(); - function ReadXmlChildFallback(); - -public - // Attributes - XmlAttrXmlnsMc: OpenXmlAttribute; - - // Children - XmlChildChoice: Choice; - XmlChildFallback: Fallback; - -end; - -function AlternateContent.Create();overload; -begin - {self.}Create(nil, "mc", "AlternateContent"); -end; - -function AlternateContent.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function AlternateContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function AlternateContent.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - ); - sorted_child_ := array( - pre + "Choice": array(0, makeweakref(thisFunction(ReadXmlChildChoice))), - pre + "Fallback": array(1, makeweakref(thisFunction(ReadXmlChildFallback))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function AlternateContent.Copy(_obj: AlternateContent);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlChildChoice) then - {self.}Choice.Copy(_obj.XmlChildChoice); - if not ifnil(_obj.XmlChildFallback) then - {self.}Fallback.Copy(_obj.XmlChildFallback); - tslassigning := tslassigning_backup; -end; - -function AlternateContent.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function AlternateContent.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function AlternateContent.ReadXmlChildChoice(); -begin - if tslassigning and ifnil({self.}XmlChildChoice) then - begin - {self.}XmlChildChoice := new Choice(self, {self.}Prefix, "Choice"); - container_.Set({self.}XmlChildChoice); - end - return {self.}XmlChildChoice; -end; - -function AlternateContent.ReadXmlChildFallback(); -begin - if tslassigning and ifnil({self.}XmlChildFallback) then - begin - {self.}XmlChildFallback := new Fallback(self, {self.}Prefix, "Fallback"); - container_.Set({self.}XmlChildFallback); - end - return {self.}XmlChildFallback; -end; diff --git a/autoclass/docx/Anchor@DOCX.tsf b/autoclass/docx/Anchor@DOCX.tsf deleted file mode 100644 index b22fea5..0000000 --- a/autoclass/docx/Anchor@DOCX.tsf +++ /dev/null @@ -1,534 +0,0 @@ -type Anchor = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Anchor);override; - -public - - // attributes property - property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT; - property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB; - property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL; - property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR; - property SimplePos read ReadXmlAttrSimplePos write WriteXmlAttrSimplePos; - property RelativeHeight read ReadXmlAttrRelativeHeight write WriteXmlAttrRelativeHeight; - property BehindDoc read ReadXmlAttrBehindDoc write WriteXmlAttrBehindDoc; - property Locked read ReadXmlAttrLocked write WriteXmlAttrLocked; - property Hidden read ReadXmlAttrHidden write WriteXmlAttrHidden; - property LayoutInCell read ReadXmlAttrLayoutInCell write WriteXmlAttrLayoutInCell; - property AllowOverlap read ReadXmlAttrAllowOverlap write WriteXmlAttrAllowOverlap; - property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; - property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId; - function ReadXmlAttrDistT(); - function WriteXmlAttrDistT(_value); - function ReadXmlAttrDistB(); - function WriteXmlAttrDistB(_value); - function ReadXmlAttrDistL(); - function WriteXmlAttrDistL(_value); - function ReadXmlAttrDistR(); - function WriteXmlAttrDistR(_value); - function ReadXmlAttrSimplePos(); - function WriteXmlAttrSimplePos(_value); - function ReadXmlAttrRelativeHeight(); - function WriteXmlAttrRelativeHeight(_value); - function ReadXmlAttrBehindDoc(); - function WriteXmlAttrBehindDoc(_value); - function ReadXmlAttrLocked(); - function WriteXmlAttrLocked(_value); - function ReadXmlAttrHidden(); - function WriteXmlAttrHidden(_value); - function ReadXmlAttrLayoutInCell(); - function WriteXmlAttrLayoutInCell(_value); - function ReadXmlAttrAllowOverlap(); - function WriteXmlAttrAllowOverlap(_value); - function ReadXmlAttrAnchorId(); - function WriteXmlAttrAnchorId(_value); - function ReadXmlAttrEditId(); - function WriteXmlAttrEditId(_value); - - // empty property - property WrapNone read ReadXmlChildWrapNone write WriteXmlChildWrapNone; - function ReadXmlChildWrapNone(); - function WriteXmlChildWrapNone(_value); - - // normal property - property SimplePos read ReadXmlChildSimplePos; - property PositionH read ReadXmlChildPositionH; - property PositionV read ReadXmlChildPositionV; - property Extent read ReadXmlChildExtent; - property EffectExtent read ReadXmlChildEffectExtent; - property DocPr read ReadXmlChildDocPr; - property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr; - property Graphic read ReadXmlChildGraphic; - property SizeRelH read ReadXmlChildSizeRelH; - property SizeRelV read ReadXmlChildSizeRelV; - function ReadXmlChildSimplePos(); - function ReadXmlChildPositionH(); - function ReadXmlChildPositionV(); - function ReadXmlChildExtent(); - function ReadXmlChildEffectExtent(); - function ReadXmlChildDocPr(); - function ReadXmlChildCNvGraphicFramePr(); - function ReadXmlChildGraphic(); - function ReadXmlChildSizeRelH(); - function ReadXmlChildSizeRelV(); - -public - // Attributes - XmlAttrDistT: OpenXmlAttribute; - XmlAttrDistB: OpenXmlAttribute; - XmlAttrDistL: OpenXmlAttribute; - XmlAttrDistR: OpenXmlAttribute; - XmlAttrSimplePos: OpenXmlAttribute; - XmlAttrRelativeHeight: OpenXmlAttribute; - XmlAttrBehindDoc: OpenXmlAttribute; - XmlAttrLocked: OpenXmlAttribute; - XmlAttrHidden: OpenXmlAttribute; - XmlAttrLayoutInCell: OpenXmlAttribute; - XmlAttrAllowOverlap: OpenXmlAttribute; - XmlAttrAnchorId: OpenXmlAttribute; - XmlAttrEditId: OpenXmlAttribute; - - // Children - XmlChildSimplePos: XY; - XmlChildPositionH: PositionH; - XmlChildPositionV: PositionV; - XmlChildExtent: CXY; - XmlChildEffectExtent: EffectExtent; - XmlChildWrapNone: OpenXmlEmpty; - XmlChildDocPr: DocPr; - XmlChildCNvGraphicFramePr: CNvGraphicFramePr; - XmlChildGraphic: Graphic; - XmlChildSizeRelH: SizeRelH; - XmlChildSizeRelV: SizeRelV; - -end; - -function Anchor.Create();overload; -begin - {self.}Create(nil, "wp", "anchor"); -end; - -function Anchor.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Anchor.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Anchor.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "distT": makeweakref(thisFunction(WriteXmlAttrDistT)), - "distB": makeweakref(thisFunction(WriteXmlAttrDistB)), - "distL": makeweakref(thisFunction(WriteXmlAttrDistL)), - "distR": makeweakref(thisFunction(WriteXmlAttrDistR)), - "simplePos": makeweakref(thisFunction(WriteXmlAttrSimplePos)), - "relativeHeight": makeweakref(thisFunction(WriteXmlAttrRelativeHeight)), - "behindDoc": makeweakref(thisFunction(WriteXmlAttrBehindDoc)), - "locked": makeweakref(thisFunction(WriteXmlAttrLocked)), - "hidden": makeweakref(thisFunction(WriteXmlAttrHidden)), - "layoutInCell": makeweakref(thisFunction(WriteXmlAttrLayoutInCell)), - "allowOverlap": makeweakref(thisFunction(WriteXmlAttrAllowOverlap)), - "wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), - "wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)), - ); - sorted_child_ := array( - pre + "simplePos": array(0, makeweakref(thisFunction(ReadXmlChildSimplePos))), - pre + "positionH": array(1, makeweakref(thisFunction(ReadXmlChildPositionH))), - pre + "positionV": array(2, makeweakref(thisFunction(ReadXmlChildPositionV))), - pre + "extent": array(3, makeweakref(thisFunction(ReadXmlChildExtent))), - pre + "effectExtent": array(4, makeweakref(thisFunction(ReadXmlChildEffectExtent))), - pre + "wrapNone": array(5, makeweakref(thisFunction(ReadXmlChildWrapNone))), - pre + "docPr": array(6, makeweakref(thisFunction(ReadXmlChildDocPr))), - pre + "cNvGraphicFramePr": array(7, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))), - "a:graphic": array(8, makeweakref(thisFunction(ReadXmlChildGraphic))), - "wp14:sizeRelH": array(9, makeweakref(thisFunction(ReadXmlChildSizeRelH))), - "wp14:sizeRelV": array(10, makeweakref(thisFunction(ReadXmlChildSizeRelV))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Anchor.Copy(_obj: Anchor);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.DistT) then - {self.}DistT := _obj.DistT; - if not ifnil(_obj.DistB) then - {self.}DistB := _obj.DistB; - if not ifnil(_obj.DistL) then - {self.}DistL := _obj.DistL; - if not ifnil(_obj.DistR) then - {self.}DistR := _obj.DistR; - if not ifnil(_obj.SimplePos) then - {self.}SimplePos := _obj.SimplePos; - if not ifnil(_obj.RelativeHeight) then - {self.}RelativeHeight := _obj.RelativeHeight; - if not ifnil(_obj.BehindDoc) then - {self.}BehindDoc := _obj.BehindDoc; - if not ifnil(_obj.Locked) then - {self.}Locked := _obj.Locked; - if not ifnil(_obj.Hidden) then - {self.}Hidden := _obj.Hidden; - if not ifnil(_obj.LayoutInCell) then - {self.}LayoutInCell := _obj.LayoutInCell; - if not ifnil(_obj.AllowOverlap) then - {self.}AllowOverlap := _obj.AllowOverlap; - if not ifnil(_obj.AnchorId) then - {self.}AnchorId := _obj.AnchorId; - if not ifnil(_obj.EditId) then - {self.}EditId := _obj.EditId; - if not ifnil(_obj.XmlChildSimplePos) then - {self.}SimplePos.Copy(_obj.XmlChildSimplePos); - if not ifnil(_obj.XmlChildPositionH) then - {self.}PositionH.Copy(_obj.XmlChildPositionH); - if not ifnil(_obj.XmlChildPositionV) then - {self.}PositionV.Copy(_obj.XmlChildPositionV); - if not ifnil(_obj.XmlChildExtent) then - {self.}Extent.Copy(_obj.XmlChildExtent); - if not ifnil(_obj.XmlChildEffectExtent) then - {self.}EffectExtent.Copy(_obj.XmlChildEffectExtent); - if not ifnil(_obj.XmlChildWrapNone) then - ifnil({self.}XmlChildWrapNone) ? {self.}WrapNone.Copy(_obj.XmlChildWrapNone) : {self.}XmlChildWrapNone.Copy(_obj.XmlChildWrapNone); - if not ifnil(_obj.XmlChildDocPr) then - {self.}DocPr.Copy(_obj.XmlChildDocPr); - if not ifnil(_obj.XmlChildCNvGraphicFramePr) then - {self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr); - if not ifnil(_obj.XmlChildGraphic) then - {self.}Graphic.Copy(_obj.XmlChildGraphic); - if not ifnil(_obj.XmlChildSizeRelH) then - {self.}SizeRelH.Copy(_obj.XmlChildSizeRelH); - if not ifnil(_obj.XmlChildSizeRelV) then - {self.}SizeRelV.Copy(_obj.XmlChildSizeRelV); - tslassigning := tslassigning_backup; -end; - -function Anchor.ReadXmlAttrDistT(); -begin - return {self.}XmlAttrDistT.Value; -end; - -function Anchor.WriteXmlAttrDistT(_value); -begin - if ifnil({self.}XmlAttrDistT) then - begin - {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistT; - end - {self.}XmlAttrDistT.Value := _value; -end; - -function Anchor.ReadXmlAttrDistB(); -begin - return {self.}XmlAttrDistB.Value; -end; - -function Anchor.WriteXmlAttrDistB(_value); -begin - if ifnil({self.}XmlAttrDistB) then - begin - {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistB; - end - {self.}XmlAttrDistB.Value := _value; -end; - -function Anchor.ReadXmlAttrDistL(); -begin - return {self.}XmlAttrDistL.Value; -end; - -function Anchor.WriteXmlAttrDistL(_value); -begin - if ifnil({self.}XmlAttrDistL) then - begin - {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistL; - end - {self.}XmlAttrDistL.Value := _value; -end; - -function Anchor.ReadXmlAttrDistR(); -begin - return {self.}XmlAttrDistR.Value; -end; - -function Anchor.WriteXmlAttrDistR(_value); -begin - if ifnil({self.}XmlAttrDistR) then - begin - {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistR; - end - {self.}XmlAttrDistR.Value := _value; -end; - -function Anchor.ReadXmlAttrSimplePos(); -begin - return {self.}XmlAttrSimplePos.Value; -end; - -function Anchor.WriteXmlAttrSimplePos(_value); -begin - if ifnil({self.}XmlAttrSimplePos) then - begin - {self.}XmlAttrSimplePos := new OpenXmlAttribute("", "simplePos", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSimplePos; - end - {self.}XmlAttrSimplePos.Value := _value; -end; - -function Anchor.ReadXmlAttrRelativeHeight(); -begin - return {self.}XmlAttrRelativeHeight.Value; -end; - -function Anchor.WriteXmlAttrRelativeHeight(_value); -begin - if ifnil({self.}XmlAttrRelativeHeight) then - begin - {self.}XmlAttrRelativeHeight := new OpenXmlAttribute("", "relativeHeight", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRelativeHeight; - end - {self.}XmlAttrRelativeHeight.Value := _value; -end; - -function Anchor.ReadXmlAttrBehindDoc(); -begin - return {self.}XmlAttrBehindDoc.Value; -end; - -function Anchor.WriteXmlAttrBehindDoc(_value); -begin - if ifnil({self.}XmlAttrBehindDoc) then - begin - {self.}XmlAttrBehindDoc := new OpenXmlAttribute("", "behindDoc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBehindDoc; - end - {self.}XmlAttrBehindDoc.Value := _value; -end; - -function Anchor.ReadXmlAttrLocked(); -begin - return {self.}XmlAttrLocked.Value; -end; - -function Anchor.WriteXmlAttrLocked(_value); -begin - if ifnil({self.}XmlAttrLocked) then - begin - {self.}XmlAttrLocked := new OpenXmlAttribute("", "locked", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLocked; - end - {self.}XmlAttrLocked.Value := _value; -end; - -function Anchor.ReadXmlAttrHidden(); -begin - return {self.}XmlAttrHidden.Value; -end; - -function Anchor.WriteXmlAttrHidden(_value); -begin - if ifnil({self.}XmlAttrHidden) then - begin - {self.}XmlAttrHidden := new OpenXmlAttribute("", "hidden", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHidden; - end - {self.}XmlAttrHidden.Value := _value; -end; - -function Anchor.ReadXmlAttrLayoutInCell(); -begin - return {self.}XmlAttrLayoutInCell.Value; -end; - -function Anchor.WriteXmlAttrLayoutInCell(_value); -begin - if ifnil({self.}XmlAttrLayoutInCell) then - begin - {self.}XmlAttrLayoutInCell := new OpenXmlAttribute("", "layoutInCell", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLayoutInCell; - end - {self.}XmlAttrLayoutInCell.Value := _value; -end; - -function Anchor.ReadXmlAttrAllowOverlap(); -begin - return {self.}XmlAttrAllowOverlap.Value; -end; - -function Anchor.WriteXmlAttrAllowOverlap(_value); -begin - if ifnil({self.}XmlAttrAllowOverlap) then - begin - {self.}XmlAttrAllowOverlap := new OpenXmlAttribute("", "allowOverlap", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAllowOverlap; - end - {self.}XmlAttrAllowOverlap.Value := _value; -end; - -function Anchor.ReadXmlAttrAnchorId(); -begin - return {self.}XmlAttrAnchorId.Value; -end; - -function Anchor.WriteXmlAttrAnchorId(_value); -begin - if ifnil({self.}XmlAttrAnchorId) then - begin - {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; - end - {self.}XmlAttrAnchorId.Value := _value; -end; - -function Anchor.ReadXmlAttrEditId(); -begin - return {self.}XmlAttrEditId.Value; -end; - -function Anchor.WriteXmlAttrEditId(_value); -begin - if ifnil({self.}XmlAttrEditId) then - begin - {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEditId; - end - {self.}XmlAttrEditId.Value := _value; -end; - -function Anchor.ReadXmlChildWrapNone(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildWrapNone) then - begin - {self.}XmlChildWrapNone := new OpenXmlEmpty(self, {self.}Prefix, "wrapNone"); - container_.Set({self.}XmlChildWrapNone); - end - return {self.}XmlChildWrapNone; - end - return ifnil({self.}XmlChildWrapNone) ? nil : {self.}XmlChildWrapNone.BoolValue(); -end; - -function Anchor.WriteXmlChildWrapNone(_value); -begin - if ifnil({self.}XmlChildWrapNone) then - begin - {self.}XmlChildWrapNone := new OpenXmlEmpty(self, {self.}Prefix, "wrapNone"); - container_.Set({self.}XmlChildWrapNone); - end - {self.}XmlChildWrapNone.Value := _value; -end; - -function Anchor.ReadXmlChildSimplePos(); -begin - if tslassigning and ifnil({self.}XmlChildSimplePos) then - begin - {self.}XmlChildSimplePos := new XY(self, {self.}Prefix, "simplePos"); - container_.Set({self.}XmlChildSimplePos); - end - return {self.}XmlChildSimplePos; -end; - -function Anchor.ReadXmlChildPositionH(); -begin - if tslassigning and ifnil({self.}XmlChildPositionH) then - begin - {self.}XmlChildPositionH := new PositionH(self, {self.}Prefix, "positionH"); - container_.Set({self.}XmlChildPositionH); - end - return {self.}XmlChildPositionH; -end; - -function Anchor.ReadXmlChildPositionV(); -begin - if tslassigning and ifnil({self.}XmlChildPositionV) then - begin - {self.}XmlChildPositionV := new PositionV(self, {self.}Prefix, "positionV"); - container_.Set({self.}XmlChildPositionV); - end - return {self.}XmlChildPositionV; -end; - -function Anchor.ReadXmlChildExtent(); -begin - if tslassigning and ifnil({self.}XmlChildExtent) then - begin - {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); - container_.Set({self.}XmlChildExtent); - end - return {self.}XmlChildExtent; -end; - -function Anchor.ReadXmlChildEffectExtent(); -begin - if tslassigning and ifnil({self.}XmlChildEffectExtent) then - begin - {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); - container_.Set({self.}XmlChildEffectExtent); - end - return {self.}XmlChildEffectExtent; -end; - -function Anchor.ReadXmlChildDocPr(); -begin - if tslassigning and ifnil({self.}XmlChildDocPr) then - begin - {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); - container_.Set({self.}XmlChildDocPr); - end - return {self.}XmlChildDocPr; -end; - -function Anchor.ReadXmlChildCNvGraphicFramePr(); -begin - if tslassigning and ifnil({self.}XmlChildCNvGraphicFramePr) then - begin - {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); - container_.Set({self.}XmlChildCNvGraphicFramePr); - end - return {self.}XmlChildCNvGraphicFramePr; -end; - -function Anchor.ReadXmlChildGraphic(); -begin - if tslassigning and ifnil({self.}XmlChildGraphic) then - begin - {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); - container_.Set({self.}XmlChildGraphic); - end - return {self.}XmlChildGraphic; -end; - -function Anchor.ReadXmlChildSizeRelH(); -begin - if tslassigning and ifnil({self.}XmlChildSizeRelH) then - begin - {self.}XmlChildSizeRelH := new SizeRelH(self, "wp14", "sizeRelH"); - container_.Set({self.}XmlChildSizeRelH); - end - return {self.}XmlChildSizeRelH; -end; - -function Anchor.ReadXmlChildSizeRelV(); -begin - if tslassigning and ifnil({self.}XmlChildSizeRelV) then - begin - {self.}XmlChildSizeRelV := new SizeRelV(self, "wp14", "sizeRelV"); - container_.Set({self.}XmlChildSizeRelV); - end - return {self.}XmlChildSizeRelV; -end; diff --git a/autoclass/docx/Ap@DOCX.tsf b/autoclass/docx/Ap@DOCX.tsf deleted file mode 100644 index 91a69ca..0000000 --- a/autoclass/docx/Ap@DOCX.tsf +++ /dev/null @@ -1,111 +0,0 @@ -type Ap = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ap);override; - -public - - // normal property - property PPr read ReadXmlChildPPr; - property EndParaRPr read ReadXmlChildEndParaRPr; - function ReadXmlChildPPr(); - function ReadXmlChildEndParaRPr(); - - // multi property - property Rs read ReadRs; - function ReadRs(_index); - function AddR(): AR; - function AppendR(): AR; - -public - // Children - XmlChildPPr: APPr; - XmlChildEndParaRPr: ARPr; - -end; - -function Ap.Create();overload; -begin - {self.}Create(nil, "a", "p"); -end; - -function Ap.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ap.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), - pre + "endParaRPr": array(1, makeweakref(thisFunction(ReadXmlChildEndParaRPr))), - pre + "r": array(2, makeweakref(thisFunction(AppendR))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ap.Copy(_obj: Ap);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildPPr) then - {self.}PPr.Copy(_obj.XmlChildPPr); - if not ifnil(_obj.XmlChildEndParaRPr) then - {self.}EndParaRPr.Copy(_obj.XmlChildEndParaRPr); - tslassigning := tslassigning_backup; -end; - -function Ap.ReadXmlChildPPr(); -begin - if tslassigning and ifnil({self.}XmlChildPPr) then - begin - {self.}XmlChildPPr := new APPr(self, {self.}Prefix, "pPr"); - container_.Set({self.}XmlChildPPr); - end - return {self.}XmlChildPPr; -end; - -function Ap.ReadXmlChildEndParaRPr(); -begin - if tslassigning and ifnil({self.}XmlChildEndParaRPr) then - begin - {self.}XmlChildEndParaRPr := new ARPr(self, {self.}Prefix, "endParaRPr"); - container_.Set({self.}XmlChildEndParaRPr); - end - return {self.}XmlChildEndParaRPr; -end; - -function Ap.ReadRs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "r", ind); -end; - -function Ap.AddR(): AR; -begin - obj := new AR(self, {self.}Prefix, "r"); - container_.Insert(obj); - return obj; -end; - -function Ap.AppendR(): AR; -begin - obj := new AR(self, {self.}Prefix, "r"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Ax@DOCX.tsf b/autoclass/docx/Ax@DOCX.tsf deleted file mode 100644 index a508d07..0000000 --- a/autoclass/docx/Ax@DOCX.tsf +++ /dev/null @@ -1,323 +0,0 @@ -type Ax = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ax);override; - -public - - // normal property - property AxId read ReadXmlChildAxId; - property Scaling read ReadXmlChildScaling; - property _Delete read ReadXmlChild_Delete; - property AxPos read ReadXmlChildAxPos; - property NumFmt read ReadXmlChildNumFmt; - property MajorTickMark read ReadXmlChildMajorTickMark; - property MinorTickMark read ReadXmlChildMinorTickMark; - property TickLblPos read ReadXmlChildTickLblPos; - property SpPr read ReadXmlChildSpPr; - property TxPr read ReadXmlChildTxPr; - property CrossAx read ReadXmlChildCrossAx; - property Crosses read ReadXmlChildCrosses; - property CrossBetween read ReadXmlChildCrossBetween; - property Auto read ReadXmlChildAuto; - property LblAlgn read ReadXmlChildLblAlgn; - property LblOffset read ReadXmlChildLblOffset; - property NoMultiLvlLbl read ReadXmlChildNoMultiLvlLbl; - function ReadXmlChildAxId(); - function ReadXmlChildScaling(); - function ReadXmlChild_Delete(); - function ReadXmlChildAxPos(); - function ReadXmlChildNumFmt(); - function ReadXmlChildMajorTickMark(); - function ReadXmlChildMinorTickMark(); - function ReadXmlChildTickLblPos(); - function ReadXmlChildSpPr(); - function ReadXmlChildTxPr(); - function ReadXmlChildCrossAx(); - function ReadXmlChildCrosses(); - function ReadXmlChildCrossBetween(); - function ReadXmlChildAuto(); - function ReadXmlChildLblAlgn(); - function ReadXmlChildLblOffset(); - function ReadXmlChildNoMultiLvlLbl(); - -public - // Children - XmlChildAxId: PureVal; - XmlChildScaling: Scaling; - XmlChild_Delete: PureVal; - XmlChildAxPos: PureVal; - XmlChildNumFmt: NumFmt; - XmlChildMajorTickMark: PureVal; - XmlChildMinorTickMark: PureVal; - XmlChildTickLblPos: PureVal; - XmlChildSpPr: SpPr; - XmlChildTxPr: TxPr; - XmlChildCrossAx: PureVal; - XmlChildCrosses: PureVal; - XmlChildCrossBetween: PureVal; - XmlChildAuto: PureVal; - XmlChildLblAlgn: PureVal; - XmlChildLblOffset: PureVal; - XmlChildNoMultiLvlLbl: PureVal; - -end; - -function Ax.Create();overload; -begin - {self.}Create(nil, "c", ""); -end; - -function Ax.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ax.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ax.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "axId": array(0, makeweakref(thisFunction(ReadXmlChildAxId))), - pre + "scaling": array(1, makeweakref(thisFunction(ReadXmlChildScaling))), - pre + "delete": array(2, makeweakref(thisFunction(ReadXmlChild_Delete))), - pre + "axPos": array(3, makeweakref(thisFunction(ReadXmlChildAxPos))), - pre + "numFmt": array(4, makeweakref(thisFunction(ReadXmlChildNumFmt))), - pre + "majorTickMark": array(5, makeweakref(thisFunction(ReadXmlChildMajorTickMark))), - pre + "minorTickMark": array(6, makeweakref(thisFunction(ReadXmlChildMinorTickMark))), - pre + "tickLblPos": array(7, makeweakref(thisFunction(ReadXmlChildTickLblPos))), - pre + "spPr": array(8, makeweakref(thisFunction(ReadXmlChildSpPr))), - pre + "txPr": array(9, makeweakref(thisFunction(ReadXmlChildTxPr))), - pre + "crossAx": array(10, makeweakref(thisFunction(ReadXmlChildCrossAx))), - pre + "crosses": array(11, makeweakref(thisFunction(ReadXmlChildCrosses))), - pre + "crossBetween": array(12, makeweakref(thisFunction(ReadXmlChildCrossBetween))), - pre + "auto": array(13, makeweakref(thisFunction(ReadXmlChildAuto))), - pre + "lblAlgn": array(14, makeweakref(thisFunction(ReadXmlChildLblAlgn))), - pre + "lblOffset": array(15, makeweakref(thisFunction(ReadXmlChildLblOffset))), - pre + "noMultiLvlLbl": array(16, makeweakref(thisFunction(ReadXmlChildNoMultiLvlLbl))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ax.Copy(_obj: Ax);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildAxId) then - {self.}AxId.Copy(_obj.XmlChildAxId); - if not ifnil(_obj.XmlChildScaling) then - {self.}Scaling.Copy(_obj.XmlChildScaling); - if not ifnil(_obj.XmlChild_Delete) then - {self.}_Delete.Copy(_obj.XmlChild_Delete); - if not ifnil(_obj.XmlChildAxPos) then - {self.}AxPos.Copy(_obj.XmlChildAxPos); - if not ifnil(_obj.XmlChildNumFmt) then - {self.}NumFmt.Copy(_obj.XmlChildNumFmt); - if not ifnil(_obj.XmlChildMajorTickMark) then - {self.}MajorTickMark.Copy(_obj.XmlChildMajorTickMark); - if not ifnil(_obj.XmlChildMinorTickMark) then - {self.}MinorTickMark.Copy(_obj.XmlChildMinorTickMark); - if not ifnil(_obj.XmlChildTickLblPos) then - {self.}TickLblPos.Copy(_obj.XmlChildTickLblPos); - if not ifnil(_obj.XmlChildSpPr) then - {self.}SpPr.Copy(_obj.XmlChildSpPr); - if not ifnil(_obj.XmlChildTxPr) then - {self.}TxPr.Copy(_obj.XmlChildTxPr); - if not ifnil(_obj.XmlChildCrossAx) then - {self.}CrossAx.Copy(_obj.XmlChildCrossAx); - if not ifnil(_obj.XmlChildCrosses) then - {self.}Crosses.Copy(_obj.XmlChildCrosses); - if not ifnil(_obj.XmlChildCrossBetween) then - {self.}CrossBetween.Copy(_obj.XmlChildCrossBetween); - if not ifnil(_obj.XmlChildAuto) then - {self.}Auto.Copy(_obj.XmlChildAuto); - if not ifnil(_obj.XmlChildLblAlgn) then - {self.}LblAlgn.Copy(_obj.XmlChildLblAlgn); - if not ifnil(_obj.XmlChildLblOffset) then - {self.}LblOffset.Copy(_obj.XmlChildLblOffset); - if not ifnil(_obj.XmlChildNoMultiLvlLbl) then - {self.}NoMultiLvlLbl.Copy(_obj.XmlChildNoMultiLvlLbl); - tslassigning := tslassigning_backup; -end; - -function Ax.ReadXmlChildAxId(); -begin - if tslassigning and ifnil({self.}XmlChildAxId) then - begin - {self.}XmlChildAxId := new PureVal(self, {self.}Prefix, "axId"); - container_.Set({self.}XmlChildAxId); - end - return {self.}XmlChildAxId; -end; - -function Ax.ReadXmlChildScaling(); -begin - if tslassigning and ifnil({self.}XmlChildScaling) then - begin - {self.}XmlChildScaling := new Scaling(self, {self.}Prefix, "scaling"); - container_.Set({self.}XmlChildScaling); - end - return {self.}XmlChildScaling; -end; - -function Ax.ReadXmlChild_Delete(); -begin - if tslassigning and ifnil({self.}XmlChild_Delete) then - begin - {self.}XmlChild_Delete := new PureVal(self, {self.}Prefix, "delete"); - container_.Set({self.}XmlChild_Delete); - end - return {self.}XmlChild_Delete; -end; - -function Ax.ReadXmlChildAxPos(); -begin - if tslassigning and ifnil({self.}XmlChildAxPos) then - begin - {self.}XmlChildAxPos := new PureVal(self, {self.}Prefix, "axPos"); - container_.Set({self.}XmlChildAxPos); - end - return {self.}XmlChildAxPos; -end; - -function Ax.ReadXmlChildNumFmt(); -begin - if tslassigning and ifnil({self.}XmlChildNumFmt) then - begin - {self.}XmlChildNumFmt := new NumFmt(self, {self.}Prefix, "numFmt"); - container_.Set({self.}XmlChildNumFmt); - end - return {self.}XmlChildNumFmt; -end; - -function Ax.ReadXmlChildMajorTickMark(); -begin - if tslassigning and ifnil({self.}XmlChildMajorTickMark) then - begin - {self.}XmlChildMajorTickMark := new PureVal(self, {self.}Prefix, "majorTickMark"); - container_.Set({self.}XmlChildMajorTickMark); - end - return {self.}XmlChildMajorTickMark; -end; - -function Ax.ReadXmlChildMinorTickMark(); -begin - if tslassigning and ifnil({self.}XmlChildMinorTickMark) then - begin - {self.}XmlChildMinorTickMark := new PureVal(self, {self.}Prefix, "minorTickMark"); - container_.Set({self.}XmlChildMinorTickMark); - end - return {self.}XmlChildMinorTickMark; -end; - -function Ax.ReadXmlChildTickLblPos(); -begin - if tslassigning and ifnil({self.}XmlChildTickLblPos) then - begin - {self.}XmlChildTickLblPos := new PureVal(self, {self.}Prefix, "tickLblPos"); - container_.Set({self.}XmlChildTickLblPos); - end - return {self.}XmlChildTickLblPos; -end; - -function Ax.ReadXmlChildSpPr(); -begin - if tslassigning and ifnil({self.}XmlChildSpPr) then - begin - {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); - container_.Set({self.}XmlChildSpPr); - end - return {self.}XmlChildSpPr; -end; - -function Ax.ReadXmlChildTxPr(); -begin - if tslassigning and ifnil({self.}XmlChildTxPr) then - begin - {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); - container_.Set({self.}XmlChildTxPr); - end - return {self.}XmlChildTxPr; -end; - -function Ax.ReadXmlChildCrossAx(); -begin - if tslassigning and ifnil({self.}XmlChildCrossAx) then - begin - {self.}XmlChildCrossAx := new PureVal(self, {self.}Prefix, "crossAx"); - container_.Set({self.}XmlChildCrossAx); - end - return {self.}XmlChildCrossAx; -end; - -function Ax.ReadXmlChildCrosses(); -begin - if tslassigning and ifnil({self.}XmlChildCrosses) then - begin - {self.}XmlChildCrosses := new PureVal(self, {self.}Prefix, "crosses"); - container_.Set({self.}XmlChildCrosses); - end - return {self.}XmlChildCrosses; -end; - -function Ax.ReadXmlChildCrossBetween(); -begin - if tslassigning and ifnil({self.}XmlChildCrossBetween) then - begin - {self.}XmlChildCrossBetween := new PureVal(self, {self.}Prefix, "crossBetween"); - container_.Set({self.}XmlChildCrossBetween); - end - return {self.}XmlChildCrossBetween; -end; - -function Ax.ReadXmlChildAuto(); -begin - if tslassigning and ifnil({self.}XmlChildAuto) then - begin - {self.}XmlChildAuto := new PureVal(self, {self.}Prefix, "auto"); - container_.Set({self.}XmlChildAuto); - end - return {self.}XmlChildAuto; -end; - -function Ax.ReadXmlChildLblAlgn(); -begin - if tslassigning and ifnil({self.}XmlChildLblAlgn) then - begin - {self.}XmlChildLblAlgn := new PureVal(self, {self.}Prefix, "lblAlgn"); - container_.Set({self.}XmlChildLblAlgn); - end - return {self.}XmlChildLblAlgn; -end; - -function Ax.ReadXmlChildLblOffset(); -begin - if tslassigning and ifnil({self.}XmlChildLblOffset) then - begin - {self.}XmlChildLblOffset := new PureVal(self, {self.}Prefix, "lblOffset"); - container_.Set({self.}XmlChildLblOffset); - end - return {self.}XmlChildLblOffset; -end; - -function Ax.ReadXmlChildNoMultiLvlLbl(); -begin - if tslassigning and ifnil({self.}XmlChildNoMultiLvlLbl) then - begin - {self.}XmlChildNoMultiLvlLbl := new PureVal(self, {self.}Prefix, "noMultiLvlLbl"); - container_.Set({self.}XmlChildNoMultiLvlLbl); - end - return {self.}XmlChildNoMultiLvlLbl; -end; diff --git a/autoclass/docx/BarChart@DOCX.tsf b/autoclass/docx/BarChart@DOCX.tsf deleted file mode 100644 index 2874fa2..0000000 --- a/autoclass/docx/BarChart@DOCX.tsf +++ /dev/null @@ -1,169 +0,0 @@ -type BarChart = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: BarChart);override; - -public - - // normal property - property BarDir read ReadXmlChildBarDir; - property Grouping read ReadXmlChildGrouping; - property VaryColors read ReadXmlChildVaryColors; - property GapWidth read ReadXmlChildGapWidth; - function ReadXmlChildBarDir(); - function ReadXmlChildGrouping(); - function ReadXmlChildVaryColors(); - function ReadXmlChildGapWidth(); - - // multi property - property Sers read ReadSers; - property AxIds read ReadAxIds; - function ReadSers(_index); - function ReadAxIds(_index); - function AddSer(): Ser; - function AddAxId(): PureVal; - function AppendSer(): Ser; - function AppendAxId(): PureVal; - -public - // Children - XmlChildBarDir: PureVal; - XmlChildGrouping: PureVal; - XmlChildVaryColors: PureVal; - XmlChildGapWidth: PureVal; - -end; - -function BarChart.Create();overload; -begin - {self.}Create(nil, "c", "barChart"); -end; - -function BarChart.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function BarChart.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function BarChart.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "barDir": array(0, makeweakref(thisFunction(ReadXmlChildBarDir))), - pre + "grouping": array(1, makeweakref(thisFunction(ReadXmlChildGrouping))), - pre + "varyColors": array(2, makeweakref(thisFunction(ReadXmlChildVaryColors))), - pre + "ser": array(3, makeweakref(thisFunction(AppendSer))), - pre + "gapWidth": array(4, makeweakref(thisFunction(ReadXmlChildGapWidth))), - pre + "axId": array(5, makeweakref(thisFunction(AppendAxId))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function BarChart.Copy(_obj: BarChart);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildBarDir) then - {self.}BarDir.Copy(_obj.XmlChildBarDir); - if not ifnil(_obj.XmlChildGrouping) then - {self.}Grouping.Copy(_obj.XmlChildGrouping); - if not ifnil(_obj.XmlChildVaryColors) then - {self.}VaryColors.Copy(_obj.XmlChildVaryColors); - if not ifnil(_obj.XmlChildGapWidth) then - {self.}GapWidth.Copy(_obj.XmlChildGapWidth); - tslassigning := tslassigning_backup; -end; - -function BarChart.ReadXmlChildBarDir(); -begin - if tslassigning and ifnil({self.}XmlChildBarDir) then - begin - {self.}XmlChildBarDir := new PureVal(self, {self.}Prefix, "barDir"); - container_.Set({self.}XmlChildBarDir); - end - return {self.}XmlChildBarDir; -end; - -function BarChart.ReadXmlChildGrouping(); -begin - if tslassigning and ifnil({self.}XmlChildGrouping) then - begin - {self.}XmlChildGrouping := new PureVal(self, {self.}Prefix, "grouping"); - container_.Set({self.}XmlChildGrouping); - end - return {self.}XmlChildGrouping; -end; - -function BarChart.ReadXmlChildVaryColors(); -begin - if tslassigning and ifnil({self.}XmlChildVaryColors) then - begin - {self.}XmlChildVaryColors := new PureVal(self, {self.}Prefix, "varyColors"); - container_.Set({self.}XmlChildVaryColors); - end - return {self.}XmlChildVaryColors; -end; - -function BarChart.ReadXmlChildGapWidth(); -begin - if tslassigning and ifnil({self.}XmlChildGapWidth) then - begin - {self.}XmlChildGapWidth := new PureVal(self, {self.}Prefix, "gapWidth"); - container_.Set({self.}XmlChildGapWidth); - end - return {self.}XmlChildGapWidth; -end; - -function BarChart.ReadSers(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "ser", ind); -end; - -function BarChart.ReadAxIds(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "axId", ind); -end; - -function BarChart.AddSer(): Ser; -begin - obj := new Ser(self, {self.}Prefix, "ser"); - container_.Insert(obj); - return obj; -end; - -function BarChart.AddAxId(): PureVal; -begin - obj := new PureVal(self, {self.}Prefix, "axId"); - container_.Insert(obj); - return obj; -end; - -function BarChart.AppendSer(): Ser; -begin - obj := new Ser(self, {self.}Prefix, "ser"); - container_.Append(obj); - return obj; -end; - -function BarChart.AppendAxId(): PureVal; -begin - obj := new PureVal(self, {self.}Prefix, "axId"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Blip@DOCX.tsf b/autoclass/docx/Blip@DOCX.tsf deleted file mode 100644 index d45c646..0000000 --- a/autoclass/docx/Blip@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Blip = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Blip);override; - -public - - // attributes property - property Embed read ReadXmlAttrEmbed write WriteXmlAttrEmbed; - property Cstate read ReadXmlAttrCstate write WriteXmlAttrCstate; - function ReadXmlAttrEmbed(); - function WriteXmlAttrEmbed(_value); - function ReadXmlAttrCstate(); - function WriteXmlAttrCstate(_value); - -public - // Attributes - XmlAttrEmbed: OpenXmlAttribute; - XmlAttrCstate: OpenXmlAttribute; - - -end; - -function Blip.Create();overload; -begin - {self.}Create(nil, "a", "blip"); -end; - -function Blip.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Blip.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Blip.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "r:embed": makeweakref(thisFunction(WriteXmlAttrEmbed)), - "cstate": makeweakref(thisFunction(WriteXmlAttrCstate)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Blip.Copy(_obj: Blip);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Embed) then - {self.}Embed := _obj.Embed; - if not ifnil(_obj.Cstate) then - {self.}Cstate := _obj.Cstate; - tslassigning := tslassigning_backup; -end; - -function Blip.ReadXmlAttrEmbed(); -begin - return {self.}XmlAttrEmbed.Value; -end; - -function Blip.WriteXmlAttrEmbed(_value); -begin - if ifnil({self.}XmlAttrEmbed) then - begin - {self.}XmlAttrEmbed := new OpenXmlAttribute("r", "embed", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEmbed; - end - {self.}XmlAttrEmbed.Value := _value; -end; - -function Blip.ReadXmlAttrCstate(); -begin - return {self.}XmlAttrCstate.Value; -end; - -function Blip.WriteXmlAttrCstate(_value); -begin - if ifnil({self.}XmlAttrCstate) then - begin - {self.}XmlAttrCstate := new OpenXmlAttribute("", "cstate", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCstate; - end - {self.}XmlAttrCstate.Value := _value; -end; diff --git a/autoclass/docx/BlipFill@DOCX.tsf b/autoclass/docx/BlipFill@DOCX.tsf deleted file mode 100644 index 8fa03a9..0000000 --- a/autoclass/docx/BlipFill@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type BlipFill = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: BlipFill);override; - -public - - // normal property - property Blip read ReadXmlChildBlip; - property Stretch read ReadXmlChildStretch; - function ReadXmlChildBlip(); - function ReadXmlChildStretch(); - -public - // Children - XmlChildBlip: Blip; - XmlChildStretch: Stretch; - -end; - -function BlipFill.Create();overload; -begin - {self.}Create(nil, "pic", "blipFill"); -end; - -function BlipFill.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function BlipFill.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function BlipFill.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "a:blip": array(0, makeweakref(thisFunction(ReadXmlChildBlip))), - "a:stretch": array(1, makeweakref(thisFunction(ReadXmlChildStretch))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function BlipFill.Copy(_obj: BlipFill);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildBlip) then - {self.}Blip.Copy(_obj.XmlChildBlip); - if not ifnil(_obj.XmlChildStretch) then - {self.}Stretch.Copy(_obj.XmlChildStretch); - tslassigning := tslassigning_backup; -end; - -function BlipFill.ReadXmlChildBlip(); -begin - if tslassigning and ifnil({self.}XmlChildBlip) then - begin - {self.}XmlChildBlip := new Blip(self, "a", "blip"); - container_.Set({self.}XmlChildBlip); - end - return {self.}XmlChildBlip; -end; - -function BlipFill.ReadXmlChildStretch(); -begin - if tslassigning and ifnil({self.}XmlChildStretch) then - begin - {self.}XmlChildStretch := new Stretch(self, "a", "stretch"); - container_.Set({self.}XmlChildStretch); - end - return {self.}XmlChildStretch; -end; diff --git a/autoclass/docx/Body@DOCX.tsf b/autoclass/docx/Body@DOCX.tsf deleted file mode 100644 index 928e2d4..0000000 --- a/autoclass/docx/Body@DOCX.tsf +++ /dev/null @@ -1,147 +0,0 @@ -type Body = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Body);override; - -public - - // normal property - property SectPr read ReadXmlChildSectPr; - function ReadXmlChildSectPr(); - - // multi property - property Ps read ReadPs; - property Tbls read ReadTbls; - property Sdts read ReadSdts; - function ReadPs(_index); - function ReadTbls(_index); - function ReadSdts(_index); - function AddP(): P; - function AddTbl(): Tbl; - function AddSdt(): Sdt; - function AppendP(): P; - function AppendTbl(): Tbl; - function AppendSdt(): Sdt; - -public - // Children - XmlChildSectPr: SectPr; - -end; - -function Body.Create();overload; -begin - {self.}Create(nil, "w", "body"); -end; - -function Body.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Body.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Body.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - pre + "tbl": array(1, makeweakref(thisFunction(AppendTbl))), - pre + "sdt": array(2, makeweakref(thisFunction(AppendSdt))), - pre + "sectPr": array(-1, makeweakref(thisFunction(ReadXmlChildSectPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Body.Copy(_obj: Body);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSectPr) then - {self.}SectPr.Copy(_obj.XmlChildSectPr); - tslassigning := tslassigning_backup; -end; - -function Body.ReadXmlChildSectPr(); -begin - if tslassigning and ifnil({self.}XmlChildSectPr) then - begin - {self.}XmlChildSectPr := new SectPr(self, {self.}Prefix, "sectPr"); - container_.Append({self.}XmlChildSectPr); - end - return {self.}XmlChildSectPr; -end; - -function Body.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function Body.ReadTbls(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "tbl", ind); -end; - -function Body.ReadSdts(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "sdt", ind); -end; - -function Body.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function Body.AddTbl(): Tbl; -begin - obj := new Tbl(self, {self.}Prefix, "tbl"); - container_.Insert(obj); - return obj; -end; - -function Body.AddSdt(): Sdt; -begin - obj := new Sdt(self, {self.}Prefix, "sdt"); - container_.Insert(obj); - return obj; -end; - -function Body.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; - -function Body.AppendTbl(): Tbl; -begin - obj := new Tbl(self, {self.}Prefix, "tbl"); - container_.Append(obj); - return obj; -end; - -function Body.AppendSdt(): Sdt; -begin - obj := new Sdt(self, {self.}Prefix, "sdt"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/BodyPr@DOCX.tsf b/autoclass/docx/BodyPr@DOCX.tsf deleted file mode 100644 index 1c10ba0..0000000 --- a/autoclass/docx/BodyPr@DOCX.tsf +++ /dev/null @@ -1,500 +0,0 @@ -type BodyPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: BodyPr);override; - -public - - // attributes property - property Rot read ReadXmlAttrRot write WriteXmlAttrRot; - property SpcFirstLastPara read ReadXmlAttrSpcFirstLastPara write WriteXmlAttrSpcFirstLastPara; - property VertOverflow read ReadXmlAttrVertOverflow write WriteXmlAttrVertOverflow; - property HorzOverflow read ReadXmlAttrHorzOverflow write WriteXmlAttrHorzOverflow; - property Vert read ReadXmlAttrVert write WriteXmlAttrVert; - property Wrap read ReadXmlAttrWrap write WriteXmlAttrWrap; - property LIns read ReadXmlAttrLIns write WriteXmlAttrLIns; - property TIns read ReadXmlAttrTIns write WriteXmlAttrTIns; - property RIns read ReadXmlAttrRIns write WriteXmlAttrRIns; - property BIns read ReadXmlAttrBIns write WriteXmlAttrBIns; - property NumCol read ReadXmlAttrNumCol write WriteXmlAttrNumCol; - property SpcCol read ReadXmlAttrSpcCol write WriteXmlAttrSpcCol; - property RtlCol read ReadXmlAttrRtlCol write WriteXmlAttrRtlCol; - property FromWordArt read ReadXmlAttrFromWordArt write WriteXmlAttrFromWordArt; - property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; - property AnchorCtr read ReadXmlAttrAnchorCtr write WriteXmlAttrAnchorCtr; - property ForceAA read ReadXmlAttrForceAA write WriteXmlAttrForceAA; - property CompatLnSpc read ReadXmlAttrCompatLnSpc write WriteXmlAttrCompatLnSpc; - function ReadXmlAttrRot(); - function WriteXmlAttrRot(_value); - function ReadXmlAttrSpcFirstLastPara(); - function WriteXmlAttrSpcFirstLastPara(_value); - function ReadXmlAttrVertOverflow(); - function WriteXmlAttrVertOverflow(_value); - function ReadXmlAttrHorzOverflow(); - function WriteXmlAttrHorzOverflow(_value); - function ReadXmlAttrVert(); - function WriteXmlAttrVert(_value); - function ReadXmlAttrWrap(); - function WriteXmlAttrWrap(_value); - function ReadXmlAttrLIns(); - function WriteXmlAttrLIns(_value); - function ReadXmlAttrTIns(); - function WriteXmlAttrTIns(_value); - function ReadXmlAttrRIns(); - function WriteXmlAttrRIns(_value); - function ReadXmlAttrBIns(); - function WriteXmlAttrBIns(_value); - function ReadXmlAttrNumCol(); - function WriteXmlAttrNumCol(_value); - function ReadXmlAttrSpcCol(); - function WriteXmlAttrSpcCol(_value); - function ReadXmlAttrRtlCol(); - function WriteXmlAttrRtlCol(_value); - function ReadXmlAttrFromWordArt(); - function WriteXmlAttrFromWordArt(_value); - function ReadXmlAttrAnchor(); - function WriteXmlAttrAnchor(_value); - function ReadXmlAttrAnchorCtr(); - function WriteXmlAttrAnchorCtr(_value); - function ReadXmlAttrForceAA(); - function WriteXmlAttrForceAA(_value); - function ReadXmlAttrCompatLnSpc(); - function WriteXmlAttrCompatLnSpc(_value); - - // empty property - property NoAutofit read ReadXmlChildNoAutofit write WriteXmlChildNoAutofit; - function ReadXmlChildNoAutofit(); - function WriteXmlChildNoAutofit(_value); - - // normal property - property PrstTxWrap read ReadXmlChildPrstTxWrap; - function ReadXmlChildPrstTxWrap(); - -public - // Attributes - XmlAttrRot: OpenXmlAttribute; - XmlAttrSpcFirstLastPara: OpenXmlAttribute; - XmlAttrVertOverflow: OpenXmlAttribute; - XmlAttrHorzOverflow: OpenXmlAttribute; - XmlAttrVert: OpenXmlAttribute; - XmlAttrWrap: OpenXmlAttribute; - XmlAttrLIns: OpenXmlAttribute; - XmlAttrTIns: OpenXmlAttribute; - XmlAttrRIns: OpenXmlAttribute; - XmlAttrBIns: OpenXmlAttribute; - XmlAttrNumCol: OpenXmlAttribute; - XmlAttrSpcCol: OpenXmlAttribute; - XmlAttrRtlCol: OpenXmlAttribute; - XmlAttrFromWordArt: OpenXmlAttribute; - XmlAttrAnchor: OpenXmlAttribute; - XmlAttrAnchorCtr: OpenXmlAttribute; - XmlAttrForceAA: OpenXmlAttribute; - XmlAttrCompatLnSpc: OpenXmlAttribute; - - // Children - XmlChildPrstTxWrap: PrstTxWrap; - XmlChildNoAutofit: OpenXmlEmpty; - -end; - -function BodyPr.Create();overload; -begin - {self.}Create(nil, "a", "bodyPr"); -end; - -function BodyPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function BodyPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function BodyPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "rot": makeweakref(thisFunction(WriteXmlAttrRot)), - "spcFirstLastPara": makeweakref(thisFunction(WriteXmlAttrSpcFirstLastPara)), - "vertOverflow": makeweakref(thisFunction(WriteXmlAttrVertOverflow)), - "horzOverflow": makeweakref(thisFunction(WriteXmlAttrHorzOverflow)), - "vert": makeweakref(thisFunction(WriteXmlAttrVert)), - "wrap": makeweakref(thisFunction(WriteXmlAttrWrap)), - "lIns": makeweakref(thisFunction(WriteXmlAttrLIns)), - "TIns": makeweakref(thisFunction(WriteXmlAttrTIns)), - "rIns": makeweakref(thisFunction(WriteXmlAttrRIns)), - "bIns": makeweakref(thisFunction(WriteXmlAttrBIns)), - "numCol": makeweakref(thisFunction(WriteXmlAttrNumCol)), - "spcCol": makeweakref(thisFunction(WriteXmlAttrSpcCol)), - "rtlCol": makeweakref(thisFunction(WriteXmlAttrRtlCol)), - "fromWordArt": makeweakref(thisFunction(WriteXmlAttrFromWordArt)), - "anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)), - "anchorCtr": makeweakref(thisFunction(WriteXmlAttrAnchorCtr)), - "forceAA": makeweakref(thisFunction(WriteXmlAttrForceAA)), - "compatLnSpc": makeweakref(thisFunction(WriteXmlAttrCompatLnSpc)), - ); - sorted_child_ := array( - "a:prstTxWrap": array(0, makeweakref(thisFunction(ReadXmlChildPrstTxWrap))), - "a:noAutofit": array(1, makeweakref(thisFunction(ReadXmlChildNoAutofit))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function BodyPr.Copy(_obj: BodyPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Rot) then - {self.}Rot := _obj.Rot; - if not ifnil(_obj.SpcFirstLastPara) then - {self.}SpcFirstLastPara := _obj.SpcFirstLastPara; - if not ifnil(_obj.VertOverflow) then - {self.}VertOverflow := _obj.VertOverflow; - if not ifnil(_obj.HorzOverflow) then - {self.}HorzOverflow := _obj.HorzOverflow; - if not ifnil(_obj.Vert) then - {self.}Vert := _obj.Vert; - if not ifnil(_obj.Wrap) then - {self.}Wrap := _obj.Wrap; - if not ifnil(_obj.LIns) then - {self.}LIns := _obj.LIns; - if not ifnil(_obj.TIns) then - {self.}TIns := _obj.TIns; - if not ifnil(_obj.RIns) then - {self.}RIns := _obj.RIns; - if not ifnil(_obj.BIns) then - {self.}BIns := _obj.BIns; - if not ifnil(_obj.NumCol) then - {self.}NumCol := _obj.NumCol; - if not ifnil(_obj.SpcCol) then - {self.}SpcCol := _obj.SpcCol; - if not ifnil(_obj.RtlCol) then - {self.}RtlCol := _obj.RtlCol; - if not ifnil(_obj.FromWordArt) then - {self.}FromWordArt := _obj.FromWordArt; - if not ifnil(_obj.Anchor) then - {self.}Anchor := _obj.Anchor; - if not ifnil(_obj.AnchorCtr) then - {self.}AnchorCtr := _obj.AnchorCtr; - if not ifnil(_obj.ForceAA) then - {self.}ForceAA := _obj.ForceAA; - if not ifnil(_obj.CompatLnSpc) then - {self.}CompatLnSpc := _obj.CompatLnSpc; - if not ifnil(_obj.XmlChildPrstTxWrap) then - {self.}PrstTxWrap.Copy(_obj.XmlChildPrstTxWrap); - if not ifnil(_obj.XmlChildNoAutofit) then - ifnil({self.}XmlChildNoAutofit) ? {self.}NoAutofit.Copy(_obj.XmlChildNoAutofit) : {self.}XmlChildNoAutofit.Copy(_obj.XmlChildNoAutofit); - tslassigning := tslassigning_backup; -end; - -function BodyPr.ReadXmlAttrRot(); -begin - return {self.}XmlAttrRot.Value; -end; - -function BodyPr.WriteXmlAttrRot(_value); -begin - if ifnil({self.}XmlAttrRot) then - begin - {self.}XmlAttrRot := new OpenXmlAttribute("", "rot", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRot; - end - {self.}XmlAttrRot.Value := _value; -end; - -function BodyPr.ReadXmlAttrSpcFirstLastPara(); -begin - return {self.}XmlAttrSpcFirstLastPara.Value; -end; - -function BodyPr.WriteXmlAttrSpcFirstLastPara(_value); -begin - if ifnil({self.}XmlAttrSpcFirstLastPara) then - begin - {self.}XmlAttrSpcFirstLastPara := new OpenXmlAttribute("", "spcFirstLastPara", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpcFirstLastPara; - end - {self.}XmlAttrSpcFirstLastPara.Value := _value; -end; - -function BodyPr.ReadXmlAttrVertOverflow(); -begin - return {self.}XmlAttrVertOverflow.Value; -end; - -function BodyPr.WriteXmlAttrVertOverflow(_value); -begin - if ifnil({self.}XmlAttrVertOverflow) then - begin - {self.}XmlAttrVertOverflow := new OpenXmlAttribute("", "vertOverflow", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVertOverflow; - end - {self.}XmlAttrVertOverflow.Value := _value; -end; - -function BodyPr.ReadXmlAttrHorzOverflow(); -begin - return {self.}XmlAttrHorzOverflow.Value; -end; - -function BodyPr.WriteXmlAttrHorzOverflow(_value); -begin - if ifnil({self.}XmlAttrHorzOverflow) then - begin - {self.}XmlAttrHorzOverflow := new OpenXmlAttribute("", "horzOverflow", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHorzOverflow; - end - {self.}XmlAttrHorzOverflow.Value := _value; -end; - -function BodyPr.ReadXmlAttrVert(); -begin - return {self.}XmlAttrVert.Value; -end; - -function BodyPr.WriteXmlAttrVert(_value); -begin - if ifnil({self.}XmlAttrVert) then - begin - {self.}XmlAttrVert := new OpenXmlAttribute("", "vert", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVert; - end - {self.}XmlAttrVert.Value := _value; -end; - -function BodyPr.ReadXmlAttrWrap(); -begin - return {self.}XmlAttrWrap.Value; -end; - -function BodyPr.WriteXmlAttrWrap(_value); -begin - if ifnil({self.}XmlAttrWrap) then - begin - {self.}XmlAttrWrap := new OpenXmlAttribute("", "wrap", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWrap; - end - {self.}XmlAttrWrap.Value := _value; -end; - -function BodyPr.ReadXmlAttrLIns(); -begin - return {self.}XmlAttrLIns.Value; -end; - -function BodyPr.WriteXmlAttrLIns(_value); -begin - if ifnil({self.}XmlAttrLIns) then - begin - {self.}XmlAttrLIns := new OpenXmlAttribute("", "lIns", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLIns; - end - {self.}XmlAttrLIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrTIns(); -begin - return {self.}XmlAttrTIns.Value; -end; - -function BodyPr.WriteXmlAttrTIns(_value); -begin - if ifnil({self.}XmlAttrTIns) then - begin - {self.}XmlAttrTIns := new OpenXmlAttribute("", "TIns", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTIns; - end - {self.}XmlAttrTIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrRIns(); -begin - return {self.}XmlAttrRIns.Value; -end; - -function BodyPr.WriteXmlAttrRIns(_value); -begin - if ifnil({self.}XmlAttrRIns) then - begin - {self.}XmlAttrRIns := new OpenXmlAttribute("", "rIns", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRIns; - end - {self.}XmlAttrRIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrBIns(); -begin - return {self.}XmlAttrBIns.Value; -end; - -function BodyPr.WriteXmlAttrBIns(_value); -begin - if ifnil({self.}XmlAttrBIns) then - begin - {self.}XmlAttrBIns := new OpenXmlAttribute("", "bIns", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBIns; - end - {self.}XmlAttrBIns.Value := _value; -end; - -function BodyPr.ReadXmlAttrNumCol(); -begin - return {self.}XmlAttrNumCol.Value; -end; - -function BodyPr.WriteXmlAttrNumCol(_value); -begin - if ifnil({self.}XmlAttrNumCol) then - begin - {self.}XmlAttrNumCol := new OpenXmlAttribute("", "numCol", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNumCol; - end - {self.}XmlAttrNumCol.Value := _value; -end; - -function BodyPr.ReadXmlAttrSpcCol(); -begin - return {self.}XmlAttrSpcCol.Value; -end; - -function BodyPr.WriteXmlAttrSpcCol(_value); -begin - if ifnil({self.}XmlAttrSpcCol) then - begin - {self.}XmlAttrSpcCol := new OpenXmlAttribute("", "spcCol", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpcCol; - end - {self.}XmlAttrSpcCol.Value := _value; -end; - -function BodyPr.ReadXmlAttrRtlCol(); -begin - return {self.}XmlAttrRtlCol.Value; -end; - -function BodyPr.WriteXmlAttrRtlCol(_value); -begin - if ifnil({self.}XmlAttrRtlCol) then - begin - {self.}XmlAttrRtlCol := new OpenXmlAttribute("", "rtlCol", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRtlCol; - end - {self.}XmlAttrRtlCol.Value := _value; -end; - -function BodyPr.ReadXmlAttrFromWordArt(); -begin - return {self.}XmlAttrFromWordArt.Value; -end; - -function BodyPr.WriteXmlAttrFromWordArt(_value); -begin - if ifnil({self.}XmlAttrFromWordArt) then - begin - {self.}XmlAttrFromWordArt := new OpenXmlAttribute("", "fromWordArt", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFromWordArt; - end - {self.}XmlAttrFromWordArt.Value := _value; -end; - -function BodyPr.ReadXmlAttrAnchor(); -begin - return {self.}XmlAttrAnchor.Value; -end; - -function BodyPr.WriteXmlAttrAnchor(_value); -begin - if ifnil({self.}XmlAttrAnchor) then - begin - {self.}XmlAttrAnchor := new OpenXmlAttribute("", "anchor", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchor; - end - {self.}XmlAttrAnchor.Value := _value; -end; - -function BodyPr.ReadXmlAttrAnchorCtr(); -begin - return {self.}XmlAttrAnchorCtr.Value; -end; - -function BodyPr.WriteXmlAttrAnchorCtr(_value); -begin - if ifnil({self.}XmlAttrAnchorCtr) then - begin - {self.}XmlAttrAnchorCtr := new OpenXmlAttribute("", "anchorCtr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchorCtr; - end - {self.}XmlAttrAnchorCtr.Value := _value; -end; - -function BodyPr.ReadXmlAttrForceAA(); -begin - return {self.}XmlAttrForceAA.Value; -end; - -function BodyPr.WriteXmlAttrForceAA(_value); -begin - if ifnil({self.}XmlAttrForceAA) then - begin - {self.}XmlAttrForceAA := new OpenXmlAttribute("", "forceAA", nil); - attributes_[length(attributes_)] := {self.}XmlAttrForceAA; - end - {self.}XmlAttrForceAA.Value := _value; -end; - -function BodyPr.ReadXmlAttrCompatLnSpc(); -begin - return {self.}XmlAttrCompatLnSpc.Value; -end; - -function BodyPr.WriteXmlAttrCompatLnSpc(_value); -begin - if ifnil({self.}XmlAttrCompatLnSpc) then - begin - {self.}XmlAttrCompatLnSpc := new OpenXmlAttribute("", "compatLnSpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCompatLnSpc; - end - {self.}XmlAttrCompatLnSpc.Value := _value; -end; - -function BodyPr.ReadXmlChildNoAutofit(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildNoAutofit) then - begin - {self.}XmlChildNoAutofit := new OpenXmlEmpty(self, "a", "noAutofit"); - container_.Set({self.}XmlChildNoAutofit); - end - return {self.}XmlChildNoAutofit; - end - return ifnil({self.}XmlChildNoAutofit) ? nil : {self.}XmlChildNoAutofit.BoolValue(); -end; - -function BodyPr.WriteXmlChildNoAutofit(_value); -begin - if ifnil({self.}XmlChildNoAutofit) then - begin - {self.}XmlChildNoAutofit := new OpenXmlEmpty(self, "a", "noAutofit"); - container_.Set({self.}XmlChildNoAutofit); - end - {self.}XmlChildNoAutofit.Value := _value; -end; - -function BodyPr.ReadXmlChildPrstTxWrap(); -begin - if tslassigning and ifnil({self.}XmlChildPrstTxWrap) then - begin - {self.}XmlChildPrstTxWrap := new PrstTxWrap(self, "a", "prstTxWrap"); - container_.Set({self.}XmlChildPrstTxWrap); - end - return {self.}XmlChildPrstTxWrap; -end; diff --git a/autoclass/docx/Bookmark@DOCX.tsf b/autoclass/docx/Bookmark@DOCX.tsf deleted file mode 100644 index 286fc26..0000000 --- a/autoclass/docx/Bookmark@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Bookmark = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Bookmark);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - - -end; - -function Bookmark.Create();overload; -begin - {self.}Create(nil, "w", ""); -end; - -function Bookmark.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Bookmark.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Bookmark.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), - pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Bookmark.Copy(_obj: Bookmark);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function Bookmark.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function Bookmark.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function Bookmark.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Bookmark.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; diff --git a/autoclass/docx/Br@DOCX.tsf b/autoclass/docx/Br@DOCX.tsf deleted file mode 100644 index 6bec183..0000000 --- a/autoclass/docx/Br@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type Br = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Br);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - - -end; - -function Br.Create();overload; -begin - {self.}Create(nil, "w", "br"); -end; - -function Br.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Br.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Br.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Br.Copy(_obj: Br);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - tslassigning := tslassigning_backup; -end; - -function Br.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function Br.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; diff --git a/autoclass/docx/CNvGraphicFramePr@DOCX.tsf b/autoclass/docx/CNvGraphicFramePr@DOCX.tsf deleted file mode 100644 index 595d73b..0000000 --- a/autoclass/docx/CNvGraphicFramePr@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type CNvGraphicFramePr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CNvGraphicFramePr);override; - -public - - // normal property - property GraphicFrameLocks read ReadXmlChildGraphicFrameLocks; - function ReadXmlChildGraphicFrameLocks(); - -public - // Children - XmlChildGraphicFrameLocks: GraphicFrameLocks; - -end; - -function CNvGraphicFramePr.Create();overload; -begin - {self.}Create(nil, "w", "cNvGraphicFramePr"); -end; - -function CNvGraphicFramePr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CNvGraphicFramePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CNvGraphicFramePr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "graphicFrameLocks": array(0, makeweakref(thisFunction(ReadXmlChildGraphicFrameLocks))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CNvGraphicFramePr.Copy(_obj: CNvGraphicFramePr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildGraphicFrameLocks) then - {self.}GraphicFrameLocks.Copy(_obj.XmlChildGraphicFrameLocks); - tslassigning := tslassigning_backup; -end; - -function CNvGraphicFramePr.ReadXmlChildGraphicFrameLocks(); -begin - if tslassigning and ifnil({self.}XmlChildGraphicFrameLocks) then - begin - {self.}XmlChildGraphicFrameLocks := new GraphicFrameLocks(self, {self.}Prefix, "graphicFrameLocks"); - container_.Set({self.}XmlChildGraphicFrameLocks); - end - return {self.}XmlChildGraphicFrameLocks; -end; diff --git a/autoclass/docx/CNvPicPr@DOCX.tsf b/autoclass/docx/CNvPicPr@DOCX.tsf deleted file mode 100644 index 6c42ccd..0000000 --- a/autoclass/docx/CNvPicPr@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type CNvPicPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CNvPicPr);override; - -public - - // normal property - property PicLocks read ReadXmlChildPicLocks; - function ReadXmlChildPicLocks(); - -public - // Children - XmlChildPicLocks: PicLocks; - -end; - -function CNvPicPr.Create();overload; -begin - {self.}Create(nil, "pic", "cNvPicPr"); -end; - -function CNvPicPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CNvPicPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CNvPicPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "a:picLocks": array(0, makeweakref(thisFunction(ReadXmlChildPicLocks))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CNvPicPr.Copy(_obj: CNvPicPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildPicLocks) then - {self.}PicLocks.Copy(_obj.XmlChildPicLocks); - tslassigning := tslassigning_backup; -end; - -function CNvPicPr.ReadXmlChildPicLocks(); -begin - if tslassigning and ifnil({self.}XmlChildPicLocks) then - begin - {self.}XmlChildPicLocks := new PicLocks(self, "a", "picLocks"); - container_.Set({self.}XmlChildPicLocks); - end - return {self.}XmlChildPicLocks; -end; diff --git a/autoclass/docx/CNvPr@DOCX.tsf b/autoclass/docx/CNvPr@DOCX.tsf deleted file mode 100644 index 36971c0..0000000 --- a/autoclass/docx/CNvPr@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type CNvPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CNvPr);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Name read ReadXmlAttrName write WriteXmlAttrName; - property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - function ReadXmlAttrDescr(); - function WriteXmlAttrDescr(_value); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - XmlAttrName: OpenXmlAttribute; - XmlAttrDescr: OpenXmlAttribute; - - -end; - -function CNvPr.Create();overload; -begin - {self.}Create(nil, "pic", "cNvPr"); -end; - -function CNvPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CNvPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CNvPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "id": makeweakref(thisFunction(WriteXmlAttrId)), - "name": makeweakref(thisFunction(WriteXmlAttrName)), - "descr": makeweakref(thisFunction(WriteXmlAttrDescr)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CNvPr.Copy(_obj: CNvPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.Descr) then - {self.}Descr := _obj.Descr; - tslassigning := tslassigning_backup; -end; - -function CNvPr.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function CNvPr.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function CNvPr.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function CNvPr.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function CNvPr.ReadXmlAttrDescr(); -begin - return {self.}XmlAttrDescr.Value; -end; - -function CNvPr.WriteXmlAttrDescr(_value); -begin - if ifnil({self.}XmlAttrDescr) then - begin - {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDescr; - end - {self.}XmlAttrDescr.Value := _value; -end; diff --git a/autoclass/docx/CNvSpPr@DOCX.tsf b/autoclass/docx/CNvSpPr@DOCX.tsf deleted file mode 100644 index 935b289..0000000 --- a/autoclass/docx/CNvSpPr@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type CNvSpPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CNvSpPr);override; - -public - - // attributes property - property TxBox read ReadXmlAttrTxBox write WriteXmlAttrTxBox; - function ReadXmlAttrTxBox(); - function WriteXmlAttrTxBox(_value); - - // normal property - property SpLocks read ReadXmlChildSpLocks; - function ReadXmlChildSpLocks(); - -public - // Attributes - XmlAttrTxBox: OpenXmlAttribute; - - // Children - XmlChildSpLocks: SpLocks; - -end; - -function CNvSpPr.Create();overload; -begin - {self.}Create(nil, "wps", "cNvSpPr"); -end; - -function CNvSpPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CNvSpPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CNvSpPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "txBox": makeweakref(thisFunction(WriteXmlAttrTxBox)), - ); - sorted_child_ := array( - "a:spLocks": array(0, makeweakref(thisFunction(ReadXmlChildSpLocks))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CNvSpPr.Copy(_obj: CNvSpPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.TxBox) then - {self.}TxBox := _obj.TxBox; - if not ifnil(_obj.XmlChildSpLocks) then - {self.}SpLocks.Copy(_obj.XmlChildSpLocks); - tslassigning := tslassigning_backup; -end; - -function CNvSpPr.ReadXmlAttrTxBox(); -begin - return {self.}XmlAttrTxBox.Value; -end; - -function CNvSpPr.WriteXmlAttrTxBox(_value); -begin - if ifnil({self.}XmlAttrTxBox) then - begin - {self.}XmlAttrTxBox := new OpenXmlAttribute("", "txBox", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTxBox; - end - {self.}XmlAttrTxBox.Value := _value; -end; - -function CNvSpPr.ReadXmlChildSpLocks(); -begin - if tslassigning and ifnil({self.}XmlChildSpLocks) then - begin - {self.}XmlChildSpLocks := new SpLocks(self, "a", "spLocks"); - container_.Set({self.}XmlChildSpLocks); - end - return {self.}XmlChildSpLocks; -end; diff --git a/autoclass/docx/CXY@DOCX.tsf b/autoclass/docx/CXY@DOCX.tsf deleted file mode 100644 index a6be2d5..0000000 --- a/autoclass/docx/CXY@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type CXY = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CXY);override; - -public - - // attributes property - property Cx read ReadXmlAttrCx write WriteXmlAttrCx; - property Cy read ReadXmlAttrCy write WriteXmlAttrCy; - function ReadXmlAttrCx(); - function WriteXmlAttrCx(_value); - function ReadXmlAttrCy(); - function WriteXmlAttrCy(_value); - -public - // Attributes - XmlAttrCx: OpenXmlAttribute; - XmlAttrCy: OpenXmlAttribute; - - -end; - -function CXY.Create();overload; -begin - {self.}Create(nil, "", ""); -end; - -function CXY.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CXY.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CXY.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "cx": makeweakref(thisFunction(WriteXmlAttrCx)), - "cy": makeweakref(thisFunction(WriteXmlAttrCy)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CXY.Copy(_obj: CXY);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Cx) then - {self.}Cx := _obj.Cx; - if not ifnil(_obj.Cy) then - {self.}Cy := _obj.Cy; - tslassigning := tslassigning_backup; -end; - -function CXY.ReadXmlAttrCx(); -begin - return {self.}XmlAttrCx.Value; -end; - -function CXY.WriteXmlAttrCx(_value); -begin - if ifnil({self.}XmlAttrCx) then - begin - {self.}XmlAttrCx := new OpenXmlAttribute("", "cx", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCx; - end - {self.}XmlAttrCx.Value := _value; -end; - -function CXY.ReadXmlAttrCy(); -begin - return {self.}XmlAttrCy.Value; -end; - -function CXY.WriteXmlAttrCy(_value); -begin - if ifnil({self.}XmlAttrCy) then - begin - {self.}XmlAttrCy := new OpenXmlAttribute("", "cy", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCy; - end - {self.}XmlAttrCy.Value := _value; -end; diff --git a/autoclass/docx/Cache@DOCX.tsf b/autoclass/docx/Cache@DOCX.tsf deleted file mode 100644 index 23df5f2..0000000 --- a/autoclass/docx/Cache@DOCX.tsf +++ /dev/null @@ -1,113 +0,0 @@ -type Cache = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Cache);override; - -public - - // pcdata property - property FormatCode read ReadXmlChildFormatCode; - function ReadXmlChildFormatCode(); - - // normal property - property PtCount read ReadXmlChildPtCount; - function ReadXmlChildPtCount(); - - // multi property - property Pts read ReadPts; - function ReadPts(_index); - function AddPt(): Pt; - function AppendPt(): Pt; - -public - // Children - XmlChildFormatCode: OpenXmlPcdata; - XmlChildPtCount: PureVal; - -end; - -function Cache.Create();overload; -begin - {self.}Create(nil, "c", ""); -end; - -function Cache.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Cache.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Cache.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "formatCode": array(0, makeweakref(thisFunction(ReadXmlChildFormatCode))), - pre + "ptCount": array(1, makeweakref(thisFunction(ReadXmlChildPtCount))), - pre + "pt": array(2, makeweakref(thisFunction(AppendPt))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Cache.Copy(_obj: Cache);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildFormatCode) then - {self.}FormatCode.Copy(_obj.XmlChildFormatCode); - if not ifnil(_obj.XmlChildPtCount) then - {self.}PtCount.Copy(_obj.XmlChildPtCount); - tslassigning := tslassigning_backup; -end; - -function Cache.ReadXmlChildFormatCode(); -begin - if tslassigning and ifnil({self.}XmlChildFormatCode) then - begin - {self.}XmlChildFormatCode := new OpenXmlPcdata(self, {self.}Prefix, "formatCode"); - container_.Set({self.}XmlChildFormatCode); - end - return {self.}XmlChildFormatCode; -end; - -function Cache.ReadXmlChildPtCount(); -begin - if tslassigning and ifnil({self.}XmlChildPtCount) then - begin - {self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount"); - container_.Set({self.}XmlChildPtCount); - end - return {self.}XmlChildPtCount; -end; - -function Cache.ReadPts(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "pt", ind); -end; - -function Cache.AddPt(): Pt; -begin - obj := new Pt(self, {self.}Prefix, "pt"); - container_.Insert(obj); - return obj; -end; - -function Cache.AppendPt(): Pt; -begin - obj := new Pt(self, {self.}Prefix, "pt"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Cat@DOCX.tsf b/autoclass/docx/Cat@DOCX.tsf deleted file mode 100644 index aa3bac8..0000000 --- a/autoclass/docx/Cat@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type Cat = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Cat);override; - -public - - // normal property - property StrRef read ReadXmlChildStrRef; - function ReadXmlChildStrRef(); - -public - // Children - XmlChildStrRef: StrRef; - -end; - -function Cat.Create();overload; -begin - {self.}Create(nil, "c", "cat"); -end; - -function Cat.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Cat.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Cat.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Cat.Copy(_obj: Cat);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildStrRef) then - {self.}StrRef.Copy(_obj.XmlChildStrRef); - tslassigning := tslassigning_backup; -end; - -function Cat.ReadXmlChildStrRef(); -begin - if tslassigning and ifnil({self.}XmlChildStrRef) then - begin - {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); - container_.Set({self.}XmlChildStrRef); - end - return {self.}XmlChildStrRef; -end; diff --git a/autoclass/docx/Chart@DOCX.tsf b/autoclass/docx/Chart@DOCX.tsf deleted file mode 100644 index b0cd640..0000000 --- a/autoclass/docx/Chart@DOCX.tsf +++ /dev/null @@ -1,179 +0,0 @@ -type Chart = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Chart);override; - -public - - // normal property - property Title read ReadXmlChildTitle; - property AutoTitleDeleted read ReadXmlChildAutoTitleDeleted; - property View3D read ReadXmlChildView3D; - property PlotArea read ReadXmlChildPlotArea; - property Legend read ReadXmlChildLegend; - property PlotVisOnly read ReadXmlChildPlotVisOnly; - property DispBlanksAs read ReadXmlChildDispBlanksAs; - property ShowDLblsOverMax read ReadXmlChildShowDLblsOverMax; - function ReadXmlChildTitle(); - function ReadXmlChildAutoTitleDeleted(); - function ReadXmlChildView3D(); - function ReadXmlChildPlotArea(); - function ReadXmlChildLegend(); - function ReadXmlChildPlotVisOnly(); - function ReadXmlChildDispBlanksAs(); - function ReadXmlChildShowDLblsOverMax(); - -public - // Children - XmlChildTitle: Title; - XmlChildAutoTitleDeleted: PureVal; - XmlChildView3D: View3D; - XmlChildPlotArea: PlotArea; - XmlChildLegend: Legend; - XmlChildPlotVisOnly: PureVal; - XmlChildDispBlanksAs: PureVal; - XmlChildShowDLblsOverMax: PureVal; - -end; - -function Chart.Create();overload; -begin - {self.}Create(nil, "c", "chart"); -end; - -function Chart.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Chart.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Chart.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "title": array(0, makeweakref(thisFunction(ReadXmlChildTitle))), - pre + "autoTitleDeleted": array(1, makeweakref(thisFunction(ReadXmlChildAutoTitleDeleted))), - pre + "view3D": array(2, makeweakref(thisFunction(ReadXmlChildView3D))), - pre + "plotArea": array(3, makeweakref(thisFunction(ReadXmlChildPlotArea))), - pre + "legend": array(4, makeweakref(thisFunction(ReadXmlChildLegend))), - pre + "plotVisOnly": array(5, makeweakref(thisFunction(ReadXmlChildPlotVisOnly))), - pre + "dispBlanksAs": array(6, makeweakref(thisFunction(ReadXmlChildDispBlanksAs))), - pre + "showDLblsOverMax": array(7, makeweakref(thisFunction(ReadXmlChildShowDLblsOverMax))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Chart.Copy(_obj: Chart);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTitle) then - {self.}Title.Copy(_obj.XmlChildTitle); - if not ifnil(_obj.XmlChildAutoTitleDeleted) then - {self.}AutoTitleDeleted.Copy(_obj.XmlChildAutoTitleDeleted); - if not ifnil(_obj.XmlChildView3D) then - {self.}View3D.Copy(_obj.XmlChildView3D); - if not ifnil(_obj.XmlChildPlotArea) then - {self.}PlotArea.Copy(_obj.XmlChildPlotArea); - if not ifnil(_obj.XmlChildLegend) then - {self.}Legend.Copy(_obj.XmlChildLegend); - if not ifnil(_obj.XmlChildPlotVisOnly) then - {self.}PlotVisOnly.Copy(_obj.XmlChildPlotVisOnly); - if not ifnil(_obj.XmlChildDispBlanksAs) then - {self.}DispBlanksAs.Copy(_obj.XmlChildDispBlanksAs); - if not ifnil(_obj.XmlChildShowDLblsOverMax) then - {self.}ShowDLblsOverMax.Copy(_obj.XmlChildShowDLblsOverMax); - tslassigning := tslassigning_backup; -end; - -function Chart.ReadXmlChildTitle(); -begin - if tslassigning and ifnil({self.}XmlChildTitle) then - begin - {self.}XmlChildTitle := new Title(self, {self.}Prefix, "title"); - container_.Set({self.}XmlChildTitle); - end - return {self.}XmlChildTitle; -end; - -function Chart.ReadXmlChildAutoTitleDeleted(); -begin - if tslassigning and ifnil({self.}XmlChildAutoTitleDeleted) then - begin - {self.}XmlChildAutoTitleDeleted := new PureVal(self, {self.}Prefix, "autoTitleDeleted"); - container_.Set({self.}XmlChildAutoTitleDeleted); - end - return {self.}XmlChildAutoTitleDeleted; -end; - -function Chart.ReadXmlChildView3D(); -begin - if tslassigning and ifnil({self.}XmlChildView3D) then - begin - {self.}XmlChildView3D := new View3D(self, {self.}Prefix, "view3D"); - container_.Set({self.}XmlChildView3D); - end - return {self.}XmlChildView3D; -end; - -function Chart.ReadXmlChildPlotArea(); -begin - if tslassigning and ifnil({self.}XmlChildPlotArea) then - begin - {self.}XmlChildPlotArea := new PlotArea(self, {self.}Prefix, "plotArea"); - container_.Set({self.}XmlChildPlotArea); - end - return {self.}XmlChildPlotArea; -end; - -function Chart.ReadXmlChildLegend(); -begin - if tslassigning and ifnil({self.}XmlChildLegend) then - begin - {self.}XmlChildLegend := new Legend(self, {self.}Prefix, "legend"); - container_.Set({self.}XmlChildLegend); - end - return {self.}XmlChildLegend; -end; - -function Chart.ReadXmlChildPlotVisOnly(); -begin - if tslassigning and ifnil({self.}XmlChildPlotVisOnly) then - begin - {self.}XmlChildPlotVisOnly := new PureVal(self, {self.}Prefix, "plotVisOnly"); - container_.Set({self.}XmlChildPlotVisOnly); - end - return {self.}XmlChildPlotVisOnly; -end; - -function Chart.ReadXmlChildDispBlanksAs(); -begin - if tslassigning and ifnil({self.}XmlChildDispBlanksAs) then - begin - {self.}XmlChildDispBlanksAs := new PureVal(self, {self.}Prefix, "dispBlanksAs"); - container_.Set({self.}XmlChildDispBlanksAs); - end - return {self.}XmlChildDispBlanksAs; -end; - -function Chart.ReadXmlChildShowDLblsOverMax(); -begin - if tslassigning and ifnil({self.}XmlChildShowDLblsOverMax) then - begin - {self.}XmlChildShowDLblsOverMax := new PureVal(self, {self.}Prefix, "showDLblsOverMax"); - container_.Set({self.}XmlChildShowDLblsOverMax); - end - return {self.}XmlChildShowDLblsOverMax; -end; diff --git a/autoclass/docx/ChartSpace@DOCX.tsf b/autoclass/docx/ChartSpace@DOCX.tsf deleted file mode 100644 index e9ad75b..0000000 --- a/autoclass/docx/ChartSpace@DOCX.tsf +++ /dev/null @@ -1,234 +0,0 @@ -type ChartSpace = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ChartSpace);override; - -public - - // attributes property - property XmlnsC read ReadXmlAttrXmlnsC write WriteXmlAttrXmlnsC; - property XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - function ReadXmlAttrXmlnsC(); - function WriteXmlAttrXmlnsC(_value); - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - - // empty property - property Lang read ReadXmlChildLang write WriteXmlChildLang; - function ReadXmlChildLang(); - function WriteXmlChildLang(_value); - - // normal property - property Date1904 read ReadXmlChildDate1904; - property AlternateContent read ReadXmlChildAlternateContent; - property Chart read ReadXmlChildChart; - property SpPr read ReadXmlChildSpPr; - property ExternalData read ReadXmlChildExternalData; - function ReadXmlChildDate1904(); - function ReadXmlChildAlternateContent(); - function ReadXmlChildChart(); - function ReadXmlChildSpPr(); - function ReadXmlChildExternalData(); - -public - // Attributes - XmlAttrXmlnsC: OpenXmlAttribute; - XmlAttrXmlnsA: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - - // Children - XmlChildDate1904: PureVal; - XmlChildLang: OpenXmlEmpty; - XmlChildAlternateContent: AlternateContent; - XmlChildChart: Chart; - XmlChildSpPr: SpPr; - XmlChildExternalData: ExternalData; - -end; - -function ChartSpace.Create();overload; -begin - {self.}Create(nil, "c", "chartSpace"); -end; - -function ChartSpace.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ChartSpace.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ChartSpace.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:c": makeweakref(thisFunction(WriteXmlAttrXmlnsC)), - "xmlns:a": makeweakref(thisFunction(WriteXmlAttrXmlnsA)), - "xmlns:c": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - ); - sorted_child_ := array( - pre + "date1904": array(0, makeweakref(thisFunction(ReadXmlChildDate1904))), - pre + "lang": array(1, makeweakref(thisFunction(ReadXmlChildLang))), - "mc:AlternateContent": array(2, makeweakref(thisFunction(ReadXmlChildAlternateContent))), - pre + "chart": array(3, makeweakref(thisFunction(ReadXmlChildChart))), - pre + "spPr": array(4, makeweakref(thisFunction(ReadXmlChildSpPr))), - pre + "externalData": array(5, makeweakref(thisFunction(ReadXmlChildExternalData))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ChartSpace.Copy(_obj: ChartSpace);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsC) then - {self.}XmlnsC := _obj.XmlnsC; - if not ifnil(_obj.XmlnsA) then - {self.}XmlnsA := _obj.XmlnsA; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlChildDate1904) then - {self.}Date1904.Copy(_obj.XmlChildDate1904); - if not ifnil(_obj.XmlChildLang) then - ifnil({self.}XmlChildLang) ? {self.}Lang.Copy(_obj.XmlChildLang) : {self.}XmlChildLang.Copy(_obj.XmlChildLang); - if not ifnil(_obj.XmlChildAlternateContent) then - {self.}AlternateContent.Copy(_obj.XmlChildAlternateContent); - if not ifnil(_obj.XmlChildChart) then - {self.}Chart.Copy(_obj.XmlChildChart); - if not ifnil(_obj.XmlChildSpPr) then - {self.}SpPr.Copy(_obj.XmlChildSpPr); - if not ifnil(_obj.XmlChildExternalData) then - {self.}ExternalData.Copy(_obj.XmlChildExternalData); - tslassigning := tslassigning_backup; -end; - -function ChartSpace.ReadXmlAttrXmlnsC(); -begin - return {self.}XmlAttrXmlnsC.Value; -end; - -function ChartSpace.WriteXmlAttrXmlnsC(_value); -begin - if ifnil({self.}XmlAttrXmlnsC) then - begin - {self.}XmlAttrXmlnsC := new OpenXmlAttribute("xmlns", "c", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsC; - end - {self.}XmlAttrXmlnsC.Value := _value; -end; - -function ChartSpace.ReadXmlAttrXmlnsA(); -begin - return {self.}XmlAttrXmlnsA.Value; -end; - -function ChartSpace.WriteXmlAttrXmlnsA(_value); -begin - if ifnil({self.}XmlAttrXmlnsA) then - begin - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsA; - end - {self.}XmlAttrXmlnsA.Value := _value; -end; - -function ChartSpace.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function ChartSpace.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "c", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function ChartSpace.ReadXmlChildLang(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildLang) then - begin - {self.}XmlChildLang := new OpenXmlEmpty(self, {self.}Prefix, "lang"); - container_.Set({self.}XmlChildLang); - end - return {self.}XmlChildLang; - end - return ifnil({self.}XmlChildLang) ? nil : {self.}XmlChildLang.BoolValue(); -end; - -function ChartSpace.WriteXmlChildLang(_value); -begin - if ifnil({self.}XmlChildLang) then - begin - {self.}XmlChildLang := new OpenXmlEmpty(self, {self.}Prefix, "lang"); - container_.Set({self.}XmlChildLang); - end - {self.}XmlChildLang.Value := _value; -end; - -function ChartSpace.ReadXmlChildDate1904(); -begin - if tslassigning and ifnil({self.}XmlChildDate1904) then - begin - {self.}XmlChildDate1904 := new PureVal(self, {self.}Prefix, "date1904"); - container_.Set({self.}XmlChildDate1904); - end - return {self.}XmlChildDate1904; -end; - -function ChartSpace.ReadXmlChildAlternateContent(); -begin - if tslassigning and ifnil({self.}XmlChildAlternateContent) then - begin - {self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent"); - container_.Set({self.}XmlChildAlternateContent); - end - return {self.}XmlChildAlternateContent; -end; - -function ChartSpace.ReadXmlChildChart(); -begin - if tslassigning and ifnil({self.}XmlChildChart) then - begin - {self.}XmlChildChart := new Chart(self, {self.}Prefix, "chart"); - container_.Set({self.}XmlChildChart); - end - return {self.}XmlChildChart; -end; - -function ChartSpace.ReadXmlChildSpPr(); -begin - if tslassigning and ifnil({self.}XmlChildSpPr) then - begin - {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); - container_.Set({self.}XmlChildSpPr); - end - return {self.}XmlChildSpPr; -end; - -function ChartSpace.ReadXmlChildExternalData(); -begin - if tslassigning and ifnil({self.}XmlChildExternalData) then - begin - {self.}XmlChildExternalData := new ExternalData(self, {self.}Prefix, "externalData"); - container_.Set({self.}XmlChildExternalData); - end - return {self.}XmlChildExternalData; -end; diff --git a/autoclass/docx/Choice@DOCX.tsf b/autoclass/docx/Choice@DOCX.tsf deleted file mode 100644 index f5bcce1..0000000 --- a/autoclass/docx/Choice@DOCX.tsf +++ /dev/null @@ -1,131 +0,0 @@ -type Choice = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Choice);override; - -public - - // attributes property - property Requires read ReadXmlAttrRequires write WriteXmlAttrRequires; - property XmlnsC14 read ReadXmlAttrXmlnsC14 write WriteXmlAttrXmlnsC14; - function ReadXmlAttrRequires(); - function WriteXmlAttrRequires(_value); - function ReadXmlAttrXmlnsC14(); - function WriteXmlAttrXmlnsC14(_value); - - // normal property - property Style read ReadXmlChildStyle; - property Drawing read ReadXmlChildDrawing; - function ReadXmlChildStyle(); - function ReadXmlChildDrawing(); - -public - // Attributes - XmlAttrRequires: OpenXmlAttribute; - XmlAttrXmlnsC14: OpenXmlAttribute; - - // Children - XmlChildStyle: PureVal; - XmlChildDrawing: Drawing; - -end; - -function Choice.Create();overload; -begin - {self.}Create(nil, "mc", "Choice"); -end; - -function Choice.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Choice.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Choice.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "Requires": makeweakref(thisFunction(WriteXmlAttrRequires)), - "xmlns:c14": makeweakref(thisFunction(WriteXmlAttrXmlnsC14)), - ); - sorted_child_ := array( - "c14:style": array(0, makeweakref(thisFunction(ReadXmlChildStyle))), - "w:drawing": array(1, makeweakref(thisFunction(ReadXmlChildDrawing))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Choice.Copy(_obj: Choice);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Requires) then - {self.}Requires := _obj.Requires; - if not ifnil(_obj.XmlnsC14) then - {self.}XmlnsC14 := _obj.XmlnsC14; - if not ifnil(_obj.XmlChildStyle) then - {self.}Style.Copy(_obj.XmlChildStyle); - if not ifnil(_obj.XmlChildDrawing) then - {self.}Drawing.Copy(_obj.XmlChildDrawing); - tslassigning := tslassigning_backup; -end; - -function Choice.ReadXmlAttrRequires(); -begin - return {self.}XmlAttrRequires.Value; -end; - -function Choice.WriteXmlAttrRequires(_value); -begin - if ifnil({self.}XmlAttrRequires) then - begin - {self.}XmlAttrRequires := new OpenXmlAttribute("", "Requires", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRequires; - end - {self.}XmlAttrRequires.Value := _value; -end; - -function Choice.ReadXmlAttrXmlnsC14(); -begin - return {self.}XmlAttrXmlnsC14.Value; -end; - -function Choice.WriteXmlAttrXmlnsC14(_value); -begin - if ifnil({self.}XmlAttrXmlnsC14) then - begin - {self.}XmlAttrXmlnsC14 := new OpenXmlAttribute("xmlns", "c14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsC14; - end - {self.}XmlAttrXmlnsC14.Value := _value; -end; - -function Choice.ReadXmlChildStyle(); -begin - if tslassigning and ifnil({self.}XmlChildStyle) then - begin - {self.}XmlChildStyle := new PureVal(self, "c14", "style"); - container_.Set({self.}XmlChildStyle); - end - return {self.}XmlChildStyle; -end; - -function Choice.ReadXmlChildDrawing(); -begin - if tslassigning and ifnil({self.}XmlChildDrawing) then - begin - {self.}XmlChildDrawing := new Drawing(self, "w", "drawing"); - container_.Set({self.}XmlChildDrawing); - end - return {self.}XmlChildDrawing; -end; diff --git a/autoclass/docx/Clr1@DOCX.tsf b/autoclass/docx/Clr1@DOCX.tsf deleted file mode 100644 index 45fcc43..0000000 --- a/autoclass/docx/Clr1@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type Clr1 = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Clr1);override; - -public - - // normal property - property SysClr read ReadXmlChildSysClr; - function ReadXmlChildSysClr(); - -public - // Children - XmlChildSysClr: SysClr; - -end; - -function Clr1.Create();overload; -begin - {self.}Create(nil, "a", ""); -end; - -function Clr1.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Clr1.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Clr1.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "sysClr": array(0, makeweakref(thisFunction(ReadXmlChildSysClr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Clr1.Copy(_obj: Clr1);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSysClr) then - {self.}SysClr.Copy(_obj.XmlChildSysClr); - tslassigning := tslassigning_backup; -end; - -function Clr1.ReadXmlChildSysClr(); -begin - if tslassigning and ifnil({self.}XmlChildSysClr) then - begin - {self.}XmlChildSysClr := new SysClr(self, {self.}Prefix, "sysClr"); - container_.Set({self.}XmlChildSysClr); - end - return {self.}XmlChildSysClr; -end; diff --git a/autoclass/docx/Clr2@DOCX.tsf b/autoclass/docx/Clr2@DOCX.tsf deleted file mode 100644 index d6fe8b3..0000000 --- a/autoclass/docx/Clr2@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type Clr2 = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Clr2);override; - -public - - // normal property - property SrgbClr read ReadXmlChildSrgbClr; - function ReadXmlChildSrgbClr(); - -public - // Children - XmlChildSrgbClr: SrgbClr; - -end; - -function Clr2.Create();overload; -begin - {self.}Create(nil, "a", ""); -end; - -function Clr2.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Clr2.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Clr2.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Clr2.Copy(_obj: Clr2);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSrgbClr) then - {self.}SrgbClr.Copy(_obj.XmlChildSrgbClr); - tslassigning := tslassigning_backup; -end; - -function Clr2.ReadXmlChildSrgbClr(); -begin - if tslassigning and ifnil({self.}XmlChildSrgbClr) then - begin - {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); - container_.Set({self.}XmlChildSrgbClr); - end - return {self.}XmlChildSrgbClr; -end; diff --git a/autoclass/docx/ClrScheme@DOCX.tsf b/autoclass/docx/ClrScheme@DOCX.tsf deleted file mode 100644 index aab69c8..0000000 --- a/autoclass/docx/ClrScheme@DOCX.tsf +++ /dev/null @@ -1,269 +0,0 @@ -type ClrScheme = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ClrScheme);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - - // normal property - property Dk1 read ReadXmlChildDk1; - property Lt1 read ReadXmlChildLt1; - property Dk2 read ReadXmlChildDk2; - property Lt2 read ReadXmlChildLt2; - property Accent1 read ReadXmlChildAccent1; - property Accent2 read ReadXmlChildAccent2; - property Accent3 read ReadXmlChildAccent3; - property Accent4 read ReadXmlChildAccent4; - property Accent5 read ReadXmlChildAccent5; - property Accent6 read ReadXmlChildAccent6; - property Hlink read ReadXmlChildHlink; - property FolHlink read ReadXmlChildFolHlink; - function ReadXmlChildDk1(); - function ReadXmlChildLt1(); - function ReadXmlChildDk2(); - function ReadXmlChildLt2(); - function ReadXmlChildAccent1(); - function ReadXmlChildAccent2(); - function ReadXmlChildAccent3(); - function ReadXmlChildAccent4(); - function ReadXmlChildAccent5(); - function ReadXmlChildAccent6(); - function ReadXmlChildHlink(); - function ReadXmlChildFolHlink(); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - - // Children - XmlChildDk1: Clr1; - XmlChildLt1: Clr1; - XmlChildDk2: Clr2; - XmlChildLt2: Clr2; - XmlChildAccent1: Clr2; - XmlChildAccent2: Clr2; - XmlChildAccent3: Clr2; - XmlChildAccent4: Clr2; - XmlChildAccent5: Clr2; - XmlChildAccent6: Clr2; - XmlChildHlink: Clr2; - XmlChildFolHlink: Clr2; - -end; - -function ClrScheme.Create();overload; -begin - {self.}Create(nil, "a", "clrsCheme"); -end; - -function ClrScheme.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ClrScheme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ClrScheme.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "name": makeweakref(thisFunction(WriteXmlAttrName)), - ); - sorted_child_ := array( - pre + "dk1": array(0, makeweakref(thisFunction(ReadXmlChildDk1))), - pre + "lt1": array(1, makeweakref(thisFunction(ReadXmlChildLt1))), - pre + "dk2": array(2, makeweakref(thisFunction(ReadXmlChildDk2))), - pre + "lt2": array(3, makeweakref(thisFunction(ReadXmlChildLt2))), - pre + "accent1": array(4, makeweakref(thisFunction(ReadXmlChildAccent1))), - pre + "accent2": array(5, makeweakref(thisFunction(ReadXmlChildAccent2))), - pre + "accent3": array(6, makeweakref(thisFunction(ReadXmlChildAccent3))), - pre + "accent4": array(7, makeweakref(thisFunction(ReadXmlChildAccent4))), - pre + "accent5": array(8, makeweakref(thisFunction(ReadXmlChildAccent5))), - pre + "accent6": array(9, makeweakref(thisFunction(ReadXmlChildAccent6))), - pre + "hlink": array(10, makeweakref(thisFunction(ReadXmlChildHlink))), - pre + "folHlink": array(11, makeweakref(thisFunction(ReadXmlChildFolHlink))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ClrScheme.Copy(_obj: ClrScheme);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.XmlChildDk1) then - {self.}Dk1.Copy(_obj.XmlChildDk1); - if not ifnil(_obj.XmlChildLt1) then - {self.}Lt1.Copy(_obj.XmlChildLt1); - if not ifnil(_obj.XmlChildDk2) then - {self.}Dk2.Copy(_obj.XmlChildDk2); - if not ifnil(_obj.XmlChildLt2) then - {self.}Lt2.Copy(_obj.XmlChildLt2); - if not ifnil(_obj.XmlChildAccent1) then - {self.}Accent1.Copy(_obj.XmlChildAccent1); - if not ifnil(_obj.XmlChildAccent2) then - {self.}Accent2.Copy(_obj.XmlChildAccent2); - if not ifnil(_obj.XmlChildAccent3) then - {self.}Accent3.Copy(_obj.XmlChildAccent3); - if not ifnil(_obj.XmlChildAccent4) then - {self.}Accent4.Copy(_obj.XmlChildAccent4); - if not ifnil(_obj.XmlChildAccent5) then - {self.}Accent5.Copy(_obj.XmlChildAccent5); - if not ifnil(_obj.XmlChildAccent6) then - {self.}Accent6.Copy(_obj.XmlChildAccent6); - if not ifnil(_obj.XmlChildHlink) then - {self.}Hlink.Copy(_obj.XmlChildHlink); - if not ifnil(_obj.XmlChildFolHlink) then - {self.}FolHlink.Copy(_obj.XmlChildFolHlink); - tslassigning := tslassigning_backup; -end; - -function ClrScheme.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function ClrScheme.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function ClrScheme.ReadXmlChildDk1(); -begin - if tslassigning and ifnil({self.}XmlChildDk1) then - begin - {self.}XmlChildDk1 := new Clr1(self, {self.}Prefix, "dk1"); - container_.Set({self.}XmlChildDk1); - end - return {self.}XmlChildDk1; -end; - -function ClrScheme.ReadXmlChildLt1(); -begin - if tslassigning and ifnil({self.}XmlChildLt1) then - begin - {self.}XmlChildLt1 := new Clr1(self, {self.}Prefix, "lt1"); - container_.Set({self.}XmlChildLt1); - end - return {self.}XmlChildLt1; -end; - -function ClrScheme.ReadXmlChildDk2(); -begin - if tslassigning and ifnil({self.}XmlChildDk2) then - begin - {self.}XmlChildDk2 := new Clr2(self, {self.}Prefix, "dk2"); - container_.Set({self.}XmlChildDk2); - end - return {self.}XmlChildDk2; -end; - -function ClrScheme.ReadXmlChildLt2(); -begin - if tslassigning and ifnil({self.}XmlChildLt2) then - begin - {self.}XmlChildLt2 := new Clr2(self, {self.}Prefix, "lt2"); - container_.Set({self.}XmlChildLt2); - end - return {self.}XmlChildLt2; -end; - -function ClrScheme.ReadXmlChildAccent1(); -begin - if tslassigning and ifnil({self.}XmlChildAccent1) then - begin - {self.}XmlChildAccent1 := new Clr2(self, {self.}Prefix, "accent1"); - container_.Set({self.}XmlChildAccent1); - end - return {self.}XmlChildAccent1; -end; - -function ClrScheme.ReadXmlChildAccent2(); -begin - if tslassigning and ifnil({self.}XmlChildAccent2) then - begin - {self.}XmlChildAccent2 := new Clr2(self, {self.}Prefix, "accent2"); - container_.Set({self.}XmlChildAccent2); - end - return {self.}XmlChildAccent2; -end; - -function ClrScheme.ReadXmlChildAccent3(); -begin - if tslassigning and ifnil({self.}XmlChildAccent3) then - begin - {self.}XmlChildAccent3 := new Clr2(self, {self.}Prefix, "accent3"); - container_.Set({self.}XmlChildAccent3); - end - return {self.}XmlChildAccent3; -end; - -function ClrScheme.ReadXmlChildAccent4(); -begin - if tslassigning and ifnil({self.}XmlChildAccent4) then - begin - {self.}XmlChildAccent4 := new Clr2(self, {self.}Prefix, "accent4"); - container_.Set({self.}XmlChildAccent4); - end - return {self.}XmlChildAccent4; -end; - -function ClrScheme.ReadXmlChildAccent5(); -begin - if tslassigning and ifnil({self.}XmlChildAccent5) then - begin - {self.}XmlChildAccent5 := new Clr2(self, {self.}Prefix, "accent5"); - container_.Set({self.}XmlChildAccent5); - end - return {self.}XmlChildAccent5; -end; - -function ClrScheme.ReadXmlChildAccent6(); -begin - if tslassigning and ifnil({self.}XmlChildAccent6) then - begin - {self.}XmlChildAccent6 := new Clr2(self, {self.}Prefix, "accent6"); - container_.Set({self.}XmlChildAccent6); - end - return {self.}XmlChildAccent6; -end; - -function ClrScheme.ReadXmlChildHlink(); -begin - if tslassigning and ifnil({self.}XmlChildHlink) then - begin - {self.}XmlChildHlink := new Clr2(self, {self.}Prefix, "hlink"); - container_.Set({self.}XmlChildHlink); - end - return {self.}XmlChildHlink; -end; - -function ClrScheme.ReadXmlChildFolHlink(); -begin - if tslassigning and ifnil({self.}XmlChildFolHlink) then - begin - {self.}XmlChildFolHlink := new Clr2(self, {self.}Prefix, "folHlink"); - container_.Set({self.}XmlChildFolHlink); - end - return {self.}XmlChildFolHlink; -end; diff --git a/autoclass/docx/ClrSchemeMapping@DOCX.tsf b/autoclass/docx/ClrSchemeMapping@DOCX.tsf deleted file mode 100644 index 8eea95c..0000000 --- a/autoclass/docx/ClrSchemeMapping@DOCX.tsf +++ /dev/null @@ -1,316 +0,0 @@ -type ClrSchemeMapping = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ClrSchemeMapping);override; - -public - - // attributes property - property Bg1 read ReadXmlAttrBg1 write WriteXmlAttrBg1; - property T1 read ReadXmlAttrT1 write WriteXmlAttrT1; - property Bg2 read ReadXmlAttrBg2 write WriteXmlAttrBg2; - property T2 read ReadXmlAttrT2 write WriteXmlAttrT2; - property Accent1 read ReadXmlAttrAccent1 write WriteXmlAttrAccent1; - property Accent2 read ReadXmlAttrAccent2 write WriteXmlAttrAccent2; - property Accent3 read ReadXmlAttrAccent3 write WriteXmlAttrAccent3; - property Accent4 read ReadXmlAttrAccent4 write WriteXmlAttrAccent4; - property Accent5 read ReadXmlAttrAccent5 write WriteXmlAttrAccent5; - property Accent6 read ReadXmlAttrAccent6 write WriteXmlAttrAccent6; - property HyperLink read ReadXmlAttrHyperLink write WriteXmlAttrHyperLink; - property FollowedHyperlink read ReadXmlAttrFollowedHyperlink write WriteXmlAttrFollowedHyperlink; - function ReadXmlAttrBg1(); - function WriteXmlAttrBg1(_value); - function ReadXmlAttrT1(); - function WriteXmlAttrT1(_value); - function ReadXmlAttrBg2(); - function WriteXmlAttrBg2(_value); - function ReadXmlAttrT2(); - function WriteXmlAttrT2(_value); - function ReadXmlAttrAccent1(); - function WriteXmlAttrAccent1(_value); - function ReadXmlAttrAccent2(); - function WriteXmlAttrAccent2(_value); - function ReadXmlAttrAccent3(); - function WriteXmlAttrAccent3(_value); - function ReadXmlAttrAccent4(); - function WriteXmlAttrAccent4(_value); - function ReadXmlAttrAccent5(); - function WriteXmlAttrAccent5(_value); - function ReadXmlAttrAccent6(); - function WriteXmlAttrAccent6(_value); - function ReadXmlAttrHyperLink(); - function WriteXmlAttrHyperLink(_value); - function ReadXmlAttrFollowedHyperlink(); - function WriteXmlAttrFollowedHyperlink(_value); - -public - // Attributes - XmlAttrBg1: OpenXmlAttribute; - XmlAttrT1: OpenXmlAttribute; - XmlAttrBg2: OpenXmlAttribute; - XmlAttrT2: OpenXmlAttribute; - XmlAttrAccent1: OpenXmlAttribute; - XmlAttrAccent2: OpenXmlAttribute; - XmlAttrAccent3: OpenXmlAttribute; - XmlAttrAccent4: OpenXmlAttribute; - XmlAttrAccent5: OpenXmlAttribute; - XmlAttrAccent6: OpenXmlAttribute; - XmlAttrHyperLink: OpenXmlAttribute; - XmlAttrFollowedHyperlink: OpenXmlAttribute; - - -end; - -function ClrSchemeMapping.Create();overload; -begin - {self.}Create(nil, "w", "clrSchemeMapping"); -end; - -function ClrSchemeMapping.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ClrSchemeMapping.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ClrSchemeMapping.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "bg1": makeweakref(thisFunction(WriteXmlAttrBg1)), - pre + "t1": makeweakref(thisFunction(WriteXmlAttrT1)), - pre + "bg2": makeweakref(thisFunction(WriteXmlAttrBg2)), - pre + "t2": makeweakref(thisFunction(WriteXmlAttrT2)), - pre + "accent1": makeweakref(thisFunction(WriteXmlAttrAccent1)), - pre + "accent2": makeweakref(thisFunction(WriteXmlAttrAccent2)), - pre + "accent3": makeweakref(thisFunction(WriteXmlAttrAccent3)), - pre + "accent4": makeweakref(thisFunction(WriteXmlAttrAccent4)), - pre + "accent5": makeweakref(thisFunction(WriteXmlAttrAccent5)), - pre + "accent6": makeweakref(thisFunction(WriteXmlAttrAccent6)), - pre + "hyperlink": makeweakref(thisFunction(WriteXmlAttrHyperLink)), - pre + "followedHyperlink": makeweakref(thisFunction(WriteXmlAttrFollowedHyperlink)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ClrSchemeMapping.Copy(_obj: ClrSchemeMapping);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Bg1) then - {self.}Bg1 := _obj.Bg1; - if not ifnil(_obj.T1) then - {self.}T1 := _obj.T1; - if not ifnil(_obj.Bg2) then - {self.}Bg2 := _obj.Bg2; - if not ifnil(_obj.T2) then - {self.}T2 := _obj.T2; - if not ifnil(_obj.Accent1) then - {self.}Accent1 := _obj.Accent1; - if not ifnil(_obj.Accent2) then - {self.}Accent2 := _obj.Accent2; - if not ifnil(_obj.Accent3) then - {self.}Accent3 := _obj.Accent3; - if not ifnil(_obj.Accent4) then - {self.}Accent4 := _obj.Accent4; - if not ifnil(_obj.Accent5) then - {self.}Accent5 := _obj.Accent5; - if not ifnil(_obj.Accent6) then - {self.}Accent6 := _obj.Accent6; - if not ifnil(_obj.HyperLink) then - {self.}HyperLink := _obj.HyperLink; - if not ifnil(_obj.FollowedHyperlink) then - {self.}FollowedHyperlink := _obj.FollowedHyperlink; - tslassigning := tslassigning_backup; -end; - -function ClrSchemeMapping.ReadXmlAttrBg1(); -begin - return {self.}XmlAttrBg1.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrBg1(_value); -begin - if ifnil({self.}XmlAttrBg1) then - begin - {self.}XmlAttrBg1 := new OpenXmlAttribute({self.}Prefix, "bg1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBg1; - end - {self.}XmlAttrBg1.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrT1(); -begin - return {self.}XmlAttrT1.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrT1(_value); -begin - if ifnil({self.}XmlAttrT1) then - begin - {self.}XmlAttrT1 := new OpenXmlAttribute({self.}Prefix, "t1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrT1; - end - {self.}XmlAttrT1.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrBg2(); -begin - return {self.}XmlAttrBg2.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrBg2(_value); -begin - if ifnil({self.}XmlAttrBg2) then - begin - {self.}XmlAttrBg2 := new OpenXmlAttribute({self.}Prefix, "bg2", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBg2; - end - {self.}XmlAttrBg2.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrT2(); -begin - return {self.}XmlAttrT2.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrT2(_value); -begin - if ifnil({self.}XmlAttrT2) then - begin - {self.}XmlAttrT2 := new OpenXmlAttribute({self.}Prefix, "t2", nil); - attributes_[length(attributes_)] := {self.}XmlAttrT2; - end - {self.}XmlAttrT2.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrAccent1(); -begin - return {self.}XmlAttrAccent1.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrAccent1(_value); -begin - if ifnil({self.}XmlAttrAccent1) then - begin - {self.}XmlAttrAccent1 := new OpenXmlAttribute({self.}Prefix, "accent1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAccent1; - end - {self.}XmlAttrAccent1.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrAccent2(); -begin - return {self.}XmlAttrAccent2.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrAccent2(_value); -begin - if ifnil({self.}XmlAttrAccent2) then - begin - {self.}XmlAttrAccent2 := new OpenXmlAttribute({self.}Prefix, "accent2", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAccent2; - end - {self.}XmlAttrAccent2.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrAccent3(); -begin - return {self.}XmlAttrAccent3.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrAccent3(_value); -begin - if ifnil({self.}XmlAttrAccent3) then - begin - {self.}XmlAttrAccent3 := new OpenXmlAttribute({self.}Prefix, "accent3", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAccent3; - end - {self.}XmlAttrAccent3.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrAccent4(); -begin - return {self.}XmlAttrAccent4.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrAccent4(_value); -begin - if ifnil({self.}XmlAttrAccent4) then - begin - {self.}XmlAttrAccent4 := new OpenXmlAttribute({self.}Prefix, "accent4", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAccent4; - end - {self.}XmlAttrAccent4.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrAccent5(); -begin - return {self.}XmlAttrAccent5.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrAccent5(_value); -begin - if ifnil({self.}XmlAttrAccent5) then - begin - {self.}XmlAttrAccent5 := new OpenXmlAttribute({self.}Prefix, "accent5", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAccent5; - end - {self.}XmlAttrAccent5.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrAccent6(); -begin - return {self.}XmlAttrAccent6.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrAccent6(_value); -begin - if ifnil({self.}XmlAttrAccent6) then - begin - {self.}XmlAttrAccent6 := new OpenXmlAttribute({self.}Prefix, "accent6", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAccent6; - end - {self.}XmlAttrAccent6.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrHyperLink(); -begin - return {self.}XmlAttrHyperLink.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrHyperLink(_value); -begin - if ifnil({self.}XmlAttrHyperLink) then - begin - {self.}XmlAttrHyperLink := new OpenXmlAttribute({self.}Prefix, "hyperlink", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHyperLink; - end - {self.}XmlAttrHyperLink.Value := _value; -end; - -function ClrSchemeMapping.ReadXmlAttrFollowedHyperlink(); -begin - return {self.}XmlAttrFollowedHyperlink.Value; -end; - -function ClrSchemeMapping.WriteXmlAttrFollowedHyperlink(_value); -begin - if ifnil({self.}XmlAttrFollowedHyperlink) then - begin - {self.}XmlAttrFollowedHyperlink := new OpenXmlAttribute({self.}Prefix, "followedHyperlink", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFollowedHyperlink; - end - {self.}XmlAttrFollowedHyperlink.Value := _value; -end; diff --git a/autoclass/docx/CnfStyle@DOCX.tsf b/autoclass/docx/CnfStyle@DOCX.tsf deleted file mode 100644 index 816a182..0000000 --- a/autoclass/docx/CnfStyle@DOCX.tsf +++ /dev/null @@ -1,338 +0,0 @@ -type CnfStyle = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CnfStyle);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property FirstRow read ReadXmlAttrFirstRow write WriteXmlAttrFirstRow; - property LastRow read ReadXmlAttrLastRow write WriteXmlAttrLastRow; - property FirstColumn read ReadXmlAttrFirstColumn write WriteXmlAttrFirstColumn; - property LastColumn read ReadXmlAttrLastColumn write WriteXmlAttrLastColumn; - property OddVBand read ReadXmlAttrOddVBand write WriteXmlAttrOddVBand; - property EvenVBand read ReadXmlAttrEvenVBand write WriteXmlAttrEvenVBand; - property OddHBand read ReadXmlAttrOddHBand write WriteXmlAttrOddHBand; - property EvenHBand read ReadXmlAttrEvenHBand write WriteXmlAttrEvenHBand; - property FirstRowFirstColumn read ReadXmlAttrFirstRowFirstColumn write WriteXmlAttrFirstRowFirstColumn; - property FirstRowLastColumn read ReadXmlAttrFirstRowLastColumn write WriteXmlAttrFirstRowLastColumn; - property LastRowFirstColumn read ReadXmlAttrLastRowFirstColumn write WriteXmlAttrLastRowFirstColumn; - property LastRowLastColumn read ReadXmlAttrLastRowLastColumn write WriteXmlAttrLastRowLastColumn; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrFirstRow(); - function WriteXmlAttrFirstRow(_value); - function ReadXmlAttrLastRow(); - function WriteXmlAttrLastRow(_value); - function ReadXmlAttrFirstColumn(); - function WriteXmlAttrFirstColumn(_value); - function ReadXmlAttrLastColumn(); - function WriteXmlAttrLastColumn(_value); - function ReadXmlAttrOddVBand(); - function WriteXmlAttrOddVBand(_value); - function ReadXmlAttrEvenVBand(); - function WriteXmlAttrEvenVBand(_value); - function ReadXmlAttrOddHBand(); - function WriteXmlAttrOddHBand(_value); - function ReadXmlAttrEvenHBand(); - function WriteXmlAttrEvenHBand(_value); - function ReadXmlAttrFirstRowFirstColumn(); - function WriteXmlAttrFirstRowFirstColumn(_value); - function ReadXmlAttrFirstRowLastColumn(); - function WriteXmlAttrFirstRowLastColumn(_value); - function ReadXmlAttrLastRowFirstColumn(); - function WriteXmlAttrLastRowFirstColumn(_value); - function ReadXmlAttrLastRowLastColumn(); - function WriteXmlAttrLastRowLastColumn(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrFirstRow: OpenXmlAttribute; - XmlAttrLastRow: OpenXmlAttribute; - XmlAttrFirstColumn: OpenXmlAttribute; - XmlAttrLastColumn: OpenXmlAttribute; - XmlAttrOddVBand: OpenXmlAttribute; - XmlAttrEvenVBand: OpenXmlAttribute; - XmlAttrOddHBand: OpenXmlAttribute; - XmlAttrEvenHBand: OpenXmlAttribute; - XmlAttrFirstRowFirstColumn: OpenXmlAttribute; - XmlAttrFirstRowLastColumn: OpenXmlAttribute; - XmlAttrLastRowFirstColumn: OpenXmlAttribute; - XmlAttrLastRowLastColumn: OpenXmlAttribute; - - -end; - -function CnfStyle.Create();overload; -begin - {self.}Create(nil, "w", "cnfStyle"); -end; - -function CnfStyle.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CnfStyle.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CnfStyle.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "firstRow": makeweakref(thisFunction(WriteXmlAttrFirstRow)), - pre + "lastRow": makeweakref(thisFunction(WriteXmlAttrLastRow)), - pre + "firstColumn": makeweakref(thisFunction(WriteXmlAttrFirstColumn)), - pre + "lastColumn": makeweakref(thisFunction(WriteXmlAttrLastColumn)), - pre + "oddVBand": makeweakref(thisFunction(WriteXmlAttrOddVBand)), - pre + "evenVBand": makeweakref(thisFunction(WriteXmlAttrEvenVBand)), - pre + "oddHBand": makeweakref(thisFunction(WriteXmlAttrOddHBand)), - pre + "evenHBand": makeweakref(thisFunction(WriteXmlAttrEvenHBand)), - pre + "firstRowFirstColumn": makeweakref(thisFunction(WriteXmlAttrFirstRowFirstColumn)), - pre + "firstRowLastColumn": makeweakref(thisFunction(WriteXmlAttrFirstRowLastColumn)), - pre + "lastRowFirstColumn": makeweakref(thisFunction(WriteXmlAttrLastRowFirstColumn)), - pre + "lastRowLastColumn": makeweakref(thisFunction(WriteXmlAttrLastRowLastColumn)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CnfStyle.Copy(_obj: CnfStyle);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.FirstRow) then - {self.}FirstRow := _obj.FirstRow; - if not ifnil(_obj.LastRow) then - {self.}LastRow := _obj.LastRow; - if not ifnil(_obj.FirstColumn) then - {self.}FirstColumn := _obj.FirstColumn; - if not ifnil(_obj.LastColumn) then - {self.}LastColumn := _obj.LastColumn; - if not ifnil(_obj.OddVBand) then - {self.}OddVBand := _obj.OddVBand; - if not ifnil(_obj.EvenVBand) then - {self.}EvenVBand := _obj.EvenVBand; - if not ifnil(_obj.OddHBand) then - {self.}OddHBand := _obj.OddHBand; - if not ifnil(_obj.EvenHBand) then - {self.}EvenHBand := _obj.EvenHBand; - if not ifnil(_obj.FirstRowFirstColumn) then - {self.}FirstRowFirstColumn := _obj.FirstRowFirstColumn; - if not ifnil(_obj.FirstRowLastColumn) then - {self.}FirstRowLastColumn := _obj.FirstRowLastColumn; - if not ifnil(_obj.LastRowFirstColumn) then - {self.}LastRowFirstColumn := _obj.LastRowFirstColumn; - if not ifnil(_obj.LastRowLastColumn) then - {self.}LastRowLastColumn := _obj.LastRowLastColumn; - tslassigning := tslassigning_backup; -end; - -function CnfStyle.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function CnfStyle.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function CnfStyle.ReadXmlAttrFirstRow(); -begin - return {self.}XmlAttrFirstRow.Value; -end; - -function CnfStyle.WriteXmlAttrFirstRow(_value); -begin - if ifnil({self.}XmlAttrFirstRow) then - begin - {self.}XmlAttrFirstRow := new OpenXmlAttribute({self.}Prefix, "firstRow", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstRow; - end - {self.}XmlAttrFirstRow.Value := _value; -end; - -function CnfStyle.ReadXmlAttrLastRow(); -begin - return {self.}XmlAttrLastRow.Value; -end; - -function CnfStyle.WriteXmlAttrLastRow(_value); -begin - if ifnil({self.}XmlAttrLastRow) then - begin - {self.}XmlAttrLastRow := new OpenXmlAttribute({self.}Prefix, "lastRow", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLastRow; - end - {self.}XmlAttrLastRow.Value := _value; -end; - -function CnfStyle.ReadXmlAttrFirstColumn(); -begin - return {self.}XmlAttrFirstColumn.Value; -end; - -function CnfStyle.WriteXmlAttrFirstColumn(_value); -begin - if ifnil({self.}XmlAttrFirstColumn) then - begin - {self.}XmlAttrFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstColumn; - end - {self.}XmlAttrFirstColumn.Value := _value; -end; - -function CnfStyle.ReadXmlAttrLastColumn(); -begin - return {self.}XmlAttrLastColumn.Value; -end; - -function CnfStyle.WriteXmlAttrLastColumn(_value); -begin - if ifnil({self.}XmlAttrLastColumn) then - begin - {self.}XmlAttrLastColumn := new OpenXmlAttribute({self.}Prefix, "lastColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLastColumn; - end - {self.}XmlAttrLastColumn.Value := _value; -end; - -function CnfStyle.ReadXmlAttrOddVBand(); -begin - return {self.}XmlAttrOddVBand.Value; -end; - -function CnfStyle.WriteXmlAttrOddVBand(_value); -begin - if ifnil({self.}XmlAttrOddVBand) then - begin - {self.}XmlAttrOddVBand := new OpenXmlAttribute({self.}Prefix, "oddVBand", nil); - attributes_[length(attributes_)] := {self.}XmlAttrOddVBand; - end - {self.}XmlAttrOddVBand.Value := _value; -end; - -function CnfStyle.ReadXmlAttrEvenVBand(); -begin - return {self.}XmlAttrEvenVBand.Value; -end; - -function CnfStyle.WriteXmlAttrEvenVBand(_value); -begin - if ifnil({self.}XmlAttrEvenVBand) then - begin - {self.}XmlAttrEvenVBand := new OpenXmlAttribute({self.}Prefix, "evenVBand", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEvenVBand; - end - {self.}XmlAttrEvenVBand.Value := _value; -end; - -function CnfStyle.ReadXmlAttrOddHBand(); -begin - return {self.}XmlAttrOddHBand.Value; -end; - -function CnfStyle.WriteXmlAttrOddHBand(_value); -begin - if ifnil({self.}XmlAttrOddHBand) then - begin - {self.}XmlAttrOddHBand := new OpenXmlAttribute({self.}Prefix, "oddHBand", nil); - attributes_[length(attributes_)] := {self.}XmlAttrOddHBand; - end - {self.}XmlAttrOddHBand.Value := _value; -end; - -function CnfStyle.ReadXmlAttrEvenHBand(); -begin - return {self.}XmlAttrEvenHBand.Value; -end; - -function CnfStyle.WriteXmlAttrEvenHBand(_value); -begin - if ifnil({self.}XmlAttrEvenHBand) then - begin - {self.}XmlAttrEvenHBand := new OpenXmlAttribute({self.}Prefix, "evenHBand", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEvenHBand; - end - {self.}XmlAttrEvenHBand.Value := _value; -end; - -function CnfStyle.ReadXmlAttrFirstRowFirstColumn(); -begin - return {self.}XmlAttrFirstRowFirstColumn.Value; -end; - -function CnfStyle.WriteXmlAttrFirstRowFirstColumn(_value); -begin - if ifnil({self.}XmlAttrFirstRowFirstColumn) then - begin - {self.}XmlAttrFirstRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstRowFirstColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstRowFirstColumn; - end - {self.}XmlAttrFirstRowFirstColumn.Value := _value; -end; - -function CnfStyle.ReadXmlAttrFirstRowLastColumn(); -begin - return {self.}XmlAttrFirstRowLastColumn.Value; -end; - -function CnfStyle.WriteXmlAttrFirstRowLastColumn(_value); -begin - if ifnil({self.}XmlAttrFirstRowLastColumn) then - begin - {self.}XmlAttrFirstRowLastColumn := new OpenXmlAttribute({self.}Prefix, "firstRowLastColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstRowLastColumn; - end - {self.}XmlAttrFirstRowLastColumn.Value := _value; -end; - -function CnfStyle.ReadXmlAttrLastRowFirstColumn(); -begin - return {self.}XmlAttrLastRowFirstColumn.Value; -end; - -function CnfStyle.WriteXmlAttrLastRowFirstColumn(_value); -begin - if ifnil({self.}XmlAttrLastRowFirstColumn) then - begin - {self.}XmlAttrLastRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "lastRowFirstColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLastRowFirstColumn; - end - {self.}XmlAttrLastRowFirstColumn.Value := _value; -end; - -function CnfStyle.ReadXmlAttrLastRowLastColumn(); -begin - return {self.}XmlAttrLastRowLastColumn.Value; -end; - -function CnfStyle.WriteXmlAttrLastRowLastColumn(_value); -begin - if ifnil({self.}XmlAttrLastRowLastColumn) then - begin - {self.}XmlAttrLastRowLastColumn := new OpenXmlAttribute({self.}Prefix, "lastRowLastColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLastRowLastColumn; - end - {self.}XmlAttrLastRowLastColumn.Value := _value; -end; diff --git a/autoclass/docx/Col@DOCX.tsf b/autoclass/docx/Col@DOCX.tsf deleted file mode 100644 index 944f9f1..0000000 --- a/autoclass/docx/Col@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Col = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Col);override; - -public - - // attributes property - property W read ReadXmlAttrW write WriteXmlAttrW; - property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; - function ReadXmlAttrW(); - function WriteXmlAttrW(_value); - function ReadXmlAttrSpace(); - function WriteXmlAttrSpace(_value); - -public - // Attributes - XmlAttrW: OpenXmlAttribute; - XmlAttrSpace: OpenXmlAttribute; - - -end; - -function Col.Create();overload; -begin - {self.}Create(nil, "w", "col"); -end; - -function Col.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Col.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Col.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), - pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Col.Copy(_obj: Col);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.W) then - {self.}W := _obj.W; - if not ifnil(_obj.Space) then - {self.}Space := _obj.Space; - tslassigning := tslassigning_backup; -end; - -function Col.ReadXmlAttrW(); -begin - return {self.}XmlAttrW.Value; -end; - -function Col.WriteXmlAttrW(_value); -begin - if ifnil({self.}XmlAttrW) then - begin - {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW; - end - {self.}XmlAttrW.Value := _value; -end; - -function Col.ReadXmlAttrSpace(); -begin - return {self.}XmlAttrSpace.Value; -end; - -function Col.WriteXmlAttrSpace(_value); -begin - if ifnil({self.}XmlAttrSpace) then - begin - {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpace; - end - {self.}XmlAttrSpace.Value := _value; -end; diff --git a/autoclass/docx/Color@DOCX.tsf b/autoclass/docx/Color@DOCX.tsf deleted file mode 100644 index 3211810..0000000 --- a/autoclass/docx/Color@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Color = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Color);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrThemeColor(); - function WriteXmlAttrThemeColor(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrThemeColor: OpenXmlAttribute; - - -end; - -function Color.Create();overload; -begin - {self.}Create(nil, "w", "color"); -end; - -function Color.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Color.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Color.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Color.Copy(_obj: Color);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.ThemeColor) then - {self.}ThemeColor := _obj.ThemeColor; - tslassigning := tslassigning_backup; -end; - -function Color.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function Color.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function Color.ReadXmlAttrThemeColor(); -begin - return {self.}XmlAttrThemeColor.Value; -end; - -function Color.WriteXmlAttrThemeColor(_value); -begin - if ifnil({self.}XmlAttrThemeColor) then - begin - {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; - end - {self.}XmlAttrThemeColor.Value := _value; -end; diff --git a/autoclass/docx/Cols@DOCX.tsf b/autoclass/docx/Cols@DOCX.tsf deleted file mode 100644 index d43e0b5..0000000 --- a/autoclass/docx/Cols@DOCX.tsf +++ /dev/null @@ -1,147 +0,0 @@ -type Cols = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Cols);override; - -public - - // attributes property - property Num read ReadXmlAttrNum write WriteXmlAttrNum; - property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; - property EqualWidth read ReadXmlAttrEqualWidth write WriteXmlAttrEqualWidth; - function ReadXmlAttrNum(); - function WriteXmlAttrNum(_value); - function ReadXmlAttrSpace(); - function WriteXmlAttrSpace(_value); - function ReadXmlAttrEqualWidth(); - function WriteXmlAttrEqualWidth(_value); - - // multi property - property Cols read ReadCols; - function ReadCols(_index); - function AddCol(): Col; - function AppendCol(): Col; - -public - // Attributes - XmlAttrNum: OpenXmlAttribute; - XmlAttrSpace: OpenXmlAttribute; - XmlAttrEqualWidth: OpenXmlAttribute; - - // Children - -end; - -function Cols.Create();overload; -begin - {self.}Create(nil, "w", "cols"); -end; - -function Cols.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Cols.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Cols.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "num": makeweakref(thisFunction(WriteXmlAttrNum)), - pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), - pre + "equalWidth": makeweakref(thisFunction(WriteXmlAttrEqualWidth)), - ); - sorted_child_ := array( - pre + "col": array(0, makeweakref(thisFunction(AppendCol))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Cols.Copy(_obj: Cols);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Num) then - {self.}Num := _obj.Num; - if not ifnil(_obj.Space) then - {self.}Space := _obj.Space; - if not ifnil(_obj.EqualWidth) then - {self.}EqualWidth := _obj.EqualWidth; - tslassigning := tslassigning_backup; -end; - -function Cols.ReadXmlAttrNum(); -begin - return {self.}XmlAttrNum.Value; -end; - -function Cols.WriteXmlAttrNum(_value); -begin - if ifnil({self.}XmlAttrNum) then - begin - {self.}XmlAttrNum := new OpenXmlAttribute({self.}Prefix, "num", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNum; - end - {self.}XmlAttrNum.Value := _value; -end; - -function Cols.ReadXmlAttrSpace(); -begin - return {self.}XmlAttrSpace.Value; -end; - -function Cols.WriteXmlAttrSpace(_value); -begin - if ifnil({self.}XmlAttrSpace) then - begin - {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpace; - end - {self.}XmlAttrSpace.Value := _value; -end; - -function Cols.ReadXmlAttrEqualWidth(); -begin - return {self.}XmlAttrEqualWidth.Value; -end; - -function Cols.WriteXmlAttrEqualWidth(_value); -begin - if ifnil({self.}XmlAttrEqualWidth) then - begin - {self.}XmlAttrEqualWidth := new OpenXmlAttribute({self.}Prefix, "equalWidth", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEqualWidth; - end - {self.}XmlAttrEqualWidth.Value := _value; -end; - -function Cols.ReadCols(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "col", ind); -end; - -function Cols.AddCol(): Col; -begin - obj := new Col(self, {self.}Prefix, "col"); - container_.Insert(obj); - return obj; -end; - -function Cols.AppendCol(): Col; -begin - obj := new Col(self, {self.}Prefix, "col"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Comment@DOCX.tsf b/autoclass/docx/Comment@DOCX.tsf deleted file mode 100644 index 04f23cb..0000000 --- a/autoclass/docx/Comment@DOCX.tsf +++ /dev/null @@ -1,147 +0,0 @@ -type Comment = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Comment);override; - -public - - // attributes property - property Author read ReadXmlAttrAuthor write WriteXmlAttrAuthor; - property Date read ReadXmlAttrDate write WriteXmlAttrDate; - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrAuthor(); - function WriteXmlAttrAuthor(_value); - function ReadXmlAttrDate(); - function WriteXmlAttrDate(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): P; - function AppendP(): P; - -public - // Attributes - XmlAttrAuthor: OpenXmlAttribute; - XmlAttrDate: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - - // Children - -end; - -function Comment.Create();overload; -begin - {self.}Create(nil, "w", "comment"); -end; - -function Comment.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Comment.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Comment.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "author": makeweakref(thisFunction(WriteXmlAttrAuthor)), - pre + "date": makeweakref(thisFunction(WriteXmlAttrDate)), - pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Comment.Copy(_obj: Comment);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Author) then - {self.}Author := _obj.Author; - if not ifnil(_obj.Date) then - {self.}Date := _obj.Date; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function Comment.ReadXmlAttrAuthor(); -begin - return {self.}XmlAttrAuthor.Value; -end; - -function Comment.WriteXmlAttrAuthor(_value); -begin - if ifnil({self.}XmlAttrAuthor) then - begin - {self.}XmlAttrAuthor := new OpenXmlAttribute({self.}Prefix, "author", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAuthor; - end - {self.}XmlAttrAuthor.Value := _value; -end; - -function Comment.ReadXmlAttrDate(); -begin - return {self.}XmlAttrDate.Value; -end; - -function Comment.WriteXmlAttrDate(_value); -begin - if ifnil({self.}XmlAttrDate) then - begin - {self.}XmlAttrDate := new OpenXmlAttribute({self.}Prefix, "date", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDate; - end - {self.}XmlAttrDate.Value := _value; -end; - -function Comment.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Comment.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Comment.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function Comment.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function Comment.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/CommentRange@DOCX.tsf b/autoclass/docx/CommentRange@DOCX.tsf deleted file mode 100644 index 79558ff..0000000 --- a/autoclass/docx/CommentRange@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type CommentRange = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CommentRange);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - - -end; - -function CommentRange.Create();overload; -begin - {self.}Create(nil, "w", ""); -end; - -function CommentRange.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CommentRange.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CommentRange.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CommentRange.Copy(_obj: CommentRange);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function CommentRange.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function CommentRange.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; diff --git a/autoclass/docx/Comments@DOCX.tsf b/autoclass/docx/Comments@DOCX.tsf deleted file mode 100644 index 48f750b..0000000 --- a/autoclass/docx/Comments@DOCX.tsf +++ /dev/null @@ -1,477 +0,0 @@ -type Comments = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Comments);override; - -public - - // attributes property - property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsO read ReadXmlAttrXmlnsO write WriteXmlAttrXmlnsO; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; - property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; - property XmlnsWp14 read ReadXmlAttrXmlnsWp14 write WriteXmlAttrXmlnsWp14; - property XmlnsWp read ReadXmlAttrXmlnsWp write WriteXmlAttrXmlnsWp; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW10 read ReadXmlAttrXmlnsW10 write WriteXmlAttrXmlnsW10; - property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; - property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; - property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; - property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; - property XmlnsWpsCustomData read ReadXmlAttrXmlnsWpsCustomData write WriteXmlAttrXmlnsWpsCustomData; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsWpc(); - function WriteXmlAttrXmlnsWpc(_value); - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsO(); - function WriteXmlAttrXmlnsO(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsM(); - function WriteXmlAttrXmlnsM(_value); - function ReadXmlAttrXmlnsV(); - function WriteXmlAttrXmlnsV(_value); - function ReadXmlAttrXmlnsWp14(); - function WriteXmlAttrXmlnsWp14(_value); - function ReadXmlAttrXmlnsWp(); - function WriteXmlAttrXmlnsWp(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW10(); - function WriteXmlAttrXmlnsW10(_value); - function ReadXmlAttrXmlnsWpg(); - function WriteXmlAttrXmlnsWpg(_value); - function ReadXmlAttrXmlnsWpi(); - function WriteXmlAttrXmlnsWpi(_value); - function ReadXmlAttrXmlnsWne(); - function WriteXmlAttrXmlnsWne(_value); - function ReadXmlAttrXmlnsWps(); - function WriteXmlAttrXmlnsWps(_value); - function ReadXmlAttrXmlnsWpsCustomData(); - function WriteXmlAttrXmlnsWpsCustomData(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // multi property - property Comments read ReadComments; - function ReadComments(_index); - function AddComment(): Comment; - function AppendComment(): Comment; - -public - // Attributes - XmlAttrXmlnsWpc: OpenXmlAttribute; - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsO: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsM: OpenXmlAttribute; - XmlAttrXmlnsV: OpenXmlAttribute; - XmlAttrXmlnsWp14: OpenXmlAttribute; - XmlAttrXmlnsWp: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW10: OpenXmlAttribute; - XmlAttrXmlnsWpg: OpenXmlAttribute; - XmlAttrXmlnsWpi: OpenXmlAttribute; - XmlAttrXmlnsWne: OpenXmlAttribute; - XmlAttrXmlnsWps: OpenXmlAttribute; - XmlAttrXmlnsWpsCustomData: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - -end; - -function Comments.Create();overload; -begin - {self.}Create(nil, "w", "comments"); -end; - -function Comments.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Comments.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Comments.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:wpc": makeweakref(thisFunction(WriteXmlAttrXmlnsWpc)), - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:o": makeweakref(thisFunction(WriteXmlAttrXmlnsO)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), - "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), - "xmlns:wp14": makeweakref(thisFunction(WriteXmlAttrXmlnsWp14)), - "xmlns:wp": makeweakref(thisFunction(WriteXmlAttrXmlnsWp)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w10": makeweakref(thisFunction(WriteXmlAttrXmlnsW10)), - "xmlns:wpg": makeweakref(thisFunction(WriteXmlAttrXmlnsWpg)), - "xmlns:wpi": makeweakref(thisFunction(WriteXmlAttrXmlnsWpi)), - "xmlns:wne": makeweakref(thisFunction(WriteXmlAttrXmlnsWne)), - "xmlns:wps": makeweakref(thisFunction(WriteXmlAttrXmlnsWps)), - "xmlns:wpsCustomData": makeweakref(thisFunction(WriteXmlAttrXmlnsWpsCustomData)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "comment": array(0, makeweakref(thisFunction(AppendComment))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Comments.Copy(_obj: Comments);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsWpc) then - {self.}XmlnsWpc := _obj.XmlnsWpc; - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsO) then - {self.}XmlnsO := _obj.XmlnsO; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsM) then - {self.}XmlnsM := _obj.XmlnsM; - if not ifnil(_obj.XmlnsV) then - {self.}XmlnsV := _obj.XmlnsV; - if not ifnil(_obj.XmlnsWp14) then - {self.}XmlnsWp14 := _obj.XmlnsWp14; - if not ifnil(_obj.XmlnsWp) then - {self.}XmlnsWp := _obj.XmlnsWp; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW10) then - {self.}XmlnsW10 := _obj.XmlnsW10; - if not ifnil(_obj.XmlnsWpg) then - {self.}XmlnsWpg := _obj.XmlnsWpg; - if not ifnil(_obj.XmlnsWpi) then - {self.}XmlnsWpi := _obj.XmlnsWpi; - if not ifnil(_obj.XmlnsWne) then - {self.}XmlnsWne := _obj.XmlnsWne; - if not ifnil(_obj.XmlnsWps) then - {self.}XmlnsWps := _obj.XmlnsWps; - if not ifnil(_obj.XmlnsWpsCustomData) then - {self.}XmlnsWpsCustomData := _obj.XmlnsWpsCustomData; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - tslassigning := tslassigning_backup; -end; - -function Comments.ReadXmlAttrXmlnsWpc(); -begin - return {self.}XmlAttrXmlnsWpc.Value; -end; - -function Comments.WriteXmlAttrXmlnsWpc(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpc) then - begin - {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpc; - end - {self.}XmlAttrXmlnsWpc.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Comments.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsO(); -begin - return {self.}XmlAttrXmlnsO.Value; -end; - -function Comments.WriteXmlAttrXmlnsO(_value); -begin - if ifnil({self.}XmlAttrXmlnsO) then - begin - {self.}XmlAttrXmlnsO := new OpenXmlAttribute("xmlns", "o", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsO; - end - {self.}XmlAttrXmlnsO.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Comments.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsM(); -begin - return {self.}XmlAttrXmlnsM.Value; -end; - -function Comments.WriteXmlAttrXmlnsM(_value); -begin - if ifnil({self.}XmlAttrXmlnsM) then - begin - {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; - end - {self.}XmlAttrXmlnsM.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsV(); -begin - return {self.}XmlAttrXmlnsV.Value; -end; - -function Comments.WriteXmlAttrXmlnsV(_value); -begin - if ifnil({self.}XmlAttrXmlnsV) then - begin - {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; - end - {self.}XmlAttrXmlnsV.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsWp14(); -begin - return {self.}XmlAttrXmlnsWp14.Value; -end; - -function Comments.WriteXmlAttrXmlnsWp14(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp14) then - begin - {self.}XmlAttrXmlnsWp14 := new OpenXmlAttribute("xmlns", "wp14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp14; - end - {self.}XmlAttrXmlnsWp14.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsWp(); -begin - return {self.}XmlAttrXmlnsWp.Value; -end; - -function Comments.WriteXmlAttrXmlnsWp(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp) then - begin - {self.}XmlAttrXmlnsWp := new OpenXmlAttribute("xmlns", "wp", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp; - end - {self.}XmlAttrXmlnsWp.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function Comments.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Comments.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Comments.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsW10(); -begin - return {self.}XmlAttrXmlnsW10.Value; -end; - -function Comments.WriteXmlAttrXmlnsW10(_value); -begin - if ifnil({self.}XmlAttrXmlnsW10) then - begin - {self.}XmlAttrXmlnsW10 := new OpenXmlAttribute("xmlns", "w10", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW10; - end - {self.}XmlAttrXmlnsW10.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsWpg(); -begin - return {self.}XmlAttrXmlnsWpg.Value; -end; - -function Comments.WriteXmlAttrXmlnsWpg(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpg) then - begin - {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpg; - end - {self.}XmlAttrXmlnsWpg.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsWpi(); -begin - return {self.}XmlAttrXmlnsWpi.Value; -end; - -function Comments.WriteXmlAttrXmlnsWpi(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpi) then - begin - {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpi; - end - {self.}XmlAttrXmlnsWpi.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsWne(); -begin - return {self.}XmlAttrXmlnsWne.Value; -end; - -function Comments.WriteXmlAttrXmlnsWne(_value); -begin - if ifnil({self.}XmlAttrXmlnsWne) then - begin - {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWne; - end - {self.}XmlAttrXmlnsWne.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsWps(); -begin - return {self.}XmlAttrXmlnsWps.Value; -end; - -function Comments.WriteXmlAttrXmlnsWps(_value); -begin - if ifnil({self.}XmlAttrXmlnsWps) then - begin - {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWps; - end - {self.}XmlAttrXmlnsWps.Value := _value; -end; - -function Comments.ReadXmlAttrXmlnsWpsCustomData(); -begin - return {self.}XmlAttrXmlnsWpsCustomData.Value; -end; - -function Comments.WriteXmlAttrXmlnsWpsCustomData(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpsCustomData) then - begin - {self.}XmlAttrXmlnsWpsCustomData := new OpenXmlAttribute("xmlns", "wpsCustomData", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpsCustomData; - end - {self.}XmlAttrXmlnsWpsCustomData.Value := _value; -end; - -function Comments.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Comments.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Comments.ReadComments(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "comment", ind); -end; - -function Comments.AddComment(): Comment; -begin - obj := new Comment(self, {self.}Prefix, "comment"); - container_.Insert(obj); - return obj; -end; - -function Comments.AppendComment(): Comment; -begin - obj := new Comment(self, {self.}Prefix, "comment"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Compat@DOCX.tsf b/autoclass/docx/Compat@DOCX.tsf deleted file mode 100644 index 858510d..0000000 --- a/autoclass/docx/Compat@DOCX.tsf +++ /dev/null @@ -1,323 +0,0 @@ -type Compat = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Compat);override; - -public - - // empty property - property SpaceForUL read ReadXmlChildSpaceForUL write WriteXmlChildSpaceForUL; - property BalanceSingleByteDoubleByteWidth read ReadXmlChildBalanceSingleByteDoubleByteWidth write WriteXmlChildBalanceSingleByteDoubleByteWidth; - property DoNotLeaveBackslashAlone read ReadXmlChildDoNotLeaveBackslashAlone write WriteXmlChildDoNotLeaveBackslashAlone; - property UlTrailSpace read ReadXmlChildUlTrailSpace write WriteXmlChildUlTrailSpace; - property DoNotExpandShiftReturn read ReadXmlChildDoNotExpandShiftReturn write WriteXmlChildDoNotExpandShiftReturn; - property AdjustLineHeightInTable read ReadXmlChildAdjustLineHeightInTable write WriteXmlChildAdjustLineHeightInTable; - property UseFELayout read ReadXmlChildUseFELayout write WriteXmlChildUseFELayout; - property CompatSetting read ReadXmlChildCompatSetting write WriteXmlChildCompatSetting; - function ReadXmlChildSpaceForUL(); - function WriteXmlChildSpaceForUL(_value); - function ReadXmlChildBalanceSingleByteDoubleByteWidth(); - function WriteXmlChildBalanceSingleByteDoubleByteWidth(_value); - function ReadXmlChildDoNotLeaveBackslashAlone(); - function WriteXmlChildDoNotLeaveBackslashAlone(_value); - function ReadXmlChildUlTrailSpace(); - function WriteXmlChildUlTrailSpace(_value); - function ReadXmlChildDoNotExpandShiftReturn(); - function WriteXmlChildDoNotExpandShiftReturn(_value); - function ReadXmlChildAdjustLineHeightInTable(); - function WriteXmlChildAdjustLineHeightInTable(_value); - function ReadXmlChildUseFELayout(); - function WriteXmlChildUseFELayout(_value); - function ReadXmlChildCompatSetting(); - function WriteXmlChildCompatSetting(_value); - - // multi property - property CompatSettings read ReadCompatSettings; - function ReadCompatSettings(_index); - function AddCompatSetting(): CompatSetting; - function AppendCompatSetting(): CompatSetting; - -public - // Children - XmlChildSpaceForUL: OpenXmlEmpty; - XmlChildBalanceSingleByteDoubleByteWidth: OpenXmlEmpty; - XmlChildDoNotLeaveBackslashAlone: OpenXmlEmpty; - XmlChildUlTrailSpace: OpenXmlEmpty; - XmlChildDoNotExpandShiftReturn: OpenXmlEmpty; - XmlChildAdjustLineHeightInTable: OpenXmlEmpty; - XmlChildUseFELayout: OpenXmlEmpty; - -end; - -function Compat.Create();overload; -begin - {self.}Create(nil, "w", "compat"); -end; - -function Compat.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Compat.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Compat.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "spaceForUL": array(0, makeweakref(thisFunction(ReadXmlChildSpaceForUL))), - pre + "balanceSingleByteDoubleByteWidth": array(1, makeweakref(thisFunction(ReadXmlChildBalanceSingleByteDoubleByteWidth))), - pre + "doNotLeaveBackslashAlone": array(2, makeweakref(thisFunction(ReadXmlChildDoNotLeaveBackslashAlone))), - pre + "ulTrailSpace": array(3, makeweakref(thisFunction(ReadXmlChildUlTrailSpace))), - pre + "doNotExpandShiftReturn": array(4, makeweakref(thisFunction(ReadXmlChildDoNotExpandShiftReturn))), - pre + "adjustLineHeightInTable": array(5, makeweakref(thisFunction(ReadXmlChildAdjustLineHeightInTable))), - pre + "useFELayout": array(6, makeweakref(thisFunction(ReadXmlChildUseFELayout))), - pre + "compatSetting": array(7, makeweakref(thisFunction(AppendCompatSetting))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Compat.Copy(_obj: Compat);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSpaceForUL) then - ifnil({self.}XmlChildSpaceForUL) ? {self.}SpaceForUL.Copy(_obj.XmlChildSpaceForUL) : {self.}XmlChildSpaceForUL.Copy(_obj.XmlChildSpaceForUL); - if not ifnil(_obj.XmlChildBalanceSingleByteDoubleByteWidth) then - ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) ? {self.}BalanceSingleByteDoubleByteWidth.Copy(_obj.XmlChildBalanceSingleByteDoubleByteWidth) : {self.}XmlChildBalanceSingleByteDoubleByteWidth.Copy(_obj.XmlChildBalanceSingleByteDoubleByteWidth); - if not ifnil(_obj.XmlChildDoNotLeaveBackslashAlone) then - ifnil({self.}XmlChildDoNotLeaveBackslashAlone) ? {self.}DoNotLeaveBackslashAlone.Copy(_obj.XmlChildDoNotLeaveBackslashAlone) : {self.}XmlChildDoNotLeaveBackslashAlone.Copy(_obj.XmlChildDoNotLeaveBackslashAlone); - if not ifnil(_obj.XmlChildUlTrailSpace) then - ifnil({self.}XmlChildUlTrailSpace) ? {self.}UlTrailSpace.Copy(_obj.XmlChildUlTrailSpace) : {self.}XmlChildUlTrailSpace.Copy(_obj.XmlChildUlTrailSpace); - if not ifnil(_obj.XmlChildDoNotExpandShiftReturn) then - ifnil({self.}XmlChildDoNotExpandShiftReturn) ? {self.}DoNotExpandShiftReturn.Copy(_obj.XmlChildDoNotExpandShiftReturn) : {self.}XmlChildDoNotExpandShiftReturn.Copy(_obj.XmlChildDoNotExpandShiftReturn); - if not ifnil(_obj.XmlChildAdjustLineHeightInTable) then - ifnil({self.}XmlChildAdjustLineHeightInTable) ? {self.}AdjustLineHeightInTable.Copy(_obj.XmlChildAdjustLineHeightInTable) : {self.}XmlChildAdjustLineHeightInTable.Copy(_obj.XmlChildAdjustLineHeightInTable); - if not ifnil(_obj.XmlChildUseFELayout) then - ifnil({self.}XmlChildUseFELayout) ? {self.}UseFELayout.Copy(_obj.XmlChildUseFELayout) : {self.}XmlChildUseFELayout.Copy(_obj.XmlChildUseFELayout); - tslassigning := tslassigning_backup; -end; - -function Compat.ReadXmlChildSpaceForUL(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildSpaceForUL) then - begin - {self.}XmlChildSpaceForUL := new OpenXmlEmpty(self, {self.}Prefix, "spaceForUL"); - container_.Set({self.}XmlChildSpaceForUL); - end - return {self.}XmlChildSpaceForUL; - end - return ifnil({self.}XmlChildSpaceForUL) ? nil : {self.}XmlChildSpaceForUL.BoolValue(); -end; - -function Compat.WriteXmlChildSpaceForUL(_value); -begin - if ifnil({self.}XmlChildSpaceForUL) then - begin - {self.}XmlChildSpaceForUL := new OpenXmlEmpty(self, {self.}Prefix, "spaceForUL"); - container_.Set({self.}XmlChildSpaceForUL); - end - {self.}XmlChildSpaceForUL.Value := _value; -end; - -function Compat.ReadXmlChildBalanceSingleByteDoubleByteWidth(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) then - begin - {self.}XmlChildBalanceSingleByteDoubleByteWidth := new OpenXmlEmpty(self, {self.}Prefix, "balanceSingleByteDoubleByteWidth"); - container_.Set({self.}XmlChildBalanceSingleByteDoubleByteWidth); - end - return {self.}XmlChildBalanceSingleByteDoubleByteWidth; - end - return ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) ? nil : {self.}XmlChildBalanceSingleByteDoubleByteWidth.BoolValue(); -end; - -function Compat.WriteXmlChildBalanceSingleByteDoubleByteWidth(_value); -begin - if ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) then - begin - {self.}XmlChildBalanceSingleByteDoubleByteWidth := new OpenXmlEmpty(self, {self.}Prefix, "balanceSingleByteDoubleByteWidth"); - container_.Set({self.}XmlChildBalanceSingleByteDoubleByteWidth); - end - {self.}XmlChildBalanceSingleByteDoubleByteWidth.Value := _value; -end; - -function Compat.ReadXmlChildDoNotLeaveBackslashAlone(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildDoNotLeaveBackslashAlone) then - begin - {self.}XmlChildDoNotLeaveBackslashAlone := new OpenXmlEmpty(self, {self.}Prefix, "doNotLeaveBackslashAlone"); - container_.Set({self.}XmlChildDoNotLeaveBackslashAlone); - end - return {self.}XmlChildDoNotLeaveBackslashAlone; - end - return ifnil({self.}XmlChildDoNotLeaveBackslashAlone) ? nil : {self.}XmlChildDoNotLeaveBackslashAlone.BoolValue(); -end; - -function Compat.WriteXmlChildDoNotLeaveBackslashAlone(_value); -begin - if ifnil({self.}XmlChildDoNotLeaveBackslashAlone) then - begin - {self.}XmlChildDoNotLeaveBackslashAlone := new OpenXmlEmpty(self, {self.}Prefix, "doNotLeaveBackslashAlone"); - container_.Set({self.}XmlChildDoNotLeaveBackslashAlone); - end - {self.}XmlChildDoNotLeaveBackslashAlone.Value := _value; -end; - -function Compat.ReadXmlChildUlTrailSpace(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildUlTrailSpace) then - begin - {self.}XmlChildUlTrailSpace := new OpenXmlEmpty(self, {self.}Prefix, "ulTrailSpace"); - container_.Set({self.}XmlChildUlTrailSpace); - end - return {self.}XmlChildUlTrailSpace; - end - return ifnil({self.}XmlChildUlTrailSpace) ? nil : {self.}XmlChildUlTrailSpace.BoolValue(); -end; - -function Compat.WriteXmlChildUlTrailSpace(_value); -begin - if ifnil({self.}XmlChildUlTrailSpace) then - begin - {self.}XmlChildUlTrailSpace := new OpenXmlEmpty(self, {self.}Prefix, "ulTrailSpace"); - container_.Set({self.}XmlChildUlTrailSpace); - end - {self.}XmlChildUlTrailSpace.Value := _value; -end; - -function Compat.ReadXmlChildDoNotExpandShiftReturn(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildDoNotExpandShiftReturn) then - begin - {self.}XmlChildDoNotExpandShiftReturn := new OpenXmlEmpty(self, {self.}Prefix, "doNotExpandShiftReturn"); - container_.Set({self.}XmlChildDoNotExpandShiftReturn); - end - return {self.}XmlChildDoNotExpandShiftReturn; - end - return ifnil({self.}XmlChildDoNotExpandShiftReturn) ? nil : {self.}XmlChildDoNotExpandShiftReturn.BoolValue(); -end; - -function Compat.WriteXmlChildDoNotExpandShiftReturn(_value); -begin - if ifnil({self.}XmlChildDoNotExpandShiftReturn) then - begin - {self.}XmlChildDoNotExpandShiftReturn := new OpenXmlEmpty(self, {self.}Prefix, "doNotExpandShiftReturn"); - container_.Set({self.}XmlChildDoNotExpandShiftReturn); - end - {self.}XmlChildDoNotExpandShiftReturn.Value := _value; -end; - -function Compat.ReadXmlChildAdjustLineHeightInTable(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildAdjustLineHeightInTable) then - begin - {self.}XmlChildAdjustLineHeightInTable := new OpenXmlEmpty(self, {self.}Prefix, "adjustLineHeightInTable"); - container_.Set({self.}XmlChildAdjustLineHeightInTable); - end - return {self.}XmlChildAdjustLineHeightInTable; - end - return ifnil({self.}XmlChildAdjustLineHeightInTable) ? nil : {self.}XmlChildAdjustLineHeightInTable.BoolValue(); -end; - -function Compat.WriteXmlChildAdjustLineHeightInTable(_value); -begin - if ifnil({self.}XmlChildAdjustLineHeightInTable) then - begin - {self.}XmlChildAdjustLineHeightInTable := new OpenXmlEmpty(self, {self.}Prefix, "adjustLineHeightInTable"); - container_.Set({self.}XmlChildAdjustLineHeightInTable); - end - {self.}XmlChildAdjustLineHeightInTable.Value := _value; -end; - -function Compat.ReadXmlChildUseFELayout(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildUseFELayout) then - begin - {self.}XmlChildUseFELayout := new OpenXmlEmpty(self, {self.}Prefix, "useFELayout"); - container_.Set({self.}XmlChildUseFELayout); - end - return {self.}XmlChildUseFELayout; - end - return ifnil({self.}XmlChildUseFELayout) ? nil : {self.}XmlChildUseFELayout.BoolValue(); -end; - -function Compat.WriteXmlChildUseFELayout(_value); -begin - if ifnil({self.}XmlChildUseFELayout) then - begin - {self.}XmlChildUseFELayout := new OpenXmlEmpty(self, {self.}Prefix, "useFELayout"); - container_.Set({self.}XmlChildUseFELayout); - end - {self.}XmlChildUseFELayout.Value := _value; -end; - -function Compat.ReadXmlChildCompatSetting(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildCompatSetting) then - begin - {self.}XmlChildCompatSetting := new OpenXmlEmpty(self, {self.}Prefix, "compatSetting"); - container_.Set({self.}XmlChildCompatSetting); - end - return {self.}XmlChildCompatSetting; - end - return ifnil({self.}XmlChildCompatSetting) ? nil : {self.}XmlChildCompatSetting.BoolValue(); -end; - -function Compat.WriteXmlChildCompatSetting(_value); -begin - if ifnil({self.}XmlChildCompatSetting) then - begin - {self.}XmlChildCompatSetting := new OpenXmlEmpty(self, {self.}Prefix, "compatSetting"); - container_.Set({self.}XmlChildCompatSetting); - end - {self.}XmlChildCompatSetting.Value := _value; -end; - -function Compat.ReadCompatSettings(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "compatSetting", ind); -end; - -function Compat.AddCompatSetting(): CompatSetting; -begin - obj := new CompatSetting(self, {self.}Prefix, "compatSetting"); - container_.Insert(obj); - return obj; -end; - -function Compat.AppendCompatSetting(): CompatSetting; -begin - obj := new CompatSetting(self, {self.}Prefix, "compatSetting"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/CompatSetting@DOCX.tsf b/autoclass/docx/CompatSetting@DOCX.tsf deleted file mode 100644 index ab1ac17..0000000 --- a/autoclass/docx/CompatSetting@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type CompatSetting = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CompatSetting);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - property Uri read ReadXmlAttrUri write WriteXmlAttrUri; - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - function ReadXmlAttrUri(); - function WriteXmlAttrUri(_value); - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - XmlAttrUri: OpenXmlAttribute; - XmlAttrVal: OpenXmlAttribute; - - -end; - -function CompatSetting.Create();overload; -begin - {self.}Create(nil, "w", "compatSetting"); -end; - -function CompatSetting.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CompatSetting.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CompatSetting.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), - pre + "uri": makeweakref(thisFunction(WriteXmlAttrUri)), - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CompatSetting.Copy(_obj: CompatSetting);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.Uri) then - {self.}Uri := _obj.Uri; - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - tslassigning := tslassigning_backup; -end; - -function CompatSetting.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function CompatSetting.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function CompatSetting.ReadXmlAttrUri(); -begin - return {self.}XmlAttrUri.Value; -end; - -function CompatSetting.WriteXmlAttrUri(_value); -begin - if ifnil({self.}XmlAttrUri) then - begin - {self.}XmlAttrUri := new OpenXmlAttribute({self.}Prefix, "uri", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUri; - end - {self.}XmlAttrUri.Value := _value; -end; - -function CompatSetting.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function CompatSetting.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; diff --git a/autoclass/docx/CoreProperties@DOCX.tsf b/autoclass/docx/CoreProperties@DOCX.tsf deleted file mode 100644 index b9340f3..0000000 --- a/autoclass/docx/CoreProperties@DOCX.tsf +++ /dev/null @@ -1,325 +0,0 @@ -type CoreProperties = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: CoreProperties);override; - -public - - // attributes property - property XmlnsCp read ReadXmlAttrXmlnsCp write WriteXmlAttrXmlnsCp; - property XmlnsDc read ReadXmlAttrXmlnsDc write WriteXmlAttrXmlnsDc; - property XmlnsDcterms read ReadXmlAttrXmlnsDcterms write WriteXmlAttrXmlnsDcterms; - property XmlnsDcmitype read ReadXmlAttrXmlnsDcmitype write WriteXmlAttrXmlnsDcmitype; - property XmlnsXsi read ReadXmlAttrXmlnsXsi write WriteXmlAttrXmlnsXsi; - function ReadXmlAttrXmlnsCp(); - function WriteXmlAttrXmlnsCp(_value); - function ReadXmlAttrXmlnsDc(); - function WriteXmlAttrXmlnsDc(_value); - function ReadXmlAttrXmlnsDcterms(); - function WriteXmlAttrXmlnsDcterms(_value); - function ReadXmlAttrXmlnsDcmitype(); - function WriteXmlAttrXmlnsDcmitype(_value); - function ReadXmlAttrXmlnsXsi(); - function WriteXmlAttrXmlnsXsi(_value); - - // pcdata property - property Title read ReadXmlChildTitle; - property Subject read ReadXmlChildSubject; - property Creator read ReadXmlChildCreator; - property Keywords read ReadXmlChildKeywords; - property Description read ReadXmlChildDescription; - property LastModifiedBy read ReadXmlChildLastModifiedBy; - property Revision read ReadXmlChildRevision; - property LastPrinted read ReadXmlChildLastPrinted; - property Created read ReadXmlChildCreated; - property Modified read ReadXmlChildModified; - function ReadXmlChildTitle(); - function ReadXmlChildSubject(); - function ReadXmlChildCreator(); - function ReadXmlChildKeywords(); - function ReadXmlChildDescription(); - function ReadXmlChildLastModifiedBy(); - function ReadXmlChildRevision(); - function ReadXmlChildLastPrinted(); - function ReadXmlChildCreated(); - function ReadXmlChildModified(); - -public - // Attributes - XmlAttrXmlnsCp: OpenXmlAttribute; - XmlAttrXmlnsDc: OpenXmlAttribute; - XmlAttrXmlnsDcterms: OpenXmlAttribute; - XmlAttrXmlnsDcmitype: OpenXmlAttribute; - XmlAttrXmlnsXsi: OpenXmlAttribute; - - // Children - XmlChildTitle: OpenXmlPcdata; - XmlChildSubject: OpenXmlPcdata; - XmlChildCreator: OpenXmlPcdata; - XmlChildKeywords: OpenXmlPcdata; - XmlChildDescription: OpenXmlPcdata; - XmlChildLastModifiedBy: OpenXmlPcdata; - XmlChildRevision: OpenXmlPcdata; - XmlChildLastPrinted: OpenXmlPcdata; - XmlChildCreated: Created; - XmlChildModified: Modified; - -end; - -function CoreProperties.Create();overload; -begin - {self.}Create(nil, "cp", "coreProperties"); -end; - -function CoreProperties.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function CoreProperties.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function CoreProperties.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:cp": makeweakref(thisFunction(WriteXmlAttrXmlnsCp)), - "xmlns:dc": makeweakref(thisFunction(WriteXmlAttrXmlnsDc)), - "xmlns:dcterms": makeweakref(thisFunction(WriteXmlAttrXmlnsDcterms)), - "xmlns:dcmitype": makeweakref(thisFunction(WriteXmlAttrXmlnsDcmitype)), - "xmlns:xsi": makeweakref(thisFunction(WriteXmlAttrXmlnsXsi)), - ); - sorted_child_ := array( - "dc:title": array(0, makeweakref(thisFunction(ReadXmlChildTitle))), - "dc:subject": array(1, makeweakref(thisFunction(ReadXmlChildSubject))), - "dc:creator": array(2, makeweakref(thisFunction(ReadXmlChildCreator))), - "cp:keywords": array(3, makeweakref(thisFunction(ReadXmlChildKeywords))), - "cp:description": array(4, makeweakref(thisFunction(ReadXmlChildDescription))), - "cp:lastModifiedBy": array(5, makeweakref(thisFunction(ReadXmlChildLastModifiedBy))), - "cp:revision": array(6, makeweakref(thisFunction(ReadXmlChildRevision))), - "cp:lastPrinted": array(7, makeweakref(thisFunction(ReadXmlChildLastPrinted))), - "dcterms:created": array(8, makeweakref(thisFunction(ReadXmlChildCreated))), - "dcterms:modified": array(9, makeweakref(thisFunction(ReadXmlChildModified))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function CoreProperties.Copy(_obj: CoreProperties);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsCp) then - {self.}XmlnsCp := _obj.XmlnsCp; - if not ifnil(_obj.XmlnsDc) then - {self.}XmlnsDc := _obj.XmlnsDc; - if not ifnil(_obj.XmlnsDcterms) then - {self.}XmlnsDcterms := _obj.XmlnsDcterms; - if not ifnil(_obj.XmlnsDcmitype) then - {self.}XmlnsDcmitype := _obj.XmlnsDcmitype; - if not ifnil(_obj.XmlnsXsi) then - {self.}XmlnsXsi := _obj.XmlnsXsi; - if not ifnil(_obj.XmlChildTitle) then - {self.}Title.Copy(_obj.XmlChildTitle); - if not ifnil(_obj.XmlChildSubject) then - {self.}Subject.Copy(_obj.XmlChildSubject); - if not ifnil(_obj.XmlChildCreator) then - {self.}Creator.Copy(_obj.XmlChildCreator); - if not ifnil(_obj.XmlChildKeywords) then - {self.}Keywords.Copy(_obj.XmlChildKeywords); - if not ifnil(_obj.XmlChildDescription) then - {self.}Description.Copy(_obj.XmlChildDescription); - if not ifnil(_obj.XmlChildLastModifiedBy) then - {self.}LastModifiedBy.Copy(_obj.XmlChildLastModifiedBy); - if not ifnil(_obj.XmlChildRevision) then - {self.}Revision.Copy(_obj.XmlChildRevision); - if not ifnil(_obj.XmlChildLastPrinted) then - {self.}LastPrinted.Copy(_obj.XmlChildLastPrinted); - if not ifnil(_obj.XmlChildCreated) then - {self.}Created.Copy(_obj.XmlChildCreated); - if not ifnil(_obj.XmlChildModified) then - {self.}Modified.Copy(_obj.XmlChildModified); - tslassigning := tslassigning_backup; -end; - -function CoreProperties.ReadXmlAttrXmlnsCp(); -begin - return {self.}XmlAttrXmlnsCp.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsCp(_value); -begin - if ifnil({self.}XmlAttrXmlnsCp) then - begin - {self.}XmlAttrXmlnsCp := new OpenXmlAttribute("xmlns", "cp", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCp; - end - {self.}XmlAttrXmlnsCp.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsDc(); -begin - return {self.}XmlAttrXmlnsDc.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsDc(_value); -begin - if ifnil({self.}XmlAttrXmlnsDc) then - begin - {self.}XmlAttrXmlnsDc := new OpenXmlAttribute("xmlns", "dc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsDc; - end - {self.}XmlAttrXmlnsDc.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsDcterms(); -begin - return {self.}XmlAttrXmlnsDcterms.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsDcterms(_value); -begin - if ifnil({self.}XmlAttrXmlnsDcterms) then - begin - {self.}XmlAttrXmlnsDcterms := new OpenXmlAttribute("xmlns", "dcterms", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsDcterms; - end - {self.}XmlAttrXmlnsDcterms.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsDcmitype(); -begin - return {self.}XmlAttrXmlnsDcmitype.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsDcmitype(_value); -begin - if ifnil({self.}XmlAttrXmlnsDcmitype) then - begin - {self.}XmlAttrXmlnsDcmitype := new OpenXmlAttribute("xmlns", "dcmitype", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsDcmitype; - end - {self.}XmlAttrXmlnsDcmitype.Value := _value; -end; - -function CoreProperties.ReadXmlAttrXmlnsXsi(); -begin - return {self.}XmlAttrXmlnsXsi.Value; -end; - -function CoreProperties.WriteXmlAttrXmlnsXsi(_value); -begin - if ifnil({self.}XmlAttrXmlnsXsi) then - begin - {self.}XmlAttrXmlnsXsi := new OpenXmlAttribute("xmlns", "xsi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsXsi; - end - {self.}XmlAttrXmlnsXsi.Value := _value; -end; - -function CoreProperties.ReadXmlChildTitle(); -begin - if tslassigning and ifnil({self.}XmlChildTitle) then - begin - {self.}XmlChildTitle := new OpenXmlPcdata(self, "dc", "title"); - container_.Set({self.}XmlChildTitle); - end - return {self.}XmlChildTitle; -end; - -function CoreProperties.ReadXmlChildSubject(); -begin - if tslassigning and ifnil({self.}XmlChildSubject) then - begin - {self.}XmlChildSubject := new OpenXmlPcdata(self, "dc", "subject"); - container_.Set({self.}XmlChildSubject); - end - return {self.}XmlChildSubject; -end; - -function CoreProperties.ReadXmlChildCreator(); -begin - if tslassigning and ifnil({self.}XmlChildCreator) then - begin - {self.}XmlChildCreator := new OpenXmlPcdata(self, "dc", "creator"); - container_.Set({self.}XmlChildCreator); - end - return {self.}XmlChildCreator; -end; - -function CoreProperties.ReadXmlChildKeywords(); -begin - if tslassigning and ifnil({self.}XmlChildKeywords) then - begin - {self.}XmlChildKeywords := new OpenXmlPcdata(self, "cp", "keywords"); - container_.Set({self.}XmlChildKeywords); - end - return {self.}XmlChildKeywords; -end; - -function CoreProperties.ReadXmlChildDescription(); -begin - if tslassigning and ifnil({self.}XmlChildDescription) then - begin - {self.}XmlChildDescription := new OpenXmlPcdata(self, "cp", "description"); - container_.Set({self.}XmlChildDescription); - end - return {self.}XmlChildDescription; -end; - -function CoreProperties.ReadXmlChildLastModifiedBy(); -begin - if tslassigning and ifnil({self.}XmlChildLastModifiedBy) then - begin - {self.}XmlChildLastModifiedBy := new OpenXmlPcdata(self, "cp", "lastModifiedBy"); - container_.Set({self.}XmlChildLastModifiedBy); - end - return {self.}XmlChildLastModifiedBy; -end; - -function CoreProperties.ReadXmlChildRevision(); -begin - if tslassigning and ifnil({self.}XmlChildRevision) then - begin - {self.}XmlChildRevision := new OpenXmlPcdata(self, "cp", "revision"); - container_.Set({self.}XmlChildRevision); - end - return {self.}XmlChildRevision; -end; - -function CoreProperties.ReadXmlChildLastPrinted(); -begin - if tslassigning and ifnil({self.}XmlChildLastPrinted) then - begin - {self.}XmlChildLastPrinted := new OpenXmlPcdata(self, "cp", "lastPrinted"); - container_.Set({self.}XmlChildLastPrinted); - end - return {self.}XmlChildLastPrinted; -end; - -function CoreProperties.ReadXmlChildCreated(); -begin - if tslassigning and ifnil({self.}XmlChildCreated) then - begin - {self.}XmlChildCreated := new Created(self, "dcterms", "created"); - container_.Set({self.}XmlChildCreated); - end - return {self.}XmlChildCreated; -end; - -function CoreProperties.ReadXmlChildModified(); -begin - if tslassigning and ifnil({self.}XmlChildModified) then - begin - {self.}XmlChildModified := new Modified(self, "dcterms", "modified"); - container_.Set({self.}XmlChildModified); - end - return {self.}XmlChildModified; -end; diff --git a/autoclass/docx/Created@DOCX.tsf b/autoclass/docx/Created@DOCX.tsf deleted file mode 100644 index c992399..0000000 --- a/autoclass/docx/Created@DOCX.tsf +++ /dev/null @@ -1,71 +0,0 @@ -type Created = class(OpenXmlPcdata) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Created);override; - -public - - // attributes property - property XsiType read ReadXmlAttrXsiType write WriteXmlAttrXsiType; - function ReadXmlAttrXsiType(); - function WriteXmlAttrXsiType(_value); - -public - // Attributes - XmlAttrXsiType: OpenXmlAttribute; - - -end; - -function Created.Create();overload; -begin - {self.}Create(nil, "dcterms", "created"); -end; - -function Created.Create(_node: XmlNode);overload; -begin - class(OpenXmlPcdata).Create(_node: XmlNode); -end; - -function Created.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); -end; - -function Created.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xsi:type": makeweakref(thisFunction(WriteXmlAttrXsiType)), - ); -end; - -function Created.Copy(_obj: Created);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlPcdata).Copy(_obj); - if not ifnil(_obj.XsiType) then - {self.}XsiType := _obj.XsiType; - tslassigning := tslassigning_backup; -end; - -function Created.ReadXmlAttrXsiType(); -begin - return {self.}XmlAttrXsiType.Value; -end; - -function Created.WriteXmlAttrXsiType(_value); -begin - if ifnil({self.}XmlAttrXsiType) then - begin - {self.}XmlAttrXsiType := new OpenXmlAttribute("xsi", "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXsiType; - end - {self.}XmlAttrXsiType.Value := _value; -end; diff --git a/autoclass/docx/DLbls@DOCX.tsf b/autoclass/docx/DLbls@DOCX.tsf deleted file mode 100644 index d0b9cdb..0000000 --- a/autoclass/docx/DLbls@DOCX.tsf +++ /dev/null @@ -1,195 +0,0 @@ -type DLbls = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: DLbls);override; - -public - - // normal property - property SpPr read ReadXmlChildSpPr; - property ShowLegendKey read ReadXmlChildShowLegendKey; - property ShowVal read ReadXmlChildShowVal; - property ShowCatName read ReadXmlChildShowCatName; - property ShowSerName read ReadXmlChildShowSerName; - property ShowPercent read ReadXmlChildShowPercent; - property ShowBubbleSize read ReadXmlChildShowBubbleSize; - property ShowLeaderLines read ReadXmlChildShowLeaderLines; - property ExtLst read ReadXmlChildExtLst; - function ReadXmlChildSpPr(); - function ReadXmlChildShowLegendKey(); - function ReadXmlChildShowVal(); - function ReadXmlChildShowCatName(); - function ReadXmlChildShowSerName(); - function ReadXmlChildShowPercent(); - function ReadXmlChildShowBubbleSize(); - function ReadXmlChildShowLeaderLines(); - function ReadXmlChildExtLst(); - -public - // Children - XmlChildSpPr: SpPr; - XmlChildShowLegendKey: PureVal; - XmlChildShowVal: PureVal; - XmlChildShowCatName: PureVal; - XmlChildShowSerName: PureVal; - XmlChildShowPercent: PureVal; - XmlChildShowBubbleSize: PureVal; - XmlChildShowLeaderLines: PureVal; - XmlChildExtLst: ExtLst; - -end; - -function DLbls.Create();overload; -begin - {self.}Create(nil, "c", "dLbls"); -end; - -function DLbls.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function DLbls.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DLbls.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "spPr": array(0, makeweakref(thisFunction(ReadXmlChildSpPr))), - pre + "showLegendKey": array(1, makeweakref(thisFunction(ReadXmlChildShowLegendKey))), - pre + "showVal": array(2, makeweakref(thisFunction(ReadXmlChildShowVal))), - pre + "showCatName": array(3, makeweakref(thisFunction(ReadXmlChildShowCatName))), - pre + "showSerName": array(4, makeweakref(thisFunction(ReadXmlChildShowSerName))), - pre + "showPercent": array(5, makeweakref(thisFunction(ReadXmlChildShowPercent))), - pre + "showBubbleSize": array(6, makeweakref(thisFunction(ReadXmlChildShowBubbleSize))), - pre + "showLeaderLines": array(7, makeweakref(thisFunction(ReadXmlChildShowLeaderLines))), - pre + "extLst": array(8, makeweakref(thisFunction(ReadXmlChildExtLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function DLbls.Copy(_obj: DLbls);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSpPr) then - {self.}SpPr.Copy(_obj.XmlChildSpPr); - if not ifnil(_obj.XmlChildShowLegendKey) then - {self.}ShowLegendKey.Copy(_obj.XmlChildShowLegendKey); - if not ifnil(_obj.XmlChildShowVal) then - {self.}ShowVal.Copy(_obj.XmlChildShowVal); - if not ifnil(_obj.XmlChildShowCatName) then - {self.}ShowCatName.Copy(_obj.XmlChildShowCatName); - if not ifnil(_obj.XmlChildShowSerName) then - {self.}ShowSerName.Copy(_obj.XmlChildShowSerName); - if not ifnil(_obj.XmlChildShowPercent) then - {self.}ShowPercent.Copy(_obj.XmlChildShowPercent); - if not ifnil(_obj.XmlChildShowBubbleSize) then - {self.}ShowBubbleSize.Copy(_obj.XmlChildShowBubbleSize); - if not ifnil(_obj.XmlChildShowLeaderLines) then - {self.}ShowLeaderLines.Copy(_obj.XmlChildShowLeaderLines); - if not ifnil(_obj.XmlChildExtLst) then - {self.}ExtLst.Copy(_obj.XmlChildExtLst); - tslassigning := tslassigning_backup; -end; - -function DLbls.ReadXmlChildSpPr(); -begin - if tslassigning and ifnil({self.}XmlChildSpPr) then - begin - {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); - container_.Set({self.}XmlChildSpPr); - end - return {self.}XmlChildSpPr; -end; - -function DLbls.ReadXmlChildShowLegendKey(); -begin - if tslassigning and ifnil({self.}XmlChildShowLegendKey) then - begin - {self.}XmlChildShowLegendKey := new PureVal(self, {self.}Prefix, "showLegendKey"); - container_.Set({self.}XmlChildShowLegendKey); - end - return {self.}XmlChildShowLegendKey; -end; - -function DLbls.ReadXmlChildShowVal(); -begin - if tslassigning and ifnil({self.}XmlChildShowVal) then - begin - {self.}XmlChildShowVal := new PureVal(self, {self.}Prefix, "showVal"); - container_.Set({self.}XmlChildShowVal); - end - return {self.}XmlChildShowVal; -end; - -function DLbls.ReadXmlChildShowCatName(); -begin - if tslassigning and ifnil({self.}XmlChildShowCatName) then - begin - {self.}XmlChildShowCatName := new PureVal(self, {self.}Prefix, "showCatName"); - container_.Set({self.}XmlChildShowCatName); - end - return {self.}XmlChildShowCatName; -end; - -function DLbls.ReadXmlChildShowSerName(); -begin - if tslassigning and ifnil({self.}XmlChildShowSerName) then - begin - {self.}XmlChildShowSerName := new PureVal(self, {self.}Prefix, "showSerName"); - container_.Set({self.}XmlChildShowSerName); - end - return {self.}XmlChildShowSerName; -end; - -function DLbls.ReadXmlChildShowPercent(); -begin - if tslassigning and ifnil({self.}XmlChildShowPercent) then - begin - {self.}XmlChildShowPercent := new PureVal(self, {self.}Prefix, "showPercent"); - container_.Set({self.}XmlChildShowPercent); - end - return {self.}XmlChildShowPercent; -end; - -function DLbls.ReadXmlChildShowBubbleSize(); -begin - if tslassigning and ifnil({self.}XmlChildShowBubbleSize) then - begin - {self.}XmlChildShowBubbleSize := new PureVal(self, {self.}Prefix, "showBubbleSize"); - container_.Set({self.}XmlChildShowBubbleSize); - end - return {self.}XmlChildShowBubbleSize; -end; - -function DLbls.ReadXmlChildShowLeaderLines(); -begin - if tslassigning and ifnil({self.}XmlChildShowLeaderLines) then - begin - {self.}XmlChildShowLeaderLines := new PureVal(self, {self.}Prefix, "showLeaderLines"); - container_.Set({self.}XmlChildShowLeaderLines); - end - return {self.}XmlChildShowLeaderLines; -end; - -function DLbls.ReadXmlChildExtLst(); -begin - if tslassigning and ifnil({self.}XmlChildExtLst) then - begin - {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); - container_.Set({self.}XmlChildExtLst); - end - return {self.}XmlChildExtLst; -end; diff --git a/autoclass/docx/DTable@DOCX.tsf b/autoclass/docx/DTable@DOCX.tsf deleted file mode 100644 index a686878..0000000 --- a/autoclass/docx/DTable@DOCX.tsf +++ /dev/null @@ -1,131 +0,0 @@ -type DTable = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: DTable);override; - -public - - // normal property - property ShowHorzBorder read ReadXmlChildShowHorzBorder; - property ShowVertBorder read ReadXmlChildShowVertBorder; - property ShowOutline read ReadXmlChildShowOutline; - property ShowKeys read ReadXmlChildShowKeys; - property TxPr read ReadXmlChildTxPr; - function ReadXmlChildShowHorzBorder(); - function ReadXmlChildShowVertBorder(); - function ReadXmlChildShowOutline(); - function ReadXmlChildShowKeys(); - function ReadXmlChildTxPr(); - -public - // Children - XmlChildShowHorzBorder: PureVal; - XmlChildShowVertBorder: PureVal; - XmlChildShowOutline: PureVal; - XmlChildShowKeys: PureVal; - XmlChildTxPr: TxPr; - -end; - -function DTable.Create();overload; -begin - {self.}Create(nil, "c", "dTable"); -end; - -function DTable.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function DTable.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DTable.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "showHorzBorder": array(0, makeweakref(thisFunction(ReadXmlChildShowHorzBorder))), - pre + "showVertBorder": array(1, makeweakref(thisFunction(ReadXmlChildShowVertBorder))), - pre + "showOutline": array(2, makeweakref(thisFunction(ReadXmlChildShowOutline))), - pre + "showKeys": array(3, makeweakref(thisFunction(ReadXmlChildShowKeys))), - pre + "txPr": array(4, makeweakref(thisFunction(ReadXmlChildTxPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function DTable.Copy(_obj: DTable);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildShowHorzBorder) then - {self.}ShowHorzBorder.Copy(_obj.XmlChildShowHorzBorder); - if not ifnil(_obj.XmlChildShowVertBorder) then - {self.}ShowVertBorder.Copy(_obj.XmlChildShowVertBorder); - if not ifnil(_obj.XmlChildShowOutline) then - {self.}ShowOutline.Copy(_obj.XmlChildShowOutline); - if not ifnil(_obj.XmlChildShowKeys) then - {self.}ShowKeys.Copy(_obj.XmlChildShowKeys); - if not ifnil(_obj.XmlChildTxPr) then - {self.}TxPr.Copy(_obj.XmlChildTxPr); - tslassigning := tslassigning_backup; -end; - -function DTable.ReadXmlChildShowHorzBorder(); -begin - if tslassigning and ifnil({self.}XmlChildShowHorzBorder) then - begin - {self.}XmlChildShowHorzBorder := new PureVal(self, {self.}Prefix, "showHorzBorder"); - container_.Set({self.}XmlChildShowHorzBorder); - end - return {self.}XmlChildShowHorzBorder; -end; - -function DTable.ReadXmlChildShowVertBorder(); -begin - if tslassigning and ifnil({self.}XmlChildShowVertBorder) then - begin - {self.}XmlChildShowVertBorder := new PureVal(self, {self.}Prefix, "showVertBorder"); - container_.Set({self.}XmlChildShowVertBorder); - end - return {self.}XmlChildShowVertBorder; -end; - -function DTable.ReadXmlChildShowOutline(); -begin - if tslassigning and ifnil({self.}XmlChildShowOutline) then - begin - {self.}XmlChildShowOutline := new PureVal(self, {self.}Prefix, "showOutline"); - container_.Set({self.}XmlChildShowOutline); - end - return {self.}XmlChildShowOutline; -end; - -function DTable.ReadXmlChildShowKeys(); -begin - if tslassigning and ifnil({self.}XmlChildShowKeys) then - begin - {self.}XmlChildShowKeys := new PureVal(self, {self.}Prefix, "showKeys"); - container_.Set({self.}XmlChildShowKeys); - end - return {self.}XmlChildShowKeys; -end; - -function DTable.ReadXmlChildTxPr(); -begin - if tslassigning and ifnil({self.}XmlChildTxPr) then - begin - {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); - container_.Set({self.}XmlChildTxPr); - end - return {self.}XmlChildTxPr; -end; diff --git a/autoclass/docx/Default@DOCX.tsf b/autoclass/docx/Default@DOCX.tsf deleted file mode 100644 index 30211f9..0000000 --- a/autoclass/docx/Default@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Default = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Default);override; - -public - - // attributes property - property Extension read ReadXmlAttrExtension write WriteXmlAttrExtension; - property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType; - function ReadXmlAttrExtension(); - function WriteXmlAttrExtension(_value); - function ReadXmlAttrContentType(); - function WriteXmlAttrContentType(_value); - -public - // Attributes - XmlAttrExtension: OpenXmlAttribute; - XmlAttrContentType: OpenXmlAttribute; - - -end; - -function Default.Create();overload; -begin - {self.}Create(nil, "", "Default"); -end; - -function Default.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Default.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Default.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "Extension": makeweakref(thisFunction(WriteXmlAttrExtension)), - "ContentType": makeweakref(thisFunction(WriteXmlAttrContentType)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Default.Copy(_obj: Default);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Extension) then - {self.}Extension := _obj.Extension; - if not ifnil(_obj.ContentType) then - {self.}ContentType := _obj.ContentType; - tslassigning := tslassigning_backup; -end; - -function Default.ReadXmlAttrExtension(); -begin - return {self.}XmlAttrExtension.Value; -end; - -function Default.WriteXmlAttrExtension(_value); -begin - if ifnil({self.}XmlAttrExtension) then - begin - {self.}XmlAttrExtension := new OpenXmlAttribute("", "Extension", nil); - attributes_[length(attributes_)] := {self.}XmlAttrExtension; - end - {self.}XmlAttrExtension.Value := _value; -end; - -function Default.ReadXmlAttrContentType(); -begin - return {self.}XmlAttrContentType.Value; -end; - -function Default.WriteXmlAttrContentType(_value); -begin - if ifnil({self.}XmlAttrContentType) then - begin - {self.}XmlAttrContentType := new OpenXmlAttribute("", "ContentType", nil); - attributes_[length(attributes_)] := {self.}XmlAttrContentType; - end - {self.}XmlAttrContentType.Value := _value; -end; diff --git a/autoclass/docx/DocDefaults@DOCX.tsf b/autoclass/docx/DocDefaults@DOCX.tsf deleted file mode 100644 index 64770cf..0000000 --- a/autoclass/docx/DocDefaults@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type DocDefaults = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: DocDefaults);override; - -public - - // normal property - property RPrDefault read ReadXmlChildRPrDefault; - property PPrDefault read ReadXmlChildPPrDefault; - function ReadXmlChildRPrDefault(); - function ReadXmlChildPPrDefault(); - -public - // Children - XmlChildRPrDefault: RPrDefault; - XmlChildPPrDefault: PPrDefault; - -end; - -function DocDefaults.Create();overload; -begin - {self.}Create(nil, "w", "docDefaults"); -end; - -function DocDefaults.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function DocDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DocDefaults.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "rPrDefault": array(0, makeweakref(thisFunction(ReadXmlChildRPrDefault))), - pre + "pPrDefault": array(1, makeweakref(thisFunction(ReadXmlChildPPrDefault))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function DocDefaults.Copy(_obj: DocDefaults);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildRPrDefault) then - {self.}RPrDefault.Copy(_obj.XmlChildRPrDefault); - if not ifnil(_obj.XmlChildPPrDefault) then - {self.}PPrDefault.Copy(_obj.XmlChildPPrDefault); - tslassigning := tslassigning_backup; -end; - -function DocDefaults.ReadXmlChildRPrDefault(); -begin - if tslassigning and ifnil({self.}XmlChildRPrDefault) then - begin - {self.}XmlChildRPrDefault := new RPrDefault(self, {self.}Prefix, "rPrDefault"); - container_.Set({self.}XmlChildRPrDefault); - end - return {self.}XmlChildRPrDefault; -end; - -function DocDefaults.ReadXmlChildPPrDefault(); -begin - if tslassigning and ifnil({self.}XmlChildPPrDefault) then - begin - {self.}XmlChildPPrDefault := new PPrDefault(self, {self.}Prefix, "pPrDefault"); - container_.Set({self.}XmlChildPPrDefault); - end - return {self.}XmlChildPPrDefault; -end; diff --git a/autoclass/docx/DocGrid@DOCX.tsf b/autoclass/docx/DocGrid@DOCX.tsf deleted file mode 100644 index 121dee3..0000000 --- a/autoclass/docx/DocGrid@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type DocGrid = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: DocGrid);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - property LinePitch read ReadXmlAttrLinePitch write WriteXmlAttrLinePitch; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrLinePitch(); - function WriteXmlAttrLinePitch(_value); - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - XmlAttrLinePitch: OpenXmlAttribute; - - -end; - -function DocGrid.Create();overload; -begin - {self.}Create(nil, "w", "docGrid"); -end; - -function DocGrid.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function DocGrid.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DocGrid.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - pre + "linePitch": makeweakref(thisFunction(WriteXmlAttrLinePitch)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function DocGrid.Copy(_obj: DocGrid);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.LinePitch) then - {self.}LinePitch := _obj.LinePitch; - tslassigning := tslassigning_backup; -end; - -function DocGrid.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function DocGrid.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function DocGrid.ReadXmlAttrLinePitch(); -begin - return {self.}XmlAttrLinePitch.Value; -end; - -function DocGrid.WriteXmlAttrLinePitch(_value); -begin - if ifnil({self.}XmlAttrLinePitch) then - begin - {self.}XmlAttrLinePitch := new OpenXmlAttribute({self.}Prefix, "linePitch", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLinePitch; - end - {self.}XmlAttrLinePitch.Value := _value; -end; diff --git a/autoclass/docx/DocPartObj@DOCX.tsf b/autoclass/docx/DocPartObj@DOCX.tsf deleted file mode 100644 index e1283ef..0000000 --- a/autoclass/docx/DocPartObj@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type DocPartObj = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: DocPartObj);override; - -public - - // normal property - property DocPartGallery read ReadXmlChildDocPartGallery; - property DocPartUnique read ReadXmlChildDocPartUnique; - function ReadXmlChildDocPartGallery(); - function ReadXmlChildDocPartUnique(); - -public - // Children - XmlChildDocPartGallery: PureWVal; - XmlChildDocPartUnique: PureVal; - -end; - -function DocPartObj.Create();overload; -begin - {self.}Create(nil, "w", "docPartObj"); -end; - -function DocPartObj.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function DocPartObj.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DocPartObj.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "docPartGallery": array(0, makeweakref(thisFunction(ReadXmlChildDocPartGallery))), - pre + "docPartUnique": array(1, makeweakref(thisFunction(ReadXmlChildDocPartUnique))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function DocPartObj.Copy(_obj: DocPartObj);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildDocPartGallery) then - {self.}DocPartGallery.Copy(_obj.XmlChildDocPartGallery); - if not ifnil(_obj.XmlChildDocPartUnique) then - {self.}DocPartUnique.Copy(_obj.XmlChildDocPartUnique); - tslassigning := tslassigning_backup; -end; - -function DocPartObj.ReadXmlChildDocPartGallery(); -begin - if tslassigning and ifnil({self.}XmlChildDocPartGallery) then - begin - {self.}XmlChildDocPartGallery := new PureWVal(self, {self.}Prefix, "docPartGallery"); - container_.Set({self.}XmlChildDocPartGallery); - end - return {self.}XmlChildDocPartGallery; -end; - -function DocPartObj.ReadXmlChildDocPartUnique(); -begin - if tslassigning and ifnil({self.}XmlChildDocPartUnique) then - begin - {self.}XmlChildDocPartUnique := new PureVal(self, {self.}Prefix, "docPartUnique"); - container_.Set({self.}XmlChildDocPartUnique); - end - return {self.}XmlChildDocPartUnique; -end; diff --git a/autoclass/docx/DocPr@DOCX.tsf b/autoclass/docx/DocPr@DOCX.tsf deleted file mode 100644 index 0ec2e66..0000000 --- a/autoclass/docx/DocPr@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type DocPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: DocPr);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Name read ReadXmlAttrName write WriteXmlAttrName; - property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - function ReadXmlAttrDescr(); - function WriteXmlAttrDescr(_value); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - XmlAttrName: OpenXmlAttribute; - XmlAttrDescr: OpenXmlAttribute; - - -end; - -function DocPr.Create();overload; -begin - {self.}Create(nil, "w", "docPr"); -end; - -function DocPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function DocPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function DocPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "id": makeweakref(thisFunction(WriteXmlAttrId)), - "name": makeweakref(thisFunction(WriteXmlAttrName)), - "descr": makeweakref(thisFunction(WriteXmlAttrDescr)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function DocPr.Copy(_obj: DocPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.Descr) then - {self.}Descr := _obj.Descr; - tslassigning := tslassigning_backup; -end; - -function DocPr.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function DocPr.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function DocPr.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function DocPr.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function DocPr.ReadXmlAttrDescr(); -begin - return {self.}XmlAttrDescr.Value; -end; - -function DocPr.WriteXmlAttrDescr(_value); -begin - if ifnil({self.}XmlAttrDescr) then - begin - {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDescr; - end - {self.}XmlAttrDescr.Value := _value; -end; diff --git a/autoclass/docx/Document@DOCX.tsf b/autoclass/docx/Document@DOCX.tsf deleted file mode 100644 index 91f9aa2..0000000 --- a/autoclass/docx/Document@DOCX.tsf +++ /dev/null @@ -1,357 +0,0 @@ -type Document = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Document);override; - -public - - // attributes property - property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; - property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; - property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; - property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsWpc(); - function WriteXmlAttrXmlnsWpc(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16sdtdh(); - function WriteXmlAttrXmlnsW16sdtdh(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrXmlnsWpg(); - function WriteXmlAttrXmlnsWpg(_value); - function ReadXmlAttrXmlnsWpi(); - function WriteXmlAttrXmlnsWpi(_value); - function ReadXmlAttrXmlnsWne(); - function WriteXmlAttrXmlnsWne(_value); - function ReadXmlAttrXmlnsWps(); - function WriteXmlAttrXmlnsWps(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // normal property - property Body read ReadXmlChildBody; - function ReadXmlChildBody(); - -public - // Attributes - XmlAttrXmlnsWpc: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrXmlnsWpg: OpenXmlAttribute; - XmlAttrXmlnsWpi: OpenXmlAttribute; - XmlAttrXmlnsWne: OpenXmlAttribute; - XmlAttrXmlnsWps: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - XmlChildBody: Body; - -end; - -function Document.Create();overload; -begin - {self.}Create(nil, "w", "document"); -end; - -function Document.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Document.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Document.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:wpc": makeweakref(thisFunction(WriteXmlAttrXmlnsWpc)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "xmlns:wpg": makeweakref(thisFunction(WriteXmlAttrXmlnsWpg)), - "xmlns:wpi": makeweakref(thisFunction(WriteXmlAttrXmlnsWpi)), - "xmlns:wne": makeweakref(thisFunction(WriteXmlAttrXmlnsWne)), - "xmlns:wps": makeweakref(thisFunction(WriteXmlAttrXmlnsWps)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "body": array(0, makeweakref(thisFunction(ReadXmlChildBody))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Document.Copy(_obj: Document);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsWpc) then - {self.}XmlnsWpc := _obj.XmlnsWpc; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16sdtdh) then - {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.XmlnsWpg) then - {self.}XmlnsWpg := _obj.XmlnsWpg; - if not ifnil(_obj.XmlnsWpi) then - {self.}XmlnsWpi := _obj.XmlnsWpi; - if not ifnil(_obj.XmlnsWne) then - {self.}XmlnsWne := _obj.XmlnsWne; - if not ifnil(_obj.XmlnsWps) then - {self.}XmlnsWps := _obj.XmlnsWps; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - if not ifnil(_obj.XmlChildBody) then - {self.}Body.Copy(_obj.XmlChildBody); - tslassigning := tslassigning_backup; -end; - -function Document.ReadXmlAttrXmlnsWpc(); -begin - return {self.}XmlAttrXmlnsWpc.Value; -end; - -function Document.WriteXmlAttrXmlnsWpc(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpc) then - begin - {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpc; - end - {self.}XmlAttrXmlnsWpc.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Document.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function Document.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function Document.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function Document.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function Document.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsW16sdtdh(); -begin - return {self.}XmlAttrXmlnsW16sdtdh.Value; -end; - -function Document.WriteXmlAttrXmlnsW16sdtdh(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16sdtdh) then - begin - {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; - end - {self.}XmlAttrXmlnsW16sdtdh.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function Document.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsWpg(); -begin - return {self.}XmlAttrXmlnsWpg.Value; -end; - -function Document.WriteXmlAttrXmlnsWpg(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpg) then - begin - {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpg; - end - {self.}XmlAttrXmlnsWpg.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsWpi(); -begin - return {self.}XmlAttrXmlnsWpi.Value; -end; - -function Document.WriteXmlAttrXmlnsWpi(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpi) then - begin - {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpi; - end - {self.}XmlAttrXmlnsWpi.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsWne(); -begin - return {self.}XmlAttrXmlnsWne.Value; -end; - -function Document.WriteXmlAttrXmlnsWne(_value); -begin - if ifnil({self.}XmlAttrXmlnsWne) then - begin - {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWne; - end - {self.}XmlAttrXmlnsWne.Value := _value; -end; - -function Document.ReadXmlAttrXmlnsWps(); -begin - return {self.}XmlAttrXmlnsWps.Value; -end; - -function Document.WriteXmlAttrXmlnsWps(_value); -begin - if ifnil({self.}XmlAttrXmlnsWps) then - begin - {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWps; - end - {self.}XmlAttrXmlnsWps.Value := _value; -end; - -function Document.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Document.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Document.ReadXmlChildBody(); -begin - if tslassigning and ifnil({self.}XmlChildBody) then - begin - {self.}XmlChildBody := new Body(self, {self.}Prefix, "body"); - container_.Set({self.}XmlChildBody); - end - return {self.}XmlChildBody; -end; diff --git a/autoclass/docx/Drawing@DOCX.tsf b/autoclass/docx/Drawing@DOCX.tsf deleted file mode 100644 index 1d37e58..0000000 --- a/autoclass/docx/Drawing@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type Drawing = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Drawing);override; - -public - - // normal property - property _Inline read ReadXmlChild_Inline; - property Anchor read ReadXmlChildAnchor; - function ReadXmlChild_Inline(); - function ReadXmlChildAnchor(); - -public - // Children - XmlChild_Inline: _Inline; - XmlChildAnchor: Anchor; - -end; - -function Drawing.Create();overload; -begin - {self.}Create(nil, "w", "drawing"); -end; - -function Drawing.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Drawing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Drawing.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "wp:inline": array(0, makeweakref(thisFunction(ReadXmlChild_Inline))), - "wp:anchor": array(1, makeweakref(thisFunction(ReadXmlChildAnchor))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Drawing.Copy(_obj: Drawing);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChild_Inline) then - {self.}_Inline.Copy(_obj.XmlChild_Inline); - if not ifnil(_obj.XmlChildAnchor) then - {self.}Anchor.Copy(_obj.XmlChildAnchor); - tslassigning := tslassigning_backup; -end; - -function Drawing.ReadXmlChild_Inline(); -begin - if tslassigning and ifnil({self.}XmlChild_Inline) then - begin - {self.}XmlChild_Inline := new _Inline(self, "wp", "inline"); - container_.Set({self.}XmlChild_Inline); - end - return {self.}XmlChild_Inline; -end; - -function Drawing.ReadXmlChildAnchor(); -begin - if tslassigning and ifnil({self.}XmlChildAnchor) then - begin - {self.}XmlChildAnchor := new Anchor(self, "wp", "anchor"); - container_.Set({self.}XmlChildAnchor); - end - return {self.}XmlChildAnchor; -end; diff --git a/autoclass/docx/EffectExtent@DOCX.tsf b/autoclass/docx/EffectExtent@DOCX.tsf deleted file mode 100644 index fc246bb..0000000 --- a/autoclass/docx/EffectExtent@DOCX.tsf +++ /dev/null @@ -1,140 +0,0 @@ -type EffectExtent = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: EffectExtent);override; - -public - - // attributes property - property L read ReadXmlAttrL write WriteXmlAttrL; - property T read ReadXmlAttrT write WriteXmlAttrT; - property R read ReadXmlAttrR write WriteXmlAttrR; - property B read ReadXmlAttrB write WriteXmlAttrB; - function ReadXmlAttrL(); - function WriteXmlAttrL(_value); - function ReadXmlAttrT(); - function WriteXmlAttrT(_value); - function ReadXmlAttrR(); - function WriteXmlAttrR(_value); - function ReadXmlAttrB(); - function WriteXmlAttrB(_value); - -public - // Attributes - XmlAttrL: OpenXmlAttribute; - XmlAttrT: OpenXmlAttribute; - XmlAttrR: OpenXmlAttribute; - XmlAttrB: OpenXmlAttribute; - - -end; - -function EffectExtent.Create();overload; -begin - {self.}Create(nil, "wp", "effectExtent"); -end; - -function EffectExtent.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function EffectExtent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EffectExtent.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "l": makeweakref(thisFunction(WriteXmlAttrL)), - "t": makeweakref(thisFunction(WriteXmlAttrT)), - "r": makeweakref(thisFunction(WriteXmlAttrR)), - "b": makeweakref(thisFunction(WriteXmlAttrB)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function EffectExtent.Copy(_obj: EffectExtent);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.L) then - {self.}L := _obj.L; - if not ifnil(_obj.T) then - {self.}T := _obj.T; - if not ifnil(_obj.R) then - {self.}R := _obj.R; - if not ifnil(_obj.B) then - {self.}B := _obj.B; - tslassigning := tslassigning_backup; -end; - -function EffectExtent.ReadXmlAttrL(); -begin - return {self.}XmlAttrL.Value; -end; - -function EffectExtent.WriteXmlAttrL(_value); -begin - if ifnil({self.}XmlAttrL) then - begin - {self.}XmlAttrL := new OpenXmlAttribute("", "l", nil); - attributes_[length(attributes_)] := {self.}XmlAttrL; - end - {self.}XmlAttrL.Value := _value; -end; - -function EffectExtent.ReadXmlAttrT(); -begin - return {self.}XmlAttrT.Value; -end; - -function EffectExtent.WriteXmlAttrT(_value); -begin - if ifnil({self.}XmlAttrT) then - begin - {self.}XmlAttrT := new OpenXmlAttribute("", "t", nil); - attributes_[length(attributes_)] := {self.}XmlAttrT; - end - {self.}XmlAttrT.Value := _value; -end; - -function EffectExtent.ReadXmlAttrR(); -begin - return {self.}XmlAttrR.Value; -end; - -function EffectExtent.WriteXmlAttrR(_value); -begin - if ifnil({self.}XmlAttrR) then - begin - {self.}XmlAttrR := new OpenXmlAttribute("", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrR; - end - {self.}XmlAttrR.Value := _value; -end; - -function EffectExtent.ReadXmlAttrB(); -begin - return {self.}XmlAttrB.Value; -end; - -function EffectExtent.WriteXmlAttrB(_value); -begin - if ifnil({self.}XmlAttrB) then - begin - {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); - attributes_[length(attributes_)] := {self.}XmlAttrB; - end - {self.}XmlAttrB.Value := _value; -end; diff --git a/autoclass/docx/EffectLst@DOCX.tsf b/autoclass/docx/EffectLst@DOCX.tsf deleted file mode 100644 index 8bc5e7c..0000000 --- a/autoclass/docx/EffectLst@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type EffectLst = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: EffectLst);override; - -public - - // normal property - property OuterShdw read ReadXmlChildOuterShdw; - function ReadXmlChildOuterShdw(); - -public - // Children - XmlChildOuterShdw: OuterShdw; - -end; - -function EffectLst.Create();overload; -begin - {self.}Create(nil, "a", "effectLst"); -end; - -function EffectLst.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function EffectLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EffectLst.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "outerShdw": array(0, makeweakref(thisFunction(ReadXmlChildOuterShdw))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function EffectLst.Copy(_obj: EffectLst);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildOuterShdw) then - {self.}OuterShdw.Copy(_obj.XmlChildOuterShdw); - tslassigning := tslassigning_backup; -end; - -function EffectLst.ReadXmlChildOuterShdw(); -begin - if tslassigning and ifnil({self.}XmlChildOuterShdw) then - begin - {self.}XmlChildOuterShdw := new OuterShdw(self, {self.}Prefix, "outerShdw"); - container_.Set({self.}XmlChildOuterShdw); - end - return {self.}XmlChildOuterShdw; -end; diff --git a/autoclass/docx/EffectStyle@DOCX.tsf b/autoclass/docx/EffectStyle@DOCX.tsf deleted file mode 100644 index d6e6d56..0000000 --- a/autoclass/docx/EffectStyle@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type EffectStyle = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: EffectStyle);override; - -public - - // normal property - property EffectLst read ReadXmlChildEffectLst; - function ReadXmlChildEffectLst(); - -public - // Children - XmlChildEffectLst: EffectLst; - -end; - -function EffectStyle.Create();overload; -begin - {self.}Create(nil, "a", "effectStyle"); -end; - -function EffectStyle.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function EffectStyle.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EffectStyle.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "effectLst": array(0, makeweakref(thisFunction(ReadXmlChildEffectLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function EffectStyle.Copy(_obj: EffectStyle);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildEffectLst) then - {self.}EffectLst.Copy(_obj.XmlChildEffectLst); - tslassigning := tslassigning_backup; -end; - -function EffectStyle.ReadXmlChildEffectLst(); -begin - if tslassigning and ifnil({self.}XmlChildEffectLst) then - begin - {self.}XmlChildEffectLst := new EffectLst(self, {self.}Prefix, "effectLst"); - container_.Set({self.}XmlChildEffectLst); - end - return {self.}XmlChildEffectLst; -end; diff --git a/autoclass/docx/EffectStyleLst@DOCX.tsf b/autoclass/docx/EffectStyleLst@DOCX.tsf deleted file mode 100644 index 2ebe74e..0000000 --- a/autoclass/docx/EffectStyleLst@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type EffectStyleLst = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: EffectStyleLst);override; - -public - - // multi property - property EffectStyles read ReadEffectStyles; - function ReadEffectStyles(_index); - function AddEffectStyle(): EffectStyle; - function AppendEffectStyle(): EffectStyle; - -public - // Children - -end; - -function EffectStyleLst.Create();overload; -begin - {self.}Create(nil, "a", "effectStyleLst"); -end; - -function EffectStyleLst.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function EffectStyleLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EffectStyleLst.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "effectStyle": array(0, makeweakref(thisFunction(AppendEffectStyle))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function EffectStyleLst.Copy(_obj: EffectStyleLst);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function EffectStyleLst.ReadEffectStyles(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "effectStyle", ind); -end; - -function EffectStyleLst.AddEffectStyle(): EffectStyle; -begin - obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); - container_.Insert(obj); - return obj; -end; - -function EffectStyleLst.AppendEffectStyle(): EffectStyle; -begin - obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Endnote@DOCX.tsf b/autoclass/docx/Endnote@DOCX.tsf deleted file mode 100644 index 4247af3..0000000 --- a/autoclass/docx/Endnote@DOCX.tsf +++ /dev/null @@ -1,125 +0,0 @@ -type Endnote = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Endnote);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): P; - function AppendP(): P; - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - - // Children - -end; - -function Endnote.Create();overload; -begin - {self.}Create(nil, "w", "endnote"); -end; - -function Endnote.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Endnote.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Endnote.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Endnote.Copy(_obj: Endnote);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function Endnote.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function Endnote.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function Endnote.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Endnote.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Endnote.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function Endnote.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function Endnote.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/EndnotePr@DOCX.tsf b/autoclass/docx/EndnotePr@DOCX.tsf deleted file mode 100644 index f394b4c..0000000 --- a/autoclass/docx/EndnotePr@DOCX.tsf +++ /dev/null @@ -1,127 +0,0 @@ -type EndnotePr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: EndnotePr);override; - -public - - // normal property - property Pos read ReadXmlChildPos; - property NumFmt read ReadXmlChildNumFmt; - property NumStart read ReadXmlChildNumStart; - function ReadXmlChildPos(); - function ReadXmlChildNumFmt(); - function ReadXmlChildNumStart(); - - // multi property - property Endnotes read ReadEndnotes; - function ReadEndnotes(_index); - function AddEndnote(): Endnote; - function AppendEndnote(): Endnote; - -public - // Children - XmlChildPos: PureWVal; - XmlChildNumFmt: PureWVal; - XmlChildNumStart: PureWVal; - -end; - -function EndnotePr.Create();overload; -begin - {self.}Create(nil, "w", "endnotePr"); -end; - -function EndnotePr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function EndnotePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function EndnotePr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "pos": array(0, makeweakref(thisFunction(ReadXmlChildPos))), - pre + "numFmt": array(1, makeweakref(thisFunction(ReadXmlChildNumFmt))), - pre + "numStart": array(2, makeweakref(thisFunction(ReadXmlChildNumStart))), - pre + "endnote": array(3, makeweakref(thisFunction(AppendEndnote))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function EndnotePr.Copy(_obj: EndnotePr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildPos) then - {self.}Pos.Copy(_obj.XmlChildPos); - if not ifnil(_obj.XmlChildNumFmt) then - {self.}NumFmt.Copy(_obj.XmlChildNumFmt); - if not ifnil(_obj.XmlChildNumStart) then - {self.}NumStart.Copy(_obj.XmlChildNumStart); - tslassigning := tslassigning_backup; -end; - -function EndnotePr.ReadXmlChildPos(); -begin - if tslassigning and ifnil({self.}XmlChildPos) then - begin - {self.}XmlChildPos := new PureWVal(self, {self.}Prefix, "pos"); - container_.Set({self.}XmlChildPos); - end - return {self.}XmlChildPos; -end; - -function EndnotePr.ReadXmlChildNumFmt(); -begin - if tslassigning and ifnil({self.}XmlChildNumFmt) then - begin - {self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt"); - container_.Set({self.}XmlChildNumFmt); - end - return {self.}XmlChildNumFmt; -end; - -function EndnotePr.ReadXmlChildNumStart(); -begin - if tslassigning and ifnil({self.}XmlChildNumStart) then - begin - {self.}XmlChildNumStart := new PureWVal(self, {self.}Prefix, "numStart"); - container_.Set({self.}XmlChildNumStart); - end - return {self.}XmlChildNumStart; -end; - -function EndnotePr.ReadEndnotes(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "endnote", ind); -end; - -function EndnotePr.AddEndnote(): Endnote; -begin - obj := new Endnote(self, {self.}Prefix, "endnote"); - container_.Insert(obj); - return obj; -end; - -function EndnotePr.AppendEndnote(): Endnote; -begin - obj := new Endnote(self, {self.}Prefix, "endnote"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Endnotes@DOCX.tsf b/autoclass/docx/Endnotes@DOCX.tsf deleted file mode 100644 index 46e534e..0000000 --- a/autoclass/docx/Endnotes@DOCX.tsf +++ /dev/null @@ -1,807 +0,0 @@ -type Endnotes = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Endnotes);override; - -public - - // attributes property - property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; - property XmlnsCx read ReadXmlAttrXmlnsCx write WriteXmlAttrXmlnsCx; - property XmlnsCx1 read ReadXmlAttrXmlnsCx1 write WriteXmlAttrXmlnsCx1; - property XmlnsCx2 read ReadXmlAttrXmlnsCx2 write WriteXmlAttrXmlnsCx2; - property XmlnsCx3 read ReadXmlAttrXmlnsCx3 write WriteXmlAttrXmlnsCx3; - property XmlnsCx4 read ReadXmlAttrXmlnsCx4 write WriteXmlAttrXmlnsCx4; - property XmlnsCx5 read ReadXmlAttrXmlnsCx5 write WriteXmlAttrXmlnsCx5; - property XmlnsCx6 read ReadXmlAttrXmlnsCx6 write WriteXmlAttrXmlnsCx6; - property XmlnsCx7 read ReadXmlAttrXmlnsCx7 write WriteXmlAttrXmlnsCx7; - property XmlnsCx8 read ReadXmlAttrXmlnsCx8 write WriteXmlAttrXmlnsCx8; - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsAink read ReadXmlAttrXmlnsAink write WriteXmlAttrXmlnsAink; - property XmlnsAm3d read ReadXmlAttrXmlnsAm3d write WriteXmlAttrXmlnsAm3d; - property XmlnsO read ReadXmlAttrXmlnsO write WriteXmlAttrXmlnsO; - property XmlnsOel read ReadXmlAttrXmlnsOel write WriteXmlAttrXmlnsOel; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; - property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; - property XmlnsWp14 read ReadXmlAttrXmlnsWp14 write WriteXmlAttrXmlnsWp14; - property XmlnsWp read ReadXmlAttrXmlnsWp write WriteXmlAttrXmlnsWp; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; - property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; - property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; - property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsWpc(); - function WriteXmlAttrXmlnsWpc(_value); - function ReadXmlAttrXmlnsCx(); - function WriteXmlAttrXmlnsCx(_value); - function ReadXmlAttrXmlnsCx1(); - function WriteXmlAttrXmlnsCx1(_value); - function ReadXmlAttrXmlnsCx2(); - function WriteXmlAttrXmlnsCx2(_value); - function ReadXmlAttrXmlnsCx3(); - function WriteXmlAttrXmlnsCx3(_value); - function ReadXmlAttrXmlnsCx4(); - function WriteXmlAttrXmlnsCx4(_value); - function ReadXmlAttrXmlnsCx5(); - function WriteXmlAttrXmlnsCx5(_value); - function ReadXmlAttrXmlnsCx6(); - function WriteXmlAttrXmlnsCx6(_value); - function ReadXmlAttrXmlnsCx7(); - function WriteXmlAttrXmlnsCx7(_value); - function ReadXmlAttrXmlnsCx8(); - function WriteXmlAttrXmlnsCx8(_value); - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsAink(); - function WriteXmlAttrXmlnsAink(_value); - function ReadXmlAttrXmlnsAm3d(); - function WriteXmlAttrXmlnsAm3d(_value); - function ReadXmlAttrXmlnsO(); - function WriteXmlAttrXmlnsO(_value); - function ReadXmlAttrXmlnsOel(); - function WriteXmlAttrXmlnsOel(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsM(); - function WriteXmlAttrXmlnsM(_value); - function ReadXmlAttrXmlnsV(); - function WriteXmlAttrXmlnsV(_value); - function ReadXmlAttrXmlnsWp14(); - function WriteXmlAttrXmlnsWp14(_value); - function ReadXmlAttrXmlnsWp(); - function WriteXmlAttrXmlnsWp(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16sdtdh(); - function WriteXmlAttrXmlnsW16sdtdh(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrXmlnsWpg(); - function WriteXmlAttrXmlnsWpg(_value); - function ReadXmlAttrXmlnsWpi(); - function WriteXmlAttrXmlnsWpi(_value); - function ReadXmlAttrXmlnsWne(); - function WriteXmlAttrXmlnsWne(_value); - function ReadXmlAttrXmlnsWps(); - function WriteXmlAttrXmlnsWps(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // multi property - property Endnotes read ReadEndnotes; - function ReadEndnotes(_index); - function AddEndnote(): Endnote; - function AppendEndnote(): Endnote; - -public - // Attributes - XmlAttrXmlnsWpc: OpenXmlAttribute; - XmlAttrXmlnsCx: OpenXmlAttribute; - XmlAttrXmlnsCx1: OpenXmlAttribute; - XmlAttrXmlnsCx2: OpenXmlAttribute; - XmlAttrXmlnsCx3: OpenXmlAttribute; - XmlAttrXmlnsCx4: OpenXmlAttribute; - XmlAttrXmlnsCx5: OpenXmlAttribute; - XmlAttrXmlnsCx6: OpenXmlAttribute; - XmlAttrXmlnsCx7: OpenXmlAttribute; - XmlAttrXmlnsCx8: OpenXmlAttribute; - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsAink: OpenXmlAttribute; - XmlAttrXmlnsAm3d: OpenXmlAttribute; - XmlAttrXmlnsO: OpenXmlAttribute; - XmlAttrXmlnsOel: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsM: OpenXmlAttribute; - XmlAttrXmlnsV: OpenXmlAttribute; - XmlAttrXmlnsWp14: OpenXmlAttribute; - XmlAttrXmlnsWp: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrXmlnsWpg: OpenXmlAttribute; - XmlAttrXmlnsWpi: OpenXmlAttribute; - XmlAttrXmlnsWne: OpenXmlAttribute; - XmlAttrXmlnsWps: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - -end; - -function Endnotes.Create();overload; -begin - {self.}Create(nil, "w", "endnotes"); -end; - -function Endnotes.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Endnotes.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Endnotes.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:wpc": makeweakref(thisFunction(WriteXmlAttrXmlnsWpc)), - "xmlns:cx": makeweakref(thisFunction(WriteXmlAttrXmlnsCx)), - "xmlns:cx1": makeweakref(thisFunction(WriteXmlAttrXmlnsCx1)), - "xmlns:cx2": makeweakref(thisFunction(WriteXmlAttrXmlnsCx2)), - "xmlns:cx3": makeweakref(thisFunction(WriteXmlAttrXmlnsCx3)), - "xmlns:cx4": makeweakref(thisFunction(WriteXmlAttrXmlnsCx4)), - "xmlns:cx5": makeweakref(thisFunction(WriteXmlAttrXmlnsCx5)), - "xmlns:cx6": makeweakref(thisFunction(WriteXmlAttrXmlnsCx6)), - "xmlns:cx7": makeweakref(thisFunction(WriteXmlAttrXmlnsCx7)), - "xmlns:cx8": makeweakref(thisFunction(WriteXmlAttrXmlnsCx8)), - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:aink": makeweakref(thisFunction(WriteXmlAttrXmlnsAink)), - "xmlns:am3d": makeweakref(thisFunction(WriteXmlAttrXmlnsAm3d)), - "xmlns:o": makeweakref(thisFunction(WriteXmlAttrXmlnsO)), - "xmlns:oel": makeweakref(thisFunction(WriteXmlAttrXmlnsOel)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), - "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), - "xmlns:wp14": makeweakref(thisFunction(WriteXmlAttrXmlnsWp14)), - "xmlns:wp": makeweakref(thisFunction(WriteXmlAttrXmlnsWp)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "xmlns:wpg": makeweakref(thisFunction(WriteXmlAttrXmlnsWpg)), - "xmlns:wpi": makeweakref(thisFunction(WriteXmlAttrXmlnsWpi)), - "xmlns:wne": makeweakref(thisFunction(WriteXmlAttrXmlnsWne)), - "xmlns:wps": makeweakref(thisFunction(WriteXmlAttrXmlnsWps)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "endnote": array(0, makeweakref(thisFunction(AppendEndnote))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Endnotes.Copy(_obj: Endnotes);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsWpc) then - {self.}XmlnsWpc := _obj.XmlnsWpc; - if not ifnil(_obj.XmlnsCx) then - {self.}XmlnsCx := _obj.XmlnsCx; - if not ifnil(_obj.XmlnsCx1) then - {self.}XmlnsCx1 := _obj.XmlnsCx1; - if not ifnil(_obj.XmlnsCx2) then - {self.}XmlnsCx2 := _obj.XmlnsCx2; - if not ifnil(_obj.XmlnsCx3) then - {self.}XmlnsCx3 := _obj.XmlnsCx3; - if not ifnil(_obj.XmlnsCx4) then - {self.}XmlnsCx4 := _obj.XmlnsCx4; - if not ifnil(_obj.XmlnsCx5) then - {self.}XmlnsCx5 := _obj.XmlnsCx5; - if not ifnil(_obj.XmlnsCx6) then - {self.}XmlnsCx6 := _obj.XmlnsCx6; - if not ifnil(_obj.XmlnsCx7) then - {self.}XmlnsCx7 := _obj.XmlnsCx7; - if not ifnil(_obj.XmlnsCx8) then - {self.}XmlnsCx8 := _obj.XmlnsCx8; - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsAink) then - {self.}XmlnsAink := _obj.XmlnsAink; - if not ifnil(_obj.XmlnsAm3d) then - {self.}XmlnsAm3d := _obj.XmlnsAm3d; - if not ifnil(_obj.XmlnsO) then - {self.}XmlnsO := _obj.XmlnsO; - if not ifnil(_obj.XmlnsOel) then - {self.}XmlnsOel := _obj.XmlnsOel; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsM) then - {self.}XmlnsM := _obj.XmlnsM; - if not ifnil(_obj.XmlnsV) then - {self.}XmlnsV := _obj.XmlnsV; - if not ifnil(_obj.XmlnsWp14) then - {self.}XmlnsWp14 := _obj.XmlnsWp14; - if not ifnil(_obj.XmlnsWp) then - {self.}XmlnsWp := _obj.XmlnsWp; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16sdtdh) then - {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.XmlnsWpg) then - {self.}XmlnsWpg := _obj.XmlnsWpg; - if not ifnil(_obj.XmlnsWpi) then - {self.}XmlnsWpi := _obj.XmlnsWpi; - if not ifnil(_obj.XmlnsWne) then - {self.}XmlnsWne := _obj.XmlnsWne; - if not ifnil(_obj.XmlnsWps) then - {self.}XmlnsWps := _obj.XmlnsWps; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - tslassigning := tslassigning_backup; -end; - -function Endnotes.ReadXmlAttrXmlnsWpc(); -begin - return {self.}XmlAttrXmlnsWpc.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsWpc(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpc) then - begin - {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpc; - end - {self.}XmlAttrXmlnsWpc.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx(); -begin - return {self.}XmlAttrXmlnsCx.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx) then - begin - {self.}XmlAttrXmlnsCx := new OpenXmlAttribute("xmlns", "cx", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx; - end - {self.}XmlAttrXmlnsCx.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx1(); -begin - return {self.}XmlAttrXmlnsCx1.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx1(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx1) then - begin - {self.}XmlAttrXmlnsCx1 := new OpenXmlAttribute("xmlns", "cx1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx1; - end - {self.}XmlAttrXmlnsCx1.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx2(); -begin - return {self.}XmlAttrXmlnsCx2.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx2(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx2) then - begin - {self.}XmlAttrXmlnsCx2 := new OpenXmlAttribute("xmlns", "cx2", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx2; - end - {self.}XmlAttrXmlnsCx2.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx3(); -begin - return {self.}XmlAttrXmlnsCx3.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx3(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx3) then - begin - {self.}XmlAttrXmlnsCx3 := new OpenXmlAttribute("xmlns", "cx3", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx3; - end - {self.}XmlAttrXmlnsCx3.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx4(); -begin - return {self.}XmlAttrXmlnsCx4.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx4(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx4) then - begin - {self.}XmlAttrXmlnsCx4 := new OpenXmlAttribute("xmlns", "cx4", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx4; - end - {self.}XmlAttrXmlnsCx4.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx5(); -begin - return {self.}XmlAttrXmlnsCx5.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx5(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx5) then - begin - {self.}XmlAttrXmlnsCx5 := new OpenXmlAttribute("xmlns", "cx5", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx5; - end - {self.}XmlAttrXmlnsCx5.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx6(); -begin - return {self.}XmlAttrXmlnsCx6.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx6(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx6) then - begin - {self.}XmlAttrXmlnsCx6 := new OpenXmlAttribute("xmlns", "cx6", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx6; - end - {self.}XmlAttrXmlnsCx6.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx7(); -begin - return {self.}XmlAttrXmlnsCx7.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx7(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx7) then - begin - {self.}XmlAttrXmlnsCx7 := new OpenXmlAttribute("xmlns", "cx7", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx7; - end - {self.}XmlAttrXmlnsCx7.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsCx8(); -begin - return {self.}XmlAttrXmlnsCx8.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsCx8(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx8) then - begin - {self.}XmlAttrXmlnsCx8 := new OpenXmlAttribute("xmlns", "cx8", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx8; - end - {self.}XmlAttrXmlnsCx8.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsAink(); -begin - return {self.}XmlAttrXmlnsAink.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsAink(_value); -begin - if ifnil({self.}XmlAttrXmlnsAink) then - begin - {self.}XmlAttrXmlnsAink := new OpenXmlAttribute("xmlns", "aink", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsAink; - end - {self.}XmlAttrXmlnsAink.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsAm3d(); -begin - return {self.}XmlAttrXmlnsAm3d.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsAm3d(_value); -begin - if ifnil({self.}XmlAttrXmlnsAm3d) then - begin - {self.}XmlAttrXmlnsAm3d := new OpenXmlAttribute("xmlns", "am3d", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsAm3d; - end - {self.}XmlAttrXmlnsAm3d.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsO(); -begin - return {self.}XmlAttrXmlnsO.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsO(_value); -begin - if ifnil({self.}XmlAttrXmlnsO) then - begin - {self.}XmlAttrXmlnsO := new OpenXmlAttribute("xmlns", "o", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsO; - end - {self.}XmlAttrXmlnsO.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsOel(); -begin - return {self.}XmlAttrXmlnsOel.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsOel(_value); -begin - if ifnil({self.}XmlAttrXmlnsOel) then - begin - {self.}XmlAttrXmlnsOel := new OpenXmlAttribute("xmlns", "oel", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsOel; - end - {self.}XmlAttrXmlnsOel.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsM(); -begin - return {self.}XmlAttrXmlnsM.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsM(_value); -begin - if ifnil({self.}XmlAttrXmlnsM) then - begin - {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; - end - {self.}XmlAttrXmlnsM.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsV(); -begin - return {self.}XmlAttrXmlnsV.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsV(_value); -begin - if ifnil({self.}XmlAttrXmlnsV) then - begin - {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; - end - {self.}XmlAttrXmlnsV.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsWp14(); -begin - return {self.}XmlAttrXmlnsWp14.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsWp14(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp14) then - begin - {self.}XmlAttrXmlnsWp14 := new OpenXmlAttribute("xmlns", "wp14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp14; - end - {self.}XmlAttrXmlnsWp14.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsWp(); -begin - return {self.}XmlAttrXmlnsWp.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsWp(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp) then - begin - {self.}XmlAttrXmlnsWp := new OpenXmlAttribute("xmlns", "wp", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp; - end - {self.}XmlAttrXmlnsWp.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW16sdtdh(); -begin - return {self.}XmlAttrXmlnsW16sdtdh.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW16sdtdh(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16sdtdh) then - begin - {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; - end - {self.}XmlAttrXmlnsW16sdtdh.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsWpg(); -begin - return {self.}XmlAttrXmlnsWpg.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsWpg(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpg) then - begin - {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpg; - end - {self.}XmlAttrXmlnsWpg.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsWpi(); -begin - return {self.}XmlAttrXmlnsWpi.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsWpi(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpi) then - begin - {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpi; - end - {self.}XmlAttrXmlnsWpi.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsWne(); -begin - return {self.}XmlAttrXmlnsWne.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsWne(_value); -begin - if ifnil({self.}XmlAttrXmlnsWne) then - begin - {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWne; - end - {self.}XmlAttrXmlnsWne.Value := _value; -end; - -function Endnotes.ReadXmlAttrXmlnsWps(); -begin - return {self.}XmlAttrXmlnsWps.Value; -end; - -function Endnotes.WriteXmlAttrXmlnsWps(_value); -begin - if ifnil({self.}XmlAttrXmlnsWps) then - begin - {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWps; - end - {self.}XmlAttrXmlnsWps.Value := _value; -end; - -function Endnotes.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Endnotes.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Endnotes.ReadEndnotes(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "endnote", ind); -end; - -function Endnotes.AddEndnote(): Endnote; -begin - obj := new Endnote(self, {self.}Prefix, "endnote"); - container_.Insert(obj); - return obj; -end; - -function Endnotes.AppendEndnote(): Endnote; -begin - obj := new Endnote(self, {self.}Prefix, "endnote"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Ext@DOCX.tsf b/autoclass/docx/Ext@DOCX.tsf deleted file mode 100644 index cfa2b8b..0000000 --- a/autoclass/docx/Ext@DOCX.tsf +++ /dev/null @@ -1,131 +0,0 @@ -type Ext = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ext);override; - -public - - // attributes property - property Uri read ReadXmlAttrUri write WriteXmlAttrUri; - property XmlnsC16 read ReadXmlAttrXmlnsC16 write WriteXmlAttrXmlnsC16; - function ReadXmlAttrUri(); - function WriteXmlAttrUri(_value); - function ReadXmlAttrXmlnsC16(); - function WriteXmlAttrXmlnsC16(_value); - - // normal property - property Thm15ThemeFamily read ReadXmlChildThm15ThemeFamily; - property UniqueId read ReadXmlChildUniqueId; - function ReadXmlChildThm15ThemeFamily(); - function ReadXmlChildUniqueId(); - -public - // Attributes - XmlAttrUri: OpenXmlAttribute; - XmlAttrXmlnsC16: OpenXmlAttribute; - - // Children - XmlChildThm15ThemeFamily: ThemeFamily; - XmlChildUniqueId: PureVal; - -end; - -function Ext.Create();overload; -begin - {self.}Create(nil, "a", "ext"); -end; - -function Ext.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ext.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ext.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "uri": makeweakref(thisFunction(WriteXmlAttrUri)), - "xmlns:c16": makeweakref(thisFunction(WriteXmlAttrXmlnsC16)), - ); - sorted_child_ := array( - "thm15:themeFamily": array(0, makeweakref(thisFunction(ReadXmlChildThm15ThemeFamily))), - "c16:uniquedId": array(1, makeweakref(thisFunction(ReadXmlChildUniqueId))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ext.Copy(_obj: Ext);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Uri) then - {self.}Uri := _obj.Uri; - if not ifnil(_obj.XmlnsC16) then - {self.}XmlnsC16 := _obj.XmlnsC16; - if not ifnil(_obj.XmlChildThm15ThemeFamily) then - {self.}Thm15ThemeFamily.Copy(_obj.XmlChildThm15ThemeFamily); - if not ifnil(_obj.XmlChildUniqueId) then - {self.}UniqueId.Copy(_obj.XmlChildUniqueId); - tslassigning := tslassigning_backup; -end; - -function Ext.ReadXmlAttrUri(); -begin - return {self.}XmlAttrUri.Value; -end; - -function Ext.WriteXmlAttrUri(_value); -begin - if ifnil({self.}XmlAttrUri) then - begin - {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUri; - end - {self.}XmlAttrUri.Value := _value; -end; - -function Ext.ReadXmlAttrXmlnsC16(); -begin - return {self.}XmlAttrXmlnsC16.Value; -end; - -function Ext.WriteXmlAttrXmlnsC16(_value); -begin - if ifnil({self.}XmlAttrXmlnsC16) then - begin - {self.}XmlAttrXmlnsC16 := new OpenXmlAttribute("xmlns", "c16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsC16; - end - {self.}XmlAttrXmlnsC16.Value := _value; -end; - -function Ext.ReadXmlChildThm15ThemeFamily(); -begin - if tslassigning and ifnil({self.}XmlChildThm15ThemeFamily) then - begin - {self.}XmlChildThm15ThemeFamily := new ThemeFamily(self, "thm15", "themeFamily"); - container_.Set({self.}XmlChildThm15ThemeFamily); - end - return {self.}XmlChildThm15ThemeFamily; -end; - -function Ext.ReadXmlChildUniqueId(); -begin - if tslassigning and ifnil({self.}XmlChildUniqueId) then - begin - {self.}XmlChildUniqueId := new PureVal(self, "c16", "uniquedId"); - container_.Set({self.}XmlChildUniqueId); - end - return {self.}XmlChildUniqueId; -end; diff --git a/autoclass/docx/ExtLst@DOCX.tsf b/autoclass/docx/ExtLst@DOCX.tsf deleted file mode 100644 index 8c81786..0000000 --- a/autoclass/docx/ExtLst@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type ExtLst = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ExtLst);override; - -public - - // multi property - property Exts read ReadExts; - function ReadExts(_index); - function AddExt(): Ext; - function AppendExt(): Ext; - -public - // Children - -end; - -function ExtLst.Create();overload; -begin - {self.}Create(nil, "a", "extLst"); -end; - -function ExtLst.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ExtLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ExtLst.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "ext": array(0, makeweakref(thisFunction(AppendExt))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ExtLst.Copy(_obj: ExtLst);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function ExtLst.ReadExts(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "ext", ind); -end; - -function ExtLst.AddExt(): Ext; -begin - obj := new Ext(self, {self.}Prefix, "ext"); - container_.Insert(obj); - return obj; -end; - -function ExtLst.AppendExt(): Ext; -begin - obj := new Ext(self, {self.}Prefix, "ext"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/ExternalData@DOCX.tsf b/autoclass/docx/ExternalData@DOCX.tsf deleted file mode 100644 index 4aeb0d7..0000000 --- a/autoclass/docx/ExternalData@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type ExternalData = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ExternalData);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - - // normal property - property AutoUpdate read ReadXmlChildAutoUpdate; - function ReadXmlChildAutoUpdate(); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - - // Children - XmlChildAutoUpdate: PureVal; - -end; - -function ExternalData.Create();overload; -begin - {self.}Create(nil, "c", "externalData"); -end; - -function ExternalData.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ExternalData.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ExternalData.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "r:id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - pre + "autoUpdate": array(0, makeweakref(thisFunction(ReadXmlChildAutoUpdate))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ExternalData.Copy(_obj: ExternalData);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.XmlChildAutoUpdate) then - {self.}AutoUpdate.Copy(_obj.XmlChildAutoUpdate); - tslassigning := tslassigning_backup; -end; - -function ExternalData.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function ExternalData.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function ExternalData.ReadXmlChildAutoUpdate(); -begin - if tslassigning and ifnil({self.}XmlChildAutoUpdate) then - begin - {self.}XmlChildAutoUpdate := new PureVal(self, {self.}Prefix, "autoUpdate"); - container_.Set({self.}XmlChildAutoUpdate); - end - return {self.}XmlChildAutoUpdate; -end; diff --git a/autoclass/docx/F@DOCX.tsf b/autoclass/docx/F@DOCX.tsf deleted file mode 100644 index da38036..0000000 --- a/autoclass/docx/F@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type F = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: F);override; - -public - - // attributes property - property Eqn read ReadXmlAttrEqn write WriteXmlAttrEqn; - function ReadXmlAttrEqn(); - function WriteXmlAttrEqn(_value); - -public - // Attributes - XmlAttrEqn: OpenXmlAttribute; - - -end; - -function F.Create();overload; -begin - {self.}Create(nil, "v", "f"); -end; - -function F.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function F.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function F.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "eqn": makeweakref(thisFunction(WriteXmlAttrEqn)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function F.Copy(_obj: F);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Eqn) then - {self.}Eqn := _obj.Eqn; - tslassigning := tslassigning_backup; -end; - -function F.ReadXmlAttrEqn(); -begin - return {self.}XmlAttrEqn.Value; -end; - -function F.WriteXmlAttrEqn(_value); -begin - if ifnil({self.}XmlAttrEqn) then - begin - {self.}XmlAttrEqn := new OpenXmlAttribute("", "eqn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEqn; - end - {self.}XmlAttrEqn.Value := _value; -end; diff --git a/autoclass/docx/Fallback@DOCX.tsf b/autoclass/docx/Fallback@DOCX.tsf deleted file mode 100644 index 64b6931..0000000 --- a/autoclass/docx/Fallback@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type Fallback = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Fallback);override; - -public - - // normal property - property Style read ReadXmlChildStyle; - property Pict read ReadXmlChildPict; - function ReadXmlChildStyle(); - function ReadXmlChildPict(); - -public - // Children - XmlChildStyle: PureVal; - XmlChildPict: Pict; - -end; - -function Fallback.Create();overload; -begin - {self.}Create(nil, "mc", "Fallback"); -end; - -function Fallback.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Fallback.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Fallback.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "c:style": array(0, makeweakref(thisFunction(ReadXmlChildStyle))), - "w:pict": array(1, makeweakref(thisFunction(ReadXmlChildPict))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Fallback.Copy(_obj: Fallback);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildStyle) then - {self.}Style.Copy(_obj.XmlChildStyle); - if not ifnil(_obj.XmlChildPict) then - {self.}Pict.Copy(_obj.XmlChildPict); - tslassigning := tslassigning_backup; -end; - -function Fallback.ReadXmlChildStyle(); -begin - if tslassigning and ifnil({self.}XmlChildStyle) then - begin - {self.}XmlChildStyle := new PureVal(self, "c", "style"); - container_.Set({self.}XmlChildStyle); - end - return {self.}XmlChildStyle; -end; - -function Fallback.ReadXmlChildPict(); -begin - if tslassigning and ifnil({self.}XmlChildPict) then - begin - {self.}XmlChildPict := new Pict(self, "w", "pict"); - container_.Set({self.}XmlChildPict); - end - return {self.}XmlChildPict; -end; diff --git a/autoclass/docx/FillStyleLst@DOCX.tsf b/autoclass/docx/FillStyleLst@DOCX.tsf deleted file mode 100644 index 10e63e7..0000000 --- a/autoclass/docx/FillStyleLst@DOCX.tsf +++ /dev/null @@ -1,103 +0,0 @@ -type FillStyleLst = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: FillStyleLst);override; - -public - - // multi property - property SolidFills read ReadSolidFills; - property GradFills read ReadGradFills; - function ReadSolidFills(_index); - function ReadGradFills(_index); - function AddSolidFill(): SolidFill; - function AddGradFill(): GradFill; - function AppendSolidFill(): SolidFill; - function AppendGradFill(): GradFill; - -public - // Children - -end; - -function FillStyleLst.Create();overload; -begin - {self.}Create(nil, "a", "fillStyleLst"); -end; - -function FillStyleLst.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function FillStyleLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FillStyleLst.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "solidFill": array(0, makeweakref(thisFunction(AppendSolidFill))), - pre + "gradFill": array(1, makeweakref(thisFunction(AppendGradFill))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function FillStyleLst.Copy(_obj: FillStyleLst);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function FillStyleLst.ReadSolidFills(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "solidFill", ind); -end; - -function FillStyleLst.ReadGradFills(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "gradFill", ind); -end; - -function FillStyleLst.AddSolidFill(): SolidFill; -begin - obj := new SolidFill(self, {self.}Prefix, "solidFill"); - container_.Insert(obj); - return obj; -end; - -function FillStyleLst.AddGradFill(): GradFill; -begin - obj := new GradFill(self, {self.}Prefix, "gradFill"); - container_.Insert(obj); - return obj; -end; - -function FillStyleLst.AppendSolidFill(): SolidFill; -begin - obj := new SolidFill(self, {self.}Prefix, "solidFill"); - container_.Append(obj); - return obj; -end; - -function FillStyleLst.AppendGradFill(): GradFill; -begin - obj := new GradFill(self, {self.}Prefix, "gradFill"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/FldChar@DOCX.tsf b/autoclass/docx/FldChar@DOCX.tsf deleted file mode 100644 index 2a18152..0000000 --- a/autoclass/docx/FldChar@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type FldChar = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: FldChar);override; - -public - - // attributes property - property FldCharType read ReadXmlAttrFldCharType write WriteXmlAttrFldCharType; - property FldLock read ReadXmlAttrFldLock write WriteXmlAttrFldLock; - property Dirty read ReadXmlAttrDirty write WriteXmlAttrDirty; - function ReadXmlAttrFldCharType(); - function WriteXmlAttrFldCharType(_value); - function ReadXmlAttrFldLock(); - function WriteXmlAttrFldLock(_value); - function ReadXmlAttrDirty(); - function WriteXmlAttrDirty(_value); - -public - // Attributes - XmlAttrFldCharType: OpenXmlAttribute; - XmlAttrFldLock: OpenXmlAttribute; - XmlAttrDirty: OpenXmlAttribute; - - -end; - -function FldChar.Create();overload; -begin - {self.}Create(nil, "w", "fldChar"); -end; - -function FldChar.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function FldChar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FldChar.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "fldCharType": makeweakref(thisFunction(WriteXmlAttrFldCharType)), - pre + "fldLock": makeweakref(thisFunction(WriteXmlAttrFldLock)), - pre + "dirty": makeweakref(thisFunction(WriteXmlAttrDirty)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function FldChar.Copy(_obj: FldChar);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.FldCharType) then - {self.}FldCharType := _obj.FldCharType; - if not ifnil(_obj.FldLock) then - {self.}FldLock := _obj.FldLock; - if not ifnil(_obj.Dirty) then - {self.}Dirty := _obj.Dirty; - tslassigning := tslassigning_backup; -end; - -function FldChar.ReadXmlAttrFldCharType(); -begin - return {self.}XmlAttrFldCharType.Value; -end; - -function FldChar.WriteXmlAttrFldCharType(_value); -begin - if ifnil({self.}XmlAttrFldCharType) then - begin - {self.}XmlAttrFldCharType := new OpenXmlAttribute({self.}Prefix, "fldCharType", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFldCharType; - end - {self.}XmlAttrFldCharType.Value := _value; -end; - -function FldChar.ReadXmlAttrFldLock(); -begin - return {self.}XmlAttrFldLock.Value; -end; - -function FldChar.WriteXmlAttrFldLock(_value); -begin - if ifnil({self.}XmlAttrFldLock) then - begin - {self.}XmlAttrFldLock := new OpenXmlAttribute({self.}Prefix, "fldLock", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFldLock; - end - {self.}XmlAttrFldLock.Value := _value; -end; - -function FldChar.ReadXmlAttrDirty(); -begin - return {self.}XmlAttrDirty.Value; -end; - -function FldChar.WriteXmlAttrDirty(_value); -begin - if ifnil({self.}XmlAttrDirty) then - begin - {self.}XmlAttrDirty := new OpenXmlAttribute({self.}Prefix, "dirty", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDirty; - end - {self.}XmlAttrDirty.Value := _value; -end; diff --git a/autoclass/docx/FldSimple@DOCX.tsf b/autoclass/docx/FldSimple@DOCX.tsf deleted file mode 100644 index d75bef1..0000000 --- a/autoclass/docx/FldSimple@DOCX.tsf +++ /dev/null @@ -1,103 +0,0 @@ -type FldSimple = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: FldSimple);override; - -public - - // attributes property - property Instr read ReadXmlAttrInstr write WriteXmlAttrInstr; - function ReadXmlAttrInstr(); - function WriteXmlAttrInstr(_value); - - // multi property - property Rs read ReadRs; - function ReadRs(_index); - function AddR(): R; - function AppendR(): R; - -public - // Attributes - XmlAttrInstr: OpenXmlAttribute; - - // Children - -end; - -function FldSimple.Create();overload; -begin - {self.}Create(nil, "w", "fldSimple"); -end; - -function FldSimple.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function FldSimple.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FldSimple.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "instr": makeweakref(thisFunction(WriteXmlAttrInstr)), - ); - sorted_child_ := array( - pre + "r": array(0, makeweakref(thisFunction(AppendR))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function FldSimple.Copy(_obj: FldSimple);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Instr) then - {self.}Instr := _obj.Instr; - tslassigning := tslassigning_backup; -end; - -function FldSimple.ReadXmlAttrInstr(); -begin - return {self.}XmlAttrInstr.Value; -end; - -function FldSimple.WriteXmlAttrInstr(_value); -begin - if ifnil({self.}XmlAttrInstr) then - begin - {self.}XmlAttrInstr := new OpenXmlAttribute({self.}Prefix, "instr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrInstr; - end - {self.}XmlAttrInstr.Value := _value; -end; - -function FldSimple.ReadRs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "r", ind); -end; - -function FldSimple.AddR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Insert(obj); - return obj; -end; - -function FldSimple.AppendR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/FmtScheme@DOCX.tsf b/autoclass/docx/FmtScheme@DOCX.tsf deleted file mode 100644 index 0f2e3fa..0000000 --- a/autoclass/docx/FmtScheme@DOCX.tsf +++ /dev/null @@ -1,141 +0,0 @@ -type FmtScheme = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: FmtScheme);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - - // normal property - property FillStyleLst read ReadXmlChildFillStyleLst; - property LnStyleLst read ReadXmlChildLnStyleLst; - property EffectStyleLst read ReadXmlChildEffectStyleLst; - property BgFillStyleLst read ReadXmlChildBgFillStyleLst; - function ReadXmlChildFillStyleLst(); - function ReadXmlChildLnStyleLst(); - function ReadXmlChildEffectStyleLst(); - function ReadXmlChildBgFillStyleLst(); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - - // Children - XmlChildFillStyleLst: FillStyleLst; - XmlChildLnStyleLst: LnStyleLst; - XmlChildEffectStyleLst: EffectStyleLst; - XmlChildBgFillStyleLst: FillStyleLst; - -end; - -function FmtScheme.Create();overload; -begin - {self.}Create(nil, "a", "fmtScheme"); -end; - -function FmtScheme.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function FmtScheme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FmtScheme.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "name": makeweakref(thisFunction(WriteXmlAttrName)), - ); - sorted_child_ := array( - pre + "fillStyleLst": array(0, makeweakref(thisFunction(ReadXmlChildFillStyleLst))), - pre + "lnStyleLst": array(1, makeweakref(thisFunction(ReadXmlChildLnStyleLst))), - pre + "effectStyleLst": array(2, makeweakref(thisFunction(ReadXmlChildEffectStyleLst))), - pre + "bgFillStyleLst": array(3, makeweakref(thisFunction(ReadXmlChildBgFillStyleLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function FmtScheme.Copy(_obj: FmtScheme);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.XmlChildFillStyleLst) then - {self.}FillStyleLst.Copy(_obj.XmlChildFillStyleLst); - if not ifnil(_obj.XmlChildLnStyleLst) then - {self.}LnStyleLst.Copy(_obj.XmlChildLnStyleLst); - if not ifnil(_obj.XmlChildEffectStyleLst) then - {self.}EffectStyleLst.Copy(_obj.XmlChildEffectStyleLst); - if not ifnil(_obj.XmlChildBgFillStyleLst) then - {self.}BgFillStyleLst.Copy(_obj.XmlChildBgFillStyleLst); - tslassigning := tslassigning_backup; -end; - -function FmtScheme.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function FmtScheme.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function FmtScheme.ReadXmlChildFillStyleLst(); -begin - if tslassigning and ifnil({self.}XmlChildFillStyleLst) then - begin - {self.}XmlChildFillStyleLst := new FillStyleLst(self, {self.}Prefix, "fillStyleLst"); - container_.Set({self.}XmlChildFillStyleLst); - end - return {self.}XmlChildFillStyleLst; -end; - -function FmtScheme.ReadXmlChildLnStyleLst(); -begin - if tslassigning and ifnil({self.}XmlChildLnStyleLst) then - begin - {self.}XmlChildLnStyleLst := new LnStyleLst(self, {self.}Prefix, "lnStyleLst"); - container_.Set({self.}XmlChildLnStyleLst); - end - return {self.}XmlChildLnStyleLst; -end; - -function FmtScheme.ReadXmlChildEffectStyleLst(); -begin - if tslassigning and ifnil({self.}XmlChildEffectStyleLst) then - begin - {self.}XmlChildEffectStyleLst := new EffectStyleLst(self, {self.}Prefix, "effectStyleLst"); - container_.Set({self.}XmlChildEffectStyleLst); - end - return {self.}XmlChildEffectStyleLst; -end; - -function FmtScheme.ReadXmlChildBgFillStyleLst(); -begin - if tslassigning and ifnil({self.}XmlChildBgFillStyleLst) then - begin - {self.}XmlChildBgFillStyleLst := new FillStyleLst(self, {self.}Prefix, "bgFillStyleLst"); - container_.Set({self.}XmlChildBgFillStyleLst); - end - return {self.}XmlChildBgFillStyleLst; -end; diff --git a/autoclass/docx/Font@DOCX.tsf b/autoclass/docx/Font@DOCX.tsf deleted file mode 100644 index d80d578..0000000 --- a/autoclass/docx/Font@DOCX.tsf +++ /dev/null @@ -1,173 +0,0 @@ -type Font = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Font);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - - // normal property - property AltName read ReadXmlChildAltName; - property Panosel read ReadXmlChildPanosel; - property Charset read ReadXmlChildCharset; - property Family read ReadXmlChildFamily; - property Pitch read ReadXmlChildPitch; - property Sig read ReadXmlChildSig; - function ReadXmlChildAltName(); - function ReadXmlChildPanosel(); - function ReadXmlChildCharset(); - function ReadXmlChildFamily(); - function ReadXmlChildPitch(); - function ReadXmlChildSig(); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - - // Children - XmlChildAltName: PureWVal; - XmlChildPanosel: PureWVal; - XmlChildCharset: PureWVal; - XmlChildFamily: PureWVal; - XmlChildPitch: PureWVal; - XmlChildSig: Sig; - -end; - -function Font.Create();overload; -begin - {self.}Create(nil, "w", "font"); -end; - -function Font.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Font.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Font.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), - ); - sorted_child_ := array( - pre + "altName": array(0, makeweakref(thisFunction(ReadXmlChildAltName))), - pre + "panosel": array(1, makeweakref(thisFunction(ReadXmlChildPanosel))), - pre + "charset": array(2, makeweakref(thisFunction(ReadXmlChildCharset))), - pre + "family": array(3, makeweakref(thisFunction(ReadXmlChildFamily))), - pre + "pitch": array(4, makeweakref(thisFunction(ReadXmlChildPitch))), - pre + "sig": array(5, makeweakref(thisFunction(ReadXmlChildSig))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Font.Copy(_obj: Font);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.XmlChildAltName) then - {self.}AltName.Copy(_obj.XmlChildAltName); - if not ifnil(_obj.XmlChildPanosel) then - {self.}Panosel.Copy(_obj.XmlChildPanosel); - if not ifnil(_obj.XmlChildCharset) then - {self.}Charset.Copy(_obj.XmlChildCharset); - if not ifnil(_obj.XmlChildFamily) then - {self.}Family.Copy(_obj.XmlChildFamily); - if not ifnil(_obj.XmlChildPitch) then - {self.}Pitch.Copy(_obj.XmlChildPitch); - if not ifnil(_obj.XmlChildSig) then - {self.}Sig.Copy(_obj.XmlChildSig); - tslassigning := tslassigning_backup; -end; - -function Font.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function Font.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function Font.ReadXmlChildAltName(); -begin - if tslassigning and ifnil({self.}XmlChildAltName) then - begin - {self.}XmlChildAltName := new PureWVal(self, {self.}Prefix, "altName"); - container_.Set({self.}XmlChildAltName); - end - return {self.}XmlChildAltName; -end; - -function Font.ReadXmlChildPanosel(); -begin - if tslassigning and ifnil({self.}XmlChildPanosel) then - begin - {self.}XmlChildPanosel := new PureWVal(self, {self.}Prefix, "panosel"); - container_.Set({self.}XmlChildPanosel); - end - return {self.}XmlChildPanosel; -end; - -function Font.ReadXmlChildCharset(); -begin - if tslassigning and ifnil({self.}XmlChildCharset) then - begin - {self.}XmlChildCharset := new PureWVal(self, {self.}Prefix, "charset"); - container_.Set({self.}XmlChildCharset); - end - return {self.}XmlChildCharset; -end; - -function Font.ReadXmlChildFamily(); -begin - if tslassigning and ifnil({self.}XmlChildFamily) then - begin - {self.}XmlChildFamily := new PureWVal(self, {self.}Prefix, "family"); - container_.Set({self.}XmlChildFamily); - end - return {self.}XmlChildFamily; -end; - -function Font.ReadXmlChildPitch(); -begin - if tslassigning and ifnil({self.}XmlChildPitch) then - begin - {self.}XmlChildPitch := new PureWVal(self, {self.}Prefix, "pitch"); - container_.Set({self.}XmlChildPitch); - end - return {self.}XmlChildPitch; -end; - -function Font.ReadXmlChildSig(); -begin - if tslassigning and ifnil({self.}XmlChildSig) then - begin - {self.}XmlChildSig := new Sig(self, {self.}Prefix, "sig"); - container_.Set({self.}XmlChildSig); - end - return {self.}XmlChildSig; -end; diff --git a/autoclass/docx/FontScheme@DOCX.tsf b/autoclass/docx/FontScheme@DOCX.tsf deleted file mode 100644 index 76441ab..0000000 --- a/autoclass/docx/FontScheme@DOCX.tsf +++ /dev/null @@ -1,109 +0,0 @@ -type FontScheme = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: FontScheme);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - - // normal property - property Majorfont read ReadXmlChildMajorfont; - property Minorfont read ReadXmlChildMinorfont; - function ReadXmlChildMajorfont(); - function ReadXmlChildMinorfont(); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - - // Children - XmlChildMajorfont: Mfont; - XmlChildMinorfont: Mfont; - -end; - -function FontScheme.Create();overload; -begin - {self.}Create(nil, "a", "fontScheme"); -end; - -function FontScheme.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function FontScheme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FontScheme.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "name": makeweakref(thisFunction(WriteXmlAttrName)), - ); - sorted_child_ := array( - pre + "majorFont": array(0, makeweakref(thisFunction(ReadXmlChildMajorfont))), - pre + "minorFont": array(1, makeweakref(thisFunction(ReadXmlChildMinorfont))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function FontScheme.Copy(_obj: FontScheme);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.XmlChildMajorfont) then - {self.}Majorfont.Copy(_obj.XmlChildMajorfont); - if not ifnil(_obj.XmlChildMinorfont) then - {self.}Minorfont.Copy(_obj.XmlChildMinorfont); - tslassigning := tslassigning_backup; -end; - -function FontScheme.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function FontScheme.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function FontScheme.ReadXmlChildMajorfont(); -begin - if tslassigning and ifnil({self.}XmlChildMajorfont) then - begin - {self.}XmlChildMajorfont := new Mfont(self, {self.}Prefix, "majorFont"); - container_.Set({self.}XmlChildMajorfont); - end - return {self.}XmlChildMajorfont; -end; - -function FontScheme.ReadXmlChildMinorfont(); -begin - if tslassigning and ifnil({self.}XmlChildMinorfont) then - begin - {self.}XmlChildMinorfont := new Mfont(self, {self.}Prefix, "minorFont"); - container_.Set({self.}XmlChildMinorfont); - end - return {self.}XmlChildMinorfont; -end; diff --git a/autoclass/docx/Fonts@DOCX.tsf b/autoclass/docx/Fonts@DOCX.tsf deleted file mode 100644 index 19871e0..0000000 --- a/autoclass/docx/Fonts@DOCX.tsf +++ /dev/null @@ -1,345 +0,0 @@ -type Fonts = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Fonts);override; - -public - - // attributes property - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16sdtdh(); - function WriteXmlAttrXmlnsW16sdtdh(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // multi property - property Fonts read ReadFonts; - function ReadFonts(_index); - function AddFont(): Font; - function AppendFont(): Font; - -public - // Attributes - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - -end; - -function Fonts.Create();overload; -begin - {self.}Create(nil, "w", "fonts"); -end; - -function Fonts.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Fonts.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Fonts.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "font": array(0, makeweakref(thisFunction(AppendFont))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Fonts.Copy(_obj: Fonts);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16sdtdh) then - {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - tslassigning := tslassigning_backup; -end; - -function Fonts.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Fonts.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Fonts.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW16sdtdh(); -begin - return {self.}XmlAttrXmlnsW16sdtdh.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW16sdtdh(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16sdtdh) then - begin - {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; - end - {self.}XmlAttrXmlnsW16sdtdh.Value := _value; -end; - -function Fonts.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function Fonts.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function Fonts.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Fonts.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Fonts.ReadFonts(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "font", ind); -end; - -function Fonts.AddFont(): Font; -begin - obj := new Font(self, {self.}Prefix, "font"); - container_.Insert(obj); - return obj; -end; - -function Fonts.AppendFont(): Font; -begin - obj := new Font(self, {self.}Prefix, "font"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Footnote@DOCX.tsf b/autoclass/docx/Footnote@DOCX.tsf deleted file mode 100644 index 11c6306..0000000 --- a/autoclass/docx/Footnote@DOCX.tsf +++ /dev/null @@ -1,125 +0,0 @@ -type Footnote = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Footnote);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): P; - function AppendP(): P; - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - - // Children - -end; - -function Footnote.Create();overload; -begin - {self.}Create(nil, "w", "footnote"); -end; - -function Footnote.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Footnote.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Footnote.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Footnote.Copy(_obj: Footnote);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function Footnote.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function Footnote.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function Footnote.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Footnote.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Footnote.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function Footnote.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function Footnote.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/FootnotePr@DOCX.tsf b/autoclass/docx/FootnotePr@DOCX.tsf deleted file mode 100644 index 02a00bc..0000000 --- a/autoclass/docx/FootnotePr@DOCX.tsf +++ /dev/null @@ -1,127 +0,0 @@ -type FootnotePr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: FootnotePr);override; - -public - - // normal property - property Pos read ReadXmlChildPos; - property NumFmt read ReadXmlChildNumFmt; - property NumStart read ReadXmlChildNumStart; - function ReadXmlChildPos(); - function ReadXmlChildNumFmt(); - function ReadXmlChildNumStart(); - - // multi property - property Footnotes read ReadFootnotes; - function ReadFootnotes(_index); - function AddFootnote(): Footnote; - function AppendFootnote(): Footnote; - -public - // Children - XmlChildPos: PureWVal; - XmlChildNumFmt: PureWVal; - XmlChildNumStart: PureWVal; - -end; - -function FootnotePr.Create();overload; -begin - {self.}Create(nil, "w", "footnotePr"); -end; - -function FootnotePr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function FootnotePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FootnotePr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "pos": array(0, makeweakref(thisFunction(ReadXmlChildPos))), - pre + "numFmt": array(1, makeweakref(thisFunction(ReadXmlChildNumFmt))), - pre + "numStart": array(2, makeweakref(thisFunction(ReadXmlChildNumStart))), - pre + "footnote": array(3, makeweakref(thisFunction(AppendFootnote))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function FootnotePr.Copy(_obj: FootnotePr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildPos) then - {self.}Pos.Copy(_obj.XmlChildPos); - if not ifnil(_obj.XmlChildNumFmt) then - {self.}NumFmt.Copy(_obj.XmlChildNumFmt); - if not ifnil(_obj.XmlChildNumStart) then - {self.}NumStart.Copy(_obj.XmlChildNumStart); - tslassigning := tslassigning_backup; -end; - -function FootnotePr.ReadXmlChildPos(); -begin - if tslassigning and ifnil({self.}XmlChildPos) then - begin - {self.}XmlChildPos := new PureWVal(self, {self.}Prefix, "pos"); - container_.Set({self.}XmlChildPos); - end - return {self.}XmlChildPos; -end; - -function FootnotePr.ReadXmlChildNumFmt(); -begin - if tslassigning and ifnil({self.}XmlChildNumFmt) then - begin - {self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt"); - container_.Set({self.}XmlChildNumFmt); - end - return {self.}XmlChildNumFmt; -end; - -function FootnotePr.ReadXmlChildNumStart(); -begin - if tslassigning and ifnil({self.}XmlChildNumStart) then - begin - {self.}XmlChildNumStart := new PureWVal(self, {self.}Prefix, "numStart"); - container_.Set({self.}XmlChildNumStart); - end - return {self.}XmlChildNumStart; -end; - -function FootnotePr.ReadFootnotes(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "footnote", ind); -end; - -function FootnotePr.AddFootnote(): Footnote; -begin - obj := new Footnote(self, {self.}Prefix, "footnote"); - container_.Insert(obj); - return obj; -end; - -function FootnotePr.AppendFootnote(): Footnote; -begin - obj := new Footnote(self, {self.}Prefix, "footnote"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/FootnoteReference@DOCX.tsf b/autoclass/docx/FootnoteReference@DOCX.tsf deleted file mode 100644 index e10fb32..0000000 --- a/autoclass/docx/FootnoteReference@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type FootnoteReference = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: FootnoteReference);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - - -end; - -function FootnoteReference.Create();overload; -begin - {self.}Create(nil, "w", "footnoteReference"); -end; - -function FootnoteReference.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function FootnoteReference.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function FootnoteReference.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function FootnoteReference.Copy(_obj: FootnoteReference);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function FootnoteReference.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function FootnoteReference.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; diff --git a/autoclass/docx/Footnotes@DOCX.tsf b/autoclass/docx/Footnotes@DOCX.tsf deleted file mode 100644 index d5e1e21..0000000 --- a/autoclass/docx/Footnotes@DOCX.tsf +++ /dev/null @@ -1,807 +0,0 @@ -type Footnotes = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Footnotes);override; - -public - - // attributes property - property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; - property XmlnsCx read ReadXmlAttrXmlnsCx write WriteXmlAttrXmlnsCx; - property XmlnsCx1 read ReadXmlAttrXmlnsCx1 write WriteXmlAttrXmlnsCx1; - property XmlnsCx2 read ReadXmlAttrXmlnsCx2 write WriteXmlAttrXmlnsCx2; - property XmlnsCx3 read ReadXmlAttrXmlnsCx3 write WriteXmlAttrXmlnsCx3; - property XmlnsCx4 read ReadXmlAttrXmlnsCx4 write WriteXmlAttrXmlnsCx4; - property XmlnsCx5 read ReadXmlAttrXmlnsCx5 write WriteXmlAttrXmlnsCx5; - property XmlnsCx6 read ReadXmlAttrXmlnsCx6 write WriteXmlAttrXmlnsCx6; - property XmlnsCx7 read ReadXmlAttrXmlnsCx7 write WriteXmlAttrXmlnsCx7; - property XmlnsCx8 read ReadXmlAttrXmlnsCx8 write WriteXmlAttrXmlnsCx8; - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsAink read ReadXmlAttrXmlnsAink write WriteXmlAttrXmlnsAink; - property XmlnsAm3d read ReadXmlAttrXmlnsAm3d write WriteXmlAttrXmlnsAm3d; - property XmlnsO read ReadXmlAttrXmlnsO write WriteXmlAttrXmlnsO; - property XmlnsOel read ReadXmlAttrXmlnsOel write WriteXmlAttrXmlnsOel; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; - property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; - property XmlnsWp14 read ReadXmlAttrXmlnsWp14 write WriteXmlAttrXmlnsWp14; - property XmlnsWp read ReadXmlAttrXmlnsWp write WriteXmlAttrXmlnsWp; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; - property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; - property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; - property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsWpc(); - function WriteXmlAttrXmlnsWpc(_value); - function ReadXmlAttrXmlnsCx(); - function WriteXmlAttrXmlnsCx(_value); - function ReadXmlAttrXmlnsCx1(); - function WriteXmlAttrXmlnsCx1(_value); - function ReadXmlAttrXmlnsCx2(); - function WriteXmlAttrXmlnsCx2(_value); - function ReadXmlAttrXmlnsCx3(); - function WriteXmlAttrXmlnsCx3(_value); - function ReadXmlAttrXmlnsCx4(); - function WriteXmlAttrXmlnsCx4(_value); - function ReadXmlAttrXmlnsCx5(); - function WriteXmlAttrXmlnsCx5(_value); - function ReadXmlAttrXmlnsCx6(); - function WriteXmlAttrXmlnsCx6(_value); - function ReadXmlAttrXmlnsCx7(); - function WriteXmlAttrXmlnsCx7(_value); - function ReadXmlAttrXmlnsCx8(); - function WriteXmlAttrXmlnsCx8(_value); - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsAink(); - function WriteXmlAttrXmlnsAink(_value); - function ReadXmlAttrXmlnsAm3d(); - function WriteXmlAttrXmlnsAm3d(_value); - function ReadXmlAttrXmlnsO(); - function WriteXmlAttrXmlnsO(_value); - function ReadXmlAttrXmlnsOel(); - function WriteXmlAttrXmlnsOel(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsM(); - function WriteXmlAttrXmlnsM(_value); - function ReadXmlAttrXmlnsV(); - function WriteXmlAttrXmlnsV(_value); - function ReadXmlAttrXmlnsWp14(); - function WriteXmlAttrXmlnsWp14(_value); - function ReadXmlAttrXmlnsWp(); - function WriteXmlAttrXmlnsWp(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16sdtdh(); - function WriteXmlAttrXmlnsW16sdtdh(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrXmlnsWpg(); - function WriteXmlAttrXmlnsWpg(_value); - function ReadXmlAttrXmlnsWpi(); - function WriteXmlAttrXmlnsWpi(_value); - function ReadXmlAttrXmlnsWne(); - function WriteXmlAttrXmlnsWne(_value); - function ReadXmlAttrXmlnsWps(); - function WriteXmlAttrXmlnsWps(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // multi property - property Footnotes read ReadFootnotes; - function ReadFootnotes(_index); - function AddFootnote(): Footnote; - function AppendFootnote(): Footnote; - -public - // Attributes - XmlAttrXmlnsWpc: OpenXmlAttribute; - XmlAttrXmlnsCx: OpenXmlAttribute; - XmlAttrXmlnsCx1: OpenXmlAttribute; - XmlAttrXmlnsCx2: OpenXmlAttribute; - XmlAttrXmlnsCx3: OpenXmlAttribute; - XmlAttrXmlnsCx4: OpenXmlAttribute; - XmlAttrXmlnsCx5: OpenXmlAttribute; - XmlAttrXmlnsCx6: OpenXmlAttribute; - XmlAttrXmlnsCx7: OpenXmlAttribute; - XmlAttrXmlnsCx8: OpenXmlAttribute; - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsAink: OpenXmlAttribute; - XmlAttrXmlnsAm3d: OpenXmlAttribute; - XmlAttrXmlnsO: OpenXmlAttribute; - XmlAttrXmlnsOel: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsM: OpenXmlAttribute; - XmlAttrXmlnsV: OpenXmlAttribute; - XmlAttrXmlnsWp14: OpenXmlAttribute; - XmlAttrXmlnsWp: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrXmlnsWpg: OpenXmlAttribute; - XmlAttrXmlnsWpi: OpenXmlAttribute; - XmlAttrXmlnsWne: OpenXmlAttribute; - XmlAttrXmlnsWps: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - -end; - -function Footnotes.Create();overload; -begin - {self.}Create(nil, "w", "footnotes"); -end; - -function Footnotes.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Footnotes.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Footnotes.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:wpc": makeweakref(thisFunction(WriteXmlAttrXmlnsWpc)), - "xmlns:cx": makeweakref(thisFunction(WriteXmlAttrXmlnsCx)), - "xmlns:cx1": makeweakref(thisFunction(WriteXmlAttrXmlnsCx1)), - "xmlns:cx2": makeweakref(thisFunction(WriteXmlAttrXmlnsCx2)), - "xmlns:cx3": makeweakref(thisFunction(WriteXmlAttrXmlnsCx3)), - "xmlns:cx4": makeweakref(thisFunction(WriteXmlAttrXmlnsCx4)), - "xmlns:cx5": makeweakref(thisFunction(WriteXmlAttrXmlnsCx5)), - "xmlns:cx6": makeweakref(thisFunction(WriteXmlAttrXmlnsCx6)), - "xmlns:cx7": makeweakref(thisFunction(WriteXmlAttrXmlnsCx7)), - "xmlns:cx8": makeweakref(thisFunction(WriteXmlAttrXmlnsCx8)), - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:aink": makeweakref(thisFunction(WriteXmlAttrXmlnsAink)), - "xmlns:am3d": makeweakref(thisFunction(WriteXmlAttrXmlnsAm3d)), - "xmlns:o": makeweakref(thisFunction(WriteXmlAttrXmlnsO)), - "xmlns:oel": makeweakref(thisFunction(WriteXmlAttrXmlnsOel)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), - "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), - "xmlns:wp14": makeweakref(thisFunction(WriteXmlAttrXmlnsWp14)), - "xmlns:wp": makeweakref(thisFunction(WriteXmlAttrXmlnsWp)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "xmlns:wpg": makeweakref(thisFunction(WriteXmlAttrXmlnsWpg)), - "xmlns:wpi": makeweakref(thisFunction(WriteXmlAttrXmlnsWpi)), - "xmlns:wne": makeweakref(thisFunction(WriteXmlAttrXmlnsWne)), - "xmlns:wps": makeweakref(thisFunction(WriteXmlAttrXmlnsWps)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "footnote": array(0, makeweakref(thisFunction(AppendFootnote))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Footnotes.Copy(_obj: Footnotes);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsWpc) then - {self.}XmlnsWpc := _obj.XmlnsWpc; - if not ifnil(_obj.XmlnsCx) then - {self.}XmlnsCx := _obj.XmlnsCx; - if not ifnil(_obj.XmlnsCx1) then - {self.}XmlnsCx1 := _obj.XmlnsCx1; - if not ifnil(_obj.XmlnsCx2) then - {self.}XmlnsCx2 := _obj.XmlnsCx2; - if not ifnil(_obj.XmlnsCx3) then - {self.}XmlnsCx3 := _obj.XmlnsCx3; - if not ifnil(_obj.XmlnsCx4) then - {self.}XmlnsCx4 := _obj.XmlnsCx4; - if not ifnil(_obj.XmlnsCx5) then - {self.}XmlnsCx5 := _obj.XmlnsCx5; - if not ifnil(_obj.XmlnsCx6) then - {self.}XmlnsCx6 := _obj.XmlnsCx6; - if not ifnil(_obj.XmlnsCx7) then - {self.}XmlnsCx7 := _obj.XmlnsCx7; - if not ifnil(_obj.XmlnsCx8) then - {self.}XmlnsCx8 := _obj.XmlnsCx8; - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsAink) then - {self.}XmlnsAink := _obj.XmlnsAink; - if not ifnil(_obj.XmlnsAm3d) then - {self.}XmlnsAm3d := _obj.XmlnsAm3d; - if not ifnil(_obj.XmlnsO) then - {self.}XmlnsO := _obj.XmlnsO; - if not ifnil(_obj.XmlnsOel) then - {self.}XmlnsOel := _obj.XmlnsOel; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsM) then - {self.}XmlnsM := _obj.XmlnsM; - if not ifnil(_obj.XmlnsV) then - {self.}XmlnsV := _obj.XmlnsV; - if not ifnil(_obj.XmlnsWp14) then - {self.}XmlnsWp14 := _obj.XmlnsWp14; - if not ifnil(_obj.XmlnsWp) then - {self.}XmlnsWp := _obj.XmlnsWp; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16sdtdh) then - {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.XmlnsWpg) then - {self.}XmlnsWpg := _obj.XmlnsWpg; - if not ifnil(_obj.XmlnsWpi) then - {self.}XmlnsWpi := _obj.XmlnsWpi; - if not ifnil(_obj.XmlnsWne) then - {self.}XmlnsWne := _obj.XmlnsWne; - if not ifnil(_obj.XmlnsWps) then - {self.}XmlnsWps := _obj.XmlnsWps; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - tslassigning := tslassigning_backup; -end; - -function Footnotes.ReadXmlAttrXmlnsWpc(); -begin - return {self.}XmlAttrXmlnsWpc.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsWpc(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpc) then - begin - {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpc; - end - {self.}XmlAttrXmlnsWpc.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx(); -begin - return {self.}XmlAttrXmlnsCx.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx) then - begin - {self.}XmlAttrXmlnsCx := new OpenXmlAttribute("xmlns", "cx", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx; - end - {self.}XmlAttrXmlnsCx.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx1(); -begin - return {self.}XmlAttrXmlnsCx1.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx1(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx1) then - begin - {self.}XmlAttrXmlnsCx1 := new OpenXmlAttribute("xmlns", "cx1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx1; - end - {self.}XmlAttrXmlnsCx1.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx2(); -begin - return {self.}XmlAttrXmlnsCx2.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx2(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx2) then - begin - {self.}XmlAttrXmlnsCx2 := new OpenXmlAttribute("xmlns", "cx2", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx2; - end - {self.}XmlAttrXmlnsCx2.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx3(); -begin - return {self.}XmlAttrXmlnsCx3.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx3(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx3) then - begin - {self.}XmlAttrXmlnsCx3 := new OpenXmlAttribute("xmlns", "cx3", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx3; - end - {self.}XmlAttrXmlnsCx3.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx4(); -begin - return {self.}XmlAttrXmlnsCx4.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx4(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx4) then - begin - {self.}XmlAttrXmlnsCx4 := new OpenXmlAttribute("xmlns", "cx4", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx4; - end - {self.}XmlAttrXmlnsCx4.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx5(); -begin - return {self.}XmlAttrXmlnsCx5.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx5(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx5) then - begin - {self.}XmlAttrXmlnsCx5 := new OpenXmlAttribute("xmlns", "cx5", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx5; - end - {self.}XmlAttrXmlnsCx5.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx6(); -begin - return {self.}XmlAttrXmlnsCx6.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx6(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx6) then - begin - {self.}XmlAttrXmlnsCx6 := new OpenXmlAttribute("xmlns", "cx6", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx6; - end - {self.}XmlAttrXmlnsCx6.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx7(); -begin - return {self.}XmlAttrXmlnsCx7.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx7(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx7) then - begin - {self.}XmlAttrXmlnsCx7 := new OpenXmlAttribute("xmlns", "cx7", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx7; - end - {self.}XmlAttrXmlnsCx7.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsCx8(); -begin - return {self.}XmlAttrXmlnsCx8.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsCx8(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx8) then - begin - {self.}XmlAttrXmlnsCx8 := new OpenXmlAttribute("xmlns", "cx8", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx8; - end - {self.}XmlAttrXmlnsCx8.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsAink(); -begin - return {self.}XmlAttrXmlnsAink.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsAink(_value); -begin - if ifnil({self.}XmlAttrXmlnsAink) then - begin - {self.}XmlAttrXmlnsAink := new OpenXmlAttribute("xmlns", "aink", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsAink; - end - {self.}XmlAttrXmlnsAink.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsAm3d(); -begin - return {self.}XmlAttrXmlnsAm3d.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsAm3d(_value); -begin - if ifnil({self.}XmlAttrXmlnsAm3d) then - begin - {self.}XmlAttrXmlnsAm3d := new OpenXmlAttribute("xmlns", "am3d", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsAm3d; - end - {self.}XmlAttrXmlnsAm3d.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsO(); -begin - return {self.}XmlAttrXmlnsO.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsO(_value); -begin - if ifnil({self.}XmlAttrXmlnsO) then - begin - {self.}XmlAttrXmlnsO := new OpenXmlAttribute("xmlns", "o", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsO; - end - {self.}XmlAttrXmlnsO.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsOel(); -begin - return {self.}XmlAttrXmlnsOel.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsOel(_value); -begin - if ifnil({self.}XmlAttrXmlnsOel) then - begin - {self.}XmlAttrXmlnsOel := new OpenXmlAttribute("xmlns", "oel", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsOel; - end - {self.}XmlAttrXmlnsOel.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsM(); -begin - return {self.}XmlAttrXmlnsM.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsM(_value); -begin - if ifnil({self.}XmlAttrXmlnsM) then - begin - {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; - end - {self.}XmlAttrXmlnsM.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsV(); -begin - return {self.}XmlAttrXmlnsV.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsV(_value); -begin - if ifnil({self.}XmlAttrXmlnsV) then - begin - {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; - end - {self.}XmlAttrXmlnsV.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsWp14(); -begin - return {self.}XmlAttrXmlnsWp14.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsWp14(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp14) then - begin - {self.}XmlAttrXmlnsWp14 := new OpenXmlAttribute("xmlns", "wp14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp14; - end - {self.}XmlAttrXmlnsWp14.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsWp(); -begin - return {self.}XmlAttrXmlnsWp.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsWp(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp) then - begin - {self.}XmlAttrXmlnsWp := new OpenXmlAttribute("xmlns", "wp", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp; - end - {self.}XmlAttrXmlnsWp.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW16sdtdh(); -begin - return {self.}XmlAttrXmlnsW16sdtdh.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW16sdtdh(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16sdtdh) then - begin - {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; - end - {self.}XmlAttrXmlnsW16sdtdh.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsWpg(); -begin - return {self.}XmlAttrXmlnsWpg.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsWpg(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpg) then - begin - {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpg; - end - {self.}XmlAttrXmlnsWpg.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsWpi(); -begin - return {self.}XmlAttrXmlnsWpi.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsWpi(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpi) then - begin - {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpi; - end - {self.}XmlAttrXmlnsWpi.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsWne(); -begin - return {self.}XmlAttrXmlnsWne.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsWne(_value); -begin - if ifnil({self.}XmlAttrXmlnsWne) then - begin - {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWne; - end - {self.}XmlAttrXmlnsWne.Value := _value; -end; - -function Footnotes.ReadXmlAttrXmlnsWps(); -begin - return {self.}XmlAttrXmlnsWps.Value; -end; - -function Footnotes.WriteXmlAttrXmlnsWps(_value); -begin - if ifnil({self.}XmlAttrXmlnsWps) then - begin - {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWps; - end - {self.}XmlAttrXmlnsWps.Value := _value; -end; - -function Footnotes.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Footnotes.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Footnotes.ReadFootnotes(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "footnote", ind); -end; - -function Footnotes.AddFootnote(): Footnote; -begin - obj := new Footnote(self, {self.}Prefix, "footnote"); - container_.Insert(obj); - return obj; -end; - -function Footnotes.AppendFootnote(): Footnote; -begin - obj := new Footnote(self, {self.}Prefix, "footnote"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Formulas@DOCX.tsf b/autoclass/docx/Formulas@DOCX.tsf deleted file mode 100644 index 2e7cacb..0000000 --- a/autoclass/docx/Formulas@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type Formulas = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Formulas);override; - -public - - // multi property - property Fs read ReadFs; - function ReadFs(_index); - function AddF(): Shapetype; - function AppendF(): Shapetype; - -public - // Children - -end; - -function Formulas.Create();overload; -begin - {self.}Create(nil, "w", "formulas"); -end; - -function Formulas.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Formulas.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Formulas.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "v:f": array(0, makeweakref(thisFunction(AppendF))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Formulas.Copy(_obj: Formulas);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function Formulas.ReadFs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get("v:f", ind); -end; - -function Formulas.AddF(): Shapetype; -begin - obj := new Shapetype(self, "v", "f"); - container_.Insert(obj); - return obj; -end; - -function Formulas.AppendF(): Shapetype; -begin - obj := new Shapetype(self, "v", "f"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Ftr@DOCX.tsf b/autoclass/docx/Ftr@DOCX.tsf deleted file mode 100644 index 27ecedf..0000000 --- a/autoclass/docx/Ftr@DOCX.tsf +++ /dev/null @@ -1,411 +0,0 @@ -type Ftr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ftr);override; - -public - - // attributes property - property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsMo read ReadXmlAttrXmlnsMo write WriteXmlAttrXmlnsMo; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; - property XmlnsWp14 read ReadXmlAttrXmlnsWp14 write WriteXmlAttrXmlnsWp14; - property XmlnsWp read ReadXmlAttrXmlnsWp write WriteXmlAttrXmlnsWp; - property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; - property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; - property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; - property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsM(); - function WriteXmlAttrXmlnsM(_value); - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsMo(); - function WriteXmlAttrXmlnsMo(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsV(); - function WriteXmlAttrXmlnsV(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsWne(); - function WriteXmlAttrXmlnsWne(_value); - function ReadXmlAttrXmlnsWp14(); - function WriteXmlAttrXmlnsWp14(_value); - function ReadXmlAttrXmlnsWp(); - function WriteXmlAttrXmlnsWp(_value); - function ReadXmlAttrXmlnsWpc(); - function WriteXmlAttrXmlnsWpc(_value); - function ReadXmlAttrXmlnsWpg(); - function WriteXmlAttrXmlnsWpg(_value); - function ReadXmlAttrXmlnsWpi(); - function WriteXmlAttrXmlnsWpi(_value); - function ReadXmlAttrXmlnsWps(); - function WriteXmlAttrXmlnsWps(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): P; - function AppendP(): P; - -public - // Attributes - XmlAttrXmlnsM: OpenXmlAttribute; - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsMo: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsV: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsWne: OpenXmlAttribute; - XmlAttrXmlnsWp14: OpenXmlAttribute; - XmlAttrXmlnsWp: OpenXmlAttribute; - XmlAttrXmlnsWpc: OpenXmlAttribute; - XmlAttrXmlnsWpg: OpenXmlAttribute; - XmlAttrXmlnsWpi: OpenXmlAttribute; - XmlAttrXmlnsWps: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - -end; - -function Ftr.Create();overload; -begin - {self.}Create(nil, "w", "ftr"); -end; - -function Ftr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ftr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ftr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:mo": makeweakref(thisFunction(WriteXmlAttrXmlnsMo)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:wne": makeweakref(thisFunction(WriteXmlAttrXmlnsWne)), - "xmlns:wp14": makeweakref(thisFunction(WriteXmlAttrXmlnsWp14)), - "xmlns:wp": makeweakref(thisFunction(WriteXmlAttrXmlnsWp)), - "xmlns:wpc": makeweakref(thisFunction(WriteXmlAttrXmlnsWpc)), - "xmlns:wpg": makeweakref(thisFunction(WriteXmlAttrXmlnsWpg)), - "xmlns:wpi": makeweakref(thisFunction(WriteXmlAttrXmlnsWpi)), - "xmlns:wps": makeweakref(thisFunction(WriteXmlAttrXmlnsWps)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ftr.Copy(_obj: Ftr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsM) then - {self.}XmlnsM := _obj.XmlnsM; - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsMo) then - {self.}XmlnsMo := _obj.XmlnsMo; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsV) then - {self.}XmlnsV := _obj.XmlnsV; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsWne) then - {self.}XmlnsWne := _obj.XmlnsWne; - if not ifnil(_obj.XmlnsWp14) then - {self.}XmlnsWp14 := _obj.XmlnsWp14; - if not ifnil(_obj.XmlnsWp) then - {self.}XmlnsWp := _obj.XmlnsWp; - if not ifnil(_obj.XmlnsWpc) then - {self.}XmlnsWpc := _obj.XmlnsWpc; - if not ifnil(_obj.XmlnsWpg) then - {self.}XmlnsWpg := _obj.XmlnsWpg; - if not ifnil(_obj.XmlnsWpi) then - {self.}XmlnsWpi := _obj.XmlnsWpi; - if not ifnil(_obj.XmlnsWps) then - {self.}XmlnsWps := _obj.XmlnsWps; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - tslassigning := tslassigning_backup; -end; - -function Ftr.ReadXmlAttrXmlnsM(); -begin - return {self.}XmlAttrXmlnsM.Value; -end; - -function Ftr.WriteXmlAttrXmlnsM(_value); -begin - if ifnil({self.}XmlAttrXmlnsM) then - begin - {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; - end - {self.}XmlAttrXmlnsM.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Ftr.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsMo(); -begin - return {self.}XmlAttrXmlnsMo.Value; -end; - -function Ftr.WriteXmlAttrXmlnsMo(_value); -begin - if ifnil({self.}XmlAttrXmlnsMo) then - begin - {self.}XmlAttrXmlnsMo := new OpenXmlAttribute("xmlns", "mo", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMo; - end - {self.}XmlAttrXmlnsMo.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Ftr.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsV(); -begin - return {self.}XmlAttrXmlnsV.Value; -end; - -function Ftr.WriteXmlAttrXmlnsV(_value); -begin - if ifnil({self.}XmlAttrXmlnsV) then - begin - {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; - end - {self.}XmlAttrXmlnsV.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Ftr.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function Ftr.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsWne(); -begin - return {self.}XmlAttrXmlnsWne.Value; -end; - -function Ftr.WriteXmlAttrXmlnsWne(_value); -begin - if ifnil({self.}XmlAttrXmlnsWne) then - begin - {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWne; - end - {self.}XmlAttrXmlnsWne.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsWp14(); -begin - return {self.}XmlAttrXmlnsWp14.Value; -end; - -function Ftr.WriteXmlAttrXmlnsWp14(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp14) then - begin - {self.}XmlAttrXmlnsWp14 := new OpenXmlAttribute("xmlns", "wp14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp14; - end - {self.}XmlAttrXmlnsWp14.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsWp(); -begin - return {self.}XmlAttrXmlnsWp.Value; -end; - -function Ftr.WriteXmlAttrXmlnsWp(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp) then - begin - {self.}XmlAttrXmlnsWp := new OpenXmlAttribute("xmlns", "wp", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp; - end - {self.}XmlAttrXmlnsWp.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsWpc(); -begin - return {self.}XmlAttrXmlnsWpc.Value; -end; - -function Ftr.WriteXmlAttrXmlnsWpc(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpc) then - begin - {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpc; - end - {self.}XmlAttrXmlnsWpc.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsWpg(); -begin - return {self.}XmlAttrXmlnsWpg.Value; -end; - -function Ftr.WriteXmlAttrXmlnsWpg(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpg) then - begin - {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpg; - end - {self.}XmlAttrXmlnsWpg.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsWpi(); -begin - return {self.}XmlAttrXmlnsWpi.Value; -end; - -function Ftr.WriteXmlAttrXmlnsWpi(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpi) then - begin - {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpi; - end - {self.}XmlAttrXmlnsWpi.Value := _value; -end; - -function Ftr.ReadXmlAttrXmlnsWps(); -begin - return {self.}XmlAttrXmlnsWps.Value; -end; - -function Ftr.WriteXmlAttrXmlnsWps(_value); -begin - if ifnil({self.}XmlAttrXmlnsWps) then - begin - {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWps; - end - {self.}XmlAttrXmlnsWps.Value := _value; -end; - -function Ftr.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Ftr.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Ftr.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function Ftr.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function Ftr.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/GradFill@DOCX.tsf b/autoclass/docx/GradFill@DOCX.tsf deleted file mode 100644 index 490858d..0000000 --- a/autoclass/docx/GradFill@DOCX.tsf +++ /dev/null @@ -1,109 +0,0 @@ -type GradFill = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: GradFill);override; - -public - - // attributes property - property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; - function ReadXmlAttrRotWithShape(); - function WriteXmlAttrRotWithShape(_value); - - // normal property - property GsLst read ReadXmlChildGsLst; - property Lin read ReadXmlChildLin; - function ReadXmlChildGsLst(); - function ReadXmlChildLin(); - -public - // Attributes - XmlAttrRotWithShape: OpenXmlAttribute; - - // Children - XmlChildGsLst: GsLst; - XmlChildLin: Lin; - -end; - -function GradFill.Create();overload; -begin - {self.}Create(nil, "a", "gradFill"); -end; - -function GradFill.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function GradFill.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GradFill.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)), - ); - sorted_child_ := array( - pre + "gsLst": array(0, makeweakref(thisFunction(ReadXmlChildGsLst))), - pre + "lin": array(1, makeweakref(thisFunction(ReadXmlChildLin))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function GradFill.Copy(_obj: GradFill);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.RotWithShape) then - {self.}RotWithShape := _obj.RotWithShape; - if not ifnil(_obj.XmlChildGsLst) then - {self.}GsLst.Copy(_obj.XmlChildGsLst); - if not ifnil(_obj.XmlChildLin) then - {self.}Lin.Copy(_obj.XmlChildLin); - tslassigning := tslassigning_backup; -end; - -function GradFill.ReadXmlAttrRotWithShape(); -begin - return {self.}XmlAttrRotWithShape.Value; -end; - -function GradFill.WriteXmlAttrRotWithShape(_value); -begin - if ifnil({self.}XmlAttrRotWithShape) then - begin - {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRotWithShape; - end - {self.}XmlAttrRotWithShape.Value := _value; -end; - -function GradFill.ReadXmlChildGsLst(); -begin - if tslassigning and ifnil({self.}XmlChildGsLst) then - begin - {self.}XmlChildGsLst := new GsLst(self, {self.}Prefix, "gsLst"); - container_.Set({self.}XmlChildGsLst); - end - return {self.}XmlChildGsLst; -end; - -function GradFill.ReadXmlChildLin(); -begin - if tslassigning and ifnil({self.}XmlChildLin) then - begin - {self.}XmlChildLin := new Lin(self, {self.}Prefix, "lin"); - container_.Set({self.}XmlChildLin); - end - return {self.}XmlChildLin; -end; diff --git a/autoclass/docx/Graphic@DOCX.tsf b/autoclass/docx/Graphic@DOCX.tsf deleted file mode 100644 index 8467186..0000000 --- a/autoclass/docx/Graphic@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type Graphic = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Graphic);override; - -public - - // attributes property - property XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - - // normal property - property GraphicData read ReadXmlChildGraphicData; - function ReadXmlChildGraphicData(); - -public - // Attributes - XmlAttrXmlnsA: OpenXmlAttribute; - - // Children - XmlChildGraphicData: GraphicData; - -end; - -function Graphic.Create();overload; -begin - {self.}Create(nil, "", ""); -end; - -function Graphic.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Graphic.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Graphic.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:a": makeweakref(thisFunction(WriteXmlAttrXmlnsA)), - ); - sorted_child_ := array( - "a:graphicData": array(0, makeweakref(thisFunction(ReadXmlChildGraphicData))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Graphic.Copy(_obj: Graphic);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsA) then - {self.}XmlnsA := _obj.XmlnsA; - if not ifnil(_obj.XmlChildGraphicData) then - {self.}GraphicData.Copy(_obj.XmlChildGraphicData); - tslassigning := tslassigning_backup; -end; - -function Graphic.ReadXmlAttrXmlnsA(); -begin - return {self.}XmlAttrXmlnsA.Value; -end; - -function Graphic.WriteXmlAttrXmlnsA(_value); -begin - if ifnil({self.}XmlAttrXmlnsA) then - begin - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsA; - end - {self.}XmlAttrXmlnsA.Value := _value; -end; - -function Graphic.ReadXmlChildGraphicData(); -begin - if tslassigning and ifnil({self.}XmlChildGraphicData) then - begin - {self.}XmlChildGraphicData := new GraphicData(self, "a", "graphicData"); - container_.Set({self.}XmlChildGraphicData); - end - return {self.}XmlChildGraphicData; -end; diff --git a/autoclass/docx/GraphicData@DOCX.tsf b/autoclass/docx/GraphicData@DOCX.tsf deleted file mode 100644 index fb6c7b7..0000000 --- a/autoclass/docx/GraphicData@DOCX.tsf +++ /dev/null @@ -1,125 +0,0 @@ -type GraphicData = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: GraphicData);override; - -public - - // attributes property - property Uri read ReadXmlAttrUri write WriteXmlAttrUri; - function ReadXmlAttrUri(); - function WriteXmlAttrUri(_value); - - // normal property - property Pic read ReadXmlChildPic; - property Chart read ReadXmlChildChart; - property Wsp read ReadXmlChildWsp; - function ReadXmlChildPic(); - function ReadXmlChildChart(); - function ReadXmlChildWsp(); - -public - // Attributes - XmlAttrUri: OpenXmlAttribute; - - // Children - XmlChildPic: Pic; - XmlChildChart: Chart; - XmlChildWsp: Wsp; - -end; - -function GraphicData.Create();overload; -begin - {self.}Create(nil, "a", "graphicData"); -end; - -function GraphicData.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function GraphicData.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GraphicData.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "uri": makeweakref(thisFunction(WriteXmlAttrUri)), - ); - sorted_child_ := array( - "pic:pic": array(0, makeweakref(thisFunction(ReadXmlChildPic))), - "c:chart": array(1, makeweakref(thisFunction(ReadXmlChildChart))), - "wps:wsp": array(2, makeweakref(thisFunction(ReadXmlChildWsp))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function GraphicData.Copy(_obj: GraphicData);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Uri) then - {self.}Uri := _obj.Uri; - if not ifnil(_obj.XmlChildPic) then - {self.}Pic.Copy(_obj.XmlChildPic); - if not ifnil(_obj.XmlChildChart) then - {self.}Chart.Copy(_obj.XmlChildChart); - if not ifnil(_obj.XmlChildWsp) then - {self.}Wsp.Copy(_obj.XmlChildWsp); - tslassigning := tslassigning_backup; -end; - -function GraphicData.ReadXmlAttrUri(); -begin - return {self.}XmlAttrUri.Value; -end; - -function GraphicData.WriteXmlAttrUri(_value); -begin - if ifnil({self.}XmlAttrUri) then - begin - {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUri; - end - {self.}XmlAttrUri.Value := _value; -end; - -function GraphicData.ReadXmlChildPic(); -begin - if tslassigning and ifnil({self.}XmlChildPic) then - begin - {self.}XmlChildPic := new Pic(self, "pic", "pic"); - container_.Set({self.}XmlChildPic); - end - return {self.}XmlChildPic; -end; - -function GraphicData.ReadXmlChildChart(); -begin - if tslassigning and ifnil({self.}XmlChildChart) then - begin - {self.}XmlChildChart := new Chart(self, "c", "chart"); - container_.Set({self.}XmlChildChart); - end - return {self.}XmlChildChart; -end; - -function GraphicData.ReadXmlChildWsp(); -begin - if tslassigning and ifnil({self.}XmlChildWsp) then - begin - {self.}XmlChildWsp := new Wsp(self, "wps", "wsp"); - container_.Set({self.}XmlChildWsp); - end - return {self.}XmlChildWsp; -end; diff --git a/autoclass/docx/GraphicFrameLocks@DOCX.tsf b/autoclass/docx/GraphicFrameLocks@DOCX.tsf deleted file mode 100644 index 3a15367..0000000 --- a/autoclass/docx/GraphicFrameLocks@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type GraphicFrameLocks = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: GraphicFrameLocks);override; - -public - - // attributes property - property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; - property XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - function ReadXmlAttrNoChangeAspect(); - function WriteXmlAttrNoChangeAspect(_value); - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - -public - // Attributes - XmlAttrNoChangeAspect: OpenXmlAttribute; - XmlAttrXmlnsA: OpenXmlAttribute; - - -end; - -function GraphicFrameLocks.Create();overload; -begin - {self.}Create(nil, "", ""); -end; - -function GraphicFrameLocks.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function GraphicFrameLocks.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GraphicFrameLocks.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)), - "xmlns:a": makeweakref(thisFunction(WriteXmlAttrXmlnsA)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function GraphicFrameLocks.Copy(_obj: GraphicFrameLocks);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.NoChangeAspect) then - {self.}NoChangeAspect := _obj.NoChangeAspect; - if not ifnil(_obj.XmlnsA) then - {self.}XmlnsA := _obj.XmlnsA; - tslassigning := tslassigning_backup; -end; - -function GraphicFrameLocks.ReadXmlAttrNoChangeAspect(); -begin - return {self.}XmlAttrNoChangeAspect.Value; -end; - -function GraphicFrameLocks.WriteXmlAttrNoChangeAspect(_value); -begin - if ifnil({self.}XmlAttrNoChangeAspect) then - begin - {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNoChangeAspect; - end - {self.}XmlAttrNoChangeAspect.Value := _value; -end; - -function GraphicFrameLocks.ReadXmlAttrXmlnsA(); -begin - return {self.}XmlAttrXmlnsA.Value; -end; - -function GraphicFrameLocks.WriteXmlAttrXmlnsA(_value); -begin - if ifnil({self.}XmlAttrXmlnsA) then - begin - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsA; - end - {self.}XmlAttrXmlnsA.Value := _value; -end; diff --git a/autoclass/docx/GridCol@DOCX.tsf b/autoclass/docx/GridCol@DOCX.tsf deleted file mode 100644 index 1605bdc..0000000 --- a/autoclass/docx/GridCol@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type GridCol = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: GridCol);override; - -public - - // attributes property - property w read ReadXmlAttrw write WriteXmlAttrw; - function ReadXmlAttrw(); - function WriteXmlAttrw(_value); - -public - // Attributes - XmlAttrw: OpenXmlAttribute; - - -end; - -function GridCol.Create();overload; -begin - {self.}Create(nil, "w", "gridCol"); -end; - -function GridCol.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function GridCol.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GridCol.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "w": makeweakref(thisFunction(WriteXmlAttrw)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function GridCol.Copy(_obj: GridCol);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.w) then - {self.}w := _obj.w; - tslassigning := tslassigning_backup; -end; - -function GridCol.ReadXmlAttrw(); -begin - return {self.}XmlAttrw.Value; -end; - -function GridCol.WriteXmlAttrw(_value); -begin - if ifnil({self.}XmlAttrw) then - begin - {self.}XmlAttrw := new OpenXmlAttribute({self.}Prefix, "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrw; - end - {self.}XmlAttrw.Value := _value; -end; diff --git a/autoclass/docx/GridSpan@DOCX.tsf b/autoclass/docx/GridSpan@DOCX.tsf deleted file mode 100644 index 02fa795..0000000 --- a/autoclass/docx/GridSpan@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type GridSpan = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: GridSpan);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - - -end; - -function GridSpan.Create();overload; -begin - {self.}Create(nil, "w", "gridSpan"); -end; - -function GridSpan.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function GridSpan.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GridSpan.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function GridSpan.Copy(_obj: GridSpan);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - tslassigning := tslassigning_backup; -end; - -function GridSpan.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function GridSpan.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; diff --git a/autoclass/docx/Gs@DOCX.tsf b/autoclass/docx/Gs@DOCX.tsf deleted file mode 100644 index 29331e0..0000000 --- a/autoclass/docx/Gs@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type Gs = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Gs);override; - -public - - // attributes property - property Pos read ReadXmlAttrPos write WriteXmlAttrPos; - function ReadXmlAttrPos(); - function WriteXmlAttrPos(_value); - - // normal property - property SchemeClr read ReadXmlChildSchemeClr; - function ReadXmlChildSchemeClr(); - -public - // Attributes - XmlAttrPos: OpenXmlAttribute; - - // Children - XmlChildSchemeClr: SchemeClr; - -end; - -function Gs.Create();overload; -begin - {self.}Create(nil, "a", "gs"); -end; - -function Gs.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Gs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Gs.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "pos": makeweakref(thisFunction(WriteXmlAttrPos)), - ); - sorted_child_ := array( - pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Gs.Copy(_obj: Gs);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Pos) then - {self.}Pos := _obj.Pos; - if not ifnil(_obj.XmlChildSchemeClr) then - {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); - tslassigning := tslassigning_backup; -end; - -function Gs.ReadXmlAttrPos(); -begin - return {self.}XmlAttrPos.Value; -end; - -function Gs.WriteXmlAttrPos(_value); -begin - if ifnil({self.}XmlAttrPos) then - begin - {self.}XmlAttrPos := new OpenXmlAttribute("", "pos", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPos; - end - {self.}XmlAttrPos.Value := _value; -end; - -function Gs.ReadXmlChildSchemeClr(); -begin - if tslassigning and ifnil({self.}XmlChildSchemeClr) then - begin - {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); - container_.Set({self.}XmlChildSchemeClr); - end - return {self.}XmlChildSchemeClr; -end; diff --git a/autoclass/docx/GsLst@DOCX.tsf b/autoclass/docx/GsLst@DOCX.tsf deleted file mode 100644 index 61c5520..0000000 --- a/autoclass/docx/GsLst@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type GsLst = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: GsLst);override; - -public - - // multi property - property Gses read ReadGses; - function ReadGses(_index); - function AddGs(): Gs; - function AppendGs(): Gs; - -public - // Children - -end; - -function GsLst.Create();overload; -begin - {self.}Create(nil, "a", "gsLst"); -end; - -function GsLst.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function GsLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function GsLst.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "gs": array(0, makeweakref(thisFunction(AppendGs))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function GsLst.Copy(_obj: GsLst);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function GsLst.ReadGses(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "gs", ind); -end; - -function GsLst.AddGs(): Gs; -begin - obj := new Gs(self, {self.}Prefix, "gs"); - container_.Insert(obj); - return obj; -end; - -function GsLst.AppendGs(): Gs; -begin - obj := new Gs(self, {self.}Prefix, "gs"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Hdr@DOCX.tsf b/autoclass/docx/Hdr@DOCX.tsf deleted file mode 100644 index 14bf972..0000000 --- a/autoclass/docx/Hdr@DOCX.tsf +++ /dev/null @@ -1,411 +0,0 @@ -type Hdr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Hdr);override; - -public - - // attributes property - property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsMo read ReadXmlAttrXmlnsMo write WriteXmlAttrXmlnsMo; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; - property XmlnsWp14 read ReadXmlAttrXmlnsWp14 write WriteXmlAttrXmlnsWp14; - property XmlnsWp read ReadXmlAttrXmlnsWp write WriteXmlAttrXmlnsWp; - property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; - property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; - property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; - property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsM(); - function WriteXmlAttrXmlnsM(_value); - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsMo(); - function WriteXmlAttrXmlnsMo(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsV(); - function WriteXmlAttrXmlnsV(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsWne(); - function WriteXmlAttrXmlnsWne(_value); - function ReadXmlAttrXmlnsWp14(); - function WriteXmlAttrXmlnsWp14(_value); - function ReadXmlAttrXmlnsWp(); - function WriteXmlAttrXmlnsWp(_value); - function ReadXmlAttrXmlnsWpc(); - function WriteXmlAttrXmlnsWpc(_value); - function ReadXmlAttrXmlnsWpg(); - function WriteXmlAttrXmlnsWpg(_value); - function ReadXmlAttrXmlnsWpi(); - function WriteXmlAttrXmlnsWpi(_value); - function ReadXmlAttrXmlnsWps(); - function WriteXmlAttrXmlnsWps(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): P; - function AppendP(): P; - -public - // Attributes - XmlAttrXmlnsM: OpenXmlAttribute; - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsMo: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsV: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsWne: OpenXmlAttribute; - XmlAttrXmlnsWp14: OpenXmlAttribute; - XmlAttrXmlnsWp: OpenXmlAttribute; - XmlAttrXmlnsWpc: OpenXmlAttribute; - XmlAttrXmlnsWpg: OpenXmlAttribute; - XmlAttrXmlnsWpi: OpenXmlAttribute; - XmlAttrXmlnsWps: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - -end; - -function Hdr.Create();overload; -begin - {self.}Create(nil, "w", "hdr"); -end; - -function Hdr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Hdr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Hdr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:mo": makeweakref(thisFunction(WriteXmlAttrXmlnsMo)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:wne": makeweakref(thisFunction(WriteXmlAttrXmlnsWne)), - "xmlns:wp14": makeweakref(thisFunction(WriteXmlAttrXmlnsWp14)), - "xmlns:wp": makeweakref(thisFunction(WriteXmlAttrXmlnsWp)), - "xmlns:wpc": makeweakref(thisFunction(WriteXmlAttrXmlnsWpc)), - "xmlns:wpg": makeweakref(thisFunction(WriteXmlAttrXmlnsWpg)), - "xmlns:wpi": makeweakref(thisFunction(WriteXmlAttrXmlnsWpi)), - "xmlns:wps": makeweakref(thisFunction(WriteXmlAttrXmlnsWps)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Hdr.Copy(_obj: Hdr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsM) then - {self.}XmlnsM := _obj.XmlnsM; - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsMo) then - {self.}XmlnsMo := _obj.XmlnsMo; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsV) then - {self.}XmlnsV := _obj.XmlnsV; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsWne) then - {self.}XmlnsWne := _obj.XmlnsWne; - if not ifnil(_obj.XmlnsWp14) then - {self.}XmlnsWp14 := _obj.XmlnsWp14; - if not ifnil(_obj.XmlnsWp) then - {self.}XmlnsWp := _obj.XmlnsWp; - if not ifnil(_obj.XmlnsWpc) then - {self.}XmlnsWpc := _obj.XmlnsWpc; - if not ifnil(_obj.XmlnsWpg) then - {self.}XmlnsWpg := _obj.XmlnsWpg; - if not ifnil(_obj.XmlnsWpi) then - {self.}XmlnsWpi := _obj.XmlnsWpi; - if not ifnil(_obj.XmlnsWps) then - {self.}XmlnsWps := _obj.XmlnsWps; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - tslassigning := tslassigning_backup; -end; - -function Hdr.ReadXmlAttrXmlnsM(); -begin - return {self.}XmlAttrXmlnsM.Value; -end; - -function Hdr.WriteXmlAttrXmlnsM(_value); -begin - if ifnil({self.}XmlAttrXmlnsM) then - begin - {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; - end - {self.}XmlAttrXmlnsM.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Hdr.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsMo(); -begin - return {self.}XmlAttrXmlnsMo.Value; -end; - -function Hdr.WriteXmlAttrXmlnsMo(_value); -begin - if ifnil({self.}XmlAttrXmlnsMo) then - begin - {self.}XmlAttrXmlnsMo := new OpenXmlAttribute("xmlns", "mo", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMo; - end - {self.}XmlAttrXmlnsMo.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Hdr.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsV(); -begin - return {self.}XmlAttrXmlnsV.Value; -end; - -function Hdr.WriteXmlAttrXmlnsV(_value); -begin - if ifnil({self.}XmlAttrXmlnsV) then - begin - {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; - end - {self.}XmlAttrXmlnsV.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Hdr.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function Hdr.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsWne(); -begin - return {self.}XmlAttrXmlnsWne.Value; -end; - -function Hdr.WriteXmlAttrXmlnsWne(_value); -begin - if ifnil({self.}XmlAttrXmlnsWne) then - begin - {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWne; - end - {self.}XmlAttrXmlnsWne.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsWp14(); -begin - return {self.}XmlAttrXmlnsWp14.Value; -end; - -function Hdr.WriteXmlAttrXmlnsWp14(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp14) then - begin - {self.}XmlAttrXmlnsWp14 := new OpenXmlAttribute("xmlns", "wp14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp14; - end - {self.}XmlAttrXmlnsWp14.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsWp(); -begin - return {self.}XmlAttrXmlnsWp.Value; -end; - -function Hdr.WriteXmlAttrXmlnsWp(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp) then - begin - {self.}XmlAttrXmlnsWp := new OpenXmlAttribute("xmlns", "wp", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp; - end - {self.}XmlAttrXmlnsWp.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsWpc(); -begin - return {self.}XmlAttrXmlnsWpc.Value; -end; - -function Hdr.WriteXmlAttrXmlnsWpc(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpc) then - begin - {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpc; - end - {self.}XmlAttrXmlnsWpc.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsWpg(); -begin - return {self.}XmlAttrXmlnsWpg.Value; -end; - -function Hdr.WriteXmlAttrXmlnsWpg(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpg) then - begin - {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpg; - end - {self.}XmlAttrXmlnsWpg.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsWpi(); -begin - return {self.}XmlAttrXmlnsWpi.Value; -end; - -function Hdr.WriteXmlAttrXmlnsWpi(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpi) then - begin - {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpi; - end - {self.}XmlAttrXmlnsWpi.Value := _value; -end; - -function Hdr.ReadXmlAttrXmlnsWps(); -begin - return {self.}XmlAttrXmlnsWps.Value; -end; - -function Hdr.WriteXmlAttrXmlnsWps(_value); -begin - if ifnil({self.}XmlAttrXmlnsWps) then - begin - {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWps; - end - {self.}XmlAttrXmlnsWps.Value := _value; -end; - -function Hdr.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Hdr.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Hdr.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function Hdr.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function Hdr.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/HdrShapeDefaults@DOCX.tsf b/autoclass/docx/HdrShapeDefaults@DOCX.tsf deleted file mode 100644 index 7083308..0000000 --- a/autoclass/docx/HdrShapeDefaults@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type HdrShapeDefaults = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: HdrShapeDefaults);override; - -public - - // normal property - property ShapeDefaults read ReadXmlChildShapeDefaults; - function ReadXmlChildShapeDefaults(); - -public - // Children - XmlChildShapeDefaults: ShapeDefaults; - -end; - -function HdrShapeDefaults.Create();overload; -begin - {self.}Create(nil, "w", "hdrShapeDefaults"); -end; - -function HdrShapeDefaults.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function HdrShapeDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function HdrShapeDefaults.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "o:shapeDefaults": array(0, makeweakref(thisFunction(ReadXmlChildShapeDefaults))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function HdrShapeDefaults.Copy(_obj: HdrShapeDefaults);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildShapeDefaults) then - {self.}ShapeDefaults.Copy(_obj.XmlChildShapeDefaults); - tslassigning := tslassigning_backup; -end; - -function HdrShapeDefaults.ReadXmlChildShapeDefaults(); -begin - if tslassigning and ifnil({self.}XmlChildShapeDefaults) then - begin - {self.}XmlChildShapeDefaults := new ShapeDefaults(self, "o", "shapeDefaults"); - container_.Set({self.}XmlChildShapeDefaults); - end - return {self.}XmlChildShapeDefaults; -end; diff --git a/autoclass/docx/HyperLink@DOCX.tsf b/autoclass/docx/HyperLink@DOCX.tsf deleted file mode 100644 index bbc2023..0000000 --- a/autoclass/docx/HyperLink@DOCX.tsf +++ /dev/null @@ -1,147 +0,0 @@ -type HyperLink = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: HyperLink);override; - -public - - // attributes property - property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; - property Id read ReadXmlAttrId write WriteXmlAttrId; - property History read ReadXmlAttrHistory write WriteXmlAttrHistory; - function ReadXmlAttrAnchor(); - function WriteXmlAttrAnchor(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrHistory(); - function WriteXmlAttrHistory(_value); - - // multi property - property Rs read ReadRs; - function ReadRs(_index); - function AddR(): R; - function AppendR(): R; - -public - // Attributes - XmlAttrAnchor: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - XmlAttrHistory: OpenXmlAttribute; - - // Children - -end; - -function HyperLink.Create();overload; -begin - {self.}Create(nil, "w", "hyperlink"); -end; - -function HyperLink.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function HyperLink.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function HyperLink.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)), - "r:id": makeweakref(thisFunction(WriteXmlAttrId)), - pre + "history": makeweakref(thisFunction(WriteXmlAttrHistory)), - ); - sorted_child_ := array( - pre + "r": array(0, makeweakref(thisFunction(AppendR))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function HyperLink.Copy(_obj: HyperLink);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Anchor) then - {self.}Anchor := _obj.Anchor; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.History) then - {self.}History := _obj.History; - tslassigning := tslassigning_backup; -end; - -function HyperLink.ReadXmlAttrAnchor(); -begin - return {self.}XmlAttrAnchor.Value; -end; - -function HyperLink.WriteXmlAttrAnchor(_value); -begin - if ifnil({self.}XmlAttrAnchor) then - begin - {self.}XmlAttrAnchor := new OpenXmlAttribute({self.}Prefix, "anchor", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchor; - end - {self.}XmlAttrAnchor.Value := _value; -end; - -function HyperLink.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function HyperLink.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function HyperLink.ReadXmlAttrHistory(); -begin - return {self.}XmlAttrHistory.Value; -end; - -function HyperLink.WriteXmlAttrHistory(_value); -begin - if ifnil({self.}XmlAttrHistory) then - begin - {self.}XmlAttrHistory := new OpenXmlAttribute({self.}Prefix, "history", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHistory; - end - {self.}XmlAttrHistory.Value := _value; -end; - -function HyperLink.ReadRs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "r", ind); -end; - -function HyperLink.AddR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Insert(obj); - return obj; -end; - -function HyperLink.AppendR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/IdMap@DOCX.tsf b/autoclass/docx/IdMap@DOCX.tsf deleted file mode 100644 index c5a9af7..0000000 --- a/autoclass/docx/IdMap@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type IdMap = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: IdMap);override; - -public - - // attributes property - property Ext read ReadXmlAttrExt write WriteXmlAttrExt; - property Data read ReadXmlAttrData write WriteXmlAttrData; - function ReadXmlAttrExt(); - function WriteXmlAttrExt(_value); - function ReadXmlAttrData(); - function WriteXmlAttrData(_value); - -public - // Attributes - XmlAttrExt: OpenXmlAttribute; - XmlAttrData: OpenXmlAttribute; - - -end; - -function IdMap.Create();overload; -begin - {self.}Create(nil, "o", "idmap"); -end; - -function IdMap.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function IdMap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function IdMap.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), - "data": makeweakref(thisFunction(WriteXmlAttrData)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function IdMap.Copy(_obj: IdMap);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Ext) then - {self.}Ext := _obj.Ext; - if not ifnil(_obj.Data) then - {self.}Data := _obj.Data; - tslassigning := tslassigning_backup; -end; - -function IdMap.ReadXmlAttrExt(); -begin - return {self.}XmlAttrExt.Value; -end; - -function IdMap.WriteXmlAttrExt(_value); -begin - if ifnil({self.}XmlAttrExt) then - begin - {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); - attributes_[length(attributes_)] := {self.}XmlAttrExt; - end - {self.}XmlAttrExt.Value := _value; -end; - -function IdMap.ReadXmlAttrData(); -begin - return {self.}XmlAttrData.Value; -end; - -function IdMap.WriteXmlAttrData(_value); -begin - if ifnil({self.}XmlAttrData) then - begin - {self.}XmlAttrData := new OpenXmlAttribute("", "data", nil); - attributes_[length(attributes_)] := {self.}XmlAttrData; - end - {self.}XmlAttrData.Value := _value; -end; diff --git a/autoclass/docx/Imagedata@DOCX.tsf b/autoclass/docx/Imagedata@DOCX.tsf deleted file mode 100644 index eaccc88..0000000 --- a/autoclass/docx/Imagedata@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Imagedata = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Imagedata);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Title read ReadXmlAttrTitle write WriteXmlAttrTitle; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrTitle(); - function WriteXmlAttrTitle(_value); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - XmlAttrTitle: OpenXmlAttribute; - - -end; - -function Imagedata.Create();overload; -begin - {self.}Create(nil, "v", "imagedata"); -end; - -function Imagedata.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Imagedata.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Imagedata.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "r:id": makeweakref(thisFunction(WriteXmlAttrId)), - "o:title": makeweakref(thisFunction(WriteXmlAttrTitle)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Imagedata.Copy(_obj: Imagedata);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Title) then - {self.}Title := _obj.Title; - tslassigning := tslassigning_backup; -end; - -function Imagedata.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Imagedata.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Imagedata.ReadXmlAttrTitle(); -begin - return {self.}XmlAttrTitle.Value; -end; - -function Imagedata.WriteXmlAttrTitle(_value); -begin - if ifnil({self.}XmlAttrTitle) then - begin - {self.}XmlAttrTitle := new OpenXmlAttribute("o", "title", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTitle; - end - {self.}XmlAttrTitle.Value := _value; -end; diff --git a/autoclass/docx/Ind@DOCX.tsf b/autoclass/docx/Ind@DOCX.tsf deleted file mode 100644 index bd7694d..0000000 --- a/autoclass/docx/Ind@DOCX.tsf +++ /dev/null @@ -1,228 +0,0 @@ -type Ind = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ind);override; - -public - - // attributes property - property FirstLineChars read ReadXmlAttrFirstLineChars write WriteXmlAttrFirstLineChars; - property FirstLine read ReadXmlAttrFirstLine write WriteXmlAttrFirstLine; - property RightChars read ReadXmlAttrRightChars write WriteXmlAttrRightChars; - property Right read ReadXmlAttrRight write WriteXmlAttrRight; - property LeftChars read ReadXmlAttrLeftChars write WriteXmlAttrLeftChars; - property Left read ReadXmlAttrLeft write WriteXmlAttrLeft; - property Hanging read ReadXmlAttrHanging write WriteXmlAttrHanging; - property HangingChars read ReadXmlAttrHangingChars write WriteXmlAttrHangingChars; - function ReadXmlAttrFirstLineChars(); - function WriteXmlAttrFirstLineChars(_value); - function ReadXmlAttrFirstLine(); - function WriteXmlAttrFirstLine(_value); - function ReadXmlAttrRightChars(); - function WriteXmlAttrRightChars(_value); - function ReadXmlAttrRight(); - function WriteXmlAttrRight(_value); - function ReadXmlAttrLeftChars(); - function WriteXmlAttrLeftChars(_value); - function ReadXmlAttrLeft(); - function WriteXmlAttrLeft(_value); - function ReadXmlAttrHanging(); - function WriteXmlAttrHanging(_value); - function ReadXmlAttrHangingChars(); - function WriteXmlAttrHangingChars(_value); - -public - // Attributes - XmlAttrFirstLineChars: OpenXmlAttribute; - XmlAttrFirstLine: OpenXmlAttribute; - XmlAttrRightChars: OpenXmlAttribute; - XmlAttrRight: OpenXmlAttribute; - XmlAttrLeftChars: OpenXmlAttribute; - XmlAttrLeft: OpenXmlAttribute; - XmlAttrHanging: OpenXmlAttribute; - XmlAttrHangingChars: OpenXmlAttribute; - - -end; - -function Ind.Create();overload; -begin - {self.}Create(nil, "w", "ind"); -end; - -function Ind.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ind.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ind.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "firstLineChars": makeweakref(thisFunction(WriteXmlAttrFirstLineChars)), - pre + "firstLine": makeweakref(thisFunction(WriteXmlAttrFirstLine)), - pre + "rightChars": makeweakref(thisFunction(WriteXmlAttrRightChars)), - pre + "right": makeweakref(thisFunction(WriteXmlAttrRight)), - pre + "leftChars": makeweakref(thisFunction(WriteXmlAttrLeftChars)), - pre + "left": makeweakref(thisFunction(WriteXmlAttrLeft)), - pre + "hainging": makeweakref(thisFunction(WriteXmlAttrHanging)), - pre + "hangingChars": makeweakref(thisFunction(WriteXmlAttrHangingChars)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ind.Copy(_obj: Ind);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.FirstLineChars) then - {self.}FirstLineChars := _obj.FirstLineChars; - if not ifnil(_obj.FirstLine) then - {self.}FirstLine := _obj.FirstLine; - if not ifnil(_obj.RightChars) then - {self.}RightChars := _obj.RightChars; - if not ifnil(_obj.Right) then - {self.}Right := _obj.Right; - if not ifnil(_obj.LeftChars) then - {self.}LeftChars := _obj.LeftChars; - if not ifnil(_obj.Left) then - {self.}Left := _obj.Left; - if not ifnil(_obj.Hanging) then - {self.}Hanging := _obj.Hanging; - if not ifnil(_obj.HangingChars) then - {self.}HangingChars := _obj.HangingChars; - tslassigning := tslassigning_backup; -end; - -function Ind.ReadXmlAttrFirstLineChars(); -begin - return {self.}XmlAttrFirstLineChars.Value; -end; - -function Ind.WriteXmlAttrFirstLineChars(_value); -begin - if ifnil({self.}XmlAttrFirstLineChars) then - begin - {self.}XmlAttrFirstLineChars := new OpenXmlAttribute({self.}Prefix, "firstLineChars", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstLineChars; - end - {self.}XmlAttrFirstLineChars.Value := _value; -end; - -function Ind.ReadXmlAttrFirstLine(); -begin - return {self.}XmlAttrFirstLine.Value; -end; - -function Ind.WriteXmlAttrFirstLine(_value); -begin - if ifnil({self.}XmlAttrFirstLine) then - begin - {self.}XmlAttrFirstLine := new OpenXmlAttribute({self.}Prefix, "firstLine", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstLine; - end - {self.}XmlAttrFirstLine.Value := _value; -end; - -function Ind.ReadXmlAttrRightChars(); -begin - return {self.}XmlAttrRightChars.Value; -end; - -function Ind.WriteXmlAttrRightChars(_value); -begin - if ifnil({self.}XmlAttrRightChars) then - begin - {self.}XmlAttrRightChars := new OpenXmlAttribute({self.}Prefix, "rightChars", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRightChars; - end - {self.}XmlAttrRightChars.Value := _value; -end; - -function Ind.ReadXmlAttrRight(); -begin - return {self.}XmlAttrRight.Value; -end; - -function Ind.WriteXmlAttrRight(_value); -begin - if ifnil({self.}XmlAttrRight) then - begin - {self.}XmlAttrRight := new OpenXmlAttribute({self.}Prefix, "right", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRight; - end - {self.}XmlAttrRight.Value := _value; -end; - -function Ind.ReadXmlAttrLeftChars(); -begin - return {self.}XmlAttrLeftChars.Value; -end; - -function Ind.WriteXmlAttrLeftChars(_value); -begin - if ifnil({self.}XmlAttrLeftChars) then - begin - {self.}XmlAttrLeftChars := new OpenXmlAttribute({self.}Prefix, "leftChars", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLeftChars; - end - {self.}XmlAttrLeftChars.Value := _value; -end; - -function Ind.ReadXmlAttrLeft(); -begin - return {self.}XmlAttrLeft.Value; -end; - -function Ind.WriteXmlAttrLeft(_value); -begin - if ifnil({self.}XmlAttrLeft) then - begin - {self.}XmlAttrLeft := new OpenXmlAttribute({self.}Prefix, "left", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLeft; - end - {self.}XmlAttrLeft.Value := _value; -end; - -function Ind.ReadXmlAttrHanging(); -begin - return {self.}XmlAttrHanging.Value; -end; - -function Ind.WriteXmlAttrHanging(_value); -begin - if ifnil({self.}XmlAttrHanging) then - begin - {self.}XmlAttrHanging := new OpenXmlAttribute({self.}Prefix, "hainging", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHanging; - end - {self.}XmlAttrHanging.Value := _value; -end; - -function Ind.ReadXmlAttrHangingChars(); -begin - return {self.}XmlAttrHangingChars.Value; -end; - -function Ind.WriteXmlAttrHangingChars(_value); -begin - if ifnil({self.}XmlAttrHangingChars) then - begin - {self.}XmlAttrHangingChars := new OpenXmlAttribute({self.}Prefix, "hangingChars", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHangingChars; - end - {self.}XmlAttrHangingChars.Value := _value; -end; diff --git a/autoclass/docx/Ins@DOCX.tsf b/autoclass/docx/Ins@DOCX.tsf deleted file mode 100644 index 566be67..0000000 --- a/autoclass/docx/Ins@DOCX.tsf +++ /dev/null @@ -1,169 +0,0 @@ -type Ins = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ins);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Author read ReadXmlAttrAuthor write WriteXmlAttrAuthor; - property Date read ReadXmlAttrDate write WriteXmlAttrDate; - property W16duDateUtc read ReadXmlAttrW16duDateUtc write WriteXmlAttrW16duDateUtc; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrAuthor(); - function WriteXmlAttrAuthor(_value); - function ReadXmlAttrDate(); - function WriteXmlAttrDate(_value); - function ReadXmlAttrW16duDateUtc(); - function WriteXmlAttrW16duDateUtc(_value); - - // multi property - property Rs read ReadRs; - function ReadRs(_index); - function AddR(): R; - function AppendR(): R; - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - XmlAttrAuthor: OpenXmlAttribute; - XmlAttrDate: OpenXmlAttribute; - XmlAttrW16duDateUtc: OpenXmlAttribute; - - // Children - -end; - -function Ins.Create();overload; -begin - {self.}Create(nil, "w", "gridCol"); -end; - -function Ins.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ins.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ins.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), - pre + "author": makeweakref(thisFunction(WriteXmlAttrAuthor)), - pre + "date": makeweakref(thisFunction(WriteXmlAttrDate)), - "w16du:dateUtc": makeweakref(thisFunction(WriteXmlAttrW16duDateUtc)), - ); - sorted_child_ := array( - pre + "r": array(0, makeweakref(thisFunction(AppendR))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ins.Copy(_obj: Ins);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Author) then - {self.}Author := _obj.Author; - if not ifnil(_obj.Date) then - {self.}Date := _obj.Date; - if not ifnil(_obj.W16duDateUtc) then - {self.}W16duDateUtc := _obj.W16duDateUtc; - tslassigning := tslassigning_backup; -end; - -function Ins.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Ins.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Ins.ReadXmlAttrAuthor(); -begin - return {self.}XmlAttrAuthor.Value; -end; - -function Ins.WriteXmlAttrAuthor(_value); -begin - if ifnil({self.}XmlAttrAuthor) then - begin - {self.}XmlAttrAuthor := new OpenXmlAttribute({self.}Prefix, "author", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAuthor; - end - {self.}XmlAttrAuthor.Value := _value; -end; - -function Ins.ReadXmlAttrDate(); -begin - return {self.}XmlAttrDate.Value; -end; - -function Ins.WriteXmlAttrDate(_value); -begin - if ifnil({self.}XmlAttrDate) then - begin - {self.}XmlAttrDate := new OpenXmlAttribute({self.}Prefix, "date", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDate; - end - {self.}XmlAttrDate.Value := _value; -end; - -function Ins.ReadXmlAttrW16duDateUtc(); -begin - return {self.}XmlAttrW16duDateUtc.Value; -end; - -function Ins.WriteXmlAttrW16duDateUtc(_value); -begin - if ifnil({self.}XmlAttrW16duDateUtc) then - begin - {self.}XmlAttrW16duDateUtc := new OpenXmlAttribute("w16du", "dateUtc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW16duDateUtc; - end - {self.}XmlAttrW16duDateUtc.Value := _value; -end; - -function Ins.ReadRs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "r", ind); -end; - -function Ins.AddR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Insert(obj); - return obj; -end; - -function Ins.AppendR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/InstrText@DOCX.tsf b/autoclass/docx/InstrText@DOCX.tsf deleted file mode 100644 index 16d7d1d..0000000 --- a/autoclass/docx/InstrText@DOCX.tsf +++ /dev/null @@ -1,71 +0,0 @@ -type InstrText = class(OpenXmlPcdata) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: InstrText);override; - -public - - // attributes property - property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; - function ReadXmlAttrSpace(); - function WriteXmlAttrSpace(_value); - -public - // Attributes - XmlAttrSpace: OpenXmlAttribute; - - -end; - -function InstrText.Create();overload; -begin - {self.}Create(nil, "w", "instrText"); -end; - -function InstrText.Create(_node: XmlNode);overload; -begin - class(OpenXmlPcdata).Create(_node: XmlNode); -end; - -function InstrText.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); -end; - -function InstrText.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xml:Space": makeweakref(thisFunction(WriteXmlAttrSpace)), - ); -end; - -function InstrText.Copy(_obj: InstrText);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlPcdata).Copy(_obj); - if not ifnil(_obj.Space) then - {self.}Space := _obj.Space; - tslassigning := tslassigning_backup; -end; - -function InstrText.ReadXmlAttrSpace(); -begin - return {self.}XmlAttrSpace.Value; -end; - -function InstrText.WriteXmlAttrSpace(_value); -begin - if ifnil({self.}XmlAttrSpace) then - begin - {self.}XmlAttrSpace := new OpenXmlAttribute("xml", "Space", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpace; - end - {self.}XmlAttrSpace.Value := _value; -end; diff --git a/autoclass/docx/Lang@DOCX.tsf b/autoclass/docx/Lang@DOCX.tsf deleted file mode 100644 index 7a6dd5a..0000000 --- a/autoclass/docx/Lang@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type Lang = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Lang);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia; - property Bidi read ReadXmlAttrBidi write WriteXmlAttrBidi; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrEastAsia(); - function WriteXmlAttrEastAsia(_value); - function ReadXmlAttrBidi(); - function WriteXmlAttrBidi(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrEastAsia: OpenXmlAttribute; - XmlAttrBidi: OpenXmlAttribute; - - -end; - -function Lang.Create();overload; -begin - {self.}Create(nil, "w", "lang"); -end; - -function Lang.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Lang.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Lang.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "eastAsia": makeweakref(thisFunction(WriteXmlAttrEastAsia)), - pre + "bidi": makeweakref(thisFunction(WriteXmlAttrBidi)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Lang.Copy(_obj: Lang);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.EastAsia) then - {self.}EastAsia := _obj.EastAsia; - if not ifnil(_obj.Bidi) then - {self.}Bidi := _obj.Bidi; - tslassigning := tslassigning_backup; -end; - -function Lang.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function Lang.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function Lang.ReadXmlAttrEastAsia(); -begin - return {self.}XmlAttrEastAsia.Value; -end; - -function Lang.WriteXmlAttrEastAsia(_value); -begin - if ifnil({self.}XmlAttrEastAsia) then - begin - {self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEastAsia; - end - {self.}XmlAttrEastAsia.Value := _value; -end; - -function Lang.ReadXmlAttrBidi(); -begin - return {self.}XmlAttrBidi.Value; -end; - -function Lang.WriteXmlAttrBidi(_value); -begin - if ifnil({self.}XmlAttrBidi) then - begin - {self.}XmlAttrBidi := new OpenXmlAttribute({self.}Prefix, "bidi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBidi; - end - {self.}XmlAttrBidi.Value := _value; -end; diff --git a/autoclass/docx/LatenStyles@DOCX.tsf b/autoclass/docx/LatenStyles@DOCX.tsf deleted file mode 100644 index 7476002..0000000 --- a/autoclass/docx/LatenStyles@DOCX.tsf +++ /dev/null @@ -1,213 +0,0 @@ -type LatenStyles = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: LatenStyles);override; - -public - - // attributes property - property DefLickedState read ReadXmlAttrDefLickedState write WriteXmlAttrDefLickedState; - property DefUIPriority read ReadXmlAttrDefUIPriority write WriteXmlAttrDefUIPriority; - property DefSemiHidden read ReadXmlAttrDefSemiHidden write WriteXmlAttrDefSemiHidden; - property DefUnhideWhenUsed read ReadXmlAttrDefUnhideWhenUsed write WriteXmlAttrDefUnhideWhenUsed; - property DefQFormat read ReadXmlAttrDefQFormat write WriteXmlAttrDefQFormat; - property Count read ReadXmlAttrCount write WriteXmlAttrCount; - function ReadXmlAttrDefLickedState(); - function WriteXmlAttrDefLickedState(_value); - function ReadXmlAttrDefUIPriority(); - function WriteXmlAttrDefUIPriority(_value); - function ReadXmlAttrDefSemiHidden(); - function WriteXmlAttrDefSemiHidden(_value); - function ReadXmlAttrDefUnhideWhenUsed(); - function WriteXmlAttrDefUnhideWhenUsed(_value); - function ReadXmlAttrDefQFormat(); - function WriteXmlAttrDefQFormat(_value); - function ReadXmlAttrCount(); - function WriteXmlAttrCount(_value); - - // multi property - property LsdExceptions read ReadLsdExceptions; - function ReadLsdExceptions(_index); - function AddLsdException(): LsdException; - function AppendLsdException(): LsdException; - -public - // Attributes - XmlAttrDefLickedState: OpenXmlAttribute; - XmlAttrDefUIPriority: OpenXmlAttribute; - XmlAttrDefSemiHidden: OpenXmlAttribute; - XmlAttrDefUnhideWhenUsed: OpenXmlAttribute; - XmlAttrDefQFormat: OpenXmlAttribute; - XmlAttrCount: OpenXmlAttribute; - - // Children - -end; - -function LatenStyles.Create();overload; -begin - {self.}Create(nil, "w", "latenStyles"); -end; - -function LatenStyles.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function LatenStyles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function LatenStyles.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "defLickedState": makeweakref(thisFunction(WriteXmlAttrDefLickedState)), - pre + "defUIPriority": makeweakref(thisFunction(WriteXmlAttrDefUIPriority)), - pre + "defSemiHidden": makeweakref(thisFunction(WriteXmlAttrDefSemiHidden)), - pre + "defUnhideWhenUsed": makeweakref(thisFunction(WriteXmlAttrDefUnhideWhenUsed)), - pre + "defQFormat": makeweakref(thisFunction(WriteXmlAttrDefQFormat)), - pre + "count": makeweakref(thisFunction(WriteXmlAttrCount)), - ); - sorted_child_ := array( - pre + "lsdException": array(0, makeweakref(thisFunction(AppendLsdException))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function LatenStyles.Copy(_obj: LatenStyles);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.DefLickedState) then - {self.}DefLickedState := _obj.DefLickedState; - if not ifnil(_obj.DefUIPriority) then - {self.}DefUIPriority := _obj.DefUIPriority; - if not ifnil(_obj.DefSemiHidden) then - {self.}DefSemiHidden := _obj.DefSemiHidden; - if not ifnil(_obj.DefUnhideWhenUsed) then - {self.}DefUnhideWhenUsed := _obj.DefUnhideWhenUsed; - if not ifnil(_obj.DefQFormat) then - {self.}DefQFormat := _obj.DefQFormat; - if not ifnil(_obj.Count) then - {self.}Count := _obj.Count; - tslassigning := tslassigning_backup; -end; - -function LatenStyles.ReadXmlAttrDefLickedState(); -begin - return {self.}XmlAttrDefLickedState.Value; -end; - -function LatenStyles.WriteXmlAttrDefLickedState(_value); -begin - if ifnil({self.}XmlAttrDefLickedState) then - begin - {self.}XmlAttrDefLickedState := new OpenXmlAttribute({self.}Prefix, "defLickedState", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDefLickedState; - end - {self.}XmlAttrDefLickedState.Value := _value; -end; - -function LatenStyles.ReadXmlAttrDefUIPriority(); -begin - return {self.}XmlAttrDefUIPriority.Value; -end; - -function LatenStyles.WriteXmlAttrDefUIPriority(_value); -begin - if ifnil({self.}XmlAttrDefUIPriority) then - begin - {self.}XmlAttrDefUIPriority := new OpenXmlAttribute({self.}Prefix, "defUIPriority", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDefUIPriority; - end - {self.}XmlAttrDefUIPriority.Value := _value; -end; - -function LatenStyles.ReadXmlAttrDefSemiHidden(); -begin - return {self.}XmlAttrDefSemiHidden.Value; -end; - -function LatenStyles.WriteXmlAttrDefSemiHidden(_value); -begin - if ifnil({self.}XmlAttrDefSemiHidden) then - begin - {self.}XmlAttrDefSemiHidden := new OpenXmlAttribute({self.}Prefix, "defSemiHidden", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDefSemiHidden; - end - {self.}XmlAttrDefSemiHidden.Value := _value; -end; - -function LatenStyles.ReadXmlAttrDefUnhideWhenUsed(); -begin - return {self.}XmlAttrDefUnhideWhenUsed.Value; -end; - -function LatenStyles.WriteXmlAttrDefUnhideWhenUsed(_value); -begin - if ifnil({self.}XmlAttrDefUnhideWhenUsed) then - begin - {self.}XmlAttrDefUnhideWhenUsed := new OpenXmlAttribute({self.}Prefix, "defUnhideWhenUsed", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDefUnhideWhenUsed; - end - {self.}XmlAttrDefUnhideWhenUsed.Value := _value; -end; - -function LatenStyles.ReadXmlAttrDefQFormat(); -begin - return {self.}XmlAttrDefQFormat.Value; -end; - -function LatenStyles.WriteXmlAttrDefQFormat(_value); -begin - if ifnil({self.}XmlAttrDefQFormat) then - begin - {self.}XmlAttrDefQFormat := new OpenXmlAttribute({self.}Prefix, "defQFormat", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDefQFormat; - end - {self.}XmlAttrDefQFormat.Value := _value; -end; - -function LatenStyles.ReadXmlAttrCount(); -begin - return {self.}XmlAttrCount.Value; -end; - -function LatenStyles.WriteXmlAttrCount(_value); -begin - if ifnil({self.}XmlAttrCount) then - begin - {self.}XmlAttrCount := new OpenXmlAttribute({self.}Prefix, "count", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCount; - end - {self.}XmlAttrCount.Value := _value; -end; - -function LatenStyles.ReadLsdExceptions(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "lsdException", ind); -end; - -function LatenStyles.AddLsdException(): LsdException; -begin - obj := new LsdException(self, {self.}Prefix, "lsdException"); - container_.Insert(obj); - return obj; -end; - -function LatenStyles.AppendLsdException(): LsdException; -begin - obj := new LsdException(self, {self.}Prefix, "lsdException"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Latin@DOCX.tsf b/autoclass/docx/Latin@DOCX.tsf deleted file mode 100644 index 38e350f..0000000 --- a/autoclass/docx/Latin@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Latin = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Latin);override; - -public - - // attributes property - property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; - property Panose read ReadXmlAttrPanose write WriteXmlAttrPanose; - function ReadXmlAttrTypeface(); - function WriteXmlAttrTypeface(_value); - function ReadXmlAttrPanose(); - function WriteXmlAttrPanose(_value); - -public - // Attributes - XmlAttrTypeface: OpenXmlAttribute; - XmlAttrPanose: OpenXmlAttribute; - - -end; - -function Latin.Create();overload; -begin - {self.}Create(nil, "a", "latin"); -end; - -function Latin.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Latin.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Latin.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)), - "panose": makeweakref(thisFunction(WriteXmlAttrPanose)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Latin.Copy(_obj: Latin);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Typeface) then - {self.}Typeface := _obj.Typeface; - if not ifnil(_obj.Panose) then - {self.}Panose := _obj.Panose; - tslassigning := tslassigning_backup; -end; - -function Latin.ReadXmlAttrTypeface(); -begin - return {self.}XmlAttrTypeface.Value; -end; - -function Latin.WriteXmlAttrTypeface(_value); -begin - if ifnil({self.}XmlAttrTypeface) then - begin - {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTypeface; - end - {self.}XmlAttrTypeface.Value := _value; -end; - -function Latin.ReadXmlAttrPanose(); -begin - return {self.}XmlAttrPanose.Value; -end; - -function Latin.WriteXmlAttrPanose(_value); -begin - if ifnil({self.}XmlAttrPanose) then - begin - {self.}XmlAttrPanose := new OpenXmlAttribute("", "panose", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPanose; - end - {self.}XmlAttrPanose.Value := _value; -end; diff --git a/autoclass/docx/Legend@DOCX.tsf b/autoclass/docx/Legend@DOCX.tsf deleted file mode 100644 index cc51a50..0000000 --- a/autoclass/docx/Legend@DOCX.tsf +++ /dev/null @@ -1,132 +0,0 @@ -type Legend = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Legend);override; - -public - - // empty property - property Layout read ReadXmlChildLayout write WriteXmlChildLayout; - function ReadXmlChildLayout(); - function WriteXmlChildLayout(_value); - - // normal property - property LegendPos read ReadXmlChildLegendPos; - property Overlay read ReadXmlChildOverlay; - property TxPr read ReadXmlChildTxPr; - function ReadXmlChildLegendPos(); - function ReadXmlChildOverlay(); - function ReadXmlChildTxPr(); - -public - // Children - XmlChildLegendPos: PureVal; - XmlChildLayout: OpenXmlEmpty; - XmlChildOverlay: PureVal; - XmlChildTxPr: TxPr; - -end; - -function Legend.Create();overload; -begin - {self.}Create(nil, "c", "legend"); -end; - -function Legend.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Legend.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Legend.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "legendPos": array(0, makeweakref(thisFunction(ReadXmlChildLegendPos))), - pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))), - pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))), - pre + "txPr": array(3, makeweakref(thisFunction(ReadXmlChildTxPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Legend.Copy(_obj: Legend);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildLegendPos) then - {self.}LegendPos.Copy(_obj.XmlChildLegendPos); - if not ifnil(_obj.XmlChildLayout) then - ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); - if not ifnil(_obj.XmlChildOverlay) then - {self.}Overlay.Copy(_obj.XmlChildOverlay); - if not ifnil(_obj.XmlChildTxPr) then - {self.}TxPr.Copy(_obj.XmlChildTxPr); - tslassigning := tslassigning_backup; -end; - -function Legend.ReadXmlChildLayout(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildLayout) then - begin - {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); - container_.Set({self.}XmlChildLayout); - end - return {self.}XmlChildLayout; - end - return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); -end; - -function Legend.WriteXmlChildLayout(_value); -begin - if ifnil({self.}XmlChildLayout) then - begin - {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); - container_.Set({self.}XmlChildLayout); - end - {self.}XmlChildLayout.Value := _value; -end; - -function Legend.ReadXmlChildLegendPos(); -begin - if tslassigning and ifnil({self.}XmlChildLegendPos) then - begin - {self.}XmlChildLegendPos := new PureVal(self, {self.}Prefix, "legendPos"); - container_.Set({self.}XmlChildLegendPos); - end - return {self.}XmlChildLegendPos; -end; - -function Legend.ReadXmlChildOverlay(); -begin - if tslassigning and ifnil({self.}XmlChildOverlay) then - begin - {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); - container_.Set({self.}XmlChildOverlay); - end - return {self.}XmlChildOverlay; -end; - -function Legend.ReadXmlChildTxPr(); -begin - if tslassigning and ifnil({self.}XmlChildTxPr) then - begin - {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); - container_.Set({self.}XmlChildTxPr); - end - return {self.}XmlChildTxPr; -end; diff --git a/autoclass/docx/Lin@DOCX.tsf b/autoclass/docx/Lin@DOCX.tsf deleted file mode 100644 index 8044c58..0000000 --- a/autoclass/docx/Lin@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Lin = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Lin);override; - -public - - // attributes property - property Ang read ReadXmlAttrAng write WriteXmlAttrAng; - property Scaled read ReadXmlAttrScaled write WriteXmlAttrScaled; - function ReadXmlAttrAng(); - function WriteXmlAttrAng(_value); - function ReadXmlAttrScaled(); - function WriteXmlAttrScaled(_value); - -public - // Attributes - XmlAttrAng: OpenXmlAttribute; - XmlAttrScaled: OpenXmlAttribute; - - -end; - -function Lin.Create();overload; -begin - {self.}Create(nil, "a", "lin"); -end; - -function Lin.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Lin.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Lin.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "ang": makeweakref(thisFunction(WriteXmlAttrAng)), - "scaled": makeweakref(thisFunction(WriteXmlAttrScaled)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Lin.Copy(_obj: Lin);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Ang) then - {self.}Ang := _obj.Ang; - if not ifnil(_obj.Scaled) then - {self.}Scaled := _obj.Scaled; - tslassigning := tslassigning_backup; -end; - -function Lin.ReadXmlAttrAng(); -begin - return {self.}XmlAttrAng.Value; -end; - -function Lin.WriteXmlAttrAng(_value); -begin - if ifnil({self.}XmlAttrAng) then - begin - {self.}XmlAttrAng := new OpenXmlAttribute("", "ang", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAng; - end - {self.}XmlAttrAng.Value := _value; -end; - -function Lin.ReadXmlAttrScaled(); -begin - return {self.}XmlAttrScaled.Value; -end; - -function Lin.WriteXmlAttrScaled(_value); -begin - if ifnil({self.}XmlAttrScaled) then - begin - {self.}XmlAttrScaled := new OpenXmlAttribute("", "scaled", nil); - attributes_[length(attributes_)] := {self.}XmlAttrScaled; - end - {self.}XmlAttrScaled.Value := _value; -end; diff --git a/autoclass/docx/Ln@DOCX.tsf b/autoclass/docx/Ln@DOCX.tsf deleted file mode 100644 index 32538fa..0000000 --- a/autoclass/docx/Ln@DOCX.tsf +++ /dev/null @@ -1,191 +0,0 @@ -type Ln = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ln);override; - -public - - // attributes property - property W read ReadXmlAttrW write WriteXmlAttrW; - property Cap read ReadXmlAttrCap write WriteXmlAttrCap; - property Cmpd read ReadXmlAttrCmpd write WriteXmlAttrCmpd; - property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; - function ReadXmlAttrW(); - function WriteXmlAttrW(_value); - function ReadXmlAttrCap(); - function WriteXmlAttrCap(_value); - function ReadXmlAttrCmpd(); - function WriteXmlAttrCmpd(_value); - function ReadXmlAttrAlgn(); - function WriteXmlAttrAlgn(_value); - - // normal property - property SolidFill read ReadXmlChildSolidFill; - property PrstDash read ReadXmlChildPrstDash; - property Miter read ReadXmlChildMiter; - function ReadXmlChildSolidFill(); - function ReadXmlChildPrstDash(); - function ReadXmlChildMiter(); - -public - // Attributes - XmlAttrW: OpenXmlAttribute; - XmlAttrCap: OpenXmlAttribute; - XmlAttrCmpd: OpenXmlAttribute; - XmlAttrAlgn: OpenXmlAttribute; - - // Children - XmlChildSolidFill: SolidFill; - XmlChildPrstDash: PureVal; - XmlChildMiter: Miter; - -end; - -function Ln.Create();overload; -begin - {self.}Create(nil, "a", "ln"); -end; - -function Ln.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ln.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ln.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w": makeweakref(thisFunction(WriteXmlAttrW)), - "cap": makeweakref(thisFunction(WriteXmlAttrCap)), - "cmpd": makeweakref(thisFunction(WriteXmlAttrCmpd)), - "algn": makeweakref(thisFunction(WriteXmlAttrAlgn)), - ); - sorted_child_ := array( - pre + "solidFill": array(0, makeweakref(thisFunction(ReadXmlChildSolidFill))), - pre + "prstDash": array(1, makeweakref(thisFunction(ReadXmlChildPrstDash))), - pre + "miter": array(2, makeweakref(thisFunction(ReadXmlChildMiter))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ln.Copy(_obj: Ln);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.W) then - {self.}W := _obj.W; - if not ifnil(_obj.Cap) then - {self.}Cap := _obj.Cap; - if not ifnil(_obj.Cmpd) then - {self.}Cmpd := _obj.Cmpd; - if not ifnil(_obj.Algn) then - {self.}Algn := _obj.Algn; - if not ifnil(_obj.XmlChildSolidFill) then - {self.}SolidFill.Copy(_obj.XmlChildSolidFill); - if not ifnil(_obj.XmlChildPrstDash) then - {self.}PrstDash.Copy(_obj.XmlChildPrstDash); - if not ifnil(_obj.XmlChildMiter) then - {self.}Miter.Copy(_obj.XmlChildMiter); - tslassigning := tslassigning_backup; -end; - -function Ln.ReadXmlAttrW(); -begin - return {self.}XmlAttrW.Value; -end; - -function Ln.WriteXmlAttrW(_value); -begin - if ifnil({self.}XmlAttrW) then - begin - {self.}XmlAttrW := new OpenXmlAttribute("", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW; - end - {self.}XmlAttrW.Value := _value; -end; - -function Ln.ReadXmlAttrCap(); -begin - return {self.}XmlAttrCap.Value; -end; - -function Ln.WriteXmlAttrCap(_value); -begin - if ifnil({self.}XmlAttrCap) then - begin - {self.}XmlAttrCap := new OpenXmlAttribute("", "cap", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCap; - end - {self.}XmlAttrCap.Value := _value; -end; - -function Ln.ReadXmlAttrCmpd(); -begin - return {self.}XmlAttrCmpd.Value; -end; - -function Ln.WriteXmlAttrCmpd(_value); -begin - if ifnil({self.}XmlAttrCmpd) then - begin - {self.}XmlAttrCmpd := new OpenXmlAttribute("", "cmpd", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCmpd; - end - {self.}XmlAttrCmpd.Value := _value; -end; - -function Ln.ReadXmlAttrAlgn(); -begin - return {self.}XmlAttrAlgn.Value; -end; - -function Ln.WriteXmlAttrAlgn(_value); -begin - if ifnil({self.}XmlAttrAlgn) then - begin - {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAlgn; - end - {self.}XmlAttrAlgn.Value := _value; -end; - -function Ln.ReadXmlChildSolidFill(); -begin - if tslassigning and ifnil({self.}XmlChildSolidFill) then - begin - {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); - container_.Set({self.}XmlChildSolidFill); - end - return {self.}XmlChildSolidFill; -end; - -function Ln.ReadXmlChildPrstDash(); -begin - if tslassigning and ifnil({self.}XmlChildPrstDash) then - begin - {self.}XmlChildPrstDash := new PureVal(self, {self.}Prefix, "prstDash"); - container_.Set({self.}XmlChildPrstDash); - end - return {self.}XmlChildPrstDash; -end; - -function Ln.ReadXmlChildMiter(); -begin - if tslassigning and ifnil({self.}XmlChildMiter) then - begin - {self.}XmlChildMiter := new Miter(self, {self.}Prefix, "miter"); - container_.Set({self.}XmlChildMiter); - end - return {self.}XmlChildMiter; -end; diff --git a/autoclass/docx/LnStyleLst@DOCX.tsf b/autoclass/docx/LnStyleLst@DOCX.tsf deleted file mode 100644 index e23fc24..0000000 --- a/autoclass/docx/LnStyleLst@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type LnStyleLst = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: LnStyleLst);override; - -public - - // multi property - property Lns read ReadLns; - function ReadLns(_index); - function AddLn(): Ln; - function AppendLn(): Ln; - -public - // Children - -end; - -function LnStyleLst.Create();overload; -begin - {self.}Create(nil, "a", "lnStyleLst"); -end; - -function LnStyleLst.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function LnStyleLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function LnStyleLst.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "ln": array(0, makeweakref(thisFunction(AppendLn))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function LnStyleLst.Copy(_obj: LnStyleLst);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function LnStyleLst.ReadLns(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "ln", ind); -end; - -function LnStyleLst.AddLn(): Ln; -begin - obj := new Ln(self, {self.}Prefix, "ln"); - container_.Insert(obj); - return obj; -end; - -function LnStyleLst.AppendLn(): Ln; -begin - obj := new Ln(self, {self.}Prefix, "ln"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Lock@DOCX.tsf b/autoclass/docx/Lock@DOCX.tsf deleted file mode 100644 index 332a03d..0000000 --- a/autoclass/docx/Lock@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Lock = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Lock);override; - -public - - // attributes property - property Ext read ReadXmlAttrExt write WriteXmlAttrExt; - property Aspectration read ReadXmlAttrAspectration write WriteXmlAttrAspectration; - function ReadXmlAttrExt(); - function WriteXmlAttrExt(_value); - function ReadXmlAttrAspectration(); - function WriteXmlAttrAspectration(_value); - -public - // Attributes - XmlAttrExt: OpenXmlAttribute; - XmlAttrAspectration: OpenXmlAttribute; - - -end; - -function Lock.Create();overload; -begin - {self.}Create(nil, "o", "lock"); -end; - -function Lock.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Lock.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Lock.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), - "aspectration": makeweakref(thisFunction(WriteXmlAttrAspectration)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Lock.Copy(_obj: Lock);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Ext) then - {self.}Ext := _obj.Ext; - if not ifnil(_obj.Aspectration) then - {self.}Aspectration := _obj.Aspectration; - tslassigning := tslassigning_backup; -end; - -function Lock.ReadXmlAttrExt(); -begin - return {self.}XmlAttrExt.Value; -end; - -function Lock.WriteXmlAttrExt(_value); -begin - if ifnil({self.}XmlAttrExt) then - begin - {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); - attributes_[length(attributes_)] := {self.}XmlAttrExt; - end - {self.}XmlAttrExt.Value := _value; -end; - -function Lock.ReadXmlAttrAspectration(); -begin - return {self.}XmlAttrAspectration.Value; -end; - -function Lock.WriteXmlAttrAspectration(_value); -begin - if ifnil({self.}XmlAttrAspectration) then - begin - {self.}XmlAttrAspectration := new OpenXmlAttribute("", "aspectration", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAspectration; - end - {self.}XmlAttrAspectration.Value := _value; -end; diff --git a/autoclass/docx/LsdException@DOCX.tsf b/autoclass/docx/LsdException@DOCX.tsf deleted file mode 100644 index b2d5057..0000000 --- a/autoclass/docx/LsdException@DOCX.tsf +++ /dev/null @@ -1,162 +0,0 @@ -type LsdException = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: LsdException);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - property UIPriority read ReadXmlAttrUIPriority write WriteXmlAttrUIPriority; - property SemiHidden read ReadXmlAttrSemiHidden write WriteXmlAttrSemiHidden; - property UnhideWhenUsed read ReadXmlAttrUnhideWhenUsed write WriteXmlAttrUnhideWhenUsed; - property QFormat read ReadXmlAttrQFormat write WriteXmlAttrQFormat; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - function ReadXmlAttrUIPriority(); - function WriteXmlAttrUIPriority(_value); - function ReadXmlAttrSemiHidden(); - function WriteXmlAttrSemiHidden(_value); - function ReadXmlAttrUnhideWhenUsed(); - function WriteXmlAttrUnhideWhenUsed(_value); - function ReadXmlAttrQFormat(); - function WriteXmlAttrQFormat(_value); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - XmlAttrUIPriority: OpenXmlAttribute; - XmlAttrSemiHidden: OpenXmlAttribute; - XmlAttrUnhideWhenUsed: OpenXmlAttribute; - XmlAttrQFormat: OpenXmlAttribute; - - -end; - -function LsdException.Create();overload; -begin - {self.}Create(nil, "w", "lsdException"); -end; - -function LsdException.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function LsdException.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function LsdException.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), - pre + "uiPriority": makeweakref(thisFunction(WriteXmlAttrUIPriority)), - pre + "semiHidden": makeweakref(thisFunction(WriteXmlAttrSemiHidden)), - pre + "unhideWhenUsed": makeweakref(thisFunction(WriteXmlAttrUnhideWhenUsed)), - pre + "qFormat": makeweakref(thisFunction(WriteXmlAttrQFormat)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function LsdException.Copy(_obj: LsdException);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.UIPriority) then - {self.}UIPriority := _obj.UIPriority; - if not ifnil(_obj.SemiHidden) then - {self.}SemiHidden := _obj.SemiHidden; - if not ifnil(_obj.UnhideWhenUsed) then - {self.}UnhideWhenUsed := _obj.UnhideWhenUsed; - if not ifnil(_obj.QFormat) then - {self.}QFormat := _obj.QFormat; - tslassigning := tslassigning_backup; -end; - -function LsdException.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function LsdException.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function LsdException.ReadXmlAttrUIPriority(); -begin - return {self.}XmlAttrUIPriority.Value; -end; - -function LsdException.WriteXmlAttrUIPriority(_value); -begin - if ifnil({self.}XmlAttrUIPriority) then - begin - {self.}XmlAttrUIPriority := new OpenXmlAttribute({self.}Prefix, "uiPriority", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUIPriority; - end - {self.}XmlAttrUIPriority.Value := _value; -end; - -function LsdException.ReadXmlAttrSemiHidden(); -begin - return {self.}XmlAttrSemiHidden.Value; -end; - -function LsdException.WriteXmlAttrSemiHidden(_value); -begin - if ifnil({self.}XmlAttrSemiHidden) then - begin - {self.}XmlAttrSemiHidden := new OpenXmlAttribute({self.}Prefix, "semiHidden", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSemiHidden; - end - {self.}XmlAttrSemiHidden.Value := _value; -end; - -function LsdException.ReadXmlAttrUnhideWhenUsed(); -begin - return {self.}XmlAttrUnhideWhenUsed.Value; -end; - -function LsdException.WriteXmlAttrUnhideWhenUsed(_value); -begin - if ifnil({self.}XmlAttrUnhideWhenUsed) then - begin - {self.}XmlAttrUnhideWhenUsed := new OpenXmlAttribute({self.}Prefix, "unhideWhenUsed", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUnhideWhenUsed; - end - {self.}XmlAttrUnhideWhenUsed.Value := _value; -end; - -function LsdException.ReadXmlAttrQFormat(); -begin - return {self.}XmlAttrQFormat.Value; -end; - -function LsdException.WriteXmlAttrQFormat(_value); -begin - if ifnil({self.}XmlAttrQFormat) then - begin - {self.}XmlAttrQFormat := new OpenXmlAttribute({self.}Prefix, "qFormat", nil); - attributes_[length(attributes_)] := {self.}XmlAttrQFormat; - end - {self.}XmlAttrQFormat.Value := _value; -end; diff --git a/autoclass/docx/Lvl@DOCX.tsf b/autoclass/docx/Lvl@DOCX.tsf deleted file mode 100644 index 155644a..0000000 --- a/autoclass/docx/Lvl@DOCX.tsf +++ /dev/null @@ -1,227 +0,0 @@ -type Lvl = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Lvl);override; - -public - - // attributes property - property Ilvl read ReadXmlAttrIlvl write WriteXmlAttrIlvl; - property Tentative read ReadXmlAttrTentative write WriteXmlAttrTentative; - function ReadXmlAttrIlvl(); - function WriteXmlAttrIlvl(_value); - function ReadXmlAttrTentative(); - function WriteXmlAttrTentative(_value); - - // normal property - property Start read ReadXmlChildStart; - property NumFmt read ReadXmlChildNumFmt; - property PStyle read ReadXmlChildPStyle; - property Suff read ReadXmlChildSuff; - property LvlText read ReadXmlChildLvlText; - property LvlJc read ReadXmlChildLvlJc; - property PPr read ReadXmlChildPPr; - property RPr read ReadXmlChildRPr; - function ReadXmlChildStart(); - function ReadXmlChildNumFmt(); - function ReadXmlChildPStyle(); - function ReadXmlChildSuff(); - function ReadXmlChildLvlText(); - function ReadXmlChildLvlJc(); - function ReadXmlChildPPr(); - function ReadXmlChildRPr(); - -public - // Attributes - XmlAttrIlvl: OpenXmlAttribute; - XmlAttrTentative: OpenXmlAttribute; - - // Children - XmlChildStart: PureWVal; - XmlChildNumFmt: PureWVal; - XmlChildPStyle: PureWVal; - XmlChildSuff: PureWVal; - XmlChildLvlText: PureWVal; - XmlChildLvlJc: PureWVal; - XmlChildPPr: PPr; - XmlChildRPr: RPr; - -end; - -function Lvl.Create();overload; -begin - {self.}Create(nil, "w", "lvl"); -end; - -function Lvl.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Lvl.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Lvl.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "ilvl": makeweakref(thisFunction(WriteXmlAttrIlvl)), - pre + "tentative": makeweakref(thisFunction(WriteXmlAttrTentative)), - ); - sorted_child_ := array( - pre + "start": array(0, makeweakref(thisFunction(ReadXmlChildStart))), - pre + "numFmt": array(1, makeweakref(thisFunction(ReadXmlChildNumFmt))), - pre + "pStyle": array(2, makeweakref(thisFunction(ReadXmlChildPStyle))), - pre + "suff": array(3, makeweakref(thisFunction(ReadXmlChildSuff))), - pre + "lvlText": array(4, makeweakref(thisFunction(ReadXmlChildLvlText))), - pre + "lvlJc": array(5, makeweakref(thisFunction(ReadXmlChildLvlJc))), - pre + "pPr": array(6, makeweakref(thisFunction(ReadXmlChildPPr))), - pre + "rPr": array(7, makeweakref(thisFunction(ReadXmlChildRPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Lvl.Copy(_obj: Lvl);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Ilvl) then - {self.}Ilvl := _obj.Ilvl; - if not ifnil(_obj.Tentative) then - {self.}Tentative := _obj.Tentative; - if not ifnil(_obj.XmlChildStart) then - {self.}Start.Copy(_obj.XmlChildStart); - if not ifnil(_obj.XmlChildNumFmt) then - {self.}NumFmt.Copy(_obj.XmlChildNumFmt); - if not ifnil(_obj.XmlChildPStyle) then - {self.}PStyle.Copy(_obj.XmlChildPStyle); - if not ifnil(_obj.XmlChildSuff) then - {self.}Suff.Copy(_obj.XmlChildSuff); - if not ifnil(_obj.XmlChildLvlText) then - {self.}LvlText.Copy(_obj.XmlChildLvlText); - if not ifnil(_obj.XmlChildLvlJc) then - {self.}LvlJc.Copy(_obj.XmlChildLvlJc); - if not ifnil(_obj.XmlChildPPr) then - {self.}PPr.Copy(_obj.XmlChildPPr); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - tslassigning := tslassigning_backup; -end; - -function Lvl.ReadXmlAttrIlvl(); -begin - return {self.}XmlAttrIlvl.Value; -end; - -function Lvl.WriteXmlAttrIlvl(_value); -begin - if ifnil({self.}XmlAttrIlvl) then - begin - {self.}XmlAttrIlvl := new OpenXmlAttribute({self.}Prefix, "ilvl", nil); - attributes_[length(attributes_)] := {self.}XmlAttrIlvl; - end - {self.}XmlAttrIlvl.Value := _value; -end; - -function Lvl.ReadXmlAttrTentative(); -begin - return {self.}XmlAttrTentative.Value; -end; - -function Lvl.WriteXmlAttrTentative(_value); -begin - if ifnil({self.}XmlAttrTentative) then - begin - {self.}XmlAttrTentative := new OpenXmlAttribute({self.}Prefix, "tentative", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTentative; - end - {self.}XmlAttrTentative.Value := _value; -end; - -function Lvl.ReadXmlChildStart(); -begin - if tslassigning and ifnil({self.}XmlChildStart) then - begin - {self.}XmlChildStart := new PureWVal(self, {self.}Prefix, "start"); - container_.Set({self.}XmlChildStart); - end - return {self.}XmlChildStart; -end; - -function Lvl.ReadXmlChildNumFmt(); -begin - if tslassigning and ifnil({self.}XmlChildNumFmt) then - begin - {self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt"); - container_.Set({self.}XmlChildNumFmt); - end - return {self.}XmlChildNumFmt; -end; - -function Lvl.ReadXmlChildPStyle(); -begin - if tslassigning and ifnil({self.}XmlChildPStyle) then - begin - {self.}XmlChildPStyle := new PureWVal(self, {self.}Prefix, "pStyle"); - container_.Set({self.}XmlChildPStyle); - end - return {self.}XmlChildPStyle; -end; - -function Lvl.ReadXmlChildSuff(); -begin - if tslassigning and ifnil({self.}XmlChildSuff) then - begin - {self.}XmlChildSuff := new PureWVal(self, {self.}Prefix, "suff"); - container_.Set({self.}XmlChildSuff); - end - return {self.}XmlChildSuff; -end; - -function Lvl.ReadXmlChildLvlText(); -begin - if tslassigning and ifnil({self.}XmlChildLvlText) then - begin - {self.}XmlChildLvlText := new PureWVal(self, {self.}Prefix, "lvlText"); - container_.Set({self.}XmlChildLvlText); - end - return {self.}XmlChildLvlText; -end; - -function Lvl.ReadXmlChildLvlJc(); -begin - if tslassigning and ifnil({self.}XmlChildLvlJc) then - begin - {self.}XmlChildLvlJc := new PureWVal(self, {self.}Prefix, "lvlJc"); - container_.Set({self.}XmlChildLvlJc); - end - return {self.}XmlChildLvlJc; -end; - -function Lvl.ReadXmlChildPPr(); -begin - if tslassigning and ifnil({self.}XmlChildPPr) then - begin - {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); - container_.Set({self.}XmlChildPPr); - end - return {self.}XmlChildPPr; -end; - -function Lvl.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; diff --git a/autoclass/docx/MFont@DOCX.tsf b/autoclass/docx/MFont@DOCX.tsf deleted file mode 100644 index d241f60..0000000 --- a/autoclass/docx/MFont@DOCX.tsf +++ /dev/null @@ -1,127 +0,0 @@ -type MFont = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: MFont);override; - -public - - // normal property - property Latin read ReadXmlChildLatin; - property Ea read ReadXmlChildEa; - property Cs read ReadXmlChildCs; - function ReadXmlChildLatin(); - function ReadXmlChildEa(); - function ReadXmlChildCs(); - - // multi property - property Fonts read ReadFonts; - function ReadFonts(_index); - function AddFont(): MFontFont; - function AppendFont(): MFontFont; - -public - // Children - XmlChildLatin: Latin; - XmlChildEa: Latin; - XmlChildCs: Latin; - -end; - -function MFont.Create();overload; -begin - {self.}Create(nil, "a", ""); -end; - -function MFont.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function MFont.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function MFont.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "latin": array(0, makeweakref(thisFunction(ReadXmlChildLatin))), - pre + "ea": array(1, makeweakref(thisFunction(ReadXmlChildEa))), - pre + "cs": array(2, makeweakref(thisFunction(ReadXmlChildCs))), - pre + "font": array(3, makeweakref(thisFunction(AppendFont))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function MFont.Copy(_obj: MFont);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildLatin) then - {self.}Latin.Copy(_obj.XmlChildLatin); - if not ifnil(_obj.XmlChildEa) then - {self.}Ea.Copy(_obj.XmlChildEa); - if not ifnil(_obj.XmlChildCs) then - {self.}Cs.Copy(_obj.XmlChildCs); - tslassigning := tslassigning_backup; -end; - -function MFont.ReadXmlChildLatin(); -begin - if tslassigning and ifnil({self.}XmlChildLatin) then - begin - {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); - container_.Set({self.}XmlChildLatin); - end - return {self.}XmlChildLatin; -end; - -function MFont.ReadXmlChildEa(); -begin - if tslassigning and ifnil({self.}XmlChildEa) then - begin - {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); - container_.Set({self.}XmlChildEa); - end - return {self.}XmlChildEa; -end; - -function MFont.ReadXmlChildCs(); -begin - if tslassigning and ifnil({self.}XmlChildCs) then - begin - {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); - container_.Set({self.}XmlChildCs); - end - return {self.}XmlChildCs; -end; - -function MFont.ReadFonts(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "font", ind); -end; - -function MFont.AddFont(): MFontFont; -begin - obj := new MFontFont(self, {self.}Prefix, "font"); - container_.Insert(obj); - return obj; -end; - -function MFont.AppendFont(): MFontFont; -begin - obj := new MFontFont(self, {self.}Prefix, "font"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/MFontFont@DOCX.tsf b/autoclass/docx/MFontFont@DOCX.tsf deleted file mode 100644 index 4ed876d..0000000 --- a/autoclass/docx/MFontFont@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type MFontFont = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: MFontFont);override; - -public - - // attributes property - property Script read ReadXmlAttrScript write WriteXmlAttrScript; - property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; - function ReadXmlAttrScript(); - function WriteXmlAttrScript(_value); - function ReadXmlAttrTypeface(); - function WriteXmlAttrTypeface(_value); - -public - // Attributes - XmlAttrScript: OpenXmlAttribute; - XmlAttrTypeface: OpenXmlAttribute; - - -end; - -function MFontFont.Create();overload; -begin - {self.}Create(nil, "a", "defRPr"); -end; - -function MFontFont.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function MFontFont.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function MFontFont.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "script": makeweakref(thisFunction(WriteXmlAttrScript)), - "typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function MFontFont.Copy(_obj: MFontFont);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Script) then - {self.}Script := _obj.Script; - if not ifnil(_obj.Typeface) then - {self.}Typeface := _obj.Typeface; - tslassigning := tslassigning_backup; -end; - -function MFontFont.ReadXmlAttrScript(); -begin - return {self.}XmlAttrScript.Value; -end; - -function MFontFont.WriteXmlAttrScript(_value); -begin - if ifnil({self.}XmlAttrScript) then - begin - {self.}XmlAttrScript := new OpenXmlAttribute("", "script", nil); - attributes_[length(attributes_)] := {self.}XmlAttrScript; - end - {self.}XmlAttrScript.Value := _value; -end; - -function MFontFont.ReadXmlAttrTypeface(); -begin - return {self.}XmlAttrTypeface.Value; -end; - -function MFontFont.WriteXmlAttrTypeface(_value); -begin - if ifnil({self.}XmlAttrTypeface) then - begin - {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTypeface; - end - {self.}XmlAttrTypeface.Value := _value; -end; diff --git a/autoclass/docx/MathPr@DOCX.tsf b/autoclass/docx/MathPr@DOCX.tsf deleted file mode 100644 index 9ef0899..0000000 --- a/autoclass/docx/MathPr@DOCX.tsf +++ /dev/null @@ -1,244 +0,0 @@ -type MathPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: MathPr);override; - -public - - // empty property - property DispDef read ReadXmlChildDispDef write WriteXmlChildDispDef; - function ReadXmlChildDispDef(); - function WriteXmlChildDispDef(_value); - - // normal property - property MathFont read ReadXmlChildMathFont; - property BrkBin read ReadXmlChildBrkBin; - property BrkBinSub read ReadXmlChildBrkBinSub; - property SmallFrac read ReadXmlChildSmallFrac; - property LMargin read ReadXmlChildLMargin; - property RMargin read ReadXmlChildRMargin; - property DefJc read ReadXmlChildDefJc; - property WrapIndent read ReadXmlChildWrapIndent; - property IntLim read ReadXmlChildIntLim; - property NaryLim read ReadXmlChildNaryLim; - function ReadXmlChildMathFont(); - function ReadXmlChildBrkBin(); - function ReadXmlChildBrkBinSub(); - function ReadXmlChildSmallFrac(); - function ReadXmlChildLMargin(); - function ReadXmlChildRMargin(); - function ReadXmlChildDefJc(); - function ReadXmlChildWrapIndent(); - function ReadXmlChildIntLim(); - function ReadXmlChildNaryLim(); - -public - // Children - XmlChildMathFont: PureWVal; - XmlChildBrkBin: PureWVal; - XmlChildBrkBinSub: PureWVal; - XmlChildSmallFrac: PureWVal; - XmlChildDispDef: OpenXmlEmpty; - XmlChildLMargin: PureWVal; - XmlChildRMargin: PureWVal; - XmlChildDefJc: PureWVal; - XmlChildWrapIndent: PureWVal; - XmlChildIntLim: PureWVal; - XmlChildNaryLim: PureWVal; - -end; - -function MathPr.Create();overload; -begin - {self.}Create(nil, "m", "mathPr"); -end; - -function MathPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function MathPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function MathPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "mathFont": array(0, makeweakref(thisFunction(ReadXmlChildMathFont))), - pre + "brkBin": array(1, makeweakref(thisFunction(ReadXmlChildBrkBin))), - pre + "brkBinSub": array(2, makeweakref(thisFunction(ReadXmlChildBrkBinSub))), - pre + "smallFrac": array(3, makeweakref(thisFunction(ReadXmlChildSmallFrac))), - pre + "dispDef": array(4, makeweakref(thisFunction(ReadXmlChildDispDef))), - pre + "lMargin": array(5, makeweakref(thisFunction(ReadXmlChildLMargin))), - pre + "rMargin": array(6, makeweakref(thisFunction(ReadXmlChildRMargin))), - pre + "defJc": array(7, makeweakref(thisFunction(ReadXmlChildDefJc))), - pre + "wrapIndent": array(8, makeweakref(thisFunction(ReadXmlChildWrapIndent))), - pre + "intLim": array(9, makeweakref(thisFunction(ReadXmlChildIntLim))), - pre + "naryLim": array(10, makeweakref(thisFunction(ReadXmlChildNaryLim))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function MathPr.Copy(_obj: MathPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildMathFont) then - {self.}MathFont.Copy(_obj.XmlChildMathFont); - if not ifnil(_obj.XmlChildBrkBin) then - {self.}BrkBin.Copy(_obj.XmlChildBrkBin); - if not ifnil(_obj.XmlChildBrkBinSub) then - {self.}BrkBinSub.Copy(_obj.XmlChildBrkBinSub); - if not ifnil(_obj.XmlChildSmallFrac) then - {self.}SmallFrac.Copy(_obj.XmlChildSmallFrac); - if not ifnil(_obj.XmlChildDispDef) then - ifnil({self.}XmlChildDispDef) ? {self.}DispDef.Copy(_obj.XmlChildDispDef) : {self.}XmlChildDispDef.Copy(_obj.XmlChildDispDef); - if not ifnil(_obj.XmlChildLMargin) then - {self.}LMargin.Copy(_obj.XmlChildLMargin); - if not ifnil(_obj.XmlChildRMargin) then - {self.}RMargin.Copy(_obj.XmlChildRMargin); - if not ifnil(_obj.XmlChildDefJc) then - {self.}DefJc.Copy(_obj.XmlChildDefJc); - if not ifnil(_obj.XmlChildWrapIndent) then - {self.}WrapIndent.Copy(_obj.XmlChildWrapIndent); - if not ifnil(_obj.XmlChildIntLim) then - {self.}IntLim.Copy(_obj.XmlChildIntLim); - if not ifnil(_obj.XmlChildNaryLim) then - {self.}NaryLim.Copy(_obj.XmlChildNaryLim); - tslassigning := tslassigning_backup; -end; - -function MathPr.ReadXmlChildDispDef(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildDispDef) then - begin - {self.}XmlChildDispDef := new OpenXmlEmpty(self, {self.}Prefix, "dispDef"); - container_.Set({self.}XmlChildDispDef); - end - return {self.}XmlChildDispDef; - end - return ifnil({self.}XmlChildDispDef) ? nil : {self.}XmlChildDispDef.BoolValue(); -end; - -function MathPr.WriteXmlChildDispDef(_value); -begin - if ifnil({self.}XmlChildDispDef) then - begin - {self.}XmlChildDispDef := new OpenXmlEmpty(self, {self.}Prefix, "dispDef"); - container_.Set({self.}XmlChildDispDef); - end - {self.}XmlChildDispDef.Value := _value; -end; - -function MathPr.ReadXmlChildMathFont(); -begin - if tslassigning and ifnil({self.}XmlChildMathFont) then - begin - {self.}XmlChildMathFont := new PureWVal(self, {self.}Prefix, "mathFont"); - container_.Set({self.}XmlChildMathFont); - end - return {self.}XmlChildMathFont; -end; - -function MathPr.ReadXmlChildBrkBin(); -begin - if tslassigning and ifnil({self.}XmlChildBrkBin) then - begin - {self.}XmlChildBrkBin := new PureWVal(self, {self.}Prefix, "brkBin"); - container_.Set({self.}XmlChildBrkBin); - end - return {self.}XmlChildBrkBin; -end; - -function MathPr.ReadXmlChildBrkBinSub(); -begin - if tslassigning and ifnil({self.}XmlChildBrkBinSub) then - begin - {self.}XmlChildBrkBinSub := new PureWVal(self, {self.}Prefix, "brkBinSub"); - container_.Set({self.}XmlChildBrkBinSub); - end - return {self.}XmlChildBrkBinSub; -end; - -function MathPr.ReadXmlChildSmallFrac(); -begin - if tslassigning and ifnil({self.}XmlChildSmallFrac) then - begin - {self.}XmlChildSmallFrac := new PureWVal(self, {self.}Prefix, "smallFrac"); - container_.Set({self.}XmlChildSmallFrac); - end - return {self.}XmlChildSmallFrac; -end; - -function MathPr.ReadXmlChildLMargin(); -begin - if tslassigning and ifnil({self.}XmlChildLMargin) then - begin - {self.}XmlChildLMargin := new PureWVal(self, {self.}Prefix, "lMargin"); - container_.Set({self.}XmlChildLMargin); - end - return {self.}XmlChildLMargin; -end; - -function MathPr.ReadXmlChildRMargin(); -begin - if tslassigning and ifnil({self.}XmlChildRMargin) then - begin - {self.}XmlChildRMargin := new PureWVal(self, {self.}Prefix, "rMargin"); - container_.Set({self.}XmlChildRMargin); - end - return {self.}XmlChildRMargin; -end; - -function MathPr.ReadXmlChildDefJc(); -begin - if tslassigning and ifnil({self.}XmlChildDefJc) then - begin - {self.}XmlChildDefJc := new PureWVal(self, {self.}Prefix, "defJc"); - container_.Set({self.}XmlChildDefJc); - end - return {self.}XmlChildDefJc; -end; - -function MathPr.ReadXmlChildWrapIndent(); -begin - if tslassigning and ifnil({self.}XmlChildWrapIndent) then - begin - {self.}XmlChildWrapIndent := new PureWVal(self, {self.}Prefix, "wrapIndent"); - container_.Set({self.}XmlChildWrapIndent); - end - return {self.}XmlChildWrapIndent; -end; - -function MathPr.ReadXmlChildIntLim(); -begin - if tslassigning and ifnil({self.}XmlChildIntLim) then - begin - {self.}XmlChildIntLim := new PureWVal(self, {self.}Prefix, "intLim"); - container_.Set({self.}XmlChildIntLim); - end - return {self.}XmlChildIntLim; -end; - -function MathPr.ReadXmlChildNaryLim(); -begin - if tslassigning and ifnil({self.}XmlChildNaryLim) then - begin - {self.}XmlChildNaryLim := new PureWVal(self, {self.}Prefix, "naryLim"); - container_.Set({self.}XmlChildNaryLim); - end - return {self.}XmlChildNaryLim; -end; diff --git a/autoclass/docx/Miter@DOCX.tsf b/autoclass/docx/Miter@DOCX.tsf deleted file mode 100644 index 92068c4..0000000 --- a/autoclass/docx/Miter@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type Miter = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Miter);override; - -public - - // attributes property - property Lim read ReadXmlAttrLim write WriteXmlAttrLim; - function ReadXmlAttrLim(); - function WriteXmlAttrLim(_value); - -public - // Attributes - XmlAttrLim: OpenXmlAttribute; - - -end; - -function Miter.Create();overload; -begin - {self.}Create(nil, "a", "miter"); -end; - -function Miter.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Miter.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Miter.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "lim": makeweakref(thisFunction(WriteXmlAttrLim)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Miter.Copy(_obj: Miter);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Lim) then - {self.}Lim := _obj.Lim; - tslassigning := tslassigning_backup; -end; - -function Miter.ReadXmlAttrLim(); -begin - return {self.}XmlAttrLim.Value; -end; - -function Miter.WriteXmlAttrLim(_value); -begin - if ifnil({self.}XmlAttrLim) then - begin - {self.}XmlAttrLim := new OpenXmlAttribute("", "lim", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLim; - end - {self.}XmlAttrLim.Value := _value; -end; diff --git a/autoclass/docx/Modified@DOCX.tsf b/autoclass/docx/Modified@DOCX.tsf deleted file mode 100644 index ae25408..0000000 --- a/autoclass/docx/Modified@DOCX.tsf +++ /dev/null @@ -1,71 +0,0 @@ -type Modified = class(OpenXmlPcdata) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Modified);override; - -public - - // attributes property - property XsiType read ReadXmlAttrXsiType write WriteXmlAttrXsiType; - function ReadXmlAttrXsiType(); - function WriteXmlAttrXsiType(_value); - -public - // Attributes - XmlAttrXsiType: OpenXmlAttribute; - - -end; - -function Modified.Create();overload; -begin - {self.}Create(nil, "dcterms", "modified"); -end; - -function Modified.Create(_node: XmlNode);overload; -begin - class(OpenXmlPcdata).Create(_node: XmlNode); -end; - -function Modified.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); -end; - -function Modified.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xsi:type": makeweakref(thisFunction(WriteXmlAttrXsiType)), - ); -end; - -function Modified.Copy(_obj: Modified);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlPcdata).Copy(_obj); - if not ifnil(_obj.XsiType) then - {self.}XsiType := _obj.XsiType; - tslassigning := tslassigning_backup; -end; - -function Modified.ReadXmlAttrXsiType(); -begin - return {self.}XmlAttrXsiType.Value; -end; - -function Modified.WriteXmlAttrXsiType(_value); -begin - if ifnil({self.}XmlAttrXsiType) then - begin - {self.}XmlAttrXsiType := new OpenXmlAttribute("xsi", "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXsiType; - end - {self.}XmlAttrXsiType.Value := _value; -end; diff --git a/autoclass/docx/Num@DOCX.tsf b/autoclass/docx/Num@DOCX.tsf deleted file mode 100644 index 6db982e..0000000 --- a/autoclass/docx/Num@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type Num = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Num);override; - -public - - // attributes property - property NumId read ReadXmlAttrNumId write WriteXmlAttrNumId; - function ReadXmlAttrNumId(); - function WriteXmlAttrNumId(_value); - - // normal property - property AbstractNumId read ReadXmlChildAbstractNumId; - function ReadXmlChildAbstractNumId(); - -public - // Attributes - XmlAttrNumId: OpenXmlAttribute; - - // Children - XmlChildAbstractNumId: PureWVal; - -end; - -function Num.Create();overload; -begin - {self.}Create(nil, "w", "num"); -end; - -function Num.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Num.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Num.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "numId": makeweakref(thisFunction(WriteXmlAttrNumId)), - ); - sorted_child_ := array( - pre + "abstractNumId": array(0, makeweakref(thisFunction(ReadXmlChildAbstractNumId))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Num.Copy(_obj: Num);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.NumId) then - {self.}NumId := _obj.NumId; - if not ifnil(_obj.XmlChildAbstractNumId) then - {self.}AbstractNumId.Copy(_obj.XmlChildAbstractNumId); - tslassigning := tslassigning_backup; -end; - -function Num.ReadXmlAttrNumId(); -begin - return {self.}XmlAttrNumId.Value; -end; - -function Num.WriteXmlAttrNumId(_value); -begin - if ifnil({self.}XmlAttrNumId) then - begin - {self.}XmlAttrNumId := new OpenXmlAttribute({self.}Prefix, "numId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNumId; - end - {self.}XmlAttrNumId.Value := _value; -end; - -function Num.ReadXmlChildAbstractNumId(); -begin - if tslassigning and ifnil({self.}XmlChildAbstractNumId) then - begin - {self.}XmlChildAbstractNumId := new PureWVal(self, {self.}Prefix, "abstractNumId"); - container_.Set({self.}XmlChildAbstractNumId); - end - return {self.}XmlChildAbstractNumId; -end; diff --git a/autoclass/docx/NumFmt@DOCX.tsf b/autoclass/docx/NumFmt@DOCX.tsf deleted file mode 100644 index 15b57bb..0000000 --- a/autoclass/docx/NumFmt@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type NumFmt = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: NumFmt);override; - -public - - // attributes property - property FormatCode read ReadXmlAttrFormatCode write WriteXmlAttrFormatCode; - property SourceLinked read ReadXmlAttrSourceLinked write WriteXmlAttrSourceLinked; - function ReadXmlAttrFormatCode(); - function WriteXmlAttrFormatCode(_value); - function ReadXmlAttrSourceLinked(); - function WriteXmlAttrSourceLinked(_value); - -public - // Attributes - XmlAttrFormatCode: OpenXmlAttribute; - XmlAttrSourceLinked: OpenXmlAttribute; - - -end; - -function NumFmt.Create();overload; -begin - {self.}Create(nil, "c", "numFmt"); -end; - -function NumFmt.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function NumFmt.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NumFmt.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "formatCode": makeweakref(thisFunction(WriteXmlAttrFormatCode)), - "sourceLinked": makeweakref(thisFunction(WriteXmlAttrSourceLinked)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function NumFmt.Copy(_obj: NumFmt);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.FormatCode) then - {self.}FormatCode := _obj.FormatCode; - if not ifnil(_obj.SourceLinked) then - {self.}SourceLinked := _obj.SourceLinked; - tslassigning := tslassigning_backup; -end; - -function NumFmt.ReadXmlAttrFormatCode(); -begin - return {self.}XmlAttrFormatCode.Value; -end; - -function NumFmt.WriteXmlAttrFormatCode(_value); -begin - if ifnil({self.}XmlAttrFormatCode) then - begin - {self.}XmlAttrFormatCode := new OpenXmlAttribute("", "formatCode", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFormatCode; - end - {self.}XmlAttrFormatCode.Value := _value; -end; - -function NumFmt.ReadXmlAttrSourceLinked(); -begin - return {self.}XmlAttrSourceLinked.Value; -end; - -function NumFmt.WriteXmlAttrSourceLinked(_value); -begin - if ifnil({self.}XmlAttrSourceLinked) then - begin - {self.}XmlAttrSourceLinked := new OpenXmlAttribute("", "sourceLinked", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSourceLinked; - end - {self.}XmlAttrSourceLinked.Value := _value; -end; diff --git a/autoclass/docx/NumPr@DOCX.tsf b/autoclass/docx/NumPr@DOCX.tsf deleted file mode 100644 index b509301..0000000 --- a/autoclass/docx/NumPr@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type NumPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: NumPr);override; - -public - - // normal property - property Ilvl read ReadXmlChildIlvl; - property NumId read ReadXmlChildNumId; - function ReadXmlChildIlvl(); - function ReadXmlChildNumId(); - -public - // Children - XmlChildIlvl: PureWVal; - XmlChildNumId: PureWVal; - -end; - -function NumPr.Create();overload; -begin - {self.}Create(nil, "w", "numPr"); -end; - -function NumPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function NumPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NumPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "ilvl": array(0, makeweakref(thisFunction(ReadXmlChildIlvl))), - pre + "numId": array(1, makeweakref(thisFunction(ReadXmlChildNumId))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function NumPr.Copy(_obj: NumPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildIlvl) then - {self.}Ilvl.Copy(_obj.XmlChildIlvl); - if not ifnil(_obj.XmlChildNumId) then - {self.}NumId.Copy(_obj.XmlChildNumId); - tslassigning := tslassigning_backup; -end; - -function NumPr.ReadXmlChildIlvl(); -begin - if tslassigning and ifnil({self.}XmlChildIlvl) then - begin - {self.}XmlChildIlvl := new PureWVal(self, {self.}Prefix, "ilvl"); - container_.Set({self.}XmlChildIlvl); - end - return {self.}XmlChildIlvl; -end; - -function NumPr.ReadXmlChildNumId(); -begin - if tslassigning and ifnil({self.}XmlChildNumId) then - begin - {self.}XmlChildNumId := new PureWVal(self, {self.}Prefix, "numId"); - container_.Set({self.}XmlChildNumId); - end - return {self.}XmlChildNumId; -end; diff --git a/autoclass/docx/NumRef@DOCX.tsf b/autoclass/docx/NumRef@DOCX.tsf deleted file mode 100644 index 17fd9bd..0000000 --- a/autoclass/docx/NumRef@DOCX.tsf +++ /dev/null @@ -1,85 +0,0 @@ -type NumRef = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: NumRef);override; - -public - - // pcdata property - property F read ReadXmlChildF; - function ReadXmlChildF(); - - // normal property - property NumCache read ReadXmlChildNumCache; - function ReadXmlChildNumCache(); - -public - // Children - XmlChildF: OpenXmlPcdata; - XmlChildNumCache: Cache; - -end; - -function NumRef.Create();overload; -begin - {self.}Create(nil, "c", "numRef"); -end; - -function NumRef.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function NumRef.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NumRef.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))), - pre + "numCache": array(1, makeweakref(thisFunction(ReadXmlChildNumCache))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function NumRef.Copy(_obj: NumRef);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildF) then - {self.}F.Copy(_obj.XmlChildF); - if not ifnil(_obj.XmlChildNumCache) then - {self.}NumCache.Copy(_obj.XmlChildNumCache); - tslassigning := tslassigning_backup; -end; - -function NumRef.ReadXmlChildF(); -begin - if tslassigning and ifnil({self.}XmlChildF) then - begin - {self.}XmlChildF := new OpenXmlPcdata(self, {self.}Prefix, "f"); - container_.Set({self.}XmlChildF); - end - return {self.}XmlChildF; -end; - -function NumRef.ReadXmlChildNumCache(); -begin - if tslassigning and ifnil({self.}XmlChildNumCache) then - begin - {self.}XmlChildNumCache := new Cache(self, {self.}Prefix, "numCache"); - container_.Set({self.}XmlChildNumCache); - end - return {self.}XmlChildNumCache; -end; diff --git a/autoclass/docx/Numbering@DOCX.tsf b/autoclass/docx/Numbering@DOCX.tsf deleted file mode 100644 index ba62c24..0000000 --- a/autoclass/docx/Numbering@DOCX.tsf +++ /dev/null @@ -1,877 +0,0 @@ -type Numbering = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Numbering);override; - -public - - // attributes property - property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; - property XmlnsCx read ReadXmlAttrXmlnsCx write WriteXmlAttrXmlnsCx; - property XmlnsCx1 read ReadXmlAttrXmlnsCx1 write WriteXmlAttrXmlnsCx1; - property XmlnsCx2 read ReadXmlAttrXmlnsCx2 write WriteXmlAttrXmlnsCx2; - property XmlnsCx3 read ReadXmlAttrXmlnsCx3 write WriteXmlAttrXmlnsCx3; - property XmlnsCx4 read ReadXmlAttrXmlnsCx4 write WriteXmlAttrXmlnsCx4; - property XmlnsCx5 read ReadXmlAttrXmlnsCx5 write WriteXmlAttrXmlnsCx5; - property XmlnsCx6 read ReadXmlAttrXmlnsCx6 write WriteXmlAttrXmlnsCx6; - property XmlnsCx7 read ReadXmlAttrXmlnsCx7 write WriteXmlAttrXmlnsCx7; - property XmlnsCx8 read ReadXmlAttrXmlnsCx8 write WriteXmlAttrXmlnsCx8; - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsAink read ReadXmlAttrXmlnsAink write WriteXmlAttrXmlnsAink; - property XmlnsAm3d read ReadXmlAttrXmlnsAm3d write WriteXmlAttrXmlnsAm3d; - property XmlnsO read ReadXmlAttrXmlnsO write WriteXmlAttrXmlnsO; - property XmlnsOel read ReadXmlAttrXmlnsOel write WriteXmlAttrXmlnsOel; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; - property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; - property XmlnsWp14 read ReadXmlAttrXmlnsWp14 write WriteXmlAttrXmlnsWp14; - property XmlnsWp read ReadXmlAttrXmlnsWp write WriteXmlAttrXmlnsWp; - property XmlnsW10 read ReadXmlAttrXmlnsW10 write WriteXmlAttrXmlnsW10; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; - property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; - property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; - property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsWpc(); - function WriteXmlAttrXmlnsWpc(_value); - function ReadXmlAttrXmlnsCx(); - function WriteXmlAttrXmlnsCx(_value); - function ReadXmlAttrXmlnsCx1(); - function WriteXmlAttrXmlnsCx1(_value); - function ReadXmlAttrXmlnsCx2(); - function WriteXmlAttrXmlnsCx2(_value); - function ReadXmlAttrXmlnsCx3(); - function WriteXmlAttrXmlnsCx3(_value); - function ReadXmlAttrXmlnsCx4(); - function WriteXmlAttrXmlnsCx4(_value); - function ReadXmlAttrXmlnsCx5(); - function WriteXmlAttrXmlnsCx5(_value); - function ReadXmlAttrXmlnsCx6(); - function WriteXmlAttrXmlnsCx6(_value); - function ReadXmlAttrXmlnsCx7(); - function WriteXmlAttrXmlnsCx7(_value); - function ReadXmlAttrXmlnsCx8(); - function WriteXmlAttrXmlnsCx8(_value); - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsAink(); - function WriteXmlAttrXmlnsAink(_value); - function ReadXmlAttrXmlnsAm3d(); - function WriteXmlAttrXmlnsAm3d(_value); - function ReadXmlAttrXmlnsO(); - function WriteXmlAttrXmlnsO(_value); - function ReadXmlAttrXmlnsOel(); - function WriteXmlAttrXmlnsOel(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsM(); - function WriteXmlAttrXmlnsM(_value); - function ReadXmlAttrXmlnsV(); - function WriteXmlAttrXmlnsV(_value); - function ReadXmlAttrXmlnsWp14(); - function WriteXmlAttrXmlnsWp14(_value); - function ReadXmlAttrXmlnsWp(); - function WriteXmlAttrXmlnsWp(_value); - function ReadXmlAttrXmlnsW10(); - function WriteXmlAttrXmlnsW10(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16sdtdh(); - function WriteXmlAttrXmlnsW16sdtdh(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrXmlnsWpg(); - function WriteXmlAttrXmlnsWpg(_value); - function ReadXmlAttrXmlnsWpi(); - function WriteXmlAttrXmlnsWpi(_value); - function ReadXmlAttrXmlnsWne(); - function WriteXmlAttrXmlnsWne(_value); - function ReadXmlAttrXmlnsWps(); - function WriteXmlAttrXmlnsWps(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // multi property - property AbstractNums read ReadAbstractNums; - property Nums read ReadNums; - function ReadAbstractNums(_index); - function ReadNums(_index); - function AddAbstractNum(): AbstractNum; - function AddNum(): Num; - function AppendAbstractNum(): AbstractNum; - function AppendNum(): Num; - -public - // Attributes - XmlAttrXmlnsWpc: OpenXmlAttribute; - XmlAttrXmlnsCx: OpenXmlAttribute; - XmlAttrXmlnsCx1: OpenXmlAttribute; - XmlAttrXmlnsCx2: OpenXmlAttribute; - XmlAttrXmlnsCx3: OpenXmlAttribute; - XmlAttrXmlnsCx4: OpenXmlAttribute; - XmlAttrXmlnsCx5: OpenXmlAttribute; - XmlAttrXmlnsCx6: OpenXmlAttribute; - XmlAttrXmlnsCx7: OpenXmlAttribute; - XmlAttrXmlnsCx8: OpenXmlAttribute; - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsAink: OpenXmlAttribute; - XmlAttrXmlnsAm3d: OpenXmlAttribute; - XmlAttrXmlnsO: OpenXmlAttribute; - XmlAttrXmlnsOel: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsM: OpenXmlAttribute; - XmlAttrXmlnsV: OpenXmlAttribute; - XmlAttrXmlnsWp14: OpenXmlAttribute; - XmlAttrXmlnsWp: OpenXmlAttribute; - XmlAttrXmlnsW10: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrXmlnsWpg: OpenXmlAttribute; - XmlAttrXmlnsWpi: OpenXmlAttribute; - XmlAttrXmlnsWne: OpenXmlAttribute; - XmlAttrXmlnsWps: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - -end; - -function Numbering.Create();overload; -begin - {self.}Create(nil, "w", "numbering"); -end; - -function Numbering.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Numbering.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Numbering.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:wpc": makeweakref(thisFunction(WriteXmlAttrXmlnsWpc)), - "xmlns:cx": makeweakref(thisFunction(WriteXmlAttrXmlnsCx)), - "xmlns:cx1": makeweakref(thisFunction(WriteXmlAttrXmlnsCx1)), - "xmlns:cx2": makeweakref(thisFunction(WriteXmlAttrXmlnsCx2)), - "xmlns:cx3": makeweakref(thisFunction(WriteXmlAttrXmlnsCx3)), - "xmlns:cx4": makeweakref(thisFunction(WriteXmlAttrXmlnsCx4)), - "xmlns:cx5": makeweakref(thisFunction(WriteXmlAttrXmlnsCx5)), - "xmlns:cx6": makeweakref(thisFunction(WriteXmlAttrXmlnsCx6)), - "xmlns:cx7": makeweakref(thisFunction(WriteXmlAttrXmlnsCx7)), - "xmlns:cx8": makeweakref(thisFunction(WriteXmlAttrXmlnsCx8)), - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:aink": makeweakref(thisFunction(WriteXmlAttrXmlnsAink)), - "xmlns:am3d": makeweakref(thisFunction(WriteXmlAttrXmlnsAm3d)), - "xmlns:o": makeweakref(thisFunction(WriteXmlAttrXmlnsO)), - "xmlns:oel": makeweakref(thisFunction(WriteXmlAttrXmlnsOel)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), - "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), - "xmlns:wp14": makeweakref(thisFunction(WriteXmlAttrXmlnsWp14)), - "xmlns:wp": makeweakref(thisFunction(WriteXmlAttrXmlnsWp)), - "xmlns:w10": makeweakref(thisFunction(WriteXmlAttrXmlnsW10)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "xmlns:wpg": makeweakref(thisFunction(WriteXmlAttrXmlnsWpg)), - "xmlns:wpi": makeweakref(thisFunction(WriteXmlAttrXmlnsWpi)), - "xmlns:wne": makeweakref(thisFunction(WriteXmlAttrXmlnsWne)), - "xmlns:wps": makeweakref(thisFunction(WriteXmlAttrXmlnsWps)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "abstractNum": array(0, makeweakref(thisFunction(AppendAbstractNum))), - pre + "num": array(1, makeweakref(thisFunction(AppendNum))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Numbering.Copy(_obj: Numbering);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsWpc) then - {self.}XmlnsWpc := _obj.XmlnsWpc; - if not ifnil(_obj.XmlnsCx) then - {self.}XmlnsCx := _obj.XmlnsCx; - if not ifnil(_obj.XmlnsCx1) then - {self.}XmlnsCx1 := _obj.XmlnsCx1; - if not ifnil(_obj.XmlnsCx2) then - {self.}XmlnsCx2 := _obj.XmlnsCx2; - if not ifnil(_obj.XmlnsCx3) then - {self.}XmlnsCx3 := _obj.XmlnsCx3; - if not ifnil(_obj.XmlnsCx4) then - {self.}XmlnsCx4 := _obj.XmlnsCx4; - if not ifnil(_obj.XmlnsCx5) then - {self.}XmlnsCx5 := _obj.XmlnsCx5; - if not ifnil(_obj.XmlnsCx6) then - {self.}XmlnsCx6 := _obj.XmlnsCx6; - if not ifnil(_obj.XmlnsCx7) then - {self.}XmlnsCx7 := _obj.XmlnsCx7; - if not ifnil(_obj.XmlnsCx8) then - {self.}XmlnsCx8 := _obj.XmlnsCx8; - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsAink) then - {self.}XmlnsAink := _obj.XmlnsAink; - if not ifnil(_obj.XmlnsAm3d) then - {self.}XmlnsAm3d := _obj.XmlnsAm3d; - if not ifnil(_obj.XmlnsO) then - {self.}XmlnsO := _obj.XmlnsO; - if not ifnil(_obj.XmlnsOel) then - {self.}XmlnsOel := _obj.XmlnsOel; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsM) then - {self.}XmlnsM := _obj.XmlnsM; - if not ifnil(_obj.XmlnsV) then - {self.}XmlnsV := _obj.XmlnsV; - if not ifnil(_obj.XmlnsWp14) then - {self.}XmlnsWp14 := _obj.XmlnsWp14; - if not ifnil(_obj.XmlnsWp) then - {self.}XmlnsWp := _obj.XmlnsWp; - if not ifnil(_obj.XmlnsW10) then - {self.}XmlnsW10 := _obj.XmlnsW10; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16sdtdh) then - {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.XmlnsWpg) then - {self.}XmlnsWpg := _obj.XmlnsWpg; - if not ifnil(_obj.XmlnsWpi) then - {self.}XmlnsWpi := _obj.XmlnsWpi; - if not ifnil(_obj.XmlnsWne) then - {self.}XmlnsWne := _obj.XmlnsWne; - if not ifnil(_obj.XmlnsWps) then - {self.}XmlnsWps := _obj.XmlnsWps; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - tslassigning := tslassigning_backup; -end; - -function Numbering.ReadXmlAttrXmlnsWpc(); -begin - return {self.}XmlAttrXmlnsWpc.Value; -end; - -function Numbering.WriteXmlAttrXmlnsWpc(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpc) then - begin - {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpc; - end - {self.}XmlAttrXmlnsWpc.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx(); -begin - return {self.}XmlAttrXmlnsCx.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx) then - begin - {self.}XmlAttrXmlnsCx := new OpenXmlAttribute("xmlns", "cx", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx; - end - {self.}XmlAttrXmlnsCx.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx1(); -begin - return {self.}XmlAttrXmlnsCx1.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx1(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx1) then - begin - {self.}XmlAttrXmlnsCx1 := new OpenXmlAttribute("xmlns", "cx1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx1; - end - {self.}XmlAttrXmlnsCx1.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx2(); -begin - return {self.}XmlAttrXmlnsCx2.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx2(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx2) then - begin - {self.}XmlAttrXmlnsCx2 := new OpenXmlAttribute("xmlns", "cx2", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx2; - end - {self.}XmlAttrXmlnsCx2.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx3(); -begin - return {self.}XmlAttrXmlnsCx3.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx3(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx3) then - begin - {self.}XmlAttrXmlnsCx3 := new OpenXmlAttribute("xmlns", "cx3", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx3; - end - {self.}XmlAttrXmlnsCx3.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx4(); -begin - return {self.}XmlAttrXmlnsCx4.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx4(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx4) then - begin - {self.}XmlAttrXmlnsCx4 := new OpenXmlAttribute("xmlns", "cx4", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx4; - end - {self.}XmlAttrXmlnsCx4.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx5(); -begin - return {self.}XmlAttrXmlnsCx5.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx5(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx5) then - begin - {self.}XmlAttrXmlnsCx5 := new OpenXmlAttribute("xmlns", "cx5", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx5; - end - {self.}XmlAttrXmlnsCx5.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx6(); -begin - return {self.}XmlAttrXmlnsCx6.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx6(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx6) then - begin - {self.}XmlAttrXmlnsCx6 := new OpenXmlAttribute("xmlns", "cx6", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx6; - end - {self.}XmlAttrXmlnsCx6.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx7(); -begin - return {self.}XmlAttrXmlnsCx7.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx7(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx7) then - begin - {self.}XmlAttrXmlnsCx7 := new OpenXmlAttribute("xmlns", "cx7", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx7; - end - {self.}XmlAttrXmlnsCx7.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsCx8(); -begin - return {self.}XmlAttrXmlnsCx8.Value; -end; - -function Numbering.WriteXmlAttrXmlnsCx8(_value); -begin - if ifnil({self.}XmlAttrXmlnsCx8) then - begin - {self.}XmlAttrXmlnsCx8 := new OpenXmlAttribute("xmlns", "cx8", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsCx8; - end - {self.}XmlAttrXmlnsCx8.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Numbering.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsAink(); -begin - return {self.}XmlAttrXmlnsAink.Value; -end; - -function Numbering.WriteXmlAttrXmlnsAink(_value); -begin - if ifnil({self.}XmlAttrXmlnsAink) then - begin - {self.}XmlAttrXmlnsAink := new OpenXmlAttribute("xmlns", "aink", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsAink; - end - {self.}XmlAttrXmlnsAink.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsAm3d(); -begin - return {self.}XmlAttrXmlnsAm3d.Value; -end; - -function Numbering.WriteXmlAttrXmlnsAm3d(_value); -begin - if ifnil({self.}XmlAttrXmlnsAm3d) then - begin - {self.}XmlAttrXmlnsAm3d := new OpenXmlAttribute("xmlns", "am3d", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsAm3d; - end - {self.}XmlAttrXmlnsAm3d.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsO(); -begin - return {self.}XmlAttrXmlnsO.Value; -end; - -function Numbering.WriteXmlAttrXmlnsO(_value); -begin - if ifnil({self.}XmlAttrXmlnsO) then - begin - {self.}XmlAttrXmlnsO := new OpenXmlAttribute("xmlns", "o", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsO; - end - {self.}XmlAttrXmlnsO.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsOel(); -begin - return {self.}XmlAttrXmlnsOel.Value; -end; - -function Numbering.WriteXmlAttrXmlnsOel(_value); -begin - if ifnil({self.}XmlAttrXmlnsOel) then - begin - {self.}XmlAttrXmlnsOel := new OpenXmlAttribute("xmlns", "oel", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsOel; - end - {self.}XmlAttrXmlnsOel.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Numbering.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsM(); -begin - return {self.}XmlAttrXmlnsM.Value; -end; - -function Numbering.WriteXmlAttrXmlnsM(_value); -begin - if ifnil({self.}XmlAttrXmlnsM) then - begin - {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; - end - {self.}XmlAttrXmlnsM.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsV(); -begin - return {self.}XmlAttrXmlnsV.Value; -end; - -function Numbering.WriteXmlAttrXmlnsV(_value); -begin - if ifnil({self.}XmlAttrXmlnsV) then - begin - {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; - end - {self.}XmlAttrXmlnsV.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsWp14(); -begin - return {self.}XmlAttrXmlnsWp14.Value; -end; - -function Numbering.WriteXmlAttrXmlnsWp14(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp14) then - begin - {self.}XmlAttrXmlnsWp14 := new OpenXmlAttribute("xmlns", "wp14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp14; - end - {self.}XmlAttrXmlnsWp14.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsWp(); -begin - return {self.}XmlAttrXmlnsWp.Value; -end; - -function Numbering.WriteXmlAttrXmlnsWp(_value); -begin - if ifnil({self.}XmlAttrXmlnsWp) then - begin - {self.}XmlAttrXmlnsWp := new OpenXmlAttribute("xmlns", "wp", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWp; - end - {self.}XmlAttrXmlnsWp.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW10(); -begin - return {self.}XmlAttrXmlnsW10.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW10(_value); -begin - if ifnil({self.}XmlAttrXmlnsW10) then - begin - {self.}XmlAttrXmlnsW10 := new OpenXmlAttribute("xmlns", "w10", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW10; - end - {self.}XmlAttrXmlnsW10.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW16sdtdh(); -begin - return {self.}XmlAttrXmlnsW16sdtdh.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW16sdtdh(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16sdtdh) then - begin - {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; - end - {self.}XmlAttrXmlnsW16sdtdh.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function Numbering.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsWpg(); -begin - return {self.}XmlAttrXmlnsWpg.Value; -end; - -function Numbering.WriteXmlAttrXmlnsWpg(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpg) then - begin - {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpg; - end - {self.}XmlAttrXmlnsWpg.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsWpi(); -begin - return {self.}XmlAttrXmlnsWpi.Value; -end; - -function Numbering.WriteXmlAttrXmlnsWpi(_value); -begin - if ifnil({self.}XmlAttrXmlnsWpi) then - begin - {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWpi; - end - {self.}XmlAttrXmlnsWpi.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsWne(); -begin - return {self.}XmlAttrXmlnsWne.Value; -end; - -function Numbering.WriteXmlAttrXmlnsWne(_value); -begin - if ifnil({self.}XmlAttrXmlnsWne) then - begin - {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWne; - end - {self.}XmlAttrXmlnsWne.Value := _value; -end; - -function Numbering.ReadXmlAttrXmlnsWps(); -begin - return {self.}XmlAttrXmlnsWps.Value; -end; - -function Numbering.WriteXmlAttrXmlnsWps(_value); -begin - if ifnil({self.}XmlAttrXmlnsWps) then - begin - {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsWps; - end - {self.}XmlAttrXmlnsWps.Value := _value; -end; - -function Numbering.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Numbering.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Numbering.ReadAbstractNums(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "abstractNum", ind); -end; - -function Numbering.ReadNums(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "num", ind); -end; - -function Numbering.AddAbstractNum(): AbstractNum; -begin - obj := new AbstractNum(self, {self.}Prefix, "abstractNum"); - container_.Insert(obj); - return obj; -end; - -function Numbering.AddNum(): Num; -begin - obj := new Num(self, {self.}Prefix, "num"); - container_.Insert(obj); - return obj; -end; - -function Numbering.AppendAbstractNum(): AbstractNum; -begin - obj := new AbstractNum(self, {self.}Prefix, "abstractNum"); - container_.Append(obj); - return obj; -end; - -function Numbering.AppendNum(): Num; -begin - obj := new Num(self, {self.}Prefix, "num"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/NvPicPr@DOCX.tsf b/autoclass/docx/NvPicPr@DOCX.tsf deleted file mode 100644 index f634af7..0000000 --- a/autoclass/docx/NvPicPr@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type NvPicPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: NvPicPr);override; - -public - - // normal property - property CNvPr read ReadXmlChildCNvPr; - property CNvPicPr read ReadXmlChildCNvPicPr; - function ReadXmlChildCNvPr(); - function ReadXmlChildCNvPicPr(); - -public - // Children - XmlChildCNvPr: CNvPr; - XmlChildCNvPicPr: CNvPicPr; - -end; - -function NvPicPr.Create();overload; -begin - {self.}Create(nil, "pic", "nvPicPr"); -end; - -function NvPicPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function NvPicPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function NvPicPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "pic:cNvPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvPr))), - "pic:cNvPicPr": array(1, makeweakref(thisFunction(ReadXmlChildCNvPicPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function NvPicPr.Copy(_obj: NvPicPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildCNvPr) then - {self.}CNvPr.Copy(_obj.XmlChildCNvPr); - if not ifnil(_obj.XmlChildCNvPicPr) then - {self.}CNvPicPr.Copy(_obj.XmlChildCNvPicPr); - tslassigning := tslassigning_backup; -end; - -function NvPicPr.ReadXmlChildCNvPr(); -begin - if tslassigning and ifnil({self.}XmlChildCNvPr) then - begin - {self.}XmlChildCNvPr := new CNvPr(self, "pic", "cNvPr"); - container_.Set({self.}XmlChildCNvPr); - end - return {self.}XmlChildCNvPr; -end; - -function NvPicPr.ReadXmlChildCNvPicPr(); -begin - if tslassigning and ifnil({self.}XmlChildCNvPicPr) then - begin - {self.}XmlChildCNvPicPr := new CNvPicPr(self, "pic", "cNvPicPr"); - container_.Set({self.}XmlChildCNvPicPr); - end - return {self.}XmlChildCNvPicPr; -end; diff --git a/autoclass/docx/OLEObject@DOCX.tsf b/autoclass/docx/OLEObject@DOCX.tsf deleted file mode 100644 index c6806f5..0000000 --- a/autoclass/docx/OLEObject@DOCX.tsf +++ /dev/null @@ -1,184 +0,0 @@ -type OLEObject = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: OLEObject);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - property ProgID read ReadXmlAttrProgID write WriteXmlAttrProgID; - property ShapeID read ReadXmlAttrShapeID write WriteXmlAttrShapeID; - property DrawAspect read ReadXmlAttrDrawAspect write WriteXmlAttrDrawAspect; - property ObjectID read ReadXmlAttrObjectID write WriteXmlAttrObjectID; - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrProgID(); - function WriteXmlAttrProgID(_value); - function ReadXmlAttrShapeID(); - function WriteXmlAttrShapeID(_value); - function ReadXmlAttrDrawAspect(); - function WriteXmlAttrDrawAspect(_value); - function ReadXmlAttrObjectID(); - function WriteXmlAttrObjectID(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - XmlAttrProgID: OpenXmlAttribute; - XmlAttrShapeID: OpenXmlAttribute; - XmlAttrDrawAspect: OpenXmlAttribute; - XmlAttrObjectID: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - - -end; - -function OLEObject.Create();overload; -begin - {self.}Create(nil, "o", "OLEObject"); -end; - -function OLEObject.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function OLEObject.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function OLEObject.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "Type": makeweakref(thisFunction(WriteXmlAttrType)), - pre + "ProgID": makeweakref(thisFunction(WriteXmlAttrProgID)), - pre + "ShapeID": makeweakref(thisFunction(WriteXmlAttrShapeID)), - pre + "DrawAspect": makeweakref(thisFunction(WriteXmlAttrDrawAspect)), - pre + "DrawAspect": makeweakref(thisFunction(WriteXmlAttrObjectID)), - "r:id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function OLEObject.Copy(_obj: OLEObject);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.ProgID) then - {self.}ProgID := _obj.ProgID; - if not ifnil(_obj.ShapeID) then - {self.}ShapeID := _obj.ShapeID; - if not ifnil(_obj.DrawAspect) then - {self.}DrawAspect := _obj.DrawAspect; - if not ifnil(_obj.ObjectID) then - {self.}ObjectID := _obj.ObjectID; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function OLEObject.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function OLEObject.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "Type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function OLEObject.ReadXmlAttrProgID(); -begin - return {self.}XmlAttrProgID.Value; -end; - -function OLEObject.WriteXmlAttrProgID(_value); -begin - if ifnil({self.}XmlAttrProgID) then - begin - {self.}XmlAttrProgID := new OpenXmlAttribute({self.}Prefix, "ProgID", nil); - attributes_[length(attributes_)] := {self.}XmlAttrProgID; - end - {self.}XmlAttrProgID.Value := _value; -end; - -function OLEObject.ReadXmlAttrShapeID(); -begin - return {self.}XmlAttrShapeID.Value; -end; - -function OLEObject.WriteXmlAttrShapeID(_value); -begin - if ifnil({self.}XmlAttrShapeID) then - begin - {self.}XmlAttrShapeID := new OpenXmlAttribute({self.}Prefix, "ShapeID", nil); - attributes_[length(attributes_)] := {self.}XmlAttrShapeID; - end - {self.}XmlAttrShapeID.Value := _value; -end; - -function OLEObject.ReadXmlAttrDrawAspect(); -begin - return {self.}XmlAttrDrawAspect.Value; -end; - -function OLEObject.WriteXmlAttrDrawAspect(_value); -begin - if ifnil({self.}XmlAttrDrawAspect) then - begin - {self.}XmlAttrDrawAspect := new OpenXmlAttribute({self.}Prefix, "DrawAspect", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDrawAspect; - end - {self.}XmlAttrDrawAspect.Value := _value; -end; - -function OLEObject.ReadXmlAttrObjectID(); -begin - return {self.}XmlAttrObjectID.Value; -end; - -function OLEObject.WriteXmlAttrObjectID(_value); -begin - if ifnil({self.}XmlAttrObjectID) then - begin - {self.}XmlAttrObjectID := new OpenXmlAttribute({self.}Prefix, "DrawAspect", nil); - attributes_[length(attributes_)] := {self.}XmlAttrObjectID; - end - {self.}XmlAttrObjectID.Value := _value; -end; - -function OLEObject.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function OLEObject.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; diff --git a/autoclass/docx/Object@DOCX.tsf b/autoclass/docx/Object@DOCX.tsf deleted file mode 100644 index ccccd95..0000000 --- a/autoclass/docx/Object@DOCX.tsf +++ /dev/null @@ -1,169 +0,0 @@ -type Object = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Object);override; - -public - - // attributes property - property DxaOrig read ReadXmlAttrDxaOrig write WriteXmlAttrDxaOrig; - property DyaOrig read ReadXmlAttrDyaOrig write WriteXmlAttrDyaOrig; - property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; - function ReadXmlAttrDxaOrig(); - function WriteXmlAttrDxaOrig(_value); - function ReadXmlAttrDyaOrig(); - function WriteXmlAttrDyaOrig(_value); - function ReadXmlAttrAnchorId(); - function WriteXmlAttrAnchorId(_value); - - // normal property - property Shapetype read ReadXmlChildShapetype; - property Shape read ReadXmlChildShape; - property OLEObject read ReadXmlChildOLEObject; - function ReadXmlChildShapetype(); - function ReadXmlChildShape(); - function ReadXmlChildOLEObject(); - -public - // Attributes - XmlAttrDxaOrig: OpenXmlAttribute; - XmlAttrDyaOrig: OpenXmlAttribute; - XmlAttrAnchorId: OpenXmlAttribute; - - // Children - XmlChildShapetype: Shapetype; - XmlChildShape: Shape; - XmlChildOLEObject: OLEObject; - -end; - -function Object.Create();overload; -begin - {self.}Create(nil, "w", "object"); -end; - -function Object.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Object.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Object.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "dxaOrig": makeweakref(thisFunction(WriteXmlAttrDxaOrig)), - pre + "dyaOrig": makeweakref(thisFunction(WriteXmlAttrDyaOrig)), - "w14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), - ); - sorted_child_ := array( - "v:shapetype": array(0, makeweakref(thisFunction(ReadXmlChildShapetype))), - "v:shape": array(1, makeweakref(thisFunction(ReadXmlChildShape))), - "o:OLEObject": array(2, makeweakref(thisFunction(ReadXmlChildOLEObject))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Object.Copy(_obj: Object);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.DxaOrig) then - {self.}DxaOrig := _obj.DxaOrig; - if not ifnil(_obj.DyaOrig) then - {self.}DyaOrig := _obj.DyaOrig; - if not ifnil(_obj.AnchorId) then - {self.}AnchorId := _obj.AnchorId; - if not ifnil(_obj.XmlChildShapetype) then - {self.}Shapetype.Copy(_obj.XmlChildShapetype); - if not ifnil(_obj.XmlChildShape) then - {self.}Shape.Copy(_obj.XmlChildShape); - if not ifnil(_obj.XmlChildOLEObject) then - {self.}OLEObject.Copy(_obj.XmlChildOLEObject); - tslassigning := tslassigning_backup; -end; - -function Object.ReadXmlAttrDxaOrig(); -begin - return {self.}XmlAttrDxaOrig.Value; -end; - -function Object.WriteXmlAttrDxaOrig(_value); -begin - if ifnil({self.}XmlAttrDxaOrig) then - begin - {self.}XmlAttrDxaOrig := new OpenXmlAttribute({self.}Prefix, "dxaOrig", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDxaOrig; - end - {self.}XmlAttrDxaOrig.Value := _value; -end; - -function Object.ReadXmlAttrDyaOrig(); -begin - return {self.}XmlAttrDyaOrig.Value; -end; - -function Object.WriteXmlAttrDyaOrig(_value); -begin - if ifnil({self.}XmlAttrDyaOrig) then - begin - {self.}XmlAttrDyaOrig := new OpenXmlAttribute({self.}Prefix, "dyaOrig", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDyaOrig; - end - {self.}XmlAttrDyaOrig.Value := _value; -end; - -function Object.ReadXmlAttrAnchorId(); -begin - return {self.}XmlAttrAnchorId.Value; -end; - -function Object.WriteXmlAttrAnchorId(_value); -begin - if ifnil({self.}XmlAttrAnchorId) then - begin - {self.}XmlAttrAnchorId := new OpenXmlAttribute("w14", "anchorId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; - end - {self.}XmlAttrAnchorId.Value := _value; -end; - -function Object.ReadXmlChildShapetype(); -begin - if tslassigning and ifnil({self.}XmlChildShapetype) then - begin - {self.}XmlChildShapetype := new Shapetype(self, "v", "shapetype"); - container_.Set({self.}XmlChildShapetype); - end - return {self.}XmlChildShapetype; -end; - -function Object.ReadXmlChildShape(); -begin - if tslassigning and ifnil({self.}XmlChildShape) then - begin - {self.}XmlChildShape := new Shape(self, "v", "shape"); - container_.Set({self.}XmlChildShape); - end - return {self.}XmlChildShape; -end; - -function Object.ReadXmlChildOLEObject(); -begin - if tslassigning and ifnil({self.}XmlChildOLEObject) then - begin - {self.}XmlChildOLEObject := new OLEObject(self, "o", "OLEObject"); - container_.Set({self.}XmlChildOLEObject); - end - return {self.}XmlChildOLEObject; -end; diff --git a/autoclass/docx/OuterShdw@DOCX.tsf b/autoclass/docx/OuterShdw@DOCX.tsf deleted file mode 100644 index 96a951c..0000000 --- a/autoclass/docx/OuterShdw@DOCX.tsf +++ /dev/null @@ -1,181 +0,0 @@ -type OuterShdw = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: OuterShdw);override; - -public - - // attributes property - property BlurRad read ReadXmlAttrBlurRad write WriteXmlAttrBlurRad; - property Dist read ReadXmlAttrDist write WriteXmlAttrDist; - property Dir read ReadXmlAttrDir write WriteXmlAttrDir; - property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; - property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; - function ReadXmlAttrBlurRad(); - function WriteXmlAttrBlurRad(_value); - function ReadXmlAttrDist(); - function WriteXmlAttrDist(_value); - function ReadXmlAttrDir(); - function WriteXmlAttrDir(_value); - function ReadXmlAttrAlgn(); - function WriteXmlAttrAlgn(_value); - function ReadXmlAttrRotWithShape(); - function WriteXmlAttrRotWithShape(_value); - - // normal property - property SrgbClr read ReadXmlChildSrgbClr; - function ReadXmlChildSrgbClr(); - -public - // Attributes - XmlAttrBlurRad: OpenXmlAttribute; - XmlAttrDist: OpenXmlAttribute; - XmlAttrDir: OpenXmlAttribute; - XmlAttrAlgn: OpenXmlAttribute; - XmlAttrRotWithShape: OpenXmlAttribute; - - // Children - XmlChildSrgbClr: SrgbClr; - -end; - -function OuterShdw.Create();overload; -begin - {self.}Create(nil, "a", "outerShdw"); -end; - -function OuterShdw.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function OuterShdw.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function OuterShdw.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "blurRad": makeweakref(thisFunction(WriteXmlAttrBlurRad)), - "dist": makeweakref(thisFunction(WriteXmlAttrDist)), - "dir": makeweakref(thisFunction(WriteXmlAttrDir)), - "algn": makeweakref(thisFunction(WriteXmlAttrAlgn)), - "rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)), - ); - sorted_child_ := array( - pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function OuterShdw.Copy(_obj: OuterShdw);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.BlurRad) then - {self.}BlurRad := _obj.BlurRad; - if not ifnil(_obj.Dist) then - {self.}Dist := _obj.Dist; - if not ifnil(_obj.Dir) then - {self.}Dir := _obj.Dir; - if not ifnil(_obj.Algn) then - {self.}Algn := _obj.Algn; - if not ifnil(_obj.RotWithShape) then - {self.}RotWithShape := _obj.RotWithShape; - if not ifnil(_obj.XmlChildSrgbClr) then - {self.}SrgbClr.Copy(_obj.XmlChildSrgbClr); - tslassigning := tslassigning_backup; -end; - -function OuterShdw.ReadXmlAttrBlurRad(); -begin - return {self.}XmlAttrBlurRad.Value; -end; - -function OuterShdw.WriteXmlAttrBlurRad(_value); -begin - if ifnil({self.}XmlAttrBlurRad) then - begin - {self.}XmlAttrBlurRad := new OpenXmlAttribute("", "blurRad", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBlurRad; - end - {self.}XmlAttrBlurRad.Value := _value; -end; - -function OuterShdw.ReadXmlAttrDist(); -begin - return {self.}XmlAttrDist.Value; -end; - -function OuterShdw.WriteXmlAttrDist(_value); -begin - if ifnil({self.}XmlAttrDist) then - begin - {self.}XmlAttrDist := new OpenXmlAttribute("", "dist", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDist; - end - {self.}XmlAttrDist.Value := _value; -end; - -function OuterShdw.ReadXmlAttrDir(); -begin - return {self.}XmlAttrDir.Value; -end; - -function OuterShdw.WriteXmlAttrDir(_value); -begin - if ifnil({self.}XmlAttrDir) then - begin - {self.}XmlAttrDir := new OpenXmlAttribute("", "dir", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDir; - end - {self.}XmlAttrDir.Value := _value; -end; - -function OuterShdw.ReadXmlAttrAlgn(); -begin - return {self.}XmlAttrAlgn.Value; -end; - -function OuterShdw.WriteXmlAttrAlgn(_value); -begin - if ifnil({self.}XmlAttrAlgn) then - begin - {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAlgn; - end - {self.}XmlAttrAlgn.Value := _value; -end; - -function OuterShdw.ReadXmlAttrRotWithShape(); -begin - return {self.}XmlAttrRotWithShape.Value; -end; - -function OuterShdw.WriteXmlAttrRotWithShape(_value); -begin - if ifnil({self.}XmlAttrRotWithShape) then - begin - {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRotWithShape; - end - {self.}XmlAttrRotWithShape.Value := _value; -end; - -function OuterShdw.ReadXmlChildSrgbClr(); -begin - if tslassigning and ifnil({self.}XmlChildSrgbClr) then - begin - {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); - container_.Set({self.}XmlChildSrgbClr); - end - return {self.}XmlChildSrgbClr; -end; diff --git a/autoclass/docx/P@DOCX.tsf b/autoclass/docx/P@DOCX.tsf deleted file mode 100644 index 05d1491..0000000 --- a/autoclass/docx/P@DOCX.tsf +++ /dev/null @@ -1,403 +0,0 @@ -type P = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: P);override; - -public - - // attributes property - property W14ParaId read ReadXmlAttrW14ParaId write WriteXmlAttrW14ParaId; - property W14TextId read ReadXmlAttrW14TextId write WriteXmlAttrW14TextId; - property WRsidR read ReadXmlAttrWRsidR write WriteXmlAttrWRsidR; - property WRsidRPr read ReadXmlAttrWRsidRPr write WriteXmlAttrWRsidRPr; - property WRsidRDefault read ReadXmlAttrWRsidRDefault write WriteXmlAttrWRsidRDefault; - property WRsidP read ReadXmlAttrWRsidP write WriteXmlAttrWRsidP; - function ReadXmlAttrW14ParaId(); - function WriteXmlAttrW14ParaId(_value); - function ReadXmlAttrW14TextId(); - function WriteXmlAttrW14TextId(_value); - function ReadXmlAttrWRsidR(); - function WriteXmlAttrWRsidR(_value); - function ReadXmlAttrWRsidRPr(); - function WriteXmlAttrWRsidRPr(_value); - function ReadXmlAttrWRsidRDefault(); - function WriteXmlAttrWRsidRDefault(_value); - function ReadXmlAttrWRsidP(); - function WriteXmlAttrWRsidP(_value); - - // normal property - property PPr read ReadXmlChildPPr; - property Ins read ReadXmlChildIns; - function ReadXmlChildPPr(); - function ReadXmlChildIns(); - - // multi property - property Rs read ReadRs; - property CommentRangeStarts read ReadCommentRangeStarts; - property CommentRangeEnds read ReadCommentRangeEnds; - property BookmarkStarts read ReadBookmarkStarts; - property BookmarkEnds read ReadBookmarkEnds; - property Hyperlinks read ReadHyperlinks; - property FldSimples read ReadFldSimples; - function ReadRs(_index); - function ReadCommentRangeStarts(_index); - function ReadCommentRangeEnds(_index); - function ReadBookmarkStarts(_index); - function ReadBookmarkEnds(_index); - function ReadHyperlinks(_index); - function ReadFldSimples(_index); - function AddR(): R; - function AddCommentRangeStart(): CommentRange; - function AddCommentRangeEnd(): CommentRange; - function AddBookmarkStart(): Bookmark; - function AddBookmarkEnd(): Bookmark; - function AddHyperLink(): HyperLink; - function AddFldSimple(): FldSimple; - function AppendR(): R; - function AppendCommentRangeStart(): CommentRange; - function AppendCommentRangeEnd(): CommentRange; - function AppendBookmarkStart(): Bookmark; - function AppendBookmarkEnd(): Bookmark; - function AppendHyperLink(): HyperLink; - function AppendFldSimple(): FldSimple; - -public - // Attributes - XmlAttrW14ParaId: OpenXmlAttribute; - XmlAttrW14TextId: OpenXmlAttribute; - XmlAttrWRsidR: OpenXmlAttribute; - XmlAttrWRsidRPr: OpenXmlAttribute; - XmlAttrWRsidRDefault: OpenXmlAttribute; - XmlAttrWRsidP: OpenXmlAttribute; - - // Children - XmlChildPPr: PPr; - XmlChildIns: Ins; - -end; - -function P.Create();overload; -begin - {self.}Create(nil, "w", "p"); -end; - -function P.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function P.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function P.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w14:paraId": makeweakref(thisFunction(WriteXmlAttrW14ParaId)), - "w14:textId": makeweakref(thisFunction(WriteXmlAttrW14TextId)), - "w:rsidR": makeweakref(thisFunction(WriteXmlAttrWRsidR)), - "w:rsidRPr": makeweakref(thisFunction(WriteXmlAttrWRsidRPr)), - "w:rsidRDefault": makeweakref(thisFunction(WriteXmlAttrWRsidRDefault)), - "w:rsidP": makeweakref(thisFunction(WriteXmlAttrWRsidP)), - ); - sorted_child_ := array( - pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), - pre + "ins": array(1, makeweakref(thisFunction(ReadXmlChildIns))), - pre + "r": array(2, makeweakref(thisFunction(AppendR))), - pre + "commentRangeStart": array(3, makeweakref(thisFunction(AppendCommentRangeStart))), - pre + "commentRangeEnd": array(4, makeweakref(thisFunction(AppendCommentRangeEnd))), - pre + "bookmarkStart": array(5, makeweakref(thisFunction(AppendBookmarkStart))), - pre + "bookmarkEnd": array(6, makeweakref(thisFunction(AppendBookmarkEnd))), - pre + "hyperlink": array(7, makeweakref(thisFunction(AppendHyperLink))), - pre + "fldSimple": array(8, makeweakref(thisFunction(AppendFldSimple))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function P.Copy(_obj: P);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.W14ParaId) then - {self.}W14ParaId := _obj.W14ParaId; - if not ifnil(_obj.W14TextId) then - {self.}W14TextId := _obj.W14TextId; - if not ifnil(_obj.WRsidR) then - {self.}WRsidR := _obj.WRsidR; - if not ifnil(_obj.WRsidRPr) then - {self.}WRsidRPr := _obj.WRsidRPr; - if not ifnil(_obj.WRsidRDefault) then - {self.}WRsidRDefault := _obj.WRsidRDefault; - if not ifnil(_obj.WRsidP) then - {self.}WRsidP := _obj.WRsidP; - if not ifnil(_obj.XmlChildPPr) then - {self.}PPr.Copy(_obj.XmlChildPPr); - if not ifnil(_obj.XmlChildIns) then - {self.}Ins.Copy(_obj.XmlChildIns); - tslassigning := tslassigning_backup; -end; - -function P.ReadXmlAttrW14ParaId(); -begin - return {self.}XmlAttrW14ParaId.Value; -end; - -function P.WriteXmlAttrW14ParaId(_value); -begin - if ifnil({self.}XmlAttrW14ParaId) then - begin - {self.}XmlAttrW14ParaId := new OpenXmlAttribute("w14", "paraId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW14ParaId; - end - {self.}XmlAttrW14ParaId.Value := _value; -end; - -function P.ReadXmlAttrW14TextId(); -begin - return {self.}XmlAttrW14TextId.Value; -end; - -function P.WriteXmlAttrW14TextId(_value); -begin - if ifnil({self.}XmlAttrW14TextId) then - begin - {self.}XmlAttrW14TextId := new OpenXmlAttribute("w14", "textId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW14TextId; - end - {self.}XmlAttrW14TextId.Value := _value; -end; - -function P.ReadXmlAttrWRsidR(); -begin - return {self.}XmlAttrWRsidR.Value; -end; - -function P.WriteXmlAttrWRsidR(_value); -begin - if ifnil({self.}XmlAttrWRsidR) then - begin - {self.}XmlAttrWRsidR := new OpenXmlAttribute("w", "rsidR", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidR; - end - {self.}XmlAttrWRsidR.Value := _value; -end; - -function P.ReadXmlAttrWRsidRPr(); -begin - return {self.}XmlAttrWRsidRPr.Value; -end; - -function P.WriteXmlAttrWRsidRPr(_value); -begin - if ifnil({self.}XmlAttrWRsidRPr) then - begin - {self.}XmlAttrWRsidRPr := new OpenXmlAttribute("w", "rsidRPr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidRPr; - end - {self.}XmlAttrWRsidRPr.Value := _value; -end; - -function P.ReadXmlAttrWRsidRDefault(); -begin - return {self.}XmlAttrWRsidRDefault.Value; -end; - -function P.WriteXmlAttrWRsidRDefault(_value); -begin - if ifnil({self.}XmlAttrWRsidRDefault) then - begin - {self.}XmlAttrWRsidRDefault := new OpenXmlAttribute("w", "rsidRDefault", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidRDefault; - end - {self.}XmlAttrWRsidRDefault.Value := _value; -end; - -function P.ReadXmlAttrWRsidP(); -begin - return {self.}XmlAttrWRsidP.Value; -end; - -function P.WriteXmlAttrWRsidP(_value); -begin - if ifnil({self.}XmlAttrWRsidP) then - begin - {self.}XmlAttrWRsidP := new OpenXmlAttribute("w", "rsidP", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidP; - end - {self.}XmlAttrWRsidP.Value := _value; -end; - -function P.ReadXmlChildPPr(); -begin - if tslassigning and ifnil({self.}XmlChildPPr) then - begin - {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); - container_.Set({self.}XmlChildPPr); - end - return {self.}XmlChildPPr; -end; - -function P.ReadXmlChildIns(); -begin - if tslassigning and ifnil({self.}XmlChildIns) then - begin - {self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins"); - container_.Set({self.}XmlChildIns); - end - return {self.}XmlChildIns; -end; - -function P.ReadRs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "r", ind); -end; - -function P.ReadCommentRangeStarts(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "commentRangeStart", ind); -end; - -function P.ReadCommentRangeEnds(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "commentRangeEnd", ind); -end; - -function P.ReadBookmarkStarts(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "bookmarkStart", ind); -end; - -function P.ReadBookmarkEnds(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "bookmarkEnd", ind); -end; - -function P.ReadHyperlinks(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "hyperlink", ind); -end; - -function P.ReadFldSimples(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "fldSimple", ind); -end; - -function P.AddR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Insert(obj); - return obj; -end; - -function P.AddCommentRangeStart(): CommentRange; -begin - obj := new CommentRange(self, {self.}Prefix, "commentRangeStart"); - container_.Insert(obj); - return obj; -end; - -function P.AddCommentRangeEnd(): CommentRange; -begin - obj := new CommentRange(self, {self.}Prefix, "commentRangeEnd"); - container_.Insert(obj); - return obj; -end; - -function P.AddBookmarkStart(): Bookmark; -begin - obj := new Bookmark(self, {self.}Prefix, "bookmarkStart"); - container_.Insert(obj); - return obj; -end; - -function P.AddBookmarkEnd(): Bookmark; -begin - obj := new Bookmark(self, {self.}Prefix, "bookmarkEnd"); - container_.Insert(obj); - return obj; -end; - -function P.AddHyperLink(): HyperLink; -begin - obj := new HyperLink(self, {self.}Prefix, "hyperlink"); - container_.Insert(obj); - return obj; -end; - -function P.AddFldSimple(): FldSimple; -begin - obj := new FldSimple(self, {self.}Prefix, "fldSimple"); - container_.Insert(obj); - return obj; -end; - -function P.AppendR(): R; -begin - obj := new R(self, {self.}Prefix, "r"); - container_.Append(obj); - return obj; -end; - -function P.AppendCommentRangeStart(): CommentRange; -begin - obj := new CommentRange(self, {self.}Prefix, "commentRangeStart"); - container_.Append(obj); - return obj; -end; - -function P.AppendCommentRangeEnd(): CommentRange; -begin - obj := new CommentRange(self, {self.}Prefix, "commentRangeEnd"); - container_.Append(obj); - return obj; -end; - -function P.AppendBookmarkStart(): Bookmark; -begin - obj := new Bookmark(self, {self.}Prefix, "bookmarkStart"); - container_.Append(obj); - return obj; -end; - -function P.AppendBookmarkEnd(): Bookmark; -begin - obj := new Bookmark(self, {self.}Prefix, "bookmarkEnd"); - container_.Append(obj); - return obj; -end; - -function P.AppendHyperLink(): HyperLink; -begin - obj := new HyperLink(self, {self.}Prefix, "hyperlink"); - container_.Append(obj); - return obj; -end; - -function P.AppendFldSimple(): FldSimple; -begin - obj := new FldSimple(self, {self.}Prefix, "fldSimple"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/PBdr@DOCX.tsf b/autoclass/docx/PBdr@DOCX.tsf deleted file mode 100644 index 5d87bb9..0000000 --- a/autoclass/docx/PBdr@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type PBdr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PBdr);override; - -public - - // normal property - property Top read ReadXmlChildTop; - property Bottom read ReadXmlChildBottom; - function ReadXmlChildTop(); - function ReadXmlChildBottom(); - -public - // Children - XmlChildTop: PBorder; - XmlChildBottom: PBorder; - -end; - -function PBdr.Create();overload; -begin - {self.}Create(nil, "w", "pBdr"); -end; - -function PBdr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PBdr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PBdr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), - pre + "bottom": array(1, makeweakref(thisFunction(ReadXmlChildBottom))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PBdr.Copy(_obj: PBdr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTop) then - {self.}Top.Copy(_obj.XmlChildTop); - if not ifnil(_obj.XmlChildBottom) then - {self.}Bottom.Copy(_obj.XmlChildBottom); - tslassigning := tslassigning_backup; -end; - -function PBdr.ReadXmlChildTop(); -begin - if tslassigning and ifnil({self.}XmlChildTop) then - begin - {self.}XmlChildTop := new PBorder(self, {self.}Prefix, "top"); - container_.Set({self.}XmlChildTop); - end - return {self.}XmlChildTop; -end; - -function PBdr.ReadXmlChildBottom(); -begin - if tslassigning and ifnil({self.}XmlChildBottom) then - begin - {self.}XmlChildBottom := new PBorder(self, {self.}Prefix, "bottom"); - container_.Set({self.}XmlChildBottom); - end - return {self.}XmlChildBottom; -end; diff --git a/autoclass/docx/PBorder@DOCX.tsf b/autoclass/docx/PBorder@DOCX.tsf deleted file mode 100644 index d4a0c74..0000000 --- a/autoclass/docx/PBorder@DOCX.tsf +++ /dev/null @@ -1,184 +0,0 @@ -type PBorder = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PBorder);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property Color read ReadXmlAttrColor write WriteXmlAttrColor; - property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; - property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; - property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; - property Sz read ReadXmlAttrSz write WriteXmlAttrSz; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrColor(); - function WriteXmlAttrColor(_value); - function ReadXmlAttrSpace(); - function WriteXmlAttrSpace(_value); - function ReadXmlAttrThemeColor(); - function WriteXmlAttrThemeColor(_value); - function ReadXmlAttrThemeTint(); - function WriteXmlAttrThemeTint(_value); - function ReadXmlAttrSz(); - function WriteXmlAttrSz(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrColor: OpenXmlAttribute; - XmlAttrSpace: OpenXmlAttribute; - XmlAttrThemeColor: OpenXmlAttribute; - XmlAttrThemeTint: OpenXmlAttribute; - XmlAttrSz: OpenXmlAttribute; - - -end; - -function PBorder.Create();overload; -begin - {self.}Create(nil, "w", ""); -end; - -function PBorder.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PBorder.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "color": makeweakref(thisFunction(WriteXmlAttrColor)), - pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), - pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), - pre + "themeTint": makeweakref(thisFunction(WriteXmlAttrThemeTint)), - pre + "sz": makeweakref(thisFunction(WriteXmlAttrSz)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PBorder.Copy(_obj: PBorder);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.Color) then - {self.}Color := _obj.Color; - if not ifnil(_obj.Space) then - {self.}Space := _obj.Space; - if not ifnil(_obj.ThemeColor) then - {self.}ThemeColor := _obj.ThemeColor; - if not ifnil(_obj.ThemeTint) then - {self.}ThemeTint := _obj.ThemeTint; - if not ifnil(_obj.Sz) then - {self.}Sz := _obj.Sz; - tslassigning := tslassigning_backup; -end; - -function PBorder.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function PBorder.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function PBorder.ReadXmlAttrColor(); -begin - return {self.}XmlAttrColor.Value; -end; - -function PBorder.WriteXmlAttrColor(_value); -begin - if ifnil({self.}XmlAttrColor) then - begin - {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); - attributes_[length(attributes_)] := {self.}XmlAttrColor; - end - {self.}XmlAttrColor.Value := _value; -end; - -function PBorder.ReadXmlAttrSpace(); -begin - return {self.}XmlAttrSpace.Value; -end; - -function PBorder.WriteXmlAttrSpace(_value); -begin - if ifnil({self.}XmlAttrSpace) then - begin - {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpace; - end - {self.}XmlAttrSpace.Value := _value; -end; - -function PBorder.ReadXmlAttrThemeColor(); -begin - return {self.}XmlAttrThemeColor.Value; -end; - -function PBorder.WriteXmlAttrThemeColor(_value); -begin - if ifnil({self.}XmlAttrThemeColor) then - begin - {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; - end - {self.}XmlAttrThemeColor.Value := _value; -end; - -function PBorder.ReadXmlAttrThemeTint(); -begin - return {self.}XmlAttrThemeTint.Value; -end; - -function PBorder.WriteXmlAttrThemeTint(_value); -begin - if ifnil({self.}XmlAttrThemeTint) then - begin - {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeTint; - end - {self.}XmlAttrThemeTint.Value := _value; -end; - -function PBorder.ReadXmlAttrSz(); -begin - return {self.}XmlAttrSz.Value; -end; - -function PBorder.WriteXmlAttrSz(_value); -begin - if ifnil({self.}XmlAttrSz) then - begin - {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSz; - end - {self.}XmlAttrSz.Value := _value; -end; diff --git a/autoclass/docx/PPr@DOCX.tsf b/autoclass/docx/PPr@DOCX.tsf deleted file mode 100644 index 3be2dbb..0000000 --- a/autoclass/docx/PPr@DOCX.tsf +++ /dev/null @@ -1,495 +0,0 @@ -type PPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PPr);override; - -public - - // empty property - property WidowControl read ReadXmlChildWidowControl write WriteXmlChildWidowControl; - property SnapToGrid read ReadXmlChildSnapToGrid write WriteXmlChildSnapToGrid; - property KeepNext read ReadXmlChildKeepNext write WriteXmlChildKeepNext; - property KeepLines read ReadXmlChildKeepLines write WriteXmlChildKeepLines; - property PageBreakBefore read ReadXmlChildPageBreakBefore write WriteXmlChildPageBreakBefore; - property ContextualSpacing read ReadXmlChildContextualSpacing write WriteXmlChildContextualSpacing; - function ReadXmlChildWidowControl(); - function WriteXmlChildWidowControl(_value); - function ReadXmlChildSnapToGrid(); - function WriteXmlChildSnapToGrid(_value); - function ReadXmlChildKeepNext(); - function WriteXmlChildKeepNext(_value); - function ReadXmlChildKeepLines(); - function WriteXmlChildKeepLines(_value); - function ReadXmlChildPageBreakBefore(); - function WriteXmlChildPageBreakBefore(_value); - function ReadXmlChildContextualSpacing(); - function WriteXmlChildContextualSpacing(_value); - - // normal property - property SectPr read ReadXmlChildSectPr; - property Tabs read ReadXmlChildTabs; - property PStyle read ReadXmlChildPStyle; - property NumPr read ReadXmlChildNumPr; - property Jc read ReadXmlChildJc; - property Ind read ReadXmlChildInd; - property AdjustRightInd read ReadXmlChildAdjustRightInd; - property Spacing read ReadXmlChildSpacing; - property OutlineLvl read ReadXmlChildOutlineLvl; - property AutoSpaceDE read ReadXmlChildAutoSpaceDE; - property AutoSpaceDN read ReadXmlChildAutoSpaceDN; - property RPr read ReadXmlChildRPr; - property PBdr read ReadXmlChildPBdr; - property Shd read ReadXmlChildShd; - property WordWrap read ReadXmlChildWordWrap; - property TextboxTightWrap read ReadXmlChildTextboxTightWrap; - function ReadXmlChildSectPr(); - function ReadXmlChildTabs(); - function ReadXmlChildPStyle(); - function ReadXmlChildNumPr(); - function ReadXmlChildJc(); - function ReadXmlChildInd(); - function ReadXmlChildAdjustRightInd(); - function ReadXmlChildSpacing(); - function ReadXmlChildOutlineLvl(); - function ReadXmlChildAutoSpaceDE(); - function ReadXmlChildAutoSpaceDN(); - function ReadXmlChildRPr(); - function ReadXmlChildPBdr(); - function ReadXmlChildShd(); - function ReadXmlChildWordWrap(); - function ReadXmlChildTextboxTightWrap(); - -public - // Children - XmlChildSectPr: SectPr; - XmlChildTabs: Tabs; - XmlChildWidowControl: OpenXmlEmpty; - XmlChildSnapToGrid: OpenXmlEmpty; - XmlChildPStyle: PureWVal; - XmlChildNumPr: NumPr; - XmlChildJc: PureWVal; - XmlChildInd: Ind; - XmlChildKeepNext: OpenXmlEmpty; - XmlChildKeepLines: OpenXmlEmpty; - XmlChildPageBreakBefore: OpenXmlEmpty; - XmlChildAdjustRightInd: PureWVal; - XmlChildSpacing: Spacing; - XmlChildOutlineLvl: PureWVal; - XmlChildAutoSpaceDE: PureWVal; - XmlChildAutoSpaceDN: PureWVal; - XmlChildRPr: RPr; - XmlChildPBdr: PBdr; - XmlChildContextualSpacing: OpenXmlEmpty; - XmlChildShd: Shd; - XmlChildWordWrap: PureWVal; - XmlChildTextboxTightWrap: PureWVal; - -end; - -function PPr.Create();overload; -begin - {self.}Create(nil, "w", "pPr"); -end; - -function PPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "sectPr": array(0, makeweakref(thisFunction(ReadXmlChildSectPr))), - pre + "tabs": array(1, makeweakref(thisFunction(ReadXmlChildTabs))), - pre + "widowControl": array(2, makeweakref(thisFunction(ReadXmlChildWidowControl))), - pre + "snapToGrid": array(3, makeweakref(thisFunction(ReadXmlChildSnapToGrid))), - pre + "pStyle": array(4, makeweakref(thisFunction(ReadXmlChildPStyle))), - pre + "numPr": array(5, makeweakref(thisFunction(ReadXmlChildNumPr))), - pre + "jc": array(6, makeweakref(thisFunction(ReadXmlChildJc))), - pre + "ind": array(7, makeweakref(thisFunction(ReadXmlChildInd))), - pre + "keepNext": array(8, makeweakref(thisFunction(ReadXmlChildKeepNext))), - pre + "keepLines": array(9, makeweakref(thisFunction(ReadXmlChildKeepLines))), - pre + "pageBreakBefore": array(10, makeweakref(thisFunction(ReadXmlChildPageBreakBefore))), - pre + "adjustRightInd": array(11, makeweakref(thisFunction(ReadXmlChildAdjustRightInd))), - pre + "spacing": array(12, makeweakref(thisFunction(ReadXmlChildSpacing))), - pre + "outlineLvl": array(13, makeweakref(thisFunction(ReadXmlChildOutlineLvl))), - pre + "autoSpaceDE": array(14, makeweakref(thisFunction(ReadXmlChildAutoSpaceDE))), - pre + "autoSpaceDN": array(15, makeweakref(thisFunction(ReadXmlChildAutoSpaceDN))), - pre + "rPr": array(16, makeweakref(thisFunction(ReadXmlChildRPr))), - pre + "pBdr": array(17, makeweakref(thisFunction(ReadXmlChildPBdr))), - pre + "contextualSpacing": array(18, makeweakref(thisFunction(ReadXmlChildContextualSpacing))), - pre + "shd": array(19, makeweakref(thisFunction(ReadXmlChildShd))), - pre + "wordWrap": array(20, makeweakref(thisFunction(ReadXmlChildWordWrap))), - pre + "textboxTightWrap": array(21, makeweakref(thisFunction(ReadXmlChildTextboxTightWrap))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PPr.Copy(_obj: PPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSectPr) then - {self.}SectPr.Copy(_obj.XmlChildSectPr); - if not ifnil(_obj.XmlChildTabs) then - {self.}Tabs.Copy(_obj.XmlChildTabs); - if not ifnil(_obj.XmlChildWidowControl) then - ifnil({self.}XmlChildWidowControl) ? {self.}WidowControl.Copy(_obj.XmlChildWidowControl) : {self.}XmlChildWidowControl.Copy(_obj.XmlChildWidowControl); - if not ifnil(_obj.XmlChildSnapToGrid) then - ifnil({self.}XmlChildSnapToGrid) ? {self.}SnapToGrid.Copy(_obj.XmlChildSnapToGrid) : {self.}XmlChildSnapToGrid.Copy(_obj.XmlChildSnapToGrid); - if not ifnil(_obj.XmlChildPStyle) then - {self.}PStyle.Copy(_obj.XmlChildPStyle); - if not ifnil(_obj.XmlChildNumPr) then - {self.}NumPr.Copy(_obj.XmlChildNumPr); - if not ifnil(_obj.XmlChildJc) then - {self.}Jc.Copy(_obj.XmlChildJc); - if not ifnil(_obj.XmlChildInd) then - {self.}Ind.Copy(_obj.XmlChildInd); - if not ifnil(_obj.XmlChildKeepNext) then - ifnil({self.}XmlChildKeepNext) ? {self.}KeepNext.Copy(_obj.XmlChildKeepNext) : {self.}XmlChildKeepNext.Copy(_obj.XmlChildKeepNext); - if not ifnil(_obj.XmlChildKeepLines) then - ifnil({self.}XmlChildKeepLines) ? {self.}KeepLines.Copy(_obj.XmlChildKeepLines) : {self.}XmlChildKeepLines.Copy(_obj.XmlChildKeepLines); - if not ifnil(_obj.XmlChildPageBreakBefore) then - ifnil({self.}XmlChildPageBreakBefore) ? {self.}PageBreakBefore.Copy(_obj.XmlChildPageBreakBefore) : {self.}XmlChildPageBreakBefore.Copy(_obj.XmlChildPageBreakBefore); - if not ifnil(_obj.XmlChildAdjustRightInd) then - {self.}AdjustRightInd.Copy(_obj.XmlChildAdjustRightInd); - if not ifnil(_obj.XmlChildSpacing) then - {self.}Spacing.Copy(_obj.XmlChildSpacing); - if not ifnil(_obj.XmlChildOutlineLvl) then - {self.}OutlineLvl.Copy(_obj.XmlChildOutlineLvl); - if not ifnil(_obj.XmlChildAutoSpaceDE) then - {self.}AutoSpaceDE.Copy(_obj.XmlChildAutoSpaceDE); - if not ifnil(_obj.XmlChildAutoSpaceDN) then - {self.}AutoSpaceDN.Copy(_obj.XmlChildAutoSpaceDN); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - if not ifnil(_obj.XmlChildPBdr) then - {self.}PBdr.Copy(_obj.XmlChildPBdr); - if not ifnil(_obj.XmlChildContextualSpacing) then - ifnil({self.}XmlChildContextualSpacing) ? {self.}ContextualSpacing.Copy(_obj.XmlChildContextualSpacing) : {self.}XmlChildContextualSpacing.Copy(_obj.XmlChildContextualSpacing); - if not ifnil(_obj.XmlChildShd) then - {self.}Shd.Copy(_obj.XmlChildShd); - if not ifnil(_obj.XmlChildWordWrap) then - {self.}WordWrap.Copy(_obj.XmlChildWordWrap); - if not ifnil(_obj.XmlChildTextboxTightWrap) then - {self.}TextboxTightWrap.Copy(_obj.XmlChildTextboxTightWrap); - tslassigning := tslassigning_backup; -end; - -function PPr.ReadXmlChildWidowControl(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildWidowControl) then - begin - {self.}XmlChildWidowControl := new OpenXmlEmpty(self, {self.}Prefix, "widowControl"); - container_.Set({self.}XmlChildWidowControl); - end - return {self.}XmlChildWidowControl; - end - return ifnil({self.}XmlChildWidowControl) ? nil : {self.}XmlChildWidowControl.BoolValue(); -end; - -function PPr.WriteXmlChildWidowControl(_value); -begin - if ifnil({self.}XmlChildWidowControl) then - begin - {self.}XmlChildWidowControl := new OpenXmlEmpty(self, {self.}Prefix, "widowControl"); - container_.Set({self.}XmlChildWidowControl); - end - {self.}XmlChildWidowControl.Value := _value; -end; - -function PPr.ReadXmlChildSnapToGrid(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildSnapToGrid) then - begin - {self.}XmlChildSnapToGrid := new OpenXmlEmpty(self, {self.}Prefix, "snapToGrid"); - container_.Set({self.}XmlChildSnapToGrid); - end - return {self.}XmlChildSnapToGrid; - end - return ifnil({self.}XmlChildSnapToGrid) ? nil : {self.}XmlChildSnapToGrid.BoolValue(); -end; - -function PPr.WriteXmlChildSnapToGrid(_value); -begin - if ifnil({self.}XmlChildSnapToGrid) then - begin - {self.}XmlChildSnapToGrid := new OpenXmlEmpty(self, {self.}Prefix, "snapToGrid"); - container_.Set({self.}XmlChildSnapToGrid); - end - {self.}XmlChildSnapToGrid.Value := _value; -end; - -function PPr.ReadXmlChildKeepNext(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildKeepNext) then - begin - {self.}XmlChildKeepNext := new OpenXmlEmpty(self, {self.}Prefix, "keepNext"); - container_.Set({self.}XmlChildKeepNext); - end - return {self.}XmlChildKeepNext; - end - return ifnil({self.}XmlChildKeepNext) ? nil : {self.}XmlChildKeepNext.BoolValue(); -end; - -function PPr.WriteXmlChildKeepNext(_value); -begin - if ifnil({self.}XmlChildKeepNext) then - begin - {self.}XmlChildKeepNext := new OpenXmlEmpty(self, {self.}Prefix, "keepNext"); - container_.Set({self.}XmlChildKeepNext); - end - {self.}XmlChildKeepNext.Value := _value; -end; - -function PPr.ReadXmlChildKeepLines(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildKeepLines) then - begin - {self.}XmlChildKeepLines := new OpenXmlEmpty(self, {self.}Prefix, "keepLines"); - container_.Set({self.}XmlChildKeepLines); - end - return {self.}XmlChildKeepLines; - end - return ifnil({self.}XmlChildKeepLines) ? nil : {self.}XmlChildKeepLines.BoolValue(); -end; - -function PPr.WriteXmlChildKeepLines(_value); -begin - if ifnil({self.}XmlChildKeepLines) then - begin - {self.}XmlChildKeepLines := new OpenXmlEmpty(self, {self.}Prefix, "keepLines"); - container_.Set({self.}XmlChildKeepLines); - end - {self.}XmlChildKeepLines.Value := _value; -end; - -function PPr.ReadXmlChildPageBreakBefore(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildPageBreakBefore) then - begin - {self.}XmlChildPageBreakBefore := new OpenXmlEmpty(self, {self.}Prefix, "pageBreakBefore"); - container_.Set({self.}XmlChildPageBreakBefore); - end - return {self.}XmlChildPageBreakBefore; - end - return ifnil({self.}XmlChildPageBreakBefore) ? nil : {self.}XmlChildPageBreakBefore.BoolValue(); -end; - -function PPr.WriteXmlChildPageBreakBefore(_value); -begin - if ifnil({self.}XmlChildPageBreakBefore) then - begin - {self.}XmlChildPageBreakBefore := new OpenXmlEmpty(self, {self.}Prefix, "pageBreakBefore"); - container_.Set({self.}XmlChildPageBreakBefore); - end - {self.}XmlChildPageBreakBefore.Value := _value; -end; - -function PPr.ReadXmlChildContextualSpacing(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildContextualSpacing) then - begin - {self.}XmlChildContextualSpacing := new OpenXmlEmpty(self, {self.}Prefix, "contextualSpacing"); - container_.Set({self.}XmlChildContextualSpacing); - end - return {self.}XmlChildContextualSpacing; - end - return ifnil({self.}XmlChildContextualSpacing) ? nil : {self.}XmlChildContextualSpacing.BoolValue(); -end; - -function PPr.WriteXmlChildContextualSpacing(_value); -begin - if ifnil({self.}XmlChildContextualSpacing) then - begin - {self.}XmlChildContextualSpacing := new OpenXmlEmpty(self, {self.}Prefix, "contextualSpacing"); - container_.Set({self.}XmlChildContextualSpacing); - end - {self.}XmlChildContextualSpacing.Value := _value; -end; - -function PPr.ReadXmlChildSectPr(); -begin - if tslassigning and ifnil({self.}XmlChildSectPr) then - begin - {self.}XmlChildSectPr := new SectPr(self, {self.}Prefix, "sectPr"); - container_.Set({self.}XmlChildSectPr); - end - return {self.}XmlChildSectPr; -end; - -function PPr.ReadXmlChildTabs(); -begin - if tslassigning and ifnil({self.}XmlChildTabs) then - begin - {self.}XmlChildTabs := new Tabs(self, {self.}Prefix, "tabs"); - container_.Set({self.}XmlChildTabs); - end - return {self.}XmlChildTabs; -end; - -function PPr.ReadXmlChildPStyle(); -begin - if tslassigning and ifnil({self.}XmlChildPStyle) then - begin - {self.}XmlChildPStyle := new PureWVal(self, {self.}Prefix, "pStyle"); - container_.Set({self.}XmlChildPStyle); - end - return {self.}XmlChildPStyle; -end; - -function PPr.ReadXmlChildNumPr(); -begin - if tslassigning and ifnil({self.}XmlChildNumPr) then - begin - {self.}XmlChildNumPr := new NumPr(self, {self.}Prefix, "numPr"); - container_.Set({self.}XmlChildNumPr); - end - return {self.}XmlChildNumPr; -end; - -function PPr.ReadXmlChildJc(); -begin - if tslassigning and ifnil({self.}XmlChildJc) then - begin - {self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc"); - container_.Set({self.}XmlChildJc); - end - return {self.}XmlChildJc; -end; - -function PPr.ReadXmlChildInd(); -begin - if tslassigning and ifnil({self.}XmlChildInd) then - begin - {self.}XmlChildInd := new Ind(self, {self.}Prefix, "ind"); - container_.Set({self.}XmlChildInd); - end - return {self.}XmlChildInd; -end; - -function PPr.ReadXmlChildAdjustRightInd(); -begin - if tslassigning and ifnil({self.}XmlChildAdjustRightInd) then - begin - {self.}XmlChildAdjustRightInd := new PureWVal(self, {self.}Prefix, "adjustRightInd"); - container_.Set({self.}XmlChildAdjustRightInd); - end - return {self.}XmlChildAdjustRightInd; -end; - -function PPr.ReadXmlChildSpacing(); -begin - if tslassigning and ifnil({self.}XmlChildSpacing) then - begin - {self.}XmlChildSpacing := new Spacing(self, {self.}Prefix, "spacing"); - container_.Set({self.}XmlChildSpacing); - end - return {self.}XmlChildSpacing; -end; - -function PPr.ReadXmlChildOutlineLvl(); -begin - if tslassigning and ifnil({self.}XmlChildOutlineLvl) then - begin - {self.}XmlChildOutlineLvl := new PureWVal(self, {self.}Prefix, "outlineLvl"); - container_.Set({self.}XmlChildOutlineLvl); - end - return {self.}XmlChildOutlineLvl; -end; - -function PPr.ReadXmlChildAutoSpaceDE(); -begin - if tslassigning and ifnil({self.}XmlChildAutoSpaceDE) then - begin - {self.}XmlChildAutoSpaceDE := new PureWVal(self, {self.}Prefix, "autoSpaceDE"); - container_.Set({self.}XmlChildAutoSpaceDE); - end - return {self.}XmlChildAutoSpaceDE; -end; - -function PPr.ReadXmlChildAutoSpaceDN(); -begin - if tslassigning and ifnil({self.}XmlChildAutoSpaceDN) then - begin - {self.}XmlChildAutoSpaceDN := new PureWVal(self, {self.}Prefix, "autoSpaceDN"); - container_.Set({self.}XmlChildAutoSpaceDN); - end - return {self.}XmlChildAutoSpaceDN; -end; - -function PPr.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; - -function PPr.ReadXmlChildPBdr(); -begin - if tslassigning and ifnil({self.}XmlChildPBdr) then - begin - {self.}XmlChildPBdr := new PBdr(self, {self.}Prefix, "pBdr"); - container_.Set({self.}XmlChildPBdr); - end - return {self.}XmlChildPBdr; -end; - -function PPr.ReadXmlChildShd(); -begin - if tslassigning and ifnil({self.}XmlChildShd) then - begin - {self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd"); - container_.Set({self.}XmlChildShd); - end - return {self.}XmlChildShd; -end; - -function PPr.ReadXmlChildWordWrap(); -begin - if tslassigning and ifnil({self.}XmlChildWordWrap) then - begin - {self.}XmlChildWordWrap := new PureWVal(self, {self.}Prefix, "wordWrap"); - container_.Set({self.}XmlChildWordWrap); - end - return {self.}XmlChildWordWrap; -end; - -function PPr.ReadXmlChildTextboxTightWrap(); -begin - if tslassigning and ifnil({self.}XmlChildTextboxTightWrap) then - begin - {self.}XmlChildTextboxTightWrap := new PureWVal(self, {self.}Prefix, "textboxTightWrap"); - container_.Set({self.}XmlChildTextboxTightWrap); - end - return {self.}XmlChildTextboxTightWrap; -end; diff --git a/autoclass/docx/PPrDefault@DOCX.tsf b/autoclass/docx/PPrDefault@DOCX.tsf deleted file mode 100644 index 12693b4..0000000 --- a/autoclass/docx/PPrDefault@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type PPrDefault = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PPrDefault);override; - -public - - // normal property - property PPr read ReadXmlChildPPr; - function ReadXmlChildPPr(); - -public - // Children - XmlChildPPr: PPr; - -end; - -function PPrDefault.Create();overload; -begin - {self.}Create(nil, "w", "pPrDefault"); -end; - -function PPrDefault.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PPrDefault.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PPrDefault.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PPrDefault.Copy(_obj: PPrDefault);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildPPr) then - {self.}PPr.Copy(_obj.XmlChildPPr); - tslassigning := tslassigning_backup; -end; - -function PPrDefault.ReadXmlChildPPr(); -begin - if tslassigning and ifnil({self.}XmlChildPPr) then - begin - {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); - container_.Set({self.}XmlChildPPr); - end - return {self.}XmlChildPPr; -end; diff --git a/autoclass/docx/Path@DOCX.tsf b/autoclass/docx/Path@DOCX.tsf deleted file mode 100644 index 3e19ddd..0000000 --- a/autoclass/docx/Path@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type Path = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Path);override; - -public - - // attributes property - property Extrusionok read ReadXmlAttrExtrusionok write WriteXmlAttrExtrusionok; - property Gradientshapeok read ReadXmlAttrGradientshapeok write WriteXmlAttrGradientshapeok; - property Connecttype read ReadXmlAttrConnecttype write WriteXmlAttrConnecttype; - function ReadXmlAttrExtrusionok(); - function WriteXmlAttrExtrusionok(_value); - function ReadXmlAttrGradientshapeok(); - function WriteXmlAttrGradientshapeok(_value); - function ReadXmlAttrConnecttype(); - function WriteXmlAttrConnecttype(_value); - -public - // Attributes - XmlAttrExtrusionok: OpenXmlAttribute; - XmlAttrGradientshapeok: OpenXmlAttribute; - XmlAttrConnecttype: OpenXmlAttribute; - - -end; - -function Path.Create();overload; -begin - {self.}Create(nil, "v", "path"); -end; - -function Path.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Path.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Path.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "o:extrusionok": makeweakref(thisFunction(WriteXmlAttrExtrusionok)), - "gradientshapeok": makeweakref(thisFunction(WriteXmlAttrGradientshapeok)), - "o:connecttype": makeweakref(thisFunction(WriteXmlAttrConnecttype)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Path.Copy(_obj: Path);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Extrusionok) then - {self.}Extrusionok := _obj.Extrusionok; - if not ifnil(_obj.Gradientshapeok) then - {self.}Gradientshapeok := _obj.Gradientshapeok; - if not ifnil(_obj.Connecttype) then - {self.}Connecttype := _obj.Connecttype; - tslassigning := tslassigning_backup; -end; - -function Path.ReadXmlAttrExtrusionok(); -begin - return {self.}XmlAttrExtrusionok.Value; -end; - -function Path.WriteXmlAttrExtrusionok(_value); -begin - if ifnil({self.}XmlAttrExtrusionok) then - begin - {self.}XmlAttrExtrusionok := new OpenXmlAttribute("o", "extrusionok", nil); - attributes_[length(attributes_)] := {self.}XmlAttrExtrusionok; - end - {self.}XmlAttrExtrusionok.Value := _value; -end; - -function Path.ReadXmlAttrGradientshapeok(); -begin - return {self.}XmlAttrGradientshapeok.Value; -end; - -function Path.WriteXmlAttrGradientshapeok(_value); -begin - if ifnil({self.}XmlAttrGradientshapeok) then - begin - {self.}XmlAttrGradientshapeok := new OpenXmlAttribute("", "gradientshapeok", nil); - attributes_[length(attributes_)] := {self.}XmlAttrGradientshapeok; - end - {self.}XmlAttrGradientshapeok.Value := _value; -end; - -function Path.ReadXmlAttrConnecttype(); -begin - return {self.}XmlAttrConnecttype.Value; -end; - -function Path.WriteXmlAttrConnecttype(_value); -begin - if ifnil({self.}XmlAttrConnecttype) then - begin - {self.}XmlAttrConnecttype := new OpenXmlAttribute("o", "connecttype", nil); - attributes_[length(attributes_)] := {self.}XmlAttrConnecttype; - end - {self.}XmlAttrConnecttype.Value := _value; -end; diff --git a/autoclass/docx/PgMar@DOCX.tsf b/autoclass/docx/PgMar@DOCX.tsf deleted file mode 100644 index 83320db..0000000 --- a/autoclass/docx/PgMar@DOCX.tsf +++ /dev/null @@ -1,206 +0,0 @@ -type PgMar = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PgMar);override; - -public - - // attributes property - property Top read ReadXmlAttrTop write WriteXmlAttrTop; - property Right read ReadXmlAttrRight write WriteXmlAttrRight; - property Bottom read ReadXmlAttrBottom write WriteXmlAttrBottom; - property Left read ReadXmlAttrLeft write WriteXmlAttrLeft; - property Header read ReadXmlAttrHeader write WriteXmlAttrHeader; - property Footer read ReadXmlAttrFooter write WriteXmlAttrFooter; - property Gutter read ReadXmlAttrGutter write WriteXmlAttrGutter; - function ReadXmlAttrTop(); - function WriteXmlAttrTop(_value); - function ReadXmlAttrRight(); - function WriteXmlAttrRight(_value); - function ReadXmlAttrBottom(); - function WriteXmlAttrBottom(_value); - function ReadXmlAttrLeft(); - function WriteXmlAttrLeft(_value); - function ReadXmlAttrHeader(); - function WriteXmlAttrHeader(_value); - function ReadXmlAttrFooter(); - function WriteXmlAttrFooter(_value); - function ReadXmlAttrGutter(); - function WriteXmlAttrGutter(_value); - -public - // Attributes - XmlAttrTop: OpenXmlAttribute; - XmlAttrRight: OpenXmlAttribute; - XmlAttrBottom: OpenXmlAttribute; - XmlAttrLeft: OpenXmlAttribute; - XmlAttrHeader: OpenXmlAttribute; - XmlAttrFooter: OpenXmlAttribute; - XmlAttrGutter: OpenXmlAttribute; - - -end; - -function PgMar.Create();overload; -begin - {self.}Create(nil, "w", "pgMar"); -end; - -function PgMar.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PgMar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PgMar.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "top": makeweakref(thisFunction(WriteXmlAttrTop)), - pre + "right": makeweakref(thisFunction(WriteXmlAttrRight)), - pre + "bottom": makeweakref(thisFunction(WriteXmlAttrBottom)), - pre + "left": makeweakref(thisFunction(WriteXmlAttrLeft)), - pre + "header": makeweakref(thisFunction(WriteXmlAttrHeader)), - pre + "footer": makeweakref(thisFunction(WriteXmlAttrFooter)), - pre + "gutter": makeweakref(thisFunction(WriteXmlAttrGutter)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PgMar.Copy(_obj: PgMar);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Top) then - {self.}Top := _obj.Top; - if not ifnil(_obj.Right) then - {self.}Right := _obj.Right; - if not ifnil(_obj.Bottom) then - {self.}Bottom := _obj.Bottom; - if not ifnil(_obj.Left) then - {self.}Left := _obj.Left; - if not ifnil(_obj.Header) then - {self.}Header := _obj.Header; - if not ifnil(_obj.Footer) then - {self.}Footer := _obj.Footer; - if not ifnil(_obj.Gutter) then - {self.}Gutter := _obj.Gutter; - tslassigning := tslassigning_backup; -end; - -function PgMar.ReadXmlAttrTop(); -begin - return {self.}XmlAttrTop.Value; -end; - -function PgMar.WriteXmlAttrTop(_value); -begin - if ifnil({self.}XmlAttrTop) then - begin - {self.}XmlAttrTop := new OpenXmlAttribute({self.}Prefix, "top", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTop; - end - {self.}XmlAttrTop.Value := _value; -end; - -function PgMar.ReadXmlAttrRight(); -begin - return {self.}XmlAttrRight.Value; -end; - -function PgMar.WriteXmlAttrRight(_value); -begin - if ifnil({self.}XmlAttrRight) then - begin - {self.}XmlAttrRight := new OpenXmlAttribute({self.}Prefix, "right", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRight; - end - {self.}XmlAttrRight.Value := _value; -end; - -function PgMar.ReadXmlAttrBottom(); -begin - return {self.}XmlAttrBottom.Value; -end; - -function PgMar.WriteXmlAttrBottom(_value); -begin - if ifnil({self.}XmlAttrBottom) then - begin - {self.}XmlAttrBottom := new OpenXmlAttribute({self.}Prefix, "bottom", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBottom; - end - {self.}XmlAttrBottom.Value := _value; -end; - -function PgMar.ReadXmlAttrLeft(); -begin - return {self.}XmlAttrLeft.Value; -end; - -function PgMar.WriteXmlAttrLeft(_value); -begin - if ifnil({self.}XmlAttrLeft) then - begin - {self.}XmlAttrLeft := new OpenXmlAttribute({self.}Prefix, "left", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLeft; - end - {self.}XmlAttrLeft.Value := _value; -end; - -function PgMar.ReadXmlAttrHeader(); -begin - return {self.}XmlAttrHeader.Value; -end; - -function PgMar.WriteXmlAttrHeader(_value); -begin - if ifnil({self.}XmlAttrHeader) then - begin - {self.}XmlAttrHeader := new OpenXmlAttribute({self.}Prefix, "header", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHeader; - end - {self.}XmlAttrHeader.Value := _value; -end; - -function PgMar.ReadXmlAttrFooter(); -begin - return {self.}XmlAttrFooter.Value; -end; - -function PgMar.WriteXmlAttrFooter(_value); -begin - if ifnil({self.}XmlAttrFooter) then - begin - {self.}XmlAttrFooter := new OpenXmlAttribute({self.}Prefix, "footer", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFooter; - end - {self.}XmlAttrFooter.Value := _value; -end; - -function PgMar.ReadXmlAttrGutter(); -begin - return {self.}XmlAttrGutter.Value; -end; - -function PgMar.WriteXmlAttrGutter(_value); -begin - if ifnil({self.}XmlAttrGutter) then - begin - {self.}XmlAttrGutter := new OpenXmlAttribute({self.}Prefix, "gutter", nil); - attributes_[length(attributes_)] := {self.}XmlAttrGutter; - end - {self.}XmlAttrGutter.Value := _value; -end; diff --git a/autoclass/docx/PgNumType@DOCX.tsf b/autoclass/docx/PgNumType@DOCX.tsf deleted file mode 100644 index 9af1ec8..0000000 --- a/autoclass/docx/PgNumType@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type PgNumType = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PgNumType);override; - -public - - // attributes property - property Start read ReadXmlAttrStart write WriteXmlAttrStart; - function ReadXmlAttrStart(); - function WriteXmlAttrStart(_value); - -public - // Attributes - XmlAttrStart: OpenXmlAttribute; - - -end; - -function PgNumType.Create();overload; -begin - {self.}Create(nil, "w", "pgNumType"); -end; - -function PgNumType.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PgNumType.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PgNumType.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "start": makeweakref(thisFunction(WriteXmlAttrStart)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PgNumType.Copy(_obj: PgNumType);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Start) then - {self.}Start := _obj.Start; - tslassigning := tslassigning_backup; -end; - -function PgNumType.ReadXmlAttrStart(); -begin - return {self.}XmlAttrStart.Value; -end; - -function PgNumType.WriteXmlAttrStart(_value); -begin - if ifnil({self.}XmlAttrStart) then - begin - {self.}XmlAttrStart := new OpenXmlAttribute({self.}Prefix, "start", nil); - attributes_[length(attributes_)] := {self.}XmlAttrStart; - end - {self.}XmlAttrStart.Value := _value; -end; diff --git a/autoclass/docx/PgSz@DOCX.tsf b/autoclass/docx/PgSz@DOCX.tsf deleted file mode 100644 index 3f3b5f7..0000000 --- a/autoclass/docx/PgSz@DOCX.tsf +++ /dev/null @@ -1,140 +0,0 @@ -type PgSz = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PgSz);override; - -public - - // attributes property - property W read ReadXmlAttrW write WriteXmlAttrW; - property H read ReadXmlAttrH write WriteXmlAttrH; - property Orient read ReadXmlAttrOrient write WriteXmlAttrOrient; - property Code read ReadXmlAttrCode write WriteXmlAttrCode; - function ReadXmlAttrW(); - function WriteXmlAttrW(_value); - function ReadXmlAttrH(); - function WriteXmlAttrH(_value); - function ReadXmlAttrOrient(); - function WriteXmlAttrOrient(_value); - function ReadXmlAttrCode(); - function WriteXmlAttrCode(_value); - -public - // Attributes - XmlAttrW: OpenXmlAttribute; - XmlAttrH: OpenXmlAttribute; - XmlAttrOrient: OpenXmlAttribute; - XmlAttrCode: OpenXmlAttribute; - - -end; - -function PgSz.Create();overload; -begin - {self.}Create(nil, "w", "pgSz"); -end; - -function PgSz.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PgSz.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PgSz.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), - pre + "h": makeweakref(thisFunction(WriteXmlAttrH)), - pre + "orient": makeweakref(thisFunction(WriteXmlAttrOrient)), - pre + "code": makeweakref(thisFunction(WriteXmlAttrCode)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PgSz.Copy(_obj: PgSz);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.W) then - {self.}W := _obj.W; - if not ifnil(_obj.H) then - {self.}H := _obj.H; - if not ifnil(_obj.Orient) then - {self.}Orient := _obj.Orient; - if not ifnil(_obj.Code) then - {self.}Code := _obj.Code; - tslassigning := tslassigning_backup; -end; - -function PgSz.ReadXmlAttrW(); -begin - return {self.}XmlAttrW.Value; -end; - -function PgSz.WriteXmlAttrW(_value); -begin - if ifnil({self.}XmlAttrW) then - begin - {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW; - end - {self.}XmlAttrW.Value := _value; -end; - -function PgSz.ReadXmlAttrH(); -begin - return {self.}XmlAttrH.Value; -end; - -function PgSz.WriteXmlAttrH(_value); -begin - if ifnil({self.}XmlAttrH) then - begin - {self.}XmlAttrH := new OpenXmlAttribute({self.}Prefix, "h", nil); - attributes_[length(attributes_)] := {self.}XmlAttrH; - end - {self.}XmlAttrH.Value := _value; -end; - -function PgSz.ReadXmlAttrOrient(); -begin - return {self.}XmlAttrOrient.Value; -end; - -function PgSz.WriteXmlAttrOrient(_value); -begin - if ifnil({self.}XmlAttrOrient) then - begin - {self.}XmlAttrOrient := new OpenXmlAttribute({self.}Prefix, "orient", nil); - attributes_[length(attributes_)] := {self.}XmlAttrOrient; - end - {self.}XmlAttrOrient.Value := _value; -end; - -function PgSz.ReadXmlAttrCode(); -begin - return {self.}XmlAttrCode.Value; -end; - -function PgSz.WriteXmlAttrCode(_value); -begin - if ifnil({self.}XmlAttrCode) then - begin - {self.}XmlAttrCode := new OpenXmlAttribute({self.}Prefix, "code", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCode; - end - {self.}XmlAttrCode.Value := _value; -end; diff --git a/autoclass/docx/Pic@DOCX.tsf b/autoclass/docx/Pic@DOCX.tsf deleted file mode 100644 index 5bc95ba..0000000 --- a/autoclass/docx/Pic@DOCX.tsf +++ /dev/null @@ -1,125 +0,0 @@ -type Pic = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Pic);override; - -public - - // attributes property - property XmlnsPic read ReadXmlAttrXmlnsPic write WriteXmlAttrXmlnsPic; - function ReadXmlAttrXmlnsPic(); - function WriteXmlAttrXmlnsPic(_value); - - // normal property - property NvPicPr read ReadXmlChildNvPicPr; - property BlipFill read ReadXmlChildBlipFill; - property SpPr read ReadXmlChildSpPr; - function ReadXmlChildNvPicPr(); - function ReadXmlChildBlipFill(); - function ReadXmlChildSpPr(); - -public - // Attributes - XmlAttrXmlnsPic: OpenXmlAttribute; - - // Children - XmlChildNvPicPr: NvPicPr; - XmlChildBlipFill: BlipFill; - XmlChildSpPr: SpPr; - -end; - -function Pic.Create();overload; -begin - {self.}Create(nil, "pic", "pic"); -end; - -function Pic.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Pic.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Pic.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:pic": makeweakref(thisFunction(WriteXmlAttrXmlnsPic)), - ); - sorted_child_ := array( - pre + "nvPicPr": array(0, makeweakref(thisFunction(ReadXmlChildNvPicPr))), - pre + "blipFill": array(1, makeweakref(thisFunction(ReadXmlChildBlipFill))), - pre + "spPr": array(2, makeweakref(thisFunction(ReadXmlChildSpPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Pic.Copy(_obj: Pic);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsPic) then - {self.}XmlnsPic := _obj.XmlnsPic; - if not ifnil(_obj.XmlChildNvPicPr) then - {self.}NvPicPr.Copy(_obj.XmlChildNvPicPr); - if not ifnil(_obj.XmlChildBlipFill) then - {self.}BlipFill.Copy(_obj.XmlChildBlipFill); - if not ifnil(_obj.XmlChildSpPr) then - {self.}SpPr.Copy(_obj.XmlChildSpPr); - tslassigning := tslassigning_backup; -end; - -function Pic.ReadXmlAttrXmlnsPic(); -begin - return {self.}XmlAttrXmlnsPic.Value; -end; - -function Pic.WriteXmlAttrXmlnsPic(_value); -begin - if ifnil({self.}XmlAttrXmlnsPic) then - begin - {self.}XmlAttrXmlnsPic := new OpenXmlAttribute("xmlns", "pic", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsPic; - end - {self.}XmlAttrXmlnsPic.Value := _value; -end; - -function Pic.ReadXmlChildNvPicPr(); -begin - if tslassigning and ifnil({self.}XmlChildNvPicPr) then - begin - {self.}XmlChildNvPicPr := new NvPicPr(self, {self.}Prefix, "nvPicPr"); - container_.Set({self.}XmlChildNvPicPr); - end - return {self.}XmlChildNvPicPr; -end; - -function Pic.ReadXmlChildBlipFill(); -begin - if tslassigning and ifnil({self.}XmlChildBlipFill) then - begin - {self.}XmlChildBlipFill := new BlipFill(self, {self.}Prefix, "blipFill"); - container_.Set({self.}XmlChildBlipFill); - end - return {self.}XmlChildBlipFill; -end; - -function Pic.ReadXmlChildSpPr(); -begin - if tslassigning and ifnil({self.}XmlChildSpPr) then - begin - {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); - container_.Set({self.}XmlChildSpPr); - end - return {self.}XmlChildSpPr; -end; diff --git a/autoclass/docx/PicLocks@DOCX.tsf b/autoclass/docx/PicLocks@DOCX.tsf deleted file mode 100644 index ec6de36..0000000 --- a/autoclass/docx/PicLocks@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type PicLocks = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PicLocks);override; - -public - - // attributes property - property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; - function ReadXmlAttrNoChangeAspect(); - function WriteXmlAttrNoChangeAspect(_value); - -public - // Attributes - XmlAttrNoChangeAspect: OpenXmlAttribute; - - -end; - -function PicLocks.Create();overload; -begin - {self.}Create(nil, "a", "picLocks"); -end; - -function PicLocks.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PicLocks.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PicLocks.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PicLocks.Copy(_obj: PicLocks);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.NoChangeAspect) then - {self.}NoChangeAspect := _obj.NoChangeAspect; - tslassigning := tslassigning_backup; -end; - -function PicLocks.ReadXmlAttrNoChangeAspect(); -begin - return {self.}XmlAttrNoChangeAspect.Value; -end; - -function PicLocks.WriteXmlAttrNoChangeAspect(_value); -begin - if ifnil({self.}XmlAttrNoChangeAspect) then - begin - {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNoChangeAspect; - end - {self.}XmlAttrNoChangeAspect.Value := _value; -end; diff --git a/autoclass/docx/Pict@DOCX.tsf b/autoclass/docx/Pict@DOCX.tsf deleted file mode 100644 index f413b92..0000000 --- a/autoclass/docx/Pict@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type Pict = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Pict);override; - -public - - // normal property - property Shapetype read ReadXmlChildShapetype; - property Shape read ReadXmlChildShape; - function ReadXmlChildShapetype(); - function ReadXmlChildShape(); - -public - // Children - XmlChildShapetype: Shapetype; - XmlChildShape: Shape; - -end; - -function Pict.Create();overload; -begin - {self.}Create(nil, "w", "pict"); -end; - -function Pict.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Pict.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Pict.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "v:shapetype": array(0, makeweakref(thisFunction(ReadXmlChildShapetype))), - "v:shape": array(1, makeweakref(thisFunction(ReadXmlChildShape))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Pict.Copy(_obj: Pict);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildShapetype) then - {self.}Shapetype.Copy(_obj.XmlChildShapetype); - if not ifnil(_obj.XmlChildShape) then - {self.}Shape.Copy(_obj.XmlChildShape); - tslassigning := tslassigning_backup; -end; - -function Pict.ReadXmlChildShapetype(); -begin - if tslassigning and ifnil({self.}XmlChildShapetype) then - begin - {self.}XmlChildShapetype := new Shapetype(self, "v", "shapetype"); - container_.Set({self.}XmlChildShapetype); - end - return {self.}XmlChildShapetype; -end; - -function Pict.ReadXmlChildShape(); -begin - if tslassigning and ifnil({self.}XmlChildShape) then - begin - {self.}XmlChildShape := new Shape(self, "v", "shape"); - container_.Set({self.}XmlChildShape); - end - return {self.}XmlChildShape; -end; diff --git a/autoclass/docx/PlotArea@DOCX.tsf b/autoclass/docx/PlotArea@DOCX.tsf deleted file mode 100644 index ce20877..0000000 --- a/autoclass/docx/PlotArea@DOCX.tsf +++ /dev/null @@ -1,164 +0,0 @@ -type PlotArea = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PlotArea);override; - -public - - // empty property - property Layout read ReadXmlChildLayout write WriteXmlChildLayout; - function ReadXmlChildLayout(); - function WriteXmlChildLayout(_value); - - // normal property - property BarChart read ReadXmlChildBarChart; - property CatAx read ReadXmlChildCatAx; - property ValAx read ReadXmlChildValAx; - property DTable read ReadXmlChildDTable; - property SpPr read ReadXmlChildSpPr; - function ReadXmlChildBarChart(); - function ReadXmlChildCatAx(); - function ReadXmlChildValAx(); - function ReadXmlChildDTable(); - function ReadXmlChildSpPr(); - -public - // Children - XmlChildLayout: OpenXmlEmpty; - XmlChildBarChart: BarChart; - XmlChildCatAx: Ax; - XmlChildValAx: Ax; - XmlChildDTable: DTable; - XmlChildSpPr: SpPr; - -end; - -function PlotArea.Create();overload; -begin - {self.}Create(nil, "c", "plotArea"); -end; - -function PlotArea.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PlotArea.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PlotArea.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "layout": array(0, makeweakref(thisFunction(ReadXmlChildLayout))), - pre + "barChart": array(1, makeweakref(thisFunction(ReadXmlChildBarChart))), - pre + "catAx": array(2, makeweakref(thisFunction(ReadXmlChildCatAx))), - pre + "ValAx": array(3, makeweakref(thisFunction(ReadXmlChildValAx))), - pre + "dTable": array(4, makeweakref(thisFunction(ReadXmlChildDTable))), - pre + "SpPr": array(5, makeweakref(thisFunction(ReadXmlChildSpPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PlotArea.Copy(_obj: PlotArea);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildLayout) then - ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); - if not ifnil(_obj.XmlChildBarChart) then - {self.}BarChart.Copy(_obj.XmlChildBarChart); - if not ifnil(_obj.XmlChildCatAx) then - {self.}CatAx.Copy(_obj.XmlChildCatAx); - if not ifnil(_obj.XmlChildValAx) then - {self.}ValAx.Copy(_obj.XmlChildValAx); - if not ifnil(_obj.XmlChildDTable) then - {self.}DTable.Copy(_obj.XmlChildDTable); - if not ifnil(_obj.XmlChildSpPr) then - {self.}SpPr.Copy(_obj.XmlChildSpPr); - tslassigning := tslassigning_backup; -end; - -function PlotArea.ReadXmlChildLayout(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildLayout) then - begin - {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); - container_.Set({self.}XmlChildLayout); - end - return {self.}XmlChildLayout; - end - return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); -end; - -function PlotArea.WriteXmlChildLayout(_value); -begin - if ifnil({self.}XmlChildLayout) then - begin - {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); - container_.Set({self.}XmlChildLayout); - end - {self.}XmlChildLayout.Value := _value; -end; - -function PlotArea.ReadXmlChildBarChart(); -begin - if tslassigning and ifnil({self.}XmlChildBarChart) then - begin - {self.}XmlChildBarChart := new BarChart(self, {self.}Prefix, "barChart"); - container_.Set({self.}XmlChildBarChart); - end - return {self.}XmlChildBarChart; -end; - -function PlotArea.ReadXmlChildCatAx(); -begin - if tslassigning and ifnil({self.}XmlChildCatAx) then - begin - {self.}XmlChildCatAx := new Ax(self, {self.}Prefix, "catAx"); - container_.Set({self.}XmlChildCatAx); - end - return {self.}XmlChildCatAx; -end; - -function PlotArea.ReadXmlChildValAx(); -begin - if tslassigning and ifnil({self.}XmlChildValAx) then - begin - {self.}XmlChildValAx := new Ax(self, {self.}Prefix, "ValAx"); - container_.Set({self.}XmlChildValAx); - end - return {self.}XmlChildValAx; -end; - -function PlotArea.ReadXmlChildDTable(); -begin - if tslassigning and ifnil({self.}XmlChildDTable) then - begin - {self.}XmlChildDTable := new DTable(self, {self.}Prefix, "dTable"); - container_.Set({self.}XmlChildDTable); - end - return {self.}XmlChildDTable; -end; - -function PlotArea.ReadXmlChildSpPr(); -begin - if tslassigning and ifnil({self.}XmlChildSpPr) then - begin - {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "SpPr"); - container_.Set({self.}XmlChildSpPr); - end - return {self.}XmlChildSpPr; -end; diff --git a/autoclass/docx/PositionH@DOCX.tsf b/autoclass/docx/PositionH@DOCX.tsf deleted file mode 100644 index 7de6292..0000000 --- a/autoclass/docx/PositionH@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type PositionH = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PositionH);override; - -public - - // attributes property - property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; - function ReadXmlAttrRelativeFrom(); - function WriteXmlAttrRelativeFrom(_value); - - // pcdata property - property PosOffset read ReadXmlChildPosOffset; - function ReadXmlChildPosOffset(); - -public - // Attributes - XmlAttrRelativeFrom: OpenXmlAttribute; - - // Children - XmlChildPosOffset: OpenXmlPcdata; - -end; - -function PositionH.Create();overload; -begin - {self.}Create(nil, "wp", "positionH"); -end; - -function PositionH.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PositionH.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PositionH.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), - ); - sorted_child_ := array( - pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PositionH.Copy(_obj: PositionH);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.RelativeFrom) then - {self.}RelativeFrom := _obj.RelativeFrom; - if not ifnil(_obj.XmlChildPosOffset) then - {self.}PosOffset.Copy(_obj.XmlChildPosOffset); - tslassigning := tslassigning_backup; -end; - -function PositionH.ReadXmlAttrRelativeFrom(); -begin - return {self.}XmlAttrRelativeFrom.Value; -end; - -function PositionH.WriteXmlAttrRelativeFrom(_value); -begin - if ifnil({self.}XmlAttrRelativeFrom) then - begin - {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; - end - {self.}XmlAttrRelativeFrom.Value := _value; -end; - -function PositionH.ReadXmlChildPosOffset(); -begin - if tslassigning and ifnil({self.}XmlChildPosOffset) then - begin - {self.}XmlChildPosOffset := new OpenXmlPcdata(self, {self.}Prefix, "posOffset"); - container_.Set({self.}XmlChildPosOffset); - end - return {self.}XmlChildPosOffset; -end; diff --git a/autoclass/docx/PositionV@DOCX.tsf b/autoclass/docx/PositionV@DOCX.tsf deleted file mode 100644 index 493b553..0000000 --- a/autoclass/docx/PositionV@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type PositionV = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PositionV);override; - -public - - // attributes property - property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; - function ReadXmlAttrRelativeFrom(); - function WriteXmlAttrRelativeFrom(_value); - - // pcdata property - property PosOffset read ReadXmlChildPosOffset; - function ReadXmlChildPosOffset(); - -public - // Attributes - XmlAttrRelativeFrom: OpenXmlAttribute; - - // Children - XmlChildPosOffset: OpenXmlPcdata; - -end; - -function PositionV.Create();overload; -begin - {self.}Create(nil, "wp", "positionV"); -end; - -function PositionV.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PositionV.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PositionV.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), - ); - sorted_child_ := array( - pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PositionV.Copy(_obj: PositionV);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.RelativeFrom) then - {self.}RelativeFrom := _obj.RelativeFrom; - if not ifnil(_obj.XmlChildPosOffset) then - {self.}PosOffset.Copy(_obj.XmlChildPosOffset); - tslassigning := tslassigning_backup; -end; - -function PositionV.ReadXmlAttrRelativeFrom(); -begin - return {self.}XmlAttrRelativeFrom.Value; -end; - -function PositionV.WriteXmlAttrRelativeFrom(_value); -begin - if ifnil({self.}XmlAttrRelativeFrom) then - begin - {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; - end - {self.}XmlAttrRelativeFrom.Value := _value; -end; - -function PositionV.ReadXmlChildPosOffset(); -begin - if tslassigning and ifnil({self.}XmlChildPosOffset) then - begin - {self.}XmlChildPosOffset := new OpenXmlPcdata(self, {self.}Prefix, "posOffset"); - container_.Set({self.}XmlChildPosOffset); - end - return {self.}XmlChildPosOffset; -end; diff --git a/autoclass/docx/Properties@DOCX.tsf b/autoclass/docx/Properties@DOCX.tsf deleted file mode 100644 index 38dcae8..0000000 --- a/autoclass/docx/Properties@DOCX.tsf +++ /dev/null @@ -1,355 +0,0 @@ -type Properties = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Properties);override; - -public - - // attributes property - property Xmlns read ReadXmlAttrXmlns write WriteXmlAttrXmlns; - property XmlnsVt read ReadXmlAttrXmlnsVt write WriteXmlAttrXmlnsVt; - function ReadXmlAttrXmlns(); - function WriteXmlAttrXmlns(_value); - function ReadXmlAttrXmlnsVt(); - function WriteXmlAttrXmlnsVt(_value); - - // pcdata property - property Template read ReadXmlChildTemplate; - property TotalTime read ReadXmlChildTotalTime; - property Pages read ReadXmlChildPages; - property Words read ReadXmlChildWords; - property Characters read ReadXmlChildCharacters; - property Application read ReadXmlChildApplication; - property DocSecurity read ReadXmlChildDocSecurity; - property Lines read ReadXmlChildLines; - property Paragraphs read ReadXmlChildParagraphs; - property ScaleCrop read ReadXmlChildScaleCrop; - property Company read ReadXmlChildCompany; - property LinksUpToDate read ReadXmlChildLinksUpToDate; - property CharactersWithSpaces read ReadXmlChildCharactersWithSpaces; - property SharedDoc read ReadXmlChildSharedDoc; - property HyperlinksChanged read ReadXmlChildHyperlinksChanged; - property AppVersion read ReadXmlChildAppVersion; - function ReadXmlChildTemplate(); - function ReadXmlChildTotalTime(); - function ReadXmlChildPages(); - function ReadXmlChildWords(); - function ReadXmlChildCharacters(); - function ReadXmlChildApplication(); - function ReadXmlChildDocSecurity(); - function ReadXmlChildLines(); - function ReadXmlChildParagraphs(); - function ReadXmlChildScaleCrop(); - function ReadXmlChildCompany(); - function ReadXmlChildLinksUpToDate(); - function ReadXmlChildCharactersWithSpaces(); - function ReadXmlChildSharedDoc(); - function ReadXmlChildHyperlinksChanged(); - function ReadXmlChildAppVersion(); - -public - // Attributes - XmlAttrXmlns: OpenXmlAttribute; - XmlAttrXmlnsVt: OpenXmlAttribute; - - // Children - XmlChildTemplate: OpenXmlPcdata; - XmlChildTotalTime: OpenXmlPcdata; - XmlChildPages: OpenXmlPcdata; - XmlChildWords: OpenXmlPcdata; - XmlChildCharacters: OpenXmlPcdata; - XmlChildApplication: OpenXmlPcdata; - XmlChildDocSecurity: OpenXmlPcdata; - XmlChildLines: OpenXmlPcdata; - XmlChildParagraphs: OpenXmlPcdata; - XmlChildScaleCrop: OpenXmlPcdata; - XmlChildCompany: OpenXmlPcdata; - XmlChildLinksUpToDate: OpenXmlPcdata; - XmlChildCharactersWithSpaces: OpenXmlPcdata; - XmlChildSharedDoc: OpenXmlPcdata; - XmlChildHyperlinksChanged: OpenXmlPcdata; - XmlChildAppVersion: OpenXmlPcdata; - -end; - -function Properties.Create();overload; -begin - {self.}Create(nil, "", "Properties"); -end; - -function Properties.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Properties.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Properties.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns": makeweakref(thisFunction(WriteXmlAttrXmlns)), - "xmlns:vt": makeweakref(thisFunction(WriteXmlAttrXmlnsVt)), - ); - sorted_child_ := array( - "Template": array(0, makeweakref(thisFunction(ReadXmlChildTemplate))), - "TotalTime": array(1, makeweakref(thisFunction(ReadXmlChildTotalTime))), - "Pages": array(2, makeweakref(thisFunction(ReadXmlChildPages))), - "Words": array(3, makeweakref(thisFunction(ReadXmlChildWords))), - "Characters": array(4, makeweakref(thisFunction(ReadXmlChildCharacters))), - "Application": array(5, makeweakref(thisFunction(ReadXmlChildApplication))), - "DocSecurity": array(6, makeweakref(thisFunction(ReadXmlChildDocSecurity))), - "Lines": array(7, makeweakref(thisFunction(ReadXmlChildLines))), - "Paragraphs": array(8, makeweakref(thisFunction(ReadXmlChildParagraphs))), - "ScaleCrop": array(9, makeweakref(thisFunction(ReadXmlChildScaleCrop))), - "Company": array(10, makeweakref(thisFunction(ReadXmlChildCompany))), - "LinksUpToDate": array(11, makeweakref(thisFunction(ReadXmlChildLinksUpToDate))), - "charactersWithSpaces": array(12, makeweakref(thisFunction(ReadXmlChildCharactersWithSpaces))), - "SharedDoc": array(13, makeweakref(thisFunction(ReadXmlChildSharedDoc))), - "HyperlinksChanged": array(14, makeweakref(thisFunction(ReadXmlChildHyperlinksChanged))), - "AppVersion": array(15, makeweakref(thisFunction(ReadXmlChildAppVersion))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Properties.Copy(_obj: Properties);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Xmlns) then - {self.}Xmlns := _obj.Xmlns; - if not ifnil(_obj.XmlnsVt) then - {self.}XmlnsVt := _obj.XmlnsVt; - if not ifnil(_obj.XmlChildTemplate) then - {self.}Template.Copy(_obj.XmlChildTemplate); - if not ifnil(_obj.XmlChildTotalTime) then - {self.}TotalTime.Copy(_obj.XmlChildTotalTime); - if not ifnil(_obj.XmlChildPages) then - {self.}Pages.Copy(_obj.XmlChildPages); - if not ifnil(_obj.XmlChildWords) then - {self.}Words.Copy(_obj.XmlChildWords); - if not ifnil(_obj.XmlChildCharacters) then - {self.}Characters.Copy(_obj.XmlChildCharacters); - if not ifnil(_obj.XmlChildApplication) then - {self.}Application.Copy(_obj.XmlChildApplication); - if not ifnil(_obj.XmlChildDocSecurity) then - {self.}DocSecurity.Copy(_obj.XmlChildDocSecurity); - if not ifnil(_obj.XmlChildLines) then - {self.}Lines.Copy(_obj.XmlChildLines); - if not ifnil(_obj.XmlChildParagraphs) then - {self.}Paragraphs.Copy(_obj.XmlChildParagraphs); - if not ifnil(_obj.XmlChildScaleCrop) then - {self.}ScaleCrop.Copy(_obj.XmlChildScaleCrop); - if not ifnil(_obj.XmlChildCompany) then - {self.}Company.Copy(_obj.XmlChildCompany); - if not ifnil(_obj.XmlChildLinksUpToDate) then - {self.}LinksUpToDate.Copy(_obj.XmlChildLinksUpToDate); - if not ifnil(_obj.XmlChildCharactersWithSpaces) then - {self.}CharactersWithSpaces.Copy(_obj.XmlChildCharactersWithSpaces); - if not ifnil(_obj.XmlChildSharedDoc) then - {self.}SharedDoc.Copy(_obj.XmlChildSharedDoc); - if not ifnil(_obj.XmlChildHyperlinksChanged) then - {self.}HyperlinksChanged.Copy(_obj.XmlChildHyperlinksChanged); - if not ifnil(_obj.XmlChildAppVersion) then - {self.}AppVersion.Copy(_obj.XmlChildAppVersion); - tslassigning := tslassigning_backup; -end; - -function Properties.ReadXmlAttrXmlns(); -begin - return {self.}XmlAttrXmlns.Value; -end; - -function Properties.WriteXmlAttrXmlns(_value); -begin - if ifnil({self.}XmlAttrXmlns) then - begin - {self.}XmlAttrXmlns := new OpenXmlAttribute("", "xmlns", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlns; - end - {self.}XmlAttrXmlns.Value := _value; -end; - -function Properties.ReadXmlAttrXmlnsVt(); -begin - return {self.}XmlAttrXmlnsVt.Value; -end; - -function Properties.WriteXmlAttrXmlnsVt(_value); -begin - if ifnil({self.}XmlAttrXmlnsVt) then - begin - {self.}XmlAttrXmlnsVt := new OpenXmlAttribute("xmlns", "vt", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsVt; - end - {self.}XmlAttrXmlnsVt.Value := _value; -end; - -function Properties.ReadXmlChildTemplate(); -begin - if tslassigning and ifnil({self.}XmlChildTemplate) then - begin - {self.}XmlChildTemplate := new OpenXmlPcdata(self, "", "Template"); - container_.Set({self.}XmlChildTemplate); - end - return {self.}XmlChildTemplate; -end; - -function Properties.ReadXmlChildTotalTime(); -begin - if tslassigning and ifnil({self.}XmlChildTotalTime) then - begin - {self.}XmlChildTotalTime := new OpenXmlPcdata(self, "", "TotalTime"); - container_.Set({self.}XmlChildTotalTime); - end - return {self.}XmlChildTotalTime; -end; - -function Properties.ReadXmlChildPages(); -begin - if tslassigning and ifnil({self.}XmlChildPages) then - begin - {self.}XmlChildPages := new OpenXmlPcdata(self, "", "Pages"); - container_.Set({self.}XmlChildPages); - end - return {self.}XmlChildPages; -end; - -function Properties.ReadXmlChildWords(); -begin - if tslassigning and ifnil({self.}XmlChildWords) then - begin - {self.}XmlChildWords := new OpenXmlPcdata(self, "", "Words"); - container_.Set({self.}XmlChildWords); - end - return {self.}XmlChildWords; -end; - -function Properties.ReadXmlChildCharacters(); -begin - if tslassigning and ifnil({self.}XmlChildCharacters) then - begin - {self.}XmlChildCharacters := new OpenXmlPcdata(self, "", "Characters"); - container_.Set({self.}XmlChildCharacters); - end - return {self.}XmlChildCharacters; -end; - -function Properties.ReadXmlChildApplication(); -begin - if tslassigning and ifnil({self.}XmlChildApplication) then - begin - {self.}XmlChildApplication := new OpenXmlPcdata(self, "", "Application"); - container_.Set({self.}XmlChildApplication); - end - return {self.}XmlChildApplication; -end; - -function Properties.ReadXmlChildDocSecurity(); -begin - if tslassigning and ifnil({self.}XmlChildDocSecurity) then - begin - {self.}XmlChildDocSecurity := new OpenXmlPcdata(self, "", "DocSecurity"); - container_.Set({self.}XmlChildDocSecurity); - end - return {self.}XmlChildDocSecurity; -end; - -function Properties.ReadXmlChildLines(); -begin - if tslassigning and ifnil({self.}XmlChildLines) then - begin - {self.}XmlChildLines := new OpenXmlPcdata(self, "", "Lines"); - container_.Set({self.}XmlChildLines); - end - return {self.}XmlChildLines; -end; - -function Properties.ReadXmlChildParagraphs(); -begin - if tslassigning and ifnil({self.}XmlChildParagraphs) then - begin - {self.}XmlChildParagraphs := new OpenXmlPcdata(self, "", "Paragraphs"); - container_.Set({self.}XmlChildParagraphs); - end - return {self.}XmlChildParagraphs; -end; - -function Properties.ReadXmlChildScaleCrop(); -begin - if tslassigning and ifnil({self.}XmlChildScaleCrop) then - begin - {self.}XmlChildScaleCrop := new OpenXmlPcdata(self, "", "ScaleCrop"); - container_.Set({self.}XmlChildScaleCrop); - end - return {self.}XmlChildScaleCrop; -end; - -function Properties.ReadXmlChildCompany(); -begin - if tslassigning and ifnil({self.}XmlChildCompany) then - begin - {self.}XmlChildCompany := new OpenXmlPcdata(self, "", "Company"); - container_.Set({self.}XmlChildCompany); - end - return {self.}XmlChildCompany; -end; - -function Properties.ReadXmlChildLinksUpToDate(); -begin - if tslassigning and ifnil({self.}XmlChildLinksUpToDate) then - begin - {self.}XmlChildLinksUpToDate := new OpenXmlPcdata(self, "", "LinksUpToDate"); - container_.Set({self.}XmlChildLinksUpToDate); - end - return {self.}XmlChildLinksUpToDate; -end; - -function Properties.ReadXmlChildCharactersWithSpaces(); -begin - if tslassigning and ifnil({self.}XmlChildCharactersWithSpaces) then - begin - {self.}XmlChildCharactersWithSpaces := new OpenXmlPcdata(self, "", "charactersWithSpaces"); - container_.Set({self.}XmlChildCharactersWithSpaces); - end - return {self.}XmlChildCharactersWithSpaces; -end; - -function Properties.ReadXmlChildSharedDoc(); -begin - if tslassigning and ifnil({self.}XmlChildSharedDoc) then - begin - {self.}XmlChildSharedDoc := new OpenXmlPcdata(self, "", "SharedDoc"); - container_.Set({self.}XmlChildSharedDoc); - end - return {self.}XmlChildSharedDoc; -end; - -function Properties.ReadXmlChildHyperlinksChanged(); -begin - if tslassigning and ifnil({self.}XmlChildHyperlinksChanged) then - begin - {self.}XmlChildHyperlinksChanged := new OpenXmlPcdata(self, "", "HyperlinksChanged"); - container_.Set({self.}XmlChildHyperlinksChanged); - end - return {self.}XmlChildHyperlinksChanged; -end; - -function Properties.ReadXmlChildAppVersion(); -begin - if tslassigning and ifnil({self.}XmlChildAppVersion) then - begin - {self.}XmlChildAppVersion := new OpenXmlPcdata(self, "", "AppVersion"); - container_.Set({self.}XmlChildAppVersion); - end - return {self.}XmlChildAppVersion; -end; diff --git a/autoclass/docx/PrstGeom@DOCX.tsf b/autoclass/docx/PrstGeom@DOCX.tsf deleted file mode 100644 index a34c16c..0000000 --- a/autoclass/docx/PrstGeom@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type PrstGeom = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PrstGeom);override; - -public - - // attributes property - property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; - function ReadXmlAttrPrst(); - function WriteXmlAttrPrst(_value); - - // normal property - property AvLst read ReadXmlChildAvLst; - function ReadXmlChildAvLst(); - -public - // Attributes - XmlAttrPrst: OpenXmlAttribute; - - // Children - XmlChildAvLst: PureVal; - -end; - -function PrstGeom.Create();overload; -begin - {self.}Create(nil, "a", "prstGeom"); -end; - -function PrstGeom.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PrstGeom.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PrstGeom.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "prst": makeweakref(thisFunction(WriteXmlAttrPrst)), - ); - sorted_child_ := array( - pre + "avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PrstGeom.Copy(_obj: PrstGeom);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Prst) then - {self.}Prst := _obj.Prst; - if not ifnil(_obj.XmlChildAvLst) then - {self.}AvLst.Copy(_obj.XmlChildAvLst); - tslassigning := tslassigning_backup; -end; - -function PrstGeom.ReadXmlAttrPrst(); -begin - return {self.}XmlAttrPrst.Value; -end; - -function PrstGeom.WriteXmlAttrPrst(_value); -begin - if ifnil({self.}XmlAttrPrst) then - begin - {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPrst; - end - {self.}XmlAttrPrst.Value := _value; -end; - -function PrstGeom.ReadXmlChildAvLst(); -begin - if tslassigning and ifnil({self.}XmlChildAvLst) then - begin - {self.}XmlChildAvLst := new PureVal(self, {self.}Prefix, "avLst"); - container_.Set({self.}XmlChildAvLst); - end - return {self.}XmlChildAvLst; -end; diff --git a/autoclass/docx/PrstTxWrap@DOCX.tsf b/autoclass/docx/PrstTxWrap@DOCX.tsf deleted file mode 100644 index 5746c8d..0000000 --- a/autoclass/docx/PrstTxWrap@DOCX.tsf +++ /dev/null @@ -1,108 +0,0 @@ -type PrstTxWrap = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PrstTxWrap);override; - -public - - // attributes property - property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; - function ReadXmlAttrPrst(); - function WriteXmlAttrPrst(_value); - - // empty property - property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst; - function ReadXmlChildAvLst(); - function WriteXmlChildAvLst(_value); - -public - // Attributes - XmlAttrPrst: OpenXmlAttribute; - - // Children - XmlChildAvLst: OpenXmlEmpty; - -end; - -function PrstTxWrap.Create();overload; -begin - {self.}Create(nil, "a", "prstTxWrap"); -end; - -function PrstTxWrap.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PrstTxWrap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PrstTxWrap.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "prst": makeweakref(thisFunction(WriteXmlAttrPrst)), - ); - sorted_child_ := array( - "a:avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PrstTxWrap.Copy(_obj: PrstTxWrap);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Prst) then - {self.}Prst := _obj.Prst; - if not ifnil(_obj.XmlChildAvLst) then - ifnil({self.}XmlChildAvLst) ? {self.}AvLst.Copy(_obj.XmlChildAvLst) : {self.}XmlChildAvLst.Copy(_obj.XmlChildAvLst); - tslassigning := tslassigning_backup; -end; - -function PrstTxWrap.ReadXmlAttrPrst(); -begin - return {self.}XmlAttrPrst.Value; -end; - -function PrstTxWrap.WriteXmlAttrPrst(_value); -begin - if ifnil({self.}XmlAttrPrst) then - begin - {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPrst; - end - {self.}XmlAttrPrst.Value := _value; -end; - -function PrstTxWrap.ReadXmlChildAvLst(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildAvLst) then - begin - {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); - container_.Set({self.}XmlChildAvLst); - end - return {self.}XmlChildAvLst; - end - return ifnil({self.}XmlChildAvLst) ? nil : {self.}XmlChildAvLst.BoolValue(); -end; - -function PrstTxWrap.WriteXmlChildAvLst(_value); -begin - if ifnil({self.}XmlChildAvLst) then - begin - {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); - container_.Set({self.}XmlChildAvLst); - end - {self.}XmlChildAvLst.Value := _value; -end; diff --git a/autoclass/docx/Pt@DOCX.tsf b/autoclass/docx/Pt@DOCX.tsf deleted file mode 100644 index 45b9f53..0000000 --- a/autoclass/docx/Pt@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type Pt = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Pt);override; - -public - - // attributes property - property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; - function ReadXmlAttrIdx(); - function WriteXmlAttrIdx(_value); - - // pcdata property - property V read ReadXmlChildV; - function ReadXmlChildV(); - -public - // Attributes - XmlAttrIdx: OpenXmlAttribute; - - // Children - XmlChildV: OpenXmlPcdata; - -end; - -function Pt.Create();overload; -begin - {self.}Create(nil, "c", "pt"); -end; - -function Pt.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Pt.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Pt.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "idx": makeweakref(thisFunction(WriteXmlAttrIdx)), - ); - sorted_child_ := array( - pre + "v": array(0, makeweakref(thisFunction(ReadXmlChildV))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Pt.Copy(_obj: Pt);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Idx) then - {self.}Idx := _obj.Idx; - if not ifnil(_obj.XmlChildV) then - {self.}V.Copy(_obj.XmlChildV); - tslassigning := tslassigning_backup; -end; - -function Pt.ReadXmlAttrIdx(); -begin - return {self.}XmlAttrIdx.Value; -end; - -function Pt.WriteXmlAttrIdx(_value); -begin - if ifnil({self.}XmlAttrIdx) then - begin - {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); - attributes_[length(attributes_)] := {self.}XmlAttrIdx; - end - {self.}XmlAttrIdx.Value := _value; -end; - -function Pt.ReadXmlChildV(); -begin - if tslassigning and ifnil({self.}XmlChildV) then - begin - {self.}XmlChildV := new OpenXmlPcdata(self, {self.}Prefix, "v"); - container_.Set({self.}XmlChildV); - end - return {self.}XmlChildV; -end; diff --git a/autoclass/docx/PureVal@DOCX.tsf b/autoclass/docx/PureVal@DOCX.tsf deleted file mode 100644 index 8e66484..0000000 --- a/autoclass/docx/PureVal@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type PureVal = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PureVal);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - - -end; - -function PureVal.Create();overload; -begin - {self.}Create(nil, "", ""); -end; - -function PureVal.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PureVal.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PureVal.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PureVal.Copy(_obj: PureVal);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - tslassigning := tslassigning_backup; -end; - -function PureVal.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function PureVal.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; diff --git a/autoclass/docx/PureWVal@DOCX.tsf b/autoclass/docx/PureWVal@DOCX.tsf deleted file mode 100644 index 2943e93..0000000 --- a/autoclass/docx/PureWVal@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type PureWVal = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: PureWVal);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - - -end; - -function PureWVal.Create();overload; -begin - {self.}Create(nil, "", ""); -end; - -function PureWVal.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function PureWVal.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function PureWVal.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function PureWVal.Copy(_obj: PureWVal);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - tslassigning := tslassigning_backup; -end; - -function PureWVal.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function PureWVal.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; diff --git a/autoclass/docx/R@DOCX.tsf b/autoclass/docx/R@DOCX.tsf deleted file mode 100644 index 2ff81a1..0000000 --- a/autoclass/docx/R@DOCX.tsf +++ /dev/null @@ -1,391 +0,0 @@ -type R = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: R);override; - -public - - // attributes property - property WRsidRPr read ReadXmlAttrWRsidRPr write WriteXmlAttrWRsidRPr; - property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; - property History read ReadXmlAttrHistory write WriteXmlAttrHistory; - function ReadXmlAttrWRsidRPr(); - function WriteXmlAttrWRsidRPr(_value); - function ReadXmlAttrAnchor(); - function WriteXmlAttrAnchor(_value); - function ReadXmlAttrHistory(); - function WriteXmlAttrHistory(_value); - - // empty property - property Separator read ReadXmlChildSeparator write WriteXmlChildSeparator; - property ContinuationSeparator read ReadXmlChildContinuationSeparator write WriteXmlChildContinuationSeparator; - property LastRenderedPageBreak read ReadXmlChildLastRenderedPageBreak write WriteXmlChildLastRenderedPageBreak; - property FootnoteRef read ReadXmlChildFootnoteRef write WriteXmlChildFootnoteRef; - function ReadXmlChildSeparator(); - function WriteXmlChildSeparator(_value); - function ReadXmlChildContinuationSeparator(); - function WriteXmlChildContinuationSeparator(_value); - function ReadXmlChildLastRenderedPageBreak(); - function WriteXmlChildLastRenderedPageBreak(_value); - function ReadXmlChildFootnoteRef(); - function WriteXmlChildFootnoteRef(_value); - - // normal property - property RPr read ReadXmlChildRPr; - property Br read ReadXmlChildBr; - property FldChar read ReadXmlChildFldChar; - property InstrText read ReadXmlChildInstrText; - property AlternateContent read ReadXmlChildAlternateContent; - property Drawing read ReadXmlChildDrawing; - property T read ReadXmlChildT; - property Object read ReadXmlChildObject; - property FootnoteReference read ReadXmlChildFootnoteReference; - function ReadXmlChildRPr(); - function ReadXmlChildBr(); - function ReadXmlChildFldChar(); - function ReadXmlChildInstrText(); - function ReadXmlChildAlternateContent(); - function ReadXmlChildDrawing(); - function ReadXmlChildT(); - function ReadXmlChildObject(); - function ReadXmlChildFootnoteReference(); - -public - // Attributes - XmlAttrWRsidRPr: OpenXmlAttribute; - XmlAttrAnchor: OpenXmlAttribute; - XmlAttrHistory: OpenXmlAttribute; - - // Children - XmlChildRPr: RPr; - XmlChildBr: Br; - XmlChildFldChar: FldChar; - XmlChildInstrText: InstrText; - XmlChildSeparator: OpenXmlEmpty; - XmlChildContinuationSeparator: OpenXmlEmpty; - XmlChildLastRenderedPageBreak: OpenXmlEmpty; - XmlChildAlternateContent: AlternateContent; - XmlChildDrawing: Drawing; - XmlChildT: T; - XmlChildObject: Object; - XmlChildFootnoteReference: FootnoteReference; - XmlChildFootnoteRef: OpenXmlEmpty; - -end; - -function R.Create();overload; -begin - {self.}Create(nil, "w", "r"); -end; - -function R.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function R.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function R.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w:rsidRPr": makeweakref(thisFunction(WriteXmlAttrWRsidRPr)), - "w:anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)), - "w:history": makeweakref(thisFunction(WriteXmlAttrHistory)), - ); - sorted_child_ := array( - pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), - pre + "br": array(1, makeweakref(thisFunction(ReadXmlChildBr))), - pre + "fldChar": array(2, makeweakref(thisFunction(ReadXmlChildFldChar))), - pre + "instrText": array(3, makeweakref(thisFunction(ReadXmlChildInstrText))), - pre + "separator": array(4, makeweakref(thisFunction(ReadXmlChildSeparator))), - pre + "continuationSeparator": array(5, makeweakref(thisFunction(ReadXmlChildContinuationSeparator))), - pre + "lastRenderedPageBreak": array(6, makeweakref(thisFunction(ReadXmlChildLastRenderedPageBreak))), - "mc:AlternateContent": array(7, makeweakref(thisFunction(ReadXmlChildAlternateContent))), - pre + "drawing": array(8, makeweakref(thisFunction(ReadXmlChildDrawing))), - pre + "t": array(9, makeweakref(thisFunction(ReadXmlChildT))), - pre + "object": array(10, makeweakref(thisFunction(ReadXmlChildObject))), - pre + "footnoteReference": array(11, makeweakref(thisFunction(ReadXmlChildFootnoteReference))), - pre + "footnoteRef": array(12, makeweakref(thisFunction(ReadXmlChildFootnoteRef))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function R.Copy(_obj: R);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.WRsidRPr) then - {self.}WRsidRPr := _obj.WRsidRPr; - if not ifnil(_obj.Anchor) then - {self.}Anchor := _obj.Anchor; - if not ifnil(_obj.History) then - {self.}History := _obj.History; - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - if not ifnil(_obj.XmlChildBr) then - {self.}Br.Copy(_obj.XmlChildBr); - if not ifnil(_obj.XmlChildFldChar) then - {self.}FldChar.Copy(_obj.XmlChildFldChar); - if not ifnil(_obj.XmlChildInstrText) then - {self.}InstrText.Copy(_obj.XmlChildInstrText); - if not ifnil(_obj.XmlChildSeparator) then - ifnil({self.}XmlChildSeparator) ? {self.}Separator.Copy(_obj.XmlChildSeparator) : {self.}XmlChildSeparator.Copy(_obj.XmlChildSeparator); - if not ifnil(_obj.XmlChildContinuationSeparator) then - ifnil({self.}XmlChildContinuationSeparator) ? {self.}ContinuationSeparator.Copy(_obj.XmlChildContinuationSeparator) : {self.}XmlChildContinuationSeparator.Copy(_obj.XmlChildContinuationSeparator); - if not ifnil(_obj.XmlChildLastRenderedPageBreak) then - ifnil({self.}XmlChildLastRenderedPageBreak) ? {self.}LastRenderedPageBreak.Copy(_obj.XmlChildLastRenderedPageBreak) : {self.}XmlChildLastRenderedPageBreak.Copy(_obj.XmlChildLastRenderedPageBreak); - if not ifnil(_obj.XmlChildAlternateContent) then - {self.}AlternateContent.Copy(_obj.XmlChildAlternateContent); - if not ifnil(_obj.XmlChildDrawing) then - {self.}Drawing.Copy(_obj.XmlChildDrawing); - if not ifnil(_obj.XmlChildT) then - {self.}T.Copy(_obj.XmlChildT); - if not ifnil(_obj.XmlChildObject) then - {self.}Object.Copy(_obj.XmlChildObject); - if not ifnil(_obj.XmlChildFootnoteReference) then - {self.}FootnoteReference.Copy(_obj.XmlChildFootnoteReference); - if not ifnil(_obj.XmlChildFootnoteRef) then - ifnil({self.}XmlChildFootnoteRef) ? {self.}FootnoteRef.Copy(_obj.XmlChildFootnoteRef) : {self.}XmlChildFootnoteRef.Copy(_obj.XmlChildFootnoteRef); - tslassigning := tslassigning_backup; -end; - -function R.ReadXmlAttrWRsidRPr(); -begin - return {self.}XmlAttrWRsidRPr.Value; -end; - -function R.WriteXmlAttrWRsidRPr(_value); -begin - if ifnil({self.}XmlAttrWRsidRPr) then - begin - {self.}XmlAttrWRsidRPr := new OpenXmlAttribute("w", "rsidRPr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidRPr; - end - {self.}XmlAttrWRsidRPr.Value := _value; -end; - -function R.ReadXmlAttrAnchor(); -begin - return {self.}XmlAttrAnchor.Value; -end; - -function R.WriteXmlAttrAnchor(_value); -begin - if ifnil({self.}XmlAttrAnchor) then - begin - {self.}XmlAttrAnchor := new OpenXmlAttribute("w", "anchor", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchor; - end - {self.}XmlAttrAnchor.Value := _value; -end; - -function R.ReadXmlAttrHistory(); -begin - return {self.}XmlAttrHistory.Value; -end; - -function R.WriteXmlAttrHistory(_value); -begin - if ifnil({self.}XmlAttrHistory) then - begin - {self.}XmlAttrHistory := new OpenXmlAttribute("w", "history", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHistory; - end - {self.}XmlAttrHistory.Value := _value; -end; - -function R.ReadXmlChildSeparator(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildSeparator) then - begin - {self.}XmlChildSeparator := new OpenXmlEmpty(self, {self.}Prefix, "separator"); - container_.Set({self.}XmlChildSeparator); - end - return {self.}XmlChildSeparator; - end - return ifnil({self.}XmlChildSeparator) ? nil : {self.}XmlChildSeparator.BoolValue(); -end; - -function R.WriteXmlChildSeparator(_value); -begin - if ifnil({self.}XmlChildSeparator) then - begin - {self.}XmlChildSeparator := new OpenXmlEmpty(self, {self.}Prefix, "separator"); - container_.Set({self.}XmlChildSeparator); - end - {self.}XmlChildSeparator.Value := _value; -end; - -function R.ReadXmlChildContinuationSeparator(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildContinuationSeparator) then - begin - {self.}XmlChildContinuationSeparator := new OpenXmlEmpty(self, {self.}Prefix, "continuationSeparator"); - container_.Set({self.}XmlChildContinuationSeparator); - end - return {self.}XmlChildContinuationSeparator; - end - return ifnil({self.}XmlChildContinuationSeparator) ? nil : {self.}XmlChildContinuationSeparator.BoolValue(); -end; - -function R.WriteXmlChildContinuationSeparator(_value); -begin - if ifnil({self.}XmlChildContinuationSeparator) then - begin - {self.}XmlChildContinuationSeparator := new OpenXmlEmpty(self, {self.}Prefix, "continuationSeparator"); - container_.Set({self.}XmlChildContinuationSeparator); - end - {self.}XmlChildContinuationSeparator.Value := _value; -end; - -function R.ReadXmlChildLastRenderedPageBreak(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildLastRenderedPageBreak) then - begin - {self.}XmlChildLastRenderedPageBreak := new OpenXmlEmpty(self, {self.}Prefix, "lastRenderedPageBreak"); - container_.Set({self.}XmlChildLastRenderedPageBreak); - end - return {self.}XmlChildLastRenderedPageBreak; - end - return ifnil({self.}XmlChildLastRenderedPageBreak) ? nil : {self.}XmlChildLastRenderedPageBreak.BoolValue(); -end; - -function R.WriteXmlChildLastRenderedPageBreak(_value); -begin - if ifnil({self.}XmlChildLastRenderedPageBreak) then - begin - {self.}XmlChildLastRenderedPageBreak := new OpenXmlEmpty(self, {self.}Prefix, "lastRenderedPageBreak"); - container_.Set({self.}XmlChildLastRenderedPageBreak); - end - {self.}XmlChildLastRenderedPageBreak.Value := _value; -end; - -function R.ReadXmlChildFootnoteRef(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildFootnoteRef) then - begin - {self.}XmlChildFootnoteRef := new OpenXmlEmpty(self, {self.}Prefix, "footnoteRef"); - container_.Set({self.}XmlChildFootnoteRef); - end - return {self.}XmlChildFootnoteRef; - end - return ifnil({self.}XmlChildFootnoteRef) ? nil : {self.}XmlChildFootnoteRef.BoolValue(); -end; - -function R.WriteXmlChildFootnoteRef(_value); -begin - if ifnil({self.}XmlChildFootnoteRef) then - begin - {self.}XmlChildFootnoteRef := new OpenXmlEmpty(self, {self.}Prefix, "footnoteRef"); - container_.Set({self.}XmlChildFootnoteRef); - end - {self.}XmlChildFootnoteRef.Value := _value; -end; - -function R.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; - -function R.ReadXmlChildBr(); -begin - if tslassigning and ifnil({self.}XmlChildBr) then - begin - {self.}XmlChildBr := new Br(self, {self.}Prefix, "br"); - container_.Set({self.}XmlChildBr); - end - return {self.}XmlChildBr; -end; - -function R.ReadXmlChildFldChar(); -begin - if tslassigning and ifnil({self.}XmlChildFldChar) then - begin - {self.}XmlChildFldChar := new FldChar(self, {self.}Prefix, "fldChar"); - container_.Set({self.}XmlChildFldChar); - end - return {self.}XmlChildFldChar; -end; - -function R.ReadXmlChildInstrText(); -begin - if tslassigning and ifnil({self.}XmlChildInstrText) then - begin - {self.}XmlChildInstrText := new InstrText(self, {self.}Prefix, "instrText"); - container_.Set({self.}XmlChildInstrText); - end - return {self.}XmlChildInstrText; -end; - -function R.ReadXmlChildAlternateContent(); -begin - if tslassigning and ifnil({self.}XmlChildAlternateContent) then - begin - {self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent"); - container_.Set({self.}XmlChildAlternateContent); - end - return {self.}XmlChildAlternateContent; -end; - -function R.ReadXmlChildDrawing(); -begin - if tslassigning and ifnil({self.}XmlChildDrawing) then - begin - {self.}XmlChildDrawing := new Drawing(self, {self.}Prefix, "drawing"); - container_.Set({self.}XmlChildDrawing); - end - return {self.}XmlChildDrawing; -end; - -function R.ReadXmlChildT(); -begin - if tslassigning and ifnil({self.}XmlChildT) then - begin - {self.}XmlChildT := new T(self, {self.}Prefix, "t"); - container_.Set({self.}XmlChildT); - end - return {self.}XmlChildT; -end; - -function R.ReadXmlChildObject(); -begin - if tslassigning and ifnil({self.}XmlChildObject) then - begin - {self.}XmlChildObject := new Object(self, {self.}Prefix, "object"); - container_.Set({self.}XmlChildObject); - end - return {self.}XmlChildObject; -end; - -function R.ReadXmlChildFootnoteReference(); -begin - if tslassigning and ifnil({self.}XmlChildFootnoteReference) then - begin - {self.}XmlChildFootnoteReference := new FootnoteReference(self, {self.}Prefix, "footnoteReference"); - container_.Set({self.}XmlChildFootnoteReference); - end - return {self.}XmlChildFootnoteReference; -end; diff --git a/autoclass/docx/RFonts@DOCX.tsf b/autoclass/docx/RFonts@DOCX.tsf deleted file mode 100644 index ee0b616..0000000 --- a/autoclass/docx/RFonts@DOCX.tsf +++ /dev/null @@ -1,250 +0,0 @@ -type RFonts = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: RFonts);override; - -public - - // attributes property - property Ascii read ReadXmlAttrAscii write WriteXmlAttrAscii; - property AsciiTheme read ReadXmlAttrAsciiTheme write WriteXmlAttrAsciiTheme; - property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia; - property EastAsiaTheme read ReadXmlAttrEastAsiaTheme write WriteXmlAttrEastAsiaTheme; - property HAnsi read ReadXmlAttrHAnsi write WriteXmlAttrHAnsi; - property HAnsiTheme read ReadXmlAttrHAnsiTheme write WriteXmlAttrHAnsiTheme; - property Hint read ReadXmlAttrHint write WriteXmlAttrHint; - property Cs read ReadXmlAttrCs write WriteXmlAttrCs; - property CsTheme read ReadXmlAttrCsTheme write WriteXmlAttrCsTheme; - function ReadXmlAttrAscii(); - function WriteXmlAttrAscii(_value); - function ReadXmlAttrAsciiTheme(); - function WriteXmlAttrAsciiTheme(_value); - function ReadXmlAttrEastAsia(); - function WriteXmlAttrEastAsia(_value); - function ReadXmlAttrEastAsiaTheme(); - function WriteXmlAttrEastAsiaTheme(_value); - function ReadXmlAttrHAnsi(); - function WriteXmlAttrHAnsi(_value); - function ReadXmlAttrHAnsiTheme(); - function WriteXmlAttrHAnsiTheme(_value); - function ReadXmlAttrHint(); - function WriteXmlAttrHint(_value); - function ReadXmlAttrCs(); - function WriteXmlAttrCs(_value); - function ReadXmlAttrCsTheme(); - function WriteXmlAttrCsTheme(_value); - -public - // Attributes - XmlAttrAscii: OpenXmlAttribute; - XmlAttrAsciiTheme: OpenXmlAttribute; - XmlAttrEastAsia: OpenXmlAttribute; - XmlAttrEastAsiaTheme: OpenXmlAttribute; - XmlAttrHAnsi: OpenXmlAttribute; - XmlAttrHAnsiTheme: OpenXmlAttribute; - XmlAttrHint: OpenXmlAttribute; - XmlAttrCs: OpenXmlAttribute; - XmlAttrCsTheme: OpenXmlAttribute; - - -end; - -function RFonts.Create();overload; -begin - {self.}Create(nil, "w", "rFonts"); -end; - -function RFonts.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function RFonts.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function RFonts.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "ascii": makeweakref(thisFunction(WriteXmlAttrAscii)), - pre + "asciiTheme": makeweakref(thisFunction(WriteXmlAttrAsciiTheme)), - pre + "eastAsia": makeweakref(thisFunction(WriteXmlAttrEastAsia)), - pre + "eastAsiaTheme": makeweakref(thisFunction(WriteXmlAttrEastAsiaTheme)), - pre + "hAnsi": makeweakref(thisFunction(WriteXmlAttrHAnsi)), - pre + "hAnsiTheme": makeweakref(thisFunction(WriteXmlAttrHAnsiTheme)), - pre + "hint": makeweakref(thisFunction(WriteXmlAttrHint)), - pre + "cs": makeweakref(thisFunction(WriteXmlAttrCs)), - pre + "cstheme": makeweakref(thisFunction(WriteXmlAttrCsTheme)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function RFonts.Copy(_obj: RFonts);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Ascii) then - {self.}Ascii := _obj.Ascii; - if not ifnil(_obj.AsciiTheme) then - {self.}AsciiTheme := _obj.AsciiTheme; - if not ifnil(_obj.EastAsia) then - {self.}EastAsia := _obj.EastAsia; - if not ifnil(_obj.EastAsiaTheme) then - {self.}EastAsiaTheme := _obj.EastAsiaTheme; - if not ifnil(_obj.HAnsi) then - {self.}HAnsi := _obj.HAnsi; - if not ifnil(_obj.HAnsiTheme) then - {self.}HAnsiTheme := _obj.HAnsiTheme; - if not ifnil(_obj.Hint) then - {self.}Hint := _obj.Hint; - if not ifnil(_obj.Cs) then - {self.}Cs := _obj.Cs; - if not ifnil(_obj.CsTheme) then - {self.}CsTheme := _obj.CsTheme; - tslassigning := tslassigning_backup; -end; - -function RFonts.ReadXmlAttrAscii(); -begin - return {self.}XmlAttrAscii.Value; -end; - -function RFonts.WriteXmlAttrAscii(_value); -begin - if ifnil({self.}XmlAttrAscii) then - begin - {self.}XmlAttrAscii := new OpenXmlAttribute({self.}Prefix, "ascii", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAscii; - end - {self.}XmlAttrAscii.Value := _value; -end; - -function RFonts.ReadXmlAttrAsciiTheme(); -begin - return {self.}XmlAttrAsciiTheme.Value; -end; - -function RFonts.WriteXmlAttrAsciiTheme(_value); -begin - if ifnil({self.}XmlAttrAsciiTheme) then - begin - {self.}XmlAttrAsciiTheme := new OpenXmlAttribute({self.}Prefix, "asciiTheme", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAsciiTheme; - end - {self.}XmlAttrAsciiTheme.Value := _value; -end; - -function RFonts.ReadXmlAttrEastAsia(); -begin - return {self.}XmlAttrEastAsia.Value; -end; - -function RFonts.WriteXmlAttrEastAsia(_value); -begin - if ifnil({self.}XmlAttrEastAsia) then - begin - {self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEastAsia; - end - {self.}XmlAttrEastAsia.Value := _value; -end; - -function RFonts.ReadXmlAttrEastAsiaTheme(); -begin - return {self.}XmlAttrEastAsiaTheme.Value; -end; - -function RFonts.WriteXmlAttrEastAsiaTheme(_value); -begin - if ifnil({self.}XmlAttrEastAsiaTheme) then - begin - {self.}XmlAttrEastAsiaTheme := new OpenXmlAttribute({self.}Prefix, "eastAsiaTheme", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEastAsiaTheme; - end - {self.}XmlAttrEastAsiaTheme.Value := _value; -end; - -function RFonts.ReadXmlAttrHAnsi(); -begin - return {self.}XmlAttrHAnsi.Value; -end; - -function RFonts.WriteXmlAttrHAnsi(_value); -begin - if ifnil({self.}XmlAttrHAnsi) then - begin - {self.}XmlAttrHAnsi := new OpenXmlAttribute({self.}Prefix, "hAnsi", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHAnsi; - end - {self.}XmlAttrHAnsi.Value := _value; -end; - -function RFonts.ReadXmlAttrHAnsiTheme(); -begin - return {self.}XmlAttrHAnsiTheme.Value; -end; - -function RFonts.WriteXmlAttrHAnsiTheme(_value); -begin - if ifnil({self.}XmlAttrHAnsiTheme) then - begin - {self.}XmlAttrHAnsiTheme := new OpenXmlAttribute({self.}Prefix, "hAnsiTheme", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHAnsiTheme; - end - {self.}XmlAttrHAnsiTheme.Value := _value; -end; - -function RFonts.ReadXmlAttrHint(); -begin - return {self.}XmlAttrHint.Value; -end; - -function RFonts.WriteXmlAttrHint(_value); -begin - if ifnil({self.}XmlAttrHint) then - begin - {self.}XmlAttrHint := new OpenXmlAttribute({self.}Prefix, "hint", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHint; - end - {self.}XmlAttrHint.Value := _value; -end; - -function RFonts.ReadXmlAttrCs(); -begin - return {self.}XmlAttrCs.Value; -end; - -function RFonts.WriteXmlAttrCs(_value); -begin - if ifnil({self.}XmlAttrCs) then - begin - {self.}XmlAttrCs := new OpenXmlAttribute({self.}Prefix, "cs", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCs; - end - {self.}XmlAttrCs.Value := _value; -end; - -function RFonts.ReadXmlAttrCsTheme(); -begin - return {self.}XmlAttrCsTheme.Value; -end; - -function RFonts.WriteXmlAttrCsTheme(_value); -begin - if ifnil({self.}XmlAttrCsTheme) then - begin - {self.}XmlAttrCsTheme := new OpenXmlAttribute({self.}Prefix, "cstheme", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCsTheme; - end - {self.}XmlAttrCsTheme.Value := _value; -end; diff --git a/autoclass/docx/RPr@DOCX.tsf b/autoclass/docx/RPr@DOCX.tsf deleted file mode 100644 index 95943da..0000000 --- a/autoclass/docx/RPr@DOCX.tsf +++ /dev/null @@ -1,447 +0,0 @@ -type RPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: RPr);override; - -public - - // empty property - property I read ReadXmlChildI write WriteXmlChildI; - property ICs read ReadXmlChildICs write WriteXmlChildICs; - property B read ReadXmlChildB write WriteXmlChildB; - property BCs read ReadXmlChildBCs write WriteXmlChildBCs; - property Strike read ReadXmlChildStrike write WriteXmlChildStrike; - property U read ReadXmlChildU write WriteXmlChildU; - function ReadXmlChildI(); - function WriteXmlChildI(_value); - function ReadXmlChildICs(); - function WriteXmlChildICs(_value); - function ReadXmlChildB(); - function WriteXmlChildB(_value); - function ReadXmlChildBCs(); - function WriteXmlChildBCs(_value); - function ReadXmlChildStrike(); - function WriteXmlChildStrike(_value); - function ReadXmlChildU(); - function WriteXmlChildU(_value); - - // normal property - property NoProof read ReadXmlChildNoProof; - property Position read ReadXmlChildPosition; - property WebHidden read ReadXmlChildWebHidden; - property RStyle read ReadXmlChildRStyle; - property Ins read ReadXmlChildIns; - property RFonts read ReadXmlChildRFonts; - property Kern read ReadXmlChildKern; - property Color read ReadXmlChildColor; - property Sz read ReadXmlChildSz; - property SzCs read ReadXmlChildSzCs; - property Lang read ReadXmlChildLang; - property VertAlign read ReadXmlChildVertAlign; - property W14Ligatures read ReadXmlChildW14Ligatures; - function ReadXmlChildNoProof(); - function ReadXmlChildPosition(); - function ReadXmlChildWebHidden(); - function ReadXmlChildRStyle(); - function ReadXmlChildIns(); - function ReadXmlChildRFonts(); - function ReadXmlChildKern(); - function ReadXmlChildColor(); - function ReadXmlChildSz(); - function ReadXmlChildSzCs(); - function ReadXmlChildLang(); - function ReadXmlChildVertAlign(); - function ReadXmlChildW14Ligatures(); - -public - // Children - XmlChildNoProof: PureVal; - XmlChildPosition: PureVal; - XmlChildWebHidden: PureWVal; - XmlChildRStyle: PureWVal; - XmlChildIns: Ins; - XmlChildRFonts: RFonts; - XmlChildKern: PureWVal; - XmlChildI: OpenXmlEmpty; - XmlChildICs: OpenXmlEmpty; - XmlChildB: OpenXmlEmpty; - XmlChildBCs: OpenXmlEmpty; - XmlChildStrike: OpenXmlEmpty; - XmlChildColor: Color; - XmlChildSz: Sz; - XmlChildSzCs: SzCs; - XmlChildU: OpenXmlEmpty; - XmlChildLang: Lang; - XmlChildVertAlign: PureWVal; - XmlChildW14Ligatures: PureWVal; - -end; - -function RPr.Create();overload; -begin - {self.}Create(nil, "w", "rPr"); -end; - -function RPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function RPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function RPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "noProof": array(0, makeweakref(thisFunction(ReadXmlChildNoProof))), - pre + "position": array(1, makeweakref(thisFunction(ReadXmlChildPosition))), - pre + "wedHidden": array(2, makeweakref(thisFunction(ReadXmlChildWebHidden))), - pre + "rStyle": array(3, makeweakref(thisFunction(ReadXmlChildRStyle))), - pre + "ins": array(4, makeweakref(thisFunction(ReadXmlChildIns))), - pre + "rFonts": array(5, makeweakref(thisFunction(ReadXmlChildRFonts))), - pre + "kern": array(6, makeweakref(thisFunction(ReadXmlChildKern))), - pre + "i": array(7, makeweakref(thisFunction(ReadXmlChildI))), - pre + "iCs": array(8, makeweakref(thisFunction(ReadXmlChildICs))), - pre + "b": array(9, makeweakref(thisFunction(ReadXmlChildB))), - pre + "bCs": array(10, makeweakref(thisFunction(ReadXmlChildBCs))), - pre + "strike": array(11, makeweakref(thisFunction(ReadXmlChildStrike))), - pre + "color": array(12, makeweakref(thisFunction(ReadXmlChildColor))), - pre + "sz": array(13, makeweakref(thisFunction(ReadXmlChildSz))), - pre + "szCs": array(14, makeweakref(thisFunction(ReadXmlChildSzCs))), - pre + "u": array(15, makeweakref(thisFunction(ReadXmlChildU))), - pre + "lang": array(16, makeweakref(thisFunction(ReadXmlChildLang))), - pre + "vertAlign": array(17, makeweakref(thisFunction(ReadXmlChildVertAlign))), - "w14:ligatures": array(18, makeweakref(thisFunction(ReadXmlChildW14Ligatures))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function RPr.Copy(_obj: RPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildNoProof) then - {self.}NoProof.Copy(_obj.XmlChildNoProof); - if not ifnil(_obj.XmlChildPosition) then - {self.}Position.Copy(_obj.XmlChildPosition); - if not ifnil(_obj.XmlChildWebHidden) then - {self.}WebHidden.Copy(_obj.XmlChildWebHidden); - if not ifnil(_obj.XmlChildRStyle) then - {self.}RStyle.Copy(_obj.XmlChildRStyle); - if not ifnil(_obj.XmlChildIns) then - {self.}Ins.Copy(_obj.XmlChildIns); - if not ifnil(_obj.XmlChildRFonts) then - {self.}RFonts.Copy(_obj.XmlChildRFonts); - if not ifnil(_obj.XmlChildKern) then - {self.}Kern.Copy(_obj.XmlChildKern); - if not ifnil(_obj.XmlChildI) then - ifnil({self.}XmlChildI) ? {self.}I.Copy(_obj.XmlChildI) : {self.}XmlChildI.Copy(_obj.XmlChildI); - if not ifnil(_obj.XmlChildICs) then - ifnil({self.}XmlChildICs) ? {self.}ICs.Copy(_obj.XmlChildICs) : {self.}XmlChildICs.Copy(_obj.XmlChildICs); - if not ifnil(_obj.XmlChildB) then - ifnil({self.}XmlChildB) ? {self.}B.Copy(_obj.XmlChildB) : {self.}XmlChildB.Copy(_obj.XmlChildB); - if not ifnil(_obj.XmlChildBCs) then - ifnil({self.}XmlChildBCs) ? {self.}BCs.Copy(_obj.XmlChildBCs) : {self.}XmlChildBCs.Copy(_obj.XmlChildBCs); - if not ifnil(_obj.XmlChildStrike) then - ifnil({self.}XmlChildStrike) ? {self.}Strike.Copy(_obj.XmlChildStrike) : {self.}XmlChildStrike.Copy(_obj.XmlChildStrike); - if not ifnil(_obj.XmlChildColor) then - {self.}Color.Copy(_obj.XmlChildColor); - if not ifnil(_obj.XmlChildSz) then - {self.}Sz.Copy(_obj.XmlChildSz); - if not ifnil(_obj.XmlChildSzCs) then - {self.}SzCs.Copy(_obj.XmlChildSzCs); - if not ifnil(_obj.XmlChildU) then - ifnil({self.}XmlChildU) ? {self.}U.Copy(_obj.XmlChildU) : {self.}XmlChildU.Copy(_obj.XmlChildU); - if not ifnil(_obj.XmlChildLang) then - {self.}Lang.Copy(_obj.XmlChildLang); - if not ifnil(_obj.XmlChildVertAlign) then - {self.}VertAlign.Copy(_obj.XmlChildVertAlign); - if not ifnil(_obj.XmlChildW14Ligatures) then - {self.}W14Ligatures.Copy(_obj.XmlChildW14Ligatures); - tslassigning := tslassigning_backup; -end; - -function RPr.ReadXmlChildI(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildI) then - begin - {self.}XmlChildI := new OpenXmlEmpty(self, {self.}Prefix, "i"); - container_.Set({self.}XmlChildI); - end - return {self.}XmlChildI; - end - return ifnil({self.}XmlChildI) ? nil : {self.}XmlChildI.BoolValue(); -end; - -function RPr.WriteXmlChildI(_value); -begin - if ifnil({self.}XmlChildI) then - begin - {self.}XmlChildI := new OpenXmlEmpty(self, {self.}Prefix, "i"); - container_.Set({self.}XmlChildI); - end - {self.}XmlChildI.Value := _value; -end; - -function RPr.ReadXmlChildICs(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildICs) then - begin - {self.}XmlChildICs := new OpenXmlEmpty(self, {self.}Prefix, "iCs"); - container_.Set({self.}XmlChildICs); - end - return {self.}XmlChildICs; - end - return ifnil({self.}XmlChildICs) ? nil : {self.}XmlChildICs.BoolValue(); -end; - -function RPr.WriteXmlChildICs(_value); -begin - if ifnil({self.}XmlChildICs) then - begin - {self.}XmlChildICs := new OpenXmlEmpty(self, {self.}Prefix, "iCs"); - container_.Set({self.}XmlChildICs); - end - {self.}XmlChildICs.Value := _value; -end; - -function RPr.ReadXmlChildB(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildB) then - begin - {self.}XmlChildB := new OpenXmlEmpty(self, {self.}Prefix, "b"); - container_.Set({self.}XmlChildB); - end - return {self.}XmlChildB; - end - return ifnil({self.}XmlChildB) ? nil : {self.}XmlChildB.BoolValue(); -end; - -function RPr.WriteXmlChildB(_value); -begin - if ifnil({self.}XmlChildB) then - begin - {self.}XmlChildB := new OpenXmlEmpty(self, {self.}Prefix, "b"); - container_.Set({self.}XmlChildB); - end - {self.}XmlChildB.Value := _value; -end; - -function RPr.ReadXmlChildBCs(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildBCs) then - begin - {self.}XmlChildBCs := new OpenXmlEmpty(self, {self.}Prefix, "bCs"); - container_.Set({self.}XmlChildBCs); - end - return {self.}XmlChildBCs; - end - return ifnil({self.}XmlChildBCs) ? nil : {self.}XmlChildBCs.BoolValue(); -end; - -function RPr.WriteXmlChildBCs(_value); -begin - if ifnil({self.}XmlChildBCs) then - begin - {self.}XmlChildBCs := new OpenXmlEmpty(self, {self.}Prefix, "bCs"); - container_.Set({self.}XmlChildBCs); - end - {self.}XmlChildBCs.Value := _value; -end; - -function RPr.ReadXmlChildStrike(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildStrike) then - begin - {self.}XmlChildStrike := new OpenXmlEmpty(self, {self.}Prefix, "strike"); - container_.Set({self.}XmlChildStrike); - end - return {self.}XmlChildStrike; - end - return ifnil({self.}XmlChildStrike) ? nil : {self.}XmlChildStrike.BoolValue(); -end; - -function RPr.WriteXmlChildStrike(_value); -begin - if ifnil({self.}XmlChildStrike) then - begin - {self.}XmlChildStrike := new OpenXmlEmpty(self, {self.}Prefix, "strike"); - container_.Set({self.}XmlChildStrike); - end - {self.}XmlChildStrike.Value := _value; -end; - -function RPr.ReadXmlChildU(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildU) then - begin - {self.}XmlChildU := new OpenXmlEmpty(self, {self.}Prefix, "u"); - container_.Set({self.}XmlChildU); - end - return {self.}XmlChildU; - end - return ifnil({self.}XmlChildU) ? nil : {self.}XmlChildU.BoolValue(); -end; - -function RPr.WriteXmlChildU(_value); -begin - if ifnil({self.}XmlChildU) then - begin - {self.}XmlChildU := new OpenXmlEmpty(self, {self.}Prefix, "u"); - container_.Set({self.}XmlChildU); - end - {self.}XmlChildU.Value := _value; -end; - -function RPr.ReadXmlChildNoProof(); -begin - if tslassigning and ifnil({self.}XmlChildNoProof) then - begin - {self.}XmlChildNoProof := new PureVal(self, {self.}Prefix, "noProof"); - container_.Set({self.}XmlChildNoProof); - end - return {self.}XmlChildNoProof; -end; - -function RPr.ReadXmlChildPosition(); -begin - if tslassigning and ifnil({self.}XmlChildPosition) then - begin - {self.}XmlChildPosition := new PureVal(self, {self.}Prefix, "position"); - container_.Set({self.}XmlChildPosition); - end - return {self.}XmlChildPosition; -end; - -function RPr.ReadXmlChildWebHidden(); -begin - if tslassigning and ifnil({self.}XmlChildWebHidden) then - begin - {self.}XmlChildWebHidden := new PureWVal(self, {self.}Prefix, "wedHidden"); - container_.Set({self.}XmlChildWebHidden); - end - return {self.}XmlChildWebHidden; -end; - -function RPr.ReadXmlChildRStyle(); -begin - if tslassigning and ifnil({self.}XmlChildRStyle) then - begin - {self.}XmlChildRStyle := new PureWVal(self, {self.}Prefix, "rStyle"); - container_.Set({self.}XmlChildRStyle); - end - return {self.}XmlChildRStyle; -end; - -function RPr.ReadXmlChildIns(); -begin - if tslassigning and ifnil({self.}XmlChildIns) then - begin - {self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins"); - container_.Set({self.}XmlChildIns); - end - return {self.}XmlChildIns; -end; - -function RPr.ReadXmlChildRFonts(); -begin - if tslassigning and ifnil({self.}XmlChildRFonts) then - begin - {self.}XmlChildRFonts := new RFonts(self, {self.}Prefix, "rFonts"); - container_.Set({self.}XmlChildRFonts); - end - return {self.}XmlChildRFonts; -end; - -function RPr.ReadXmlChildKern(); -begin - if tslassigning and ifnil({self.}XmlChildKern) then - begin - {self.}XmlChildKern := new PureWVal(self, {self.}Prefix, "kern"); - container_.Set({self.}XmlChildKern); - end - return {self.}XmlChildKern; -end; - -function RPr.ReadXmlChildColor(); -begin - if tslassigning and ifnil({self.}XmlChildColor) then - begin - {self.}XmlChildColor := new Color(self, {self.}Prefix, "color"); - container_.Set({self.}XmlChildColor); - end - return {self.}XmlChildColor; -end; - -function RPr.ReadXmlChildSz(); -begin - if tslassigning and ifnil({self.}XmlChildSz) then - begin - {self.}XmlChildSz := new Sz(self, {self.}Prefix, "sz"); - container_.Set({self.}XmlChildSz); - end - return {self.}XmlChildSz; -end; - -function RPr.ReadXmlChildSzCs(); -begin - if tslassigning and ifnil({self.}XmlChildSzCs) then - begin - {self.}XmlChildSzCs := new SzCs(self, {self.}Prefix, "szCs"); - container_.Set({self.}XmlChildSzCs); - end - return {self.}XmlChildSzCs; -end; - -function RPr.ReadXmlChildLang(); -begin - if tslassigning and ifnil({self.}XmlChildLang) then - begin - {self.}XmlChildLang := new Lang(self, {self.}Prefix, "lang"); - container_.Set({self.}XmlChildLang); - end - return {self.}XmlChildLang; -end; - -function RPr.ReadXmlChildVertAlign(); -begin - if tslassigning and ifnil({self.}XmlChildVertAlign) then - begin - {self.}XmlChildVertAlign := new PureWVal(self, {self.}Prefix, "vertAlign"); - container_.Set({self.}XmlChildVertAlign); - end - return {self.}XmlChildVertAlign; -end; - -function RPr.ReadXmlChildW14Ligatures(); -begin - if tslassigning and ifnil({self.}XmlChildW14Ligatures) then - begin - {self.}XmlChildW14Ligatures := new PureWVal(self, "w14", "ligatures"); - container_.Set({self.}XmlChildW14Ligatures); - end - return {self.}XmlChildW14Ligatures; -end; diff --git a/autoclass/docx/RPrDefault@DOCX.tsf b/autoclass/docx/RPrDefault@DOCX.tsf deleted file mode 100644 index 71dd944..0000000 --- a/autoclass/docx/RPrDefault@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type RPrDefault = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: RPrDefault);override; - -public - - // normal property - property RPr read ReadXmlChildRPr; - function ReadXmlChildRPr(); - -public - // Children - XmlChildRPr: RPr; - -end; - -function RPrDefault.Create();overload; -begin - {self.}Create(nil, "w", "rPrDefault"); -end; - -function RPrDefault.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function RPrDefault.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function RPrDefault.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function RPrDefault.Copy(_obj: RPrDefault);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - tslassigning := tslassigning_backup; -end; - -function RPrDefault.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; diff --git a/autoclass/docx/Reference@DOCX.tsf b/autoclass/docx/Reference@DOCX.tsf deleted file mode 100644 index 000ccfe..0000000 --- a/autoclass/docx/Reference@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type Reference = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Reference);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Id read ReadXmlAttrId write WriteXmlAttrId; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - - -end; - -function Reference.Create();overload; -begin - {self.}Create(nil, "w", ""); -end; - -function Reference.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Reference.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Reference.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - "r:id": makeweakref(thisFunction(WriteXmlAttrId)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Reference.Copy(_obj: Reference);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - tslassigning := tslassigning_backup; -end; - -function Reference.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function Reference.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function Reference.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Reference.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; diff --git a/autoclass/docx/Relationship@DOCX.tsf b/autoclass/docx/Relationship@DOCX.tsf deleted file mode 100644 index 8617932..0000000 --- a/autoclass/docx/Relationship@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type Relationship = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Relationship);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Target read ReadXmlAttrTarget write WriteXmlAttrTarget; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrTarget(); - function WriteXmlAttrTarget(_value); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - XmlAttrType: OpenXmlAttribute; - XmlAttrTarget: OpenXmlAttribute; - - -end; - -function Relationship.Create();overload; -begin - {self.}Create(nil, "", "Relationship"); -end; - -function Relationship.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Relationship.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Relationship.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "Id": makeweakref(thisFunction(WriteXmlAttrId)), - "Type": makeweakref(thisFunction(WriteXmlAttrType)), - "Target": makeweakref(thisFunction(WriteXmlAttrTarget)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Relationship.Copy(_obj: Relationship);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.Target) then - {self.}Target := _obj.Target; - tslassigning := tslassigning_backup; -end; - -function Relationship.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Relationship.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("", "Id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Relationship.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function Relationship.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute("", "Type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function Relationship.ReadXmlAttrTarget(); -begin - return {self.}XmlAttrTarget.Value; -end; - -function Relationship.WriteXmlAttrTarget(_value); -begin - if ifnil({self.}XmlAttrTarget) then - begin - {self.}XmlAttrTarget := new OpenXmlAttribute("", "Target", nil); - attributes_[length(attributes_)] := {self.}XmlAttrTarget; - end - {self.}XmlAttrTarget.Value := _value; -end; diff --git a/autoclass/docx/Relationships@DOCX.tsf b/autoclass/docx/Relationships@DOCX.tsf deleted file mode 100644 index 30754b1..0000000 --- a/autoclass/docx/Relationships@DOCX.tsf +++ /dev/null @@ -1,103 +0,0 @@ -type Relationships = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Relationships);override; - -public - - // attributes property - property xmlns read ReadXmlAttrxmlns write WriteXmlAttrxmlns; - function ReadXmlAttrxmlns(); - function WriteXmlAttrxmlns(_value); - - // multi property - property Relationships read ReadRelationships; - function ReadRelationships(_index); - function AddRelationship(): Relationship; - function AppendRelationship(): Relationship; - -public - // Attributes - XmlAttrxmlns: OpenXmlAttribute; - - // Children - -end; - -function Relationships.Create();overload; -begin - {self.}Create(nil, "", "Relationships"); -end; - -function Relationships.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Relationships.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Relationships.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns": makeweakref(thisFunction(WriteXmlAttrxmlns)), - ); - sorted_child_ := array( - "Relationship": array(0, makeweakref(thisFunction(AppendRelationship))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Relationships.Copy(_obj: Relationships);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.xmlns) then - {self.}xmlns := _obj.xmlns; - tslassigning := tslassigning_backup; -end; - -function Relationships.ReadXmlAttrxmlns(); -begin - return {self.}XmlAttrxmlns.Value; -end; - -function Relationships.WriteXmlAttrxmlns(_value); -begin - if ifnil({self.}XmlAttrxmlns) then - begin - {self.}XmlAttrxmlns := new OpenXmlAttribute("", "xmlns", nil); - attributes_[length(attributes_)] := {self.}XmlAttrxmlns; - end - {self.}XmlAttrxmlns.Value := _value; -end; - -function Relationships.ReadRelationships(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get("Relationship", ind); -end; - -function Relationships.AddRelationship(): Relationship; -begin - obj := new Relationship(self, "", "Relationship"); - container_.Insert(obj); - return obj; -end; - -function Relationships.AppendRelationship(): Relationship; -begin - obj := new Relationship(self, "", "Relationship"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Rich@DOCX.tsf b/autoclass/docx/Rich@DOCX.tsf deleted file mode 100644 index 6aa182d..0000000 --- a/autoclass/docx/Rich@DOCX.tsf +++ /dev/null @@ -1,128 +0,0 @@ -type Rich = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Rich);override; - -public - - // empty property - property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; - function ReadXmlChildLstStyle(); - function WriteXmlChildLstStyle(_value); - - // normal property - property BodyPr read ReadXmlChildBodyPr; - function ReadXmlChildBodyPr(); - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): Ap; - function AppendP(): Ap; - -public - // Children - XmlChildBodyPr: BodyPr; - XmlChildLstStyle: OpenXmlEmpty; - -end; - -function Rich.Create();overload; -begin - {self.}Create(nil, "c", "rich"); -end; - -function Rich.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Rich.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Rich.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))), - "a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))), - "a:p": array(2, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Rich.Copy(_obj: Rich);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildBodyPr) then - {self.}BodyPr.Copy(_obj.XmlChildBodyPr); - if not ifnil(_obj.XmlChildLstStyle) then - ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle); - tslassigning := tslassigning_backup; -end; - -function Rich.ReadXmlChildLstStyle(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildLstStyle) then - begin - {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); - container_.Set({self.}XmlChildLstStyle); - end - return {self.}XmlChildLstStyle; - end - return ifnil({self.}XmlChildLstStyle) ? nil : {self.}XmlChildLstStyle.BoolValue(); -end; - -function Rich.WriteXmlChildLstStyle(_value); -begin - if ifnil({self.}XmlChildLstStyle) then - begin - {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); - container_.Set({self.}XmlChildLstStyle); - end - {self.}XmlChildLstStyle.Value := _value; -end; - -function Rich.ReadXmlChildBodyPr(); -begin - if tslassigning and ifnil({self.}XmlChildBodyPr) then - begin - {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); - container_.Set({self.}XmlChildBodyPr); - end - return {self.}XmlChildBodyPr; -end; - -function Rich.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get("a:p", ind); -end; - -function Rich.AddP(): Ap; -begin - obj := new Ap(self, "a", "p"); - container_.Insert(obj); - return obj; -end; - -function Rich.AppendP(): Ap; -begin - obj := new Ap(self, "a", "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Rsids@DOCX.tsf b/autoclass/docx/Rsids@DOCX.tsf deleted file mode 100644 index 7824806..0000000 --- a/autoclass/docx/Rsids@DOCX.tsf +++ /dev/null @@ -1,95 +0,0 @@ -type Rsids = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Rsids);override; - -public - - // normal property - property RsidRoot read ReadXmlChildRsidRoot; - function ReadXmlChildRsidRoot(); - - // multi property - property Rsids read ReadRsids; - function ReadRsids(_index); - function AddRsid(): PureWVal; - function AppendRsid(): PureWVal; - -public - // Children - XmlChildRsidRoot: PureWVal; - -end; - -function Rsids.Create();overload; -begin - {self.}Create(nil, "w", "rsids"); -end; - -function Rsids.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Rsids.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Rsids.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "rsidRoot": array(0, makeweakref(thisFunction(ReadXmlChildRsidRoot))), - pre + "rsid": array(1, makeweakref(thisFunction(AppendRsid))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Rsids.Copy(_obj: Rsids);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildRsidRoot) then - {self.}RsidRoot.Copy(_obj.XmlChildRsidRoot); - tslassigning := tslassigning_backup; -end; - -function Rsids.ReadXmlChildRsidRoot(); -begin - if tslassigning and ifnil({self.}XmlChildRsidRoot) then - begin - {self.}XmlChildRsidRoot := new PureWVal(self, {self.}Prefix, "rsidRoot"); - container_.Set({self.}XmlChildRsidRoot); - end - return {self.}XmlChildRsidRoot; -end; - -function Rsids.ReadRsids(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "rsid", ind); -end; - -function Rsids.AddRsid(): PureWVal; -begin - obj := new PureWVal(self, {self.}Prefix, "rsid"); - container_.Insert(obj); - return obj; -end; - -function Rsids.AppendRsid(): PureWVal; -begin - obj := new PureWVal(self, {self.}Prefix, "rsid"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Scaling@DOCX.tsf b/autoclass/docx/Scaling@DOCX.tsf deleted file mode 100644 index 956537e..0000000 --- a/autoclass/docx/Scaling@DOCX.tsf +++ /dev/null @@ -1,82 +0,0 @@ -type Scaling = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Scaling);override; - -public - - // empty property - property Orientation read ReadXmlChildOrientation write WriteXmlChildOrientation; - function ReadXmlChildOrientation(); - function WriteXmlChildOrientation(_value); - -public - // Children - XmlChildOrientation: OpenXmlEmpty; - -end; - -function Scaling.Create();overload; -begin - {self.}Create(nil, "c", "scaling"); -end; - -function Scaling.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Scaling.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Scaling.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "orientation": array(0, makeweakref(thisFunction(ReadXmlChildOrientation))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Scaling.Copy(_obj: Scaling);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildOrientation) then - ifnil({self.}XmlChildOrientation) ? {self.}Orientation.Copy(_obj.XmlChildOrientation) : {self.}XmlChildOrientation.Copy(_obj.XmlChildOrientation); - tslassigning := tslassigning_backup; -end; - -function Scaling.ReadXmlChildOrientation(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildOrientation) then - begin - {self.}XmlChildOrientation := new OpenXmlEmpty(self, {self.}Prefix, "orientation"); - container_.Set({self.}XmlChildOrientation); - end - return {self.}XmlChildOrientation; - end - return ifnil({self.}XmlChildOrientation) ? nil : {self.}XmlChildOrientation.BoolValue(); -end; - -function Scaling.WriteXmlChildOrientation(_value); -begin - if ifnil({self.}XmlChildOrientation) then - begin - {self.}XmlChildOrientation := new OpenXmlEmpty(self, {self.}Prefix, "orientation"); - container_.Set({self.}XmlChildOrientation); - end - {self.}XmlChildOrientation.Value := _value; -end; diff --git a/autoclass/docx/SchemeClr@DOCX.tsf b/autoclass/docx/SchemeClr@DOCX.tsf deleted file mode 100644 index e098634..0000000 --- a/autoclass/docx/SchemeClr@DOCX.tsf +++ /dev/null @@ -1,125 +0,0 @@ -type SchemeClr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SchemeClr);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - - // normal property - property LumMod read ReadXmlChildLumMod; - property SatMod read ReadXmlChildSatMod; - property Tint read ReadXmlChildTint; - function ReadXmlChildLumMod(); - function ReadXmlChildSatMod(); - function ReadXmlChildTint(); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - - // Children - XmlChildLumMod: PureVal; - XmlChildSatMod: PureVal; - XmlChildTint: PureVal; - -end; - -function SchemeClr.Create();overload; -begin - {self.}Create(nil, "a", "schemeClr"); -end; - -function SchemeClr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SchemeClr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SchemeClr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - pre + "lumMod": array(0, makeweakref(thisFunction(ReadXmlChildLumMod))), - pre + "satMod": array(1, makeweakref(thisFunction(ReadXmlChildSatMod))), - pre + "tint": array(2, makeweakref(thisFunction(ReadXmlChildTint))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SchemeClr.Copy(_obj: SchemeClr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.XmlChildLumMod) then - {self.}LumMod.Copy(_obj.XmlChildLumMod); - if not ifnil(_obj.XmlChildSatMod) then - {self.}SatMod.Copy(_obj.XmlChildSatMod); - if not ifnil(_obj.XmlChildTint) then - {self.}Tint.Copy(_obj.XmlChildTint); - tslassigning := tslassigning_backup; -end; - -function SchemeClr.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function SchemeClr.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function SchemeClr.ReadXmlChildLumMod(); -begin - if tslassigning and ifnil({self.}XmlChildLumMod) then - begin - {self.}XmlChildLumMod := new PureVal(self, {self.}Prefix, "lumMod"); - container_.Set({self.}XmlChildLumMod); - end - return {self.}XmlChildLumMod; -end; - -function SchemeClr.ReadXmlChildSatMod(); -begin - if tslassigning and ifnil({self.}XmlChildSatMod) then - begin - {self.}XmlChildSatMod := new PureVal(self, {self.}Prefix, "satMod"); - container_.Set({self.}XmlChildSatMod); - end - return {self.}XmlChildSatMod; -end; - -function SchemeClr.ReadXmlChildTint(); -begin - if tslassigning and ifnil({self.}XmlChildTint) then - begin - {self.}XmlChildTint := new PureVal(self, {self.}Prefix, "tint"); - container_.Set({self.}XmlChildTint); - end - return {self.}XmlChildTint; -end; diff --git a/autoclass/docx/Sdt@DOCX.tsf b/autoclass/docx/Sdt@DOCX.tsf deleted file mode 100644 index 1e69617..0000000 --- a/autoclass/docx/Sdt@DOCX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type Sdt = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Sdt);override; - -public - - // normal property - property SdtPr read ReadXmlChildSdtPr; - property SdtEndPr read ReadXmlChildSdtEndPr; - property SdtContent read ReadXmlChildSdtContent; - function ReadXmlChildSdtPr(); - function ReadXmlChildSdtEndPr(); - function ReadXmlChildSdtContent(); - -public - // Children - XmlChildSdtPr: SdtPr; - XmlChildSdtEndPr: SdtEndPr; - XmlChildSdtContent: SdtContent; - -end; - -function Sdt.Create();overload; -begin - {self.}Create(nil, "w", "sdt"); -end; - -function Sdt.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Sdt.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Sdt.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "stdPr": array(0, makeweakref(thisFunction(ReadXmlChildSdtPr))), - pre + "sdtEndPr": array(1, makeweakref(thisFunction(ReadXmlChildSdtEndPr))), - pre + "sdtContent": array(2, makeweakref(thisFunction(ReadXmlChildSdtContent))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Sdt.Copy(_obj: Sdt);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSdtPr) then - {self.}SdtPr.Copy(_obj.XmlChildSdtPr); - if not ifnil(_obj.XmlChildSdtEndPr) then - {self.}SdtEndPr.Copy(_obj.XmlChildSdtEndPr); - if not ifnil(_obj.XmlChildSdtContent) then - {self.}SdtContent.Copy(_obj.XmlChildSdtContent); - tslassigning := tslassigning_backup; -end; - -function Sdt.ReadXmlChildSdtPr(); -begin - if tslassigning and ifnil({self.}XmlChildSdtPr) then - begin - {self.}XmlChildSdtPr := new SdtPr(self, {self.}Prefix, "stdPr"); - container_.Set({self.}XmlChildSdtPr); - end - return {self.}XmlChildSdtPr; -end; - -function Sdt.ReadXmlChildSdtEndPr(); -begin - if tslassigning and ifnil({self.}XmlChildSdtEndPr) then - begin - {self.}XmlChildSdtEndPr := new SdtEndPr(self, {self.}Prefix, "sdtEndPr"); - container_.Set({self.}XmlChildSdtEndPr); - end - return {self.}XmlChildSdtEndPr; -end; - -function Sdt.ReadXmlChildSdtContent(); -begin - if tslassigning and ifnil({self.}XmlChildSdtContent) then - begin - {self.}XmlChildSdtContent := new SdtContent(self, {self.}Prefix, "sdtContent"); - container_.Set({self.}XmlChildSdtContent); - end - return {self.}XmlChildSdtContent; -end; diff --git a/autoclass/docx/SdtContent@DOCX.tsf b/autoclass/docx/SdtContent@DOCX.tsf deleted file mode 100644 index afc0f48..0000000 --- a/autoclass/docx/SdtContent@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type SdtContent = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SdtContent);override; - -public - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): P; - function AppendP(): P; - -public - // Children - -end; - -function SdtContent.Create();overload; -begin - {self.}Create(nil, "w", "sdtContent"); -end; - -function SdtContent.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SdtContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SdtContent.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SdtContent.Copy(_obj: SdtContent);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function SdtContent.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function SdtContent.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function SdtContent.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/SdtEndPr@DOCX.tsf b/autoclass/docx/SdtEndPr@DOCX.tsf deleted file mode 100644 index 9eb536f..0000000 --- a/autoclass/docx/SdtEndPr@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type SdtEndPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SdtEndPr);override; - -public - - // normal property - property RPr read ReadXmlChildRPr; - function ReadXmlChildRPr(); - -public - // Children - XmlChildRPr: RPr; - -end; - -function SdtEndPr.Create();overload; -begin - {self.}Create(nil, "w", "sdtEndPr"); -end; - -function SdtEndPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SdtEndPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SdtEndPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SdtEndPr.Copy(_obj: SdtEndPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - tslassigning := tslassigning_backup; -end; - -function SdtEndPr.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; diff --git a/autoclass/docx/SdtPr@DOCX.tsf b/autoclass/docx/SdtPr@DOCX.tsf deleted file mode 100644 index 397bfe3..0000000 --- a/autoclass/docx/SdtPr@DOCX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type SdtPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SdtPr);override; - -public - - // normal property - property RPr read ReadXmlChildRPr; - property Id read ReadXmlChildId; - property DocPartObj read ReadXmlChildDocPartObj; - function ReadXmlChildRPr(); - function ReadXmlChildId(); - function ReadXmlChildDocPartObj(); - -public - // Children - XmlChildRPr: RPr; - XmlChildId: PureWVal; - XmlChildDocPartObj: DocPartObj; - -end; - -function SdtPr.Create();overload; -begin - {self.}Create(nil, "w", "sdtPr"); -end; - -function SdtPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SdtPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SdtPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), - pre + "id": array(1, makeweakref(thisFunction(ReadXmlChildId))), - pre + "docPartObj": array(2, makeweakref(thisFunction(ReadXmlChildDocPartObj))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SdtPr.Copy(_obj: SdtPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - if not ifnil(_obj.XmlChildId) then - {self.}Id.Copy(_obj.XmlChildId); - if not ifnil(_obj.XmlChildDocPartObj) then - {self.}DocPartObj.Copy(_obj.XmlChildDocPartObj); - tslassigning := tslassigning_backup; -end; - -function SdtPr.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; - -function SdtPr.ReadXmlChildId(); -begin - if tslassigning and ifnil({self.}XmlChildId) then - begin - {self.}XmlChildId := new PureWVal(self, {self.}Prefix, "id"); - container_.Set({self.}XmlChildId); - end - return {self.}XmlChildId; -end; - -function SdtPr.ReadXmlChildDocPartObj(); -begin - if tslassigning and ifnil({self.}XmlChildDocPartObj) then - begin - {self.}XmlChildDocPartObj := new DocPartObj(self, {self.}Prefix, "docPartObj"); - container_.Set({self.}XmlChildDocPartObj); - end - return {self.}XmlChildDocPartObj; -end; diff --git a/autoclass/docx/SectPr@DOCX.tsf b/autoclass/docx/SectPr@DOCX.tsf deleted file mode 100644 index 0220663..0000000 --- a/autoclass/docx/SectPr@DOCX.tsf +++ /dev/null @@ -1,314 +0,0 @@ -type SectPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SectPr);override; - -public - - // attributes property - property WRsidR read ReadXmlAttrWRsidR write WriteXmlAttrWRsidR; - property WRsidSect read ReadXmlAttrWRsidSect write WriteXmlAttrWRsidSect; - function ReadXmlAttrWRsidR(); - function WriteXmlAttrWRsidR(_value); - function ReadXmlAttrWRsidSect(); - function WriteXmlAttrWRsidSect(_value); - - // empty property - property TitlePg read ReadXmlChildTitlePg write WriteXmlChildTitlePg; - function ReadXmlChildTitlePg(); - function WriteXmlChildTitlePg(_value); - - // normal property - property FootnotePr read ReadXmlChildFootnotePr; - property EndnotePr read ReadXmlChildEndnotePr; - property Type read ReadXmlChildType; - property PgSz read ReadXmlChildPgSz; - property PgMar read ReadXmlChildPgMar; - property PgNumType read ReadXmlChildPgNumType; - property Cols read ReadXmlChildCols; - property DocGrid read ReadXmlChildDocGrid; - function ReadXmlChildFootnotePr(); - function ReadXmlChildEndnotePr(); - function ReadXmlChildType(); - function ReadXmlChildPgSz(); - function ReadXmlChildPgMar(); - function ReadXmlChildPgNumType(); - function ReadXmlChildCols(); - function ReadXmlChildDocGrid(); - - // multi property - property HeaderReferences read ReadHeaderReferences; - property FooterReferences read ReadFooterReferences; - function ReadHeaderReferences(_index); - function ReadFooterReferences(_index); - function AddHeaderReference(): Reference; - function AddFooterReference(): Reference; - function AppendHeaderReference(): Reference; - function AppendFooterReference(): Reference; - -public - // Attributes - XmlAttrWRsidR: OpenXmlAttribute; - XmlAttrWRsidSect: OpenXmlAttribute; - - // Children - XmlChildFootnotePr: FootnotePr; - XmlChildEndnotePr: EndnotePr; - XmlChildType: PureWVal; - XmlChildPgSz: PgSz; - XmlChildPgMar: PgMar; - XmlChildPgNumType: PgNumType; - XmlChildCols: Cols; - XmlChildTitlePg: OpenXmlEmpty; - XmlChildDocGrid: DocGrid; - -end; - -function SectPr.Create();overload; -begin - {self.}Create(nil, "w", "sectPr"); -end; - -function SectPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SectPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SectPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "rsidR": makeweakref(thisFunction(WriteXmlAttrWRsidR)), - pre + "rsidSect": makeweakref(thisFunction(WriteXmlAttrWRsidSect)), - ); - sorted_child_ := array( - pre + "headerReference": array(0, makeweakref(thisFunction(AppendHeaderReference))), - pre + "footerReference": array(1, makeweakref(thisFunction(AppendFooterReference))), - pre + "footnotePr": array(2, makeweakref(thisFunction(ReadXmlChildFootnotePr))), - pre + "endnotePr": array(3, makeweakref(thisFunction(ReadXmlChildEndnotePr))), - pre + "type": array(4, makeweakref(thisFunction(ReadXmlChildType))), - pre + "pgSz": array(5, makeweakref(thisFunction(ReadXmlChildPgSz))), - pre + "pgMar": array(6, makeweakref(thisFunction(ReadXmlChildPgMar))), - pre + "pgNumType": array(7, makeweakref(thisFunction(ReadXmlChildPgNumType))), - pre + "cols": array(8, makeweakref(thisFunction(ReadXmlChildCols))), - pre + "titlePg": array(9, makeweakref(thisFunction(ReadXmlChildTitlePg))), - pre + "docGrid": array(10, makeweakref(thisFunction(ReadXmlChildDocGrid))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SectPr.Copy(_obj: SectPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.WRsidR) then - {self.}WRsidR := _obj.WRsidR; - if not ifnil(_obj.WRsidSect) then - {self.}WRsidSect := _obj.WRsidSect; - if not ifnil(_obj.XmlChildFootnotePr) then - {self.}FootnotePr.Copy(_obj.XmlChildFootnotePr); - if not ifnil(_obj.XmlChildEndnotePr) then - {self.}EndnotePr.Copy(_obj.XmlChildEndnotePr); - if not ifnil(_obj.XmlChildType) then - {self.}Type.Copy(_obj.XmlChildType); - if not ifnil(_obj.XmlChildPgSz) then - {self.}PgSz.Copy(_obj.XmlChildPgSz); - if not ifnil(_obj.XmlChildPgMar) then - {self.}PgMar.Copy(_obj.XmlChildPgMar); - if not ifnil(_obj.XmlChildPgNumType) then - {self.}PgNumType.Copy(_obj.XmlChildPgNumType); - if not ifnil(_obj.XmlChildCols) then - {self.}Cols.Copy(_obj.XmlChildCols); - if not ifnil(_obj.XmlChildTitlePg) then - ifnil({self.}XmlChildTitlePg) ? {self.}TitlePg.Copy(_obj.XmlChildTitlePg) : {self.}XmlChildTitlePg.Copy(_obj.XmlChildTitlePg); - if not ifnil(_obj.XmlChildDocGrid) then - {self.}DocGrid.Copy(_obj.XmlChildDocGrid); - tslassigning := tslassigning_backup; -end; - -function SectPr.ReadXmlAttrWRsidR(); -begin - return {self.}XmlAttrWRsidR.Value; -end; - -function SectPr.WriteXmlAttrWRsidR(_value); -begin - if ifnil({self.}XmlAttrWRsidR) then - begin - {self.}XmlAttrWRsidR := new OpenXmlAttribute({self.}Prefix, "rsidR", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidR; - end - {self.}XmlAttrWRsidR.Value := _value; -end; - -function SectPr.ReadXmlAttrWRsidSect(); -begin - return {self.}XmlAttrWRsidSect.Value; -end; - -function SectPr.WriteXmlAttrWRsidSect(_value); -begin - if ifnil({self.}XmlAttrWRsidSect) then - begin - {self.}XmlAttrWRsidSect := new OpenXmlAttribute({self.}Prefix, "rsidSect", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidSect; - end - {self.}XmlAttrWRsidSect.Value := _value; -end; - -function SectPr.ReadXmlChildTitlePg(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildTitlePg) then - begin - {self.}XmlChildTitlePg := new OpenXmlEmpty(self, {self.}Prefix, "titlePg"); - container_.Set({self.}XmlChildTitlePg); - end - return {self.}XmlChildTitlePg; - end - return ifnil({self.}XmlChildTitlePg) ? nil : {self.}XmlChildTitlePg.BoolValue(); -end; - -function SectPr.WriteXmlChildTitlePg(_value); -begin - if ifnil({self.}XmlChildTitlePg) then - begin - {self.}XmlChildTitlePg := new OpenXmlEmpty(self, {self.}Prefix, "titlePg"); - container_.Set({self.}XmlChildTitlePg); - end - {self.}XmlChildTitlePg.Value := _value; -end; - -function SectPr.ReadXmlChildFootnotePr(); -begin - if tslassigning and ifnil({self.}XmlChildFootnotePr) then - begin - {self.}XmlChildFootnotePr := new FootnotePr(self, {self.}Prefix, "footnotePr"); - container_.Set({self.}XmlChildFootnotePr); - end - return {self.}XmlChildFootnotePr; -end; - -function SectPr.ReadXmlChildEndnotePr(); -begin - if tslassigning and ifnil({self.}XmlChildEndnotePr) then - begin - {self.}XmlChildEndnotePr := new EndnotePr(self, {self.}Prefix, "endnotePr"); - container_.Set({self.}XmlChildEndnotePr); - end - return {self.}XmlChildEndnotePr; -end; - -function SectPr.ReadXmlChildType(); -begin - if tslassigning and ifnil({self.}XmlChildType) then - begin - {self.}XmlChildType := new PureWVal(self, {self.}Prefix, "type"); - container_.Set({self.}XmlChildType); - end - return {self.}XmlChildType; -end; - -function SectPr.ReadXmlChildPgSz(); -begin - if tslassigning and ifnil({self.}XmlChildPgSz) then - begin - {self.}XmlChildPgSz := new PgSz(self, {self.}Prefix, "pgSz"); - container_.Set({self.}XmlChildPgSz); - end - return {self.}XmlChildPgSz; -end; - -function SectPr.ReadXmlChildPgMar(); -begin - if tslassigning and ifnil({self.}XmlChildPgMar) then - begin - {self.}XmlChildPgMar := new PgMar(self, {self.}Prefix, "pgMar"); - container_.Set({self.}XmlChildPgMar); - end - return {self.}XmlChildPgMar; -end; - -function SectPr.ReadXmlChildPgNumType(); -begin - if tslassigning and ifnil({self.}XmlChildPgNumType) then - begin - {self.}XmlChildPgNumType := new PgNumType(self, {self.}Prefix, "pgNumType"); - container_.Set({self.}XmlChildPgNumType); - end - return {self.}XmlChildPgNumType; -end; - -function SectPr.ReadXmlChildCols(); -begin - if tslassigning and ifnil({self.}XmlChildCols) then - begin - {self.}XmlChildCols := new Cols(self, {self.}Prefix, "cols"); - container_.Set({self.}XmlChildCols); - end - return {self.}XmlChildCols; -end; - -function SectPr.ReadXmlChildDocGrid(); -begin - if tslassigning and ifnil({self.}XmlChildDocGrid) then - begin - {self.}XmlChildDocGrid := new DocGrid(self, {self.}Prefix, "docGrid"); - container_.Set({self.}XmlChildDocGrid); - end - return {self.}XmlChildDocGrid; -end; - -function SectPr.ReadHeaderReferences(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "headerReference", ind); -end; - -function SectPr.ReadFooterReferences(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "footerReference", ind); -end; - -function SectPr.AddHeaderReference(): Reference; -begin - obj := new Reference(self, {self.}Prefix, "headerReference"); - container_.Insert(obj); - return obj; -end; - -function SectPr.AddFooterReference(): Reference; -begin - obj := new Reference(self, {self.}Prefix, "footerReference"); - container_.Insert(obj); - return obj; -end; - -function SectPr.AppendHeaderReference(): Reference; -begin - obj := new Reference(self, {self.}Prefix, "headerReference"); - container_.Append(obj); - return obj; -end; - -function SectPr.AppendFooterReference(): Reference; -begin - obj := new Reference(self, {self.}Prefix, "footerReference"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Ser@DOCX.tsf b/autoclass/docx/Ser@DOCX.tsf deleted file mode 100644 index f26627a..0000000 --- a/autoclass/docx/Ser@DOCX.tsf +++ /dev/null @@ -1,179 +0,0 @@ -type Ser = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Ser);override; - -public - - // normal property - property Idx read ReadXmlChildIdx; - property Order read ReadXmlChildOrder; - property Tx read ReadXmlChildTx; - property InvertIfNegative read ReadXmlChildInvertIfNegative; - property DLbls read ReadXmlChildDLbls; - property Cat read ReadXmlChildCat; - property Val read ReadXmlChildVal; - property ExtLst read ReadXmlChildExtLst; - function ReadXmlChildIdx(); - function ReadXmlChildOrder(); - function ReadXmlChildTx(); - function ReadXmlChildInvertIfNegative(); - function ReadXmlChildDLbls(); - function ReadXmlChildCat(); - function ReadXmlChildVal(); - function ReadXmlChildExtLst(); - -public - // Children - XmlChildIdx: PureVal; - XmlChildOrder: PureVal; - XmlChildTx: Tx; - XmlChildInvertIfNegative: PureVal; - XmlChildDLbls: DLbls; - XmlChildCat: Cat; - XmlChildVal: Val; - XmlChildExtLst: ExtLst; - -end; - -function Ser.Create();overload; -begin - {self.}Create(nil, "c", "ser"); -end; - -function Ser.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Ser.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Ser.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "idx": array(0, makeweakref(thisFunction(ReadXmlChildIdx))), - pre + "order": array(1, makeweakref(thisFunction(ReadXmlChildOrder))), - pre + "tx": array(2, makeweakref(thisFunction(ReadXmlChildTx))), - pre + "invertIfNegative": array(3, makeweakref(thisFunction(ReadXmlChildInvertIfNegative))), - pre + "dLbls": array(4, makeweakref(thisFunction(ReadXmlChildDLbls))), - pre + "cat": array(5, makeweakref(thisFunction(ReadXmlChildCat))), - pre + "val": array(6, makeweakref(thisFunction(ReadXmlChildVal))), - pre + "extLst": array(7, makeweakref(thisFunction(ReadXmlChildExtLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Ser.Copy(_obj: Ser);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildIdx) then - {self.}Idx.Copy(_obj.XmlChildIdx); - if not ifnil(_obj.XmlChildOrder) then - {self.}Order.Copy(_obj.XmlChildOrder); - if not ifnil(_obj.XmlChildTx) then - {self.}Tx.Copy(_obj.XmlChildTx); - if not ifnil(_obj.XmlChildInvertIfNegative) then - {self.}InvertIfNegative.Copy(_obj.XmlChildInvertIfNegative); - if not ifnil(_obj.XmlChildDLbls) then - {self.}DLbls.Copy(_obj.XmlChildDLbls); - if not ifnil(_obj.XmlChildCat) then - {self.}Cat.Copy(_obj.XmlChildCat); - if not ifnil(_obj.XmlChildVal) then - {self.}Val.Copy(_obj.XmlChildVal); - if not ifnil(_obj.XmlChildExtLst) then - {self.}ExtLst.Copy(_obj.XmlChildExtLst); - tslassigning := tslassigning_backup; -end; - -function Ser.ReadXmlChildIdx(); -begin - if tslassigning and ifnil({self.}XmlChildIdx) then - begin - {self.}XmlChildIdx := new PureVal(self, {self.}Prefix, "idx"); - container_.Set({self.}XmlChildIdx); - end - return {self.}XmlChildIdx; -end; - -function Ser.ReadXmlChildOrder(); -begin - if tslassigning and ifnil({self.}XmlChildOrder) then - begin - {self.}XmlChildOrder := new PureVal(self, {self.}Prefix, "order"); - container_.Set({self.}XmlChildOrder); - end - return {self.}XmlChildOrder; -end; - -function Ser.ReadXmlChildTx(); -begin - if tslassigning and ifnil({self.}XmlChildTx) then - begin - {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); - container_.Set({self.}XmlChildTx); - end - return {self.}XmlChildTx; -end; - -function Ser.ReadXmlChildInvertIfNegative(); -begin - if tslassigning and ifnil({self.}XmlChildInvertIfNegative) then - begin - {self.}XmlChildInvertIfNegative := new PureVal(self, {self.}Prefix, "invertIfNegative"); - container_.Set({self.}XmlChildInvertIfNegative); - end - return {self.}XmlChildInvertIfNegative; -end; - -function Ser.ReadXmlChildDLbls(); -begin - if tslassigning and ifnil({self.}XmlChildDLbls) then - begin - {self.}XmlChildDLbls := new DLbls(self, {self.}Prefix, "dLbls"); - container_.Set({self.}XmlChildDLbls); - end - return {self.}XmlChildDLbls; -end; - -function Ser.ReadXmlChildCat(); -begin - if tslassigning and ifnil({self.}XmlChildCat) then - begin - {self.}XmlChildCat := new Cat(self, {self.}Prefix, "cat"); - container_.Set({self.}XmlChildCat); - end - return {self.}XmlChildCat; -end; - -function Ser.ReadXmlChildVal(); -begin - if tslassigning and ifnil({self.}XmlChildVal) then - begin - {self.}XmlChildVal := new Val(self, {self.}Prefix, "val"); - container_.Set({self.}XmlChildVal); - end - return {self.}XmlChildVal; -end; - -function Ser.ReadXmlChildExtLst(); -begin - if tslassigning and ifnil({self.}XmlChildExtLst) then - begin - {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); - container_.Set({self.}XmlChildExtLst); - end - return {self.}XmlChildExtLst; -end; diff --git a/autoclass/docx/Settings@DOCX.tsf b/autoclass/docx/Settings@DOCX.tsf deleted file mode 100644 index 1727f56..0000000 --- a/autoclass/docx/Settings@DOCX.tsf +++ /dev/null @@ -1,824 +0,0 @@ -type Settings = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Settings);override; - -public - - // attributes property - property XmlnsO read ReadXmlAttrXmlnsO write WriteXmlAttrXmlnsO; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsM read ReadXmlAttrXmlnsM write WriteXmlAttrXmlnsM; - property XmlnsV read ReadXmlAttrXmlnsV write WriteXmlAttrXmlnsV; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property XmlnsSl read ReadXmlAttrXmlnsSl write WriteXmlAttrXmlnsSl; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsO(); - function WriteXmlAttrXmlnsO(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsM(); - function WriteXmlAttrXmlnsM(_value); - function ReadXmlAttrXmlnsV(); - function WriteXmlAttrXmlnsV(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrXmlnsSl(); - function WriteXmlAttrXmlnsSl(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // empty property - property BordersDoNotSurroundHeader read ReadXmlChildBordersDoNotSurroundHeader write WriteXmlChildBordersDoNotSurroundHeader; - property BordersDoNotSurroundFooter read ReadXmlChildBordersDoNotSurroundFooter write WriteXmlChildBordersDoNotSurroundFooter; - property EvenAndOddHeaders read ReadXmlChildEvenAndOddHeaders write WriteXmlChildEvenAndOddHeaders; - property DoNotIncludeSubdocsInStats read ReadXmlChildDoNotIncludeSubdocsInStats write WriteXmlChildDoNotIncludeSubdocsInStats; - property W15ChartTrackingRefBased read ReadXmlChildW15ChartTrackingRefBased write WriteXmlChildW15ChartTrackingRefBased; - function ReadXmlChildBordersDoNotSurroundHeader(); - function WriteXmlChildBordersDoNotSurroundHeader(_value); - function ReadXmlChildBordersDoNotSurroundFooter(); - function WriteXmlChildBordersDoNotSurroundFooter(_value); - function ReadXmlChildEvenAndOddHeaders(); - function WriteXmlChildEvenAndOddHeaders(_value); - function ReadXmlChildDoNotIncludeSubdocsInStats(); - function WriteXmlChildDoNotIncludeSubdocsInStats(_value); - function ReadXmlChildW15ChartTrackingRefBased(); - function WriteXmlChildW15ChartTrackingRefBased(_value); - - // normal property - property Zoom read ReadXmlChildZoom; - property DefaultTabStop read ReadXmlChildDefaultTabStop; - property DrawingGridVerticalSpacing read ReadXmlChildDrawingGridVerticalSpacing; - property DisplayHorizontalDrawingGridEvery read ReadXmlChildDisplayHorizontalDrawingGridEvery; - property DisplayVerticalDrawingGridEvery read ReadXmlChildDisplayVerticalDrawingGridEvery; - property CharacterSpacingControl read ReadXmlChildCharacterSpacingControl; - property HdrShapeDefaults read ReadXmlChildHdrShapeDefaults; - property FootnotePr read ReadXmlChildFootnotePr; - property EndnotePr read ReadXmlChildEndnotePr; - property Compat read ReadXmlChildCompat; - property Rsids read ReadXmlChildRsids; - property MathPr read ReadXmlChildMathPr; - property ThemeFontLang read ReadXmlChildThemeFontLang; - property ClrSchemeMapping read ReadXmlChildClrSchemeMapping; - property ShapeDefaults read ReadXmlChildShapeDefaults; - property DecimalSymbol read ReadXmlChildDecimalSymbol; - property ListSeparator read ReadXmlChildListSeparator; - property W14DocId read ReadXmlChildW14DocId; - property W15DocId read ReadXmlChildW15DocId; - function ReadXmlChildZoom(); - function ReadXmlChildDefaultTabStop(); - function ReadXmlChildDrawingGridVerticalSpacing(); - function ReadXmlChildDisplayHorizontalDrawingGridEvery(); - function ReadXmlChildDisplayVerticalDrawingGridEvery(); - function ReadXmlChildCharacterSpacingControl(); - function ReadXmlChildHdrShapeDefaults(); - function ReadXmlChildFootnotePr(); - function ReadXmlChildEndnotePr(); - function ReadXmlChildCompat(); - function ReadXmlChildRsids(); - function ReadXmlChildMathPr(); - function ReadXmlChildThemeFontLang(); - function ReadXmlChildClrSchemeMapping(); - function ReadXmlChildShapeDefaults(); - function ReadXmlChildDecimalSymbol(); - function ReadXmlChildListSeparator(); - function ReadXmlChildW14DocId(); - function ReadXmlChildW15DocId(); - -public - // Attributes - XmlAttrXmlnsO: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsM: OpenXmlAttribute; - XmlAttrXmlnsV: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrXmlnsSl: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - XmlChildZoom: Zoom; - XmlChildBordersDoNotSurroundHeader: OpenXmlEmpty; - XmlChildBordersDoNotSurroundFooter: OpenXmlEmpty; - XmlChildDefaultTabStop: PureWVal; - XmlChildEvenAndOddHeaders: OpenXmlEmpty; - XmlChildDrawingGridVerticalSpacing: PureWVal; - XmlChildDisplayHorizontalDrawingGridEvery: PureWVal; - XmlChildDisplayVerticalDrawingGridEvery: PureWVal; - XmlChildCharacterSpacingControl: PureWVal; - XmlChildHdrShapeDefaults: HdrShapeDefaults; - XmlChildFootnotePr: FootnotePr; - XmlChildEndnotePr: EndnotePr; - XmlChildCompat: Compat; - XmlChildRsids: Rsids; - XmlChildMathPr: MathPr; - XmlChildThemeFontLang: ThemeFontLang; - XmlChildClrSchemeMapping: ClrSchemeMapping; - XmlChildDoNotIncludeSubdocsInStats: OpenXmlEmpty; - XmlChildShapeDefaults: ShapeDefaults2; - XmlChildDecimalSymbol: PureWVal; - XmlChildListSeparator: PureWVal; - XmlChildW14DocId: PureWVal; - XmlChildW15ChartTrackingRefBased: OpenXmlEmpty; - XmlChildW15DocId: PureWVal; - -end; - -function Settings.Create();overload; -begin - {self.}Create(nil, "w", "settings"); -end; - -function Settings.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Settings.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Settings.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:o": makeweakref(thisFunction(WriteXmlAttrXmlnsO)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:m": makeweakref(thisFunction(WriteXmlAttrXmlnsM)), - "xmlns:v": makeweakref(thisFunction(WriteXmlAttrXmlnsV)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "xmlns:sl": makeweakref(thisFunction(WriteXmlAttrXmlnsSl)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "zoom": array(0, makeweakref(thisFunction(ReadXmlChildZoom))), - pre + "bordersDoNotSurroundHeader": array(1, makeweakref(thisFunction(ReadXmlChildBordersDoNotSurroundHeader))), - pre + "bordersDoNotSurroundFooter": array(2, makeweakref(thisFunction(ReadXmlChildBordersDoNotSurroundFooter))), - pre + "defaultTabStop": array(3, makeweakref(thisFunction(ReadXmlChildDefaultTabStop))), - pre + "evenAndOddHeaders": array(4, makeweakref(thisFunction(ReadXmlChildEvenAndOddHeaders))), - pre + "drawingGridVerticalSpacing": array(5, makeweakref(thisFunction(ReadXmlChildDrawingGridVerticalSpacing))), - pre + "displayHorizontalDrawingGridEvery": array(6, makeweakref(thisFunction(ReadXmlChildDisplayHorizontalDrawingGridEvery))), - pre + "DisplayVerticalDrawingGridEvery": array(7, makeweakref(thisFunction(ReadXmlChildDisplayVerticalDrawingGridEvery))), - pre + "characterSpacingControl": array(8, makeweakref(thisFunction(ReadXmlChildCharacterSpacingControl))), - pre + "hdrShapeDefaults": array(9, makeweakref(thisFunction(ReadXmlChildHdrShapeDefaults))), - pre + "footnotePr": array(10, makeweakref(thisFunction(ReadXmlChildFootnotePr))), - pre + "endnotePr": array(11, makeweakref(thisFunction(ReadXmlChildEndnotePr))), - pre + "Compat": array(12, makeweakref(thisFunction(ReadXmlChildCompat))), - pre + "rsids": array(13, makeweakref(thisFunction(ReadXmlChildRsids))), - "m:mathPr": array(14, makeweakref(thisFunction(ReadXmlChildMathPr))), - pre + "themeFontLang": array(15, makeweakref(thisFunction(ReadXmlChildThemeFontLang))), - pre + "clrSchemeMapping": array(16, makeweakref(thisFunction(ReadXmlChildClrSchemeMapping))), - pre + "doNotIncludeSubdocsInStats": array(17, makeweakref(thisFunction(ReadXmlChildDoNotIncludeSubdocsInStats))), - pre + "shapeDefaults": array(18, makeweakref(thisFunction(ReadXmlChildShapeDefaults))), - pre + "decimalSymbol": array(19, makeweakref(thisFunction(ReadXmlChildDecimalSymbol))), - pre + "listSeparator": array(20, makeweakref(thisFunction(ReadXmlChildListSeparator))), - "w14:docId": array(21, makeweakref(thisFunction(ReadXmlChildW14DocId))), - "w15:chartTrackingRefBased": array(22, makeweakref(thisFunction(ReadXmlChildW15ChartTrackingRefBased))), - "w15:docId": array(23, makeweakref(thisFunction(ReadXmlChildW15DocId))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Settings.Copy(_obj: Settings);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsO) then - {self.}XmlnsO := _obj.XmlnsO; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsM) then - {self.}XmlnsM := _obj.XmlnsM; - if not ifnil(_obj.XmlnsV) then - {self.}XmlnsV := _obj.XmlnsV; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.XmlnsSl) then - {self.}XmlnsSl := _obj.XmlnsSl; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - if not ifnil(_obj.XmlChildZoom) then - {self.}Zoom.Copy(_obj.XmlChildZoom); - if not ifnil(_obj.XmlChildBordersDoNotSurroundHeader) then - ifnil({self.}XmlChildBordersDoNotSurroundHeader) ? {self.}BordersDoNotSurroundHeader.Copy(_obj.XmlChildBordersDoNotSurroundHeader) : {self.}XmlChildBordersDoNotSurroundHeader.Copy(_obj.XmlChildBordersDoNotSurroundHeader); - if not ifnil(_obj.XmlChildBordersDoNotSurroundFooter) then - ifnil({self.}XmlChildBordersDoNotSurroundFooter) ? {self.}BordersDoNotSurroundFooter.Copy(_obj.XmlChildBordersDoNotSurroundFooter) : {self.}XmlChildBordersDoNotSurroundFooter.Copy(_obj.XmlChildBordersDoNotSurroundFooter); - if not ifnil(_obj.XmlChildDefaultTabStop) then - {self.}DefaultTabStop.Copy(_obj.XmlChildDefaultTabStop); - if not ifnil(_obj.XmlChildEvenAndOddHeaders) then - ifnil({self.}XmlChildEvenAndOddHeaders) ? {self.}EvenAndOddHeaders.Copy(_obj.XmlChildEvenAndOddHeaders) : {self.}XmlChildEvenAndOddHeaders.Copy(_obj.XmlChildEvenAndOddHeaders); - if not ifnil(_obj.XmlChildDrawingGridVerticalSpacing) then - {self.}DrawingGridVerticalSpacing.Copy(_obj.XmlChildDrawingGridVerticalSpacing); - if not ifnil(_obj.XmlChildDisplayHorizontalDrawingGridEvery) then - {self.}DisplayHorizontalDrawingGridEvery.Copy(_obj.XmlChildDisplayHorizontalDrawingGridEvery); - if not ifnil(_obj.XmlChildDisplayVerticalDrawingGridEvery) then - {self.}DisplayVerticalDrawingGridEvery.Copy(_obj.XmlChildDisplayVerticalDrawingGridEvery); - if not ifnil(_obj.XmlChildCharacterSpacingControl) then - {self.}CharacterSpacingControl.Copy(_obj.XmlChildCharacterSpacingControl); - if not ifnil(_obj.XmlChildHdrShapeDefaults) then - {self.}HdrShapeDefaults.Copy(_obj.XmlChildHdrShapeDefaults); - if not ifnil(_obj.XmlChildFootnotePr) then - {self.}FootnotePr.Copy(_obj.XmlChildFootnotePr); - if not ifnil(_obj.XmlChildEndnotePr) then - {self.}EndnotePr.Copy(_obj.XmlChildEndnotePr); - if not ifnil(_obj.XmlChildCompat) then - {self.}Compat.Copy(_obj.XmlChildCompat); - if not ifnil(_obj.XmlChildRsids) then - {self.}Rsids.Copy(_obj.XmlChildRsids); - if not ifnil(_obj.XmlChildMathPr) then - {self.}MathPr.Copy(_obj.XmlChildMathPr); - if not ifnil(_obj.XmlChildThemeFontLang) then - {self.}ThemeFontLang.Copy(_obj.XmlChildThemeFontLang); - if not ifnil(_obj.XmlChildClrSchemeMapping) then - {self.}ClrSchemeMapping.Copy(_obj.XmlChildClrSchemeMapping); - if not ifnil(_obj.XmlChildDoNotIncludeSubdocsInStats) then - ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) ? {self.}DoNotIncludeSubdocsInStats.Copy(_obj.XmlChildDoNotIncludeSubdocsInStats) : {self.}XmlChildDoNotIncludeSubdocsInStats.Copy(_obj.XmlChildDoNotIncludeSubdocsInStats); - if not ifnil(_obj.XmlChildShapeDefaults) then - {self.}ShapeDefaults.Copy(_obj.XmlChildShapeDefaults); - if not ifnil(_obj.XmlChildDecimalSymbol) then - {self.}DecimalSymbol.Copy(_obj.XmlChildDecimalSymbol); - if not ifnil(_obj.XmlChildListSeparator) then - {self.}ListSeparator.Copy(_obj.XmlChildListSeparator); - if not ifnil(_obj.XmlChildW14DocId) then - {self.}W14DocId.Copy(_obj.XmlChildW14DocId); - if not ifnil(_obj.XmlChildW15ChartTrackingRefBased) then - ifnil({self.}XmlChildW15ChartTrackingRefBased) ? {self.}W15ChartTrackingRefBased.Copy(_obj.XmlChildW15ChartTrackingRefBased) : {self.}XmlChildW15ChartTrackingRefBased.Copy(_obj.XmlChildW15ChartTrackingRefBased); - if not ifnil(_obj.XmlChildW15DocId) then - {self.}W15DocId.Copy(_obj.XmlChildW15DocId); - tslassigning := tslassigning_backup; -end; - -function Settings.ReadXmlAttrXmlnsO(); -begin - return {self.}XmlAttrXmlnsO.Value; -end; - -function Settings.WriteXmlAttrXmlnsO(_value); -begin - if ifnil({self.}XmlAttrXmlnsO) then - begin - {self.}XmlAttrXmlnsO := new OpenXmlAttribute("xmlns", "o", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsO; - end - {self.}XmlAttrXmlnsO.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Settings.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsM(); -begin - return {self.}XmlAttrXmlnsM.Value; -end; - -function Settings.WriteXmlAttrXmlnsM(_value); -begin - if ifnil({self.}XmlAttrXmlnsM) then - begin - {self.}XmlAttrXmlnsM := new OpenXmlAttribute("xmlns", "m", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsM; - end - {self.}XmlAttrXmlnsM.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsV(); -begin - return {self.}XmlAttrXmlnsV.Value; -end; - -function Settings.WriteXmlAttrXmlnsV(_value); -begin - if ifnil({self.}XmlAttrXmlnsV) then - begin - {self.}XmlAttrXmlnsV := new OpenXmlAttribute("xmlns", "v", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsV; - end - {self.}XmlAttrXmlnsV.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function Settings.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Settings.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Settings.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function Settings.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function Settings.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function Settings.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function Settings.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function Settings.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function Settings.ReadXmlAttrXmlnsSl(); -begin - return {self.}XmlAttrXmlnsSl.Value; -end; - -function Settings.WriteXmlAttrXmlnsSl(_value); -begin - if ifnil({self.}XmlAttrXmlnsSl) then - begin - {self.}XmlAttrXmlnsSl := new OpenXmlAttribute("xmlns", "sl", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsSl; - end - {self.}XmlAttrXmlnsSl.Value := _value; -end; - -function Settings.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Settings.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Settings.ReadXmlChildBordersDoNotSurroundHeader(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildBordersDoNotSurroundHeader) then - begin - {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundHeader"); - container_.Set({self.}XmlChildBordersDoNotSurroundHeader); - end - return {self.}XmlChildBordersDoNotSurroundHeader; - end - return ifnil({self.}XmlChildBordersDoNotSurroundHeader) ? nil : {self.}XmlChildBordersDoNotSurroundHeader.BoolValue(); -end; - -function Settings.WriteXmlChildBordersDoNotSurroundHeader(_value); -begin - if ifnil({self.}XmlChildBordersDoNotSurroundHeader) then - begin - {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundHeader"); - container_.Set({self.}XmlChildBordersDoNotSurroundHeader); - end - {self.}XmlChildBordersDoNotSurroundHeader.Value := _value; -end; - -function Settings.ReadXmlChildBordersDoNotSurroundFooter(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildBordersDoNotSurroundFooter) then - begin - {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundFooter"); - container_.Set({self.}XmlChildBordersDoNotSurroundFooter); - end - return {self.}XmlChildBordersDoNotSurroundFooter; - end - return ifnil({self.}XmlChildBordersDoNotSurroundFooter) ? nil : {self.}XmlChildBordersDoNotSurroundFooter.BoolValue(); -end; - -function Settings.WriteXmlChildBordersDoNotSurroundFooter(_value); -begin - if ifnil({self.}XmlChildBordersDoNotSurroundFooter) then - begin - {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundFooter"); - container_.Set({self.}XmlChildBordersDoNotSurroundFooter); - end - {self.}XmlChildBordersDoNotSurroundFooter.Value := _value; -end; - -function Settings.ReadXmlChildEvenAndOddHeaders(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildEvenAndOddHeaders) then - begin - {self.}XmlChildEvenAndOddHeaders := new OpenXmlEmpty(self, {self.}Prefix, "evenAndOddHeaders"); - container_.Set({self.}XmlChildEvenAndOddHeaders); - end - return {self.}XmlChildEvenAndOddHeaders; - end - return ifnil({self.}XmlChildEvenAndOddHeaders) ? nil : {self.}XmlChildEvenAndOddHeaders.BoolValue(); -end; - -function Settings.WriteXmlChildEvenAndOddHeaders(_value); -begin - if ifnil({self.}XmlChildEvenAndOddHeaders) then - begin - {self.}XmlChildEvenAndOddHeaders := new OpenXmlEmpty(self, {self.}Prefix, "evenAndOddHeaders"); - container_.Set({self.}XmlChildEvenAndOddHeaders); - end - {self.}XmlChildEvenAndOddHeaders.Value := _value; -end; - -function Settings.ReadXmlChildDoNotIncludeSubdocsInStats(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) then - begin - {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlEmpty(self, {self.}Prefix, "doNotIncludeSubdocsInStats"); - container_.Set({self.}XmlChildDoNotIncludeSubdocsInStats); - end - return {self.}XmlChildDoNotIncludeSubdocsInStats; - end - return ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) ? nil : {self.}XmlChildDoNotIncludeSubdocsInStats.BoolValue(); -end; - -function Settings.WriteXmlChildDoNotIncludeSubdocsInStats(_value); -begin - if ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) then - begin - {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlEmpty(self, {self.}Prefix, "doNotIncludeSubdocsInStats"); - container_.Set({self.}XmlChildDoNotIncludeSubdocsInStats); - end - {self.}XmlChildDoNotIncludeSubdocsInStats.Value := _value; -end; - -function Settings.ReadXmlChildW15ChartTrackingRefBased(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildW15ChartTrackingRefBased) then - begin - {self.}XmlChildW15ChartTrackingRefBased := new OpenXmlEmpty(self, "w15", "chartTrackingRefBased"); - container_.Set({self.}XmlChildW15ChartTrackingRefBased); - end - return {self.}XmlChildW15ChartTrackingRefBased; - end - return ifnil({self.}XmlChildW15ChartTrackingRefBased) ? nil : {self.}XmlChildW15ChartTrackingRefBased.BoolValue(); -end; - -function Settings.WriteXmlChildW15ChartTrackingRefBased(_value); -begin - if ifnil({self.}XmlChildW15ChartTrackingRefBased) then - begin - {self.}XmlChildW15ChartTrackingRefBased := new OpenXmlEmpty(self, "w15", "chartTrackingRefBased"); - container_.Set({self.}XmlChildW15ChartTrackingRefBased); - end - {self.}XmlChildW15ChartTrackingRefBased.Value := _value; -end; - -function Settings.ReadXmlChildZoom(); -begin - if tslassigning and ifnil({self.}XmlChildZoom) then - begin - {self.}XmlChildZoom := new Zoom(self, {self.}Prefix, "zoom"); - container_.Set({self.}XmlChildZoom); - end - return {self.}XmlChildZoom; -end; - -function Settings.ReadXmlChildDefaultTabStop(); -begin - if tslassigning and ifnil({self.}XmlChildDefaultTabStop) then - begin - {self.}XmlChildDefaultTabStop := new PureWVal(self, {self.}Prefix, "defaultTabStop"); - container_.Set({self.}XmlChildDefaultTabStop); - end - return {self.}XmlChildDefaultTabStop; -end; - -function Settings.ReadXmlChildDrawingGridVerticalSpacing(); -begin - if tslassigning and ifnil({self.}XmlChildDrawingGridVerticalSpacing) then - begin - {self.}XmlChildDrawingGridVerticalSpacing := new PureWVal(self, {self.}Prefix, "drawingGridVerticalSpacing"); - container_.Set({self.}XmlChildDrawingGridVerticalSpacing); - end - return {self.}XmlChildDrawingGridVerticalSpacing; -end; - -function Settings.ReadXmlChildDisplayHorizontalDrawingGridEvery(); -begin - if tslassigning and ifnil({self.}XmlChildDisplayHorizontalDrawingGridEvery) then - begin - {self.}XmlChildDisplayHorizontalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "displayHorizontalDrawingGridEvery"); - container_.Set({self.}XmlChildDisplayHorizontalDrawingGridEvery); - end - return {self.}XmlChildDisplayHorizontalDrawingGridEvery; -end; - -function Settings.ReadXmlChildDisplayVerticalDrawingGridEvery(); -begin - if tslassigning and ifnil({self.}XmlChildDisplayVerticalDrawingGridEvery) then - begin - {self.}XmlChildDisplayVerticalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "DisplayVerticalDrawingGridEvery"); - container_.Set({self.}XmlChildDisplayVerticalDrawingGridEvery); - end - return {self.}XmlChildDisplayVerticalDrawingGridEvery; -end; - -function Settings.ReadXmlChildCharacterSpacingControl(); -begin - if tslassigning and ifnil({self.}XmlChildCharacterSpacingControl) then - begin - {self.}XmlChildCharacterSpacingControl := new PureWVal(self, {self.}Prefix, "characterSpacingControl"); - container_.Set({self.}XmlChildCharacterSpacingControl); - end - return {self.}XmlChildCharacterSpacingControl; -end; - -function Settings.ReadXmlChildHdrShapeDefaults(); -begin - if tslassigning and ifnil({self.}XmlChildHdrShapeDefaults) then - begin - {self.}XmlChildHdrShapeDefaults := new HdrShapeDefaults(self, {self.}Prefix, "hdrShapeDefaults"); - container_.Set({self.}XmlChildHdrShapeDefaults); - end - return {self.}XmlChildHdrShapeDefaults; -end; - -function Settings.ReadXmlChildFootnotePr(); -begin - if tslassigning and ifnil({self.}XmlChildFootnotePr) then - begin - {self.}XmlChildFootnotePr := new FootnotePr(self, {self.}Prefix, "footnotePr"); - container_.Set({self.}XmlChildFootnotePr); - end - return {self.}XmlChildFootnotePr; -end; - -function Settings.ReadXmlChildEndnotePr(); -begin - if tslassigning and ifnil({self.}XmlChildEndnotePr) then - begin - {self.}XmlChildEndnotePr := new EndnotePr(self, {self.}Prefix, "endnotePr"); - container_.Set({self.}XmlChildEndnotePr); - end - return {self.}XmlChildEndnotePr; -end; - -function Settings.ReadXmlChildCompat(); -begin - if tslassigning and ifnil({self.}XmlChildCompat) then - begin - {self.}XmlChildCompat := new Compat(self, {self.}Prefix, "Compat"); - container_.Set({self.}XmlChildCompat); - end - return {self.}XmlChildCompat; -end; - -function Settings.ReadXmlChildRsids(); -begin - if tslassigning and ifnil({self.}XmlChildRsids) then - begin - {self.}XmlChildRsids := new Rsids(self, {self.}Prefix, "rsids"); - container_.Set({self.}XmlChildRsids); - end - return {self.}XmlChildRsids; -end; - -function Settings.ReadXmlChildMathPr(); -begin - if tslassigning and ifnil({self.}XmlChildMathPr) then - begin - {self.}XmlChildMathPr := new MathPr(self, "m", "mathPr"); - container_.Set({self.}XmlChildMathPr); - end - return {self.}XmlChildMathPr; -end; - -function Settings.ReadXmlChildThemeFontLang(); -begin - if tslassigning and ifnil({self.}XmlChildThemeFontLang) then - begin - {self.}XmlChildThemeFontLang := new ThemeFontLang(self, {self.}Prefix, "themeFontLang"); - container_.Set({self.}XmlChildThemeFontLang); - end - return {self.}XmlChildThemeFontLang; -end; - -function Settings.ReadXmlChildClrSchemeMapping(); -begin - if tslassigning and ifnil({self.}XmlChildClrSchemeMapping) then - begin - {self.}XmlChildClrSchemeMapping := new ClrSchemeMapping(self, {self.}Prefix, "clrSchemeMapping"); - container_.Set({self.}XmlChildClrSchemeMapping); - end - return {self.}XmlChildClrSchemeMapping; -end; - -function Settings.ReadXmlChildShapeDefaults(); -begin - if tslassigning and ifnil({self.}XmlChildShapeDefaults) then - begin - {self.}XmlChildShapeDefaults := new ShapeDefaults2(self, {self.}Prefix, "shapeDefaults"); - container_.Set({self.}XmlChildShapeDefaults); - end - return {self.}XmlChildShapeDefaults; -end; - -function Settings.ReadXmlChildDecimalSymbol(); -begin - if tslassigning and ifnil({self.}XmlChildDecimalSymbol) then - begin - {self.}XmlChildDecimalSymbol := new PureWVal(self, {self.}Prefix, "decimalSymbol"); - container_.Set({self.}XmlChildDecimalSymbol); - end - return {self.}XmlChildDecimalSymbol; -end; - -function Settings.ReadXmlChildListSeparator(); -begin - if tslassigning and ifnil({self.}XmlChildListSeparator) then - begin - {self.}XmlChildListSeparator := new PureWVal(self, {self.}Prefix, "listSeparator"); - container_.Set({self.}XmlChildListSeparator); - end - return {self.}XmlChildListSeparator; -end; - -function Settings.ReadXmlChildW14DocId(); -begin - if tslassigning and ifnil({self.}XmlChildW14DocId) then - begin - {self.}XmlChildW14DocId := new PureWVal(self, "w14", "docId"); - container_.Set({self.}XmlChildW14DocId); - end - return {self.}XmlChildW14DocId; -end; - -function Settings.ReadXmlChildW15DocId(); -begin - if tslassigning and ifnil({self.}XmlChildW15DocId) then - begin - {self.}XmlChildW15DocId := new PureWVal(self, "w15", "docId"); - container_.Set({self.}XmlChildW15DocId); - end - return {self.}XmlChildW15DocId; -end; diff --git a/autoclass/docx/Shape@DOCX.tsf b/autoclass/docx/Shape@DOCX.tsf deleted file mode 100644 index 1ab6784..0000000 --- a/autoclass/docx/Shape@DOCX.tsf +++ /dev/null @@ -1,263 +0,0 @@ -type Shape = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Shape);override; - -public - - // attributes property - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Style read ReadXmlAttrStyle write WriteXmlAttrStyle; - property Spid read ReadXmlAttrSpid write WriteXmlAttrSpid; - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Gfxdata read ReadXmlAttrGfxdata write WriteXmlAttrGfxdata; - property Filled read ReadXmlAttrFilled write WriteXmlAttrFilled; - property Stroked read ReadXmlAttrStroked write WriteXmlAttrStroked; - property Ole read ReadXmlAttrOle write WriteXmlAttrOle; - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrStyle(); - function WriteXmlAttrStyle(_value); - function ReadXmlAttrSpid(); - function WriteXmlAttrSpid(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrGfxdata(); - function WriteXmlAttrGfxdata(_value); - function ReadXmlAttrFilled(); - function WriteXmlAttrFilled(_value); - function ReadXmlAttrStroked(); - function WriteXmlAttrStroked(_value); - function ReadXmlAttrOle(); - function WriteXmlAttrOle(_value); - - // normal property - property Textbox read ReadXmlChildTextbox; - property Imagedata read ReadXmlChildImagedata; - function ReadXmlChildTextbox(); - function ReadXmlChildImagedata(); - -public - // Attributes - XmlAttrId: OpenXmlAttribute; - XmlAttrStyle: OpenXmlAttribute; - XmlAttrSpid: OpenXmlAttribute; - XmlAttrType: OpenXmlAttribute; - XmlAttrGfxdata: OpenXmlAttribute; - XmlAttrFilled: OpenXmlAttribute; - XmlAttrStroked: OpenXmlAttribute; - XmlAttrOle: OpenXmlAttribute; - - // Children - XmlChildTextbox: Textbox; - XmlChildImagedata: Imagedata; - -end; - -function Shape.Create();overload; -begin - {self.}Create(nil, "v", "shape"); -end; - -function Shape.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Shape.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Shape.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "id": makeweakref(thisFunction(WriteXmlAttrId)), - "style": makeweakref(thisFunction(WriteXmlAttrStyle)), - "o:spid": makeweakref(thisFunction(WriteXmlAttrSpid)), - "type": makeweakref(thisFunction(WriteXmlAttrType)), - "o:gfxdata": makeweakref(thisFunction(WriteXmlAttrGfxdata)), - "filled": makeweakref(thisFunction(WriteXmlAttrFilled)), - "stroked": makeweakref(thisFunction(WriteXmlAttrStroked)), - "o:ole": makeweakref(thisFunction(WriteXmlAttrOle)), - ); - sorted_child_ := array( - pre + "textbox": array(0, makeweakref(thisFunction(ReadXmlChildTextbox))), - pre + "imagedata": array(1, makeweakref(thisFunction(ReadXmlChildImagedata))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Shape.Copy(_obj: Shape);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Style) then - {self.}Style := _obj.Style; - if not ifnil(_obj.Spid) then - {self.}Spid := _obj.Spid; - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.Gfxdata) then - {self.}Gfxdata := _obj.Gfxdata; - if not ifnil(_obj.Filled) then - {self.}Filled := _obj.Filled; - if not ifnil(_obj.Stroked) then - {self.}Stroked := _obj.Stroked; - if not ifnil(_obj.Ole) then - {self.}Ole := _obj.Ole; - if not ifnil(_obj.XmlChildTextbox) then - {self.}Textbox.Copy(_obj.XmlChildTextbox); - if not ifnil(_obj.XmlChildImagedata) then - {self.}Imagedata.Copy(_obj.XmlChildImagedata); - tslassigning := tslassigning_backup; -end; - -function Shape.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Shape.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Shape.ReadXmlAttrStyle(); -begin - return {self.}XmlAttrStyle.Value; -end; - -function Shape.WriteXmlAttrStyle(_value); -begin - if ifnil({self.}XmlAttrStyle) then - begin - {self.}XmlAttrStyle := new OpenXmlAttribute("", "style", nil); - attributes_[length(attributes_)] := {self.}XmlAttrStyle; - end - {self.}XmlAttrStyle.Value := _value; -end; - -function Shape.ReadXmlAttrSpid(); -begin - return {self.}XmlAttrSpid.Value; -end; - -function Shape.WriteXmlAttrSpid(_value); -begin - if ifnil({self.}XmlAttrSpid) then - begin - {self.}XmlAttrSpid := new OpenXmlAttribute("o", "spid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpid; - end - {self.}XmlAttrSpid.Value := _value; -end; - -function Shape.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function Shape.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute("", "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function Shape.ReadXmlAttrGfxdata(); -begin - return {self.}XmlAttrGfxdata.Value; -end; - -function Shape.WriteXmlAttrGfxdata(_value); -begin - if ifnil({self.}XmlAttrGfxdata) then - begin - {self.}XmlAttrGfxdata := new OpenXmlAttribute("o", "gfxdata", nil); - attributes_[length(attributes_)] := {self.}XmlAttrGfxdata; - end - {self.}XmlAttrGfxdata.Value := _value; -end; - -function Shape.ReadXmlAttrFilled(); -begin - return {self.}XmlAttrFilled.Value; -end; - -function Shape.WriteXmlAttrFilled(_value); -begin - if ifnil({self.}XmlAttrFilled) then - begin - {self.}XmlAttrFilled := new OpenXmlAttribute("", "filled", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFilled; - end - {self.}XmlAttrFilled.Value := _value; -end; - -function Shape.ReadXmlAttrStroked(); -begin - return {self.}XmlAttrStroked.Value; -end; - -function Shape.WriteXmlAttrStroked(_value); -begin - if ifnil({self.}XmlAttrStroked) then - begin - {self.}XmlAttrStroked := new OpenXmlAttribute("", "stroked", nil); - attributes_[length(attributes_)] := {self.}XmlAttrStroked; - end - {self.}XmlAttrStroked.Value := _value; -end; - -function Shape.ReadXmlAttrOle(); -begin - return {self.}XmlAttrOle.Value; -end; - -function Shape.WriteXmlAttrOle(_value); -begin - if ifnil({self.}XmlAttrOle) then - begin - {self.}XmlAttrOle := new OpenXmlAttribute("o", "ole", nil); - attributes_[length(attributes_)] := {self.}XmlAttrOle; - end - {self.}XmlAttrOle.Value := _value; -end; - -function Shape.ReadXmlChildTextbox(); -begin - if tslassigning and ifnil({self.}XmlChildTextbox) then - begin - {self.}XmlChildTextbox := new Textbox(self, {self.}Prefix, "textbox"); - container_.Set({self.}XmlChildTextbox); - end - return {self.}XmlChildTextbox; -end; - -function Shape.ReadXmlChildImagedata(); -begin - if tslassigning and ifnil({self.}XmlChildImagedata) then - begin - {self.}XmlChildImagedata := new Imagedata(self, {self.}Prefix, "imagedata"); - container_.Set({self.}XmlChildImagedata); - end - return {self.}XmlChildImagedata; -end; diff --git a/autoclass/docx/ShapeDefaults2@DOCX.tsf b/autoclass/docx/ShapeDefaults2@DOCX.tsf deleted file mode 100644 index a41604c..0000000 --- a/autoclass/docx/ShapeDefaults2@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type ShapeDefaults2 = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ShapeDefaults2);override; - -public - - // normal property - property ShapeDefaults read ReadXmlChildShapeDefaults; - property ShapeLayout read ReadXmlChildShapeLayout; - function ReadXmlChildShapeDefaults(); - function ReadXmlChildShapeLayout(); - -public - // Children - XmlChildShapeDefaults: ShapeDefaults; - XmlChildShapeLayout: ShapeLayout; - -end; - -function ShapeDefaults2.Create();overload; -begin - {self.}Create(nil, "w", "shapeDefaults"); -end; - -function ShapeDefaults2.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ShapeDefaults2.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ShapeDefaults2.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "o:shapeDefaults": array(0, makeweakref(thisFunction(ReadXmlChildShapeDefaults))), - "o:shapelayout": array(1, makeweakref(thisFunction(ReadXmlChildShapeLayout))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ShapeDefaults2.Copy(_obj: ShapeDefaults2);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildShapeDefaults) then - {self.}ShapeDefaults.Copy(_obj.XmlChildShapeDefaults); - if not ifnil(_obj.XmlChildShapeLayout) then - {self.}ShapeLayout.Copy(_obj.XmlChildShapeLayout); - tslassigning := tslassigning_backup; -end; - -function ShapeDefaults2.ReadXmlChildShapeDefaults(); -begin - if tslassigning and ifnil({self.}XmlChildShapeDefaults) then - begin - {self.}XmlChildShapeDefaults := new ShapeDefaults(self, "o", "shapeDefaults"); - container_.Set({self.}XmlChildShapeDefaults); - end - return {self.}XmlChildShapeDefaults; -end; - -function ShapeDefaults2.ReadXmlChildShapeLayout(); -begin - if tslassigning and ifnil({self.}XmlChildShapeLayout) then - begin - {self.}XmlChildShapeLayout := new ShapeLayout(self, "o", "shapelayout"); - container_.Set({self.}XmlChildShapeLayout); - end - return {self.}XmlChildShapeLayout; -end; diff --git a/autoclass/docx/ShapeDefaults@DOCX.tsf b/autoclass/docx/ShapeDefaults@DOCX.tsf deleted file mode 100644 index 270d6cc..0000000 --- a/autoclass/docx/ShapeDefaults@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type ShapeDefaults = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ShapeDefaults);override; - -public - - // attributes property - property Ext read ReadXmlAttrExt write WriteXmlAttrExt; - property Spidmax read ReadXmlAttrSpidmax write WriteXmlAttrSpidmax; - function ReadXmlAttrExt(); - function WriteXmlAttrExt(_value); - function ReadXmlAttrSpidmax(); - function WriteXmlAttrSpidmax(_value); - -public - // Attributes - XmlAttrExt: OpenXmlAttribute; - XmlAttrSpidmax: OpenXmlAttribute; - - -end; - -function ShapeDefaults.Create();overload; -begin - {self.}Create(nil, "o", "shapeDefaults"); -end; - -function ShapeDefaults.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ShapeDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ShapeDefaults.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), - "spidmax": makeweakref(thisFunction(WriteXmlAttrSpidmax)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ShapeDefaults.Copy(_obj: ShapeDefaults);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Ext) then - {self.}Ext := _obj.Ext; - if not ifnil(_obj.Spidmax) then - {self.}Spidmax := _obj.Spidmax; - tslassigning := tslassigning_backup; -end; - -function ShapeDefaults.ReadXmlAttrExt(); -begin - return {self.}XmlAttrExt.Value; -end; - -function ShapeDefaults.WriteXmlAttrExt(_value); -begin - if ifnil({self.}XmlAttrExt) then - begin - {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); - attributes_[length(attributes_)] := {self.}XmlAttrExt; - end - {self.}XmlAttrExt.Value := _value; -end; - -function ShapeDefaults.ReadXmlAttrSpidmax(); -begin - return {self.}XmlAttrSpidmax.Value; -end; - -function ShapeDefaults.WriteXmlAttrSpidmax(_value); -begin - if ifnil({self.}XmlAttrSpidmax) then - begin - {self.}XmlAttrSpidmax := new OpenXmlAttribute("", "spidmax", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpidmax; - end - {self.}XmlAttrSpidmax.Value := _value; -end; diff --git a/autoclass/docx/ShapeLayout@DOCX.tsf b/autoclass/docx/ShapeLayout@DOCX.tsf deleted file mode 100644 index 669d07c..0000000 --- a/autoclass/docx/ShapeLayout@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type ShapeLayout = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ShapeLayout);override; - -public - - // attributes property - property Ext read ReadXmlAttrExt write WriteXmlAttrExt; - function ReadXmlAttrExt(); - function WriteXmlAttrExt(_value); - - // normal property - property IdMap read ReadXmlChildIdMap; - function ReadXmlChildIdMap(); - -public - // Attributes - XmlAttrExt: OpenXmlAttribute; - - // Children - XmlChildIdMap: IdMap; - -end; - -function ShapeLayout.Create();overload; -begin - {self.}Create(nil, "o", "shapelayout"); -end; - -function ShapeLayout.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ShapeLayout.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ShapeLayout.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), - ); - sorted_child_ := array( - pre + "idmap": array(0, makeweakref(thisFunction(ReadXmlChildIdMap))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ShapeLayout.Copy(_obj: ShapeLayout);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Ext) then - {self.}Ext := _obj.Ext; - if not ifnil(_obj.XmlChildIdMap) then - {self.}IdMap.Copy(_obj.XmlChildIdMap); - tslassigning := tslassigning_backup; -end; - -function ShapeLayout.ReadXmlAttrExt(); -begin - return {self.}XmlAttrExt.Value; -end; - -function ShapeLayout.WriteXmlAttrExt(_value); -begin - if ifnil({self.}XmlAttrExt) then - begin - {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); - attributes_[length(attributes_)] := {self.}XmlAttrExt; - end - {self.}XmlAttrExt.Value := _value; -end; - -function ShapeLayout.ReadXmlChildIdMap(); -begin - if tslassigning and ifnil({self.}XmlChildIdMap) then - begin - {self.}XmlChildIdMap := new IdMap(self, {self.}Prefix, "idmap"); - container_.Set({self.}XmlChildIdMap); - end - return {self.}XmlChildIdMap; -end; diff --git a/autoclass/docx/Shapetype@DOCX.tsf b/autoclass/docx/Shapetype@DOCX.tsf deleted file mode 100644 index 3fc7059..0000000 --- a/autoclass/docx/Shapetype@DOCX.tsf +++ /dev/null @@ -1,295 +0,0 @@ -type Shapetype = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Shapetype);override; - -public - - // attributes property - property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Coordsize read ReadXmlAttrCoordsize write WriteXmlAttrCoordsize; - property Spt read ReadXmlAttrSpt write WriteXmlAttrSpt; - property Preferrelative read ReadXmlAttrPreferrelative write WriteXmlAttrPreferrelative; - property Path read ReadXmlAttrPath write WriteXmlAttrPath; - property Filled read ReadXmlAttrFilled write WriteXmlAttrFilled; - property Stroked read ReadXmlAttrStroked write WriteXmlAttrStroked; - function ReadXmlAttrAnchorId(); - function WriteXmlAttrAnchorId(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrCoordsize(); - function WriteXmlAttrCoordsize(_value); - function ReadXmlAttrSpt(); - function WriteXmlAttrSpt(_value); - function ReadXmlAttrPreferrelative(); - function WriteXmlAttrPreferrelative(_value); - function ReadXmlAttrPath(); - function WriteXmlAttrPath(_value); - function ReadXmlAttrFilled(); - function WriteXmlAttrFilled(_value); - function ReadXmlAttrStroked(); - function WriteXmlAttrStroked(_value); - - // normal property - property Stroke read ReadXmlChildStroke; - property Formulas read ReadXmlChildFormulas; - property Path read ReadXmlChildPath; - property Lock read ReadXmlChildLock; - function ReadXmlChildStroke(); - function ReadXmlChildFormulas(); - function ReadXmlChildPath(); - function ReadXmlChildLock(); - -public - // Attributes - XmlAttrAnchorId: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - XmlAttrCoordsize: OpenXmlAttribute; - XmlAttrSpt: OpenXmlAttribute; - XmlAttrPreferrelative: OpenXmlAttribute; - XmlAttrPath: OpenXmlAttribute; - XmlAttrFilled: OpenXmlAttribute; - XmlAttrStroked: OpenXmlAttribute; - - // Children - XmlChildStroke: Stroke; - XmlChildFormulas: formulas; - XmlChildPath: Path; - XmlChildLock: Lock; - -end; - -function Shapetype.Create();overload; -begin - {self.}Create(nil, "v", "shapetype"); -end; - -function Shapetype.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Shapetype.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Shapetype.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), - "id": makeweakref(thisFunction(WriteXmlAttrId)), - "coordsize": makeweakref(thisFunction(WriteXmlAttrCoordsize)), - "o:spt": makeweakref(thisFunction(WriteXmlAttrSpt)), - "preferrelative": makeweakref(thisFunction(WriteXmlAttrPreferrelative)), - "path": makeweakref(thisFunction(WriteXmlAttrPath)), - "filled": makeweakref(thisFunction(WriteXmlAttrFilled)), - "stroked": makeweakref(thisFunction(WriteXmlAttrStroked)), - ); - sorted_child_ := array( - pre + "stroke": array(0, makeweakref(thisFunction(ReadXmlChildStroke))), - pre + "formulas": array(1, makeweakref(thisFunction(ReadXmlChildFormulas))), - pre + "path": array(2, makeweakref(thisFunction(ReadXmlChildPath))), - "o:lock": array(3, makeweakref(thisFunction(ReadXmlChildLock))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Shapetype.Copy(_obj: Shapetype);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.AnchorId) then - {self.}AnchorId := _obj.AnchorId; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Coordsize) then - {self.}Coordsize := _obj.Coordsize; - if not ifnil(_obj.Spt) then - {self.}Spt := _obj.Spt; - if not ifnil(_obj.Preferrelative) then - {self.}Preferrelative := _obj.Preferrelative; - if not ifnil(_obj.Path) then - {self.}Path := _obj.Path; - if not ifnil(_obj.Filled) then - {self.}Filled := _obj.Filled; - if not ifnil(_obj.Stroked) then - {self.}Stroked := _obj.Stroked; - if not ifnil(_obj.XmlChildStroke) then - {self.}Stroke.Copy(_obj.XmlChildStroke); - if not ifnil(_obj.XmlChildFormulas) then - {self.}Formulas.Copy(_obj.XmlChildFormulas); - if not ifnil(_obj.XmlChildPath) then - {self.}Path.Copy(_obj.XmlChildPath); - if not ifnil(_obj.XmlChildLock) then - {self.}Lock.Copy(_obj.XmlChildLock); - tslassigning := tslassigning_backup; -end; - -function Shapetype.ReadXmlAttrAnchorId(); -begin - return {self.}XmlAttrAnchorId.Value; -end; - -function Shapetype.WriteXmlAttrAnchorId(_value); -begin - if ifnil({self.}XmlAttrAnchorId) then - begin - {self.}XmlAttrAnchorId := new OpenXmlAttribute("w14", "anchorId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; - end - {self.}XmlAttrAnchorId.Value := _value; -end; - -function Shapetype.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function Shapetype.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function Shapetype.ReadXmlAttrCoordsize(); -begin - return {self.}XmlAttrCoordsize.Value; -end; - -function Shapetype.WriteXmlAttrCoordsize(_value); -begin - if ifnil({self.}XmlAttrCoordsize) then - begin - {self.}XmlAttrCoordsize := new OpenXmlAttribute("", "coordsize", nil); - attributes_[length(attributes_)] := {self.}XmlAttrCoordsize; - end - {self.}XmlAttrCoordsize.Value := _value; -end; - -function Shapetype.ReadXmlAttrSpt(); -begin - return {self.}XmlAttrSpt.Value; -end; - -function Shapetype.WriteXmlAttrSpt(_value); -begin - if ifnil({self.}XmlAttrSpt) then - begin - {self.}XmlAttrSpt := new OpenXmlAttribute("o", "spt", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpt; - end - {self.}XmlAttrSpt.Value := _value; -end; - -function Shapetype.ReadXmlAttrPreferrelative(); -begin - return {self.}XmlAttrPreferrelative.Value; -end; - -function Shapetype.WriteXmlAttrPreferrelative(_value); -begin - if ifnil({self.}XmlAttrPreferrelative) then - begin - {self.}XmlAttrPreferrelative := new OpenXmlAttribute("", "preferrelative", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPreferrelative; - end - {self.}XmlAttrPreferrelative.Value := _value; -end; - -function Shapetype.ReadXmlAttrPath(); -begin - return {self.}XmlAttrPath.Value; -end; - -function Shapetype.WriteXmlAttrPath(_value); -begin - if ifnil({self.}XmlAttrPath) then - begin - {self.}XmlAttrPath := new OpenXmlAttribute("", "path", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPath; - end - {self.}XmlAttrPath.Value := _value; -end; - -function Shapetype.ReadXmlAttrFilled(); -begin - return {self.}XmlAttrFilled.Value; -end; - -function Shapetype.WriteXmlAttrFilled(_value); -begin - if ifnil({self.}XmlAttrFilled) then - begin - {self.}XmlAttrFilled := new OpenXmlAttribute("", "filled", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFilled; - end - {self.}XmlAttrFilled.Value := _value; -end; - -function Shapetype.ReadXmlAttrStroked(); -begin - return {self.}XmlAttrStroked.Value; -end; - -function Shapetype.WriteXmlAttrStroked(_value); -begin - if ifnil({self.}XmlAttrStroked) then - begin - {self.}XmlAttrStroked := new OpenXmlAttribute("", "stroked", nil); - attributes_[length(attributes_)] := {self.}XmlAttrStroked; - end - {self.}XmlAttrStroked.Value := _value; -end; - -function Shapetype.ReadXmlChildStroke(); -begin - if tslassigning and ifnil({self.}XmlChildStroke) then - begin - {self.}XmlChildStroke := new Stroke(self, {self.}Prefix, "stroke"); - container_.Set({self.}XmlChildStroke); - end - return {self.}XmlChildStroke; -end; - -function Shapetype.ReadXmlChildFormulas(); -begin - if tslassigning and ifnil({self.}XmlChildFormulas) then - begin - {self.}XmlChildFormulas := new formulas(self, {self.}Prefix, "formulas"); - container_.Set({self.}XmlChildFormulas); - end - return {self.}XmlChildFormulas; -end; - -function Shapetype.ReadXmlChildPath(); -begin - if tslassigning and ifnil({self.}XmlChildPath) then - begin - {self.}XmlChildPath := new Path(self, {self.}Prefix, "path"); - container_.Set({self.}XmlChildPath); - end - return {self.}XmlChildPath; -end; - -function Shapetype.ReadXmlChildLock(); -begin - if tslassigning and ifnil({self.}XmlChildLock) then - begin - {self.}XmlChildLock := new Lock(self, "o", "lock"); - container_.Set({self.}XmlChildLock); - end - return {self.}XmlChildLock; -end; diff --git a/autoclass/docx/Shd@DOCX.tsf b/autoclass/docx/Shd@DOCX.tsf deleted file mode 100644 index da85a8e..0000000 --- a/autoclass/docx/Shd@DOCX.tsf +++ /dev/null @@ -1,162 +0,0 @@ -type Shd = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Shd);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property Color read ReadXmlAttrColor write WriteXmlAttrColor; - property Fill read ReadXmlAttrFill write WriteXmlAttrFill; - property ThemeFill read ReadXmlAttrThemeFill write WriteXmlAttrThemeFill; - property ThemeFillTint read ReadXmlAttrThemeFillTint write WriteXmlAttrThemeFillTint; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrColor(); - function WriteXmlAttrColor(_value); - function ReadXmlAttrFill(); - function WriteXmlAttrFill(_value); - function ReadXmlAttrThemeFill(); - function WriteXmlAttrThemeFill(_value); - function ReadXmlAttrThemeFillTint(); - function WriteXmlAttrThemeFillTint(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrColor: OpenXmlAttribute; - XmlAttrFill: OpenXmlAttribute; - XmlAttrThemeFill: OpenXmlAttribute; - XmlAttrThemeFillTint: OpenXmlAttribute; - - -end; - -function Shd.Create();overload; -begin - {self.}Create(nil, "w", "shd"); -end; - -function Shd.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Shd.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Shd.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), - "w:color": makeweakref(thisFunction(WriteXmlAttrColor)), - "w:fill": makeweakref(thisFunction(WriteXmlAttrFill)), - "w:themeFill": makeweakref(thisFunction(WriteXmlAttrThemeFill)), - "w:themeFillTint": makeweakref(thisFunction(WriteXmlAttrThemeFillTint)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Shd.Copy(_obj: Shd);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.Color) then - {self.}Color := _obj.Color; - if not ifnil(_obj.Fill) then - {self.}Fill := _obj.Fill; - if not ifnil(_obj.ThemeFill) then - {self.}ThemeFill := _obj.ThemeFill; - if not ifnil(_obj.ThemeFillTint) then - {self.}ThemeFillTint := _obj.ThemeFillTint; - tslassigning := tslassigning_backup; -end; - -function Shd.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function Shd.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function Shd.ReadXmlAttrColor(); -begin - return {self.}XmlAttrColor.Value; -end; - -function Shd.WriteXmlAttrColor(_value); -begin - if ifnil({self.}XmlAttrColor) then - begin - {self.}XmlAttrColor := new OpenXmlAttribute("w", "color", nil); - attributes_[length(attributes_)] := {self.}XmlAttrColor; - end - {self.}XmlAttrColor.Value := _value; -end; - -function Shd.ReadXmlAttrFill(); -begin - return {self.}XmlAttrFill.Value; -end; - -function Shd.WriteXmlAttrFill(_value); -begin - if ifnil({self.}XmlAttrFill) then - begin - {self.}XmlAttrFill := new OpenXmlAttribute("w", "fill", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFill; - end - {self.}XmlAttrFill.Value := _value; -end; - -function Shd.ReadXmlAttrThemeFill(); -begin - return {self.}XmlAttrThemeFill.Value; -end; - -function Shd.WriteXmlAttrThemeFill(_value); -begin - if ifnil({self.}XmlAttrThemeFill) then - begin - {self.}XmlAttrThemeFill := new OpenXmlAttribute("w", "themeFill", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeFill; - end - {self.}XmlAttrThemeFill.Value := _value; -end; - -function Shd.ReadXmlAttrThemeFillTint(); -begin - return {self.}XmlAttrThemeFillTint.Value; -end; - -function Shd.WriteXmlAttrThemeFillTint(_value); -begin - if ifnil({self.}XmlAttrThemeFillTint) then - begin - {self.}XmlAttrThemeFillTint := new OpenXmlAttribute("w", "themeFillTint", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeFillTint; - end - {self.}XmlAttrThemeFillTint.Value := _value; -end; diff --git a/autoclass/docx/Sig@DOCX.tsf b/autoclass/docx/Sig@DOCX.tsf deleted file mode 100644 index 0dcd665..0000000 --- a/autoclass/docx/Sig@DOCX.tsf +++ /dev/null @@ -1,184 +0,0 @@ -type Sig = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Sig);override; - -public - - // attributes property - property Usb0 read ReadXmlAttrUsb0 write WriteXmlAttrUsb0; - property Usb1 read ReadXmlAttrUsb1 write WriteXmlAttrUsb1; - property Usb2 read ReadXmlAttrUsb2 write WriteXmlAttrUsb2; - property Usb3 read ReadXmlAttrUsb3 write WriteXmlAttrUsb3; - property csb0 read ReadXmlAttrcsb0 write WriteXmlAttrcsb0; - property csb1 read ReadXmlAttrcsb1 write WriteXmlAttrcsb1; - function ReadXmlAttrUsb0(); - function WriteXmlAttrUsb0(_value); - function ReadXmlAttrUsb1(); - function WriteXmlAttrUsb1(_value); - function ReadXmlAttrUsb2(); - function WriteXmlAttrUsb2(_value); - function ReadXmlAttrUsb3(); - function WriteXmlAttrUsb3(_value); - function ReadXmlAttrcsb0(); - function WriteXmlAttrcsb0(_value); - function ReadXmlAttrcsb1(); - function WriteXmlAttrcsb1(_value); - -public - // Attributes - XmlAttrUsb0: OpenXmlAttribute; - XmlAttrUsb1: OpenXmlAttribute; - XmlAttrUsb2: OpenXmlAttribute; - XmlAttrUsb3: OpenXmlAttribute; - XmlAttrcsb0: OpenXmlAttribute; - XmlAttrcsb1: OpenXmlAttribute; - - -end; - -function Sig.Create();overload; -begin - {self.}Create(nil, "w", "sig"); -end; - -function Sig.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Sig.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Sig.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "usb0": makeweakref(thisFunction(WriteXmlAttrUsb0)), - pre + "usb1": makeweakref(thisFunction(WriteXmlAttrUsb1)), - pre + "usb2": makeweakref(thisFunction(WriteXmlAttrUsb2)), - pre + "usb3": makeweakref(thisFunction(WriteXmlAttrUsb3)), - pre + "csb0": makeweakref(thisFunction(WriteXmlAttrcsb0)), - pre + "csb1": makeweakref(thisFunction(WriteXmlAttrcsb1)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Sig.Copy(_obj: Sig);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Usb0) then - {self.}Usb0 := _obj.Usb0; - if not ifnil(_obj.Usb1) then - {self.}Usb1 := _obj.Usb1; - if not ifnil(_obj.Usb2) then - {self.}Usb2 := _obj.Usb2; - if not ifnil(_obj.Usb3) then - {self.}Usb3 := _obj.Usb3; - if not ifnil(_obj.csb0) then - {self.}csb0 := _obj.csb0; - if not ifnil(_obj.csb1) then - {self.}csb1 := _obj.csb1; - tslassigning := tslassigning_backup; -end; - -function Sig.ReadXmlAttrUsb0(); -begin - return {self.}XmlAttrUsb0.Value; -end; - -function Sig.WriteXmlAttrUsb0(_value); -begin - if ifnil({self.}XmlAttrUsb0) then - begin - {self.}XmlAttrUsb0 := new OpenXmlAttribute({self.}Prefix, "usb0", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUsb0; - end - {self.}XmlAttrUsb0.Value := _value; -end; - -function Sig.ReadXmlAttrUsb1(); -begin - return {self.}XmlAttrUsb1.Value; -end; - -function Sig.WriteXmlAttrUsb1(_value); -begin - if ifnil({self.}XmlAttrUsb1) then - begin - {self.}XmlAttrUsb1 := new OpenXmlAttribute({self.}Prefix, "usb1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUsb1; - end - {self.}XmlAttrUsb1.Value := _value; -end; - -function Sig.ReadXmlAttrUsb2(); -begin - return {self.}XmlAttrUsb2.Value; -end; - -function Sig.WriteXmlAttrUsb2(_value); -begin - if ifnil({self.}XmlAttrUsb2) then - begin - {self.}XmlAttrUsb2 := new OpenXmlAttribute({self.}Prefix, "usb2", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUsb2; - end - {self.}XmlAttrUsb2.Value := _value; -end; - -function Sig.ReadXmlAttrUsb3(); -begin - return {self.}XmlAttrUsb3.Value; -end; - -function Sig.WriteXmlAttrUsb3(_value); -begin - if ifnil({self.}XmlAttrUsb3) then - begin - {self.}XmlAttrUsb3 := new OpenXmlAttribute({self.}Prefix, "usb3", nil); - attributes_[length(attributes_)] := {self.}XmlAttrUsb3; - end - {self.}XmlAttrUsb3.Value := _value; -end; - -function Sig.ReadXmlAttrcsb0(); -begin - return {self.}XmlAttrcsb0.Value; -end; - -function Sig.WriteXmlAttrcsb0(_value); -begin - if ifnil({self.}XmlAttrcsb0) then - begin - {self.}XmlAttrcsb0 := new OpenXmlAttribute({self.}Prefix, "csb0", nil); - attributes_[length(attributes_)] := {self.}XmlAttrcsb0; - end - {self.}XmlAttrcsb0.Value := _value; -end; - -function Sig.ReadXmlAttrcsb1(); -begin - return {self.}XmlAttrcsb1.Value; -end; - -function Sig.WriteXmlAttrcsb1(_value); -begin - if ifnil({self.}XmlAttrcsb1) then - begin - {self.}XmlAttrcsb1 := new OpenXmlAttribute({self.}Prefix, "csb1", nil); - attributes_[length(attributes_)] := {self.}XmlAttrcsb1; - end - {self.}XmlAttrcsb1.Value := _value; -end; diff --git a/autoclass/docx/SizeRelH@DOCX.tsf b/autoclass/docx/SizeRelH@DOCX.tsf deleted file mode 100644 index 144db49..0000000 --- a/autoclass/docx/SizeRelH@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type SizeRelH = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SizeRelH);override; - -public - - // attributes property - property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; - function ReadXmlAttrRelativeFrom(); - function WriteXmlAttrRelativeFrom(_value); - - // pcdata property - property PctWidth read ReadXmlChildPctWidth; - function ReadXmlChildPctWidth(); - -public - // Attributes - XmlAttrRelativeFrom: OpenXmlAttribute; - - // Children - XmlChildPctWidth: OpenXmlPcdata; - -end; - -function SizeRelH.Create();overload; -begin - {self.}Create(nil, "wp14", "sizeRelH"); -end; - -function SizeRelH.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SizeRelH.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SizeRelH.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), - ); - sorted_child_ := array( - pre + "pctWidth": array(0, makeweakref(thisFunction(ReadXmlChildPctWidth))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SizeRelH.Copy(_obj: SizeRelH);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.RelativeFrom) then - {self.}RelativeFrom := _obj.RelativeFrom; - if not ifnil(_obj.XmlChildPctWidth) then - {self.}PctWidth.Copy(_obj.XmlChildPctWidth); - tslassigning := tslassigning_backup; -end; - -function SizeRelH.ReadXmlAttrRelativeFrom(); -begin - return {self.}XmlAttrRelativeFrom.Value; -end; - -function SizeRelH.WriteXmlAttrRelativeFrom(_value); -begin - if ifnil({self.}XmlAttrRelativeFrom) then - begin - {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; - end - {self.}XmlAttrRelativeFrom.Value := _value; -end; - -function SizeRelH.ReadXmlChildPctWidth(); -begin - if tslassigning and ifnil({self.}XmlChildPctWidth) then - begin - {self.}XmlChildPctWidth := new OpenXmlPcdata(self, {self.}Prefix, "pctWidth"); - container_.Set({self.}XmlChildPctWidth); - end - return {self.}XmlChildPctWidth; -end; diff --git a/autoclass/docx/SizeRelV@DOCX.tsf b/autoclass/docx/SizeRelV@DOCX.tsf deleted file mode 100644 index 253398b..0000000 --- a/autoclass/docx/SizeRelV@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type SizeRelV = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SizeRelV);override; - -public - - // attributes property - property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; - function ReadXmlAttrRelativeFrom(); - function WriteXmlAttrRelativeFrom(_value); - - // pcdata property - property PctHeight read ReadXmlChildPctHeight; - function ReadXmlChildPctHeight(); - -public - // Attributes - XmlAttrRelativeFrom: OpenXmlAttribute; - - // Children - XmlChildPctHeight: OpenXmlPcdata; - -end; - -function SizeRelV.Create();overload; -begin - {self.}Create(nil, "wp14", "sizeRelV"); -end; - -function SizeRelV.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SizeRelV.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SizeRelV.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), - ); - sorted_child_ := array( - pre + "pctHeight": array(0, makeweakref(thisFunction(ReadXmlChildPctHeight))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SizeRelV.Copy(_obj: SizeRelV);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.RelativeFrom) then - {self.}RelativeFrom := _obj.RelativeFrom; - if not ifnil(_obj.XmlChildPctHeight) then - {self.}PctHeight.Copy(_obj.XmlChildPctHeight); - tslassigning := tslassigning_backup; -end; - -function SizeRelV.ReadXmlAttrRelativeFrom(); -begin - return {self.}XmlAttrRelativeFrom.Value; -end; - -function SizeRelV.WriteXmlAttrRelativeFrom(_value); -begin - if ifnil({self.}XmlAttrRelativeFrom) then - begin - {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); - attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; - end - {self.}XmlAttrRelativeFrom.Value := _value; -end; - -function SizeRelV.ReadXmlChildPctHeight(); -begin - if tslassigning and ifnil({self.}XmlChildPctHeight) then - begin - {self.}XmlChildPctHeight := new OpenXmlPcdata(self, {self.}Prefix, "pctHeight"); - container_.Set({self.}XmlChildPctHeight); - end - return {self.}XmlChildPctHeight; -end; diff --git a/autoclass/docx/SolidFill@DOCX.tsf b/autoclass/docx/SolidFill@DOCX.tsf deleted file mode 100644 index 89e168f..0000000 --- a/autoclass/docx/SolidFill@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type SolidFill = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SolidFill);override; - -public - - // normal property - property SchemeClr read ReadXmlChildSchemeClr; - function ReadXmlChildSchemeClr(); - -public - // Children - XmlChildSchemeClr: SchemeClr; - -end; - -function SolidFill.Create();overload; -begin - {self.}Create(nil, "a", "solidFill"); -end; - -function SolidFill.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SolidFill.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SolidFill.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SolidFill.Copy(_obj: SolidFill);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildSchemeClr) then - {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); - tslassigning := tslassigning_backup; -end; - -function SolidFill.ReadXmlChildSchemeClr(); -begin - if tslassigning and ifnil({self.}XmlChildSchemeClr) then - begin - {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); - container_.Set({self.}XmlChildSchemeClr); - end - return {self.}XmlChildSchemeClr; -end; diff --git a/autoclass/docx/SpLocks@DOCX.tsf b/autoclass/docx/SpLocks@DOCX.tsf deleted file mode 100644 index 2649cf5..0000000 --- a/autoclass/docx/SpLocks@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type SpLocks = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SpLocks);override; - -public - - // attributes property - property NoChangeArrowheads read ReadXmlAttrNoChangeArrowheads write WriteXmlAttrNoChangeArrowheads; - function ReadXmlAttrNoChangeArrowheads(); - function WriteXmlAttrNoChangeArrowheads(_value); - -public - // Attributes - XmlAttrNoChangeArrowheads: OpenXmlAttribute; - - -end; - -function SpLocks.Create();overload; -begin - {self.}Create(nil, "a", "spLocks"); -end; - -function SpLocks.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SpLocks.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SpLocks.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "noChangeArrowheads": makeweakref(thisFunction(WriteXmlAttrNoChangeArrowheads)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SpLocks.Copy(_obj: SpLocks);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.NoChangeArrowheads) then - {self.}NoChangeArrowheads := _obj.NoChangeArrowheads; - tslassigning := tslassigning_backup; -end; - -function SpLocks.ReadXmlAttrNoChangeArrowheads(); -begin - return {self.}XmlAttrNoChangeArrowheads.Value; -end; - -function SpLocks.WriteXmlAttrNoChangeArrowheads(_value); -begin - if ifnil({self.}XmlAttrNoChangeArrowheads) then - begin - {self.}XmlAttrNoChangeArrowheads := new OpenXmlAttribute("", "noChangeArrowheads", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNoChangeArrowheads; - end - {self.}XmlAttrNoChangeArrowheads.Value := _value; -end; diff --git a/autoclass/docx/SpPr@DOCX.tsf b/autoclass/docx/SpPr@DOCX.tsf deleted file mode 100644 index 9a6beb0..0000000 --- a/autoclass/docx/SpPr@DOCX.tsf +++ /dev/null @@ -1,190 +0,0 @@ -type SpPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SpPr);override; - -public - - // attributes property - property BwMode read ReadXmlAttrBwMode write WriteXmlAttrBwMode; - function ReadXmlAttrBwMode(); - function WriteXmlAttrBwMode(_value); - - // empty property - property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; - function ReadXmlChildNoFill(); - function WriteXmlChildNoFill(_value); - - // normal property - property Xfrm read ReadXmlChildXfrm; - property PrstGeom read ReadXmlChildPrstGeom; - property SolidFill read ReadXmlChildSolidFill; - property Ln read ReadXmlChildLn; - property EffectLst read ReadXmlChildEffectLst; - function ReadXmlChildXfrm(); - function ReadXmlChildPrstGeom(); - function ReadXmlChildSolidFill(); - function ReadXmlChildLn(); - function ReadXmlChildEffectLst(); - -public - // Attributes - XmlAttrBwMode: OpenXmlAttribute; - - // Children - XmlChildXfrm: Xfrm; - XmlChildPrstGeom: PrstGeom; - XmlChildNoFill: OpenXmlEmpty; - XmlChildSolidFill: SolidFill; - XmlChildLn: Ln; - XmlChildEffectLst: EffectLst; - -end; - -function SpPr.Create();overload; -begin - {self.}Create(nil, "pic", "spPr"); -end; - -function SpPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SpPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SpPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "bwMode": makeweakref(thisFunction(WriteXmlAttrBwMode)), - ); - sorted_child_ := array( - "a:xfrm": array(0, makeweakref(thisFunction(ReadXmlChildXfrm))), - "a:prstGeom": array(1, makeweakref(thisFunction(ReadXmlChildPrstGeom))), - "a:noFill": array(2, makeweakref(thisFunction(ReadXmlChildNoFill))), - "a:solidFill": array(3, makeweakref(thisFunction(ReadXmlChildSolidFill))), - "a:ln": array(4, makeweakref(thisFunction(ReadXmlChildLn))), - "a:effectLst": array(5, makeweakref(thisFunction(ReadXmlChildEffectLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SpPr.Copy(_obj: SpPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.BwMode) then - {self.}BwMode := _obj.BwMode; - if not ifnil(_obj.XmlChildXfrm) then - {self.}Xfrm.Copy(_obj.XmlChildXfrm); - if not ifnil(_obj.XmlChildPrstGeom) then - {self.}PrstGeom.Copy(_obj.XmlChildPrstGeom); - if not ifnil(_obj.XmlChildNoFill) then - ifnil({self.}XmlChildNoFill) ? {self.}NoFill.Copy(_obj.XmlChildNoFill) : {self.}XmlChildNoFill.Copy(_obj.XmlChildNoFill); - if not ifnil(_obj.XmlChildSolidFill) then - {self.}SolidFill.Copy(_obj.XmlChildSolidFill); - if not ifnil(_obj.XmlChildLn) then - {self.}Ln.Copy(_obj.XmlChildLn); - if not ifnil(_obj.XmlChildEffectLst) then - {self.}EffectLst.Copy(_obj.XmlChildEffectLst); - tslassigning := tslassigning_backup; -end; - -function SpPr.ReadXmlAttrBwMode(); -begin - return {self.}XmlAttrBwMode.Value; -end; - -function SpPr.WriteXmlAttrBwMode(_value); -begin - if ifnil({self.}XmlAttrBwMode) then - begin - {self.}XmlAttrBwMode := new OpenXmlAttribute("", "bwMode", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBwMode; - end - {self.}XmlAttrBwMode.Value := _value; -end; - -function SpPr.ReadXmlChildNoFill(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildNoFill) then - begin - {self.}XmlChildNoFill := new OpenXmlEmpty(self, "a", "noFill"); - container_.Set({self.}XmlChildNoFill); - end - return {self.}XmlChildNoFill; - end - return ifnil({self.}XmlChildNoFill) ? nil : {self.}XmlChildNoFill.BoolValue(); -end; - -function SpPr.WriteXmlChildNoFill(_value); -begin - if ifnil({self.}XmlChildNoFill) then - begin - {self.}XmlChildNoFill := new OpenXmlEmpty(self, "a", "noFill"); - container_.Set({self.}XmlChildNoFill); - end - {self.}XmlChildNoFill.Value := _value; -end; - -function SpPr.ReadXmlChildXfrm(); -begin - if tslassigning and ifnil({self.}XmlChildXfrm) then - begin - {self.}XmlChildXfrm := new Xfrm(self, "a", "xfrm"); - container_.Set({self.}XmlChildXfrm); - end - return {self.}XmlChildXfrm; -end; - -function SpPr.ReadXmlChildPrstGeom(); -begin - if tslassigning and ifnil({self.}XmlChildPrstGeom) then - begin - {self.}XmlChildPrstGeom := new PrstGeom(self, "a", "prstGeom"); - container_.Set({self.}XmlChildPrstGeom); - end - return {self.}XmlChildPrstGeom; -end; - -function SpPr.ReadXmlChildSolidFill(); -begin - if tslassigning and ifnil({self.}XmlChildSolidFill) then - begin - {self.}XmlChildSolidFill := new SolidFill(self, "a", "solidFill"); - container_.Set({self.}XmlChildSolidFill); - end - return {self.}XmlChildSolidFill; -end; - -function SpPr.ReadXmlChildLn(); -begin - if tslassigning and ifnil({self.}XmlChildLn) then - begin - {self.}XmlChildLn := new Ln(self, "a", "ln"); - container_.Set({self.}XmlChildLn); - end - return {self.}XmlChildLn; -end; - -function SpPr.ReadXmlChildEffectLst(); -begin - if tslassigning and ifnil({self.}XmlChildEffectLst) then - begin - {self.}XmlChildEffectLst := new EffectLst(self, "a", "effectLst"); - container_.Set({self.}XmlChildEffectLst); - end - return {self.}XmlChildEffectLst; -end; diff --git a/autoclass/docx/Spacing@DOCX.tsf b/autoclass/docx/Spacing@DOCX.tsf deleted file mode 100644 index 8c607db..0000000 --- a/autoclass/docx/Spacing@DOCX.tsf +++ /dev/null @@ -1,228 +0,0 @@ -type Spacing = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Spacing);override; - -public - - // attributes property - property Before read ReadXmlAttrBefore write WriteXmlAttrBefore; - property BeforeLines read ReadXmlAttrBeforeLines write WriteXmlAttrBeforeLines; - property BeforeAutospacing read ReadXmlAttrBeforeAutospacing write WriteXmlAttrBeforeAutospacing; - property After read ReadXmlAttrAfter write WriteXmlAttrAfter; - property AfterLines read ReadXmlAttrAfterLines write WriteXmlAttrAfterLines; - property AfterAutospacing read ReadXmlAttrAfterAutospacing write WriteXmlAttrAfterAutospacing; - property Line read ReadXmlAttrLine write WriteXmlAttrLine; - property LineRule read ReadXmlAttrLineRule write WriteXmlAttrLineRule; - function ReadXmlAttrBefore(); - function WriteXmlAttrBefore(_value); - function ReadXmlAttrBeforeLines(); - function WriteXmlAttrBeforeLines(_value); - function ReadXmlAttrBeforeAutospacing(); - function WriteXmlAttrBeforeAutospacing(_value); - function ReadXmlAttrAfter(); - function WriteXmlAttrAfter(_value); - function ReadXmlAttrAfterLines(); - function WriteXmlAttrAfterLines(_value); - function ReadXmlAttrAfterAutospacing(); - function WriteXmlAttrAfterAutospacing(_value); - function ReadXmlAttrLine(); - function WriteXmlAttrLine(_value); - function ReadXmlAttrLineRule(); - function WriteXmlAttrLineRule(_value); - -public - // Attributes - XmlAttrBefore: OpenXmlAttribute; - XmlAttrBeforeLines: OpenXmlAttribute; - XmlAttrBeforeAutospacing: OpenXmlAttribute; - XmlAttrAfter: OpenXmlAttribute; - XmlAttrAfterLines: OpenXmlAttribute; - XmlAttrAfterAutospacing: OpenXmlAttribute; - XmlAttrLine: OpenXmlAttribute; - XmlAttrLineRule: OpenXmlAttribute; - - -end; - -function Spacing.Create();overload; -begin - {self.}Create(nil, "w", "spacing"); -end; - -function Spacing.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Spacing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Spacing.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "before": makeweakref(thisFunction(WriteXmlAttrBefore)), - pre + "beforeLines": makeweakref(thisFunction(WriteXmlAttrBeforeLines)), - pre + "beforeAutospacing": makeweakref(thisFunction(WriteXmlAttrBeforeAutospacing)), - pre + "after": makeweakref(thisFunction(WriteXmlAttrAfter)), - pre + "afterLines": makeweakref(thisFunction(WriteXmlAttrAfterLines)), - pre + "afterAutospacing": makeweakref(thisFunction(WriteXmlAttrAfterAutospacing)), - pre + "line": makeweakref(thisFunction(WriteXmlAttrLine)), - pre + "lineRule": makeweakref(thisFunction(WriteXmlAttrLineRule)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Spacing.Copy(_obj: Spacing);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Before) then - {self.}Before := _obj.Before; - if not ifnil(_obj.BeforeLines) then - {self.}BeforeLines := _obj.BeforeLines; - if not ifnil(_obj.BeforeAutospacing) then - {self.}BeforeAutospacing := _obj.BeforeAutospacing; - if not ifnil(_obj.After) then - {self.}After := _obj.After; - if not ifnil(_obj.AfterLines) then - {self.}AfterLines := _obj.AfterLines; - if not ifnil(_obj.AfterAutospacing) then - {self.}AfterAutospacing := _obj.AfterAutospacing; - if not ifnil(_obj.Line) then - {self.}Line := _obj.Line; - if not ifnil(_obj.LineRule) then - {self.}LineRule := _obj.LineRule; - tslassigning := tslassigning_backup; -end; - -function Spacing.ReadXmlAttrBefore(); -begin - return {self.}XmlAttrBefore.Value; -end; - -function Spacing.WriteXmlAttrBefore(_value); -begin - if ifnil({self.}XmlAttrBefore) then - begin - {self.}XmlAttrBefore := new OpenXmlAttribute({self.}Prefix, "before", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBefore; - end - {self.}XmlAttrBefore.Value := _value; -end; - -function Spacing.ReadXmlAttrBeforeLines(); -begin - return {self.}XmlAttrBeforeLines.Value; -end; - -function Spacing.WriteXmlAttrBeforeLines(_value); -begin - if ifnil({self.}XmlAttrBeforeLines) then - begin - {self.}XmlAttrBeforeLines := new OpenXmlAttribute({self.}Prefix, "beforeLines", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBeforeLines; - end - {self.}XmlAttrBeforeLines.Value := _value; -end; - -function Spacing.ReadXmlAttrBeforeAutospacing(); -begin - return {self.}XmlAttrBeforeAutospacing.Value; -end; - -function Spacing.WriteXmlAttrBeforeAutospacing(_value); -begin - if ifnil({self.}XmlAttrBeforeAutospacing) then - begin - {self.}XmlAttrBeforeAutospacing := new OpenXmlAttribute({self.}Prefix, "beforeAutospacing", nil); - attributes_[length(attributes_)] := {self.}XmlAttrBeforeAutospacing; - end - {self.}XmlAttrBeforeAutospacing.Value := _value; -end; - -function Spacing.ReadXmlAttrAfter(); -begin - return {self.}XmlAttrAfter.Value; -end; - -function Spacing.WriteXmlAttrAfter(_value); -begin - if ifnil({self.}XmlAttrAfter) then - begin - {self.}XmlAttrAfter := new OpenXmlAttribute({self.}Prefix, "after", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAfter; - end - {self.}XmlAttrAfter.Value := _value; -end; - -function Spacing.ReadXmlAttrAfterLines(); -begin - return {self.}XmlAttrAfterLines.Value; -end; - -function Spacing.WriteXmlAttrAfterLines(_value); -begin - if ifnil({self.}XmlAttrAfterLines) then - begin - {self.}XmlAttrAfterLines := new OpenXmlAttribute({self.}Prefix, "afterLines", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAfterLines; - end - {self.}XmlAttrAfterLines.Value := _value; -end; - -function Spacing.ReadXmlAttrAfterAutospacing(); -begin - return {self.}XmlAttrAfterAutospacing.Value; -end; - -function Spacing.WriteXmlAttrAfterAutospacing(_value); -begin - if ifnil({self.}XmlAttrAfterAutospacing) then - begin - {self.}XmlAttrAfterAutospacing := new OpenXmlAttribute({self.}Prefix, "afterAutospacing", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAfterAutospacing; - end - {self.}XmlAttrAfterAutospacing.Value := _value; -end; - -function Spacing.ReadXmlAttrLine(); -begin - return {self.}XmlAttrLine.Value; -end; - -function Spacing.WriteXmlAttrLine(_value); -begin - if ifnil({self.}XmlAttrLine) then - begin - {self.}XmlAttrLine := new OpenXmlAttribute({self.}Prefix, "line", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLine; - end - {self.}XmlAttrLine.Value := _value; -end; - -function Spacing.ReadXmlAttrLineRule(); -begin - return {self.}XmlAttrLineRule.Value; -end; - -function Spacing.WriteXmlAttrLineRule(_value); -begin - if ifnil({self.}XmlAttrLineRule) then - begin - {self.}XmlAttrLineRule := new OpenXmlAttribute({self.}Prefix, "lineRule", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLineRule; - end - {self.}XmlAttrLineRule.Value := _value; -end; diff --git a/autoclass/docx/SrgbClr@DOCX.tsf b/autoclass/docx/SrgbClr@DOCX.tsf deleted file mode 100644 index 1b39ea8..0000000 --- a/autoclass/docx/SrgbClr@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type SrgbClr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SrgbClr);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - - // normal property - property Alpha read ReadXmlChildAlpha; - function ReadXmlChildAlpha(); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - - // Children - XmlChildAlpha: PureVal; - -end; - -function SrgbClr.Create();overload; -begin - {self.}Create(nil, "a", "srgbClr"); -end; - -function SrgbClr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SrgbClr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SrgbClr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - pre + "aplha": array(0, makeweakref(thisFunction(ReadXmlChildAlpha))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SrgbClr.Copy(_obj: SrgbClr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.XmlChildAlpha) then - {self.}Alpha.Copy(_obj.XmlChildAlpha); - tslassigning := tslassigning_backup; -end; - -function SrgbClr.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function SrgbClr.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function SrgbClr.ReadXmlChildAlpha(); -begin - if tslassigning and ifnil({self.}XmlChildAlpha) then - begin - {self.}XmlChildAlpha := new PureVal(self, {self.}Prefix, "aplha"); - container_.Set({self.}XmlChildAlpha); - end - return {self.}XmlChildAlpha; -end; diff --git a/autoclass/docx/StrRef@DOCX.tsf b/autoclass/docx/StrRef@DOCX.tsf deleted file mode 100644 index 23fdc6d..0000000 --- a/autoclass/docx/StrRef@DOCX.tsf +++ /dev/null @@ -1,85 +0,0 @@ -type StrRef = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: StrRef);override; - -public - - // pcdata property - property F read ReadXmlChildF; - function ReadXmlChildF(); - - // normal property - property StrCache read ReadXmlChildStrCache; - function ReadXmlChildStrCache(); - -public - // Children - XmlChildF: OpenXmlPcdata; - XmlChildStrCache: Cache; - -end; - -function StrRef.Create();overload; -begin - {self.}Create(nil, "c", "strRef"); -end; - -function StrRef.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function StrRef.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function StrRef.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))), - pre + "strCache": array(1, makeweakref(thisFunction(ReadXmlChildStrCache))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function StrRef.Copy(_obj: StrRef);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildF) then - {self.}F.Copy(_obj.XmlChildF); - if not ifnil(_obj.XmlChildStrCache) then - {self.}StrCache.Copy(_obj.XmlChildStrCache); - tslassigning := tslassigning_backup; -end; - -function StrRef.ReadXmlChildF(); -begin - if tslassigning and ifnil({self.}XmlChildF) then - begin - {self.}XmlChildF := new OpenXmlPcdata(self, {self.}Prefix, "f"); - container_.Set({self.}XmlChildF); - end - return {self.}XmlChildF; -end; - -function StrRef.ReadXmlChildStrCache(); -begin - if tslassigning and ifnil({self.}XmlChildStrCache) then - begin - {self.}XmlChildStrCache := new Cache(self, {self.}Prefix, "strCache"); - container_.Set({self.}XmlChildStrCache); - end - return {self.}XmlChildStrCache; -end; diff --git a/autoclass/docx/Stretch@DOCX.tsf b/autoclass/docx/Stretch@DOCX.tsf deleted file mode 100644 index a48603c..0000000 --- a/autoclass/docx/Stretch@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type Stretch = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Stretch);override; - -public - - // normal property - property FillRect read ReadXmlChildFillRect; - function ReadXmlChildFillRect(); - -public - // Children - XmlChildFillRect: PureVal; - -end; - -function Stretch.Create();overload; -begin - {self.}Create(nil, "a", "stretch"); -end; - -function Stretch.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Stretch.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Stretch.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "a:fillRect": array(0, makeweakref(thisFunction(ReadXmlChildFillRect))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Stretch.Copy(_obj: Stretch);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildFillRect) then - {self.}FillRect.Copy(_obj.XmlChildFillRect); - tslassigning := tslassigning_backup; -end; - -function Stretch.ReadXmlChildFillRect(); -begin - if tslassigning and ifnil({self.}XmlChildFillRect) then - begin - {self.}XmlChildFillRect := new PureVal(self, "a", "fillRect"); - container_.Set({self.}XmlChildFillRect); - end - return {self.}XmlChildFillRect; -end; diff --git a/autoclass/docx/Stroke@DOCX.tsf b/autoclass/docx/Stroke@DOCX.tsf deleted file mode 100644 index 414d707..0000000 --- a/autoclass/docx/Stroke@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type Stroke = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Stroke);override; - -public - - // attributes property - property Joinstyle read ReadXmlAttrJoinstyle write WriteXmlAttrJoinstyle; - function ReadXmlAttrJoinstyle(); - function WriteXmlAttrJoinstyle(_value); - -public - // Attributes - XmlAttrJoinstyle: OpenXmlAttribute; - - -end; - -function Stroke.Create();overload; -begin - {self.}Create(nil, "v", "stroke"); -end; - -function Stroke.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Stroke.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Stroke.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "joinstyle": makeweakref(thisFunction(WriteXmlAttrJoinstyle)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Stroke.Copy(_obj: Stroke);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Joinstyle) then - {self.}Joinstyle := _obj.Joinstyle; - tslassigning := tslassigning_backup; -end; - -function Stroke.ReadXmlAttrJoinstyle(); -begin - return {self.}XmlAttrJoinstyle.Value; -end; - -function Stroke.WriteXmlAttrJoinstyle(_value); -begin - if ifnil({self.}XmlAttrJoinstyle) then - begin - {self.}XmlAttrJoinstyle := new OpenXmlAttribute("", "joinstyle", nil); - attributes_[length(attributes_)] := {self.}XmlAttrJoinstyle; - end - {self.}XmlAttrJoinstyle.Value := _value; -end; diff --git a/autoclass/docx/Style@DOCX.tsf b/autoclass/docx/Style@DOCX.tsf deleted file mode 100644 index 6da195f..0000000 --- a/autoclass/docx/Style@DOCX.tsf +++ /dev/null @@ -1,451 +0,0 @@ -type Style = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Style);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - property Default read ReadXmlAttrDefault write WriteXmlAttrDefault; - property StyleId read ReadXmlAttrStyleId write WriteXmlAttrStyleId; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - function ReadXmlAttrDefault(); - function WriteXmlAttrDefault(_value); - function ReadXmlAttrStyleId(); - function WriteXmlAttrStyleId(_value); - - // empty property - property SemiHidden read ReadXmlChildSemiHidden write WriteXmlChildSemiHidden; - property UnhideWhenUsed read ReadXmlChildUnhideWhenUsed write WriteXmlChildUnhideWhenUsed; - property QFormat read ReadXmlChildQFormat write WriteXmlChildQFormat; - property Rsid read ReadXmlChildRsid write WriteXmlChildRsid; - function ReadXmlChildSemiHidden(); - function WriteXmlChildSemiHidden(_value); - function ReadXmlChildUnhideWhenUsed(); - function WriteXmlChildUnhideWhenUsed(_value); - function ReadXmlChildQFormat(); - function WriteXmlChildQFormat(_value); - function ReadXmlChildRsid(); - function WriteXmlChildRsid(_value); - - // normal property - property Name read ReadXmlChildName; - property BasedOn read ReadXmlChildBasedOn; - property Next read ReadXmlChildNext; - property AutoRedefine read ReadXmlChildAutoRedefine; - property Link read ReadXmlChildLink; - property UIPriority read ReadXmlChildUIPriority; - property PPr read ReadXmlChildPPr; - property RPr read ReadXmlChildRPr; - property TblPr read ReadXmlChildTblPr; - property TrPr read ReadXmlChildTrPr; - property TcPr read ReadXmlChildTcPr; - function ReadXmlChildName(); - function ReadXmlChildBasedOn(); - function ReadXmlChildNext(); - function ReadXmlChildAutoRedefine(); - function ReadXmlChildLink(); - function ReadXmlChildUIPriority(); - function ReadXmlChildPPr(); - function ReadXmlChildRPr(); - function ReadXmlChildTblPr(); - function ReadXmlChildTrPr(); - function ReadXmlChildTcPr(); - - // multi property - property TblStylePrs read ReadTblStylePrs; - function ReadTblStylePrs(_index); - function AddTblStylePr(): TblStylePr; - function AppendTblStylePr(): TblStylePr; - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - XmlAttrDefault: OpenXmlAttribute; - XmlAttrStyleId: OpenXmlAttribute; - - // Children - XmlChildName: PureWVal; - XmlChildBasedOn: PureWVal; - XmlChildNext: PureWVal; - XmlChildAutoRedefine: PureWVal; - XmlChildLink: PureWVal; - XmlChildUIPriority: PureWVal; - XmlChildSemiHidden: OpenXmlEmpty; - XmlChildUnhideWhenUsed: OpenXmlEmpty; - XmlChildQFormat: OpenXmlEmpty; - XmlChildRsid: OpenXmlEmpty; - XmlChildPPr: PPr; - XmlChildRPr: RPr; - XmlChildTblPr: TblPr; - XmlChildTrPr: TrPr; - XmlChildTcPr: TcPr; - -end; - -function Style.Create();overload; -begin - {self.}Create(nil, "w", "style"); -end; - -function Style.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Style.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Style.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - pre + "default": makeweakref(thisFunction(WriteXmlAttrDefault)), - pre + "styleId": makeweakref(thisFunction(WriteXmlAttrStyleId)), - ); - sorted_child_ := array( - pre + "name": array(0, makeweakref(thisFunction(ReadXmlChildName))), - pre + "basedOn": array(1, makeweakref(thisFunction(ReadXmlChildBasedOn))), - pre + "next": array(2, makeweakref(thisFunction(ReadXmlChildNext))), - pre + "autoRedefine": array(3, makeweakref(thisFunction(ReadXmlChildAutoRedefine))), - pre + "link": array(4, makeweakref(thisFunction(ReadXmlChildLink))), - pre + "uiPriority": array(5, makeweakref(thisFunction(ReadXmlChildUIPriority))), - pre + "semiHidden": array(6, makeweakref(thisFunction(ReadXmlChildSemiHidden))), - pre + "unhideWhenUsed": array(7, makeweakref(thisFunction(ReadXmlChildUnhideWhenUsed))), - pre + "qFormat": array(8, makeweakref(thisFunction(ReadXmlChildQFormat))), - pre + "rsid": array(9, makeweakref(thisFunction(ReadXmlChildRsid))), - pre + "pPr": array(10, makeweakref(thisFunction(ReadXmlChildPPr))), - pre + "rPr": array(11, makeweakref(thisFunction(ReadXmlChildRPr))), - pre + "tblPr": array(12, makeweakref(thisFunction(ReadXmlChildTblPr))), - pre + "trPr": array(13, makeweakref(thisFunction(ReadXmlChildTrPr))), - pre + "tcPr": array(14, makeweakref(thisFunction(ReadXmlChildTcPr))), - pre + "tblStylePr": array(15, makeweakref(thisFunction(AppendTblStylePr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Style.Copy(_obj: Style);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.Default) then - {self.}Default := _obj.Default; - if not ifnil(_obj.StyleId) then - {self.}StyleId := _obj.StyleId; - if not ifnil(_obj.XmlChildName) then - {self.}Name.Copy(_obj.XmlChildName); - if not ifnil(_obj.XmlChildBasedOn) then - {self.}BasedOn.Copy(_obj.XmlChildBasedOn); - if not ifnil(_obj.XmlChildNext) then - {self.}Next.Copy(_obj.XmlChildNext); - if not ifnil(_obj.XmlChildAutoRedefine) then - {self.}AutoRedefine.Copy(_obj.XmlChildAutoRedefine); - if not ifnil(_obj.XmlChildLink) then - {self.}Link.Copy(_obj.XmlChildLink); - if not ifnil(_obj.XmlChildUIPriority) then - {self.}UIPriority.Copy(_obj.XmlChildUIPriority); - if not ifnil(_obj.XmlChildSemiHidden) then - ifnil({self.}XmlChildSemiHidden) ? {self.}SemiHidden.Copy(_obj.XmlChildSemiHidden) : {self.}XmlChildSemiHidden.Copy(_obj.XmlChildSemiHidden); - if not ifnil(_obj.XmlChildUnhideWhenUsed) then - ifnil({self.}XmlChildUnhideWhenUsed) ? {self.}UnhideWhenUsed.Copy(_obj.XmlChildUnhideWhenUsed) : {self.}XmlChildUnhideWhenUsed.Copy(_obj.XmlChildUnhideWhenUsed); - if not ifnil(_obj.XmlChildQFormat) then - ifnil({self.}XmlChildQFormat) ? {self.}QFormat.Copy(_obj.XmlChildQFormat) : {self.}XmlChildQFormat.Copy(_obj.XmlChildQFormat); - if not ifnil(_obj.XmlChildRsid) then - ifnil({self.}XmlChildRsid) ? {self.}Rsid.Copy(_obj.XmlChildRsid) : {self.}XmlChildRsid.Copy(_obj.XmlChildRsid); - if not ifnil(_obj.XmlChildPPr) then - {self.}PPr.Copy(_obj.XmlChildPPr); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - if not ifnil(_obj.XmlChildTblPr) then - {self.}TblPr.Copy(_obj.XmlChildTblPr); - if not ifnil(_obj.XmlChildTrPr) then - {self.}TrPr.Copy(_obj.XmlChildTrPr); - if not ifnil(_obj.XmlChildTcPr) then - {self.}TcPr.Copy(_obj.XmlChildTcPr); - tslassigning := tslassigning_backup; -end; - -function Style.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function Style.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function Style.ReadXmlAttrDefault(); -begin - return {self.}XmlAttrDefault.Value; -end; - -function Style.WriteXmlAttrDefault(_value); -begin - if ifnil({self.}XmlAttrDefault) then - begin - {self.}XmlAttrDefault := new OpenXmlAttribute({self.}Prefix, "default", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDefault; - end - {self.}XmlAttrDefault.Value := _value; -end; - -function Style.ReadXmlAttrStyleId(); -begin - return {self.}XmlAttrStyleId.Value; -end; - -function Style.WriteXmlAttrStyleId(_value); -begin - if ifnil({self.}XmlAttrStyleId) then - begin - {self.}XmlAttrStyleId := new OpenXmlAttribute({self.}Prefix, "styleId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrStyleId; - end - {self.}XmlAttrStyleId.Value := _value; -end; - -function Style.ReadXmlChildSemiHidden(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildSemiHidden) then - begin - {self.}XmlChildSemiHidden := new OpenXmlEmpty(self, {self.}Prefix, "semiHidden"); - container_.Set({self.}XmlChildSemiHidden); - end - return {self.}XmlChildSemiHidden; - end - return ifnil({self.}XmlChildSemiHidden) ? nil : {self.}XmlChildSemiHidden.BoolValue(); -end; - -function Style.WriteXmlChildSemiHidden(_value); -begin - if ifnil({self.}XmlChildSemiHidden) then - begin - {self.}XmlChildSemiHidden := new OpenXmlEmpty(self, {self.}Prefix, "semiHidden"); - container_.Set({self.}XmlChildSemiHidden); - end - {self.}XmlChildSemiHidden.Value := _value; -end; - -function Style.ReadXmlChildUnhideWhenUsed(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildUnhideWhenUsed) then - begin - {self.}XmlChildUnhideWhenUsed := new OpenXmlEmpty(self, {self.}Prefix, "unhideWhenUsed"); - container_.Set({self.}XmlChildUnhideWhenUsed); - end - return {self.}XmlChildUnhideWhenUsed; - end - return ifnil({self.}XmlChildUnhideWhenUsed) ? nil : {self.}XmlChildUnhideWhenUsed.BoolValue(); -end; - -function Style.WriteXmlChildUnhideWhenUsed(_value); -begin - if ifnil({self.}XmlChildUnhideWhenUsed) then - begin - {self.}XmlChildUnhideWhenUsed := new OpenXmlEmpty(self, {self.}Prefix, "unhideWhenUsed"); - container_.Set({self.}XmlChildUnhideWhenUsed); - end - {self.}XmlChildUnhideWhenUsed.Value := _value; -end; - -function Style.ReadXmlChildQFormat(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildQFormat) then - begin - {self.}XmlChildQFormat := new OpenXmlEmpty(self, {self.}Prefix, "qFormat"); - container_.Set({self.}XmlChildQFormat); - end - return {self.}XmlChildQFormat; - end - return ifnil({self.}XmlChildQFormat) ? nil : {self.}XmlChildQFormat.BoolValue(); -end; - -function Style.WriteXmlChildQFormat(_value); -begin - if ifnil({self.}XmlChildQFormat) then - begin - {self.}XmlChildQFormat := new OpenXmlEmpty(self, {self.}Prefix, "qFormat"); - container_.Set({self.}XmlChildQFormat); - end - {self.}XmlChildQFormat.Value := _value; -end; - -function Style.ReadXmlChildRsid(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildRsid) then - begin - {self.}XmlChildRsid := new OpenXmlEmpty(self, {self.}Prefix, "rsid"); - container_.Set({self.}XmlChildRsid); - end - return {self.}XmlChildRsid; - end - return ifnil({self.}XmlChildRsid) ? nil : {self.}XmlChildRsid.BoolValue(); -end; - -function Style.WriteXmlChildRsid(_value); -begin - if ifnil({self.}XmlChildRsid) then - begin - {self.}XmlChildRsid := new OpenXmlEmpty(self, {self.}Prefix, "rsid"); - container_.Set({self.}XmlChildRsid); - end - {self.}XmlChildRsid.Value := _value; -end; - -function Style.ReadXmlChildName(); -begin - if tslassigning and ifnil({self.}XmlChildName) then - begin - {self.}XmlChildName := new PureWVal(self, {self.}Prefix, "name"); - container_.Set({self.}XmlChildName); - end - return {self.}XmlChildName; -end; - -function Style.ReadXmlChildBasedOn(); -begin - if tslassigning and ifnil({self.}XmlChildBasedOn) then - begin - {self.}XmlChildBasedOn := new PureWVal(self, {self.}Prefix, "basedOn"); - container_.Set({self.}XmlChildBasedOn); - end - return {self.}XmlChildBasedOn; -end; - -function Style.ReadXmlChildNext(); -begin - if tslassigning and ifnil({self.}XmlChildNext) then - begin - {self.}XmlChildNext := new PureWVal(self, {self.}Prefix, "next"); - container_.Set({self.}XmlChildNext); - end - return {self.}XmlChildNext; -end; - -function Style.ReadXmlChildAutoRedefine(); -begin - if tslassigning and ifnil({self.}XmlChildAutoRedefine) then - begin - {self.}XmlChildAutoRedefine := new PureWVal(self, {self.}Prefix, "autoRedefine"); - container_.Set({self.}XmlChildAutoRedefine); - end - return {self.}XmlChildAutoRedefine; -end; - -function Style.ReadXmlChildLink(); -begin - if tslassigning and ifnil({self.}XmlChildLink) then - begin - {self.}XmlChildLink := new PureWVal(self, {self.}Prefix, "link"); - container_.Set({self.}XmlChildLink); - end - return {self.}XmlChildLink; -end; - -function Style.ReadXmlChildUIPriority(); -begin - if tslassigning and ifnil({self.}XmlChildUIPriority) then - begin - {self.}XmlChildUIPriority := new PureWVal(self, {self.}Prefix, "uiPriority"); - container_.Set({self.}XmlChildUIPriority); - end - return {self.}XmlChildUIPriority; -end; - -function Style.ReadXmlChildPPr(); -begin - if tslassigning and ifnil({self.}XmlChildPPr) then - begin - {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); - container_.Set({self.}XmlChildPPr); - end - return {self.}XmlChildPPr; -end; - -function Style.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; - -function Style.ReadXmlChildTblPr(); -begin - if tslassigning and ifnil({self.}XmlChildTblPr) then - begin - {self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr"); - container_.Set({self.}XmlChildTblPr); - end - return {self.}XmlChildTblPr; -end; - -function Style.ReadXmlChildTrPr(); -begin - if tslassigning and ifnil({self.}XmlChildTrPr) then - begin - {self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr"); - container_.Set({self.}XmlChildTrPr); - end - return {self.}XmlChildTrPr; -end; - -function Style.ReadXmlChildTcPr(); -begin - if tslassigning and ifnil({self.}XmlChildTcPr) then - begin - {self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr"); - container_.Set({self.}XmlChildTcPr); - end - return {self.}XmlChildTcPr; -end; - -function Style.ReadTblStylePrs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "tblStylePr", ind); -end; - -function Style.AddTblStylePr(): TblStylePr; -begin - obj := new TblStylePr(self, {self.}Prefix, "tblStylePr"); - container_.Insert(obj); - return obj; -end; - -function Style.AppendTblStylePr(): TblStylePr; -begin - obj := new TblStylePr(self, {self.}Prefix, "tblStylePr"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Styles@DOCX.tsf b/autoclass/docx/Styles@DOCX.tsf deleted file mode 100644 index ca004df..0000000 --- a/autoclass/docx/Styles@DOCX.tsf +++ /dev/null @@ -1,379 +0,0 @@ -type Styles = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Styles);override; - -public - - // attributes property - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16sdtdh(); - function WriteXmlAttrXmlnsW16sdtdh(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // normal property - property DocDefaults read ReadXmlChildDocDefaults; - property LatenStyles read ReadXmlChildLatenStyles; - function ReadXmlChildDocDefaults(); - function ReadXmlChildLatenStyles(); - - // multi property - property Styles read ReadStyles; - function ReadStyles(_index); - function AddStyle(): Style; - function AppendStyle(): Style; - -public - // Attributes - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - XmlChildDocDefaults: DocDefaults; - XmlChildLatenStyles: LatenStyles; - -end; - -function Styles.Create();overload; -begin - {self.}Create(nil, "w", "styles"); -end; - -function Styles.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Styles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Styles.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "docDefaults": array(0, makeweakref(thisFunction(ReadXmlChildDocDefaults))), - pre + "latenStyles": array(1, makeweakref(thisFunction(ReadXmlChildLatenStyles))), - pre + "style": array(2, makeweakref(thisFunction(AppendStyle))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Styles.Copy(_obj: Styles);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16sdtdh) then - {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - if not ifnil(_obj.XmlChildDocDefaults) then - {self.}DocDefaults.Copy(_obj.XmlChildDocDefaults); - if not ifnil(_obj.XmlChildLatenStyles) then - {self.}LatenStyles.Copy(_obj.XmlChildLatenStyles); - tslassigning := tslassigning_backup; -end; - -function Styles.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function Styles.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function Styles.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function Styles.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function Styles.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function Styles.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function Styles.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function Styles.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function Styles.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function Styles.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW16sdtdh(); -begin - return {self.}XmlAttrXmlnsW16sdtdh.Value; -end; - -function Styles.WriteXmlAttrXmlnsW16sdtdh(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16sdtdh) then - begin - {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; - end - {self.}XmlAttrXmlnsW16sdtdh.Value := _value; -end; - -function Styles.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function Styles.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function Styles.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function Styles.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function Styles.ReadXmlChildDocDefaults(); -begin - if tslassigning and ifnil({self.}XmlChildDocDefaults) then - begin - {self.}XmlChildDocDefaults := new DocDefaults(self, {self.}Prefix, "docDefaults"); - container_.Set({self.}XmlChildDocDefaults); - end - return {self.}XmlChildDocDefaults; -end; - -function Styles.ReadXmlChildLatenStyles(); -begin - if tslassigning and ifnil({self.}XmlChildLatenStyles) then - begin - {self.}XmlChildLatenStyles := new LatenStyles(self, {self.}Prefix, "latenStyles"); - container_.Set({self.}XmlChildLatenStyles); - end - return {self.}XmlChildLatenStyles; -end; - -function Styles.ReadStyles(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "style", ind); -end; - -function Styles.AddStyle(): Style; -begin - obj := new Style(self, {self.}Prefix, "style"); - container_.Insert(obj); - return obj; -end; - -function Styles.AppendStyle(): Style; -begin - obj := new Style(self, {self.}Prefix, "style"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/SysClr@DOCX.tsf b/autoclass/docx/SysClr@DOCX.tsf deleted file mode 100644 index bdf1140..0000000 --- a/autoclass/docx/SysClr@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type SysClr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SysClr);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property LastClr read ReadXmlAttrLastClr write WriteXmlAttrLastClr; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrLastClr(); - function WriteXmlAttrLastClr(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrLastClr: OpenXmlAttribute; - - -end; - -function SysClr.Create();overload; -begin - {self.}Create(nil, "a", "sysClr"); -end; - -function SysClr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SysClr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SysClr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "val": makeweakref(thisFunction(WriteXmlAttrVal)), - "LastClr": makeweakref(thisFunction(WriteXmlAttrLastClr)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SysClr.Copy(_obj: SysClr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.LastClr) then - {self.}LastClr := _obj.LastClr; - tslassigning := tslassigning_backup; -end; - -function SysClr.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function SysClr.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function SysClr.ReadXmlAttrLastClr(); -begin - return {self.}XmlAttrLastClr.Value; -end; - -function SysClr.WriteXmlAttrLastClr(_value); -begin - if ifnil({self.}XmlAttrLastClr) then - begin - {self.}XmlAttrLastClr := new OpenXmlAttribute("", "LastClr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLastClr; - end - {self.}XmlAttrLastClr.Value := _value; -end; diff --git a/autoclass/docx/Sz@DOCX.tsf b/autoclass/docx/Sz@DOCX.tsf deleted file mode 100644 index 3d3f6fd..0000000 --- a/autoclass/docx/Sz@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type Sz = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Sz);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - - -end; - -function Sz.Create();overload; -begin - {self.}Create(nil, "w", "sz"); -end; - -function Sz.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Sz.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Sz.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Sz.Copy(_obj: Sz);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - tslassigning := tslassigning_backup; -end; - -function Sz.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function Sz.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; diff --git a/autoclass/docx/SzCs@DOCX.tsf b/autoclass/docx/SzCs@DOCX.tsf deleted file mode 100644 index d5b2cef..0000000 --- a/autoclass/docx/SzCs@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type SzCs = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: SzCs);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - - -end; - -function SzCs.Create();overload; -begin - {self.}Create(nil, "w", "szCs"); -end; - -function SzCs.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function SzCs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function SzCs.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function SzCs.Copy(_obj: SzCs);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - tslassigning := tslassigning_backup; -end; - -function SzCs.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function SzCs.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; diff --git a/autoclass/docx/T@DOCX.tsf b/autoclass/docx/T@DOCX.tsf deleted file mode 100644 index 009dccd..0000000 --- a/autoclass/docx/T@DOCX.tsf +++ /dev/null @@ -1,71 +0,0 @@ -type T = class(OpenXmlPcdata) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: T);override; - -public - - // attributes property - property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; - function ReadXmlAttrSpace(); - function WriteXmlAttrSpace(_value); - -public - // Attributes - XmlAttrSpace: OpenXmlAttribute; - - -end; - -function T.Create();overload; -begin - {self.}Create(nil, "w", "t"); -end; - -function T.Create(_node: XmlNode);overload; -begin - class(OpenXmlPcdata).Create(_node: XmlNode); -end; - -function T.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); -end; - -function T.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xml:space": makeweakref(thisFunction(WriteXmlAttrSpace)), - ); -end; - -function T.Copy(_obj: T);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlPcdata).Copy(_obj); - if not ifnil(_obj.Space) then - {self.}Space := _obj.Space; - tslassigning := tslassigning_backup; -end; - -function T.ReadXmlAttrSpace(); -begin - return {self.}XmlAttrSpace.Value; -end; - -function T.WriteXmlAttrSpace(_value); -begin - if ifnil({self.}XmlAttrSpace) then - begin - {self.}XmlAttrSpace := new OpenXmlAttribute("xml", "space", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpace; - end - {self.}XmlAttrSpace.Value := _value; -end; diff --git a/autoclass/docx/Tab@DOCX.tsf b/autoclass/docx/Tab@DOCX.tsf deleted file mode 100644 index 01fd815..0000000 --- a/autoclass/docx/Tab@DOCX.tsf +++ /dev/null @@ -1,118 +0,0 @@ -type Tab = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Tab);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property Leader read ReadXmlAttrLeader write WriteXmlAttrLeader; - property Pos read ReadXmlAttrPos write WriteXmlAttrPos; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrLeader(); - function WriteXmlAttrLeader(_value); - function ReadXmlAttrPos(); - function WriteXmlAttrPos(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrLeader: OpenXmlAttribute; - XmlAttrPos: OpenXmlAttribute; - - -end; - -function Tab.Create();overload; -begin - {self.}Create(nil, "w", "tab"); -end; - -function Tab.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Tab.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Tab.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "leader": makeweakref(thisFunction(WriteXmlAttrLeader)), - pre + "pos": makeweakref(thisFunction(WriteXmlAttrPos)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Tab.Copy(_obj: Tab);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.Leader) then - {self.}Leader := _obj.Leader; - if not ifnil(_obj.Pos) then - {self.}Pos := _obj.Pos; - tslassigning := tslassigning_backup; -end; - -function Tab.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function Tab.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function Tab.ReadXmlAttrLeader(); -begin - return {self.}XmlAttrLeader.Value; -end; - -function Tab.WriteXmlAttrLeader(_value); -begin - if ifnil({self.}XmlAttrLeader) then - begin - {self.}XmlAttrLeader := new OpenXmlAttribute({self.}Prefix, "leader", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLeader; - end - {self.}XmlAttrLeader.Value := _value; -end; - -function Tab.ReadXmlAttrPos(); -begin - return {self.}XmlAttrPos.Value; -end; - -function Tab.WriteXmlAttrPos(_value); -begin - if ifnil({self.}XmlAttrPos) then - begin - {self.}XmlAttrPos := new OpenXmlAttribute({self.}Prefix, "pos", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPos; - end - {self.}XmlAttrPos.Value := _value; -end; diff --git a/autoclass/docx/Tabs@DOCX.tsf b/autoclass/docx/Tabs@DOCX.tsf deleted file mode 100644 index c396ac7..0000000 --- a/autoclass/docx/Tabs@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type Tabs = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Tabs);override; - -public - - // multi property - property Tabs read ReadTabs; - function ReadTabs(_index); - function AddTab(): Tab; - function AppendTab(): Tab; - -public - // Children - -end; - -function Tabs.Create();overload; -begin - {self.}Create(nil, "w", "tabs"); -end; - -function Tabs.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Tabs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Tabs.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "tab": array(0, makeweakref(thisFunction(AppendTab))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Tabs.Copy(_obj: Tabs);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function Tabs.ReadTabs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "tab", ind); -end; - -function Tabs.AddTab(): Tab; -begin - obj := new Tab(self, {self.}Prefix, "tab"); - container_.Insert(obj); - return obj; -end; - -function Tabs.AppendTab(): Tab; -begin - obj := new Tab(self, {self.}Prefix, "tab"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Tbl@DOCX.tsf b/autoclass/docx/Tbl@DOCX.tsf deleted file mode 100644 index b4c8069..0000000 --- a/autoclass/docx/Tbl@DOCX.tsf +++ /dev/null @@ -1,111 +0,0 @@ -type Tbl = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Tbl);override; - -public - - // normal property - property TblPr read ReadXmlChildTblPr; - property TblGrid read ReadXmlChildTblGrid; - function ReadXmlChildTblPr(); - function ReadXmlChildTblGrid(); - - // multi property - property Trs read ReadTrs; - function ReadTrs(_index); - function AddTr(): Tr; - function AppendTr(): Tr; - -public - // Children - XmlChildTblPr: TblPr; - XmlChildTblGrid: TblGrid; - -end; - -function Tbl.Create();overload; -begin - {self.}Create(nil, "w", "tbl"); -end; - -function Tbl.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Tbl.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Tbl.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "tblPr": array(0, makeweakref(thisFunction(ReadXmlChildTblPr))), - pre + "tblGrid": array(1, makeweakref(thisFunction(ReadXmlChildTblGrid))), - pre + "tr": array(2, makeweakref(thisFunction(AppendTr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Tbl.Copy(_obj: Tbl);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTblPr) then - {self.}TblPr.Copy(_obj.XmlChildTblPr); - if not ifnil(_obj.XmlChildTblGrid) then - {self.}TblGrid.Copy(_obj.XmlChildTblGrid); - tslassigning := tslassigning_backup; -end; - -function Tbl.ReadXmlChildTblPr(); -begin - if tslassigning and ifnil({self.}XmlChildTblPr) then - begin - {self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr"); - container_.Set({self.}XmlChildTblPr); - end - return {self.}XmlChildTblPr; -end; - -function Tbl.ReadXmlChildTblGrid(); -begin - if tslassigning and ifnil({self.}XmlChildTblGrid) then - begin - {self.}XmlChildTblGrid := new TblGrid(self, {self.}Prefix, "tblGrid"); - container_.Set({self.}XmlChildTblGrid); - end - return {self.}XmlChildTblGrid; -end; - -function Tbl.ReadTrs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "tr", ind); -end; - -function Tbl.AddTr(): Tr; -begin - obj := new Tr(self, {self.}Prefix, "tr"); - container_.Insert(obj); - return obj; -end; - -function Tbl.AppendTr(): Tr; -begin - obj := new Tr(self, {self.}Prefix, "tr"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/TblBorder@DOCX.tsf b/autoclass/docx/TblBorder@DOCX.tsf deleted file mode 100644 index b616c2f..0000000 --- a/autoclass/docx/TblBorder@DOCX.tsf +++ /dev/null @@ -1,184 +0,0 @@ -type TblBorder = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblBorder);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property Color read ReadXmlAttrColor write WriteXmlAttrColor; - property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; - property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; - property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; - property Sz read ReadXmlAttrSz write WriteXmlAttrSz; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrColor(); - function WriteXmlAttrColor(_value); - function ReadXmlAttrSpace(); - function WriteXmlAttrSpace(_value); - function ReadXmlAttrThemeColor(); - function WriteXmlAttrThemeColor(_value); - function ReadXmlAttrThemeTint(); - function WriteXmlAttrThemeTint(_value); - function ReadXmlAttrSz(); - function WriteXmlAttrSz(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrColor: OpenXmlAttribute; - XmlAttrSpace: OpenXmlAttribute; - XmlAttrThemeColor: OpenXmlAttribute; - XmlAttrThemeTint: OpenXmlAttribute; - XmlAttrSz: OpenXmlAttribute; - - -end; - -function TblBorder.Create();overload; -begin - {self.}Create(nil, "w", ""); -end; - -function TblBorder.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblBorder.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "color": makeweakref(thisFunction(WriteXmlAttrColor)), - pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), - pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), - pre + "themeTint": makeweakref(thisFunction(WriteXmlAttrThemeTint)), - pre + "sz": makeweakref(thisFunction(WriteXmlAttrSz)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblBorder.Copy(_obj: TblBorder);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.Color) then - {self.}Color := _obj.Color; - if not ifnil(_obj.Space) then - {self.}Space := _obj.Space; - if not ifnil(_obj.ThemeColor) then - {self.}ThemeColor := _obj.ThemeColor; - if not ifnil(_obj.ThemeTint) then - {self.}ThemeTint := _obj.ThemeTint; - if not ifnil(_obj.Sz) then - {self.}Sz := _obj.Sz; - tslassigning := tslassigning_backup; -end; - -function TblBorder.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function TblBorder.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function TblBorder.ReadXmlAttrColor(); -begin - return {self.}XmlAttrColor.Value; -end; - -function TblBorder.WriteXmlAttrColor(_value); -begin - if ifnil({self.}XmlAttrColor) then - begin - {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); - attributes_[length(attributes_)] := {self.}XmlAttrColor; - end - {self.}XmlAttrColor.Value := _value; -end; - -function TblBorder.ReadXmlAttrSpace(); -begin - return {self.}XmlAttrSpace.Value; -end; - -function TblBorder.WriteXmlAttrSpace(_value); -begin - if ifnil({self.}XmlAttrSpace) then - begin - {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpace; - end - {self.}XmlAttrSpace.Value := _value; -end; - -function TblBorder.ReadXmlAttrThemeColor(); -begin - return {self.}XmlAttrThemeColor.Value; -end; - -function TblBorder.WriteXmlAttrThemeColor(_value); -begin - if ifnil({self.}XmlAttrThemeColor) then - begin - {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; - end - {self.}XmlAttrThemeColor.Value := _value; -end; - -function TblBorder.ReadXmlAttrThemeTint(); -begin - return {self.}XmlAttrThemeTint.Value; -end; - -function TblBorder.WriteXmlAttrThemeTint(_value); -begin - if ifnil({self.}XmlAttrThemeTint) then - begin - {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeTint; - end - {self.}XmlAttrThemeTint.Value := _value; -end; - -function TblBorder.ReadXmlAttrSz(); -begin - return {self.}XmlAttrSz.Value; -end; - -function TblBorder.WriteXmlAttrSz(_value); -begin - if ifnil({self.}XmlAttrSz) then - begin - {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSz; - end - {self.}XmlAttrSz.Value := _value; -end; diff --git a/autoclass/docx/TblBorders@DOCX.tsf b/autoclass/docx/TblBorders@DOCX.tsf deleted file mode 100644 index 8cc3cb3..0000000 --- a/autoclass/docx/TblBorders@DOCX.tsf +++ /dev/null @@ -1,147 +0,0 @@ -type TblBorders = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblBorders);override; - -public - - // normal property - property Top read ReadXmlChildTop; - property Left read ReadXmlChildLeft; - property Bottom read ReadXmlChildBottom; - property Right read ReadXmlChildRight; - property InsideH read ReadXmlChildInsideH; - property InsideV read ReadXmlChildInsideV; - function ReadXmlChildTop(); - function ReadXmlChildLeft(); - function ReadXmlChildBottom(); - function ReadXmlChildRight(); - function ReadXmlChildInsideH(); - function ReadXmlChildInsideV(); - -public - // Children - XmlChildTop: TblBorder; - XmlChildLeft: TblBorder; - XmlChildBottom: TblBorder; - XmlChildRight: TblBorder; - XmlChildInsideH: TblBorder; - XmlChildInsideV: TblBorder; - -end; - -function TblBorders.Create();overload; -begin - {self.}Create(nil, "w", "tblBorders"); -end; - -function TblBorders.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblBorders.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblBorders.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), - pre + "left": array(1, makeweakref(thisFunction(ReadXmlChildLeft))), - pre + "bottom": array(2, makeweakref(thisFunction(ReadXmlChildBottom))), - pre + "right": array(3, makeweakref(thisFunction(ReadXmlChildRight))), - pre + "insideH": array(4, makeweakref(thisFunction(ReadXmlChildInsideH))), - pre + "insideV": array(5, makeweakref(thisFunction(ReadXmlChildInsideV))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblBorders.Copy(_obj: TblBorders);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTop) then - {self.}Top.Copy(_obj.XmlChildTop); - if not ifnil(_obj.XmlChildLeft) then - {self.}Left.Copy(_obj.XmlChildLeft); - if not ifnil(_obj.XmlChildBottom) then - {self.}Bottom.Copy(_obj.XmlChildBottom); - if not ifnil(_obj.XmlChildRight) then - {self.}Right.Copy(_obj.XmlChildRight); - if not ifnil(_obj.XmlChildInsideH) then - {self.}InsideH.Copy(_obj.XmlChildInsideH); - if not ifnil(_obj.XmlChildInsideV) then - {self.}InsideV.Copy(_obj.XmlChildInsideV); - tslassigning := tslassigning_backup; -end; - -function TblBorders.ReadXmlChildTop(); -begin - if tslassigning and ifnil({self.}XmlChildTop) then - begin - {self.}XmlChildTop := new TblBorder(self, {self.}Prefix, "top"); - container_.Set({self.}XmlChildTop); - end - return {self.}XmlChildTop; -end; - -function TblBorders.ReadXmlChildLeft(); -begin - if tslassigning and ifnil({self.}XmlChildLeft) then - begin - {self.}XmlChildLeft := new TblBorder(self, {self.}Prefix, "left"); - container_.Set({self.}XmlChildLeft); - end - return {self.}XmlChildLeft; -end; - -function TblBorders.ReadXmlChildBottom(); -begin - if tslassigning and ifnil({self.}XmlChildBottom) then - begin - {self.}XmlChildBottom := new TblBorder(self, {self.}Prefix, "bottom"); - container_.Set({self.}XmlChildBottom); - end - return {self.}XmlChildBottom; -end; - -function TblBorders.ReadXmlChildRight(); -begin - if tslassigning and ifnil({self.}XmlChildRight) then - begin - {self.}XmlChildRight := new TblBorder(self, {self.}Prefix, "right"); - container_.Set({self.}XmlChildRight); - end - return {self.}XmlChildRight; -end; - -function TblBorders.ReadXmlChildInsideH(); -begin - if tslassigning and ifnil({self.}XmlChildInsideH) then - begin - {self.}XmlChildInsideH := new TblBorder(self, {self.}Prefix, "insideH"); - container_.Set({self.}XmlChildInsideH); - end - return {self.}XmlChildInsideH; -end; - -function TblBorders.ReadXmlChildInsideV(); -begin - if tslassigning and ifnil({self.}XmlChildInsideV) then - begin - {self.}XmlChildInsideV := new TblBorder(self, {self.}Prefix, "insideV"); - container_.Set({self.}XmlChildInsideV); - end - return {self.}XmlChildInsideV; -end; diff --git a/autoclass/docx/TblCellMar@DOCX.tsf b/autoclass/docx/TblCellMar@DOCX.tsf deleted file mode 100644 index 1223222..0000000 --- a/autoclass/docx/TblCellMar@DOCX.tsf +++ /dev/null @@ -1,115 +0,0 @@ -type TblCellMar = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblCellMar);override; - -public - - // normal property - property Top read ReadXmlChildTop; - property Left read ReadXmlChildLeft; - property Bottom read ReadXmlChildBottom; - property Right read ReadXmlChildRight; - function ReadXmlChildTop(); - function ReadXmlChildLeft(); - function ReadXmlChildBottom(); - function ReadXmlChildRight(); - -public - // Children - XmlChildTop: TblInd; - XmlChildLeft: TblInd; - XmlChildBottom: TblInd; - XmlChildRight: TblInd; - -end; - -function TblCellMar.Create();overload; -begin - {self.}Create(nil, "w", "tblCellMar"); -end; - -function TblCellMar.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblCellMar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblCellMar.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), - pre + "left": array(1, makeweakref(thisFunction(ReadXmlChildLeft))), - pre + "bottom": array(2, makeweakref(thisFunction(ReadXmlChildBottom))), - pre + "right": array(3, makeweakref(thisFunction(ReadXmlChildRight))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblCellMar.Copy(_obj: TblCellMar);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTop) then - {self.}Top.Copy(_obj.XmlChildTop); - if not ifnil(_obj.XmlChildLeft) then - {self.}Left.Copy(_obj.XmlChildLeft); - if not ifnil(_obj.XmlChildBottom) then - {self.}Bottom.Copy(_obj.XmlChildBottom); - if not ifnil(_obj.XmlChildRight) then - {self.}Right.Copy(_obj.XmlChildRight); - tslassigning := tslassigning_backup; -end; - -function TblCellMar.ReadXmlChildTop(); -begin - if tslassigning and ifnil({self.}XmlChildTop) then - begin - {self.}XmlChildTop := new TblInd(self, {self.}Prefix, "top"); - container_.Set({self.}XmlChildTop); - end - return {self.}XmlChildTop; -end; - -function TblCellMar.ReadXmlChildLeft(); -begin - if tslassigning and ifnil({self.}XmlChildLeft) then - begin - {self.}XmlChildLeft := new TblInd(self, {self.}Prefix, "left"); - container_.Set({self.}XmlChildLeft); - end - return {self.}XmlChildLeft; -end; - -function TblCellMar.ReadXmlChildBottom(); -begin - if tslassigning and ifnil({self.}XmlChildBottom) then - begin - {self.}XmlChildBottom := new TblInd(self, {self.}Prefix, "bottom"); - container_.Set({self.}XmlChildBottom); - end - return {self.}XmlChildBottom; -end; - -function TblCellMar.ReadXmlChildRight(); -begin - if tslassigning and ifnil({self.}XmlChildRight) then - begin - {self.}XmlChildRight := new TblInd(self, {self.}Prefix, "right"); - container_.Set({self.}XmlChildRight); - end - return {self.}XmlChildRight; -end; diff --git a/autoclass/docx/TblCellSpacing@DOCX.tsf b/autoclass/docx/TblCellSpacing@DOCX.tsf deleted file mode 100644 index 4cdeca2..0000000 --- a/autoclass/docx/TblCellSpacing@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type TblCellSpacing = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblCellSpacing);override; - -public - - // attributes property - property W read ReadXmlAttrW write WriteXmlAttrW; - property Type read ReadXmlAttrType write WriteXmlAttrType; - function ReadXmlAttrW(); - function WriteXmlAttrW(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - -public - // Attributes - XmlAttrW: OpenXmlAttribute; - XmlAttrType: OpenXmlAttribute; - - -end; - -function TblCellSpacing.Create();overload; -begin - {self.}Create(nil, "w", "tblCellSpacing"); -end; - -function TblCellSpacing.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblCellSpacing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblCellSpacing.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblCellSpacing.Copy(_obj: TblCellSpacing);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.W) then - {self.}W := _obj.W; - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - tslassigning := tslassigning_backup; -end; - -function TblCellSpacing.ReadXmlAttrW(); -begin - return {self.}XmlAttrW.Value; -end; - -function TblCellSpacing.WriteXmlAttrW(_value); -begin - if ifnil({self.}XmlAttrW) then - begin - {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW; - end - {self.}XmlAttrW.Value := _value; -end; - -function TblCellSpacing.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function TblCellSpacing.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; diff --git a/autoclass/docx/TblGrid@DOCX.tsf b/autoclass/docx/TblGrid@DOCX.tsf deleted file mode 100644 index cf9d421..0000000 --- a/autoclass/docx/TblGrid@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type TblGrid = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblGrid);override; - -public - - // multi property - property GridCols read ReadGridCols; - function ReadGridCols(_index); - function AddGridCol(): GridCol; - function AppendGridCol(): GridCol; - -public - // Children - -end; - -function TblGrid.Create();overload; -begin - {self.}Create(nil, "w", "tblGrid"); -end; - -function TblGrid.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblGrid.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblGrid.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "gridCol": array(0, makeweakref(thisFunction(AppendGridCol))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblGrid.Copy(_obj: TblGrid);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function TblGrid.ReadGridCols(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "gridCol", ind); -end; - -function TblGrid.AddGridCol(): GridCol; -begin - obj := new GridCol(self, {self.}Prefix, "gridCol"); - container_.Insert(obj); - return obj; -end; - -function TblGrid.AppendGridCol(): GridCol; -begin - obj := new GridCol(self, {self.}Prefix, "gridCol"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/TblInd@DOCX.tsf b/autoclass/docx/TblInd@DOCX.tsf deleted file mode 100644 index f7cae7e..0000000 --- a/autoclass/docx/TblInd@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type TblInd = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblInd);override; - -public - - // attributes property - property W read ReadXmlAttrW write WriteXmlAttrW; - property Type read ReadXmlAttrType write WriteXmlAttrType; - function ReadXmlAttrW(); - function WriteXmlAttrW(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - -public - // Attributes - XmlAttrW: OpenXmlAttribute; - XmlAttrType: OpenXmlAttribute; - - -end; - -function TblInd.Create();overload; -begin - {self.}Create(nil, "w", "tblInd"); -end; - -function TblInd.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblInd.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblInd.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblInd.Copy(_obj: TblInd);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.W) then - {self.}W := _obj.W; - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - tslassigning := tslassigning_backup; -end; - -function TblInd.ReadXmlAttrW(); -begin - return {self.}XmlAttrW.Value; -end; - -function TblInd.WriteXmlAttrW(_value); -begin - if ifnil({self.}XmlAttrW) then - begin - {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW; - end - {self.}XmlAttrW.Value := _value; -end; - -function TblInd.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function TblInd.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; diff --git a/autoclass/docx/TblLayout@DOCX.tsf b/autoclass/docx/TblLayout@DOCX.tsf deleted file mode 100644 index aee095c..0000000 --- a/autoclass/docx/TblLayout@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type TblLayout = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblLayout);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - - -end; - -function TblLayout.Create();overload; -begin - {self.}Create(nil, "w", "tblLayout"); -end; - -function TblLayout.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblLayout.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblLayout.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblLayout.Copy(_obj: TblLayout);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - tslassigning := tslassigning_backup; -end; - -function TblLayout.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function TblLayout.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; diff --git a/autoclass/docx/TblLook@DOCX.tsf b/autoclass/docx/TblLook@DOCX.tsf deleted file mode 100644 index 23c371e..0000000 --- a/autoclass/docx/TblLook@DOCX.tsf +++ /dev/null @@ -1,206 +0,0 @@ -type TblLook = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblLook);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property FirstRow read ReadXmlAttrFirstRow write WriteXmlAttrFirstRow; - property LastRow read ReadXmlAttrLastRow write WriteXmlAttrLastRow; - property FirstColumn read ReadXmlAttrFirstColumn write WriteXmlAttrFirstColumn; - property LastColumn read ReadXmlAttrLastColumn write WriteXmlAttrLastColumn; - property NoHBand read ReadXmlAttrNoHBand write WriteXmlAttrNoHBand; - property NoVBand read ReadXmlAttrNoVBand write WriteXmlAttrNoVBand; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrFirstRow(); - function WriteXmlAttrFirstRow(_value); - function ReadXmlAttrLastRow(); - function WriteXmlAttrLastRow(_value); - function ReadXmlAttrFirstColumn(); - function WriteXmlAttrFirstColumn(_value); - function ReadXmlAttrLastColumn(); - function WriteXmlAttrLastColumn(_value); - function ReadXmlAttrNoHBand(); - function WriteXmlAttrNoHBand(_value); - function ReadXmlAttrNoVBand(); - function WriteXmlAttrNoVBand(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrFirstRow: OpenXmlAttribute; - XmlAttrLastRow: OpenXmlAttribute; - XmlAttrFirstColumn: OpenXmlAttribute; - XmlAttrLastColumn: OpenXmlAttribute; - XmlAttrNoHBand: OpenXmlAttribute; - XmlAttrNoVBand: OpenXmlAttribute; - - -end; - -function TblLook.Create();overload; -begin - {self.}Create(nil, "w", "tblLook"); -end; - -function TblLook.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblLook.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblLook.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "firstRow": makeweakref(thisFunction(WriteXmlAttrFirstRow)), - pre + "lastRow": makeweakref(thisFunction(WriteXmlAttrLastRow)), - pre + "firstColumn": makeweakref(thisFunction(WriteXmlAttrFirstColumn)), - pre + "lastColumn": makeweakref(thisFunction(WriteXmlAttrLastColumn)), - pre + "noHBand": makeweakref(thisFunction(WriteXmlAttrNoHBand)), - pre + "noVBand": makeweakref(thisFunction(WriteXmlAttrNoVBand)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblLook.Copy(_obj: TblLook);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.FirstRow) then - {self.}FirstRow := _obj.FirstRow; - if not ifnil(_obj.LastRow) then - {self.}LastRow := _obj.LastRow; - if not ifnil(_obj.FirstColumn) then - {self.}FirstColumn := _obj.FirstColumn; - if not ifnil(_obj.LastColumn) then - {self.}LastColumn := _obj.LastColumn; - if not ifnil(_obj.NoHBand) then - {self.}NoHBand := _obj.NoHBand; - if not ifnil(_obj.NoVBand) then - {self.}NoVBand := _obj.NoVBand; - tslassigning := tslassigning_backup; -end; - -function TblLook.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function TblLook.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function TblLook.ReadXmlAttrFirstRow(); -begin - return {self.}XmlAttrFirstRow.Value; -end; - -function TblLook.WriteXmlAttrFirstRow(_value); -begin - if ifnil({self.}XmlAttrFirstRow) then - begin - {self.}XmlAttrFirstRow := new OpenXmlAttribute({self.}Prefix, "firstRow", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstRow; - end - {self.}XmlAttrFirstRow.Value := _value; -end; - -function TblLook.ReadXmlAttrLastRow(); -begin - return {self.}XmlAttrLastRow.Value; -end; - -function TblLook.WriteXmlAttrLastRow(_value); -begin - if ifnil({self.}XmlAttrLastRow) then - begin - {self.}XmlAttrLastRow := new OpenXmlAttribute({self.}Prefix, "lastRow", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLastRow; - end - {self.}XmlAttrLastRow.Value := _value; -end; - -function TblLook.ReadXmlAttrFirstColumn(); -begin - return {self.}XmlAttrFirstColumn.Value; -end; - -function TblLook.WriteXmlAttrFirstColumn(_value); -begin - if ifnil({self.}XmlAttrFirstColumn) then - begin - {self.}XmlAttrFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrFirstColumn; - end - {self.}XmlAttrFirstColumn.Value := _value; -end; - -function TblLook.ReadXmlAttrLastColumn(); -begin - return {self.}XmlAttrLastColumn.Value; -end; - -function TblLook.WriteXmlAttrLastColumn(_value); -begin - if ifnil({self.}XmlAttrLastColumn) then - begin - {self.}XmlAttrLastColumn := new OpenXmlAttribute({self.}Prefix, "lastColumn", nil); - attributes_[length(attributes_)] := {self.}XmlAttrLastColumn; - end - {self.}XmlAttrLastColumn.Value := _value; -end; - -function TblLook.ReadXmlAttrNoHBand(); -begin - return {self.}XmlAttrNoHBand.Value; -end; - -function TblLook.WriteXmlAttrNoHBand(_value); -begin - if ifnil({self.}XmlAttrNoHBand) then - begin - {self.}XmlAttrNoHBand := new OpenXmlAttribute({self.}Prefix, "noHBand", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNoHBand; - end - {self.}XmlAttrNoHBand.Value := _value; -end; - -function TblLook.ReadXmlAttrNoVBand(); -begin - return {self.}XmlAttrNoVBand.Value; -end; - -function TblLook.WriteXmlAttrNoVBand(_value); -begin - if ifnil({self.}XmlAttrNoVBand) then - begin - {self.}XmlAttrNoVBand := new OpenXmlAttribute({self.}Prefix, "noVBand", nil); - attributes_[length(attributes_)] := {self.}XmlAttrNoVBand; - end - {self.}XmlAttrNoVBand.Value := _value; -end; diff --git a/autoclass/docx/TblPr@DOCX.tsf b/autoclass/docx/TblPr@DOCX.tsf deleted file mode 100644 index 604a340..0000000 --- a/autoclass/docx/TblPr@DOCX.tsf +++ /dev/null @@ -1,275 +0,0 @@ -type TblPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblPr);override; - -public - - // normal property - property Jc read ReadXmlChildJc; - property Shd read ReadXmlChildShd; - property TblStyle read ReadXmlChildTblStyle; - property TblW read ReadXmlChildTblW; - property TblInd read ReadXmlChildTblInd; - property TblLayout read ReadXmlChildTblLayout; - property TblLook read ReadXmlChildTblLook; - property TblBorders read ReadXmlChildTblBorders; - property TblCellMar read ReadXmlChildTblCellMar; - property TblCellSpacing read ReadXmlChildTblCellSpacing; - property TblCaption read ReadXmlChildTblCaption; - property TblDescription read ReadXmlChildTblDescription; - property TblStyleRowBandSize read ReadXmlChildTblStyleRowBandSize; - property TblStyleColBandSize read ReadXmlChildTblStyleColBandSize; - function ReadXmlChildJc(); - function ReadXmlChildShd(); - function ReadXmlChildTblStyle(); - function ReadXmlChildTblW(); - function ReadXmlChildTblInd(); - function ReadXmlChildTblLayout(); - function ReadXmlChildTblLook(); - function ReadXmlChildTblBorders(); - function ReadXmlChildTblCellMar(); - function ReadXmlChildTblCellSpacing(); - function ReadXmlChildTblCaption(); - function ReadXmlChildTblDescription(); - function ReadXmlChildTblStyleRowBandSize(); - function ReadXmlChildTblStyleColBandSize(); - -public - // Children - XmlChildJc: PureWVal; - XmlChildShd: Shd; - XmlChildTblStyle: PureWVal; - XmlChildTblW: TblW; - XmlChildTblInd: TblW; - XmlChildTblLayout: TblLayout; - XmlChildTblLook: TblLook; - XmlChildTblBorders: TblBorders; - XmlChildTblCellMar: TblCellMar; - XmlChildTblCellSpacing: TblCellSpacing; - XmlChildTblCaption: PureWVal; - XmlChildTblDescription: PureWVal; - XmlChildTblStyleRowBandSize: PureWVal; - XmlChildTblStyleColBandSize: PureWVal; - -end; - -function TblPr.Create();overload; -begin - {self.}Create(nil, "w", "tblPr"); -end; - -function TblPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "jc": array(0, makeweakref(thisFunction(ReadXmlChildJc))), - pre + "shd": array(1, makeweakref(thisFunction(ReadXmlChildShd))), - pre + "tblStyle": array(2, makeweakref(thisFunction(ReadXmlChildTblStyle))), - pre + "tblW": array(3, makeweakref(thisFunction(ReadXmlChildTblW))), - pre + "tblInd": array(4, makeweakref(thisFunction(ReadXmlChildTblInd))), - pre + "tblLayout": array(5, makeweakref(thisFunction(ReadXmlChildTblLayout))), - pre + "tblLook": array(6, makeweakref(thisFunction(ReadXmlChildTblLook))), - pre + "tblBorders": array(7, makeweakref(thisFunction(ReadXmlChildTblBorders))), - pre + "tblCellMar": array(8, makeweakref(thisFunction(ReadXmlChildTblCellMar))), - pre + "tblCellSpacing": array(9, makeweakref(thisFunction(ReadXmlChildTblCellSpacing))), - pre + "tblCaption": array(10, makeweakref(thisFunction(ReadXmlChildTblCaption))), - pre + "tblDescription": array(11, makeweakref(thisFunction(ReadXmlChildTblDescription))), - pre + "tblStyleRowBandSize": array(12, makeweakref(thisFunction(ReadXmlChildTblStyleRowBandSize))), - pre + "tblStyleColBandSize": array(13, makeweakref(thisFunction(ReadXmlChildTblStyleColBandSize))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblPr.Copy(_obj: TblPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildJc) then - {self.}Jc.Copy(_obj.XmlChildJc); - if not ifnil(_obj.XmlChildShd) then - {self.}Shd.Copy(_obj.XmlChildShd); - if not ifnil(_obj.XmlChildTblStyle) then - {self.}TblStyle.Copy(_obj.XmlChildTblStyle); - if not ifnil(_obj.XmlChildTblW) then - {self.}TblW.Copy(_obj.XmlChildTblW); - if not ifnil(_obj.XmlChildTblInd) then - {self.}TblInd.Copy(_obj.XmlChildTblInd); - if not ifnil(_obj.XmlChildTblLayout) then - {self.}TblLayout.Copy(_obj.XmlChildTblLayout); - if not ifnil(_obj.XmlChildTblLook) then - {self.}TblLook.Copy(_obj.XmlChildTblLook); - if not ifnil(_obj.XmlChildTblBorders) then - {self.}TblBorders.Copy(_obj.XmlChildTblBorders); - if not ifnil(_obj.XmlChildTblCellMar) then - {self.}TblCellMar.Copy(_obj.XmlChildTblCellMar); - if not ifnil(_obj.XmlChildTblCellSpacing) then - {self.}TblCellSpacing.Copy(_obj.XmlChildTblCellSpacing); - if not ifnil(_obj.XmlChildTblCaption) then - {self.}TblCaption.Copy(_obj.XmlChildTblCaption); - if not ifnil(_obj.XmlChildTblDescription) then - {self.}TblDescription.Copy(_obj.XmlChildTblDescription); - if not ifnil(_obj.XmlChildTblStyleRowBandSize) then - {self.}TblStyleRowBandSize.Copy(_obj.XmlChildTblStyleRowBandSize); - if not ifnil(_obj.XmlChildTblStyleColBandSize) then - {self.}TblStyleColBandSize.Copy(_obj.XmlChildTblStyleColBandSize); - tslassigning := tslassigning_backup; -end; - -function TblPr.ReadXmlChildJc(); -begin - if tslassigning and ifnil({self.}XmlChildJc) then - begin - {self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc"); - container_.Set({self.}XmlChildJc); - end - return {self.}XmlChildJc; -end; - -function TblPr.ReadXmlChildShd(); -begin - if tslassigning and ifnil({self.}XmlChildShd) then - begin - {self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd"); - container_.Set({self.}XmlChildShd); - end - return {self.}XmlChildShd; -end; - -function TblPr.ReadXmlChildTblStyle(); -begin - if tslassigning and ifnil({self.}XmlChildTblStyle) then - begin - {self.}XmlChildTblStyle := new PureWVal(self, {self.}Prefix, "tblStyle"); - container_.Set({self.}XmlChildTblStyle); - end - return {self.}XmlChildTblStyle; -end; - -function TblPr.ReadXmlChildTblW(); -begin - if tslassigning and ifnil({self.}XmlChildTblW) then - begin - {self.}XmlChildTblW := new TblW(self, {self.}Prefix, "tblW"); - container_.Set({self.}XmlChildTblW); - end - return {self.}XmlChildTblW; -end; - -function TblPr.ReadXmlChildTblInd(); -begin - if tslassigning and ifnil({self.}XmlChildTblInd) then - begin - {self.}XmlChildTblInd := new TblW(self, {self.}Prefix, "tblInd"); - container_.Set({self.}XmlChildTblInd); - end - return {self.}XmlChildTblInd; -end; - -function TblPr.ReadXmlChildTblLayout(); -begin - if tslassigning and ifnil({self.}XmlChildTblLayout) then - begin - {self.}XmlChildTblLayout := new TblLayout(self, {self.}Prefix, "tblLayout"); - container_.Set({self.}XmlChildTblLayout); - end - return {self.}XmlChildTblLayout; -end; - -function TblPr.ReadXmlChildTblLook(); -begin - if tslassigning and ifnil({self.}XmlChildTblLook) then - begin - {self.}XmlChildTblLook := new TblLook(self, {self.}Prefix, "tblLook"); - container_.Set({self.}XmlChildTblLook); - end - return {self.}XmlChildTblLook; -end; - -function TblPr.ReadXmlChildTblBorders(); -begin - if tslassigning and ifnil({self.}XmlChildTblBorders) then - begin - {self.}XmlChildTblBorders := new TblBorders(self, {self.}Prefix, "tblBorders"); - container_.Set({self.}XmlChildTblBorders); - end - return {self.}XmlChildTblBorders; -end; - -function TblPr.ReadXmlChildTblCellMar(); -begin - if tslassigning and ifnil({self.}XmlChildTblCellMar) then - begin - {self.}XmlChildTblCellMar := new TblCellMar(self, {self.}Prefix, "tblCellMar"); - container_.Set({self.}XmlChildTblCellMar); - end - return {self.}XmlChildTblCellMar; -end; - -function TblPr.ReadXmlChildTblCellSpacing(); -begin - if tslassigning and ifnil({self.}XmlChildTblCellSpacing) then - begin - {self.}XmlChildTblCellSpacing := new TblCellSpacing(self, {self.}Prefix, "tblCellSpacing"); - container_.Set({self.}XmlChildTblCellSpacing); - end - return {self.}XmlChildTblCellSpacing; -end; - -function TblPr.ReadXmlChildTblCaption(); -begin - if tslassigning and ifnil({self.}XmlChildTblCaption) then - begin - {self.}XmlChildTblCaption := new PureWVal(self, {self.}Prefix, "tblCaption"); - container_.Set({self.}XmlChildTblCaption); - end - return {self.}XmlChildTblCaption; -end; - -function TblPr.ReadXmlChildTblDescription(); -begin - if tslassigning and ifnil({self.}XmlChildTblDescription) then - begin - {self.}XmlChildTblDescription := new PureWVal(self, {self.}Prefix, "tblDescription"); - container_.Set({self.}XmlChildTblDescription); - end - return {self.}XmlChildTblDescription; -end; - -function TblPr.ReadXmlChildTblStyleRowBandSize(); -begin - if tslassigning and ifnil({self.}XmlChildTblStyleRowBandSize) then - begin - {self.}XmlChildTblStyleRowBandSize := new PureWVal(self, {self.}Prefix, "tblStyleRowBandSize"); - container_.Set({self.}XmlChildTblStyleRowBandSize); - end - return {self.}XmlChildTblStyleRowBandSize; -end; - -function TblPr.ReadXmlChildTblStyleColBandSize(); -begin - if tslassigning and ifnil({self.}XmlChildTblStyleColBandSize) then - begin - {self.}XmlChildTblStyleColBandSize := new PureWVal(self, {self.}Prefix, "tblStyleColBandSize"); - container_.Set({self.}XmlChildTblStyleColBandSize); - end - return {self.}XmlChildTblStyleColBandSize; -end; diff --git a/autoclass/docx/TblStylePr@DOCX.tsf b/autoclass/docx/TblStylePr@DOCX.tsf deleted file mode 100644 index ae548e2..0000000 --- a/autoclass/docx/TblStylePr@DOCX.tsf +++ /dev/null @@ -1,157 +0,0 @@ -type TblStylePr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblStylePr);override; - -public - - // attributes property - property Type read ReadXmlAttrType write WriteXmlAttrType; - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - - // normal property - property PPr read ReadXmlChildPPr; - property RPr read ReadXmlChildRPr; - property TblPr read ReadXmlChildTblPr; - property TrPr read ReadXmlChildTrPr; - property TcPr read ReadXmlChildTcPr; - function ReadXmlChildPPr(); - function ReadXmlChildRPr(); - function ReadXmlChildTblPr(); - function ReadXmlChildTrPr(); - function ReadXmlChildTcPr(); - -public - // Attributes - XmlAttrType: OpenXmlAttribute; - - // Children - XmlChildPPr: PPr; - XmlChildRPr: RPr; - XmlChildTblPr: TblPr; - XmlChildTrPr: TrPr; - XmlChildTcPr: TcPr; - -end; - -function TblStylePr.Create();overload; -begin - {self.}Create(nil, "w", "tblStylePr"); -end; - -function TblStylePr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblStylePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblStylePr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - ); - sorted_child_ := array( - pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), - pre + "rPr": array(1, makeweakref(thisFunction(ReadXmlChildRPr))), - pre + "tblPr": array(2, makeweakref(thisFunction(ReadXmlChildTblPr))), - pre + "trPr": array(3, makeweakref(thisFunction(ReadXmlChildTrPr))), - pre + "tcPr": array(4, makeweakref(thisFunction(ReadXmlChildTcPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblStylePr.Copy(_obj: TblStylePr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - if not ifnil(_obj.XmlChildPPr) then - {self.}PPr.Copy(_obj.XmlChildPPr); - if not ifnil(_obj.XmlChildRPr) then - {self.}RPr.Copy(_obj.XmlChildRPr); - if not ifnil(_obj.XmlChildTblPr) then - {self.}TblPr.Copy(_obj.XmlChildTblPr); - if not ifnil(_obj.XmlChildTrPr) then - {self.}TrPr.Copy(_obj.XmlChildTrPr); - if not ifnil(_obj.XmlChildTcPr) then - {self.}TcPr.Copy(_obj.XmlChildTcPr); - tslassigning := tslassigning_backup; -end; - -function TblStylePr.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function TblStylePr.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; - -function TblStylePr.ReadXmlChildPPr(); -begin - if tslassigning and ifnil({self.}XmlChildPPr) then - begin - {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); - container_.Set({self.}XmlChildPPr); - end - return {self.}XmlChildPPr; -end; - -function TblStylePr.ReadXmlChildRPr(); -begin - if tslassigning and ifnil({self.}XmlChildRPr) then - begin - {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); - container_.Set({self.}XmlChildRPr); - end - return {self.}XmlChildRPr; -end; - -function TblStylePr.ReadXmlChildTblPr(); -begin - if tslassigning and ifnil({self.}XmlChildTblPr) then - begin - {self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr"); - container_.Set({self.}XmlChildTblPr); - end - return {self.}XmlChildTblPr; -end; - -function TblStylePr.ReadXmlChildTrPr(); -begin - if tslassigning and ifnil({self.}XmlChildTrPr) then - begin - {self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr"); - container_.Set({self.}XmlChildTrPr); - end - return {self.}XmlChildTrPr; -end; - -function TblStylePr.ReadXmlChildTcPr(); -begin - if tslassigning and ifnil({self.}XmlChildTcPr) then - begin - {self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr"); - container_.Set({self.}XmlChildTcPr); - end - return {self.}XmlChildTcPr; -end; diff --git a/autoclass/docx/TblW@DOCX.tsf b/autoclass/docx/TblW@DOCX.tsf deleted file mode 100644 index af157fb..0000000 --- a/autoclass/docx/TblW@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type TblW = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TblW);override; - -public - - // attributes property - property W read ReadXmlAttrW write WriteXmlAttrW; - property Type read ReadXmlAttrType write WriteXmlAttrType; - function ReadXmlAttrW(); - function WriteXmlAttrW(_value); - function ReadXmlAttrType(); - function WriteXmlAttrType(_value); - -public - // Attributes - XmlAttrW: OpenXmlAttribute; - XmlAttrType: OpenXmlAttribute; - - -end; - -function TblW.Create();overload; -begin - {self.}Create(nil, "w", "tblW"); -end; - -function TblW.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TblW.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TblW.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), - pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TblW.Copy(_obj: TblW);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.W) then - {self.}W := _obj.W; - if not ifnil(_obj.Type) then - {self.}Type := _obj.Type; - tslassigning := tslassigning_backup; -end; - -function TblW.ReadXmlAttrW(); -begin - return {self.}XmlAttrW.Value; -end; - -function TblW.WriteXmlAttrW(_value); -begin - if ifnil({self.}XmlAttrW) then - begin - {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW; - end - {self.}XmlAttrW.Value := _value; -end; - -function TblW.ReadXmlAttrType(); -begin - return {self.}XmlAttrType.Value; -end; - -function TblW.WriteXmlAttrType(_value); -begin - if ifnil({self.}XmlAttrType) then - begin - {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); - attributes_[length(attributes_)] := {self.}XmlAttrType; - end - {self.}XmlAttrType.Value := _value; -end; diff --git a/autoclass/docx/Tc@DOCX.tsf b/autoclass/docx/Tc@DOCX.tsf deleted file mode 100644 index e638c4c..0000000 --- a/autoclass/docx/Tc@DOCX.tsf +++ /dev/null @@ -1,121 +0,0 @@ -type Tc = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Tc);override; - -public - - // normal property - property TcPr read ReadXmlChildTcPr; - function ReadXmlChildTcPr(); - - // multi property - property Ps read ReadPs; - property Tbls read ReadTbls; - function ReadPs(_index); - function ReadTbls(_index); - function AddP(): P; - function AddTbl(): Tbl; - function AppendP(): P; - function AppendTbl(): Tbl; - -public - // Children - XmlChildTcPr: TcPr; - -end; - -function Tc.Create();overload; -begin - {self.}Create(nil, "w", "tc"); -end; - -function Tc.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Tc.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Tc.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "tcPr": array(0, makeweakref(thisFunction(ReadXmlChildTcPr))), - pre + "p": array(1, makeweakref(thisFunction(AppendP))), - pre + "tbl": array(2, makeweakref(thisFunction(AppendTbl))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Tc.Copy(_obj: Tc);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTcPr) then - {self.}TcPr.Copy(_obj.XmlChildTcPr); - tslassigning := tslassigning_backup; -end; - -function Tc.ReadXmlChildTcPr(); -begin - if tslassigning and ifnil({self.}XmlChildTcPr) then - begin - {self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr"); - container_.Set({self.}XmlChildTcPr); - end - return {self.}XmlChildTcPr; -end; - -function Tc.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function Tc.ReadTbls(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "tbl", ind); -end; - -function Tc.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function Tc.AddTbl(): Tbl; -begin - obj := new Tbl(self, {self.}Prefix, "tbl"); - container_.Insert(obj); - return obj; -end; - -function Tc.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; - -function Tc.AppendTbl(): Tbl; -begin - obj := new Tbl(self, {self.}Prefix, "tbl"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/TcBorder@DOCX.tsf b/autoclass/docx/TcBorder@DOCX.tsf deleted file mode 100644 index 4bf38eb..0000000 --- a/autoclass/docx/TcBorder@DOCX.tsf +++ /dev/null @@ -1,184 +0,0 @@ -type TcBorder = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TcBorder);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property Color read ReadXmlAttrColor write WriteXmlAttrColor; - property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; - property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; - property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; - property Sz read ReadXmlAttrSz write WriteXmlAttrSz; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrColor(); - function WriteXmlAttrColor(_value); - function ReadXmlAttrSpace(); - function WriteXmlAttrSpace(_value); - function ReadXmlAttrThemeColor(); - function WriteXmlAttrThemeColor(_value); - function ReadXmlAttrThemeTint(); - function WriteXmlAttrThemeTint(_value); - function ReadXmlAttrSz(); - function WriteXmlAttrSz(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrColor: OpenXmlAttribute; - XmlAttrSpace: OpenXmlAttribute; - XmlAttrThemeColor: OpenXmlAttribute; - XmlAttrThemeTint: OpenXmlAttribute; - XmlAttrSz: OpenXmlAttribute; - - -end; - -function TcBorder.Create();overload; -begin - {self.}Create(nil, "w", ""); -end; - -function TcBorder.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TcBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TcBorder.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "color": makeweakref(thisFunction(WriteXmlAttrColor)), - pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), - pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), - pre + "themeTint": makeweakref(thisFunction(WriteXmlAttrThemeTint)), - pre + "sz": makeweakref(thisFunction(WriteXmlAttrSz)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TcBorder.Copy(_obj: TcBorder);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.Color) then - {self.}Color := _obj.Color; - if not ifnil(_obj.Space) then - {self.}Space := _obj.Space; - if not ifnil(_obj.ThemeColor) then - {self.}ThemeColor := _obj.ThemeColor; - if not ifnil(_obj.ThemeTint) then - {self.}ThemeTint := _obj.ThemeTint; - if not ifnil(_obj.Sz) then - {self.}Sz := _obj.Sz; - tslassigning := tslassigning_backup; -end; - -function TcBorder.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function TcBorder.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function TcBorder.ReadXmlAttrColor(); -begin - return {self.}XmlAttrColor.Value; -end; - -function TcBorder.WriteXmlAttrColor(_value); -begin - if ifnil({self.}XmlAttrColor) then - begin - {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); - attributes_[length(attributes_)] := {self.}XmlAttrColor; - end - {self.}XmlAttrColor.Value := _value; -end; - -function TcBorder.ReadXmlAttrSpace(); -begin - return {self.}XmlAttrSpace.Value; -end; - -function TcBorder.WriteXmlAttrSpace(_value); -begin - if ifnil({self.}XmlAttrSpace) then - begin - {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSpace; - end - {self.}XmlAttrSpace.Value := _value; -end; - -function TcBorder.ReadXmlAttrThemeColor(); -begin - return {self.}XmlAttrThemeColor.Value; -end; - -function TcBorder.WriteXmlAttrThemeColor(_value); -begin - if ifnil({self.}XmlAttrThemeColor) then - begin - {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; - end - {self.}XmlAttrThemeColor.Value := _value; -end; - -function TcBorder.ReadXmlAttrThemeTint(); -begin - return {self.}XmlAttrThemeTint.Value; -end; - -function TcBorder.WriteXmlAttrThemeTint(_value); -begin - if ifnil({self.}XmlAttrThemeTint) then - begin - {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); - attributes_[length(attributes_)] := {self.}XmlAttrThemeTint; - end - {self.}XmlAttrThemeTint.Value := _value; -end; - -function TcBorder.ReadXmlAttrSz(); -begin - return {self.}XmlAttrSz.Value; -end; - -function TcBorder.WriteXmlAttrSz(_value); -begin - if ifnil({self.}XmlAttrSz) then - begin - {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); - attributes_[length(attributes_)] := {self.}XmlAttrSz; - end - {self.}XmlAttrSz.Value := _value; -end; diff --git a/autoclass/docx/TcBorders@DOCX.tsf b/autoclass/docx/TcBorders@DOCX.tsf deleted file mode 100644 index 4c283bb..0000000 --- a/autoclass/docx/TcBorders@DOCX.tsf +++ /dev/null @@ -1,179 +0,0 @@ -type TcBorders = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TcBorders);override; - -public - - // normal property - property Top read ReadXmlChildTop; - property Left read ReadXmlChildLeft; - property Bottom read ReadXmlChildBottom; - property Right read ReadXmlChildRight; - property Tl2Br read ReadXmlChildTl2Br; - property Tr2Bl read ReadXmlChildTr2Bl; - property InsideH read ReadXmlChildInsideH; - property InsideV read ReadXmlChildInsideV; - function ReadXmlChildTop(); - function ReadXmlChildLeft(); - function ReadXmlChildBottom(); - function ReadXmlChildRight(); - function ReadXmlChildTl2Br(); - function ReadXmlChildTr2Bl(); - function ReadXmlChildInsideH(); - function ReadXmlChildInsideV(); - -public - // Children - XmlChildTop: TcBorder; - XmlChildLeft: TcBorder; - XmlChildBottom: TcBorder; - XmlChildRight: TcBorder; - XmlChildTl2Br: TcBorder; - XmlChildTr2Bl: TcBorder; - XmlChildInsideH: TcBorder; - XmlChildInsideV: TcBorder; - -end; - -function TcBorders.Create();overload; -begin - {self.}Create(nil, "w", "tcBorders"); -end; - -function TcBorders.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TcBorders.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TcBorders.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), - pre + "left": array(1, makeweakref(thisFunction(ReadXmlChildLeft))), - pre + "bottom": array(2, makeweakref(thisFunction(ReadXmlChildBottom))), - pre + "right": array(3, makeweakref(thisFunction(ReadXmlChildRight))), - pre + "tl2br": array(4, makeweakref(thisFunction(ReadXmlChildTl2Br))), - pre + "tr2bl": array(5, makeweakref(thisFunction(ReadXmlChildTr2Bl))), - pre + "insideH": array(6, makeweakref(thisFunction(ReadXmlChildInsideH))), - pre + "insideV": array(7, makeweakref(thisFunction(ReadXmlChildInsideV))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TcBorders.Copy(_obj: TcBorders);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTop) then - {self.}Top.Copy(_obj.XmlChildTop); - if not ifnil(_obj.XmlChildLeft) then - {self.}Left.Copy(_obj.XmlChildLeft); - if not ifnil(_obj.XmlChildBottom) then - {self.}Bottom.Copy(_obj.XmlChildBottom); - if not ifnil(_obj.XmlChildRight) then - {self.}Right.Copy(_obj.XmlChildRight); - if not ifnil(_obj.XmlChildTl2Br) then - {self.}Tl2Br.Copy(_obj.XmlChildTl2Br); - if not ifnil(_obj.XmlChildTr2Bl) then - {self.}Tr2Bl.Copy(_obj.XmlChildTr2Bl); - if not ifnil(_obj.XmlChildInsideH) then - {self.}InsideH.Copy(_obj.XmlChildInsideH); - if not ifnil(_obj.XmlChildInsideV) then - {self.}InsideV.Copy(_obj.XmlChildInsideV); - tslassigning := tslassigning_backup; -end; - -function TcBorders.ReadXmlChildTop(); -begin - if tslassigning and ifnil({self.}XmlChildTop) then - begin - {self.}XmlChildTop := new TcBorder(self, {self.}Prefix, "top"); - container_.Set({self.}XmlChildTop); - end - return {self.}XmlChildTop; -end; - -function TcBorders.ReadXmlChildLeft(); -begin - if tslassigning and ifnil({self.}XmlChildLeft) then - begin - {self.}XmlChildLeft := new TcBorder(self, {self.}Prefix, "left"); - container_.Set({self.}XmlChildLeft); - end - return {self.}XmlChildLeft; -end; - -function TcBorders.ReadXmlChildBottom(); -begin - if tslassigning and ifnil({self.}XmlChildBottom) then - begin - {self.}XmlChildBottom := new TcBorder(self, {self.}Prefix, "bottom"); - container_.Set({self.}XmlChildBottom); - end - return {self.}XmlChildBottom; -end; - -function TcBorders.ReadXmlChildRight(); -begin - if tslassigning and ifnil({self.}XmlChildRight) then - begin - {self.}XmlChildRight := new TcBorder(self, {self.}Prefix, "right"); - container_.Set({self.}XmlChildRight); - end - return {self.}XmlChildRight; -end; - -function TcBorders.ReadXmlChildTl2Br(); -begin - if tslassigning and ifnil({self.}XmlChildTl2Br) then - begin - {self.}XmlChildTl2Br := new TcBorder(self, {self.}Prefix, "tl2br"); - container_.Set({self.}XmlChildTl2Br); - end - return {self.}XmlChildTl2Br; -end; - -function TcBorders.ReadXmlChildTr2Bl(); -begin - if tslassigning and ifnil({self.}XmlChildTr2Bl) then - begin - {self.}XmlChildTr2Bl := new TcBorder(self, {self.}Prefix, "tr2bl"); - container_.Set({self.}XmlChildTr2Bl); - end - return {self.}XmlChildTr2Bl; -end; - -function TcBorders.ReadXmlChildInsideH(); -begin - if tslassigning and ifnil({self.}XmlChildInsideH) then - begin - {self.}XmlChildInsideH := new TcBorder(self, {self.}Prefix, "insideH"); - container_.Set({self.}XmlChildInsideH); - end - return {self.}XmlChildInsideH; -end; - -function TcBorders.ReadXmlChildInsideV(); -begin - if tslassigning and ifnil({self.}XmlChildInsideV) then - begin - {self.}XmlChildInsideV := new TcBorder(self, {self.}Prefix, "insideV"); - container_.Set({self.}XmlChildInsideV); - end - return {self.}XmlChildInsideV; -end; diff --git a/autoclass/docx/TcPr@DOCX.tsf b/autoclass/docx/TcPr@DOCX.tsf deleted file mode 100644 index db6d99c..0000000 --- a/autoclass/docx/TcPr@DOCX.tsf +++ /dev/null @@ -1,195 +0,0 @@ -type TcPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TcPr);override; - -public - - // empty property - property VMerge read ReadXmlChildVMerge write WriteXmlChildVMerge; - property HideMark read ReadXmlChildHideMark write WriteXmlChildHideMark; - function ReadXmlChildVMerge(); - function WriteXmlChildVMerge(_value); - function ReadXmlChildHideMark(); - function WriteXmlChildHideMark(_value); - - // normal property - property TcW read ReadXmlChildTcW; - property GridSpan read ReadXmlChildGridSpan; - property VAlign read ReadXmlChildVAlign; - property Shd read ReadXmlChildShd; - property TcBorders read ReadXmlChildTcBorders; - function ReadXmlChildTcW(); - function ReadXmlChildGridSpan(); - function ReadXmlChildVAlign(); - function ReadXmlChildShd(); - function ReadXmlChildTcBorders(); - -public - // Children - XmlChildTcW: TblW; - XmlChildGridSpan: GridSpan; - XmlChildVMerge: OpenXmlEmpty; - XmlChildVAlign: PureWVal; - XmlChildHideMark: OpenXmlEmpty; - XmlChildShd: Shd; - XmlChildTcBorders: TcBorders; - -end; - -function TcPr.Create();overload; -begin - {self.}Create(nil, "w", "tcPr"); -end; - -function TcPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TcPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TcPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "tcW": array(0, makeweakref(thisFunction(ReadXmlChildTcW))), - pre + "gridSpan": array(1, makeweakref(thisFunction(ReadXmlChildGridSpan))), - pre + "vMerge": array(2, makeweakref(thisFunction(ReadXmlChildVMerge))), - pre + "vAlign": array(3, makeweakref(thisFunction(ReadXmlChildVAlign))), - pre + "hideMark": array(4, makeweakref(thisFunction(ReadXmlChildHideMark))), - pre + "shd": array(5, makeweakref(thisFunction(ReadXmlChildShd))), - pre + "tcBorders": array(6, makeweakref(thisFunction(ReadXmlChildTcBorders))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TcPr.Copy(_obj: TcPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTcW) then - {self.}TcW.Copy(_obj.XmlChildTcW); - if not ifnil(_obj.XmlChildGridSpan) then - {self.}GridSpan.Copy(_obj.XmlChildGridSpan); - if not ifnil(_obj.XmlChildVMerge) then - ifnil({self.}XmlChildVMerge) ? {self.}VMerge.Copy(_obj.XmlChildVMerge) : {self.}XmlChildVMerge.Copy(_obj.XmlChildVMerge); - if not ifnil(_obj.XmlChildVAlign) then - {self.}VAlign.Copy(_obj.XmlChildVAlign); - if not ifnil(_obj.XmlChildHideMark) then - ifnil({self.}XmlChildHideMark) ? {self.}HideMark.Copy(_obj.XmlChildHideMark) : {self.}XmlChildHideMark.Copy(_obj.XmlChildHideMark); - if not ifnil(_obj.XmlChildShd) then - {self.}Shd.Copy(_obj.XmlChildShd); - if not ifnil(_obj.XmlChildTcBorders) then - {self.}TcBorders.Copy(_obj.XmlChildTcBorders); - tslassigning := tslassigning_backup; -end; - -function TcPr.ReadXmlChildVMerge(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildVMerge) then - begin - {self.}XmlChildVMerge := new OpenXmlEmpty(self, {self.}Prefix, "vMerge"); - container_.Set({self.}XmlChildVMerge); - end - return {self.}XmlChildVMerge; - end - return ifnil({self.}XmlChildVMerge) ? nil : {self.}XmlChildVMerge.BoolValue(); -end; - -function TcPr.WriteXmlChildVMerge(_value); -begin - if ifnil({self.}XmlChildVMerge) then - begin - {self.}XmlChildVMerge := new OpenXmlEmpty(self, {self.}Prefix, "vMerge"); - container_.Set({self.}XmlChildVMerge); - end - {self.}XmlChildVMerge.Value := _value; -end; - -function TcPr.ReadXmlChildHideMark(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildHideMark) then - begin - {self.}XmlChildHideMark := new OpenXmlEmpty(self, {self.}Prefix, "hideMark"); - container_.Set({self.}XmlChildHideMark); - end - return {self.}XmlChildHideMark; - end - return ifnil({self.}XmlChildHideMark) ? nil : {self.}XmlChildHideMark.BoolValue(); -end; - -function TcPr.WriteXmlChildHideMark(_value); -begin - if ifnil({self.}XmlChildHideMark) then - begin - {self.}XmlChildHideMark := new OpenXmlEmpty(self, {self.}Prefix, "hideMark"); - container_.Set({self.}XmlChildHideMark); - end - {self.}XmlChildHideMark.Value := _value; -end; - -function TcPr.ReadXmlChildTcW(); -begin - if tslassigning and ifnil({self.}XmlChildTcW) then - begin - {self.}XmlChildTcW := new TblW(self, {self.}Prefix, "tcW"); - container_.Set({self.}XmlChildTcW); - end - return {self.}XmlChildTcW; -end; - -function TcPr.ReadXmlChildGridSpan(); -begin - if tslassigning and ifnil({self.}XmlChildGridSpan) then - begin - {self.}XmlChildGridSpan := new GridSpan(self, {self.}Prefix, "gridSpan"); - container_.Set({self.}XmlChildGridSpan); - end - return {self.}XmlChildGridSpan; -end; - -function TcPr.ReadXmlChildVAlign(); -begin - if tslassigning and ifnil({self.}XmlChildVAlign) then - begin - {self.}XmlChildVAlign := new PureWVal(self, {self.}Prefix, "vAlign"); - container_.Set({self.}XmlChildVAlign); - end - return {self.}XmlChildVAlign; -end; - -function TcPr.ReadXmlChildShd(); -begin - if tslassigning and ifnil({self.}XmlChildShd) then - begin - {self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd"); - container_.Set({self.}XmlChildShd); - end - return {self.}XmlChildShd; -end; - -function TcPr.ReadXmlChildTcBorders(); -begin - if tslassigning and ifnil({self.}XmlChildTcBorders) then - begin - {self.}XmlChildTcBorders := new TcBorders(self, {self.}Prefix, "tcBorders"); - container_.Set({self.}XmlChildTcBorders); - end - return {self.}XmlChildTcBorders; -end; diff --git a/autoclass/docx/Textbox@DOCX.tsf b/autoclass/docx/Textbox@DOCX.tsf deleted file mode 100644 index 132c916..0000000 --- a/autoclass/docx/Textbox@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type Textbox = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Textbox);override; - -public - - // normal property - property TxbxContent read ReadXmlChildTxbxContent; - function ReadXmlChildTxbxContent(); - -public - // Children - XmlChildTxbxContent: TxbxContent; - -end; - -function Textbox.Create();overload; -begin - {self.}Create(nil, "v", "textbox"); -end; - -function Textbox.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Textbox.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Textbox.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "w:txbxContent": array(0, makeweakref(thisFunction(ReadXmlChildTxbxContent))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Textbox.Copy(_obj: Textbox);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTxbxContent) then - {self.}TxbxContent.Copy(_obj.XmlChildTxbxContent); - tslassigning := tslassigning_backup; -end; - -function Textbox.ReadXmlChildTxbxContent(); -begin - if tslassigning and ifnil({self.}XmlChildTxbxContent) then - begin - {self.}XmlChildTxbxContent := new TxbxContent(self, "w", "txbxContent"); - container_.Set({self.}XmlChildTxbxContent); - end - return {self.}XmlChildTxbxContent; -end; diff --git a/autoclass/docx/Theme@DOCX.tsf b/autoclass/docx/Theme@DOCX.tsf deleted file mode 100644 index 87a7639..0000000 --- a/autoclass/docx/Theme@DOCX.tsf +++ /dev/null @@ -1,195 +0,0 @@ -type Theme = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Theme);override; - -public - - // attributes property - property XmlnsA read ReadXmlAttrXmlnsA write WriteXmlAttrXmlnsA; - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrXmlnsA(); - function WriteXmlAttrXmlnsA(_value); - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - - // empty property - property ObjectDefaults read ReadXmlChildObjectDefaults write WriteXmlChildObjectDefaults; - property ExtraClrSchemeLst read ReadXmlChildExtraClrSchemeLst write WriteXmlChildExtraClrSchemeLst; - function ReadXmlChildObjectDefaults(); - function WriteXmlChildObjectDefaults(_value); - function ReadXmlChildExtraClrSchemeLst(); - function WriteXmlChildExtraClrSchemeLst(_value); - - // normal property - property ThemeElements read ReadXmlChildThemeElements; - property ExtLst read ReadXmlChildExtLst; - function ReadXmlChildThemeElements(); - function ReadXmlChildExtLst(); - -public - // Attributes - XmlAttrXmlnsA: OpenXmlAttribute; - XmlAttrName: OpenXmlAttribute; - - // Children - XmlChildThemeElements: ThemeElements; - XmlChildObjectDefaults: OpenXmlEmpty; - XmlChildExtraClrSchemeLst: OpenXmlEmpty; - XmlChildExtLst: ExtLst; - -end; - -function Theme.Create();overload; -begin - {self.}Create(nil, "a", "theme"); -end; - -function Theme.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Theme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Theme.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:a": makeweakref(thisFunction(WriteXmlAttrXmlnsA)), - "name": makeweakref(thisFunction(WriteXmlAttrName)), - ); - sorted_child_ := array( - pre + "themeElements": array(0, makeweakref(thisFunction(ReadXmlChildThemeElements))), - pre + "objectDefaults": array(1, makeweakref(thisFunction(ReadXmlChildObjectDefaults))), - pre + "extraClrSchemeLst": array(2, makeweakref(thisFunction(ReadXmlChildExtraClrSchemeLst))), - pre + "extLst": array(3, makeweakref(thisFunction(ReadXmlChildExtLst))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Theme.Copy(_obj: Theme);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsA) then - {self.}XmlnsA := _obj.XmlnsA; - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.XmlChildThemeElements) then - {self.}ThemeElements.Copy(_obj.XmlChildThemeElements); - if not ifnil(_obj.XmlChildObjectDefaults) then - ifnil({self.}XmlChildObjectDefaults) ? {self.}ObjectDefaults.Copy(_obj.XmlChildObjectDefaults) : {self.}XmlChildObjectDefaults.Copy(_obj.XmlChildObjectDefaults); - if not ifnil(_obj.XmlChildExtraClrSchemeLst) then - ifnil({self.}XmlChildExtraClrSchemeLst) ? {self.}ExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst) : {self.}XmlChildExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst); - if not ifnil(_obj.XmlChildExtLst) then - {self.}ExtLst.Copy(_obj.XmlChildExtLst); - tslassigning := tslassigning_backup; -end; - -function Theme.ReadXmlAttrXmlnsA(); -begin - return {self.}XmlAttrXmlnsA.Value; -end; - -function Theme.WriteXmlAttrXmlnsA(_value); -begin - if ifnil({self.}XmlAttrXmlnsA) then - begin - {self.}XmlAttrXmlnsA := new OpenXmlAttribute("xmlns", "a", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsA; - end - {self.}XmlAttrXmlnsA.Value := _value; -end; - -function Theme.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function Theme.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function Theme.ReadXmlChildObjectDefaults(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildObjectDefaults) then - begin - {self.}XmlChildObjectDefaults := new OpenXmlEmpty(self, {self.}Prefix, "objectDefaults"); - container_.Set({self.}XmlChildObjectDefaults); - end - return {self.}XmlChildObjectDefaults; - end - return ifnil({self.}XmlChildObjectDefaults) ? nil : {self.}XmlChildObjectDefaults.BoolValue(); -end; - -function Theme.WriteXmlChildObjectDefaults(_value); -begin - if ifnil({self.}XmlChildObjectDefaults) then - begin - {self.}XmlChildObjectDefaults := new OpenXmlEmpty(self, {self.}Prefix, "objectDefaults"); - container_.Set({self.}XmlChildObjectDefaults); - end - {self.}XmlChildObjectDefaults.Value := _value; -end; - -function Theme.ReadXmlChildExtraClrSchemeLst(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildExtraClrSchemeLst) then - begin - {self.}XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, {self.}Prefix, "extraClrSchemeLst"); - container_.Set({self.}XmlChildExtraClrSchemeLst); - end - return {self.}XmlChildExtraClrSchemeLst; - end - return ifnil({self.}XmlChildExtraClrSchemeLst) ? nil : {self.}XmlChildExtraClrSchemeLst.BoolValue(); -end; - -function Theme.WriteXmlChildExtraClrSchemeLst(_value); -begin - if ifnil({self.}XmlChildExtraClrSchemeLst) then - begin - {self.}XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, {self.}Prefix, "extraClrSchemeLst"); - container_.Set({self.}XmlChildExtraClrSchemeLst); - end - {self.}XmlChildExtraClrSchemeLst.Value := _value; -end; - -function Theme.ReadXmlChildThemeElements(); -begin - if tslassigning and ifnil({self.}XmlChildThemeElements) then - begin - {self.}XmlChildThemeElements := new ThemeElements(self, {self.}Prefix, "themeElements"); - container_.Set({self.}XmlChildThemeElements); - end - return {self.}XmlChildThemeElements; -end; - -function Theme.ReadXmlChildExtLst(); -begin - if tslassigning and ifnil({self.}XmlChildExtLst) then - begin - {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); - container_.Set({self.}XmlChildExtLst); - end - return {self.}XmlChildExtLst; -end; diff --git a/autoclass/docx/ThemeElements@DOCX.tsf b/autoclass/docx/ThemeElements@DOCX.tsf deleted file mode 100644 index aab2ad8..0000000 --- a/autoclass/docx/ThemeElements@DOCX.tsf +++ /dev/null @@ -1,125 +0,0 @@ -type ThemeElements = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ThemeElements);override; - -public - - // attributes property - property Name read ReadXmlAttrName write WriteXmlAttrName; - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - - // normal property - property ClrScheme read ReadXmlChildClrScheme; - property FontScheme read ReadXmlChildFontScheme; - property FmtScheme read ReadXmlChildFmtScheme; - function ReadXmlChildClrScheme(); - function ReadXmlChildFontScheme(); - function ReadXmlChildFmtScheme(); - -public - // Attributes - XmlAttrName: OpenXmlAttribute; - - // Children - XmlChildClrScheme: ClrScheme; - XmlChildFontScheme: FontScheme; - XmlChildFmtScheme: FmtScheme; - -end; - -function ThemeElements.Create();overload; -begin - {self.}Create(nil, "a", "themeElements"); -end; - -function ThemeElements.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ThemeElements.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ThemeElements.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "name": makeweakref(thisFunction(WriteXmlAttrName)), - ); - sorted_child_ := array( - pre + "clrScheme": array(0, makeweakref(thisFunction(ReadXmlChildClrScheme))), - pre + "fontScheme": array(1, makeweakref(thisFunction(ReadXmlChildFontScheme))), - pre + "fmtScheme": array(2, makeweakref(thisFunction(ReadXmlChildFmtScheme))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ThemeElements.Copy(_obj: ThemeElements);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.XmlChildClrScheme) then - {self.}ClrScheme.Copy(_obj.XmlChildClrScheme); - if not ifnil(_obj.XmlChildFontScheme) then - {self.}FontScheme.Copy(_obj.XmlChildFontScheme); - if not ifnil(_obj.XmlChildFmtScheme) then - {self.}FmtScheme.Copy(_obj.XmlChildFmtScheme); - tslassigning := tslassigning_backup; -end; - -function ThemeElements.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function ThemeElements.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function ThemeElements.ReadXmlChildClrScheme(); -begin - if tslassigning and ifnil({self.}XmlChildClrScheme) then - begin - {self.}XmlChildClrScheme := new ClrScheme(self, {self.}Prefix, "clrScheme"); - container_.Set({self.}XmlChildClrScheme); - end - return {self.}XmlChildClrScheme; -end; - -function ThemeElements.ReadXmlChildFontScheme(); -begin - if tslassigning and ifnil({self.}XmlChildFontScheme) then - begin - {self.}XmlChildFontScheme := new FontScheme(self, {self.}Prefix, "fontScheme"); - container_.Set({self.}XmlChildFontScheme); - end - return {self.}XmlChildFontScheme; -end; - -function ThemeElements.ReadXmlChildFmtScheme(); -begin - if tslassigning and ifnil({self.}XmlChildFmtScheme) then - begin - {self.}XmlChildFmtScheme := new FmtScheme(self, {self.}Prefix, "fmtScheme"); - container_.Set({self.}XmlChildFmtScheme); - end - return {self.}XmlChildFmtScheme; -end; diff --git a/autoclass/docx/ThemeFamily@DOCX.tsf b/autoclass/docx/ThemeFamily@DOCX.tsf deleted file mode 100644 index ab137f5..0000000 --- a/autoclass/docx/ThemeFamily@DOCX.tsf +++ /dev/null @@ -1,140 +0,0 @@ -type ThemeFamily = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ThemeFamily);override; - -public - - // attributes property - property XmlnsThm15 read ReadXmlAttrXmlnsThm15 write WriteXmlAttrXmlnsThm15; - property Name read ReadXmlAttrName write WriteXmlAttrName; - property Id read ReadXmlAttrId write WriteXmlAttrId; - property Vid read ReadXmlAttrVid write WriteXmlAttrVid; - function ReadXmlAttrXmlnsThm15(); - function WriteXmlAttrXmlnsThm15(_value); - function ReadXmlAttrName(); - function WriteXmlAttrName(_value); - function ReadXmlAttrId(); - function WriteXmlAttrId(_value); - function ReadXmlAttrVid(); - function WriteXmlAttrVid(_value); - -public - // Attributes - XmlAttrXmlnsThm15: OpenXmlAttribute; - XmlAttrName: OpenXmlAttribute; - XmlAttrId: OpenXmlAttribute; - XmlAttrVid: OpenXmlAttribute; - - -end; - -function ThemeFamily.Create();overload; -begin - {self.}Create(nil, "thm15", "themeFamily"); -end; - -function ThemeFamily.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ThemeFamily.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ThemeFamily.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:thm15": makeweakref(thisFunction(WriteXmlAttrXmlnsThm15)), - "name": makeweakref(thisFunction(WriteXmlAttrName)), - "Id": makeweakref(thisFunction(WriteXmlAttrId)), - "vid": makeweakref(thisFunction(WriteXmlAttrVid)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ThemeFamily.Copy(_obj: ThemeFamily);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsThm15) then - {self.}XmlnsThm15 := _obj.XmlnsThm15; - if not ifnil(_obj.Name) then - {self.}Name := _obj.Name; - if not ifnil(_obj.Id) then - {self.}Id := _obj.Id; - if not ifnil(_obj.Vid) then - {self.}Vid := _obj.Vid; - tslassigning := tslassigning_backup; -end; - -function ThemeFamily.ReadXmlAttrXmlnsThm15(); -begin - return {self.}XmlAttrXmlnsThm15.Value; -end; - -function ThemeFamily.WriteXmlAttrXmlnsThm15(_value); -begin - if ifnil({self.}XmlAttrXmlnsThm15) then - begin - {self.}XmlAttrXmlnsThm15 := new OpenXmlAttribute("xmlns", "thm15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsThm15; - end - {self.}XmlAttrXmlnsThm15.Value := _value; -end; - -function ThemeFamily.ReadXmlAttrName(); -begin - return {self.}XmlAttrName.Value; -end; - -function ThemeFamily.WriteXmlAttrName(_value); -begin - if ifnil({self.}XmlAttrName) then - begin - {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); - attributes_[length(attributes_)] := {self.}XmlAttrName; - end - {self.}XmlAttrName.Value := _value; -end; - -function ThemeFamily.ReadXmlAttrId(); -begin - return {self.}XmlAttrId.Value; -end; - -function ThemeFamily.WriteXmlAttrId(_value); -begin - if ifnil({self.}XmlAttrId) then - begin - {self.}XmlAttrId := new OpenXmlAttribute("", "Id", nil); - attributes_[length(attributes_)] := {self.}XmlAttrId; - end - {self.}XmlAttrId.Value := _value; -end; - -function ThemeFamily.ReadXmlAttrVid(); -begin - return {self.}XmlAttrVid.Value; -end; - -function ThemeFamily.WriteXmlAttrVid(_value); -begin - if ifnil({self.}XmlAttrVid) then - begin - {self.}XmlAttrVid := new OpenXmlAttribute("", "vid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVid; - end - {self.}XmlAttrVid.Value := _value; -end; diff --git a/autoclass/docx/ThemeFontLang@DOCX.tsf b/autoclass/docx/ThemeFontLang@DOCX.tsf deleted file mode 100644 index 752ddc2..0000000 --- a/autoclass/docx/ThemeFontLang@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type ThemeFontLang = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: ThemeFontLang);override; - -public - - // attributes property - property Val read ReadXmlAttrVal write WriteXmlAttrVal; - property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia; - function ReadXmlAttrVal(); - function WriteXmlAttrVal(_value); - function ReadXmlAttrEastAsia(); - function WriteXmlAttrEastAsia(_value); - -public - // Attributes - XmlAttrVal: OpenXmlAttribute; - XmlAttrEastAsia: OpenXmlAttribute; - - -end; - -function ThemeFontLang.Create();overload; -begin - {self.}Create(nil, "w", "themeFontLang"); -end; - -function ThemeFontLang.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function ThemeFontLang.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function ThemeFontLang.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), - pre + "eastAsia": makeweakref(thisFunction(WriteXmlAttrEastAsia)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function ThemeFontLang.Copy(_obj: ThemeFontLang);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Val) then - {self.}Val := _obj.Val; - if not ifnil(_obj.EastAsia) then - {self.}EastAsia := _obj.EastAsia; - tslassigning := tslassigning_backup; -end; - -function ThemeFontLang.ReadXmlAttrVal(); -begin - return {self.}XmlAttrVal.Value; -end; - -function ThemeFontLang.WriteXmlAttrVal(_value); -begin - if ifnil({self.}XmlAttrVal) then - begin - {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrVal; - end - {self.}XmlAttrVal.Value := _value; -end; - -function ThemeFontLang.ReadXmlAttrEastAsia(); -begin - return {self.}XmlAttrEastAsia.Value; -end; - -function ThemeFontLang.WriteXmlAttrEastAsia(_value); -begin - if ifnil({self.}XmlAttrEastAsia) then - begin - {self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEastAsia; - end - {self.}XmlAttrEastAsia.Value := _value; -end; diff --git a/autoclass/docx/Title@DOCX.tsf b/autoclass/docx/Title@DOCX.tsf deleted file mode 100644 index 5102bba..0000000 --- a/autoclass/docx/Title@DOCX.tsf +++ /dev/null @@ -1,116 +0,0 @@ -type Title = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Title);override; - -public - - // empty property - property Layout read ReadXmlChildLayout write WriteXmlChildLayout; - function ReadXmlChildLayout(); - function WriteXmlChildLayout(_value); - - // normal property - property Tx read ReadXmlChildTx; - property Overlay read ReadXmlChildOverlay; - function ReadXmlChildTx(); - function ReadXmlChildOverlay(); - -public - // Children - XmlChildTx: Tx; - XmlChildLayout: OpenXmlEmpty; - XmlChildOverlay: PureVal; - -end; - -function Title.Create();overload; -begin - {self.}Create(nil, "c", "title"); -end; - -function Title.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Title.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Title.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "tx": array(0, makeweakref(thisFunction(ReadXmlChildTx))), - pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))), - pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Title.Copy(_obj: Title);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTx) then - {self.}Tx.Copy(_obj.XmlChildTx); - if not ifnil(_obj.XmlChildLayout) then - ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); - if not ifnil(_obj.XmlChildOverlay) then - {self.}Overlay.Copy(_obj.XmlChildOverlay); - tslassigning := tslassigning_backup; -end; - -function Title.ReadXmlChildLayout(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildLayout) then - begin - {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); - container_.Set({self.}XmlChildLayout); - end - return {self.}XmlChildLayout; - end - return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); -end; - -function Title.WriteXmlChildLayout(_value); -begin - if ifnil({self.}XmlChildLayout) then - begin - {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); - container_.Set({self.}XmlChildLayout); - end - {self.}XmlChildLayout.Value := _value; -end; - -function Title.ReadXmlChildTx(); -begin - if tslassigning and ifnil({self.}XmlChildTx) then - begin - {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); - container_.Set({self.}XmlChildTx); - end - return {self.}XmlChildTx; -end; - -function Title.ReadXmlChildOverlay(); -begin - if tslassigning and ifnil({self.}XmlChildOverlay) then - begin - {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); - container_.Set({self.}XmlChildOverlay); - end - return {self.}XmlChildOverlay; -end; diff --git a/autoclass/docx/Tr@DOCX.tsf b/autoclass/docx/Tr@DOCX.tsf deleted file mode 100644 index d3a7c94..0000000 --- a/autoclass/docx/Tr@DOCX.tsf +++ /dev/null @@ -1,187 +0,0 @@ -type Tr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Tr);override; - -public - - // attributes property - property WRsidR read ReadXmlAttrWRsidR write WriteXmlAttrWRsidR; - property W14ParaId read ReadXmlAttrW14ParaId write WriteXmlAttrW14ParaId; - property W14TextId read ReadXmlAttrW14TextId write WriteXmlAttrW14TextId; - property WRsidTr read ReadXmlAttrWRsidTr write WriteXmlAttrWRsidTr; - function ReadXmlAttrWRsidR(); - function WriteXmlAttrWRsidR(_value); - function ReadXmlAttrW14ParaId(); - function WriteXmlAttrW14ParaId(_value); - function ReadXmlAttrW14TextId(); - function WriteXmlAttrW14TextId(_value); - function ReadXmlAttrWRsidTr(); - function WriteXmlAttrWRsidTr(_value); - - // normal property - property TrPr read ReadXmlChildTrPr; - function ReadXmlChildTrPr(); - - // multi property - property Tcs read ReadTcs; - function ReadTcs(_index); - function AddTc(): Tc; - function AppendTc(): Tc; - -public - // Attributes - XmlAttrWRsidR: OpenXmlAttribute; - XmlAttrW14ParaId: OpenXmlAttribute; - XmlAttrW14TextId: OpenXmlAttribute; - XmlAttrWRsidTr: OpenXmlAttribute; - - // Children - XmlChildTrPr: TrPr; - -end; - -function Tr.Create();overload; -begin - {self.}Create(nil, "w", "tr"); -end; - -function Tr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Tr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Tr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "w:rsidR": makeweakref(thisFunction(WriteXmlAttrWRsidR)), - "w14:paraId": makeweakref(thisFunction(WriteXmlAttrW14ParaId)), - "w14:textId": makeweakref(thisFunction(WriteXmlAttrW14TextId)), - "w:rsidTr": makeweakref(thisFunction(WriteXmlAttrWRsidTr)), - ); - sorted_child_ := array( - pre + "trPr": array(0, makeweakref(thisFunction(ReadXmlChildTrPr))), - pre + "tc": array(1, makeweakref(thisFunction(AppendTc))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Tr.Copy(_obj: Tr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.WRsidR) then - {self.}WRsidR := _obj.WRsidR; - if not ifnil(_obj.W14ParaId) then - {self.}W14ParaId := _obj.W14ParaId; - if not ifnil(_obj.W14TextId) then - {self.}W14TextId := _obj.W14TextId; - if not ifnil(_obj.WRsidTr) then - {self.}WRsidTr := _obj.WRsidTr; - if not ifnil(_obj.XmlChildTrPr) then - {self.}TrPr.Copy(_obj.XmlChildTrPr); - tslassigning := tslassigning_backup; -end; - -function Tr.ReadXmlAttrWRsidR(); -begin - return {self.}XmlAttrWRsidR.Value; -end; - -function Tr.WriteXmlAttrWRsidR(_value); -begin - if ifnil({self.}XmlAttrWRsidR) then - begin - {self.}XmlAttrWRsidR := new OpenXmlAttribute("w", "rsidR", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidR; - end - {self.}XmlAttrWRsidR.Value := _value; -end; - -function Tr.ReadXmlAttrW14ParaId(); -begin - return {self.}XmlAttrW14ParaId.Value; -end; - -function Tr.WriteXmlAttrW14ParaId(_value); -begin - if ifnil({self.}XmlAttrW14ParaId) then - begin - {self.}XmlAttrW14ParaId := new OpenXmlAttribute("w14", "paraId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW14ParaId; - end - {self.}XmlAttrW14ParaId.Value := _value; -end; - -function Tr.ReadXmlAttrW14TextId(); -begin - return {self.}XmlAttrW14TextId.Value; -end; - -function Tr.WriteXmlAttrW14TextId(_value); -begin - if ifnil({self.}XmlAttrW14TextId) then - begin - {self.}XmlAttrW14TextId := new OpenXmlAttribute("w14", "textId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrW14TextId; - end - {self.}XmlAttrW14TextId.Value := _value; -end; - -function Tr.ReadXmlAttrWRsidTr(); -begin - return {self.}XmlAttrWRsidTr.Value; -end; - -function Tr.WriteXmlAttrWRsidTr(_value); -begin - if ifnil({self.}XmlAttrWRsidTr) then - begin - {self.}XmlAttrWRsidTr := new OpenXmlAttribute("w", "rsidTr", nil); - attributes_[length(attributes_)] := {self.}XmlAttrWRsidTr; - end - {self.}XmlAttrWRsidTr.Value := _value; -end; - -function Tr.ReadXmlChildTrPr(); -begin - if tslassigning and ifnil({self.}XmlChildTrPr) then - begin - {self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr"); - container_.Set({self.}XmlChildTrPr); - end - return {self.}XmlChildTrPr; -end; - -function Tr.ReadTcs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "tc", ind); -end; - -function Tr.AddTc(): Tc; -begin - obj := new Tc(self, {self.}Prefix, "tc"); - container_.Insert(obj); - return obj; -end; - -function Tr.AppendTc(): Tc; -begin - obj := new Tc(self, {self.}Prefix, "tc"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/TrHeight@DOCX.tsf b/autoclass/docx/TrHeight@DOCX.tsf deleted file mode 100644 index c06aa08..0000000 --- a/autoclass/docx/TrHeight@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type TrHeight = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TrHeight);override; - -public - - // attributes property - property HRule read ReadXmlAttrHRule write WriteXmlAttrHRule; - property val read ReadXmlAttrval write WriteXmlAttrval; - function ReadXmlAttrHRule(); - function WriteXmlAttrHRule(_value); - function ReadXmlAttrval(); - function WriteXmlAttrval(_value); - -public - // Attributes - XmlAttrHRule: OpenXmlAttribute; - XmlAttrval: OpenXmlAttribute; - - -end; - -function TrHeight.Create();overload; -begin - {self.}Create(nil, "w", "trHeight"); -end; - -function TrHeight.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TrHeight.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TrHeight.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "hRule": makeweakref(thisFunction(WriteXmlAttrHRule)), - pre + "val": makeweakref(thisFunction(WriteXmlAttrval)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TrHeight.Copy(_obj: TrHeight);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.HRule) then - {self.}HRule := _obj.HRule; - if not ifnil(_obj.val) then - {self.}val := _obj.val; - tslassigning := tslassigning_backup; -end; - -function TrHeight.ReadXmlAttrHRule(); -begin - return {self.}XmlAttrHRule.Value; -end; - -function TrHeight.WriteXmlAttrHRule(_value); -begin - if ifnil({self.}XmlAttrHRule) then - begin - {self.}XmlAttrHRule := new OpenXmlAttribute({self.}Prefix, "hRule", nil); - attributes_[length(attributes_)] := {self.}XmlAttrHRule; - end - {self.}XmlAttrHRule.Value := _value; -end; - -function TrHeight.ReadXmlAttrval(); -begin - return {self.}XmlAttrval.Value; -end; - -function TrHeight.WriteXmlAttrval(_value); -begin - if ifnil({self.}XmlAttrval) then - begin - {self.}XmlAttrval := new OpenXmlAttribute({self.}Prefix, "val", nil); - attributes_[length(attributes_)] := {self.}XmlAttrval; - end - {self.}XmlAttrval.Value := _value; -end; diff --git a/autoclass/docx/TrPr@DOCX.tsf b/autoclass/docx/TrPr@DOCX.tsf deleted file mode 100644 index 870ffbc..0000000 --- a/autoclass/docx/TrPr@DOCX.tsf +++ /dev/null @@ -1,164 +0,0 @@ -type TrPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TrPr);override; - -public - - // empty property - property CantSplit read ReadXmlChildCantSplit write WriteXmlChildCantSplit; - function ReadXmlChildCantSplit(); - function WriteXmlChildCantSplit(_value); - - // normal property - property TrHeight read ReadXmlChildTrHeight; - property TblHeader read ReadXmlChildTblHeader; - property Jc read ReadXmlChildJc; - property CnfStyle read ReadXmlChildCnfStyle; - property Ins read ReadXmlChildIns; - function ReadXmlChildTrHeight(); - function ReadXmlChildTblHeader(); - function ReadXmlChildJc(); - function ReadXmlChildCnfStyle(); - function ReadXmlChildIns(); - -public - // Children - XmlChildTrHeight: TrHeight; - XmlChildTblHeader: PureWVal; - XmlChildJc: PureWVal; - XmlChildCantSplit: OpenXmlEmpty; - XmlChildCnfStyle: CnfStyle; - XmlChildIns: Ins; - -end; - -function TrPr.Create();overload; -begin - {self.}Create(nil, "w", "trPr"); -end; - -function TrPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TrPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TrPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "trHeight": array(0, makeweakref(thisFunction(ReadXmlChildTrHeight))), - pre + "tblHeader": array(1, makeweakref(thisFunction(ReadXmlChildTblHeader))), - pre + "jc": array(2, makeweakref(thisFunction(ReadXmlChildJc))), - pre + "cantSplit": array(3, makeweakref(thisFunction(ReadXmlChildCantSplit))), - pre + "cnfStyle": array(4, makeweakref(thisFunction(ReadXmlChildCnfStyle))), - pre + "ins": array(5, makeweakref(thisFunction(ReadXmlChildIns))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TrPr.Copy(_obj: TrPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTrHeight) then - {self.}TrHeight.Copy(_obj.XmlChildTrHeight); - if not ifnil(_obj.XmlChildTblHeader) then - {self.}TblHeader.Copy(_obj.XmlChildTblHeader); - if not ifnil(_obj.XmlChildJc) then - {self.}Jc.Copy(_obj.XmlChildJc); - if not ifnil(_obj.XmlChildCantSplit) then - ifnil({self.}XmlChildCantSplit) ? {self.}CantSplit.Copy(_obj.XmlChildCantSplit) : {self.}XmlChildCantSplit.Copy(_obj.XmlChildCantSplit); - if not ifnil(_obj.XmlChildCnfStyle) then - {self.}CnfStyle.Copy(_obj.XmlChildCnfStyle); - if not ifnil(_obj.XmlChildIns) then - {self.}Ins.Copy(_obj.XmlChildIns); - tslassigning := tslassigning_backup; -end; - -function TrPr.ReadXmlChildCantSplit(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildCantSplit) then - begin - {self.}XmlChildCantSplit := new OpenXmlEmpty(self, {self.}Prefix, "cantSplit"); - container_.Set({self.}XmlChildCantSplit); - end - return {self.}XmlChildCantSplit; - end - return ifnil({self.}XmlChildCantSplit) ? nil : {self.}XmlChildCantSplit.BoolValue(); -end; - -function TrPr.WriteXmlChildCantSplit(_value); -begin - if ifnil({self.}XmlChildCantSplit) then - begin - {self.}XmlChildCantSplit := new OpenXmlEmpty(self, {self.}Prefix, "cantSplit"); - container_.Set({self.}XmlChildCantSplit); - end - {self.}XmlChildCantSplit.Value := _value; -end; - -function TrPr.ReadXmlChildTrHeight(); -begin - if tslassigning and ifnil({self.}XmlChildTrHeight) then - begin - {self.}XmlChildTrHeight := new TrHeight(self, {self.}Prefix, "trHeight"); - container_.Set({self.}XmlChildTrHeight); - end - return {self.}XmlChildTrHeight; -end; - -function TrPr.ReadXmlChildTblHeader(); -begin - if tslassigning and ifnil({self.}XmlChildTblHeader) then - begin - {self.}XmlChildTblHeader := new PureWVal(self, {self.}Prefix, "tblHeader"); - container_.Set({self.}XmlChildTblHeader); - end - return {self.}XmlChildTblHeader; -end; - -function TrPr.ReadXmlChildJc(); -begin - if tslassigning and ifnil({self.}XmlChildJc) then - begin - {self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc"); - container_.Set({self.}XmlChildJc); - end - return {self.}XmlChildJc; -end; - -function TrPr.ReadXmlChildCnfStyle(); -begin - if tslassigning and ifnil({self.}XmlChildCnfStyle) then - begin - {self.}XmlChildCnfStyle := new CnfStyle(self, {self.}Prefix, "cnfStyle"); - container_.Set({self.}XmlChildCnfStyle); - end - return {self.}XmlChildCnfStyle; -end; - -function TrPr.ReadXmlChildIns(); -begin - if tslassigning and ifnil({self.}XmlChildIns) then - begin - {self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins"); - container_.Set({self.}XmlChildIns); - end - return {self.}XmlChildIns; -end; diff --git a/autoclass/docx/Tx@DOCX.tsf b/autoclass/docx/Tx@DOCX.tsf deleted file mode 100644 index 3e09e25..0000000 --- a/autoclass/docx/Tx@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type Tx = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Tx);override; - -public - - // normal property - property StrRef read ReadXmlChildStrRef; - property Rich read ReadXmlChildRich; - function ReadXmlChildStrRef(); - function ReadXmlChildRich(); - -public - // Children - XmlChildStrRef: StrRef; - XmlChildRich: Rich; - -end; - -function Tx.Create();overload; -begin - {self.}Create(nil, "c", "tx"); -end; - -function Tx.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Tx.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Tx.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))), - pre + "rich": array(1, makeweakref(thisFunction(ReadXmlChildRich))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Tx.Copy(_obj: Tx);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildStrRef) then - {self.}StrRef.Copy(_obj.XmlChildStrRef); - if not ifnil(_obj.XmlChildRich) then - {self.}Rich.Copy(_obj.XmlChildRich); - tslassigning := tslassigning_backup; -end; - -function Tx.ReadXmlChildStrRef(); -begin - if tslassigning and ifnil({self.}XmlChildStrRef) then - begin - {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); - container_.Set({self.}XmlChildStrRef); - end - return {self.}XmlChildStrRef; -end; - -function Tx.ReadXmlChildRich(); -begin - if tslassigning and ifnil({self.}XmlChildRich) then - begin - {self.}XmlChildRich := new Rich(self, {self.}Prefix, "rich"); - container_.Set({self.}XmlChildRich); - end - return {self.}XmlChildRich; -end; diff --git a/autoclass/docx/TxPr@DOCX.tsf b/autoclass/docx/TxPr@DOCX.tsf deleted file mode 100644 index 9c8eb0b..0000000 --- a/autoclass/docx/TxPr@DOCX.tsf +++ /dev/null @@ -1,128 +0,0 @@ -type TxPr = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TxPr);override; - -public - - // empty property - property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; - function ReadXmlChildLstStyle(); - function WriteXmlChildLstStyle(_value); - - // normal property - property BodyPr read ReadXmlChildBodyPr; - function ReadXmlChildBodyPr(); - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): Ap; - function AppendP(): Ap; - -public - // Children - XmlChildBodyPr: BodyPr; - XmlChildLstStyle: OpenXmlEmpty; - -end; - -function TxPr.Create();overload; -begin - {self.}Create(nil, "c", "txPr"); -end; - -function TxPr.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TxPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TxPr.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))), - "a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))), - "a:p": array(2, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TxPr.Copy(_obj: TxPr);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildBodyPr) then - {self.}BodyPr.Copy(_obj.XmlChildBodyPr); - if not ifnil(_obj.XmlChildLstStyle) then - ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle); - tslassigning := tslassigning_backup; -end; - -function TxPr.ReadXmlChildLstStyle(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildLstStyle) then - begin - {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); - container_.Set({self.}XmlChildLstStyle); - end - return {self.}XmlChildLstStyle; - end - return ifnil({self.}XmlChildLstStyle) ? nil : {self.}XmlChildLstStyle.BoolValue(); -end; - -function TxPr.WriteXmlChildLstStyle(_value); -begin - if ifnil({self.}XmlChildLstStyle) then - begin - {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); - container_.Set({self.}XmlChildLstStyle); - end - {self.}XmlChildLstStyle.Value := _value; -end; - -function TxPr.ReadXmlChildBodyPr(); -begin - if tslassigning and ifnil({self.}XmlChildBodyPr) then - begin - {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); - container_.Set({self.}XmlChildBodyPr); - end - return {self.}XmlChildBodyPr; -end; - -function TxPr.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get("a:p", ind); -end; - -function TxPr.AddP(): Ap; -begin - obj := new Ap(self, "a", "p"); - container_.Insert(obj); - return obj; -end; - -function TxPr.AppendP(): Ap; -begin - obj := new Ap(self, "a", "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Txbx@DOCX.tsf b/autoclass/docx/Txbx@DOCX.tsf deleted file mode 100644 index d912e23..0000000 --- a/autoclass/docx/Txbx@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type Txbx = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Txbx);override; - -public - - // normal property - property TxbxContent read ReadXmlChildTxbxContent; - function ReadXmlChildTxbxContent(); - -public - // Children - XmlChildTxbxContent: TxbxContent; - -end; - -function Txbx.Create();overload; -begin - {self.}Create(nil, "wps", "txbx"); -end; - -function Txbx.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Txbx.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Txbx.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "w:txbxContent": array(0, makeweakref(thisFunction(ReadXmlChildTxbxContent))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Txbx.Copy(_obj: Txbx);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildTxbxContent) then - {self.}TxbxContent.Copy(_obj.XmlChildTxbxContent); - tslassigning := tslassigning_backup; -end; - -function Txbx.ReadXmlChildTxbxContent(); -begin - if tslassigning and ifnil({self.}XmlChildTxbxContent) then - begin - {self.}XmlChildTxbxContent := new TxbxContent(self, "w", "txbxContent"); - container_.Set({self.}XmlChildTxbxContent); - end - return {self.}XmlChildTxbxContent; -end; diff --git a/autoclass/docx/TxbxContent@DOCX.tsf b/autoclass/docx/TxbxContent@DOCX.tsf deleted file mode 100644 index 2d014ab..0000000 --- a/autoclass/docx/TxbxContent@DOCX.tsf +++ /dev/null @@ -1,77 +0,0 @@ -type TxbxContent = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: TxbxContent);override; - -public - - // multi property - property Ps read ReadPs; - function ReadPs(_index); - function AddP(): P; - function AppendP(): P; - -public - // Children - -end; - -function TxbxContent.Create();overload; -begin - {self.}Create(nil, "w", "textbox"); -end; - -function TxbxContent.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function TxbxContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function TxbxContent.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "p": array(0, makeweakref(thisFunction(AppendP))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function TxbxContent.Copy(_obj: TxbxContent);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - tslassigning := tslassigning_backup; -end; - -function TxbxContent.ReadPs(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get(pre + "p", ind); -end; - -function TxbxContent.AddP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Insert(obj); - return obj; -end; - -function TxbxContent.AppendP(): P; -begin - obj := new P(self, {self.}Prefix, "p"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Types@DOCX.tsf b/autoclass/docx/Types@DOCX.tsf deleted file mode 100644 index a915bac..0000000 --- a/autoclass/docx/Types@DOCX.tsf +++ /dev/null @@ -1,129 +0,0 @@ -type Types = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Types);override; - -public - - // attributes property - property xmlns read ReadXmlAttrxmlns write WriteXmlAttrxmlns; - function ReadXmlAttrxmlns(); - function WriteXmlAttrxmlns(_value); - - // multi property - property Defaults read ReadDefaults; - property Overrides read ReadOverrides; - function ReadDefaults(_index); - function ReadOverrides(_index); - function AddDefault(): Default; - function AddOverride(): _Override; - function AppendDefault(): Default; - function AppendOverride(): _Override; - -public - // Attributes - XmlAttrxmlns: OpenXmlAttribute; - - // Children - -end; - -function Types.Create();overload; -begin - {self.}Create(nil, "", "Types"); -end; - -function Types.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Types.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Types.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns": makeweakref(thisFunction(WriteXmlAttrxmlns)), - ); - sorted_child_ := array( - "Default": array(0, makeweakref(thisFunction(AppendDefault))), - "Override": array(1, makeweakref(thisFunction(AppendOverride))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Types.Copy(_obj: Types);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.xmlns) then - {self.}xmlns := _obj.xmlns; - tslassigning := tslassigning_backup; -end; - -function Types.ReadXmlAttrxmlns(); -begin - return {self.}XmlAttrxmlns.Value; -end; - -function Types.WriteXmlAttrxmlns(_value); -begin - if ifnil({self.}XmlAttrxmlns) then - begin - {self.}XmlAttrxmlns := new OpenXmlAttribute("", "xmlns", nil); - attributes_[length(attributes_)] := {self.}XmlAttrxmlns; - end - {self.}XmlAttrxmlns.Value := _value; -end; - -function Types.ReadDefaults(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get("Default", ind); -end; - -function Types.ReadOverrides(_index); -begin - ind := ifnil(_index) ? -2 : _index; - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - return container_.Get("Override", ind); -end; - -function Types.AddDefault(): Default; -begin - obj := new Default(self, "", "Default"); - container_.Insert(obj); - return obj; -end; - -function Types.AddOverride(): _Override; -begin - obj := new _Override(self, "", "Override"); - container_.Insert(obj); - return obj; -end; - -function Types.AppendDefault(): Default; -begin - obj := new Default(self, "", "Default"); - container_.Append(obj); - return obj; -end; - -function Types.AppendOverride(): _Override; -begin - obj := new _Override(self, "", "Override"); - container_.Append(obj); - return obj; -end; diff --git a/autoclass/docx/Val@DOCX.tsf b/autoclass/docx/Val@DOCX.tsf deleted file mode 100644 index c7a15fc..0000000 --- a/autoclass/docx/Val@DOCX.tsf +++ /dev/null @@ -1,67 +0,0 @@ -type Val = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Val);override; - -public - - // normal property - property NumRef read ReadXmlChildNumRef; - function ReadXmlChildNumRef(); - -public - // Children - XmlChildNumRef: NumRef; - -end; - -function Val.Create();overload; -begin - {self.}Create(nil, "c", "val"); -end; - -function Val.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Val.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Val.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "numRef": array(0, makeweakref(thisFunction(ReadXmlChildNumRef))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Val.Copy(_obj: Val);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildNumRef) then - {self.}NumRef.Copy(_obj.XmlChildNumRef); - tslassigning := tslassigning_backup; -end; - -function Val.ReadXmlChildNumRef(); -begin - if tslassigning and ifnil({self.}XmlChildNumRef) then - begin - {self.}XmlChildNumRef := new NumRef(self, {self.}Prefix, "numRef"); - container_.Set({self.}XmlChildNumRef); - end - return {self.}XmlChildNumRef; -end; diff --git a/autoclass/docx/View3D@DOCX.tsf b/autoclass/docx/View3D@DOCX.tsf deleted file mode 100644 index eff96ee..0000000 --- a/autoclass/docx/View3D@DOCX.tsf +++ /dev/null @@ -1,99 +0,0 @@ -type View3D = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: View3D);override; - -public - - // normal property - property RotX read ReadXmlChildRotX; - property RotY read ReadXmlChildRotY; - property RAngAx read ReadXmlChildRAngAx; - function ReadXmlChildRotX(); - function ReadXmlChildRotY(); - function ReadXmlChildRAngAx(); - -public - // Children - XmlChildRotX: PureVal; - XmlChildRotY: PureVal; - XmlChildRAngAx: PureVal; - -end; - -function View3D.Create();overload; -begin - {self.}Create(nil, "c", "view3D"); -end; - -function View3D.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function View3D.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function View3D.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "rotX": array(0, makeweakref(thisFunction(ReadXmlChildRotX))), - pre + "rotY": array(1, makeweakref(thisFunction(ReadXmlChildRotY))), - pre + "rAngAx": array(2, makeweakref(thisFunction(ReadXmlChildRAngAx))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function View3D.Copy(_obj: View3D);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildRotX) then - {self.}RotX.Copy(_obj.XmlChildRotX); - if not ifnil(_obj.XmlChildRotY) then - {self.}RotY.Copy(_obj.XmlChildRotY); - if not ifnil(_obj.XmlChildRAngAx) then - {self.}RAngAx.Copy(_obj.XmlChildRAngAx); - tslassigning := tslassigning_backup; -end; - -function View3D.ReadXmlChildRotX(); -begin - if tslassigning and ifnil({self.}XmlChildRotX) then - begin - {self.}XmlChildRotX := new PureVal(self, {self.}Prefix, "rotX"); - container_.Set({self.}XmlChildRotX); - end - return {self.}XmlChildRotX; -end; - -function View3D.ReadXmlChildRotY(); -begin - if tslassigning and ifnil({self.}XmlChildRotY) then - begin - {self.}XmlChildRotY := new PureVal(self, {self.}Prefix, "rotY"); - container_.Set({self.}XmlChildRotY); - end - return {self.}XmlChildRotY; -end; - -function View3D.ReadXmlChildRAngAx(); -begin - if tslassigning and ifnil({self.}XmlChildRAngAx) then - begin - {self.}XmlChildRAngAx := new PureVal(self, {self.}Prefix, "rAngAx"); - container_.Set({self.}XmlChildRAngAx); - end - return {self.}XmlChildRAngAx; -end; diff --git a/autoclass/docx/WebSettings@DOCX.tsf b/autoclass/docx/WebSettings@DOCX.tsf deleted file mode 100644 index 862881f..0000000 --- a/autoclass/docx/WebSettings@DOCX.tsf +++ /dev/null @@ -1,381 +0,0 @@ -type WebSettings = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: WebSettings);override; - -public - - // attributes property - property XmlnsMc read ReadXmlAttrXmlnsMc write WriteXmlAttrXmlnsMc; - property XmlnsR read ReadXmlAttrXmlnsR write WriteXmlAttrXmlnsR; - property XmlnsW read ReadXmlAttrXmlnsW write WriteXmlAttrXmlnsW; - property XmlnsW14 read ReadXmlAttrXmlnsW14 write WriteXmlAttrXmlnsW14; - property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; - property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; - property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; - property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; - property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; - property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; - property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; - property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; - function ReadXmlAttrXmlnsMc(); - function WriteXmlAttrXmlnsMc(_value); - function ReadXmlAttrXmlnsR(); - function WriteXmlAttrXmlnsR(_value); - function ReadXmlAttrXmlnsW(); - function WriteXmlAttrXmlnsW(_value); - function ReadXmlAttrXmlnsW14(); - function WriteXmlAttrXmlnsW14(_value); - function ReadXmlAttrXmlnsW15(); - function WriteXmlAttrXmlnsW15(_value); - function ReadXmlAttrXmlnsW16Cex(); - function WriteXmlAttrXmlnsW16Cex(_value); - function ReadXmlAttrXmlnsW16Cid(); - function WriteXmlAttrXmlnsW16Cid(_value); - function ReadXmlAttrXmlnsW16(); - function WriteXmlAttrXmlnsW16(_value); - function ReadXmlAttrXmlnsW16Du(); - function WriteXmlAttrXmlnsW16Du(_value); - function ReadXmlAttrXmlnsW16sdtdh(); - function WriteXmlAttrXmlnsW16sdtdh(_value); - function ReadXmlAttrXmlnsW16se(); - function WriteXmlAttrXmlnsW16se(_value); - function ReadXmlAttrMcIgnorable(); - function WriteXmlAttrMcIgnorable(_value); - - // empty property - property OptimizeForBrowser read ReadXmlChildOptimizeForBrowser write WriteXmlChildOptimizeForBrowser; - property AllowPNG read ReadXmlChildAllowPNG write WriteXmlChildAllowPNG; - function ReadXmlChildOptimizeForBrowser(); - function WriteXmlChildOptimizeForBrowser(_value); - function ReadXmlChildAllowPNG(); - function WriteXmlChildAllowPNG(_value); - -public - // Attributes - XmlAttrXmlnsMc: OpenXmlAttribute; - XmlAttrXmlnsR: OpenXmlAttribute; - XmlAttrXmlnsW: OpenXmlAttribute; - XmlAttrXmlnsW14: OpenXmlAttribute; - XmlAttrXmlnsW15: OpenXmlAttribute; - XmlAttrXmlnsW16Cex: OpenXmlAttribute; - XmlAttrXmlnsW16Cid: OpenXmlAttribute; - XmlAttrXmlnsW16: OpenXmlAttribute; - XmlAttrXmlnsW16Du: OpenXmlAttribute; - XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; - XmlAttrXmlnsW16se: OpenXmlAttribute; - XmlAttrMcIgnorable: OpenXmlAttribute; - - // Children - XmlChildOptimizeForBrowser: OpenXmlEmpty; - XmlChildAllowPNG: OpenXmlEmpty; - -end; - -function WebSettings.Create();overload; -begin - {self.}Create(nil, "w", "webSettings"); -end; - -function WebSettings.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function WebSettings.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function WebSettings.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "xmlns:mc": makeweakref(thisFunction(WriteXmlAttrXmlnsMc)), - "xmlns:r": makeweakref(thisFunction(WriteXmlAttrXmlnsR)), - "xmlns:w": makeweakref(thisFunction(WriteXmlAttrXmlnsW)), - "xmlns:w14": makeweakref(thisFunction(WriteXmlAttrXmlnsW14)), - "xmlns:w15": makeweakref(thisFunction(WriteXmlAttrXmlnsW15)), - "xmlns:w16cex": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cex)), - "xmlns:w16cid": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Cid)), - "xmlns:w16": makeweakref(thisFunction(WriteXmlAttrXmlnsW16)), - "xmlns:w16du": makeweakref(thisFunction(WriteXmlAttrXmlnsW16Du)), - "xmlns:w16sdtdh": makeweakref(thisFunction(WriteXmlAttrXmlnsW16sdtdh)), - "xmlns:w16se": makeweakref(thisFunction(WriteXmlAttrXmlnsW16se)), - "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), - ); - sorted_child_ := array( - pre + "optimizeForBrowser": array(0, makeweakref(thisFunction(ReadXmlChildOptimizeForBrowser))), - pre + "allowPNG": array(1, makeweakref(thisFunction(ReadXmlChildAllowPNG))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function WebSettings.Copy(_obj: WebSettings);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlnsMc) then - {self.}XmlnsMc := _obj.XmlnsMc; - if not ifnil(_obj.XmlnsR) then - {self.}XmlnsR := _obj.XmlnsR; - if not ifnil(_obj.XmlnsW) then - {self.}XmlnsW := _obj.XmlnsW; - if not ifnil(_obj.XmlnsW14) then - {self.}XmlnsW14 := _obj.XmlnsW14; - if not ifnil(_obj.XmlnsW15) then - {self.}XmlnsW15 := _obj.XmlnsW15; - if not ifnil(_obj.XmlnsW16Cex) then - {self.}XmlnsW16Cex := _obj.XmlnsW16Cex; - if not ifnil(_obj.XmlnsW16Cid) then - {self.}XmlnsW16Cid := _obj.XmlnsW16Cid; - if not ifnil(_obj.XmlnsW16) then - {self.}XmlnsW16 := _obj.XmlnsW16; - if not ifnil(_obj.XmlnsW16Du) then - {self.}XmlnsW16Du := _obj.XmlnsW16Du; - if not ifnil(_obj.XmlnsW16sdtdh) then - {self.}XmlnsW16sdtdh := _obj.XmlnsW16sdtdh; - if not ifnil(_obj.XmlnsW16se) then - {self.}XmlnsW16se := _obj.XmlnsW16se; - if not ifnil(_obj.McIgnorable) then - {self.}McIgnorable := _obj.McIgnorable; - if not ifnil(_obj.XmlChildOptimizeForBrowser) then - ifnil({self.}XmlChildOptimizeForBrowser) ? {self.}OptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser) : {self.}XmlChildOptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser); - if not ifnil(_obj.XmlChildAllowPNG) then - ifnil({self.}XmlChildAllowPNG) ? {self.}AllowPNG.Copy(_obj.XmlChildAllowPNG) : {self.}XmlChildAllowPNG.Copy(_obj.XmlChildAllowPNG); - tslassigning := tslassigning_backup; -end; - -function WebSettings.ReadXmlAttrXmlnsMc(); -begin - return {self.}XmlAttrXmlnsMc.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsMc(_value); -begin - if ifnil({self.}XmlAttrXmlnsMc) then - begin - {self.}XmlAttrXmlnsMc := new OpenXmlAttribute("xmlns", "mc", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsMc; - end - {self.}XmlAttrXmlnsMc.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsR(); -begin - return {self.}XmlAttrXmlnsR.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsR(_value); -begin - if ifnil({self.}XmlAttrXmlnsR) then - begin - {self.}XmlAttrXmlnsR := new OpenXmlAttribute("xmlns", "r", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsR; - end - {self.}XmlAttrXmlnsR.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW(); -begin - return {self.}XmlAttrXmlnsW.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW(_value); -begin - if ifnil({self.}XmlAttrXmlnsW) then - begin - {self.}XmlAttrXmlnsW := new OpenXmlAttribute("xmlns", "w", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW; - end - {self.}XmlAttrXmlnsW.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW14(); -begin - return {self.}XmlAttrXmlnsW14.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW14(_value); -begin - if ifnil({self.}XmlAttrXmlnsW14) then - begin - {self.}XmlAttrXmlnsW14 := new OpenXmlAttribute("xmlns", "w14", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW14; - end - {self.}XmlAttrXmlnsW14.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW15(); -begin - return {self.}XmlAttrXmlnsW15.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW15(_value); -begin - if ifnil({self.}XmlAttrXmlnsW15) then - begin - {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW15; - end - {self.}XmlAttrXmlnsW15.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW16Cex(); -begin - return {self.}XmlAttrXmlnsW16Cex.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW16Cex(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cex) then - begin - {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cex; - end - {self.}XmlAttrXmlnsW16Cex.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW16Cid(); -begin - return {self.}XmlAttrXmlnsW16Cid.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW16Cid(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Cid) then - begin - {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Cid; - end - {self.}XmlAttrXmlnsW16Cid.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW16(); -begin - return {self.}XmlAttrXmlnsW16.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW16(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16) then - begin - {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16; - end - {self.}XmlAttrXmlnsW16.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW16Du(); -begin - return {self.}XmlAttrXmlnsW16Du.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW16Du(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16Du) then - begin - {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16Du; - end - {self.}XmlAttrXmlnsW16Du.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW16sdtdh(); -begin - return {self.}XmlAttrXmlnsW16sdtdh.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW16sdtdh(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16sdtdh) then - begin - {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16sdtdh; - end - {self.}XmlAttrXmlnsW16sdtdh.Value := _value; -end; - -function WebSettings.ReadXmlAttrXmlnsW16se(); -begin - return {self.}XmlAttrXmlnsW16se.Value; -end; - -function WebSettings.WriteXmlAttrXmlnsW16se(_value); -begin - if ifnil({self.}XmlAttrXmlnsW16se) then - begin - {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); - attributes_[length(attributes_)] := {self.}XmlAttrXmlnsW16se; - end - {self.}XmlAttrXmlnsW16se.Value := _value; -end; - -function WebSettings.ReadXmlAttrMcIgnorable(); -begin - return {self.}XmlAttrMcIgnorable.Value; -end; - -function WebSettings.WriteXmlAttrMcIgnorable(_value); -begin - if ifnil({self.}XmlAttrMcIgnorable) then - begin - {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); - attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; - end - {self.}XmlAttrMcIgnorable.Value := _value; -end; - -function WebSettings.ReadXmlChildOptimizeForBrowser(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildOptimizeForBrowser) then - begin - {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser"); - container_.Set({self.}XmlChildOptimizeForBrowser); - end - return {self.}XmlChildOptimizeForBrowser; - end - return ifnil({self.}XmlChildOptimizeForBrowser) ? nil : {self.}XmlChildOptimizeForBrowser.BoolValue(); -end; - -function WebSettings.WriteXmlChildOptimizeForBrowser(_value); -begin - if ifnil({self.}XmlChildOptimizeForBrowser) then - begin - {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser"); - container_.Set({self.}XmlChildOptimizeForBrowser); - end - {self.}XmlChildOptimizeForBrowser.Value := _value; -end; - -function WebSettings.ReadXmlChildAllowPNG(); -begin - if tslassigning then - begin - if ifnil({self.}XmlChildAllowPNG) then - begin - {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG"); - container_.Set({self.}XmlChildAllowPNG); - end - return {self.}XmlChildAllowPNG; - end - return ifnil({self.}XmlChildAllowPNG) ? nil : {self.}XmlChildAllowPNG.BoolValue(); -end; - -function WebSettings.WriteXmlChildAllowPNG(_value); -begin - if ifnil({self.}XmlChildAllowPNG) then - begin - {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG"); - container_.Set({self.}XmlChildAllowPNG); - end - {self.}XmlChildAllowPNG.Value := _value; -end; diff --git a/autoclass/docx/WpsStyle@DOCX.tsf b/autoclass/docx/WpsStyle@DOCX.tsf deleted file mode 100644 index 7e21354..0000000 --- a/autoclass/docx/WpsStyle@DOCX.tsf +++ /dev/null @@ -1,115 +0,0 @@ -type WpsStyle = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: WpsStyle);override; - -public - - // normal property - property LnRef read ReadXmlChildLnRef; - property FillRef read ReadXmlChildFillRef; - property EffectRef read ReadXmlChildEffectRef; - property FontRef read ReadXmlChildFontRef; - function ReadXmlChildLnRef(); - function ReadXmlChildFillRef(); - function ReadXmlChildEffectRef(); - function ReadXmlChildFontRef(); - -public - // Children - XmlChildLnRef: XRef; - XmlChildFillRef: XRef; - XmlChildEffectRef: XRef; - XmlChildFontRef: XRef; - -end; - -function WpsStyle.Create();overload; -begin - {self.}Create(nil, "wps", "style"); -end; - -function WpsStyle.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function WpsStyle.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function WpsStyle.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - "a:lnRef": array(0, makeweakref(thisFunction(ReadXmlChildLnRef))), - "a:fillRef": array(1, makeweakref(thisFunction(ReadXmlChildFillRef))), - "a:effectRef": array(2, makeweakref(thisFunction(ReadXmlChildEffectRef))), - "a:fontRef": array(3, makeweakref(thisFunction(ReadXmlChildFontRef))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function WpsStyle.Copy(_obj: WpsStyle);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildLnRef) then - {self.}LnRef.Copy(_obj.XmlChildLnRef); - if not ifnil(_obj.XmlChildFillRef) then - {self.}FillRef.Copy(_obj.XmlChildFillRef); - if not ifnil(_obj.XmlChildEffectRef) then - {self.}EffectRef.Copy(_obj.XmlChildEffectRef); - if not ifnil(_obj.XmlChildFontRef) then - {self.}FontRef.Copy(_obj.XmlChildFontRef); - tslassigning := tslassigning_backup; -end; - -function WpsStyle.ReadXmlChildLnRef(); -begin - if tslassigning and ifnil({self.}XmlChildLnRef) then - begin - {self.}XmlChildLnRef := new XRef(self, "a", "lnRef"); - container_.Set({self.}XmlChildLnRef); - end - return {self.}XmlChildLnRef; -end; - -function WpsStyle.ReadXmlChildFillRef(); -begin - if tslassigning and ifnil({self.}XmlChildFillRef) then - begin - {self.}XmlChildFillRef := new XRef(self, "a", "fillRef"); - container_.Set({self.}XmlChildFillRef); - end - return {self.}XmlChildFillRef; -end; - -function WpsStyle.ReadXmlChildEffectRef(); -begin - if tslassigning and ifnil({self.}XmlChildEffectRef) then - begin - {self.}XmlChildEffectRef := new XRef(self, "a", "effectRef"); - container_.Set({self.}XmlChildEffectRef); - end - return {self.}XmlChildEffectRef; -end; - -function WpsStyle.ReadXmlChildFontRef(); -begin - if tslassigning and ifnil({self.}XmlChildFontRef) then - begin - {self.}XmlChildFontRef := new XRef(self, "a", "fontRef"); - container_.Set({self.}XmlChildFontRef); - end - return {self.}XmlChildFontRef; -end; diff --git a/autoclass/docx/Wsp@DOCX.tsf b/autoclass/docx/Wsp@DOCX.tsf deleted file mode 100644 index ee5ea08..0000000 --- a/autoclass/docx/Wsp@DOCX.tsf +++ /dev/null @@ -1,131 +0,0 @@ -type Wsp = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Wsp);override; - -public - - // normal property - property CNvSpPr read ReadXmlChildCNvSpPr; - property SpPr read ReadXmlChildSpPr; - property Txbx read ReadXmlChildTxbx; - property Style read ReadXmlChildStyle; - property BodyPr read ReadXmlChildBodyPr; - function ReadXmlChildCNvSpPr(); - function ReadXmlChildSpPr(); - function ReadXmlChildTxbx(); - function ReadXmlChildStyle(); - function ReadXmlChildBodyPr(); - -public - // Children - XmlChildCNvSpPr: CNvSpPr; - XmlChildSpPr: SpPr; - XmlChildTxbx: Txbx; - XmlChildStyle: WpsStyle; - XmlChildBodyPr: BodyPr; - -end; - -function Wsp.Create();overload; -begin - {self.}Create(nil, "wps", "wsp"); -end; - -function Wsp.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Wsp.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Wsp.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "cNvSpPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvSpPr))), - pre + "spPr": array(1, makeweakref(thisFunction(ReadXmlChildSpPr))), - pre + "txbx": array(2, makeweakref(thisFunction(ReadXmlChildTxbx))), - pre + "style": array(3, makeweakref(thisFunction(ReadXmlChildStyle))), - pre + "bodyPr": array(4, makeweakref(thisFunction(ReadXmlChildBodyPr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Wsp.Copy(_obj: Wsp);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildCNvSpPr) then - {self.}CNvSpPr.Copy(_obj.XmlChildCNvSpPr); - if not ifnil(_obj.XmlChildSpPr) then - {self.}SpPr.Copy(_obj.XmlChildSpPr); - if not ifnil(_obj.XmlChildTxbx) then - {self.}Txbx.Copy(_obj.XmlChildTxbx); - if not ifnil(_obj.XmlChildStyle) then - {self.}Style.Copy(_obj.XmlChildStyle); - if not ifnil(_obj.XmlChildBodyPr) then - {self.}BodyPr.Copy(_obj.XmlChildBodyPr); - tslassigning := tslassigning_backup; -end; - -function Wsp.ReadXmlChildCNvSpPr(); -begin - if tslassigning and ifnil({self.}XmlChildCNvSpPr) then - begin - {self.}XmlChildCNvSpPr := new CNvSpPr(self, {self.}Prefix, "cNvSpPr"); - container_.Set({self.}XmlChildCNvSpPr); - end - return {self.}XmlChildCNvSpPr; -end; - -function Wsp.ReadXmlChildSpPr(); -begin - if tslassigning and ifnil({self.}XmlChildSpPr) then - begin - {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); - container_.Set({self.}XmlChildSpPr); - end - return {self.}XmlChildSpPr; -end; - -function Wsp.ReadXmlChildTxbx(); -begin - if tslassigning and ifnil({self.}XmlChildTxbx) then - begin - {self.}XmlChildTxbx := new Txbx(self, {self.}Prefix, "txbx"); - container_.Set({self.}XmlChildTxbx); - end - return {self.}XmlChildTxbx; -end; - -function Wsp.ReadXmlChildStyle(); -begin - if tslassigning and ifnil({self.}XmlChildStyle) then - begin - {self.}XmlChildStyle := new WpsStyle(self, {self.}Prefix, "style"); - container_.Set({self.}XmlChildStyle); - end - return {self.}XmlChildStyle; -end; - -function Wsp.ReadXmlChildBodyPr(); -begin - if tslassigning and ifnil({self.}XmlChildBodyPr) then - begin - {self.}XmlChildBodyPr := new BodyPr(self, {self.}Prefix, "bodyPr"); - container_.Set({self.}XmlChildBodyPr); - end - return {self.}XmlChildBodyPr; -end; diff --git a/autoclass/docx/XRef@DOCX.tsf b/autoclass/docx/XRef@DOCX.tsf deleted file mode 100644 index b69a65e..0000000 --- a/autoclass/docx/XRef@DOCX.tsf +++ /dev/null @@ -1,93 +0,0 @@ -type XRef = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: XRef);override; - -public - - // attributes property - property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; - function ReadXmlAttrIdx(); - function WriteXmlAttrIdx(_value); - - // normal property - property SchemeClr read ReadXmlChildSchemeClr; - function ReadXmlChildSchemeClr(); - -public - // Attributes - XmlAttrIdx: OpenXmlAttribute; - - // Children - XmlChildSchemeClr: SchemeClr; - -end; - -function XRef.Create();overload; -begin - {self.}Create(nil, "a", "lnRef"); -end; - -function XRef.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function XRef.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function XRef.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "idx": makeweakref(thisFunction(WriteXmlAttrIdx)), - ); - sorted_child_ := array( - "a:schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function XRef.Copy(_obj: XRef);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Idx) then - {self.}Idx := _obj.Idx; - if not ifnil(_obj.XmlChildSchemeClr) then - {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); - tslassigning := tslassigning_backup; -end; - -function XRef.ReadXmlAttrIdx(); -begin - return {self.}XmlAttrIdx.Value; -end; - -function XRef.WriteXmlAttrIdx(_value); -begin - if ifnil({self.}XmlAttrIdx) then - begin - {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); - attributes_[length(attributes_)] := {self.}XmlAttrIdx; - end - {self.}XmlAttrIdx.Value := _value; -end; - -function XRef.ReadXmlChildSchemeClr(); -begin - if tslassigning and ifnil({self.}XmlChildSchemeClr) then - begin - {self.}XmlChildSchemeClr := new SchemeClr(self, "a", "schemeClr"); - container_.Set({self.}XmlChildSchemeClr); - end - return {self.}XmlChildSchemeClr; -end; diff --git a/autoclass/docx/XY@DOCX.tsf b/autoclass/docx/XY@DOCX.tsf deleted file mode 100644 index 125ed56..0000000 --- a/autoclass/docx/XY@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type XY = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: XY);override; - -public - - // attributes property - property X read ReadXmlAttrX write WriteXmlAttrX; - property Y read ReadXmlAttrY write WriteXmlAttrY; - function ReadXmlAttrX(); - function WriteXmlAttrX(_value); - function ReadXmlAttrY(); - function WriteXmlAttrY(_value); - -public - // Attributes - XmlAttrX: OpenXmlAttribute; - XmlAttrY: OpenXmlAttribute; - - -end; - -function XY.Create();overload; -begin - {self.}Create(nil, "", ""); -end; - -function XY.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function XY.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function XY.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "x": makeweakref(thisFunction(WriteXmlAttrX)), - "y": makeweakref(thisFunction(WriteXmlAttrY)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function XY.Copy(_obj: XY);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.X) then - {self.}X := _obj.X; - if not ifnil(_obj.Y) then - {self.}Y := _obj.Y; - tslassigning := tslassigning_backup; -end; - -function XY.ReadXmlAttrX(); -begin - return {self.}XmlAttrX.Value; -end; - -function XY.WriteXmlAttrX(_value); -begin - if ifnil({self.}XmlAttrX) then - begin - {self.}XmlAttrX := new OpenXmlAttribute("", "x", nil); - attributes_[length(attributes_)] := {self.}XmlAttrX; - end - {self.}XmlAttrX.Value := _value; -end; - -function XY.ReadXmlAttrY(); -begin - return {self.}XmlAttrY.Value; -end; - -function XY.WriteXmlAttrY(_value); -begin - if ifnil({self.}XmlAttrY) then - begin - {self.}XmlAttrY := new OpenXmlAttribute("", "y", nil); - attributes_[length(attributes_)] := {self.}XmlAttrY; - end - {self.}XmlAttrY.Value := _value; -end; diff --git a/autoclass/docx/Xfrm@DOCX.tsf b/autoclass/docx/Xfrm@DOCX.tsf deleted file mode 100644 index 5e00f98..0000000 --- a/autoclass/docx/Xfrm@DOCX.tsf +++ /dev/null @@ -1,83 +0,0 @@ -type Xfrm = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Xfrm);override; - -public - - // normal property - property Off read ReadXmlChildOff; - property Ext read ReadXmlChildExt; - function ReadXmlChildOff(); - function ReadXmlChildExt(); - -public - // Children - XmlChildOff: XY; - XmlChildExt: CXY; - -end; - -function Xfrm.Create();overload; -begin - {self.}Create(nil, "a", "xfrm"); -end; - -function Xfrm.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Xfrm.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Xfrm.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - ); - sorted_child_ := array( - pre + "off": array(0, makeweakref(thisFunction(ReadXmlChildOff))), - pre + "ext": array(1, makeweakref(thisFunction(ReadXmlChildExt))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Xfrm.Copy(_obj: Xfrm);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.XmlChildOff) then - {self.}Off.Copy(_obj.XmlChildOff); - if not ifnil(_obj.XmlChildExt) then - {self.}Ext.Copy(_obj.XmlChildExt); - tslassigning := tslassigning_backup; -end; - -function Xfrm.ReadXmlChildOff(); -begin - if tslassigning and ifnil({self.}XmlChildOff) then - begin - {self.}XmlChildOff := new XY(self, {self.}Prefix, "off"); - container_.Set({self.}XmlChildOff); - end - return {self.}XmlChildOff; -end; - -function Xfrm.ReadXmlChildExt(); -begin - if tslassigning and ifnil({self.}XmlChildExt) then - begin - {self.}XmlChildExt := new CXY(self, {self.}Prefix, "ext"); - container_.Set({self.}XmlChildExt); - end - return {self.}XmlChildExt; -end; diff --git a/autoclass/docx/Zoom@DOCX.tsf b/autoclass/docx/Zoom@DOCX.tsf deleted file mode 100644 index 78bcccf..0000000 --- a/autoclass/docx/Zoom@DOCX.tsf +++ /dev/null @@ -1,74 +0,0 @@ -type Zoom = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: Zoom);override; - -public - - // attributes property - property Percent read ReadXmlAttrPercent write WriteXmlAttrPercent; - function ReadXmlAttrPercent(); - function WriteXmlAttrPercent(_value); - -public - // Attributes - XmlAttrPercent: OpenXmlAttribute; - - -end; - -function Zoom.Create();overload; -begin - {self.}Create(nil, "w", "zoom"); -end; - -function Zoom.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function Zoom.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function Zoom.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - pre + "percent": makeweakref(thisFunction(WriteXmlAttrPercent)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function Zoom.Copy(_obj: Zoom);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.Percent) then - {self.}Percent := _obj.Percent; - tslassigning := tslassigning_backup; -end; - -function Zoom.ReadXmlAttrPercent(); -begin - return {self.}XmlAttrPercent.Value; -end; - -function Zoom.WriteXmlAttrPercent(_value); -begin - if ifnil({self.}XmlAttrPercent) then - begin - {self.}XmlAttrPercent := new OpenXmlAttribute({self.}Prefix, "percent", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPercent; - end - {self.}XmlAttrPercent.Value := _value; -end; diff --git a/autoclass/docx/_Inline@DOCX.tsf b/autoclass/docx/_Inline@DOCX.tsf deleted file mode 100644 index f4dfae6..0000000 --- a/autoclass/docx/_Inline@DOCX.tsf +++ /dev/null @@ -1,267 +0,0 @@ -type _Inline = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: _Inline);override; - -public - - // attributes property - property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT; - property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB; - property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL; - property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR; - property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; - property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId; - function ReadXmlAttrDistT(); - function WriteXmlAttrDistT(_value); - function ReadXmlAttrDistB(); - function WriteXmlAttrDistB(_value); - function ReadXmlAttrDistL(); - function WriteXmlAttrDistL(_value); - function ReadXmlAttrDistR(); - function WriteXmlAttrDistR(_value); - function ReadXmlAttrAnchorId(); - function WriteXmlAttrAnchorId(_value); - function ReadXmlAttrEditId(); - function WriteXmlAttrEditId(_value); - - // normal property - property Extent read ReadXmlChildExtent; - property EffectExtent read ReadXmlChildEffectExtent; - property DocPr read ReadXmlChildDocPr; - property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr; - property Graphic read ReadXmlChildGraphic; - function ReadXmlChildExtent(); - function ReadXmlChildEffectExtent(); - function ReadXmlChildDocPr(); - function ReadXmlChildCNvGraphicFramePr(); - function ReadXmlChildGraphic(); - -public - // Attributes - XmlAttrDistT: OpenXmlAttribute; - XmlAttrDistB: OpenXmlAttribute; - XmlAttrDistL: OpenXmlAttribute; - XmlAttrDistR: OpenXmlAttribute; - XmlAttrAnchorId: OpenXmlAttribute; - XmlAttrEditId: OpenXmlAttribute; - - // Children - XmlChildExtent: CXY; - XmlChildEffectExtent: EffectExtent; - XmlChildDocPr: DocPr; - XmlChildCNvGraphicFramePr: CNvGraphicFramePr; - XmlChildGraphic: Graphic; - -end; - -function _Inline.Create();overload; -begin - {self.}Create(nil, "wp", "inline"); -end; - -function _Inline.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function _Inline.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function _Inline.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "distT": makeweakref(thisFunction(WriteXmlAttrDistT)), - "distB": makeweakref(thisFunction(WriteXmlAttrDistB)), - "distL": makeweakref(thisFunction(WriteXmlAttrDistL)), - "distR": makeweakref(thisFunction(WriteXmlAttrDistR)), - "wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), - "wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)), - ); - sorted_child_ := array( - pre + "extent": array(0, makeweakref(thisFunction(ReadXmlChildExtent))), - pre + "effectExtent": array(1, makeweakref(thisFunction(ReadXmlChildEffectExtent))), - pre + "docPr": array(2, makeweakref(thisFunction(ReadXmlChildDocPr))), - pre + "cNvGraphicFramePr": array(3, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))), - "a:graphic": array(4, makeweakref(thisFunction(ReadXmlChildGraphic))), - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function _Inline.Copy(_obj: _Inline);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.DistT) then - {self.}DistT := _obj.DistT; - if not ifnil(_obj.DistB) then - {self.}DistB := _obj.DistB; - if not ifnil(_obj.DistL) then - {self.}DistL := _obj.DistL; - if not ifnil(_obj.DistR) then - {self.}DistR := _obj.DistR; - if not ifnil(_obj.AnchorId) then - {self.}AnchorId := _obj.AnchorId; - if not ifnil(_obj.EditId) then - {self.}EditId := _obj.EditId; - if not ifnil(_obj.XmlChildExtent) then - {self.}Extent.Copy(_obj.XmlChildExtent); - if not ifnil(_obj.XmlChildEffectExtent) then - {self.}EffectExtent.Copy(_obj.XmlChildEffectExtent); - if not ifnil(_obj.XmlChildDocPr) then - {self.}DocPr.Copy(_obj.XmlChildDocPr); - if not ifnil(_obj.XmlChildCNvGraphicFramePr) then - {self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr); - if not ifnil(_obj.XmlChildGraphic) then - {self.}Graphic.Copy(_obj.XmlChildGraphic); - tslassigning := tslassigning_backup; -end; - -function _Inline.ReadXmlAttrDistT(); -begin - return {self.}XmlAttrDistT.Value; -end; - -function _Inline.WriteXmlAttrDistT(_value); -begin - if ifnil({self.}XmlAttrDistT) then - begin - {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistT; - end - {self.}XmlAttrDistT.Value := _value; -end; - -function _Inline.ReadXmlAttrDistB(); -begin - return {self.}XmlAttrDistB.Value; -end; - -function _Inline.WriteXmlAttrDistB(_value); -begin - if ifnil({self.}XmlAttrDistB) then - begin - {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistB; - end - {self.}XmlAttrDistB.Value := _value; -end; - -function _Inline.ReadXmlAttrDistL(); -begin - return {self.}XmlAttrDistL.Value; -end; - -function _Inline.WriteXmlAttrDistL(_value); -begin - if ifnil({self.}XmlAttrDistL) then - begin - {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistL; - end - {self.}XmlAttrDistL.Value := _value; -end; - -function _Inline.ReadXmlAttrDistR(); -begin - return {self.}XmlAttrDistR.Value; -end; - -function _Inline.WriteXmlAttrDistR(_value); -begin - if ifnil({self.}XmlAttrDistR) then - begin - {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); - attributes_[length(attributes_)] := {self.}XmlAttrDistR; - end - {self.}XmlAttrDistR.Value := _value; -end; - -function _Inline.ReadXmlAttrAnchorId(); -begin - return {self.}XmlAttrAnchorId.Value; -end; - -function _Inline.WriteXmlAttrAnchorId(_value); -begin - if ifnil({self.}XmlAttrAnchorId) then - begin - {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; - end - {self.}XmlAttrAnchorId.Value := _value; -end; - -function _Inline.ReadXmlAttrEditId(); -begin - return {self.}XmlAttrEditId.Value; -end; - -function _Inline.WriteXmlAttrEditId(_value); -begin - if ifnil({self.}XmlAttrEditId) then - begin - {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); - attributes_[length(attributes_)] := {self.}XmlAttrEditId; - end - {self.}XmlAttrEditId.Value := _value; -end; - -function _Inline.ReadXmlChildExtent(); -begin - if tslassigning and ifnil({self.}XmlChildExtent) then - begin - {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); - container_.Set({self.}XmlChildExtent); - end - return {self.}XmlChildExtent; -end; - -function _Inline.ReadXmlChildEffectExtent(); -begin - if tslassigning and ifnil({self.}XmlChildEffectExtent) then - begin - {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); - container_.Set({self.}XmlChildEffectExtent); - end - return {self.}XmlChildEffectExtent; -end; - -function _Inline.ReadXmlChildDocPr(); -begin - if tslassigning and ifnil({self.}XmlChildDocPr) then - begin - {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); - container_.Set({self.}XmlChildDocPr); - end - return {self.}XmlChildDocPr; -end; - -function _Inline.ReadXmlChildCNvGraphicFramePr(); -begin - if tslassigning and ifnil({self.}XmlChildCNvGraphicFramePr) then - begin - {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); - container_.Set({self.}XmlChildCNvGraphicFramePr); - end - return {self.}XmlChildCNvGraphicFramePr; -end; - -function _Inline.ReadXmlChildGraphic(); -begin - if tslassigning and ifnil({self.}XmlChildGraphic) then - begin - {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); - container_.Set({self.}XmlChildGraphic); - end - return {self.}XmlChildGraphic; -end; diff --git a/autoclass/docx/_Override@DOCX.tsf b/autoclass/docx/_Override@DOCX.tsf deleted file mode 100644 index b293a47..0000000 --- a/autoclass/docx/_Override@DOCX.tsf +++ /dev/null @@ -1,96 +0,0 @@ -type _Override = class(OpenXmlElement) -public - function Create();overload; - function Create(_node: XmlNode);overload; - function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; - function Init();override; - function Copy(_obj: _Override);override; - -public - - // attributes property - property PartName read ReadXmlAttrPartName write WriteXmlAttrPartName; - property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType; - function ReadXmlAttrPartName(); - function WriteXmlAttrPartName(_value); - function ReadXmlAttrContentType(); - function WriteXmlAttrContentType(_value); - -public - // Attributes - XmlAttrPartName: OpenXmlAttribute; - XmlAttrContentType: OpenXmlAttribute; - - -end; - -function _Override.Create();overload; -begin - {self.}Create(nil, "", "Override"); -end; - -function _Override.Create(_node: XmlNode);overload; -begin - class(OpenXmlElement).Create(_node: XmlNode); -end; - -function _Override.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; -begin - setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); - class(OpenXmlElement).Create(_parent, _prefix, _local_name); -end; - -function _Override.Init();override; -begin - pre := {self.}Prefix ? {self.}Prefix + ":" : ""; - attributes_ := array(); - attributes_pf_ := array( - "PartName": makeweakref(thisFunction(WriteXmlAttrPartName)), - "ContentType": makeweakref(thisFunction(WriteXmlAttrContentType)), - ); - sorted_child_ := array( - ); - container_ := new TSOfficeContainer(sorted_child_); -end; - -function _Override.Copy(_obj: _Override);override; -begin - tslassigning_backup := tslassigning; - tslassigning := 1; - class(OpenXmlElement).Copy(_obj); - if not ifnil(_obj.PartName) then - {self.}PartName := _obj.PartName; - if not ifnil(_obj.ContentType) then - {self.}ContentType := _obj.ContentType; - tslassigning := tslassigning_backup; -end; - -function _Override.ReadXmlAttrPartName(); -begin - return {self.}XmlAttrPartName.Value; -end; - -function _Override.WriteXmlAttrPartName(_value); -begin - if ifnil({self.}XmlAttrPartName) then - begin - {self.}XmlAttrPartName := new OpenXmlAttribute("", "PartName", nil); - attributes_[length(attributes_)] := {self.}XmlAttrPartName; - end - {self.}XmlAttrPartName.Value := _value; -end; - -function _Override.ReadXmlAttrContentType(); -begin - return {self.}XmlAttrContentType.Value; -end; - -function _Override.WriteXmlAttrContentType(_value); -begin - if ifnil({self.}XmlAttrContentType) then - begin - {self.}XmlAttrContentType := new OpenXmlAttribute("", "ContentType", nil); - attributes_[length(attributes_)] := {self.}XmlAttrContentType; - end - {self.}XmlAttrContentType.Value := _value; -end; diff --git a/autounit/DocxML.tsf b/autounit/DocxML.tsf new file mode 100644 index 0000000..1f3693b --- /dev/null +++ b/autounit/DocxML.tsf @@ -0,0 +1,16078 @@ +unit DocxML; +interface +uses SharedML, VML, DrawingML; + +type Properties = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Properties);override; +public + + // pcdata property + property Template read ReadXmlChildTemplate; + property TotalTime read ReadXmlChildTotalTime; + property Pages read ReadXmlChildPages; + property Words read ReadXmlChildWords; + property Characters read ReadXmlChildCharacters; + property Application read ReadXmlChildApplication; + property DocSecurity read ReadXmlChildDocSecurity; + property Lines read ReadXmlChildLines; + property Paragraphs read ReadXmlChildParagraphs; + property ScaleCrop read ReadXmlChildScaleCrop; + property Company read ReadXmlChildCompany; + property LinksUpToDate read ReadXmlChildLinksUpToDate; + property CharactersWithSpaces read ReadXmlChildCharactersWithSpaces; + property SharedDoc read ReadXmlChildSharedDoc; + property HyperlinksChanged read ReadXmlChildHyperlinksChanged; + property AppVersion read ReadXmlChildAppVersion; + function ReadXmlChildTemplate(); + function ReadXmlChildTotalTime(); + function ReadXmlChildPages(); + function ReadXmlChildWords(); + function ReadXmlChildCharacters(); + function ReadXmlChildApplication(); + function ReadXmlChildDocSecurity(); + function ReadXmlChildLines(); + function ReadXmlChildParagraphs(); + function ReadXmlChildScaleCrop(); + function ReadXmlChildCompany(); + function ReadXmlChildLinksUpToDate(); + function ReadXmlChildCharactersWithSpaces(); + function ReadXmlChildSharedDoc(); + function ReadXmlChildHyperlinksChanged(); + function ReadXmlChildAppVersion(); + +public + // Children + XmlChildTemplate: OpenXmlPcdata; + XmlChildTotalTime: OpenXmlPcdata; + XmlChildPages: OpenXmlPcdata; + XmlChildWords: OpenXmlPcdata; + XmlChildCharacters: OpenXmlPcdata; + XmlChildApplication: OpenXmlPcdata; + XmlChildDocSecurity: OpenXmlPcdata; + XmlChildLines: OpenXmlPcdata; + XmlChildParagraphs: OpenXmlPcdata; + XmlChildScaleCrop: OpenXmlPcdata; + XmlChildCompany: OpenXmlPcdata; + XmlChildLinksUpToDate: OpenXmlPcdata; + XmlChildCharactersWithSpaces: OpenXmlPcdata; + XmlChildSharedDoc: OpenXmlPcdata; + XmlChildHyperlinksChanged: OpenXmlPcdata; + XmlChildAppVersion: OpenXmlPcdata; +end; + +type Document = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Document);override; +public + // attributes property + property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; + function ReadXmlAttrMcIgnorable(); + function WriteXmlAttrMcIgnorable(_value); + + // normal property + property Body read ReadXmlChildBody; + function ReadXmlChildBody(): Body; + +public + // Attributes + XmlAttrMcIgnorable: OpenXmlAttribute; + + // Children + XmlChildBody: Body; +end; + +type Body = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Body);override; +public + + // normal property + property SectPr read ReadXmlChildSectPr; + function ReadXmlChildSectPr(): SectPr; + + // multi property + property Ps read ReadPs; + property Tbls read ReadTbls; + property Sdts read ReadSdts; + function ReadPs(_index); + function ReadTbls(_index); + function ReadSdts(_index); + function AddP(): P; + function AddTbl(): Tbl; + function AddSdt(): Sdt; + function AppendP(): P; + function AppendTbl(): Tbl; + function AppendSdt(): Sdt; + +public + // Children + XmlChildSectPr: SectPr; +end; + +type P = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: P);override; +public + // attributes property + property ParaId read ReadXmlAttrParaId write WriteXmlAttrParaId; + property TextId read ReadXmlAttrTextId write WriteXmlAttrTextId; + property RsidR read ReadXmlAttrRsidR write WriteXmlAttrRsidR; + property RsidRPr read ReadXmlAttrRsidRPr write WriteXmlAttrRsidRPr; + property RsidRDefault read ReadXmlAttrRsidRDefault write WriteXmlAttrRsidRDefault; + property RsidP read ReadXmlAttrRsidP write WriteXmlAttrRsidP; + function ReadXmlAttrParaId(); + function WriteXmlAttrParaId(_value); + function ReadXmlAttrTextId(); + function WriteXmlAttrTextId(_value); + function ReadXmlAttrRsidR(); + function WriteXmlAttrRsidR(_value); + function ReadXmlAttrRsidRPr(); + function WriteXmlAttrRsidRPr(_value); + function ReadXmlAttrRsidRDefault(); + function WriteXmlAttrRsidRDefault(_value); + function ReadXmlAttrRsidP(); + function WriteXmlAttrRsidP(_value); + + // normal property + property PPr read ReadXmlChildPPr; + property OMathPara read ReadXmlChildOMathPara; + property Ins read ReadXmlChildIns; + function ReadXmlChildPPr(): PPr; + function ReadXmlChildOMathPara(): OMathPara; + function ReadXmlChildIns(): Ins; + + // multi property + property Rs read ReadRs; + property CommentRangeStarts read ReadCommentRangeStarts; + property CommentRangeEnds read ReadCommentRangeEnds; + property BookmarkStarts read ReadBookmarkStarts; + property BookmarkEnds read ReadBookmarkEnds; + property Hyperlinks read ReadHyperlinks; + property FldSimples read ReadFldSimples; + function ReadRs(_index); + function ReadCommentRangeStarts(_index); + function ReadCommentRangeEnds(_index); + function ReadBookmarkStarts(_index); + function ReadBookmarkEnds(_index); + function ReadHyperlinks(_index); + function ReadFldSimples(_index); + function AddR(): R; + function AddCommentRangeStart(): CommentRange; + function AddCommentRangeEnd(): CommentRange; + function AddBookmarkStart(): Bookmark; + function AddBookmarkEnd(): Bookmark; + function AddHyperLink(): HyperLink; + function AddFldSimple(): FldSimple; + function AppendR(): R; + function AppendCommentRangeStart(): CommentRange; + function AppendCommentRangeEnd(): CommentRange; + function AppendBookmarkStart(): Bookmark; + function AppendBookmarkEnd(): Bookmark; + function AppendHyperLink(): HyperLink; + function AppendFldSimple(): FldSimple; + +public + // Attributes + XmlAttrParaId: OpenXmlAttribute; + XmlAttrTextId: OpenXmlAttribute; + XmlAttrRsidR: OpenXmlAttribute; + XmlAttrRsidRPr: OpenXmlAttribute; + XmlAttrRsidRDefault: OpenXmlAttribute; + XmlAttrRsidP: OpenXmlAttribute; + + // Children + XmlChildPPr: PPr; + XmlChildOMathPara: OMathPara; + XmlChildIns: Ins; +end; + +type FldSimple = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FldSimple);override; +public + // attributes property + property Instr read ReadXmlAttrInstr write WriteXmlAttrInstr; + function ReadXmlAttrInstr(); + function WriteXmlAttrInstr(_value); + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Attributes + XmlAttrInstr: OpenXmlAttribute; + + // Children +end; + +type CommentRange = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CommentRange);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + +end; + +type HyperLink = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: HyperLink);override; +public + // attributes property + property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; + property Id read ReadXmlAttrId write WriteXmlAttrId; + property History read ReadXmlAttrHistory write WriteXmlAttrHistory; + function ReadXmlAttrAnchor(); + function WriteXmlAttrAnchor(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrHistory(); + function WriteXmlAttrHistory(_value); + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Attributes + XmlAttrAnchor: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + XmlAttrHistory: OpenXmlAttribute; + + // Children +end; + +type Bookmark = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Bookmark);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + +end; + +type PPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PPr);override; +public + + // empty property + property WidowControl read ReadXmlChildWidowControl write WriteXmlChildWidowControl; + property SnapToGrid read ReadXmlChildSnapToGrid write WriteXmlChildSnapToGrid; + property KeepNext read ReadXmlChildKeepNext write WriteXmlChildKeepNext; + property KeepLines read ReadXmlChildKeepLines write WriteXmlChildKeepLines; + property PageBreakBefore read ReadXmlChildPageBreakBefore write WriteXmlChildPageBreakBefore; + property ContextualSpacing read ReadXmlChildContextualSpacing write WriteXmlChildContextualSpacing; + function ReadXmlChildWidowControl(); + function WriteXmlChildWidowControl(_value); + function ReadXmlChildSnapToGrid(); + function WriteXmlChildSnapToGrid(_value); + function ReadXmlChildKeepNext(); + function WriteXmlChildKeepNext(_value); + function ReadXmlChildKeepLines(); + function WriteXmlChildKeepLines(_value); + function ReadXmlChildPageBreakBefore(); + function WriteXmlChildPageBreakBefore(_value); + function ReadXmlChildContextualSpacing(); + function WriteXmlChildContextualSpacing(_value); + + // normal property + property SectPr read ReadXmlChildSectPr; + property Tabs read ReadXmlChildTabs; + property PStyle read ReadXmlChildPStyle; + property NumPr read ReadXmlChildNumPr; + property Jc read ReadXmlChildJc; + property Ind read ReadXmlChildInd; + property AdjustRightInd read ReadXmlChildAdjustRightInd; + property Spacing read ReadXmlChildSpacing; + property OutlineLvl read ReadXmlChildOutlineLvl; + property AutoSpaceDE read ReadXmlChildAutoSpaceDE; + property AutoSpaceDN read ReadXmlChildAutoSpaceDN; + property RPr read ReadXmlChildRPr; + property PBdr read ReadXmlChildPBdr; + property Shd read ReadXmlChildShd; + property WordWrap read ReadXmlChildWordWrap; + property TextboxTightWrap read ReadXmlChildTextboxTightWrap; + function ReadXmlChildSectPr(): SectPr; + function ReadXmlChildTabs(): Tabs; + function ReadXmlChildPStyle(): PureWVal; + function ReadXmlChildNumPr(): NumPr; + function ReadXmlChildJc(): PureWVal; + function ReadXmlChildInd(): Ind; + function ReadXmlChildAdjustRightInd(): PureWVal; + function ReadXmlChildSpacing(): Spacing; + function ReadXmlChildOutlineLvl(): PureWVal; + function ReadXmlChildAutoSpaceDE(): PureWVal; + function ReadXmlChildAutoSpaceDN(): PureWVal; + function ReadXmlChildRPr(): RPr; + function ReadXmlChildPBdr(): PBdr; + function ReadXmlChildShd(): Shd; + function ReadXmlChildWordWrap(): PureWVal; + function ReadXmlChildTextboxTightWrap(): PureWVal; + +public + // Children + XmlChildSectPr: SectPr; + XmlChildTabs: Tabs; + XmlChildWidowControl: OpenXmlEmpty; + XmlChildSnapToGrid: OpenXmlEmpty; + XmlChildPStyle: PureWVal; + XmlChildNumPr: NumPr; + XmlChildJc: PureWVal; + XmlChildInd: Ind; + XmlChildKeepNext: OpenXmlEmpty; + XmlChildKeepLines: OpenXmlEmpty; + XmlChildPageBreakBefore: OpenXmlEmpty; + XmlChildAdjustRightInd: PureWVal; + XmlChildSpacing: Spacing; + XmlChildOutlineLvl: PureWVal; + XmlChildAutoSpaceDE: PureWVal; + XmlChildAutoSpaceDN: PureWVal; + XmlChildRPr: RPr; + XmlChildPBdr: PBdr; + XmlChildContextualSpacing: OpenXmlEmpty; + XmlChildShd: Shd; + XmlChildWordWrap: PureWVal; + XmlChildTextboxTightWrap: PureWVal; +end; + +type PBdr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PBdr);override; +public + + // normal property + property Top read ReadXmlChildTop; + property Bottom read ReadXmlChildBottom; + function ReadXmlChildTop(): PBorder; + function ReadXmlChildBottom(): PBorder; + +public + // Children + XmlChildTop: PBorder; + XmlChildBottom: PBorder; +end; + +type PBorder = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PBorder);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property Color read ReadXmlAttrColor write WriteXmlAttrColor; + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; + property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; + property Sz read ReadXmlAttrSz write WriteXmlAttrSz; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrColor(); + function WriteXmlAttrColor(_value); + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + function ReadXmlAttrThemeColor(); + function WriteXmlAttrThemeColor(_value); + function ReadXmlAttrThemeTint(); + function WriteXmlAttrThemeTint(_value); + function ReadXmlAttrSz(); + function WriteXmlAttrSz(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrColor: OpenXmlAttribute; + XmlAttrSpace: OpenXmlAttribute; + XmlAttrThemeColor: OpenXmlAttribute; + XmlAttrThemeTint: OpenXmlAttribute; + XmlAttrSz: OpenXmlAttribute; + +end; + +type Tabs = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Tabs);override; +public + + // multi property + property Tabs read ReadTabs; + function ReadTabs(_index); + function AddTab(): Tab; + function AppendTab(): Tab; + +public + // Children +end; + +type Tab = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Tab);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property Leader read ReadXmlAttrLeader write WriteXmlAttrLeader; + property Pos read ReadXmlAttrPos write WriteXmlAttrPos; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrLeader(); + function WriteXmlAttrLeader(_value); + function ReadXmlAttrPos(); + function WriteXmlAttrPos(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrLeader: OpenXmlAttribute; + XmlAttrPos: OpenXmlAttribute; + +end; + +type NumPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: NumPr);override; +public + + // normal property + property Ilvl read ReadXmlChildIlvl; + property NumId read ReadXmlChildNumId; + function ReadXmlChildIlvl(): PureWVal; + function ReadXmlChildNumId(): PureWVal; + +public + // Children + XmlChildIlvl: PureWVal; + XmlChildNumId: PureWVal; +end; + +type Ind = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Ind);override; +public + // attributes property + property FirstLineChars read ReadXmlAttrFirstLineChars write WriteXmlAttrFirstLineChars; + property FirstLine read ReadXmlAttrFirstLine write WriteXmlAttrFirstLine; + property RightChars read ReadXmlAttrRightChars write WriteXmlAttrRightChars; + property Right read ReadXmlAttrRight write WriteXmlAttrRight; + property LeftChars read ReadXmlAttrLeftChars write WriteXmlAttrLeftChars; + property Left read ReadXmlAttrLeft write WriteXmlAttrLeft; + property Hanging read ReadXmlAttrHanging write WriteXmlAttrHanging; + property HangingChars read ReadXmlAttrHangingChars write WriteXmlAttrHangingChars; + function ReadXmlAttrFirstLineChars(); + function WriteXmlAttrFirstLineChars(_value); + function ReadXmlAttrFirstLine(); + function WriteXmlAttrFirstLine(_value); + function ReadXmlAttrRightChars(); + function WriteXmlAttrRightChars(_value); + function ReadXmlAttrRight(); + function WriteXmlAttrRight(_value); + function ReadXmlAttrLeftChars(); + function WriteXmlAttrLeftChars(_value); + function ReadXmlAttrLeft(); + function WriteXmlAttrLeft(_value); + function ReadXmlAttrHanging(); + function WriteXmlAttrHanging(_value); + function ReadXmlAttrHangingChars(); + function WriteXmlAttrHangingChars(_value); + +public + // Attributes + XmlAttrFirstLineChars: OpenXmlAttribute; + XmlAttrFirstLine: OpenXmlAttribute; + XmlAttrRightChars: OpenXmlAttribute; + XmlAttrRight: OpenXmlAttribute; + XmlAttrLeftChars: OpenXmlAttribute; + XmlAttrLeft: OpenXmlAttribute; + XmlAttrHanging: OpenXmlAttribute; + XmlAttrHangingChars: OpenXmlAttribute; + +end; + +type Spacing = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Spacing);override; +public + // attributes property + property Before read ReadXmlAttrBefore write WriteXmlAttrBefore; + property BeforeLines read ReadXmlAttrBeforeLines write WriteXmlAttrBeforeLines; + property BeforeAutospacing read ReadXmlAttrBeforeAutospacing write WriteXmlAttrBeforeAutospacing; + property After read ReadXmlAttrAfter write WriteXmlAttrAfter; + property AfterLines read ReadXmlAttrAfterLines write WriteXmlAttrAfterLines; + property AfterAutospacing read ReadXmlAttrAfterAutospacing write WriteXmlAttrAfterAutospacing; + property Line read ReadXmlAttrLine write WriteXmlAttrLine; + property LineRule read ReadXmlAttrLineRule write WriteXmlAttrLineRule; + function ReadXmlAttrBefore(); + function WriteXmlAttrBefore(_value); + function ReadXmlAttrBeforeLines(); + function WriteXmlAttrBeforeLines(_value); + function ReadXmlAttrBeforeAutospacing(); + function WriteXmlAttrBeforeAutospacing(_value); + function ReadXmlAttrAfter(); + function WriteXmlAttrAfter(_value); + function ReadXmlAttrAfterLines(); + function WriteXmlAttrAfterLines(_value); + function ReadXmlAttrAfterAutospacing(); + function WriteXmlAttrAfterAutospacing(_value); + function ReadXmlAttrLine(); + function WriteXmlAttrLine(_value); + function ReadXmlAttrLineRule(); + function WriteXmlAttrLineRule(_value); + +public + // Attributes + XmlAttrBefore: OpenXmlAttribute; + XmlAttrBeforeLines: OpenXmlAttribute; + XmlAttrBeforeAutospacing: OpenXmlAttribute; + XmlAttrAfter: OpenXmlAttribute; + XmlAttrAfterLines: OpenXmlAttribute; + XmlAttrAfterAutospacing: OpenXmlAttribute; + XmlAttrLine: OpenXmlAttribute; + XmlAttrLineRule: OpenXmlAttribute; + +end; + +type RPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: RPr);override; +public + + // empty property + property I read ReadXmlChildI write WriteXmlChildI; + property ICs read ReadXmlChildICs write WriteXmlChildICs; + property B read ReadXmlChildB write WriteXmlChildB; + property BCs read ReadXmlChildBCs write WriteXmlChildBCs; + property Strike read ReadXmlChildStrike write WriteXmlChildStrike; + property U read ReadXmlChildU write WriteXmlChildU; + function ReadXmlChildI(); + function WriteXmlChildI(_value); + function ReadXmlChildICs(); + function WriteXmlChildICs(_value); + function ReadXmlChildB(); + function WriteXmlChildB(_value); + function ReadXmlChildBCs(); + function WriteXmlChildBCs(_value); + function ReadXmlChildStrike(); + function WriteXmlChildStrike(_value); + function ReadXmlChildU(); + function WriteXmlChildU(_value); + + // normal property + property NoProof read ReadXmlChildNoProof; + property Position read ReadXmlChildPosition; + property WebHidden read ReadXmlChildWebHidden; + property RStyle read ReadXmlChildRStyle; + property Ins read ReadXmlChildIns; + property RFonts read ReadXmlChildRFonts; + property Kern read ReadXmlChildKern; + property Color read ReadXmlChildColor; + property Sz read ReadXmlChildSz; + property SzCs read ReadXmlChildSzCs; + property Lang read ReadXmlChildLang; + property VertAlign read ReadXmlChildVertAlign; + property Ligatures read ReadXmlChildLigatures; + function ReadXmlChildNoProof(): PureVal; + function ReadXmlChildPosition(): PureVal; + function ReadXmlChildWebHidden(): PureWVal; + function ReadXmlChildRStyle(): PureWVal; + function ReadXmlChildIns(): Ins; + function ReadXmlChildRFonts(): RFonts; + function ReadXmlChildKern(): PureWVal; + function ReadXmlChildColor(): Color; + function ReadXmlChildSz(): Sz; + function ReadXmlChildSzCs(): SzCs; + function ReadXmlChildLang(): Lang; + function ReadXmlChildVertAlign(): PureWVal; + function ReadXmlChildLigatures(): PureWVal; + +public + // Children + XmlChildNoProof: PureVal; + XmlChildPosition: PureVal; + XmlChildWebHidden: PureWVal; + XmlChildRStyle: PureWVal; + XmlChildIns: Ins; + XmlChildRFonts: RFonts; + XmlChildKern: PureWVal; + XmlChildI: OpenXmlEmpty; + XmlChildICs: OpenXmlEmpty; + XmlChildB: OpenXmlEmpty; + XmlChildBCs: OpenXmlEmpty; + XmlChildStrike: OpenXmlEmpty; + XmlChildColor: Color; + XmlChildSz: Sz; + XmlChildSzCs: SzCs; + XmlChildU: OpenXmlEmpty; + XmlChildLang: Lang; + XmlChildVertAlign: PureWVal; + XmlChildLigatures: PureWVal; +end; + +type RFonts = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: RFonts);override; +public + // attributes property + property Ascii read ReadXmlAttrAscii write WriteXmlAttrAscii; + property AsciiTheme read ReadXmlAttrAsciiTheme write WriteXmlAttrAsciiTheme; + property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia; + property EastAsiaTheme read ReadXmlAttrEastAsiaTheme write WriteXmlAttrEastAsiaTheme; + property HAnsi read ReadXmlAttrHAnsi write WriteXmlAttrHAnsi; + property HAnsiTheme read ReadXmlAttrHAnsiTheme write WriteXmlAttrHAnsiTheme; + property Hint read ReadXmlAttrHint write WriteXmlAttrHint; + property Cs read ReadXmlAttrCs write WriteXmlAttrCs; + property CsTheme read ReadXmlAttrCsTheme write WriteXmlAttrCsTheme; + function ReadXmlAttrAscii(); + function WriteXmlAttrAscii(_value); + function ReadXmlAttrAsciiTheme(); + function WriteXmlAttrAsciiTheme(_value); + function ReadXmlAttrEastAsia(); + function WriteXmlAttrEastAsia(_value); + function ReadXmlAttrEastAsiaTheme(); + function WriteXmlAttrEastAsiaTheme(_value); + function ReadXmlAttrHAnsi(); + function WriteXmlAttrHAnsi(_value); + function ReadXmlAttrHAnsiTheme(); + function WriteXmlAttrHAnsiTheme(_value); + function ReadXmlAttrHint(); + function WriteXmlAttrHint(_value); + function ReadXmlAttrCs(); + function WriteXmlAttrCs(_value); + function ReadXmlAttrCsTheme(); + function WriteXmlAttrCsTheme(_value); + +public + // Attributes + XmlAttrAscii: OpenXmlAttribute; + XmlAttrAsciiTheme: OpenXmlAttribute; + XmlAttrEastAsia: OpenXmlAttribute; + XmlAttrEastAsiaTheme: OpenXmlAttribute; + XmlAttrHAnsi: OpenXmlAttribute; + XmlAttrHAnsiTheme: OpenXmlAttribute; + XmlAttrHint: OpenXmlAttribute; + XmlAttrCs: OpenXmlAttribute; + XmlAttrCsTheme: OpenXmlAttribute; + +end; + +type SzCs = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SzCs);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + +end; + +type Sz = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Sz);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + +end; + +type PureWVal = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PureWVal);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + +end; + +type Color = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Color);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrThemeColor(); + function WriteXmlAttrThemeColor(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrThemeColor: OpenXmlAttribute; + +end; + +type Lang = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Lang);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia; + property Bidi read ReadXmlAttrBidi write WriteXmlAttrBidi; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrEastAsia(); + function WriteXmlAttrEastAsia(_value); + function ReadXmlAttrBidi(); + function WriteXmlAttrBidi(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrEastAsia: OpenXmlAttribute; + XmlAttrBidi: OpenXmlAttribute; + +end; + +type R = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: R);override; +public + // attributes property + property WRsidRPr read ReadXmlAttrWRsidRPr write WriteXmlAttrWRsidRPr; + property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; + property History read ReadXmlAttrHistory write WriteXmlAttrHistory; + function ReadXmlAttrWRsidRPr(); + function WriteXmlAttrWRsidRPr(_value); + function ReadXmlAttrAnchor(); + function WriteXmlAttrAnchor(_value); + function ReadXmlAttrHistory(); + function WriteXmlAttrHistory(_value); + + // empty property + property Separator read ReadXmlChildSeparator write WriteXmlChildSeparator; + property ContinuationSeparator read ReadXmlChildContinuationSeparator write WriteXmlChildContinuationSeparator; + property LastRenderedPageBreak read ReadXmlChildLastRenderedPageBreak write WriteXmlChildLastRenderedPageBreak; + property FootnoteRef read ReadXmlChildFootnoteRef write WriteXmlChildFootnoteRef; + function ReadXmlChildSeparator(); + function WriteXmlChildSeparator(_value); + function ReadXmlChildContinuationSeparator(); + function WriteXmlChildContinuationSeparator(_value); + function ReadXmlChildLastRenderedPageBreak(); + function WriteXmlChildLastRenderedPageBreak(_value); + function ReadXmlChildFootnoteRef(); + function WriteXmlChildFootnoteRef(_value); + + // normal property + property RPr read ReadXmlChildRPr; + property Br read ReadXmlChildBr; + property FldChar read ReadXmlChildFldChar; + property InstrText read ReadXmlChildInstrText; + property AlternateContent read ReadXmlChildAlternateContent; + property Drawing read ReadXmlChildDrawing; + property T read ReadXmlChildT; + property Object read ReadXmlChildObject; + property FootnoteReference read ReadXmlChildFootnoteReference; + function ReadXmlChildRPr(): RPr; + function ReadXmlChildBr(): Br; + function ReadXmlChildFldChar(): FldChar; + function ReadXmlChildInstrText(): InstrText; + function ReadXmlChildAlternateContent(): AlternateContent; + function ReadXmlChildDrawing(): Drawing; + function ReadXmlChildT(): T; + function ReadXmlChildObject(): Object; + function ReadXmlChildFootnoteReference(): FootnoteReference; + +public + // Attributes + XmlAttrWRsidRPr: OpenXmlAttribute; + XmlAttrAnchor: OpenXmlAttribute; + XmlAttrHistory: OpenXmlAttribute; + + // Children + XmlChildRPr: RPr; + XmlChildBr: Br; + XmlChildFldChar: FldChar; + XmlChildInstrText: InstrText; + XmlChildSeparator: OpenXmlEmpty; + XmlChildContinuationSeparator: OpenXmlEmpty; + XmlChildLastRenderedPageBreak: OpenXmlEmpty; + XmlChildAlternateContent: AlternateContent; + XmlChildDrawing: Drawing; + XmlChildT: T; + XmlChildObject: Object; + XmlChildFootnoteReference: FootnoteReference; + XmlChildFootnoteRef: OpenXmlEmpty; +end; + +type Object = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Object);override; +public + // attributes property + property DxaOrig read ReadXmlAttrDxaOrig write WriteXmlAttrDxaOrig; + property DyaOrig read ReadXmlAttrDyaOrig write WriteXmlAttrDyaOrig; + property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; + function ReadXmlAttrDxaOrig(); + function WriteXmlAttrDxaOrig(_value); + function ReadXmlAttrDyaOrig(); + function WriteXmlAttrDyaOrig(_value); + function ReadXmlAttrAnchorId(); + function WriteXmlAttrAnchorId(_value); + + // normal property + property Shapetype read ReadXmlChildShapetype; + property Shape read ReadXmlChildShape; + property OLEObject read ReadXmlChildOLEObject; + function ReadXmlChildShapetype(): Shapetype; + function ReadXmlChildShape(): Shape; + function ReadXmlChildOLEObject(): OLEObject; + +public + // Attributes + XmlAttrDxaOrig: OpenXmlAttribute; + XmlAttrDyaOrig: OpenXmlAttribute; + XmlAttrAnchorId: OpenXmlAttribute; + + // Children + XmlChildShapetype: Shapetype; + XmlChildShape: Shape; + XmlChildOLEObject: OLEObject; +end; + +type FootnoteReference = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FootnoteReference);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + +end; + +type FldChar = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FldChar);override; +public + // attributes property + property FldCharType read ReadXmlAttrFldCharType write WriteXmlAttrFldCharType; + property FldLock read ReadXmlAttrFldLock write WriteXmlAttrFldLock; + property Dirty read ReadXmlAttrDirty write WriteXmlAttrDirty; + function ReadXmlAttrFldCharType(); + function WriteXmlAttrFldCharType(_value); + function ReadXmlAttrFldLock(); + function WriteXmlAttrFldLock(_value); + function ReadXmlAttrDirty(); + function WriteXmlAttrDirty(_value); + +public + // Attributes + XmlAttrFldCharType: OpenXmlAttribute; + XmlAttrFldLock: OpenXmlAttribute; + XmlAttrDirty: OpenXmlAttribute; + +end; + +type InstrText = class(OpenXmlPcdata) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: InstrText);override; +public + // attributes property + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + +public + // Attributes + XmlAttrSpace: OpenXmlAttribute; + +end; + +type Br = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Br);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + +end; + +type TxbxContent = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TxbxContent);override; +public + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Children +end; + +type Drawing = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Drawing);override; +public + + // normal property + property _Inline read ReadXmlChild_Inline; + property Anchor read ReadXmlChildAnchor; + function ReadXmlChild_Inline(): _Inline; + function ReadXmlChildAnchor(): Anchor; + +public + // Children + XmlChild_Inline: _Inline; + XmlChildAnchor: Anchor; +end; + +type T = class(OpenXmlPcdata) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: T);override; +public + // attributes property + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + +public + // Attributes + XmlAttrSpace: OpenXmlAttribute; + +end; + +type Tbl = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Tbl);override; +public + + // normal property + property TblPr read ReadXmlChildTblPr; + property TblGrid read ReadXmlChildTblGrid; + function ReadXmlChildTblPr(): TblPr; + function ReadXmlChildTblGrid(): TblGrid; + + // multi property + property Trs read ReadTrs; + function ReadTrs(_index); + function AddTr(): Tr; + function AppendTr(): Tr; + +public + // Children + XmlChildTblPr: TblPr; + XmlChildTblGrid: TblGrid; +end; + +type TblPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblPr);override; +public + + // normal property + property Jc read ReadXmlChildJc; + property Shd read ReadXmlChildShd; + property TblStyle read ReadXmlChildTblStyle; + property TblW read ReadXmlChildTblW; + property TblInd read ReadXmlChildTblInd; + property TblLayout read ReadXmlChildTblLayout; + property TblLook read ReadXmlChildTblLook; + property TblBorders read ReadXmlChildTblBorders; + property TblCellMar read ReadXmlChildTblCellMar; + property TblCellSpacing read ReadXmlChildTblCellSpacing; + property TblCaption read ReadXmlChildTblCaption; + property TblDescription read ReadXmlChildTblDescription; + property TblStyleRowBandSize read ReadXmlChildTblStyleRowBandSize; + property TblStyleColBandSize read ReadXmlChildTblStyleColBandSize; + function ReadXmlChildJc(): PureWVal; + function ReadXmlChildShd(): Shd; + function ReadXmlChildTblStyle(): PureWVal; + function ReadXmlChildTblW(): TblW; + function ReadXmlChildTblInd(): TblW; + function ReadXmlChildTblLayout(): TblLayout; + function ReadXmlChildTblLook(): TblLook; + function ReadXmlChildTblBorders(): TblBorders; + function ReadXmlChildTblCellMar(): TblCellMar; + function ReadXmlChildTblCellSpacing(): TblCellSpacing; + function ReadXmlChildTblCaption(): PureWVal; + function ReadXmlChildTblDescription(): PureWVal; + function ReadXmlChildTblStyleRowBandSize(): PureWVal; + function ReadXmlChildTblStyleColBandSize(): PureWVal; + +public + // Children + XmlChildJc: PureWVal; + XmlChildShd: Shd; + XmlChildTblStyle: PureWVal; + XmlChildTblW: TblW; + XmlChildTblInd: TblW; + XmlChildTblLayout: TblLayout; + XmlChildTblLook: TblLook; + XmlChildTblBorders: TblBorders; + XmlChildTblCellMar: TblCellMar; + XmlChildTblCellSpacing: TblCellSpacing; + XmlChildTblCaption: PureWVal; + XmlChildTblDescription: PureWVal; + XmlChildTblStyleRowBandSize: PureWVal; + XmlChildTblStyleColBandSize: PureWVal; +end; + +type TblCellSpacing = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblCellSpacing);override; +public + // attributes property + property W read ReadXmlAttrW write WriteXmlAttrW; + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrW(); + function WriteXmlAttrW(_value); + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + +public + // Attributes + XmlAttrW: OpenXmlAttribute; + XmlAttrType: OpenXmlAttribute; + +end; + +type TblW = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblW);override; +public + // attributes property + property W read ReadXmlAttrW write WriteXmlAttrW; + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrW(); + function WriteXmlAttrW(_value); + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + +public + // Attributes + XmlAttrW: OpenXmlAttribute; + XmlAttrType: OpenXmlAttribute; + +end; + +type TblLayout = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblLayout);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + +end; + +type TblLook = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblLook);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property FirstRow read ReadXmlAttrFirstRow write WriteXmlAttrFirstRow; + property LastRow read ReadXmlAttrLastRow write WriteXmlAttrLastRow; + property FirstColumn read ReadXmlAttrFirstColumn write WriteXmlAttrFirstColumn; + property LastColumn read ReadXmlAttrLastColumn write WriteXmlAttrLastColumn; + property NoHBand read ReadXmlAttrNoHBand write WriteXmlAttrNoHBand; + property NoVBand read ReadXmlAttrNoVBand write WriteXmlAttrNoVBand; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrFirstRow(); + function WriteXmlAttrFirstRow(_value); + function ReadXmlAttrLastRow(); + function WriteXmlAttrLastRow(_value); + function ReadXmlAttrFirstColumn(); + function WriteXmlAttrFirstColumn(_value); + function ReadXmlAttrLastColumn(); + function WriteXmlAttrLastColumn(_value); + function ReadXmlAttrNoHBand(); + function WriteXmlAttrNoHBand(_value); + function ReadXmlAttrNoVBand(); + function WriteXmlAttrNoVBand(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrFirstRow: OpenXmlAttribute; + XmlAttrLastRow: OpenXmlAttribute; + XmlAttrFirstColumn: OpenXmlAttribute; + XmlAttrLastColumn: OpenXmlAttribute; + XmlAttrNoHBand: OpenXmlAttribute; + XmlAttrNoVBand: OpenXmlAttribute; + +end; + +type TblBorders = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblBorders);override; +public + + // normal property + property Top read ReadXmlChildTop; + property Left read ReadXmlChildLeft; + property Bottom read ReadXmlChildBottom; + property Right read ReadXmlChildRight; + property InsideH read ReadXmlChildInsideH; + property InsideV read ReadXmlChildInsideV; + function ReadXmlChildTop(): TblBorder; + function ReadXmlChildLeft(): TblBorder; + function ReadXmlChildBottom(): TblBorder; + function ReadXmlChildRight(): TblBorder; + function ReadXmlChildInsideH(): TblBorder; + function ReadXmlChildInsideV(): TblBorder; + +public + // Children + XmlChildTop: TblBorder; + XmlChildLeft: TblBorder; + XmlChildBottom: TblBorder; + XmlChildRight: TblBorder; + XmlChildInsideH: TblBorder; + XmlChildInsideV: TblBorder; +end; + +type TblBorder = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblBorder);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property Color read ReadXmlAttrColor write WriteXmlAttrColor; + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; + property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; + property Sz read ReadXmlAttrSz write WriteXmlAttrSz; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrColor(); + function WriteXmlAttrColor(_value); + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + function ReadXmlAttrThemeColor(); + function WriteXmlAttrThemeColor(_value); + function ReadXmlAttrThemeTint(); + function WriteXmlAttrThemeTint(_value); + function ReadXmlAttrSz(); + function WriteXmlAttrSz(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrColor: OpenXmlAttribute; + XmlAttrSpace: OpenXmlAttribute; + XmlAttrThemeColor: OpenXmlAttribute; + XmlAttrThemeTint: OpenXmlAttribute; + XmlAttrSz: OpenXmlAttribute; + +end; + +type TblGrid = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblGrid);override; +public + + // multi property + property GridCols read ReadGridCols; + function ReadGridCols(_index); + function AddGridCol(): GridCol; + function AppendGridCol(): GridCol; + +public + // Children +end; + +type GridCol = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: GridCol);override; +public + // attributes property + property w read ReadXmlAttrw write WriteXmlAttrw; + function ReadXmlAttrw(); + function WriteXmlAttrw(_value); + +public + // Attributes + XmlAttrw: OpenXmlAttribute; + +end; + +type Tr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Tr);override; +public + // attributes property + property RsidR read ReadXmlAttrRsidR write WriteXmlAttrRsidR; + property ParaId read ReadXmlAttrParaId write WriteXmlAttrParaId; + property TextId read ReadXmlAttrTextId write WriteXmlAttrTextId; + property RsidTr read ReadXmlAttrRsidTr write WriteXmlAttrRsidTr; + function ReadXmlAttrRsidR(); + function WriteXmlAttrRsidR(_value); + function ReadXmlAttrParaId(); + function WriteXmlAttrParaId(_value); + function ReadXmlAttrTextId(); + function WriteXmlAttrTextId(_value); + function ReadXmlAttrRsidTr(); + function WriteXmlAttrRsidTr(_value); + + // normal property + property TrPr read ReadXmlChildTrPr; + function ReadXmlChildTrPr(): TrPr; + + // multi property + property Tcs read ReadTcs; + function ReadTcs(_index); + function AddTc(): Tc; + function AppendTc(): Tc; + +public + // Attributes + XmlAttrRsidR: OpenXmlAttribute; + XmlAttrParaId: OpenXmlAttribute; + XmlAttrTextId: OpenXmlAttribute; + XmlAttrRsidTr: OpenXmlAttribute; + + // Children + XmlChildTrPr: TrPr; +end; + +type TrPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TrPr);override; +public + + // empty property + property CantSplit read ReadXmlChildCantSplit write WriteXmlChildCantSplit; + function ReadXmlChildCantSplit(); + function WriteXmlChildCantSplit(_value); + + // normal property + property TrHeight read ReadXmlChildTrHeight; + property TblHeader read ReadXmlChildTblHeader; + property Jc read ReadXmlChildJc; + property CnfStyle read ReadXmlChildCnfStyle; + property Ins read ReadXmlChildIns; + function ReadXmlChildTrHeight(): TrHeight; + function ReadXmlChildTblHeader(): PureWVal; + function ReadXmlChildJc(): PureWVal; + function ReadXmlChildCnfStyle(): CnfStyle; + function ReadXmlChildIns(): Ins; + +public + // Children + XmlChildTrHeight: TrHeight; + XmlChildTblHeader: PureWVal; + XmlChildJc: PureWVal; + XmlChildCantSplit: OpenXmlEmpty; + XmlChildCnfStyle: CnfStyle; + XmlChildIns: Ins; +end; + +type Ins = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Ins);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Author read ReadXmlAttrAuthor write WriteXmlAttrAuthor; + property Date read ReadXmlAttrDate write WriteXmlAttrDate; + property DateUtc read ReadXmlAttrDateUtc write WriteXmlAttrDateUtc; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrAuthor(); + function WriteXmlAttrAuthor(_value); + function ReadXmlAttrDate(); + function WriteXmlAttrDate(_value); + function ReadXmlAttrDateUtc(); + function WriteXmlAttrDateUtc(_value); + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + XmlAttrAuthor: OpenXmlAttribute; + XmlAttrDate: OpenXmlAttribute; + XmlAttrDateUtc: OpenXmlAttribute; + + // Children +end; + +type CnfStyle = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CnfStyle);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property FirstRow read ReadXmlAttrFirstRow write WriteXmlAttrFirstRow; + property LastRow read ReadXmlAttrLastRow write WriteXmlAttrLastRow; + property FirstColumn read ReadXmlAttrFirstColumn write WriteXmlAttrFirstColumn; + property LastColumn read ReadXmlAttrLastColumn write WriteXmlAttrLastColumn; + property OddVBand read ReadXmlAttrOddVBand write WriteXmlAttrOddVBand; + property EvenVBand read ReadXmlAttrEvenVBand write WriteXmlAttrEvenVBand; + property OddHBand read ReadXmlAttrOddHBand write WriteXmlAttrOddHBand; + property EvenHBand read ReadXmlAttrEvenHBand write WriteXmlAttrEvenHBand; + property FirstRowFirstColumn read ReadXmlAttrFirstRowFirstColumn write WriteXmlAttrFirstRowFirstColumn; + property FirstRowLastColumn read ReadXmlAttrFirstRowLastColumn write WriteXmlAttrFirstRowLastColumn; + property LastRowFirstColumn read ReadXmlAttrLastRowFirstColumn write WriteXmlAttrLastRowFirstColumn; + property LastRowLastColumn read ReadXmlAttrLastRowLastColumn write WriteXmlAttrLastRowLastColumn; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrFirstRow(); + function WriteXmlAttrFirstRow(_value); + function ReadXmlAttrLastRow(); + function WriteXmlAttrLastRow(_value); + function ReadXmlAttrFirstColumn(); + function WriteXmlAttrFirstColumn(_value); + function ReadXmlAttrLastColumn(); + function WriteXmlAttrLastColumn(_value); + function ReadXmlAttrOddVBand(); + function WriteXmlAttrOddVBand(_value); + function ReadXmlAttrEvenVBand(); + function WriteXmlAttrEvenVBand(_value); + function ReadXmlAttrOddHBand(); + function WriteXmlAttrOddHBand(_value); + function ReadXmlAttrEvenHBand(); + function WriteXmlAttrEvenHBand(_value); + function ReadXmlAttrFirstRowFirstColumn(); + function WriteXmlAttrFirstRowFirstColumn(_value); + function ReadXmlAttrFirstRowLastColumn(); + function WriteXmlAttrFirstRowLastColumn(_value); + function ReadXmlAttrLastRowFirstColumn(); + function WriteXmlAttrLastRowFirstColumn(_value); + function ReadXmlAttrLastRowLastColumn(); + function WriteXmlAttrLastRowLastColumn(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrFirstRow: OpenXmlAttribute; + XmlAttrLastRow: OpenXmlAttribute; + XmlAttrFirstColumn: OpenXmlAttribute; + XmlAttrLastColumn: OpenXmlAttribute; + XmlAttrOddVBand: OpenXmlAttribute; + XmlAttrEvenVBand: OpenXmlAttribute; + XmlAttrOddHBand: OpenXmlAttribute; + XmlAttrEvenHBand: OpenXmlAttribute; + XmlAttrFirstRowFirstColumn: OpenXmlAttribute; + XmlAttrFirstRowLastColumn: OpenXmlAttribute; + XmlAttrLastRowFirstColumn: OpenXmlAttribute; + XmlAttrLastRowLastColumn: OpenXmlAttribute; + +end; + +type TrHeight = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TrHeight);override; +public + // attributes property + property HRule read ReadXmlAttrHRule write WriteXmlAttrHRule; + property val read ReadXmlAttrval write WriteXmlAttrval; + function ReadXmlAttrHRule(); + function WriteXmlAttrHRule(_value); + function ReadXmlAttrval(); + function WriteXmlAttrval(_value); + +public + // Attributes + XmlAttrHRule: OpenXmlAttribute; + XmlAttrval: OpenXmlAttribute; + +end; + +type Tc = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Tc);override; +public + + // normal property + property TcPr read ReadXmlChildTcPr; + function ReadXmlChildTcPr(): TcPr; + + // multi property + property Ps read ReadPs; + property Tbls read ReadTbls; + function ReadPs(_index); + function ReadTbls(_index); + function AddP(): P; + function AddTbl(): Tbl; + function AppendP(): P; + function AppendTbl(): Tbl; + +public + // Children + XmlChildTcPr: TcPr; +end; + +type TcPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TcPr);override; +public + + // empty property + property VMerge read ReadXmlChildVMerge write WriteXmlChildVMerge; + property HideMark read ReadXmlChildHideMark write WriteXmlChildHideMark; + function ReadXmlChildVMerge(); + function WriteXmlChildVMerge(_value); + function ReadXmlChildHideMark(); + function WriteXmlChildHideMark(_value); + + // normal property + property TcW read ReadXmlChildTcW; + property GridSpan read ReadXmlChildGridSpan; + property VAlign read ReadXmlChildVAlign; + property Shd read ReadXmlChildShd; + property TcBorders read ReadXmlChildTcBorders; + function ReadXmlChildTcW(): TblW; + function ReadXmlChildGridSpan(): GridSpan; + function ReadXmlChildVAlign(): PureWVal; + function ReadXmlChildShd(): Shd; + function ReadXmlChildTcBorders(): TcBorders; + +public + // Children + XmlChildTcW: TblW; + XmlChildGridSpan: GridSpan; + XmlChildVMerge: OpenXmlEmpty; + XmlChildVAlign: PureWVal; + XmlChildHideMark: OpenXmlEmpty; + XmlChildShd: Shd; + XmlChildTcBorders: TcBorders; +end; + +type TcBorders = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TcBorders);override; +public + + // normal property + property Top read ReadXmlChildTop; + property Left read ReadXmlChildLeft; + property Bottom read ReadXmlChildBottom; + property Right read ReadXmlChildRight; + property Tl2Br read ReadXmlChildTl2Br; + property Tr2Bl read ReadXmlChildTr2Bl; + property InsideH read ReadXmlChildInsideH; + property InsideV read ReadXmlChildInsideV; + function ReadXmlChildTop(): TcBorder; + function ReadXmlChildLeft(): TcBorder; + function ReadXmlChildBottom(): TcBorder; + function ReadXmlChildRight(): TcBorder; + function ReadXmlChildTl2Br(): TcBorder; + function ReadXmlChildTr2Bl(): TcBorder; + function ReadXmlChildInsideH(): TcBorder; + function ReadXmlChildInsideV(): TcBorder; + +public + // Children + XmlChildTop: TcBorder; + XmlChildLeft: TcBorder; + XmlChildBottom: TcBorder; + XmlChildRight: TcBorder; + XmlChildTl2Br: TcBorder; + XmlChildTr2Bl: TcBorder; + XmlChildInsideH: TcBorder; + XmlChildInsideV: TcBorder; +end; + +type TcBorder = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TcBorder);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property Color read ReadXmlAttrColor write WriteXmlAttrColor; + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor; + property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint; + property Sz read ReadXmlAttrSz write WriteXmlAttrSz; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrColor(); + function WriteXmlAttrColor(_value); + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + function ReadXmlAttrThemeColor(); + function WriteXmlAttrThemeColor(_value); + function ReadXmlAttrThemeTint(); + function WriteXmlAttrThemeTint(_value); + function ReadXmlAttrSz(); + function WriteXmlAttrSz(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrColor: OpenXmlAttribute; + XmlAttrSpace: OpenXmlAttribute; + XmlAttrThemeColor: OpenXmlAttribute; + XmlAttrThemeTint: OpenXmlAttribute; + XmlAttrSz: OpenXmlAttribute; + +end; + +type GridSpan = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: GridSpan);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + +end; + +type Shd = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Shd);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property Color read ReadXmlAttrColor write WriteXmlAttrColor; + property Fill read ReadXmlAttrFill write WriteXmlAttrFill; + property ThemeFill read ReadXmlAttrThemeFill write WriteXmlAttrThemeFill; + property ThemeFillTint read ReadXmlAttrThemeFillTint write WriteXmlAttrThemeFillTint; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrColor(); + function WriteXmlAttrColor(_value); + function ReadXmlAttrFill(); + function WriteXmlAttrFill(_value); + function ReadXmlAttrThemeFill(); + function WriteXmlAttrThemeFill(_value); + function ReadXmlAttrThemeFillTint(); + function WriteXmlAttrThemeFillTint(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrColor: OpenXmlAttribute; + XmlAttrFill: OpenXmlAttribute; + XmlAttrThemeFill: OpenXmlAttribute; + XmlAttrThemeFillTint: OpenXmlAttribute; + +end; + +type Sdt = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Sdt);override; +public + + // normal property + property SdtPr read ReadXmlChildSdtPr; + property SdtEndPr read ReadXmlChildSdtEndPr; + property SdtContent read ReadXmlChildSdtContent; + function ReadXmlChildSdtPr(): SdtPr; + function ReadXmlChildSdtEndPr(): SdtEndPr; + function ReadXmlChildSdtContent(): SdtContent; + +public + // Children + XmlChildSdtPr: SdtPr; + XmlChildSdtEndPr: SdtEndPr; + XmlChildSdtContent: SdtContent; +end; + +type SdtPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SdtPr);override; +public + + // normal property + property RPr read ReadXmlChildRPr; + property Id read ReadXmlChildId; + property DocPartObj read ReadXmlChildDocPartObj; + function ReadXmlChildRPr(): RPr; + function ReadXmlChildId(): PureWVal; + function ReadXmlChildDocPartObj(): DocPartObj; + +public + // Children + XmlChildRPr: RPr; + XmlChildId: PureWVal; + XmlChildDocPartObj: DocPartObj; +end; + +type DocPartObj = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: DocPartObj);override; +public + + // normal property + property DocPartGallery read ReadXmlChildDocPartGallery; + property DocPartUnique read ReadXmlChildDocPartUnique; + function ReadXmlChildDocPartGallery(): PureWVal; + function ReadXmlChildDocPartUnique(): PureVal; + +public + // Children + XmlChildDocPartGallery: PureWVal; + XmlChildDocPartUnique: PureVal; +end; + +type SdtEndPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SdtEndPr);override; +public + + // normal property + property RPr read ReadXmlChildRPr; + function ReadXmlChildRPr(): RPr; + +public + // Children + XmlChildRPr: RPr; +end; + +type SdtContent = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SdtContent);override; +public + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Children +end; + +type SectPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SectPr);override; +public + // attributes property + property RsidR read ReadXmlAttrRsidR write WriteXmlAttrRsidR; + property RsidSect read ReadXmlAttrRsidSect write WriteXmlAttrRsidSect; + function ReadXmlAttrRsidR(); + function WriteXmlAttrRsidR(_value); + function ReadXmlAttrRsidSect(); + function WriteXmlAttrRsidSect(_value); + + // empty property + property TitlePg read ReadXmlChildTitlePg write WriteXmlChildTitlePg; + function ReadXmlChildTitlePg(); + function WriteXmlChildTitlePg(_value); + + // normal property + property FootnotePr read ReadXmlChildFootnotePr; + property EndnotePr read ReadXmlChildEndnotePr; + property Type read ReadXmlChildType; + property PgSz read ReadXmlChildPgSz; + property PgMar read ReadXmlChildPgMar; + property PgNumType read ReadXmlChildPgNumType; + property Cols read ReadXmlChildCols; + property DocGrid read ReadXmlChildDocGrid; + function ReadXmlChildFootnotePr(): FootnotePr; + function ReadXmlChildEndnotePr(): EndnotePr; + function ReadXmlChildType(): PureWVal; + function ReadXmlChildPgSz(): PgSz; + function ReadXmlChildPgMar(): PgMar; + function ReadXmlChildPgNumType(): PgNumType; + function ReadXmlChildCols(): Cols; + function ReadXmlChildDocGrid(): DocGrid; + + // multi property + property HeaderReferences read ReadHeaderReferences; + property FooterReferences read ReadFooterReferences; + function ReadHeaderReferences(_index); + function ReadFooterReferences(_index); + function AddHeaderReference(): Reference; + function AddFooterReference(): Reference; + function AppendHeaderReference(): Reference; + function AppendFooterReference(): Reference; + +public + // Attributes + XmlAttrRsidR: OpenXmlAttribute; + XmlAttrRsidSect: OpenXmlAttribute; + + // Children + XmlChildFootnotePr: FootnotePr; + XmlChildEndnotePr: EndnotePr; + XmlChildType: PureWVal; + XmlChildPgSz: PgSz; + XmlChildPgMar: PgMar; + XmlChildPgNumType: PgNumType; + XmlChildCols: Cols; + XmlChildTitlePg: OpenXmlEmpty; + XmlChildDocGrid: DocGrid; +end; + +type Reference = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Reference);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + +end; + +type PgNumType = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PgNumType);override; +public + // attributes property + property Start read ReadXmlAttrStart write WriteXmlAttrStart; + function ReadXmlAttrStart(); + function WriteXmlAttrStart(_value); + +public + // Attributes + XmlAttrStart: OpenXmlAttribute; + +end; + +type PgSz = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PgSz);override; +public + // attributes property + property W read ReadXmlAttrW write WriteXmlAttrW; + property H read ReadXmlAttrH write WriteXmlAttrH; + property Orient read ReadXmlAttrOrient write WriteXmlAttrOrient; + property Code read ReadXmlAttrCode write WriteXmlAttrCode; + function ReadXmlAttrW(); + function WriteXmlAttrW(_value); + function ReadXmlAttrH(); + function WriteXmlAttrH(_value); + function ReadXmlAttrOrient(); + function WriteXmlAttrOrient(_value); + function ReadXmlAttrCode(); + function WriteXmlAttrCode(_value); + +public + // Attributes + XmlAttrW: OpenXmlAttribute; + XmlAttrH: OpenXmlAttribute; + XmlAttrOrient: OpenXmlAttribute; + XmlAttrCode: OpenXmlAttribute; + +end; + +type PgMar = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PgMar);override; +public + // attributes property + property Top read ReadXmlAttrTop write WriteXmlAttrTop; + property Right read ReadXmlAttrRight write WriteXmlAttrRight; + property Bottom read ReadXmlAttrBottom write WriteXmlAttrBottom; + property Left read ReadXmlAttrLeft write WriteXmlAttrLeft; + property Header read ReadXmlAttrHeader write WriteXmlAttrHeader; + property Footer read ReadXmlAttrFooter write WriteXmlAttrFooter; + property Gutter read ReadXmlAttrGutter write WriteXmlAttrGutter; + function ReadXmlAttrTop(); + function WriteXmlAttrTop(_value); + function ReadXmlAttrRight(); + function WriteXmlAttrRight(_value); + function ReadXmlAttrBottom(); + function WriteXmlAttrBottom(_value); + function ReadXmlAttrLeft(); + function WriteXmlAttrLeft(_value); + function ReadXmlAttrHeader(); + function WriteXmlAttrHeader(_value); + function ReadXmlAttrFooter(); + function WriteXmlAttrFooter(_value); + function ReadXmlAttrGutter(); + function WriteXmlAttrGutter(_value); + +public + // Attributes + XmlAttrTop: OpenXmlAttribute; + XmlAttrRight: OpenXmlAttribute; + XmlAttrBottom: OpenXmlAttribute; + XmlAttrLeft: OpenXmlAttribute; + XmlAttrHeader: OpenXmlAttribute; + XmlAttrFooter: OpenXmlAttribute; + XmlAttrGutter: OpenXmlAttribute; + +end; + +type Cols = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Cols);override; +public + // attributes property + property Num read ReadXmlAttrNum write WriteXmlAttrNum; + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + property EqualWidth read ReadXmlAttrEqualWidth write WriteXmlAttrEqualWidth; + function ReadXmlAttrNum(); + function WriteXmlAttrNum(_value); + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + function ReadXmlAttrEqualWidth(); + function WriteXmlAttrEqualWidth(_value); + + // multi property + property Cols read ReadCols; + function ReadCols(_index); + function AddCol(): Col; + function AppendCol(): Col; + +public + // Attributes + XmlAttrNum: OpenXmlAttribute; + XmlAttrSpace: OpenXmlAttribute; + XmlAttrEqualWidth: OpenXmlAttribute; + + // Children +end; + +type Col = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Col);override; +public + // attributes property + property W read ReadXmlAttrW write WriteXmlAttrW; + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + function ReadXmlAttrW(); + function WriteXmlAttrW(_value); + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + +public + // Attributes + XmlAttrW: OpenXmlAttribute; + XmlAttrSpace: OpenXmlAttribute; + +end; + +type DocGrid = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: DocGrid);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + property LinePitch read ReadXmlAttrLinePitch write WriteXmlAttrLinePitch; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrLinePitch(); + function WriteXmlAttrLinePitch(_value); + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + XmlAttrLinePitch: OpenXmlAttribute; + +end; + +type Endnotes = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Endnotes);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // multi property + property Endnotes read ReadEndnotes; + function ReadEndnotes(_index); + function AddEndnote(): Endnote; + function AppendEndnote(): Endnote; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children +end; + +type Endnote = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Endnote);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + + // Children +end; + +type Footnotes = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Footnotes);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // multi property + property Footnotes read ReadFootnotes; + function ReadFootnotes(_index); + function AddFootnote(): Footnote; + function AppendFootnote(): Footnote; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children +end; + +type Footnote = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Footnote);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + + // Children +end; + +type Fonts = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Fonts);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // multi property + property Fonts read ReadFonts; + function ReadFonts(_index); + function AddFont(): Font; + function AppendFont(): Font; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children +end; + +type Font = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Font);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + + // normal property + property AltName read ReadXmlChildAltName; + property Panosel read ReadXmlChildPanosel; + property Charset read ReadXmlChildCharset; + property Family read ReadXmlChildFamily; + property Pitch read ReadXmlChildPitch; + property Sig read ReadXmlChildSig; + function ReadXmlChildAltName(): PureWVal; + function ReadXmlChildPanosel(): PureWVal; + function ReadXmlChildCharset(): PureWVal; + function ReadXmlChildFamily(): PureWVal; + function ReadXmlChildPitch(): PureWVal; + function ReadXmlChildSig(): Sig; + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + + // Children + XmlChildAltName: PureWVal; + XmlChildPanosel: PureWVal; + XmlChildCharset: PureWVal; + XmlChildFamily: PureWVal; + XmlChildPitch: PureWVal; + XmlChildSig: Sig; +end; + +type Sig = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Sig);override; +public + // attributes property + property Usb0 read ReadXmlAttrUsb0 write WriteXmlAttrUsb0; + property Usb1 read ReadXmlAttrUsb1 write WriteXmlAttrUsb1; + property Usb2 read ReadXmlAttrUsb2 write WriteXmlAttrUsb2; + property Usb3 read ReadXmlAttrUsb3 write WriteXmlAttrUsb3; + property csb0 read ReadXmlAttrcsb0 write WriteXmlAttrcsb0; + property csb1 read ReadXmlAttrcsb1 write WriteXmlAttrcsb1; + function ReadXmlAttrUsb0(); + function WriteXmlAttrUsb0(_value); + function ReadXmlAttrUsb1(); + function WriteXmlAttrUsb1(_value); + function ReadXmlAttrUsb2(); + function WriteXmlAttrUsb2(_value); + function ReadXmlAttrUsb3(); + function WriteXmlAttrUsb3(_value); + function ReadXmlAttrcsb0(); + function WriteXmlAttrcsb0(_value); + function ReadXmlAttrcsb1(); + function WriteXmlAttrcsb1(_value); + +public + // Attributes + XmlAttrUsb0: OpenXmlAttribute; + XmlAttrUsb1: OpenXmlAttribute; + XmlAttrUsb2: OpenXmlAttribute; + XmlAttrUsb3: OpenXmlAttribute; + XmlAttrcsb0: OpenXmlAttribute; + XmlAttrcsb1: OpenXmlAttribute; + +end; + +type Settings = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Settings);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // empty property + property BordersDoNotSurroundHeader read ReadXmlChildBordersDoNotSurroundHeader write WriteXmlChildBordersDoNotSurroundHeader; + property BordersDoNotSurroundFooter read ReadXmlChildBordersDoNotSurroundFooter write WriteXmlChildBordersDoNotSurroundFooter; + property EvenAndOddHeaders read ReadXmlChildEvenAndOddHeaders write WriteXmlChildEvenAndOddHeaders; + property DoNotIncludeSubdocsInStats read ReadXmlChildDoNotIncludeSubdocsInStats write WriteXmlChildDoNotIncludeSubdocsInStats; + property ChartTrackingRefBased read ReadXmlChildChartTrackingRefBased write WriteXmlChildChartTrackingRefBased; + function ReadXmlChildBordersDoNotSurroundHeader(); + function WriteXmlChildBordersDoNotSurroundHeader(_value); + function ReadXmlChildBordersDoNotSurroundFooter(); + function WriteXmlChildBordersDoNotSurroundFooter(_value); + function ReadXmlChildEvenAndOddHeaders(); + function WriteXmlChildEvenAndOddHeaders(_value); + function ReadXmlChildDoNotIncludeSubdocsInStats(); + function WriteXmlChildDoNotIncludeSubdocsInStats(_value); + function ReadXmlChildChartTrackingRefBased(); + function WriteXmlChildChartTrackingRefBased(_value); + + // normal property + property Zoom read ReadXmlChildZoom; + property DefaultTabStop read ReadXmlChildDefaultTabStop; + property DrawingGridVerticalSpacing read ReadXmlChildDrawingGridVerticalSpacing; + property DisplayHorizontalDrawingGridEvery read ReadXmlChildDisplayHorizontalDrawingGridEvery; + property DisplayVerticalDrawingGridEvery read ReadXmlChildDisplayVerticalDrawingGridEvery; + property CharacterSpacingControl read ReadXmlChildCharacterSpacingControl; + property HdrShapeDefaults read ReadXmlChildHdrShapeDefaults; + property FootnotePr read ReadXmlChildFootnotePr; + property EndnotePr read ReadXmlChildEndnotePr; + property Compat read ReadXmlChildCompat; + property Rsids read ReadXmlChildRsids; + property MathPr read ReadXmlChildMathPr; + property ThemeFontLang read ReadXmlChildThemeFontLang; + property ClrSchemeMapping read ReadXmlChildClrSchemeMapping; + property ShapeDefaults read ReadXmlChildShapeDefaults; + property DecimalSymbol read ReadXmlChildDecimalSymbol; + property ListSeparator read ReadXmlChildListSeparator; + property DocId read ReadXmlChildDocId; + property W14DocId read ReadXmlChildW14DocId; + property W15DocId read ReadXmlChildW15DocId; + function ReadXmlChildZoom(): Zoom; + function ReadXmlChildDefaultTabStop(): PureWVal; + function ReadXmlChildDrawingGridVerticalSpacing(): PureWVal; + function ReadXmlChildDisplayHorizontalDrawingGridEvery(): PureWVal; + function ReadXmlChildDisplayVerticalDrawingGridEvery(): PureWVal; + function ReadXmlChildCharacterSpacingControl(): PureWVal; + function ReadXmlChildHdrShapeDefaults(): HdrShapeDefaults; + function ReadXmlChildFootnotePr(): FootnotePr; + function ReadXmlChildEndnotePr(): EndnotePr; + function ReadXmlChildCompat(): Compat; + function ReadXmlChildRsids(): Rsids; + function ReadXmlChildMathPr(): MathPr; + function ReadXmlChildThemeFontLang(): ThemeFontLang; + function ReadXmlChildClrSchemeMapping(): ClrSchemeMapping; + function ReadXmlChildShapeDefaults(): ShapeDefaults2; + function ReadXmlChildDecimalSymbol(): PureWVal; + function ReadXmlChildListSeparator(): PureWVal; + function ReadXmlChildDocId(_ns: string): PureWVal; + function ReadXmlChildW14DocId(): PureWVal; + function ReadXmlChildW15DocId(): PureWVal; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children + XmlChildZoom: Zoom; + XmlChildBordersDoNotSurroundHeader: OpenXmlEmpty; + XmlChildBordersDoNotSurroundFooter: OpenXmlEmpty; + XmlChildDefaultTabStop: PureWVal; + XmlChildEvenAndOddHeaders: OpenXmlEmpty; + XmlChildDrawingGridVerticalSpacing: PureWVal; + XmlChildDisplayHorizontalDrawingGridEvery: PureWVal; + XmlChildDisplayVerticalDrawingGridEvery: PureWVal; + XmlChildCharacterSpacingControl: PureWVal; + XmlChildHdrShapeDefaults: HdrShapeDefaults; + XmlChildFootnotePr: FootnotePr; + XmlChildEndnotePr: EndnotePr; + XmlChildCompat: Compat; + XmlChildRsids: Rsids; + XmlChildMathPr: MathPr; + XmlChildThemeFontLang: ThemeFontLang; + XmlChildClrSchemeMapping: ClrSchemeMapping; + XmlChildDoNotIncludeSubdocsInStats: OpenXmlEmpty; + XmlChildShapeDefaults: ShapeDefaults2; + XmlChildDecimalSymbol: PureWVal; + XmlChildListSeparator: PureWVal; + XmlChildDocId: PureWVal; + XmlChildW14DocId: PureWVal; + XmlChildW15DocId: PureWVal; + XmlChildChartTrackingRefBased: OpenXmlEmpty; +end; + +type Zoom = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Zoom);override; +public + // attributes property + property Percent read ReadXmlAttrPercent write WriteXmlAttrPercent; + function ReadXmlAttrPercent(); + function WriteXmlAttrPercent(_value); + +public + // Attributes + XmlAttrPercent: OpenXmlAttribute; + +end; + +type HdrShapeDefaults = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: HdrShapeDefaults);override; +public + + // normal property + property ShapeDefaults read ReadXmlChildShapeDefaults; + function ReadXmlChildShapeDefaults(): ShapeDefaults; + +public + // Children + XmlChildShapeDefaults: ShapeDefaults; +end; + +type ShapeDefaults = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ShapeDefaults);override; +public + // attributes property + property Ext read ReadXmlAttrExt write WriteXmlAttrExt; + property Spidmax read ReadXmlAttrSpidmax write WriteXmlAttrSpidmax; + function ReadXmlAttrExt(); + function WriteXmlAttrExt(_value); + function ReadXmlAttrSpidmax(); + function WriteXmlAttrSpidmax(_value); + +public + // Attributes + XmlAttrExt: OpenXmlAttribute; + XmlAttrSpidmax: OpenXmlAttribute; + +end; + +type FootnotePr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FootnotePr);override; +public + + // normal property + property Pos read ReadXmlChildPos; + property NumFmt read ReadXmlChildNumFmt; + property NumStart read ReadXmlChildNumStart; + function ReadXmlChildPos(): PureWVal; + function ReadXmlChildNumFmt(): PureWVal; + function ReadXmlChildNumStart(): PureWVal; + + // multi property + property Footnotes read ReadFootnotes; + function ReadFootnotes(_index); + function AddFootnote(): Footnote; + function AppendFootnote(): Footnote; + +public + // Children + XmlChildPos: PureWVal; + XmlChildNumFmt: PureWVal; + XmlChildNumStart: PureWVal; +end; + +type EndnotePr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: EndnotePr);override; +public + + // normal property + property Pos read ReadXmlChildPos; + property NumFmt read ReadXmlChildNumFmt; + property NumStart read ReadXmlChildNumStart; + function ReadXmlChildPos(): PureWVal; + function ReadXmlChildNumFmt(): PureWVal; + function ReadXmlChildNumStart(): PureWVal; + + // multi property + property Endnotes read ReadEndnotes; + function ReadEndnotes(_index); + function AddEndnote(): Endnote; + function AppendEndnote(): Endnote; + +public + // Children + XmlChildPos: PureWVal; + XmlChildNumFmt: PureWVal; + XmlChildNumStart: PureWVal; +end; + +type Compat = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Compat);override; +public + + // empty property + property SpaceForUL read ReadXmlChildSpaceForUL write WriteXmlChildSpaceForUL; + property BalanceSingleByteDoubleByteWidth read ReadXmlChildBalanceSingleByteDoubleByteWidth write WriteXmlChildBalanceSingleByteDoubleByteWidth; + property DoNotLeaveBackslashAlone read ReadXmlChildDoNotLeaveBackslashAlone write WriteXmlChildDoNotLeaveBackslashAlone; + property UlTrailSpace read ReadXmlChildUlTrailSpace write WriteXmlChildUlTrailSpace; + property DoNotExpandShiftReturn read ReadXmlChildDoNotExpandShiftReturn write WriteXmlChildDoNotExpandShiftReturn; + property AdjustLineHeightInTable read ReadXmlChildAdjustLineHeightInTable write WriteXmlChildAdjustLineHeightInTable; + property UseFELayout read ReadXmlChildUseFELayout write WriteXmlChildUseFELayout; + property CompatSetting read ReadXmlChildCompatSetting write WriteXmlChildCompatSetting; + function ReadXmlChildSpaceForUL(); + function WriteXmlChildSpaceForUL(_value); + function ReadXmlChildBalanceSingleByteDoubleByteWidth(); + function WriteXmlChildBalanceSingleByteDoubleByteWidth(_value); + function ReadXmlChildDoNotLeaveBackslashAlone(); + function WriteXmlChildDoNotLeaveBackslashAlone(_value); + function ReadXmlChildUlTrailSpace(); + function WriteXmlChildUlTrailSpace(_value); + function ReadXmlChildDoNotExpandShiftReturn(); + function WriteXmlChildDoNotExpandShiftReturn(_value); + function ReadXmlChildAdjustLineHeightInTable(); + function WriteXmlChildAdjustLineHeightInTable(_value); + function ReadXmlChildUseFELayout(); + function WriteXmlChildUseFELayout(_value); + function ReadXmlChildCompatSetting(); + function WriteXmlChildCompatSetting(_value); + + // multi property + property CompatSettings read ReadCompatSettings; + function ReadCompatSettings(_index); + function AddCompatSetting(): CompatSetting; + function AppendCompatSetting(): CompatSetting; + +public + // Children + XmlChildSpaceForUL: OpenXmlEmpty; + XmlChildBalanceSingleByteDoubleByteWidth: OpenXmlEmpty; + XmlChildDoNotLeaveBackslashAlone: OpenXmlEmpty; + XmlChildUlTrailSpace: OpenXmlEmpty; + XmlChildDoNotExpandShiftReturn: OpenXmlEmpty; + XmlChildAdjustLineHeightInTable: OpenXmlEmpty; + XmlChildUseFELayout: OpenXmlEmpty; +end; + +type CompatSetting = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CompatSetting);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + property Uri read ReadXmlAttrUri write WriteXmlAttrUri; + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + function ReadXmlAttrUri(); + function WriteXmlAttrUri(_value); + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + XmlAttrUri: OpenXmlAttribute; + XmlAttrVal: OpenXmlAttribute; + +end; + +type Rsids = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Rsids);override; +public + + // normal property + property RsidRoot read ReadXmlChildRsidRoot; + function ReadXmlChildRsidRoot(): PureWVal; + + // multi property + property Rsids read ReadRsids; + function ReadRsids(_index); + function AddRsid(): PureWVal; + function AppendRsid(): PureWVal; + +public + // Children + XmlChildRsidRoot: PureWVal; +end; + +type ThemeFontLang = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ThemeFontLang);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrEastAsia(); + function WriteXmlAttrEastAsia(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrEastAsia: OpenXmlAttribute; + +end; + +type ClrSchemeMapping = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ClrSchemeMapping);override; +public + // attributes property + property Bg1 read ReadXmlAttrBg1 write WriteXmlAttrBg1; + property T1 read ReadXmlAttrT1 write WriteXmlAttrT1; + property Bg2 read ReadXmlAttrBg2 write WriteXmlAttrBg2; + property T2 read ReadXmlAttrT2 write WriteXmlAttrT2; + property Accent1 read ReadXmlAttrAccent1 write WriteXmlAttrAccent1; + property Accent2 read ReadXmlAttrAccent2 write WriteXmlAttrAccent2; + property Accent3 read ReadXmlAttrAccent3 write WriteXmlAttrAccent3; + property Accent4 read ReadXmlAttrAccent4 write WriteXmlAttrAccent4; + property Accent5 read ReadXmlAttrAccent5 write WriteXmlAttrAccent5; + property Accent6 read ReadXmlAttrAccent6 write WriteXmlAttrAccent6; + property HyperLink read ReadXmlAttrHyperLink write WriteXmlAttrHyperLink; + property FollowedHyperlink read ReadXmlAttrFollowedHyperlink write WriteXmlAttrFollowedHyperlink; + function ReadXmlAttrBg1(); + function WriteXmlAttrBg1(_value); + function ReadXmlAttrT1(); + function WriteXmlAttrT1(_value); + function ReadXmlAttrBg2(); + function WriteXmlAttrBg2(_value); + function ReadXmlAttrT2(); + function WriteXmlAttrT2(_value); + function ReadXmlAttrAccent1(); + function WriteXmlAttrAccent1(_value); + function ReadXmlAttrAccent2(); + function WriteXmlAttrAccent2(_value); + function ReadXmlAttrAccent3(); + function WriteXmlAttrAccent3(_value); + function ReadXmlAttrAccent4(); + function WriteXmlAttrAccent4(_value); + function ReadXmlAttrAccent5(); + function WriteXmlAttrAccent5(_value); + function ReadXmlAttrAccent6(); + function WriteXmlAttrAccent6(_value); + function ReadXmlAttrHyperLink(); + function WriteXmlAttrHyperLink(_value); + function ReadXmlAttrFollowedHyperlink(); + function WriteXmlAttrFollowedHyperlink(_value); + +public + // Attributes + XmlAttrBg1: OpenXmlAttribute; + XmlAttrT1: OpenXmlAttribute; + XmlAttrBg2: OpenXmlAttribute; + XmlAttrT2: OpenXmlAttribute; + XmlAttrAccent1: OpenXmlAttribute; + XmlAttrAccent2: OpenXmlAttribute; + XmlAttrAccent3: OpenXmlAttribute; + XmlAttrAccent4: OpenXmlAttribute; + XmlAttrAccent5: OpenXmlAttribute; + XmlAttrAccent6: OpenXmlAttribute; + XmlAttrHyperLink: OpenXmlAttribute; + XmlAttrFollowedHyperlink: OpenXmlAttribute; + +end; + +type ShapeDefaults2 = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ShapeDefaults2);override; +public + + // normal property + property ShapeDefaults read ReadXmlChildShapeDefaults; + property ShapeLayout read ReadXmlChildShapeLayout; + function ReadXmlChildShapeDefaults(): ShapeDefaults; + function ReadXmlChildShapeLayout(): ShapeLayout; + +public + // Children + XmlChildShapeDefaults: ShapeDefaults; + XmlChildShapeLayout: ShapeLayout; +end; + +type ShapeLayout = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ShapeLayout);override; +public + // attributes property + property Ext read ReadXmlAttrExt write WriteXmlAttrExt; + function ReadXmlAttrExt(); + function WriteXmlAttrExt(_value); + + // normal property + property IdMap read ReadXmlChildIdMap; + function ReadXmlChildIdMap(): IdMap; + +public + // Attributes + XmlAttrExt: OpenXmlAttribute; + + // Children + XmlChildIdMap: IdMap; +end; + +type IdMap = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: IdMap);override; +public + // attributes property + property Ext read ReadXmlAttrExt write WriteXmlAttrExt; + property Data read ReadXmlAttrData write WriteXmlAttrData; + function ReadXmlAttrExt(); + function WriteXmlAttrExt(_value); + function ReadXmlAttrData(); + function WriteXmlAttrData(_value); + +public + // Attributes + XmlAttrExt: OpenXmlAttribute; + XmlAttrData: OpenXmlAttribute; + +end; + +type Styles = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Styles);override; +public + // attributes property + property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; + function ReadXmlAttrMcIgnorable(); + function WriteXmlAttrMcIgnorable(_value); + + // normal property + property DocDefaults read ReadXmlChildDocDefaults; + property LatenStyles read ReadXmlChildLatenStyles; + function ReadXmlChildDocDefaults(): DocDefaults; + function ReadXmlChildLatenStyles(): LatenStyles; + + // multi property + property Styles read ReadStyles; + function ReadStyles(_index); + function AddStyle(): Style; + function AppendStyle(): Style; + +public + // Attributes + XmlAttrMcIgnorable: OpenXmlAttribute; + + // Children + XmlChildDocDefaults: DocDefaults; + XmlChildLatenStyles: LatenStyles; +end; + +type DocDefaults = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: DocDefaults);override; +public + + // normal property + property RPrDefault read ReadXmlChildRPrDefault; + property PPrDefault read ReadXmlChildPPrDefault; + function ReadXmlChildRPrDefault(): RPrDefault; + function ReadXmlChildPPrDefault(): PPrDefault; + +public + // Children + XmlChildRPrDefault: RPrDefault; + XmlChildPPrDefault: PPrDefault; +end; + +type RPrDefault = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: RPrDefault);override; +public + + // normal property + property RPr read ReadXmlChildRPr; + function ReadXmlChildRPr(): RPr; + +public + // Children + XmlChildRPr: RPr; +end; + +type PPrDefault = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PPrDefault);override; +public + + // normal property + property PPr read ReadXmlChildPPr; + function ReadXmlChildPPr(): PPr; + +public + // Children + XmlChildPPr: PPr; +end; + +type LatenStyles = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: LatenStyles);override; +public + // attributes property + property DefLickedState read ReadXmlAttrDefLickedState write WriteXmlAttrDefLickedState; + property DefUIPriority read ReadXmlAttrDefUIPriority write WriteXmlAttrDefUIPriority; + property DefSemiHidden read ReadXmlAttrDefSemiHidden write WriteXmlAttrDefSemiHidden; + property DefUnhideWhenUsed read ReadXmlAttrDefUnhideWhenUsed write WriteXmlAttrDefUnhideWhenUsed; + property DefQFormat read ReadXmlAttrDefQFormat write WriteXmlAttrDefQFormat; + property Count read ReadXmlAttrCount write WriteXmlAttrCount; + function ReadXmlAttrDefLickedState(); + function WriteXmlAttrDefLickedState(_value); + function ReadXmlAttrDefUIPriority(); + function WriteXmlAttrDefUIPriority(_value); + function ReadXmlAttrDefSemiHidden(); + function WriteXmlAttrDefSemiHidden(_value); + function ReadXmlAttrDefUnhideWhenUsed(); + function WriteXmlAttrDefUnhideWhenUsed(_value); + function ReadXmlAttrDefQFormat(); + function WriteXmlAttrDefQFormat(_value); + function ReadXmlAttrCount(); + function WriteXmlAttrCount(_value); + + // multi property + property LsdExceptions read ReadLsdExceptions; + function ReadLsdExceptions(_index); + function AddLsdException(): LsdException; + function AppendLsdException(): LsdException; + +public + // Attributes + XmlAttrDefLickedState: OpenXmlAttribute; + XmlAttrDefUIPriority: OpenXmlAttribute; + XmlAttrDefSemiHidden: OpenXmlAttribute; + XmlAttrDefUnhideWhenUsed: OpenXmlAttribute; + XmlAttrDefQFormat: OpenXmlAttribute; + XmlAttrCount: OpenXmlAttribute; + + // Children +end; + +type LsdException = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: LsdException);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + property UIPriority read ReadXmlAttrUIPriority write WriteXmlAttrUIPriority; + property SemiHidden read ReadXmlAttrSemiHidden write WriteXmlAttrSemiHidden; + property UnhideWhenUsed read ReadXmlAttrUnhideWhenUsed write WriteXmlAttrUnhideWhenUsed; + property QFormat read ReadXmlAttrQFormat write WriteXmlAttrQFormat; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + function ReadXmlAttrUIPriority(); + function WriteXmlAttrUIPriority(_value); + function ReadXmlAttrSemiHidden(); + function WriteXmlAttrSemiHidden(_value); + function ReadXmlAttrUnhideWhenUsed(); + function WriteXmlAttrUnhideWhenUsed(_value); + function ReadXmlAttrQFormat(); + function WriteXmlAttrQFormat(_value); + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + XmlAttrUIPriority: OpenXmlAttribute; + XmlAttrSemiHidden: OpenXmlAttribute; + XmlAttrUnhideWhenUsed: OpenXmlAttribute; + XmlAttrQFormat: OpenXmlAttribute; + +end; + +type Style = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Style);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + property Default read ReadXmlAttrDefault write WriteXmlAttrDefault; + property StyleId read ReadXmlAttrStyleId write WriteXmlAttrStyleId; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrDefault(); + function WriteXmlAttrDefault(_value); + function ReadXmlAttrStyleId(); + function WriteXmlAttrStyleId(_value); + + // empty property + property SemiHidden read ReadXmlChildSemiHidden write WriteXmlChildSemiHidden; + property UnhideWhenUsed read ReadXmlChildUnhideWhenUsed write WriteXmlChildUnhideWhenUsed; + property QFormat read ReadXmlChildQFormat write WriteXmlChildQFormat; + property Rsid read ReadXmlChildRsid write WriteXmlChildRsid; + function ReadXmlChildSemiHidden(); + function WriteXmlChildSemiHidden(_value); + function ReadXmlChildUnhideWhenUsed(); + function WriteXmlChildUnhideWhenUsed(_value); + function ReadXmlChildQFormat(); + function WriteXmlChildQFormat(_value); + function ReadXmlChildRsid(); + function WriteXmlChildRsid(_value); + + // normal property + property Name read ReadXmlChildName; + property BasedOn read ReadXmlChildBasedOn; + property Next read ReadXmlChildNext; + property AutoRedefine read ReadXmlChildAutoRedefine; + property Link read ReadXmlChildLink; + property UIPriority read ReadXmlChildUIPriority; + property PPr read ReadXmlChildPPr; + property RPr read ReadXmlChildRPr; + property TblPr read ReadXmlChildTblPr; + property TrPr read ReadXmlChildTrPr; + property TcPr read ReadXmlChildTcPr; + function ReadXmlChildName(): PureWVal; + function ReadXmlChildBasedOn(): PureWVal; + function ReadXmlChildNext(): PureWVal; + function ReadXmlChildAutoRedefine(): PureWVal; + function ReadXmlChildLink(): PureWVal; + function ReadXmlChildUIPriority(): PureWVal; + function ReadXmlChildPPr(): PPr; + function ReadXmlChildRPr(): RPr; + function ReadXmlChildTblPr(): TblPr; + function ReadXmlChildTrPr(): TrPr; + function ReadXmlChildTcPr(): TcPr; + + // multi property + property TblStylePrs read ReadTblStylePrs; + function ReadTblStylePrs(_index); + function AddTblStylePr(): TblStylePr; + function AppendTblStylePr(): TblStylePr; + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + XmlAttrDefault: OpenXmlAttribute; + XmlAttrStyleId: OpenXmlAttribute; + + // Children + XmlChildName: PureWVal; + XmlChildBasedOn: PureWVal; + XmlChildNext: PureWVal; + XmlChildAutoRedefine: PureWVal; + XmlChildLink: PureWVal; + XmlChildUIPriority: PureWVal; + XmlChildSemiHidden: OpenXmlEmpty; + XmlChildUnhideWhenUsed: OpenXmlEmpty; + XmlChildQFormat: OpenXmlEmpty; + XmlChildRsid: OpenXmlEmpty; + XmlChildPPr: PPr; + XmlChildRPr: RPr; + XmlChildTblPr: TblPr; + XmlChildTrPr: TrPr; + XmlChildTcPr: TcPr; +end; + +type TblStylePr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblStylePr);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + + // normal property + property PPr read ReadXmlChildPPr; + property RPr read ReadXmlChildRPr; + property TblPr read ReadXmlChildTblPr; + property TrPr read ReadXmlChildTrPr; + property TcPr read ReadXmlChildTcPr; + function ReadXmlChildPPr(): PPr; + function ReadXmlChildRPr(): RPr; + function ReadXmlChildTblPr(): TblPr; + function ReadXmlChildTrPr(): TrPr; + function ReadXmlChildTcPr(): TcPr; + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + + // Children + XmlChildPPr: PPr; + XmlChildRPr: RPr; + XmlChildTblPr: TblPr; + XmlChildTrPr: TrPr; + XmlChildTcPr: TcPr; +end; + +type TblInd = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblInd);override; +public + // attributes property + property W read ReadXmlAttrW write WriteXmlAttrW; + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrW(); + function WriteXmlAttrW(_value); + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + +public + // Attributes + XmlAttrW: OpenXmlAttribute; + XmlAttrType: OpenXmlAttribute; + +end; + +type TblCellMar = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TblCellMar);override; +public + + // normal property + property Top read ReadXmlChildTop; + property Left read ReadXmlChildLeft; + property Bottom read ReadXmlChildBottom; + property Right read ReadXmlChildRight; + function ReadXmlChildTop(): TblInd; + function ReadXmlChildLeft(): TblInd; + function ReadXmlChildBottom(): TblInd; + function ReadXmlChildRight(): TblInd; + +public + // Children + XmlChildTop: TblInd; + XmlChildLeft: TblInd; + XmlChildBottom: TblInd; + XmlChildRight: TblInd; +end; + +type WebSettings = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: WebSettings);override; +public + // attributes property + property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; + function ReadXmlAttrMcIgnorable(); + function WriteXmlAttrMcIgnorable(_value); + + // empty property + property OptimizeForBrowser read ReadXmlChildOptimizeForBrowser write WriteXmlChildOptimizeForBrowser; + property AllowPNG read ReadXmlChildAllowPNG write WriteXmlChildAllowPNG; + function ReadXmlChildOptimizeForBrowser(); + function WriteXmlChildOptimizeForBrowser(_value); + function ReadXmlChildAllowPNG(); + function WriteXmlChildAllowPNG(_value); + +public + // Attributes + XmlAttrMcIgnorable: OpenXmlAttribute; + + // Children + XmlChildOptimizeForBrowser: OpenXmlEmpty; + XmlChildAllowPNG: OpenXmlEmpty; +end; + +type AlternateContent = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: AlternateContent);override; +public + + // normal property + property Choice read ReadXmlChildChoice; + property Fallback read ReadXmlChildFallback; + function ReadXmlChildChoice(): Choice; + function ReadXmlChildFallback(): Fallback; + +public + // Children + XmlChildChoice: Choice; + XmlChildFallback: Fallback; +end; + +type Choice = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Choice);override; +public + // attributes property + property Requires read ReadXmlAttrRequires write WriteXmlAttrRequires; + function ReadXmlAttrRequires(); + function WriteXmlAttrRequires(_value); + + // normal property + property Style read ReadXmlChildStyle; + property Drawing read ReadXmlChildDrawing; + function ReadXmlChildStyle(): PureVal; + function ReadXmlChildDrawing(): Drawing; + +public + // Attributes + XmlAttrRequires: OpenXmlAttribute; + + // Children + XmlChildStyle: PureVal; + XmlChildDrawing: Drawing; +end; + +type Fallback = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Fallback);override; +public + + // normal property + property Style read ReadXmlChildStyle; + property Pict read ReadXmlChildPict; + function ReadXmlChildStyle(): PureVal; + function ReadXmlChildPict(): Pict; + +public + // Children + XmlChildStyle: PureVal; + XmlChildPict: Pict; +end; + +type Pict = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Pict);override; +public + + // normal property + property Shapetype read ReadXmlChildShapetype; + property Shape read ReadXmlChildShape; + function ReadXmlChildShapetype(): Shapetype; + function ReadXmlChildShape(): Shape; + +public + // Children + XmlChildShapetype: Shapetype; + XmlChildShape: Shape; +end; + +type Ftr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Ftr);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children +end; + +type Hdr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Hdr);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children +end; + +type Comments = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Comments);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // multi property + property Comments read ReadComments; + function ReadComments(_index); + function AddComment(): Comment; + function AppendComment(): Comment; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children +end; + +type Comment = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Comment);override; +public + // attributes property + property Author read ReadXmlAttrAuthor write WriteXmlAttrAuthor; + property Date read ReadXmlAttrDate write WriteXmlAttrDate; + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrAuthor(); + function WriteXmlAttrAuthor(_value); + function ReadXmlAttrDate(); + function WriteXmlAttrDate(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Attributes + XmlAttrAuthor: OpenXmlAttribute; + XmlAttrDate: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + + // Children +end; + +type Numbering = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Numbering);override; +public + // attributes property + property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable; + function ReadXmlAttrIgnorable(); + function WriteXmlAttrIgnorable(_value); + + // multi property + property AbstractNums read ReadAbstractNums; + property Nums read ReadNums; + function ReadAbstractNums(_index); + function ReadNums(_index); + function AddAbstractNum(): AbstractNum; + function AddNum(): Num; + function AppendAbstractNum(): AbstractNum; + function AppendNum(): Num; + +public + // Attributes + XmlAttrIgnorable: OpenXmlAttribute; + + // Children +end; + +type Num = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Num);override; +public + // attributes property + property NumId read ReadXmlAttrNumId write WriteXmlAttrNumId; + function ReadXmlAttrNumId(); + function WriteXmlAttrNumId(_value); + + // normal property + property AbstractNumId read ReadXmlChildAbstractNumId; + function ReadXmlChildAbstractNumId(): PureWVal; + +public + // Attributes + XmlAttrNumId: OpenXmlAttribute; + + // Children + XmlChildAbstractNumId: PureWVal; +end; + +type AbstractNum = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: AbstractNum);override; +public + // attributes property + property AbstractNumId read ReadXmlAttrAbstractNumId write WriteXmlAttrAbstractNumId; + property RestartNumberingAfterBreak read ReadXmlAttrRestartNumberingAfterBreak write WriteXmlAttrRestartNumberingAfterBreak; + function ReadXmlAttrAbstractNumId(); + function WriteXmlAttrAbstractNumId(_value); + function ReadXmlAttrRestartNumberingAfterBreak(); + function WriteXmlAttrRestartNumberingAfterBreak(_value); + + // normal property + property Nsid read ReadXmlChildNsid; + property MultiLevelType read ReadXmlChildMultiLevelType; + property Tmpl read ReadXmlChildTmpl; + function ReadXmlChildNsid(): PureWVal; + function ReadXmlChildMultiLevelType(): PureWVal; + function ReadXmlChildTmpl(): PureWVal; + + // multi property + property Lvls read ReadLvls; + function ReadLvls(_index); + function AddLvl(): Lvl; + function AppendLvl(): Lvl; + +public + // Attributes + XmlAttrAbstractNumId: OpenXmlAttribute; + XmlAttrRestartNumberingAfterBreak: OpenXmlAttribute; + + // Children + XmlChildNsid: PureWVal; + XmlChildMultiLevelType: PureWVal; + XmlChildTmpl: PureWVal; +end; + +type Lvl = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Lvl);override; +public + // attributes property + property Ilvl read ReadXmlAttrIlvl write WriteXmlAttrIlvl; + property Tentative read ReadXmlAttrTentative write WriteXmlAttrTentative; + function ReadXmlAttrIlvl(); + function WriteXmlAttrIlvl(_value); + function ReadXmlAttrTentative(); + function WriteXmlAttrTentative(_value); + + // normal property + property Start read ReadXmlChildStart; + property NumFmt read ReadXmlChildNumFmt; + property PStyle read ReadXmlChildPStyle; + property Suff read ReadXmlChildSuff; + property LvlText read ReadXmlChildLvlText; + property LvlJc read ReadXmlChildLvlJc; + property PPr read ReadXmlChildPPr; + property RPr read ReadXmlChildRPr; + function ReadXmlChildStart(): PureWVal; + function ReadXmlChildNumFmt(): PureWVal; + function ReadXmlChildPStyle(): PureWVal; + function ReadXmlChildSuff(): PureWVal; + function ReadXmlChildLvlText(): PureWVal; + function ReadXmlChildLvlJc(): PureWVal; + function ReadXmlChildPPr(): PPr; + function ReadXmlChildRPr(): RPr; + +public + // Attributes + XmlAttrIlvl: OpenXmlAttribute; + XmlAttrTentative: OpenXmlAttribute; + + // Children + XmlChildStart: PureWVal; + XmlChildNumFmt: PureWVal; + XmlChildPStyle: PureWVal; + XmlChildSuff: PureWVal; + XmlChildLvlText: PureWVal; + XmlChildLvlJc: PureWVal; + XmlChildPPr: PPr; + XmlChildRPr: RPr; +end; + +implementation + +function Properties.Create();overload; +begin + {self.}Create(nil, "", "Properties"); +end; + +function Properties.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Properties.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Properties.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "Template": array(0, makeweakref(thisFunction(ReadXmlChildTemplate))), + "TotalTime": array(1, makeweakref(thisFunction(ReadXmlChildTotalTime))), + "Pages": array(2, makeweakref(thisFunction(ReadXmlChildPages))), + "Words": array(3, makeweakref(thisFunction(ReadXmlChildWords))), + "Characters": array(4, makeweakref(thisFunction(ReadXmlChildCharacters))), + "Application": array(5, makeweakref(thisFunction(ReadXmlChildApplication))), + "DocSecurity": array(6, makeweakref(thisFunction(ReadXmlChildDocSecurity))), + "Lines": array(7, makeweakref(thisFunction(ReadXmlChildLines))), + "Paragraphs": array(8, makeweakref(thisFunction(ReadXmlChildParagraphs))), + "ScaleCrop": array(9, makeweakref(thisFunction(ReadXmlChildScaleCrop))), + "Company": array(10, makeweakref(thisFunction(ReadXmlChildCompany))), + "LinksUpToDate": array(11, makeweakref(thisFunction(ReadXmlChildLinksUpToDate))), + "charactersWithSpaces": array(12, makeweakref(thisFunction(ReadXmlChildCharactersWithSpaces))), + "SharedDoc": array(13, makeweakref(thisFunction(ReadXmlChildSharedDoc))), + "HyperlinksChanged": array(14, makeweakref(thisFunction(ReadXmlChildHyperlinksChanged))), + "AppVersion": array(15, makeweakref(thisFunction(ReadXmlChildAppVersion))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Properties.Copy(_obj: Properties);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTemplate) then + {self.}Template.Copy(_obj.XmlChildTemplate); + if not ifnil(_obj.XmlChildTotalTime) then + {self.}TotalTime.Copy(_obj.XmlChildTotalTime); + if not ifnil(_obj.XmlChildPages) then + {self.}Pages.Copy(_obj.XmlChildPages); + if not ifnil(_obj.XmlChildWords) then + {self.}Words.Copy(_obj.XmlChildWords); + if not ifnil(_obj.XmlChildCharacters) then + {self.}Characters.Copy(_obj.XmlChildCharacters); + if not ifnil(_obj.XmlChildApplication) then + {self.}Application.Copy(_obj.XmlChildApplication); + if not ifnil(_obj.XmlChildDocSecurity) then + {self.}DocSecurity.Copy(_obj.XmlChildDocSecurity); + if not ifnil(_obj.XmlChildLines) then + {self.}Lines.Copy(_obj.XmlChildLines); + if not ifnil(_obj.XmlChildParagraphs) then + {self.}Paragraphs.Copy(_obj.XmlChildParagraphs); + if not ifnil(_obj.XmlChildScaleCrop) then + {self.}ScaleCrop.Copy(_obj.XmlChildScaleCrop); + if not ifnil(_obj.XmlChildCompany) then + {self.}Company.Copy(_obj.XmlChildCompany); + if not ifnil(_obj.XmlChildLinksUpToDate) then + {self.}LinksUpToDate.Copy(_obj.XmlChildLinksUpToDate); + if not ifnil(_obj.XmlChildCharactersWithSpaces) then + {self.}CharactersWithSpaces.Copy(_obj.XmlChildCharactersWithSpaces); + if not ifnil(_obj.XmlChildSharedDoc) then + {self.}SharedDoc.Copy(_obj.XmlChildSharedDoc); + if not ifnil(_obj.XmlChildHyperlinksChanged) then + {self.}HyperlinksChanged.Copy(_obj.XmlChildHyperlinksChanged); + if not ifnil(_obj.XmlChildAppVersion) then + {self.}AppVersion.Copy(_obj.XmlChildAppVersion); + tslassigning := tslassigning_backup; +end; + +function Properties.ReadXmlChildTemplate(); +begin + if tslassigning and ifnil({self.}XmlChildTemplate) then + begin + {self.}XmlChildTemplate := new OpenXmlPcdata(self, "", "Template"); + container_.Set({self.}XmlChildTemplate); + end + return {self.}XmlChildTemplate; +end; + +function Properties.ReadXmlChildTotalTime(); +begin + if tslassigning and ifnil({self.}XmlChildTotalTime) then + begin + {self.}XmlChildTotalTime := new OpenXmlPcdata(self, "", "TotalTime"); + container_.Set({self.}XmlChildTotalTime); + end + return {self.}XmlChildTotalTime; +end; + +function Properties.ReadXmlChildPages(); +begin + if tslassigning and ifnil({self.}XmlChildPages) then + begin + {self.}XmlChildPages := new OpenXmlPcdata(self, "", "Pages"); + container_.Set({self.}XmlChildPages); + end + return {self.}XmlChildPages; +end; + +function Properties.ReadXmlChildWords(); +begin + if tslassigning and ifnil({self.}XmlChildWords) then + begin + {self.}XmlChildWords := new OpenXmlPcdata(self, "", "Words"); + container_.Set({self.}XmlChildWords); + end + return {self.}XmlChildWords; +end; + +function Properties.ReadXmlChildCharacters(); +begin + if tslassigning and ifnil({self.}XmlChildCharacters) then + begin + {self.}XmlChildCharacters := new OpenXmlPcdata(self, "", "Characters"); + container_.Set({self.}XmlChildCharacters); + end + return {self.}XmlChildCharacters; +end; + +function Properties.ReadXmlChildApplication(); +begin + if tslassigning and ifnil({self.}XmlChildApplication) then + begin + {self.}XmlChildApplication := new OpenXmlPcdata(self, "", "Application"); + container_.Set({self.}XmlChildApplication); + end + return {self.}XmlChildApplication; +end; + +function Properties.ReadXmlChildDocSecurity(); +begin + if tslassigning and ifnil({self.}XmlChildDocSecurity) then + begin + {self.}XmlChildDocSecurity := new OpenXmlPcdata(self, "", "DocSecurity"); + container_.Set({self.}XmlChildDocSecurity); + end + return {self.}XmlChildDocSecurity; +end; + +function Properties.ReadXmlChildLines(); +begin + if tslassigning and ifnil({self.}XmlChildLines) then + begin + {self.}XmlChildLines := new OpenXmlPcdata(self, "", "Lines"); + container_.Set({self.}XmlChildLines); + end + return {self.}XmlChildLines; +end; + +function Properties.ReadXmlChildParagraphs(); +begin + if tslassigning and ifnil({self.}XmlChildParagraphs) then + begin + {self.}XmlChildParagraphs := new OpenXmlPcdata(self, "", "Paragraphs"); + container_.Set({self.}XmlChildParagraphs); + end + return {self.}XmlChildParagraphs; +end; + +function Properties.ReadXmlChildScaleCrop(); +begin + if tslassigning and ifnil({self.}XmlChildScaleCrop) then + begin + {self.}XmlChildScaleCrop := new OpenXmlPcdata(self, "", "ScaleCrop"); + container_.Set({self.}XmlChildScaleCrop); + end + return {self.}XmlChildScaleCrop; +end; + +function Properties.ReadXmlChildCompany(); +begin + if tslassigning and ifnil({self.}XmlChildCompany) then + begin + {self.}XmlChildCompany := new OpenXmlPcdata(self, "", "Company"); + container_.Set({self.}XmlChildCompany); + end + return {self.}XmlChildCompany; +end; + +function Properties.ReadXmlChildLinksUpToDate(); +begin + if tslassigning and ifnil({self.}XmlChildLinksUpToDate) then + begin + {self.}XmlChildLinksUpToDate := new OpenXmlPcdata(self, "", "LinksUpToDate"); + container_.Set({self.}XmlChildLinksUpToDate); + end + return {self.}XmlChildLinksUpToDate; +end; + +function Properties.ReadXmlChildCharactersWithSpaces(); +begin + if tslassigning and ifnil({self.}XmlChildCharactersWithSpaces) then + begin + {self.}XmlChildCharactersWithSpaces := new OpenXmlPcdata(self, "", "charactersWithSpaces"); + container_.Set({self.}XmlChildCharactersWithSpaces); + end + return {self.}XmlChildCharactersWithSpaces; +end; + +function Properties.ReadXmlChildSharedDoc(); +begin + if tslassigning and ifnil({self.}XmlChildSharedDoc) then + begin + {self.}XmlChildSharedDoc := new OpenXmlPcdata(self, "", "SharedDoc"); + container_.Set({self.}XmlChildSharedDoc); + end + return {self.}XmlChildSharedDoc; +end; + +function Properties.ReadXmlChildHyperlinksChanged(); +begin + if tslassigning and ifnil({self.}XmlChildHyperlinksChanged) then + begin + {self.}XmlChildHyperlinksChanged := new OpenXmlPcdata(self, "", "HyperlinksChanged"); + container_.Set({self.}XmlChildHyperlinksChanged); + end + return {self.}XmlChildHyperlinksChanged; +end; + +function Properties.ReadXmlChildAppVersion(); +begin + if tslassigning and ifnil({self.}XmlChildAppVersion) then + begin + {self.}XmlChildAppVersion := new OpenXmlPcdata(self, "", "AppVersion"); + container_.Set({self.}XmlChildAppVersion); + end + return {self.}XmlChildAppVersion; +end; + +function Document.Create();overload; +begin + {self.}Create(nil, "w", "document"); +end; + +function Document.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Document.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Document.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), + ); + sorted_child_ := array( + pre + "body": array(0, makeweakref(thisFunction(ReadXmlChildBody))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Document.Copy(_obj: Document);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.McIgnorable) then + {self.}McIgnorable := _obj.McIgnorable; + if not ifnil(_obj.XmlChildBody) then + {self.}Body.Copy(_obj.XmlChildBody); + tslassigning := tslassigning_backup; +end; + +function Document.ReadXmlAttrMcIgnorable(); +begin + return {self.}XmlAttrMcIgnorable.Value; +end; + +function Document.WriteXmlAttrMcIgnorable(_value); +begin + if ifnil({self.}XmlAttrMcIgnorable) then + begin + {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; + end + {self.}XmlAttrMcIgnorable.Value := _value; +end; + +function Document.ReadXmlChildBody(): Body; +begin + if tslassigning and ifnil({self.}XmlChildBody) then + begin + {self.}XmlChildBody := new Body(self, {self.}Prefix, "body"); + container_.Set({self.}XmlChildBody); + end + return {self.}XmlChildBody; +end; + +function Body.Create();overload; +begin + {self.}Create(nil, "w", "body"); +end; + +function Body.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Body.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Body.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + pre + "tbl": array(1, makeweakref(thisFunction(AppendTbl))), + pre + "sdt": array(2, makeweakref(thisFunction(AppendSdt))), + pre + "sectPr": array(-1, makeweakref(thisFunction(ReadXmlChildSectPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Body.Copy(_obj: Body);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSectPr) then + {self.}SectPr.Copy(_obj.XmlChildSectPr); + tslassigning := tslassigning_backup; +end; + +function Body.ReadXmlChildSectPr(): SectPr; +begin + if tslassigning and ifnil({self.}XmlChildSectPr) then + begin + {self.}XmlChildSectPr := new SectPr(self, {self.}Prefix, "sectPr"); + container_.Append({self.}XmlChildSectPr); + end + return {self.}XmlChildSectPr; +end; + +function Body.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function Body.ReadTbls(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "tbl", ind); +end; + +function Body.ReadSdts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "sdt", ind); +end; + +function Body.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function Body.AddTbl(): Tbl; +begin + obj := new Tbl(self, {self.}Prefix, "tbl"); + container_.Insert(obj); + return obj; +end; + +function Body.AddSdt(): Sdt; +begin + obj := new Sdt(self, {self.}Prefix, "sdt"); + container_.Insert(obj); + return obj; +end; + +function Body.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Body.AppendTbl(): Tbl; +begin + obj := new Tbl(self, {self.}Prefix, "tbl"); + container_.Append(obj); + return obj; +end; + +function Body.AppendSdt(): Sdt; +begin + obj := new Sdt(self, {self.}Prefix, "sdt"); + container_.Append(obj); + return obj; +end; + +function P.Create();overload; +begin + {self.}Create(nil, "w", "p"); +end; + +function P.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function P.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function P.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w14:paraId": makeweakref(thisFunction(WriteXmlAttrParaId)), + "w14:textId": makeweakref(thisFunction(WriteXmlAttrTextId)), + "w:rsidR": makeweakref(thisFunction(WriteXmlAttrRsidR)), + "w:rsidRPr": makeweakref(thisFunction(WriteXmlAttrRsidRPr)), + "w:rsidRDefault": makeweakref(thisFunction(WriteXmlAttrRsidRDefault)), + "w:rsidP": makeweakref(thisFunction(WriteXmlAttrRsidP)), + ); + sorted_child_ := array( + pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), + "m:oMathPara": array(1, makeweakref(thisFunction(ReadXmlChildOMathPara))), + pre + "ins": array(2, makeweakref(thisFunction(ReadXmlChildIns))), + pre + "r": array(3, makeweakref(thisFunction(AppendR))), + pre + "commentRangeStart": array(4, makeweakref(thisFunction(AppendCommentRangeStart))), + pre + "commentRangeEnd": array(5, makeweakref(thisFunction(AppendCommentRangeEnd))), + pre + "bookmarkStart": array(6, makeweakref(thisFunction(AppendBookmarkStart))), + pre + "bookmarkEnd": array(7, makeweakref(thisFunction(AppendBookmarkEnd))), + pre + "hyperlink": array(8, makeweakref(thisFunction(AppendHyperLink))), + pre + "fldSimple": array(9, makeweakref(thisFunction(AppendFldSimple))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function P.Copy(_obj: P);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.ParaId) then + {self.}ParaId := _obj.ParaId; + if not ifnil(_obj.TextId) then + {self.}TextId := _obj.TextId; + if not ifnil(_obj.RsidR) then + {self.}RsidR := _obj.RsidR; + if not ifnil(_obj.RsidRPr) then + {self.}RsidRPr := _obj.RsidRPr; + if not ifnil(_obj.RsidRDefault) then + {self.}RsidRDefault := _obj.RsidRDefault; + if not ifnil(_obj.RsidP) then + {self.}RsidP := _obj.RsidP; + if not ifnil(_obj.XmlChildPPr) then + {self.}PPr.Copy(_obj.XmlChildPPr); + if not ifnil(_obj.XmlChildOMathPara) then + {self.}OMathPara.Copy(_obj.XmlChildOMathPara); + if not ifnil(_obj.XmlChildIns) then + {self.}Ins.Copy(_obj.XmlChildIns); + tslassigning := tslassigning_backup; +end; + +function P.ReadXmlAttrParaId(); +begin + return {self.}XmlAttrParaId.Value; +end; + +function P.WriteXmlAttrParaId(_value); +begin + if ifnil({self.}XmlAttrParaId) then + begin + {self.}XmlAttrParaId := new OpenXmlAttribute("w14", "paraId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrParaId; + end + {self.}XmlAttrParaId.Value := _value; +end; + +function P.ReadXmlAttrTextId(); +begin + return {self.}XmlAttrTextId.Value; +end; + +function P.WriteXmlAttrTextId(_value); +begin + if ifnil({self.}XmlAttrTextId) then + begin + {self.}XmlAttrTextId := new OpenXmlAttribute("w14", "textId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTextId; + end + {self.}XmlAttrTextId.Value := _value; +end; + +function P.ReadXmlAttrRsidR(); +begin + return {self.}XmlAttrRsidR.Value; +end; + +function P.WriteXmlAttrRsidR(_value); +begin + if ifnil({self.}XmlAttrRsidR) then + begin + {self.}XmlAttrRsidR := new OpenXmlAttribute("w", "rsidR", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidR; + end + {self.}XmlAttrRsidR.Value := _value; +end; + +function P.ReadXmlAttrRsidRPr(); +begin + return {self.}XmlAttrRsidRPr.Value; +end; + +function P.WriteXmlAttrRsidRPr(_value); +begin + if ifnil({self.}XmlAttrRsidRPr) then + begin + {self.}XmlAttrRsidRPr := new OpenXmlAttribute("w", "rsidRPr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidRPr; + end + {self.}XmlAttrRsidRPr.Value := _value; +end; + +function P.ReadXmlAttrRsidRDefault(); +begin + return {self.}XmlAttrRsidRDefault.Value; +end; + +function P.WriteXmlAttrRsidRDefault(_value); +begin + if ifnil({self.}XmlAttrRsidRDefault) then + begin + {self.}XmlAttrRsidRDefault := new OpenXmlAttribute("w", "rsidRDefault", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidRDefault; + end + {self.}XmlAttrRsidRDefault.Value := _value; +end; + +function P.ReadXmlAttrRsidP(); +begin + return {self.}XmlAttrRsidP.Value; +end; + +function P.WriteXmlAttrRsidP(_value); +begin + if ifnil({self.}XmlAttrRsidP) then + begin + {self.}XmlAttrRsidP := new OpenXmlAttribute("w", "rsidP", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidP; + end + {self.}XmlAttrRsidP.Value := _value; +end; + +function P.ReadXmlChildPPr(): PPr; +begin + if tslassigning and ifnil({self.}XmlChildPPr) then + begin + {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); + container_.Set({self.}XmlChildPPr); + end + return {self.}XmlChildPPr; +end; + +function P.ReadXmlChildOMathPara(): OMathPara; +begin + if tslassigning and ifnil({self.}XmlChildOMathPara) then + begin + {self.}XmlChildOMathPara := new SharedML.OMathPara(self, "m", "oMathPara"); + container_.Set({self.}XmlChildOMathPara); + end + return {self.}XmlChildOMathPara; +end; + +function P.ReadXmlChildIns(): Ins; +begin + if tslassigning and ifnil({self.}XmlChildIns) then + begin + {self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins"); + container_.Set({self.}XmlChildIns); + end + return {self.}XmlChildIns; +end; + +function P.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function P.ReadCommentRangeStarts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "commentRangeStart", ind); +end; + +function P.ReadCommentRangeEnds(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "commentRangeEnd", ind); +end; + +function P.ReadBookmarkStarts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "bookmarkStart", ind); +end; + +function P.ReadBookmarkEnds(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "bookmarkEnd", ind); +end; + +function P.ReadHyperlinks(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "hyperlink", ind); +end; + +function P.ReadFldSimples(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "fldSimple", ind); +end; + +function P.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function P.AddCommentRangeStart(): CommentRange; +begin + obj := new CommentRange(self, {self.}Prefix, "commentRangeStart"); + container_.Insert(obj); + return obj; +end; + +function P.AddCommentRangeEnd(): CommentRange; +begin + obj := new CommentRange(self, {self.}Prefix, "commentRangeEnd"); + container_.Insert(obj); + return obj; +end; + +function P.AddBookmarkStart(): Bookmark; +begin + obj := new Bookmark(self, {self.}Prefix, "bookmarkStart"); + container_.Insert(obj); + return obj; +end; + +function P.AddBookmarkEnd(): Bookmark; +begin + obj := new Bookmark(self, {self.}Prefix, "bookmarkEnd"); + container_.Insert(obj); + return obj; +end; + +function P.AddHyperLink(): HyperLink; +begin + obj := new HyperLink(self, {self.}Prefix, "hyperlink"); + container_.Insert(obj); + return obj; +end; + +function P.AddFldSimple(): FldSimple; +begin + obj := new FldSimple(self, {self.}Prefix, "fldSimple"); + container_.Insert(obj); + return obj; +end; + +function P.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function P.AppendCommentRangeStart(): CommentRange; +begin + obj := new CommentRange(self, {self.}Prefix, "commentRangeStart"); + container_.Append(obj); + return obj; +end; + +function P.AppendCommentRangeEnd(): CommentRange; +begin + obj := new CommentRange(self, {self.}Prefix, "commentRangeEnd"); + container_.Append(obj); + return obj; +end; + +function P.AppendBookmarkStart(): Bookmark; +begin + obj := new Bookmark(self, {self.}Prefix, "bookmarkStart"); + container_.Append(obj); + return obj; +end; + +function P.AppendBookmarkEnd(): Bookmark; +begin + obj := new Bookmark(self, {self.}Prefix, "bookmarkEnd"); + container_.Append(obj); + return obj; +end; + +function P.AppendHyperLink(): HyperLink; +begin + obj := new HyperLink(self, {self.}Prefix, "hyperlink"); + container_.Append(obj); + return obj; +end; + +function P.AppendFldSimple(): FldSimple; +begin + obj := new FldSimple(self, {self.}Prefix, "fldSimple"); + container_.Append(obj); + return obj; +end; + +function FldSimple.Create();overload; +begin + {self.}Create(nil, "w", "fldSimple"); +end; + +function FldSimple.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FldSimple.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FldSimple.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "instr": makeweakref(thisFunction(WriteXmlAttrInstr)), + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FldSimple.Copy(_obj: FldSimple);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Instr) then + {self.}Instr := _obj.Instr; + tslassigning := tslassigning_backup; +end; + +function FldSimple.ReadXmlAttrInstr(); +begin + return {self.}XmlAttrInstr.Value; +end; + +function FldSimple.WriteXmlAttrInstr(_value); +begin + if ifnil({self.}XmlAttrInstr) then + begin + {self.}XmlAttrInstr := new OpenXmlAttribute({self.}Prefix, "instr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrInstr; + end + {self.}XmlAttrInstr.Value := _value; +end; + +function FldSimple.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function FldSimple.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function FldSimple.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function CommentRange.Create();overload; +begin + {self.}Create(nil, "w", ""); +end; + +function CommentRange.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CommentRange.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CommentRange.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CommentRange.Copy(_obj: CommentRange);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function CommentRange.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function CommentRange.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function HyperLink.Create();overload; +begin + {self.}Create(nil, "w", "hyperlink"); +end; + +function HyperLink.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function HyperLink.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function HyperLink.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)), + "r:id": makeweakref(thisFunction(WriteXmlAttrId)), + pre + "history": makeweakref(thisFunction(WriteXmlAttrHistory)), + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function HyperLink.Copy(_obj: HyperLink);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Anchor) then + {self.}Anchor := _obj.Anchor; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.History) then + {self.}History := _obj.History; + tslassigning := tslassigning_backup; +end; + +function HyperLink.ReadXmlAttrAnchor(); +begin + return {self.}XmlAttrAnchor.Value; +end; + +function HyperLink.WriteXmlAttrAnchor(_value); +begin + if ifnil({self.}XmlAttrAnchor) then + begin + {self.}XmlAttrAnchor := new OpenXmlAttribute({self.}Prefix, "anchor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchor; + end + {self.}XmlAttrAnchor.Value := _value; +end; + +function HyperLink.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function HyperLink.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function HyperLink.ReadXmlAttrHistory(); +begin + return {self.}XmlAttrHistory.Value; +end; + +function HyperLink.WriteXmlAttrHistory(_value); +begin + if ifnil({self.}XmlAttrHistory) then + begin + {self.}XmlAttrHistory := new OpenXmlAttribute({self.}Prefix, "history", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHistory; + end + {self.}XmlAttrHistory.Value := _value; +end; + +function HyperLink.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function HyperLink.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function HyperLink.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function Bookmark.Create();overload; +begin + {self.}Create(nil, "w", ""); +end; + +function Bookmark.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Bookmark.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Bookmark.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), + pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Bookmark.Copy(_obj: Bookmark);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function Bookmark.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function Bookmark.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function Bookmark.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Bookmark.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function PPr.Create();overload; +begin + {self.}Create(nil, "w", "pPr"); +end; + +function PPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "sectPr": array(0, makeweakref(thisFunction(ReadXmlChildSectPr))), + pre + "tabs": array(1, makeweakref(thisFunction(ReadXmlChildTabs))), + pre + "widowControl": array(2, makeweakref(thisFunction(ReadXmlChildWidowControl))), + pre + "snapToGrid": array(3, makeweakref(thisFunction(ReadXmlChildSnapToGrid))), + pre + "pStyle": array(4, makeweakref(thisFunction(ReadXmlChildPStyle))), + pre + "numPr": array(5, makeweakref(thisFunction(ReadXmlChildNumPr))), + pre + "jc": array(6, makeweakref(thisFunction(ReadXmlChildJc))), + pre + "ind": array(7, makeweakref(thisFunction(ReadXmlChildInd))), + pre + "keepNext": array(8, makeweakref(thisFunction(ReadXmlChildKeepNext))), + pre + "keepLines": array(9, makeweakref(thisFunction(ReadXmlChildKeepLines))), + pre + "pageBreakBefore": array(10, makeweakref(thisFunction(ReadXmlChildPageBreakBefore))), + pre + "adjustRightInd": array(11, makeweakref(thisFunction(ReadXmlChildAdjustRightInd))), + pre + "spacing": array(12, makeweakref(thisFunction(ReadXmlChildSpacing))), + pre + "outlineLvl": array(13, makeweakref(thisFunction(ReadXmlChildOutlineLvl))), + pre + "autoSpaceDE": array(14, makeweakref(thisFunction(ReadXmlChildAutoSpaceDE))), + pre + "autoSpaceDN": array(15, makeweakref(thisFunction(ReadXmlChildAutoSpaceDN))), + pre + "rPr": array(16, makeweakref(thisFunction(ReadXmlChildRPr))), + pre + "pBdr": array(17, makeweakref(thisFunction(ReadXmlChildPBdr))), + pre + "contextualSpacing": array(18, makeweakref(thisFunction(ReadXmlChildContextualSpacing))), + pre + "shd": array(19, makeweakref(thisFunction(ReadXmlChildShd))), + pre + "wordWrap": array(20, makeweakref(thisFunction(ReadXmlChildWordWrap))), + pre + "textboxTightWrap": array(21, makeweakref(thisFunction(ReadXmlChildTextboxTightWrap))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PPr.Copy(_obj: PPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSectPr) then + {self.}SectPr.Copy(_obj.XmlChildSectPr); + if not ifnil(_obj.XmlChildTabs) then + {self.}Tabs.Copy(_obj.XmlChildTabs); + if not ifnil(_obj.XmlChildWidowControl) then + ifnil({self.}XmlChildWidowControl) ? {self.}WidowControl.Copy(_obj.XmlChildWidowControl) : {self.}XmlChildWidowControl.Copy(_obj.XmlChildWidowControl); + if not ifnil(_obj.XmlChildSnapToGrid) then + ifnil({self.}XmlChildSnapToGrid) ? {self.}SnapToGrid.Copy(_obj.XmlChildSnapToGrid) : {self.}XmlChildSnapToGrid.Copy(_obj.XmlChildSnapToGrid); + if not ifnil(_obj.XmlChildPStyle) then + {self.}PStyle.Copy(_obj.XmlChildPStyle); + if not ifnil(_obj.XmlChildNumPr) then + {self.}NumPr.Copy(_obj.XmlChildNumPr); + if not ifnil(_obj.XmlChildJc) then + {self.}Jc.Copy(_obj.XmlChildJc); + if not ifnil(_obj.XmlChildInd) then + {self.}Ind.Copy(_obj.XmlChildInd); + if not ifnil(_obj.XmlChildKeepNext) then + ifnil({self.}XmlChildKeepNext) ? {self.}KeepNext.Copy(_obj.XmlChildKeepNext) : {self.}XmlChildKeepNext.Copy(_obj.XmlChildKeepNext); + if not ifnil(_obj.XmlChildKeepLines) then + ifnil({self.}XmlChildKeepLines) ? {self.}KeepLines.Copy(_obj.XmlChildKeepLines) : {self.}XmlChildKeepLines.Copy(_obj.XmlChildKeepLines); + if not ifnil(_obj.XmlChildPageBreakBefore) then + ifnil({self.}XmlChildPageBreakBefore) ? {self.}PageBreakBefore.Copy(_obj.XmlChildPageBreakBefore) : {self.}XmlChildPageBreakBefore.Copy(_obj.XmlChildPageBreakBefore); + if not ifnil(_obj.XmlChildAdjustRightInd) then + {self.}AdjustRightInd.Copy(_obj.XmlChildAdjustRightInd); + if not ifnil(_obj.XmlChildSpacing) then + {self.}Spacing.Copy(_obj.XmlChildSpacing); + if not ifnil(_obj.XmlChildOutlineLvl) then + {self.}OutlineLvl.Copy(_obj.XmlChildOutlineLvl); + if not ifnil(_obj.XmlChildAutoSpaceDE) then + {self.}AutoSpaceDE.Copy(_obj.XmlChildAutoSpaceDE); + if not ifnil(_obj.XmlChildAutoSpaceDN) then + {self.}AutoSpaceDN.Copy(_obj.XmlChildAutoSpaceDN); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + if not ifnil(_obj.XmlChildPBdr) then + {self.}PBdr.Copy(_obj.XmlChildPBdr); + if not ifnil(_obj.XmlChildContextualSpacing) then + ifnil({self.}XmlChildContextualSpacing) ? {self.}ContextualSpacing.Copy(_obj.XmlChildContextualSpacing) : {self.}XmlChildContextualSpacing.Copy(_obj.XmlChildContextualSpacing); + if not ifnil(_obj.XmlChildShd) then + {self.}Shd.Copy(_obj.XmlChildShd); + if not ifnil(_obj.XmlChildWordWrap) then + {self.}WordWrap.Copy(_obj.XmlChildWordWrap); + if not ifnil(_obj.XmlChildTextboxTightWrap) then + {self.}TextboxTightWrap.Copy(_obj.XmlChildTextboxTightWrap); + tslassigning := tslassigning_backup; +end; + +function PPr.ReadXmlChildWidowControl(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildWidowControl) then + begin + {self.}XmlChildWidowControl := new OpenXmlEmpty(self, {self.}Prefix, "widowControl"); + container_.Set({self.}XmlChildWidowControl); + end + return {self.}XmlChildWidowControl; + end + return ifnil({self.}XmlChildWidowControl) ? nil : {self.}XmlChildWidowControl.BoolValue(); +end; + +function PPr.WriteXmlChildWidowControl(_value); +begin + if ifnil({self.}XmlChildWidowControl) then + begin + {self.}XmlChildWidowControl := new OpenXmlEmpty(self, {self.}Prefix, "widowControl"); + container_.Set({self.}XmlChildWidowControl); + end + {self.}XmlChildWidowControl.Value := _value; +end; + +function PPr.ReadXmlChildSnapToGrid(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildSnapToGrid) then + begin + {self.}XmlChildSnapToGrid := new OpenXmlEmpty(self, {self.}Prefix, "snapToGrid"); + container_.Set({self.}XmlChildSnapToGrid); + end + return {self.}XmlChildSnapToGrid; + end + return ifnil({self.}XmlChildSnapToGrid) ? nil : {self.}XmlChildSnapToGrid.BoolValue(); +end; + +function PPr.WriteXmlChildSnapToGrid(_value); +begin + if ifnil({self.}XmlChildSnapToGrid) then + begin + {self.}XmlChildSnapToGrid := new OpenXmlEmpty(self, {self.}Prefix, "snapToGrid"); + container_.Set({self.}XmlChildSnapToGrid); + end + {self.}XmlChildSnapToGrid.Value := _value; +end; + +function PPr.ReadXmlChildKeepNext(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildKeepNext) then + begin + {self.}XmlChildKeepNext := new OpenXmlEmpty(self, {self.}Prefix, "keepNext"); + container_.Set({self.}XmlChildKeepNext); + end + return {self.}XmlChildKeepNext; + end + return ifnil({self.}XmlChildKeepNext) ? nil : {self.}XmlChildKeepNext.BoolValue(); +end; + +function PPr.WriteXmlChildKeepNext(_value); +begin + if ifnil({self.}XmlChildKeepNext) then + begin + {self.}XmlChildKeepNext := new OpenXmlEmpty(self, {self.}Prefix, "keepNext"); + container_.Set({self.}XmlChildKeepNext); + end + {self.}XmlChildKeepNext.Value := _value; +end; + +function PPr.ReadXmlChildKeepLines(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildKeepLines) then + begin + {self.}XmlChildKeepLines := new OpenXmlEmpty(self, {self.}Prefix, "keepLines"); + container_.Set({self.}XmlChildKeepLines); + end + return {self.}XmlChildKeepLines; + end + return ifnil({self.}XmlChildKeepLines) ? nil : {self.}XmlChildKeepLines.BoolValue(); +end; + +function PPr.WriteXmlChildKeepLines(_value); +begin + if ifnil({self.}XmlChildKeepLines) then + begin + {self.}XmlChildKeepLines := new OpenXmlEmpty(self, {self.}Prefix, "keepLines"); + container_.Set({self.}XmlChildKeepLines); + end + {self.}XmlChildKeepLines.Value := _value; +end; + +function PPr.ReadXmlChildPageBreakBefore(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildPageBreakBefore) then + begin + {self.}XmlChildPageBreakBefore := new OpenXmlEmpty(self, {self.}Prefix, "pageBreakBefore"); + container_.Set({self.}XmlChildPageBreakBefore); + end + return {self.}XmlChildPageBreakBefore; + end + return ifnil({self.}XmlChildPageBreakBefore) ? nil : {self.}XmlChildPageBreakBefore.BoolValue(); +end; + +function PPr.WriteXmlChildPageBreakBefore(_value); +begin + if ifnil({self.}XmlChildPageBreakBefore) then + begin + {self.}XmlChildPageBreakBefore := new OpenXmlEmpty(self, {self.}Prefix, "pageBreakBefore"); + container_.Set({self.}XmlChildPageBreakBefore); + end + {self.}XmlChildPageBreakBefore.Value := _value; +end; + +function PPr.ReadXmlChildContextualSpacing(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildContextualSpacing) then + begin + {self.}XmlChildContextualSpacing := new OpenXmlEmpty(self, {self.}Prefix, "contextualSpacing"); + container_.Set({self.}XmlChildContextualSpacing); + end + return {self.}XmlChildContextualSpacing; + end + return ifnil({self.}XmlChildContextualSpacing) ? nil : {self.}XmlChildContextualSpacing.BoolValue(); +end; + +function PPr.WriteXmlChildContextualSpacing(_value); +begin + if ifnil({self.}XmlChildContextualSpacing) then + begin + {self.}XmlChildContextualSpacing := new OpenXmlEmpty(self, {self.}Prefix, "contextualSpacing"); + container_.Set({self.}XmlChildContextualSpacing); + end + {self.}XmlChildContextualSpacing.Value := _value; +end; + +function PPr.ReadXmlChildSectPr(): SectPr; +begin + if tslassigning and ifnil({self.}XmlChildSectPr) then + begin + {self.}XmlChildSectPr := new SectPr(self, {self.}Prefix, "sectPr"); + container_.Set({self.}XmlChildSectPr); + end + return {self.}XmlChildSectPr; +end; + +function PPr.ReadXmlChildTabs(): Tabs; +begin + if tslassigning and ifnil({self.}XmlChildTabs) then + begin + {self.}XmlChildTabs := new Tabs(self, {self.}Prefix, "tabs"); + container_.Set({self.}XmlChildTabs); + end + return {self.}XmlChildTabs; +end; + +function PPr.ReadXmlChildPStyle(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildPStyle) then + begin + {self.}XmlChildPStyle := new PureWVal(self, {self.}Prefix, "pStyle"); + container_.Set({self.}XmlChildPStyle); + end + return {self.}XmlChildPStyle; +end; + +function PPr.ReadXmlChildNumPr(): NumPr; +begin + if tslassigning and ifnil({self.}XmlChildNumPr) then + begin + {self.}XmlChildNumPr := new NumPr(self, {self.}Prefix, "numPr"); + container_.Set({self.}XmlChildNumPr); + end + return {self.}XmlChildNumPr; +end; + +function PPr.ReadXmlChildJc(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildJc) then + begin + {self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc"); + container_.Set({self.}XmlChildJc); + end + return {self.}XmlChildJc; +end; + +function PPr.ReadXmlChildInd(): Ind; +begin + if tslassigning and ifnil({self.}XmlChildInd) then + begin + {self.}XmlChildInd := new Ind(self, {self.}Prefix, "ind"); + container_.Set({self.}XmlChildInd); + end + return {self.}XmlChildInd; +end; + +function PPr.ReadXmlChildAdjustRightInd(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildAdjustRightInd) then + begin + {self.}XmlChildAdjustRightInd := new PureWVal(self, {self.}Prefix, "adjustRightInd"); + container_.Set({self.}XmlChildAdjustRightInd); + end + return {self.}XmlChildAdjustRightInd; +end; + +function PPr.ReadXmlChildSpacing(): Spacing; +begin + if tslassigning and ifnil({self.}XmlChildSpacing) then + begin + {self.}XmlChildSpacing := new Spacing(self, {self.}Prefix, "spacing"); + container_.Set({self.}XmlChildSpacing); + end + return {self.}XmlChildSpacing; +end; + +function PPr.ReadXmlChildOutlineLvl(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildOutlineLvl) then + begin + {self.}XmlChildOutlineLvl := new PureWVal(self, {self.}Prefix, "outlineLvl"); + container_.Set({self.}XmlChildOutlineLvl); + end + return {self.}XmlChildOutlineLvl; +end; + +function PPr.ReadXmlChildAutoSpaceDE(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildAutoSpaceDE) then + begin + {self.}XmlChildAutoSpaceDE := new PureWVal(self, {self.}Prefix, "autoSpaceDE"); + container_.Set({self.}XmlChildAutoSpaceDE); + end + return {self.}XmlChildAutoSpaceDE; +end; + +function PPr.ReadXmlChildAutoSpaceDN(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildAutoSpaceDN) then + begin + {self.}XmlChildAutoSpaceDN := new PureWVal(self, {self.}Prefix, "autoSpaceDN"); + container_.Set({self.}XmlChildAutoSpaceDN); + end + return {self.}XmlChildAutoSpaceDN; +end; + +function PPr.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function PPr.ReadXmlChildPBdr(): PBdr; +begin + if tslassigning and ifnil({self.}XmlChildPBdr) then + begin + {self.}XmlChildPBdr := new PBdr(self, {self.}Prefix, "pBdr"); + container_.Set({self.}XmlChildPBdr); + end + return {self.}XmlChildPBdr; +end; + +function PPr.ReadXmlChildShd(): Shd; +begin + if tslassigning and ifnil({self.}XmlChildShd) then + begin + {self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd"); + container_.Set({self.}XmlChildShd); + end + return {self.}XmlChildShd; +end; + +function PPr.ReadXmlChildWordWrap(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildWordWrap) then + begin + {self.}XmlChildWordWrap := new PureWVal(self, {self.}Prefix, "wordWrap"); + container_.Set({self.}XmlChildWordWrap); + end + return {self.}XmlChildWordWrap; +end; + +function PPr.ReadXmlChildTextboxTightWrap(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTextboxTightWrap) then + begin + {self.}XmlChildTextboxTightWrap := new PureWVal(self, {self.}Prefix, "textboxTightWrap"); + container_.Set({self.}XmlChildTextboxTightWrap); + end + return {self.}XmlChildTextboxTightWrap; +end; + +function PBdr.Create();overload; +begin + {self.}Create(nil, "w", "pBdr"); +end; + +function PBdr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PBdr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PBdr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), + pre + "bottom": array(1, makeweakref(thisFunction(ReadXmlChildBottom))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PBdr.Copy(_obj: PBdr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTop) then + {self.}Top.Copy(_obj.XmlChildTop); + if not ifnil(_obj.XmlChildBottom) then + {self.}Bottom.Copy(_obj.XmlChildBottom); + tslassigning := tslassigning_backup; +end; + +function PBdr.ReadXmlChildTop(): PBorder; +begin + if tslassigning and ifnil({self.}XmlChildTop) then + begin + {self.}XmlChildTop := new PBorder(self, {self.}Prefix, "top"); + container_.Set({self.}XmlChildTop); + end + return {self.}XmlChildTop; +end; + +function PBdr.ReadXmlChildBottom(): PBorder; +begin + if tslassigning and ifnil({self.}XmlChildBottom) then + begin + {self.}XmlChildBottom := new PBorder(self, {self.}Prefix, "bottom"); + container_.Set({self.}XmlChildBottom); + end + return {self.}XmlChildBottom; +end; + +function PBorder.Create();overload; +begin + {self.}Create(nil, "w", ""); +end; + +function PBorder.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PBorder.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "color": makeweakref(thisFunction(WriteXmlAttrColor)), + pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), + pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), + pre + "themeTint": makeweakref(thisFunction(WriteXmlAttrThemeTint)), + pre + "sz": makeweakref(thisFunction(WriteXmlAttrSz)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PBorder.Copy(_obj: PBorder);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.Color) then + {self.}Color := _obj.Color; + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + if not ifnil(_obj.ThemeColor) then + {self.}ThemeColor := _obj.ThemeColor; + if not ifnil(_obj.ThemeTint) then + {self.}ThemeTint := _obj.ThemeTint; + if not ifnil(_obj.Sz) then + {self.}Sz := _obj.Sz; + tslassigning := tslassigning_backup; +end; + +function PBorder.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function PBorder.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function PBorder.ReadXmlAttrColor(); +begin + return {self.}XmlAttrColor.Value; +end; + +function PBorder.WriteXmlAttrColor(_value); +begin + if ifnil({self.}XmlAttrColor) then + begin + {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); + attributes_[length(attributes_)] := {self.}XmlAttrColor; + end + {self.}XmlAttrColor.Value := _value; +end; + +function PBorder.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function PBorder.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function PBorder.ReadXmlAttrThemeColor(); +begin + return {self.}XmlAttrThemeColor.Value; +end; + +function PBorder.WriteXmlAttrThemeColor(_value); +begin + if ifnil({self.}XmlAttrThemeColor) then + begin + {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; + end + {self.}XmlAttrThemeColor.Value := _value; +end; + +function PBorder.ReadXmlAttrThemeTint(); +begin + return {self.}XmlAttrThemeTint.Value; +end; + +function PBorder.WriteXmlAttrThemeTint(_value); +begin + if ifnil({self.}XmlAttrThemeTint) then + begin + {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeTint; + end + {self.}XmlAttrThemeTint.Value := _value; +end; + +function PBorder.ReadXmlAttrSz(); +begin + return {self.}XmlAttrSz.Value; +end; + +function PBorder.WriteXmlAttrSz(_value); +begin + if ifnil({self.}XmlAttrSz) then + begin + {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSz; + end + {self.}XmlAttrSz.Value := _value; +end; + +function Tabs.Create();overload; +begin + {self.}Create(nil, "w", "tabs"); +end; + +function Tabs.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Tabs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Tabs.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "tab": array(0, makeweakref(thisFunction(AppendTab))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Tabs.Copy(_obj: Tabs);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function Tabs.ReadTabs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "tab", ind); +end; + +function Tabs.AddTab(): Tab; +begin + obj := new Tab(self, {self.}Prefix, "tab"); + container_.Insert(obj); + return obj; +end; + +function Tabs.AppendTab(): Tab; +begin + obj := new Tab(self, {self.}Prefix, "tab"); + container_.Append(obj); + return obj; +end; + +function Tab.Create();overload; +begin + {self.}Create(nil, "w", "tab"); +end; + +function Tab.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Tab.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Tab.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "leader": makeweakref(thisFunction(WriteXmlAttrLeader)), + pre + "pos": makeweakref(thisFunction(WriteXmlAttrPos)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Tab.Copy(_obj: Tab);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.Leader) then + {self.}Leader := _obj.Leader; + if not ifnil(_obj.Pos) then + {self.}Pos := _obj.Pos; + tslassigning := tslassigning_backup; +end; + +function Tab.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function Tab.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Tab.ReadXmlAttrLeader(); +begin + return {self.}XmlAttrLeader.Value; +end; + +function Tab.WriteXmlAttrLeader(_value); +begin + if ifnil({self.}XmlAttrLeader) then + begin + {self.}XmlAttrLeader := new OpenXmlAttribute({self.}Prefix, "leader", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLeader; + end + {self.}XmlAttrLeader.Value := _value; +end; + +function Tab.ReadXmlAttrPos(); +begin + return {self.}XmlAttrPos.Value; +end; + +function Tab.WriteXmlAttrPos(_value); +begin + if ifnil({self.}XmlAttrPos) then + begin + {self.}XmlAttrPos := new OpenXmlAttribute({self.}Prefix, "pos", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPos; + end + {self.}XmlAttrPos.Value := _value; +end; + +function NumPr.Create();overload; +begin + {self.}Create(nil, "w", "numPr"); +end; + +function NumPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function NumPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function NumPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "ilvl": array(0, makeweakref(thisFunction(ReadXmlChildIlvl))), + pre + "numId": array(1, makeweakref(thisFunction(ReadXmlChildNumId))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function NumPr.Copy(_obj: NumPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildIlvl) then + {self.}Ilvl.Copy(_obj.XmlChildIlvl); + if not ifnil(_obj.XmlChildNumId) then + {self.}NumId.Copy(_obj.XmlChildNumId); + tslassigning := tslassigning_backup; +end; + +function NumPr.ReadXmlChildIlvl(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildIlvl) then + begin + {self.}XmlChildIlvl := new PureWVal(self, {self.}Prefix, "ilvl"); + container_.Set({self.}XmlChildIlvl); + end + return {self.}XmlChildIlvl; +end; + +function NumPr.ReadXmlChildNumId(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNumId) then + begin + {self.}XmlChildNumId := new PureWVal(self, {self.}Prefix, "numId"); + container_.Set({self.}XmlChildNumId); + end + return {self.}XmlChildNumId; +end; + +function Ind.Create();overload; +begin + {self.}Create(nil, "w", "ind"); +end; + +function Ind.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Ind.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Ind.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "firstLineChars": makeweakref(thisFunction(WriteXmlAttrFirstLineChars)), + pre + "firstLine": makeweakref(thisFunction(WriteXmlAttrFirstLine)), + pre + "rightChars": makeweakref(thisFunction(WriteXmlAttrRightChars)), + pre + "right": makeweakref(thisFunction(WriteXmlAttrRight)), + pre + "leftChars": makeweakref(thisFunction(WriteXmlAttrLeftChars)), + pre + "left": makeweakref(thisFunction(WriteXmlAttrLeft)), + pre + "hainging": makeweakref(thisFunction(WriteXmlAttrHanging)), + pre + "hangingChars": makeweakref(thisFunction(WriteXmlAttrHangingChars)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Ind.Copy(_obj: Ind);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.FirstLineChars) then + {self.}FirstLineChars := _obj.FirstLineChars; + if not ifnil(_obj.FirstLine) then + {self.}FirstLine := _obj.FirstLine; + if not ifnil(_obj.RightChars) then + {self.}RightChars := _obj.RightChars; + if not ifnil(_obj.Right) then + {self.}Right := _obj.Right; + if not ifnil(_obj.LeftChars) then + {self.}LeftChars := _obj.LeftChars; + if not ifnil(_obj.Left) then + {self.}Left := _obj.Left; + if not ifnil(_obj.Hanging) then + {self.}Hanging := _obj.Hanging; + if not ifnil(_obj.HangingChars) then + {self.}HangingChars := _obj.HangingChars; + tslassigning := tslassigning_backup; +end; + +function Ind.ReadXmlAttrFirstLineChars(); +begin + return {self.}XmlAttrFirstLineChars.Value; +end; + +function Ind.WriteXmlAttrFirstLineChars(_value); +begin + if ifnil({self.}XmlAttrFirstLineChars) then + begin + {self.}XmlAttrFirstLineChars := new OpenXmlAttribute({self.}Prefix, "firstLineChars", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstLineChars; + end + {self.}XmlAttrFirstLineChars.Value := _value; +end; + +function Ind.ReadXmlAttrFirstLine(); +begin + return {self.}XmlAttrFirstLine.Value; +end; + +function Ind.WriteXmlAttrFirstLine(_value); +begin + if ifnil({self.}XmlAttrFirstLine) then + begin + {self.}XmlAttrFirstLine := new OpenXmlAttribute({self.}Prefix, "firstLine", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstLine; + end + {self.}XmlAttrFirstLine.Value := _value; +end; + +function Ind.ReadXmlAttrRightChars(); +begin + return {self.}XmlAttrRightChars.Value; +end; + +function Ind.WriteXmlAttrRightChars(_value); +begin + if ifnil({self.}XmlAttrRightChars) then + begin + {self.}XmlAttrRightChars := new OpenXmlAttribute({self.}Prefix, "rightChars", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRightChars; + end + {self.}XmlAttrRightChars.Value := _value; +end; + +function Ind.ReadXmlAttrRight(); +begin + return {self.}XmlAttrRight.Value; +end; + +function Ind.WriteXmlAttrRight(_value); +begin + if ifnil({self.}XmlAttrRight) then + begin + {self.}XmlAttrRight := new OpenXmlAttribute({self.}Prefix, "right", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRight; + end + {self.}XmlAttrRight.Value := _value; +end; + +function Ind.ReadXmlAttrLeftChars(); +begin + return {self.}XmlAttrLeftChars.Value; +end; + +function Ind.WriteXmlAttrLeftChars(_value); +begin + if ifnil({self.}XmlAttrLeftChars) then + begin + {self.}XmlAttrLeftChars := new OpenXmlAttribute({self.}Prefix, "leftChars", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLeftChars; + end + {self.}XmlAttrLeftChars.Value := _value; +end; + +function Ind.ReadXmlAttrLeft(); +begin + return {self.}XmlAttrLeft.Value; +end; + +function Ind.WriteXmlAttrLeft(_value); +begin + if ifnil({self.}XmlAttrLeft) then + begin + {self.}XmlAttrLeft := new OpenXmlAttribute({self.}Prefix, "left", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLeft; + end + {self.}XmlAttrLeft.Value := _value; +end; + +function Ind.ReadXmlAttrHanging(); +begin + return {self.}XmlAttrHanging.Value; +end; + +function Ind.WriteXmlAttrHanging(_value); +begin + if ifnil({self.}XmlAttrHanging) then + begin + {self.}XmlAttrHanging := new OpenXmlAttribute({self.}Prefix, "hainging", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHanging; + end + {self.}XmlAttrHanging.Value := _value; +end; + +function Ind.ReadXmlAttrHangingChars(); +begin + return {self.}XmlAttrHangingChars.Value; +end; + +function Ind.WriteXmlAttrHangingChars(_value); +begin + if ifnil({self.}XmlAttrHangingChars) then + begin + {self.}XmlAttrHangingChars := new OpenXmlAttribute({self.}Prefix, "hangingChars", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHangingChars; + end + {self.}XmlAttrHangingChars.Value := _value; +end; + +function Spacing.Create();overload; +begin + {self.}Create(nil, "w", "spacing"); +end; + +function Spacing.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Spacing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Spacing.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "before": makeweakref(thisFunction(WriteXmlAttrBefore)), + pre + "beforeLines": makeweakref(thisFunction(WriteXmlAttrBeforeLines)), + pre + "beforeAutospacing": makeweakref(thisFunction(WriteXmlAttrBeforeAutospacing)), + pre + "after": makeweakref(thisFunction(WriteXmlAttrAfter)), + pre + "afterLines": makeweakref(thisFunction(WriteXmlAttrAfterLines)), + pre + "afterAutospacing": makeweakref(thisFunction(WriteXmlAttrAfterAutospacing)), + pre + "line": makeweakref(thisFunction(WriteXmlAttrLine)), + pre + "lineRule": makeweakref(thisFunction(WriteXmlAttrLineRule)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Spacing.Copy(_obj: Spacing);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Before) then + {self.}Before := _obj.Before; + if not ifnil(_obj.BeforeLines) then + {self.}BeforeLines := _obj.BeforeLines; + if not ifnil(_obj.BeforeAutospacing) then + {self.}BeforeAutospacing := _obj.BeforeAutospacing; + if not ifnil(_obj.After) then + {self.}After := _obj.After; + if not ifnil(_obj.AfterLines) then + {self.}AfterLines := _obj.AfterLines; + if not ifnil(_obj.AfterAutospacing) then + {self.}AfterAutospacing := _obj.AfterAutospacing; + if not ifnil(_obj.Line) then + {self.}Line := _obj.Line; + if not ifnil(_obj.LineRule) then + {self.}LineRule := _obj.LineRule; + tslassigning := tslassigning_backup; +end; + +function Spacing.ReadXmlAttrBefore(); +begin + return {self.}XmlAttrBefore.Value; +end; + +function Spacing.WriteXmlAttrBefore(_value); +begin + if ifnil({self.}XmlAttrBefore) then + begin + {self.}XmlAttrBefore := new OpenXmlAttribute({self.}Prefix, "before", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBefore; + end + {self.}XmlAttrBefore.Value := _value; +end; + +function Spacing.ReadXmlAttrBeforeLines(); +begin + return {self.}XmlAttrBeforeLines.Value; +end; + +function Spacing.WriteXmlAttrBeforeLines(_value); +begin + if ifnil({self.}XmlAttrBeforeLines) then + begin + {self.}XmlAttrBeforeLines := new OpenXmlAttribute({self.}Prefix, "beforeLines", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBeforeLines; + end + {self.}XmlAttrBeforeLines.Value := _value; +end; + +function Spacing.ReadXmlAttrBeforeAutospacing(); +begin + return {self.}XmlAttrBeforeAutospacing.Value; +end; + +function Spacing.WriteXmlAttrBeforeAutospacing(_value); +begin + if ifnil({self.}XmlAttrBeforeAutospacing) then + begin + {self.}XmlAttrBeforeAutospacing := new OpenXmlAttribute({self.}Prefix, "beforeAutospacing", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBeforeAutospacing; + end + {self.}XmlAttrBeforeAutospacing.Value := _value; +end; + +function Spacing.ReadXmlAttrAfter(); +begin + return {self.}XmlAttrAfter.Value; +end; + +function Spacing.WriteXmlAttrAfter(_value); +begin + if ifnil({self.}XmlAttrAfter) then + begin + {self.}XmlAttrAfter := new OpenXmlAttribute({self.}Prefix, "after", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAfter; + end + {self.}XmlAttrAfter.Value := _value; +end; + +function Spacing.ReadXmlAttrAfterLines(); +begin + return {self.}XmlAttrAfterLines.Value; +end; + +function Spacing.WriteXmlAttrAfterLines(_value); +begin + if ifnil({self.}XmlAttrAfterLines) then + begin + {self.}XmlAttrAfterLines := new OpenXmlAttribute({self.}Prefix, "afterLines", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAfterLines; + end + {self.}XmlAttrAfterLines.Value := _value; +end; + +function Spacing.ReadXmlAttrAfterAutospacing(); +begin + return {self.}XmlAttrAfterAutospacing.Value; +end; + +function Spacing.WriteXmlAttrAfterAutospacing(_value); +begin + if ifnil({self.}XmlAttrAfterAutospacing) then + begin + {self.}XmlAttrAfterAutospacing := new OpenXmlAttribute({self.}Prefix, "afterAutospacing", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAfterAutospacing; + end + {self.}XmlAttrAfterAutospacing.Value := _value; +end; + +function Spacing.ReadXmlAttrLine(); +begin + return {self.}XmlAttrLine.Value; +end; + +function Spacing.WriteXmlAttrLine(_value); +begin + if ifnil({self.}XmlAttrLine) then + begin + {self.}XmlAttrLine := new OpenXmlAttribute({self.}Prefix, "line", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLine; + end + {self.}XmlAttrLine.Value := _value; +end; + +function Spacing.ReadXmlAttrLineRule(); +begin + return {self.}XmlAttrLineRule.Value; +end; + +function Spacing.WriteXmlAttrLineRule(_value); +begin + if ifnil({self.}XmlAttrLineRule) then + begin + {self.}XmlAttrLineRule := new OpenXmlAttribute({self.}Prefix, "lineRule", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLineRule; + end + {self.}XmlAttrLineRule.Value := _value; +end; + +function RPr.Create();overload; +begin + {self.}Create(nil, "w", "rPr"); +end; + +function RPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function RPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function RPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "noProof": array(0, makeweakref(thisFunction(ReadXmlChildNoProof))), + pre + "position": array(1, makeweakref(thisFunction(ReadXmlChildPosition))), + pre + "wedHidden": array(2, makeweakref(thisFunction(ReadXmlChildWebHidden))), + pre + "rStyle": array(3, makeweakref(thisFunction(ReadXmlChildRStyle))), + pre + "ins": array(4, makeweakref(thisFunction(ReadXmlChildIns))), + pre + "rFonts": array(5, makeweakref(thisFunction(ReadXmlChildRFonts))), + pre + "kern": array(6, makeweakref(thisFunction(ReadXmlChildKern))), + pre + "i": array(7, makeweakref(thisFunction(ReadXmlChildI))), + pre + "iCs": array(8, makeweakref(thisFunction(ReadXmlChildICs))), + pre + "b": array(9, makeweakref(thisFunction(ReadXmlChildB))), + pre + "bCs": array(10, makeweakref(thisFunction(ReadXmlChildBCs))), + pre + "strike": array(11, makeweakref(thisFunction(ReadXmlChildStrike))), + pre + "color": array(12, makeweakref(thisFunction(ReadXmlChildColor))), + pre + "sz": array(13, makeweakref(thisFunction(ReadXmlChildSz))), + pre + "szCs": array(14, makeweakref(thisFunction(ReadXmlChildSzCs))), + pre + "u": array(15, makeweakref(thisFunction(ReadXmlChildU))), + pre + "lang": array(16, makeweakref(thisFunction(ReadXmlChildLang))), + pre + "vertAlign": array(17, makeweakref(thisFunction(ReadXmlChildVertAlign))), + "w14:ligatures": array(18, makeweakref(thisFunction(ReadXmlChildLigatures))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function RPr.Copy(_obj: RPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildNoProof) then + {self.}NoProof.Copy(_obj.XmlChildNoProof); + if not ifnil(_obj.XmlChildPosition) then + {self.}Position.Copy(_obj.XmlChildPosition); + if not ifnil(_obj.XmlChildWebHidden) then + {self.}WebHidden.Copy(_obj.XmlChildWebHidden); + if not ifnil(_obj.XmlChildRStyle) then + {self.}RStyle.Copy(_obj.XmlChildRStyle); + if not ifnil(_obj.XmlChildIns) then + {self.}Ins.Copy(_obj.XmlChildIns); + if not ifnil(_obj.XmlChildRFonts) then + {self.}RFonts.Copy(_obj.XmlChildRFonts); + if not ifnil(_obj.XmlChildKern) then + {self.}Kern.Copy(_obj.XmlChildKern); + if not ifnil(_obj.XmlChildI) then + ifnil({self.}XmlChildI) ? {self.}I.Copy(_obj.XmlChildI) : {self.}XmlChildI.Copy(_obj.XmlChildI); + if not ifnil(_obj.XmlChildICs) then + ifnil({self.}XmlChildICs) ? {self.}ICs.Copy(_obj.XmlChildICs) : {self.}XmlChildICs.Copy(_obj.XmlChildICs); + if not ifnil(_obj.XmlChildB) then + ifnil({self.}XmlChildB) ? {self.}B.Copy(_obj.XmlChildB) : {self.}XmlChildB.Copy(_obj.XmlChildB); + if not ifnil(_obj.XmlChildBCs) then + ifnil({self.}XmlChildBCs) ? {self.}BCs.Copy(_obj.XmlChildBCs) : {self.}XmlChildBCs.Copy(_obj.XmlChildBCs); + if not ifnil(_obj.XmlChildStrike) then + ifnil({self.}XmlChildStrike) ? {self.}Strike.Copy(_obj.XmlChildStrike) : {self.}XmlChildStrike.Copy(_obj.XmlChildStrike); + if not ifnil(_obj.XmlChildColor) then + {self.}Color.Copy(_obj.XmlChildColor); + if not ifnil(_obj.XmlChildSz) then + {self.}Sz.Copy(_obj.XmlChildSz); + if not ifnil(_obj.XmlChildSzCs) then + {self.}SzCs.Copy(_obj.XmlChildSzCs); + if not ifnil(_obj.XmlChildU) then + ifnil({self.}XmlChildU) ? {self.}U.Copy(_obj.XmlChildU) : {self.}XmlChildU.Copy(_obj.XmlChildU); + if not ifnil(_obj.XmlChildLang) then + {self.}Lang.Copy(_obj.XmlChildLang); + if not ifnil(_obj.XmlChildVertAlign) then + {self.}VertAlign.Copy(_obj.XmlChildVertAlign); + if not ifnil(_obj.XmlChildLigatures) then + {self.}Ligatures.Copy(_obj.XmlChildLigatures); + tslassigning := tslassigning_backup; +end; + +function RPr.ReadXmlChildI(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildI) then + begin + {self.}XmlChildI := new OpenXmlEmpty(self, {self.}Prefix, "i"); + container_.Set({self.}XmlChildI); + end + return {self.}XmlChildI; + end + return ifnil({self.}XmlChildI) ? nil : {self.}XmlChildI.BoolValue(); +end; + +function RPr.WriteXmlChildI(_value); +begin + if ifnil({self.}XmlChildI) then + begin + {self.}XmlChildI := new OpenXmlEmpty(self, {self.}Prefix, "i"); + container_.Set({self.}XmlChildI); + end + {self.}XmlChildI.Value := _value; +end; + +function RPr.ReadXmlChildICs(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildICs) then + begin + {self.}XmlChildICs := new OpenXmlEmpty(self, {self.}Prefix, "iCs"); + container_.Set({self.}XmlChildICs); + end + return {self.}XmlChildICs; + end + return ifnil({self.}XmlChildICs) ? nil : {self.}XmlChildICs.BoolValue(); +end; + +function RPr.WriteXmlChildICs(_value); +begin + if ifnil({self.}XmlChildICs) then + begin + {self.}XmlChildICs := new OpenXmlEmpty(self, {self.}Prefix, "iCs"); + container_.Set({self.}XmlChildICs); + end + {self.}XmlChildICs.Value := _value; +end; + +function RPr.ReadXmlChildB(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildB) then + begin + {self.}XmlChildB := new OpenXmlEmpty(self, {self.}Prefix, "b"); + container_.Set({self.}XmlChildB); + end + return {self.}XmlChildB; + end + return ifnil({self.}XmlChildB) ? nil : {self.}XmlChildB.BoolValue(); +end; + +function RPr.WriteXmlChildB(_value); +begin + if ifnil({self.}XmlChildB) then + begin + {self.}XmlChildB := new OpenXmlEmpty(self, {self.}Prefix, "b"); + container_.Set({self.}XmlChildB); + end + {self.}XmlChildB.Value := _value; +end; + +function RPr.ReadXmlChildBCs(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildBCs) then + begin + {self.}XmlChildBCs := new OpenXmlEmpty(self, {self.}Prefix, "bCs"); + container_.Set({self.}XmlChildBCs); + end + return {self.}XmlChildBCs; + end + return ifnil({self.}XmlChildBCs) ? nil : {self.}XmlChildBCs.BoolValue(); +end; + +function RPr.WriteXmlChildBCs(_value); +begin + if ifnil({self.}XmlChildBCs) then + begin + {self.}XmlChildBCs := new OpenXmlEmpty(self, {self.}Prefix, "bCs"); + container_.Set({self.}XmlChildBCs); + end + {self.}XmlChildBCs.Value := _value; +end; + +function RPr.ReadXmlChildStrike(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildStrike) then + begin + {self.}XmlChildStrike := new OpenXmlEmpty(self, {self.}Prefix, "strike"); + container_.Set({self.}XmlChildStrike); + end + return {self.}XmlChildStrike; + end + return ifnil({self.}XmlChildStrike) ? nil : {self.}XmlChildStrike.BoolValue(); +end; + +function RPr.WriteXmlChildStrike(_value); +begin + if ifnil({self.}XmlChildStrike) then + begin + {self.}XmlChildStrike := new OpenXmlEmpty(self, {self.}Prefix, "strike"); + container_.Set({self.}XmlChildStrike); + end + {self.}XmlChildStrike.Value := _value; +end; + +function RPr.ReadXmlChildU(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildU) then + begin + {self.}XmlChildU := new OpenXmlEmpty(self, {self.}Prefix, "u"); + container_.Set({self.}XmlChildU); + end + return {self.}XmlChildU; + end + return ifnil({self.}XmlChildU) ? nil : {self.}XmlChildU.BoolValue(); +end; + +function RPr.WriteXmlChildU(_value); +begin + if ifnil({self.}XmlChildU) then + begin + {self.}XmlChildU := new OpenXmlEmpty(self, {self.}Prefix, "u"); + container_.Set({self.}XmlChildU); + end + {self.}XmlChildU.Value := _value; +end; + +function RPr.ReadXmlChildNoProof(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildNoProof) then + begin + {self.}XmlChildNoProof := new PureVal(self, {self.}Prefix, "noProof"); + container_.Set({self.}XmlChildNoProof); + end + return {self.}XmlChildNoProof; +end; + +function RPr.ReadXmlChildPosition(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildPosition) then + begin + {self.}XmlChildPosition := new PureVal(self, {self.}Prefix, "position"); + container_.Set({self.}XmlChildPosition); + end + return {self.}XmlChildPosition; +end; + +function RPr.ReadXmlChildWebHidden(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildWebHidden) then + begin + {self.}XmlChildWebHidden := new PureWVal(self, {self.}Prefix, "wedHidden"); + container_.Set({self.}XmlChildWebHidden); + end + return {self.}XmlChildWebHidden; +end; + +function RPr.ReadXmlChildRStyle(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildRStyle) then + begin + {self.}XmlChildRStyle := new PureWVal(self, {self.}Prefix, "rStyle"); + container_.Set({self.}XmlChildRStyle); + end + return {self.}XmlChildRStyle; +end; + +function RPr.ReadXmlChildIns(): Ins; +begin + if tslassigning and ifnil({self.}XmlChildIns) then + begin + {self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins"); + container_.Set({self.}XmlChildIns); + end + return {self.}XmlChildIns; +end; + +function RPr.ReadXmlChildRFonts(): RFonts; +begin + if tslassigning and ifnil({self.}XmlChildRFonts) then + begin + {self.}XmlChildRFonts := new RFonts(self, {self.}Prefix, "rFonts"); + container_.Set({self.}XmlChildRFonts); + end + return {self.}XmlChildRFonts; +end; + +function RPr.ReadXmlChildKern(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildKern) then + begin + {self.}XmlChildKern := new PureWVal(self, {self.}Prefix, "kern"); + container_.Set({self.}XmlChildKern); + end + return {self.}XmlChildKern; +end; + +function RPr.ReadXmlChildColor(): Color; +begin + if tslassigning and ifnil({self.}XmlChildColor) then + begin + {self.}XmlChildColor := new Color(self, {self.}Prefix, "color"); + container_.Set({self.}XmlChildColor); + end + return {self.}XmlChildColor; +end; + +function RPr.ReadXmlChildSz(): Sz; +begin + if tslassigning and ifnil({self.}XmlChildSz) then + begin + {self.}XmlChildSz := new Sz(self, {self.}Prefix, "sz"); + container_.Set({self.}XmlChildSz); + end + return {self.}XmlChildSz; +end; + +function RPr.ReadXmlChildSzCs(): SzCs; +begin + if tslassigning and ifnil({self.}XmlChildSzCs) then + begin + {self.}XmlChildSzCs := new SzCs(self, {self.}Prefix, "szCs"); + container_.Set({self.}XmlChildSzCs); + end + return {self.}XmlChildSzCs; +end; + +function RPr.ReadXmlChildLang(): Lang; +begin + if tslassigning and ifnil({self.}XmlChildLang) then + begin + {self.}XmlChildLang := new Lang(self, {self.}Prefix, "lang"); + container_.Set({self.}XmlChildLang); + end + return {self.}XmlChildLang; +end; + +function RPr.ReadXmlChildVertAlign(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildVertAlign) then + begin + {self.}XmlChildVertAlign := new PureWVal(self, {self.}Prefix, "vertAlign"); + container_.Set({self.}XmlChildVertAlign); + end + return {self.}XmlChildVertAlign; +end; + +function RPr.ReadXmlChildLigatures(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildLigatures) then + begin + {self.}XmlChildLigatures := new PureWVal(self, "w14", "ligatures"); + container_.Set({self.}XmlChildLigatures); + end + return {self.}XmlChildLigatures; +end; + +function RFonts.Create();overload; +begin + {self.}Create(nil, "w", "rFonts"); +end; + +function RFonts.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function RFonts.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function RFonts.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "ascii": makeweakref(thisFunction(WriteXmlAttrAscii)), + pre + "asciiTheme": makeweakref(thisFunction(WriteXmlAttrAsciiTheme)), + pre + "eastAsia": makeweakref(thisFunction(WriteXmlAttrEastAsia)), + pre + "eastAsiaTheme": makeweakref(thisFunction(WriteXmlAttrEastAsiaTheme)), + pre + "hAnsi": makeweakref(thisFunction(WriteXmlAttrHAnsi)), + pre + "hAnsiTheme": makeweakref(thisFunction(WriteXmlAttrHAnsiTheme)), + pre + "hint": makeweakref(thisFunction(WriteXmlAttrHint)), + pre + "cs": makeweakref(thisFunction(WriteXmlAttrCs)), + pre + "cstheme": makeweakref(thisFunction(WriteXmlAttrCsTheme)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function RFonts.Copy(_obj: RFonts);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ascii) then + {self.}Ascii := _obj.Ascii; + if not ifnil(_obj.AsciiTheme) then + {self.}AsciiTheme := _obj.AsciiTheme; + if not ifnil(_obj.EastAsia) then + {self.}EastAsia := _obj.EastAsia; + if not ifnil(_obj.EastAsiaTheme) then + {self.}EastAsiaTheme := _obj.EastAsiaTheme; + if not ifnil(_obj.HAnsi) then + {self.}HAnsi := _obj.HAnsi; + if not ifnil(_obj.HAnsiTheme) then + {self.}HAnsiTheme := _obj.HAnsiTheme; + if not ifnil(_obj.Hint) then + {self.}Hint := _obj.Hint; + if not ifnil(_obj.Cs) then + {self.}Cs := _obj.Cs; + if not ifnil(_obj.CsTheme) then + {self.}CsTheme := _obj.CsTheme; + tslassigning := tslassigning_backup; +end; + +function RFonts.ReadXmlAttrAscii(); +begin + return {self.}XmlAttrAscii.Value; +end; + +function RFonts.WriteXmlAttrAscii(_value); +begin + if ifnil({self.}XmlAttrAscii) then + begin + {self.}XmlAttrAscii := new OpenXmlAttribute({self.}Prefix, "ascii", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAscii; + end + {self.}XmlAttrAscii.Value := _value; +end; + +function RFonts.ReadXmlAttrAsciiTheme(); +begin + return {self.}XmlAttrAsciiTheme.Value; +end; + +function RFonts.WriteXmlAttrAsciiTheme(_value); +begin + if ifnil({self.}XmlAttrAsciiTheme) then + begin + {self.}XmlAttrAsciiTheme := new OpenXmlAttribute({self.}Prefix, "asciiTheme", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAsciiTheme; + end + {self.}XmlAttrAsciiTheme.Value := _value; +end; + +function RFonts.ReadXmlAttrEastAsia(); +begin + return {self.}XmlAttrEastAsia.Value; +end; + +function RFonts.WriteXmlAttrEastAsia(_value); +begin + if ifnil({self.}XmlAttrEastAsia) then + begin + {self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEastAsia; + end + {self.}XmlAttrEastAsia.Value := _value; +end; + +function RFonts.ReadXmlAttrEastAsiaTheme(); +begin + return {self.}XmlAttrEastAsiaTheme.Value; +end; + +function RFonts.WriteXmlAttrEastAsiaTheme(_value); +begin + if ifnil({self.}XmlAttrEastAsiaTheme) then + begin + {self.}XmlAttrEastAsiaTheme := new OpenXmlAttribute({self.}Prefix, "eastAsiaTheme", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEastAsiaTheme; + end + {self.}XmlAttrEastAsiaTheme.Value := _value; +end; + +function RFonts.ReadXmlAttrHAnsi(); +begin + return {self.}XmlAttrHAnsi.Value; +end; + +function RFonts.WriteXmlAttrHAnsi(_value); +begin + if ifnil({self.}XmlAttrHAnsi) then + begin + {self.}XmlAttrHAnsi := new OpenXmlAttribute({self.}Prefix, "hAnsi", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHAnsi; + end + {self.}XmlAttrHAnsi.Value := _value; +end; + +function RFonts.ReadXmlAttrHAnsiTheme(); +begin + return {self.}XmlAttrHAnsiTheme.Value; +end; + +function RFonts.WriteXmlAttrHAnsiTheme(_value); +begin + if ifnil({self.}XmlAttrHAnsiTheme) then + begin + {self.}XmlAttrHAnsiTheme := new OpenXmlAttribute({self.}Prefix, "hAnsiTheme", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHAnsiTheme; + end + {self.}XmlAttrHAnsiTheme.Value := _value; +end; + +function RFonts.ReadXmlAttrHint(); +begin + return {self.}XmlAttrHint.Value; +end; + +function RFonts.WriteXmlAttrHint(_value); +begin + if ifnil({self.}XmlAttrHint) then + begin + {self.}XmlAttrHint := new OpenXmlAttribute({self.}Prefix, "hint", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHint; + end + {self.}XmlAttrHint.Value := _value; +end; + +function RFonts.ReadXmlAttrCs(); +begin + return {self.}XmlAttrCs.Value; +end; + +function RFonts.WriteXmlAttrCs(_value); +begin + if ifnil({self.}XmlAttrCs) then + begin + {self.}XmlAttrCs := new OpenXmlAttribute({self.}Prefix, "cs", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCs; + end + {self.}XmlAttrCs.Value := _value; +end; + +function RFonts.ReadXmlAttrCsTheme(); +begin + return {self.}XmlAttrCsTheme.Value; +end; + +function RFonts.WriteXmlAttrCsTheme(_value); +begin + if ifnil({self.}XmlAttrCsTheme) then + begin + {self.}XmlAttrCsTheme := new OpenXmlAttribute({self.}Prefix, "cstheme", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCsTheme; + end + {self.}XmlAttrCsTheme.Value := _value; +end; + +function SzCs.Create();overload; +begin + {self.}Create(nil, "w", "szCs"); +end; + +function SzCs.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SzCs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SzCs.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SzCs.Copy(_obj: SzCs);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + tslassigning := tslassigning_backup; +end; + +function SzCs.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function SzCs.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Sz.Create();overload; +begin + {self.}Create(nil, "w", "sz"); +end; + +function Sz.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Sz.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Sz.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Sz.Copy(_obj: Sz);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + tslassigning := tslassigning_backup; +end; + +function Sz.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function Sz.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function PureWVal.Create();overload; +begin + {self.}Create(nil, "", ""); +end; + +function PureWVal.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PureWVal.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PureWVal.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PureWVal.Copy(_obj: PureWVal);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + tslassigning := tslassigning_backup; +end; + +function PureWVal.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function PureWVal.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Color.Create();overload; +begin + {self.}Create(nil, "w", "color"); +end; + +function Color.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Color.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Color.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Color.Copy(_obj: Color);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.ThemeColor) then + {self.}ThemeColor := _obj.ThemeColor; + tslassigning := tslassigning_backup; +end; + +function Color.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function Color.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Color.ReadXmlAttrThemeColor(); +begin + return {self.}XmlAttrThemeColor.Value; +end; + +function Color.WriteXmlAttrThemeColor(_value); +begin + if ifnil({self.}XmlAttrThemeColor) then + begin + {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; + end + {self.}XmlAttrThemeColor.Value := _value; +end; + +function Lang.Create();overload; +begin + {self.}Create(nil, "w", "lang"); +end; + +function Lang.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Lang.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Lang.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "eastAsia": makeweakref(thisFunction(WriteXmlAttrEastAsia)), + pre + "bidi": makeweakref(thisFunction(WriteXmlAttrBidi)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Lang.Copy(_obj: Lang);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.EastAsia) then + {self.}EastAsia := _obj.EastAsia; + if not ifnil(_obj.Bidi) then + {self.}Bidi := _obj.Bidi; + tslassigning := tslassigning_backup; +end; + +function Lang.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function Lang.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Lang.ReadXmlAttrEastAsia(); +begin + return {self.}XmlAttrEastAsia.Value; +end; + +function Lang.WriteXmlAttrEastAsia(_value); +begin + if ifnil({self.}XmlAttrEastAsia) then + begin + {self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEastAsia; + end + {self.}XmlAttrEastAsia.Value := _value; +end; + +function Lang.ReadXmlAttrBidi(); +begin + return {self.}XmlAttrBidi.Value; +end; + +function Lang.WriteXmlAttrBidi(_value); +begin + if ifnil({self.}XmlAttrBidi) then + begin + {self.}XmlAttrBidi := new OpenXmlAttribute({self.}Prefix, "bidi", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBidi; + end + {self.}XmlAttrBidi.Value := _value; +end; + +function R.Create();overload; +begin + {self.}Create(nil, "w", "r"); +end; + +function R.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function R.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function R.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w:rsidRPr": makeweakref(thisFunction(WriteXmlAttrWRsidRPr)), + "w:anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)), + "w:history": makeweakref(thisFunction(WriteXmlAttrHistory)), + ); + sorted_child_ := array( + pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), + pre + "br": array(1, makeweakref(thisFunction(ReadXmlChildBr))), + pre + "fldChar": array(2, makeweakref(thisFunction(ReadXmlChildFldChar))), + pre + "instrText": array(3, makeweakref(thisFunction(ReadXmlChildInstrText))), + pre + "separator": array(4, makeweakref(thisFunction(ReadXmlChildSeparator))), + pre + "continuationSeparator": array(5, makeweakref(thisFunction(ReadXmlChildContinuationSeparator))), + pre + "lastRenderedPageBreak": array(6, makeweakref(thisFunction(ReadXmlChildLastRenderedPageBreak))), + "mc:AlternateContent": array(7, makeweakref(thisFunction(ReadXmlChildAlternateContent))), + pre + "drawing": array(8, makeweakref(thisFunction(ReadXmlChildDrawing))), + pre + "t": array(9, makeweakref(thisFunction(ReadXmlChildT))), + pre + "object": array(10, makeweakref(thisFunction(ReadXmlChildObject))), + pre + "footnoteReference": array(11, makeweakref(thisFunction(ReadXmlChildFootnoteReference))), + pre + "footnoteRef": array(12, makeweakref(thisFunction(ReadXmlChildFootnoteRef))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function R.Copy(_obj: R);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.WRsidRPr) then + {self.}WRsidRPr := _obj.WRsidRPr; + if not ifnil(_obj.Anchor) then + {self.}Anchor := _obj.Anchor; + if not ifnil(_obj.History) then + {self.}History := _obj.History; + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + if not ifnil(_obj.XmlChildBr) then + {self.}Br.Copy(_obj.XmlChildBr); + if not ifnil(_obj.XmlChildFldChar) then + {self.}FldChar.Copy(_obj.XmlChildFldChar); + if not ifnil(_obj.XmlChildInstrText) then + {self.}InstrText.Copy(_obj.XmlChildInstrText); + if not ifnil(_obj.XmlChildSeparator) then + ifnil({self.}XmlChildSeparator) ? {self.}Separator.Copy(_obj.XmlChildSeparator) : {self.}XmlChildSeparator.Copy(_obj.XmlChildSeparator); + if not ifnil(_obj.XmlChildContinuationSeparator) then + ifnil({self.}XmlChildContinuationSeparator) ? {self.}ContinuationSeparator.Copy(_obj.XmlChildContinuationSeparator) : {self.}XmlChildContinuationSeparator.Copy(_obj.XmlChildContinuationSeparator); + if not ifnil(_obj.XmlChildLastRenderedPageBreak) then + ifnil({self.}XmlChildLastRenderedPageBreak) ? {self.}LastRenderedPageBreak.Copy(_obj.XmlChildLastRenderedPageBreak) : {self.}XmlChildLastRenderedPageBreak.Copy(_obj.XmlChildLastRenderedPageBreak); + if not ifnil(_obj.XmlChildAlternateContent) then + {self.}AlternateContent.Copy(_obj.XmlChildAlternateContent); + if not ifnil(_obj.XmlChildDrawing) then + {self.}Drawing.Copy(_obj.XmlChildDrawing); + if not ifnil(_obj.XmlChildT) then + {self.}T.Copy(_obj.XmlChildT); + if not ifnil(_obj.XmlChildObject) then + {self.}Object.Copy(_obj.XmlChildObject); + if not ifnil(_obj.XmlChildFootnoteReference) then + {self.}FootnoteReference.Copy(_obj.XmlChildFootnoteReference); + if not ifnil(_obj.XmlChildFootnoteRef) then + ifnil({self.}XmlChildFootnoteRef) ? {self.}FootnoteRef.Copy(_obj.XmlChildFootnoteRef) : {self.}XmlChildFootnoteRef.Copy(_obj.XmlChildFootnoteRef); + tslassigning := tslassigning_backup; +end; + +function R.ReadXmlAttrWRsidRPr(); +begin + return {self.}XmlAttrWRsidRPr.Value; +end; + +function R.WriteXmlAttrWRsidRPr(_value); +begin + if ifnil({self.}XmlAttrWRsidRPr) then + begin + {self.}XmlAttrWRsidRPr := new OpenXmlAttribute("w", "rsidRPr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrWRsidRPr; + end + {self.}XmlAttrWRsidRPr.Value := _value; +end; + +function R.ReadXmlAttrAnchor(); +begin + return {self.}XmlAttrAnchor.Value; +end; + +function R.WriteXmlAttrAnchor(_value); +begin + if ifnil({self.}XmlAttrAnchor) then + begin + {self.}XmlAttrAnchor := new OpenXmlAttribute("w", "anchor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchor; + end + {self.}XmlAttrAnchor.Value := _value; +end; + +function R.ReadXmlAttrHistory(); +begin + return {self.}XmlAttrHistory.Value; +end; + +function R.WriteXmlAttrHistory(_value); +begin + if ifnil({self.}XmlAttrHistory) then + begin + {self.}XmlAttrHistory := new OpenXmlAttribute("w", "history", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHistory; + end + {self.}XmlAttrHistory.Value := _value; +end; + +function R.ReadXmlChildSeparator(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildSeparator) then + begin + {self.}XmlChildSeparator := new OpenXmlEmpty(self, {self.}Prefix, "separator"); + container_.Set({self.}XmlChildSeparator); + end + return {self.}XmlChildSeparator; + end + return ifnil({self.}XmlChildSeparator) ? nil : {self.}XmlChildSeparator.BoolValue(); +end; + +function R.WriteXmlChildSeparator(_value); +begin + if ifnil({self.}XmlChildSeparator) then + begin + {self.}XmlChildSeparator := new OpenXmlEmpty(self, {self.}Prefix, "separator"); + container_.Set({self.}XmlChildSeparator); + end + {self.}XmlChildSeparator.Value := _value; +end; + +function R.ReadXmlChildContinuationSeparator(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildContinuationSeparator) then + begin + {self.}XmlChildContinuationSeparator := new OpenXmlEmpty(self, {self.}Prefix, "continuationSeparator"); + container_.Set({self.}XmlChildContinuationSeparator); + end + return {self.}XmlChildContinuationSeparator; + end + return ifnil({self.}XmlChildContinuationSeparator) ? nil : {self.}XmlChildContinuationSeparator.BoolValue(); +end; + +function R.WriteXmlChildContinuationSeparator(_value); +begin + if ifnil({self.}XmlChildContinuationSeparator) then + begin + {self.}XmlChildContinuationSeparator := new OpenXmlEmpty(self, {self.}Prefix, "continuationSeparator"); + container_.Set({self.}XmlChildContinuationSeparator); + end + {self.}XmlChildContinuationSeparator.Value := _value; +end; + +function R.ReadXmlChildLastRenderedPageBreak(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildLastRenderedPageBreak) then + begin + {self.}XmlChildLastRenderedPageBreak := new OpenXmlEmpty(self, {self.}Prefix, "lastRenderedPageBreak"); + container_.Set({self.}XmlChildLastRenderedPageBreak); + end + return {self.}XmlChildLastRenderedPageBreak; + end + return ifnil({self.}XmlChildLastRenderedPageBreak) ? nil : {self.}XmlChildLastRenderedPageBreak.BoolValue(); +end; + +function R.WriteXmlChildLastRenderedPageBreak(_value); +begin + if ifnil({self.}XmlChildLastRenderedPageBreak) then + begin + {self.}XmlChildLastRenderedPageBreak := new OpenXmlEmpty(self, {self.}Prefix, "lastRenderedPageBreak"); + container_.Set({self.}XmlChildLastRenderedPageBreak); + end + {self.}XmlChildLastRenderedPageBreak.Value := _value; +end; + +function R.ReadXmlChildFootnoteRef(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildFootnoteRef) then + begin + {self.}XmlChildFootnoteRef := new OpenXmlEmpty(self, {self.}Prefix, "footnoteRef"); + container_.Set({self.}XmlChildFootnoteRef); + end + return {self.}XmlChildFootnoteRef; + end + return ifnil({self.}XmlChildFootnoteRef) ? nil : {self.}XmlChildFootnoteRef.BoolValue(); +end; + +function R.WriteXmlChildFootnoteRef(_value); +begin + if ifnil({self.}XmlChildFootnoteRef) then + begin + {self.}XmlChildFootnoteRef := new OpenXmlEmpty(self, {self.}Prefix, "footnoteRef"); + container_.Set({self.}XmlChildFootnoteRef); + end + {self.}XmlChildFootnoteRef.Value := _value; +end; + +function R.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function R.ReadXmlChildBr(): Br; +begin + if tslassigning and ifnil({self.}XmlChildBr) then + begin + {self.}XmlChildBr := new Br(self, {self.}Prefix, "br"); + container_.Set({self.}XmlChildBr); + end + return {self.}XmlChildBr; +end; + +function R.ReadXmlChildFldChar(): FldChar; +begin + if tslassigning and ifnil({self.}XmlChildFldChar) then + begin + {self.}XmlChildFldChar := new FldChar(self, {self.}Prefix, "fldChar"); + container_.Set({self.}XmlChildFldChar); + end + return {self.}XmlChildFldChar; +end; + +function R.ReadXmlChildInstrText(): InstrText; +begin + if tslassigning and ifnil({self.}XmlChildInstrText) then + begin + {self.}XmlChildInstrText := new InstrText(self, {self.}Prefix, "instrText"); + container_.Set({self.}XmlChildInstrText); + end + return {self.}XmlChildInstrText; +end; + +function R.ReadXmlChildAlternateContent(): AlternateContent; +begin + if tslassigning and ifnil({self.}XmlChildAlternateContent) then + begin + {self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent"); + container_.Set({self.}XmlChildAlternateContent); + end + return {self.}XmlChildAlternateContent; +end; + +function R.ReadXmlChildDrawing(): Drawing; +begin + if tslassigning and ifnil({self.}XmlChildDrawing) then + begin + {self.}XmlChildDrawing := new Drawing(self, {self.}Prefix, "drawing"); + container_.Set({self.}XmlChildDrawing); + end + return {self.}XmlChildDrawing; +end; + +function R.ReadXmlChildT(): T; +begin + if tslassigning and ifnil({self.}XmlChildT) then + begin + {self.}XmlChildT := new T(self, {self.}Prefix, "t"); + container_.Set({self.}XmlChildT); + end + return {self.}XmlChildT; +end; + +function R.ReadXmlChildObject(): Object; +begin + if tslassigning and ifnil({self.}XmlChildObject) then + begin + {self.}XmlChildObject := new Object(self, {self.}Prefix, "object"); + container_.Set({self.}XmlChildObject); + end + return {self.}XmlChildObject; +end; + +function R.ReadXmlChildFootnoteReference(): FootnoteReference; +begin + if tslassigning and ifnil({self.}XmlChildFootnoteReference) then + begin + {self.}XmlChildFootnoteReference := new FootnoteReference(self, {self.}Prefix, "footnoteReference"); + container_.Set({self.}XmlChildFootnoteReference); + end + return {self.}XmlChildFootnoteReference; +end; + +function Object.Create();overload; +begin + {self.}Create(nil, "w", "object"); +end; + +function Object.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Object.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Object.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "dxaOrig": makeweakref(thisFunction(WriteXmlAttrDxaOrig)), + pre + "dyaOrig": makeweakref(thisFunction(WriteXmlAttrDyaOrig)), + "w14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), + ); + sorted_child_ := array( + "v:shapetype": array(0, makeweakref(thisFunction(ReadXmlChildShapetype))), + "v:shape": array(1, makeweakref(thisFunction(ReadXmlChildShape))), + "o:OLEObject": array(2, makeweakref(thisFunction(ReadXmlChildOLEObject))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Object.Copy(_obj: Object);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.DxaOrig) then + {self.}DxaOrig := _obj.DxaOrig; + if not ifnil(_obj.DyaOrig) then + {self.}DyaOrig := _obj.DyaOrig; + if not ifnil(_obj.AnchorId) then + {self.}AnchorId := _obj.AnchorId; + if not ifnil(_obj.XmlChildShapetype) then + {self.}Shapetype.Copy(_obj.XmlChildShapetype); + if not ifnil(_obj.XmlChildShape) then + {self.}Shape.Copy(_obj.XmlChildShape); + if not ifnil(_obj.XmlChildOLEObject) then + {self.}OLEObject.Copy(_obj.XmlChildOLEObject); + tslassigning := tslassigning_backup; +end; + +function Object.ReadXmlAttrDxaOrig(); +begin + return {self.}XmlAttrDxaOrig.Value; +end; + +function Object.WriteXmlAttrDxaOrig(_value); +begin + if ifnil({self.}XmlAttrDxaOrig) then + begin + {self.}XmlAttrDxaOrig := new OpenXmlAttribute({self.}Prefix, "dxaOrig", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDxaOrig; + end + {self.}XmlAttrDxaOrig.Value := _value; +end; + +function Object.ReadXmlAttrDyaOrig(); +begin + return {self.}XmlAttrDyaOrig.Value; +end; + +function Object.WriteXmlAttrDyaOrig(_value); +begin + if ifnil({self.}XmlAttrDyaOrig) then + begin + {self.}XmlAttrDyaOrig := new OpenXmlAttribute({self.}Prefix, "dyaOrig", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDyaOrig; + end + {self.}XmlAttrDyaOrig.Value := _value; +end; + +function Object.ReadXmlAttrAnchorId(); +begin + return {self.}XmlAttrAnchorId.Value; +end; + +function Object.WriteXmlAttrAnchorId(_value); +begin + if ifnil({self.}XmlAttrAnchorId) then + begin + {self.}XmlAttrAnchorId := new OpenXmlAttribute("w14", "anchorId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; + end + {self.}XmlAttrAnchorId.Value := _value; +end; + +function Object.ReadXmlChildShapetype(): Shapetype; +begin + if tslassigning and ifnil({self.}XmlChildShapetype) then + begin + {self.}XmlChildShapetype := new VML.Shapetype(self, "v", "shapetype"); + container_.Set({self.}XmlChildShapetype); + end + return {self.}XmlChildShapetype; +end; + +function Object.ReadXmlChildShape(): Shape; +begin + if tslassigning and ifnil({self.}XmlChildShape) then + begin + {self.}XmlChildShape := new VML.Shape(self, "v", "shape"); + container_.Set({self.}XmlChildShape); + end + return {self.}XmlChildShape; +end; + +function Object.ReadXmlChildOLEObject(): OLEObject; +begin + if tslassigning and ifnil({self.}XmlChildOLEObject) then + begin + {self.}XmlChildOLEObject := new VML.OLEObject(self, "o", "OLEObject"); + container_.Set({self.}XmlChildOLEObject); + end + return {self.}XmlChildOLEObject; +end; + +function FootnoteReference.Create();overload; +begin + {self.}Create(nil, "w", "footnoteReference"); +end; + +function FootnoteReference.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FootnoteReference.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FootnoteReference.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FootnoteReference.Copy(_obj: FootnoteReference);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function FootnoteReference.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function FootnoteReference.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function FldChar.Create();overload; +begin + {self.}Create(nil, "w", "fldChar"); +end; + +function FldChar.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FldChar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FldChar.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "fldCharType": makeweakref(thisFunction(WriteXmlAttrFldCharType)), + pre + "fldLock": makeweakref(thisFunction(WriteXmlAttrFldLock)), + pre + "dirty": makeweakref(thisFunction(WriteXmlAttrDirty)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FldChar.Copy(_obj: FldChar);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.FldCharType) then + {self.}FldCharType := _obj.FldCharType; + if not ifnil(_obj.FldLock) then + {self.}FldLock := _obj.FldLock; + if not ifnil(_obj.Dirty) then + {self.}Dirty := _obj.Dirty; + tslassigning := tslassigning_backup; +end; + +function FldChar.ReadXmlAttrFldCharType(); +begin + return {self.}XmlAttrFldCharType.Value; +end; + +function FldChar.WriteXmlAttrFldCharType(_value); +begin + if ifnil({self.}XmlAttrFldCharType) then + begin + {self.}XmlAttrFldCharType := new OpenXmlAttribute({self.}Prefix, "fldCharType", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFldCharType; + end + {self.}XmlAttrFldCharType.Value := _value; +end; + +function FldChar.ReadXmlAttrFldLock(); +begin + return {self.}XmlAttrFldLock.Value; +end; + +function FldChar.WriteXmlAttrFldLock(_value); +begin + if ifnil({self.}XmlAttrFldLock) then + begin + {self.}XmlAttrFldLock := new OpenXmlAttribute({self.}Prefix, "fldLock", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFldLock; + end + {self.}XmlAttrFldLock.Value := _value; +end; + +function FldChar.ReadXmlAttrDirty(); +begin + return {self.}XmlAttrDirty.Value; +end; + +function FldChar.WriteXmlAttrDirty(_value); +begin + if ifnil({self.}XmlAttrDirty) then + begin + {self.}XmlAttrDirty := new OpenXmlAttribute({self.}Prefix, "dirty", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDirty; + end + {self.}XmlAttrDirty.Value := _value; +end; + +function InstrText.Create();overload; +begin + {self.}Create(nil, "w", "instrText"); +end; + +function InstrText.Create(_node: XmlNode);overload; +begin + class(OpenXmlPcdata).Create(_node: XmlNode); +end; + +function InstrText.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); +end; + +function InstrText.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "xml:Space": makeweakref(thisFunction(WriteXmlAttrSpace)), + ); +end; + +function InstrText.Copy(_obj: InstrText);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlPcdata).Copy(_obj); + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + tslassigning := tslassigning_backup; +end; + +function InstrText.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function InstrText.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute("xml", "Space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function Br.Create();overload; +begin + {self.}Create(nil, "w", "br"); +end; + +function Br.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Br.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Br.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Br.Copy(_obj: Br);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + tslassigning := tslassigning_backup; +end; + +function Br.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Br.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function TxbxContent.Create();overload; +begin + {self.}Create(nil, "w", "textbox"); +end; + +function TxbxContent.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TxbxContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TxbxContent.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TxbxContent.Copy(_obj: TxbxContent);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function TxbxContent.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function TxbxContent.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function TxbxContent.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Drawing.Create();overload; +begin + {self.}Create(nil, "w", "drawing"); +end; + +function Drawing.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Drawing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Drawing.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "wp:inline": array(0, makeweakref(thisFunction(ReadXmlChild_Inline))), + "wp:anchor": array(1, makeweakref(thisFunction(ReadXmlChildAnchor))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Drawing.Copy(_obj: Drawing);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChild_Inline) then + {self.}_Inline.Copy(_obj.XmlChild_Inline); + if not ifnil(_obj.XmlChildAnchor) then + {self.}Anchor.Copy(_obj.XmlChildAnchor); + tslassigning := tslassigning_backup; +end; + +function Drawing.ReadXmlChild_Inline(): _Inline; +begin + if tslassigning and ifnil({self.}XmlChild_Inline) then + begin + {self.}XmlChild_Inline := new DrawingML._Inline(self, "wp", "inline"); + container_.Set({self.}XmlChild_Inline); + end + return {self.}XmlChild_Inline; +end; + +function Drawing.ReadXmlChildAnchor(): Anchor; +begin + if tslassigning and ifnil({self.}XmlChildAnchor) then + begin + {self.}XmlChildAnchor := new DrawingML.Anchor(self, "wp", "anchor"); + container_.Set({self.}XmlChildAnchor); + end + return {self.}XmlChildAnchor; +end; + +function T.Create();overload; +begin + {self.}Create(nil, "w", "t"); +end; + +function T.Create(_node: XmlNode);overload; +begin + class(OpenXmlPcdata).Create(_node: XmlNode); +end; + +function T.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); +end; + +function T.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "xml:space": makeweakref(thisFunction(WriteXmlAttrSpace)), + ); +end; + +function T.Copy(_obj: T);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlPcdata).Copy(_obj); + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + tslassigning := tslassigning_backup; +end; + +function T.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function T.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute("xml", "space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function Tbl.Create();overload; +begin + {self.}Create(nil, "w", "tbl"); +end; + +function Tbl.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Tbl.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Tbl.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "tblPr": array(0, makeweakref(thisFunction(ReadXmlChildTblPr))), + pre + "tblGrid": array(1, makeweakref(thisFunction(ReadXmlChildTblGrid))), + pre + "tr": array(2, makeweakref(thisFunction(AppendTr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Tbl.Copy(_obj: Tbl);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTblPr) then + {self.}TblPr.Copy(_obj.XmlChildTblPr); + if not ifnil(_obj.XmlChildTblGrid) then + {self.}TblGrid.Copy(_obj.XmlChildTblGrid); + tslassigning := tslassigning_backup; +end; + +function Tbl.ReadXmlChildTblPr(): TblPr; +begin + if tslassigning and ifnil({self.}XmlChildTblPr) then + begin + {self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr"); + container_.Set({self.}XmlChildTblPr); + end + return {self.}XmlChildTblPr; +end; + +function Tbl.ReadXmlChildTblGrid(): TblGrid; +begin + if tslassigning and ifnil({self.}XmlChildTblGrid) then + begin + {self.}XmlChildTblGrid := new TblGrid(self, {self.}Prefix, "tblGrid"); + container_.Set({self.}XmlChildTblGrid); + end + return {self.}XmlChildTblGrid; +end; + +function Tbl.ReadTrs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "tr", ind); +end; + +function Tbl.AddTr(): Tr; +begin + obj := new Tr(self, {self.}Prefix, "tr"); + container_.Insert(obj); + return obj; +end; + +function Tbl.AppendTr(): Tr; +begin + obj := new Tr(self, {self.}Prefix, "tr"); + container_.Append(obj); + return obj; +end; + +function TblPr.Create();overload; +begin + {self.}Create(nil, "w", "tblPr"); +end; + +function TblPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "jc": array(0, makeweakref(thisFunction(ReadXmlChildJc))), + pre + "shd": array(1, makeweakref(thisFunction(ReadXmlChildShd))), + pre + "tblStyle": array(2, makeweakref(thisFunction(ReadXmlChildTblStyle))), + pre + "tblW": array(3, makeweakref(thisFunction(ReadXmlChildTblW))), + pre + "tblInd": array(4, makeweakref(thisFunction(ReadXmlChildTblInd))), + pre + "tblLayout": array(5, makeweakref(thisFunction(ReadXmlChildTblLayout))), + pre + "tblLook": array(6, makeweakref(thisFunction(ReadXmlChildTblLook))), + pre + "tblBorders": array(7, makeweakref(thisFunction(ReadXmlChildTblBorders))), + pre + "tblCellMar": array(8, makeweakref(thisFunction(ReadXmlChildTblCellMar))), + pre + "tblCellSpacing": array(9, makeweakref(thisFunction(ReadXmlChildTblCellSpacing))), + pre + "tblCaption": array(10, makeweakref(thisFunction(ReadXmlChildTblCaption))), + pre + "tblDescription": array(11, makeweakref(thisFunction(ReadXmlChildTblDescription))), + pre + "tblStyleRowBandSize": array(12, makeweakref(thisFunction(ReadXmlChildTblStyleRowBandSize))), + pre + "tblStyleColBandSize": array(13, makeweakref(thisFunction(ReadXmlChildTblStyleColBandSize))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblPr.Copy(_obj: TblPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildJc) then + {self.}Jc.Copy(_obj.XmlChildJc); + if not ifnil(_obj.XmlChildShd) then + {self.}Shd.Copy(_obj.XmlChildShd); + if not ifnil(_obj.XmlChildTblStyle) then + {self.}TblStyle.Copy(_obj.XmlChildTblStyle); + if not ifnil(_obj.XmlChildTblW) then + {self.}TblW.Copy(_obj.XmlChildTblW); + if not ifnil(_obj.XmlChildTblInd) then + {self.}TblInd.Copy(_obj.XmlChildTblInd); + if not ifnil(_obj.XmlChildTblLayout) then + {self.}TblLayout.Copy(_obj.XmlChildTblLayout); + if not ifnil(_obj.XmlChildTblLook) then + {self.}TblLook.Copy(_obj.XmlChildTblLook); + if not ifnil(_obj.XmlChildTblBorders) then + {self.}TblBorders.Copy(_obj.XmlChildTblBorders); + if not ifnil(_obj.XmlChildTblCellMar) then + {self.}TblCellMar.Copy(_obj.XmlChildTblCellMar); + if not ifnil(_obj.XmlChildTblCellSpacing) then + {self.}TblCellSpacing.Copy(_obj.XmlChildTblCellSpacing); + if not ifnil(_obj.XmlChildTblCaption) then + {self.}TblCaption.Copy(_obj.XmlChildTblCaption); + if not ifnil(_obj.XmlChildTblDescription) then + {self.}TblDescription.Copy(_obj.XmlChildTblDescription); + if not ifnil(_obj.XmlChildTblStyleRowBandSize) then + {self.}TblStyleRowBandSize.Copy(_obj.XmlChildTblStyleRowBandSize); + if not ifnil(_obj.XmlChildTblStyleColBandSize) then + {self.}TblStyleColBandSize.Copy(_obj.XmlChildTblStyleColBandSize); + tslassigning := tslassigning_backup; +end; + +function TblPr.ReadXmlChildJc(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildJc) then + begin + {self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc"); + container_.Set({self.}XmlChildJc); + end + return {self.}XmlChildJc; +end; + +function TblPr.ReadXmlChildShd(): Shd; +begin + if tslassigning and ifnil({self.}XmlChildShd) then + begin + {self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd"); + container_.Set({self.}XmlChildShd); + end + return {self.}XmlChildShd; +end; + +function TblPr.ReadXmlChildTblStyle(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTblStyle) then + begin + {self.}XmlChildTblStyle := new PureWVal(self, {self.}Prefix, "tblStyle"); + container_.Set({self.}XmlChildTblStyle); + end + return {self.}XmlChildTblStyle; +end; + +function TblPr.ReadXmlChildTblW(): TblW; +begin + if tslassigning and ifnil({self.}XmlChildTblW) then + begin + {self.}XmlChildTblW := new TblW(self, {self.}Prefix, "tblW"); + container_.Set({self.}XmlChildTblW); + end + return {self.}XmlChildTblW; +end; + +function TblPr.ReadXmlChildTblInd(): TblW; +begin + if tslassigning and ifnil({self.}XmlChildTblInd) then + begin + {self.}XmlChildTblInd := new TblW(self, {self.}Prefix, "tblInd"); + container_.Set({self.}XmlChildTblInd); + end + return {self.}XmlChildTblInd; +end; + +function TblPr.ReadXmlChildTblLayout(): TblLayout; +begin + if tslassigning and ifnil({self.}XmlChildTblLayout) then + begin + {self.}XmlChildTblLayout := new TblLayout(self, {self.}Prefix, "tblLayout"); + container_.Set({self.}XmlChildTblLayout); + end + return {self.}XmlChildTblLayout; +end; + +function TblPr.ReadXmlChildTblLook(): TblLook; +begin + if tslassigning and ifnil({self.}XmlChildTblLook) then + begin + {self.}XmlChildTblLook := new TblLook(self, {self.}Prefix, "tblLook"); + container_.Set({self.}XmlChildTblLook); + end + return {self.}XmlChildTblLook; +end; + +function TblPr.ReadXmlChildTblBorders(): TblBorders; +begin + if tslassigning and ifnil({self.}XmlChildTblBorders) then + begin + {self.}XmlChildTblBorders := new TblBorders(self, {self.}Prefix, "tblBorders"); + container_.Set({self.}XmlChildTblBorders); + end + return {self.}XmlChildTblBorders; +end; + +function TblPr.ReadXmlChildTblCellMar(): TblCellMar; +begin + if tslassigning and ifnil({self.}XmlChildTblCellMar) then + begin + {self.}XmlChildTblCellMar := new TblCellMar(self, {self.}Prefix, "tblCellMar"); + container_.Set({self.}XmlChildTblCellMar); + end + return {self.}XmlChildTblCellMar; +end; + +function TblPr.ReadXmlChildTblCellSpacing(): TblCellSpacing; +begin + if tslassigning and ifnil({self.}XmlChildTblCellSpacing) then + begin + {self.}XmlChildTblCellSpacing := new TblCellSpacing(self, {self.}Prefix, "tblCellSpacing"); + container_.Set({self.}XmlChildTblCellSpacing); + end + return {self.}XmlChildTblCellSpacing; +end; + +function TblPr.ReadXmlChildTblCaption(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTblCaption) then + begin + {self.}XmlChildTblCaption := new PureWVal(self, {self.}Prefix, "tblCaption"); + container_.Set({self.}XmlChildTblCaption); + end + return {self.}XmlChildTblCaption; +end; + +function TblPr.ReadXmlChildTblDescription(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTblDescription) then + begin + {self.}XmlChildTblDescription := new PureWVal(self, {self.}Prefix, "tblDescription"); + container_.Set({self.}XmlChildTblDescription); + end + return {self.}XmlChildTblDescription; +end; + +function TblPr.ReadXmlChildTblStyleRowBandSize(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTblStyleRowBandSize) then + begin + {self.}XmlChildTblStyleRowBandSize := new PureWVal(self, {self.}Prefix, "tblStyleRowBandSize"); + container_.Set({self.}XmlChildTblStyleRowBandSize); + end + return {self.}XmlChildTblStyleRowBandSize; +end; + +function TblPr.ReadXmlChildTblStyleColBandSize(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTblStyleColBandSize) then + begin + {self.}XmlChildTblStyleColBandSize := new PureWVal(self, {self.}Prefix, "tblStyleColBandSize"); + container_.Set({self.}XmlChildTblStyleColBandSize); + end + return {self.}XmlChildTblStyleColBandSize; +end; + +function TblCellSpacing.Create();overload; +begin + {self.}Create(nil, "w", "tblCellSpacing"); +end; + +function TblCellSpacing.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblCellSpacing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblCellSpacing.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblCellSpacing.Copy(_obj: TblCellSpacing);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.W) then + {self.}W := _obj.W; + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + tslassigning := tslassigning_backup; +end; + +function TblCellSpacing.ReadXmlAttrW(); +begin + return {self.}XmlAttrW.Value; +end; + +function TblCellSpacing.WriteXmlAttrW(_value); +begin + if ifnil({self.}XmlAttrW) then + begin + {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); + attributes_[length(attributes_)] := {self.}XmlAttrW; + end + {self.}XmlAttrW.Value := _value; +end; + +function TblCellSpacing.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function TblCellSpacing.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function TblW.Create();overload; +begin + {self.}Create(nil, "w", "tblW"); +end; + +function TblW.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblW.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblW.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblW.Copy(_obj: TblW);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.W) then + {self.}W := _obj.W; + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + tslassigning := tslassigning_backup; +end; + +function TblW.ReadXmlAttrW(); +begin + return {self.}XmlAttrW.Value; +end; + +function TblW.WriteXmlAttrW(_value); +begin + if ifnil({self.}XmlAttrW) then + begin + {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); + attributes_[length(attributes_)] := {self.}XmlAttrW; + end + {self.}XmlAttrW.Value := _value; +end; + +function TblW.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function TblW.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function TblLayout.Create();overload; +begin + {self.}Create(nil, "w", "tblLayout"); +end; + +function TblLayout.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblLayout.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblLayout.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblLayout.Copy(_obj: TblLayout);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + tslassigning := tslassigning_backup; +end; + +function TblLayout.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function TblLayout.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function TblLook.Create();overload; +begin + {self.}Create(nil, "w", "tblLook"); +end; + +function TblLook.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblLook.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblLook.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "firstRow": makeweakref(thisFunction(WriteXmlAttrFirstRow)), + pre + "lastRow": makeweakref(thisFunction(WriteXmlAttrLastRow)), + pre + "firstColumn": makeweakref(thisFunction(WriteXmlAttrFirstColumn)), + pre + "lastColumn": makeweakref(thisFunction(WriteXmlAttrLastColumn)), + pre + "noHBand": makeweakref(thisFunction(WriteXmlAttrNoHBand)), + pre + "noVBand": makeweakref(thisFunction(WriteXmlAttrNoVBand)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblLook.Copy(_obj: TblLook);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.FirstRow) then + {self.}FirstRow := _obj.FirstRow; + if not ifnil(_obj.LastRow) then + {self.}LastRow := _obj.LastRow; + if not ifnil(_obj.FirstColumn) then + {self.}FirstColumn := _obj.FirstColumn; + if not ifnil(_obj.LastColumn) then + {self.}LastColumn := _obj.LastColumn; + if not ifnil(_obj.NoHBand) then + {self.}NoHBand := _obj.NoHBand; + if not ifnil(_obj.NoVBand) then + {self.}NoVBand := _obj.NoVBand; + tslassigning := tslassigning_backup; +end; + +function TblLook.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function TblLook.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function TblLook.ReadXmlAttrFirstRow(); +begin + return {self.}XmlAttrFirstRow.Value; +end; + +function TblLook.WriteXmlAttrFirstRow(_value); +begin + if ifnil({self.}XmlAttrFirstRow) then + begin + {self.}XmlAttrFirstRow := new OpenXmlAttribute({self.}Prefix, "firstRow", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstRow; + end + {self.}XmlAttrFirstRow.Value := _value; +end; + +function TblLook.ReadXmlAttrLastRow(); +begin + return {self.}XmlAttrLastRow.Value; +end; + +function TblLook.WriteXmlAttrLastRow(_value); +begin + if ifnil({self.}XmlAttrLastRow) then + begin + {self.}XmlAttrLastRow := new OpenXmlAttribute({self.}Prefix, "lastRow", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLastRow; + end + {self.}XmlAttrLastRow.Value := _value; +end; + +function TblLook.ReadXmlAttrFirstColumn(); +begin + return {self.}XmlAttrFirstColumn.Value; +end; + +function TblLook.WriteXmlAttrFirstColumn(_value); +begin + if ifnil({self.}XmlAttrFirstColumn) then + begin + {self.}XmlAttrFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstColumn; + end + {self.}XmlAttrFirstColumn.Value := _value; +end; + +function TblLook.ReadXmlAttrLastColumn(); +begin + return {self.}XmlAttrLastColumn.Value; +end; + +function TblLook.WriteXmlAttrLastColumn(_value); +begin + if ifnil({self.}XmlAttrLastColumn) then + begin + {self.}XmlAttrLastColumn := new OpenXmlAttribute({self.}Prefix, "lastColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLastColumn; + end + {self.}XmlAttrLastColumn.Value := _value; +end; + +function TblLook.ReadXmlAttrNoHBand(); +begin + return {self.}XmlAttrNoHBand.Value; +end; + +function TblLook.WriteXmlAttrNoHBand(_value); +begin + if ifnil({self.}XmlAttrNoHBand) then + begin + {self.}XmlAttrNoHBand := new OpenXmlAttribute({self.}Prefix, "noHBand", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNoHBand; + end + {self.}XmlAttrNoHBand.Value := _value; +end; + +function TblLook.ReadXmlAttrNoVBand(); +begin + return {self.}XmlAttrNoVBand.Value; +end; + +function TblLook.WriteXmlAttrNoVBand(_value); +begin + if ifnil({self.}XmlAttrNoVBand) then + begin + {self.}XmlAttrNoVBand := new OpenXmlAttribute({self.}Prefix, "noVBand", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNoVBand; + end + {self.}XmlAttrNoVBand.Value := _value; +end; + +function TblBorders.Create();overload; +begin + {self.}Create(nil, "w", "tblBorders"); +end; + +function TblBorders.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblBorders.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblBorders.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), + pre + "left": array(1, makeweakref(thisFunction(ReadXmlChildLeft))), + pre + "bottom": array(2, makeweakref(thisFunction(ReadXmlChildBottom))), + pre + "right": array(3, makeweakref(thisFunction(ReadXmlChildRight))), + pre + "insideH": array(4, makeweakref(thisFunction(ReadXmlChildInsideH))), + pre + "insideV": array(5, makeweakref(thisFunction(ReadXmlChildInsideV))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblBorders.Copy(_obj: TblBorders);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTop) then + {self.}Top.Copy(_obj.XmlChildTop); + if not ifnil(_obj.XmlChildLeft) then + {self.}Left.Copy(_obj.XmlChildLeft); + if not ifnil(_obj.XmlChildBottom) then + {self.}Bottom.Copy(_obj.XmlChildBottom); + if not ifnil(_obj.XmlChildRight) then + {self.}Right.Copy(_obj.XmlChildRight); + if not ifnil(_obj.XmlChildInsideH) then + {self.}InsideH.Copy(_obj.XmlChildInsideH); + if not ifnil(_obj.XmlChildInsideV) then + {self.}InsideV.Copy(_obj.XmlChildInsideV); + tslassigning := tslassigning_backup; +end; + +function TblBorders.ReadXmlChildTop(): TblBorder; +begin + if tslassigning and ifnil({self.}XmlChildTop) then + begin + {self.}XmlChildTop := new TblBorder(self, {self.}Prefix, "top"); + container_.Set({self.}XmlChildTop); + end + return {self.}XmlChildTop; +end; + +function TblBorders.ReadXmlChildLeft(): TblBorder; +begin + if tslassigning and ifnil({self.}XmlChildLeft) then + begin + {self.}XmlChildLeft := new TblBorder(self, {self.}Prefix, "left"); + container_.Set({self.}XmlChildLeft); + end + return {self.}XmlChildLeft; +end; + +function TblBorders.ReadXmlChildBottom(): TblBorder; +begin + if tslassigning and ifnil({self.}XmlChildBottom) then + begin + {self.}XmlChildBottom := new TblBorder(self, {self.}Prefix, "bottom"); + container_.Set({self.}XmlChildBottom); + end + return {self.}XmlChildBottom; +end; + +function TblBorders.ReadXmlChildRight(): TblBorder; +begin + if tslassigning and ifnil({self.}XmlChildRight) then + begin + {self.}XmlChildRight := new TblBorder(self, {self.}Prefix, "right"); + container_.Set({self.}XmlChildRight); + end + return {self.}XmlChildRight; +end; + +function TblBorders.ReadXmlChildInsideH(): TblBorder; +begin + if tslassigning and ifnil({self.}XmlChildInsideH) then + begin + {self.}XmlChildInsideH := new TblBorder(self, {self.}Prefix, "insideH"); + container_.Set({self.}XmlChildInsideH); + end + return {self.}XmlChildInsideH; +end; + +function TblBorders.ReadXmlChildInsideV(): TblBorder; +begin + if tslassigning and ifnil({self.}XmlChildInsideV) then + begin + {self.}XmlChildInsideV := new TblBorder(self, {self.}Prefix, "insideV"); + container_.Set({self.}XmlChildInsideV); + end + return {self.}XmlChildInsideV; +end; + +function TblBorder.Create();overload; +begin + {self.}Create(nil, "w", ""); +end; + +function TblBorder.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblBorder.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "color": makeweakref(thisFunction(WriteXmlAttrColor)), + pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), + pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), + pre + "themeTint": makeweakref(thisFunction(WriteXmlAttrThemeTint)), + pre + "sz": makeweakref(thisFunction(WriteXmlAttrSz)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblBorder.Copy(_obj: TblBorder);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.Color) then + {self.}Color := _obj.Color; + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + if not ifnil(_obj.ThemeColor) then + {self.}ThemeColor := _obj.ThemeColor; + if not ifnil(_obj.ThemeTint) then + {self.}ThemeTint := _obj.ThemeTint; + if not ifnil(_obj.Sz) then + {self.}Sz := _obj.Sz; + tslassigning := tslassigning_backup; +end; + +function TblBorder.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function TblBorder.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function TblBorder.ReadXmlAttrColor(); +begin + return {self.}XmlAttrColor.Value; +end; + +function TblBorder.WriteXmlAttrColor(_value); +begin + if ifnil({self.}XmlAttrColor) then + begin + {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); + attributes_[length(attributes_)] := {self.}XmlAttrColor; + end + {self.}XmlAttrColor.Value := _value; +end; + +function TblBorder.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function TblBorder.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function TblBorder.ReadXmlAttrThemeColor(); +begin + return {self.}XmlAttrThemeColor.Value; +end; + +function TblBorder.WriteXmlAttrThemeColor(_value); +begin + if ifnil({self.}XmlAttrThemeColor) then + begin + {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; + end + {self.}XmlAttrThemeColor.Value := _value; +end; + +function TblBorder.ReadXmlAttrThemeTint(); +begin + return {self.}XmlAttrThemeTint.Value; +end; + +function TblBorder.WriteXmlAttrThemeTint(_value); +begin + if ifnil({self.}XmlAttrThemeTint) then + begin + {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeTint; + end + {self.}XmlAttrThemeTint.Value := _value; +end; + +function TblBorder.ReadXmlAttrSz(); +begin + return {self.}XmlAttrSz.Value; +end; + +function TblBorder.WriteXmlAttrSz(_value); +begin + if ifnil({self.}XmlAttrSz) then + begin + {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSz; + end + {self.}XmlAttrSz.Value := _value; +end; + +function TblGrid.Create();overload; +begin + {self.}Create(nil, "w", "tblGrid"); +end; + +function TblGrid.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblGrid.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblGrid.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "gridCol": array(0, makeweakref(thisFunction(AppendGridCol))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblGrid.Copy(_obj: TblGrid);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function TblGrid.ReadGridCols(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "gridCol", ind); +end; + +function TblGrid.AddGridCol(): GridCol; +begin + obj := new GridCol(self, {self.}Prefix, "gridCol"); + container_.Insert(obj); + return obj; +end; + +function TblGrid.AppendGridCol(): GridCol; +begin + obj := new GridCol(self, {self.}Prefix, "gridCol"); + container_.Append(obj); + return obj; +end; + +function GridCol.Create();overload; +begin + {self.}Create(nil, "w", "gridCol"); +end; + +function GridCol.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function GridCol.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function GridCol.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "w": makeweakref(thisFunction(WriteXmlAttrw)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function GridCol.Copy(_obj: GridCol);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.w) then + {self.}w := _obj.w; + tslassigning := tslassigning_backup; +end; + +function GridCol.ReadXmlAttrw(); +begin + return {self.}XmlAttrw.Value; +end; + +function GridCol.WriteXmlAttrw(_value); +begin + if ifnil({self.}XmlAttrw) then + begin + {self.}XmlAttrw := new OpenXmlAttribute({self.}Prefix, "w", nil); + attributes_[length(attributes_)] := {self.}XmlAttrw; + end + {self.}XmlAttrw.Value := _value; +end; + +function Tr.Create();overload; +begin + {self.}Create(nil, "w", "tr"); +end; + +function Tr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Tr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Tr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w:rsidR": makeweakref(thisFunction(WriteXmlAttrRsidR)), + "w14:paraId": makeweakref(thisFunction(WriteXmlAttrParaId)), + "w14:textId": makeweakref(thisFunction(WriteXmlAttrTextId)), + "w:rsidTr": makeweakref(thisFunction(WriteXmlAttrRsidTr)), + ); + sorted_child_ := array( + pre + "trPr": array(0, makeweakref(thisFunction(ReadXmlChildTrPr))), + pre + "tc": array(1, makeweakref(thisFunction(AppendTc))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Tr.Copy(_obj: Tr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.RsidR) then + {self.}RsidR := _obj.RsidR; + if not ifnil(_obj.ParaId) then + {self.}ParaId := _obj.ParaId; + if not ifnil(_obj.TextId) then + {self.}TextId := _obj.TextId; + if not ifnil(_obj.RsidTr) then + {self.}RsidTr := _obj.RsidTr; + if not ifnil(_obj.XmlChildTrPr) then + {self.}TrPr.Copy(_obj.XmlChildTrPr); + tslassigning := tslassigning_backup; +end; + +function Tr.ReadXmlAttrRsidR(); +begin + return {self.}XmlAttrRsidR.Value; +end; + +function Tr.WriteXmlAttrRsidR(_value); +begin + if ifnil({self.}XmlAttrRsidR) then + begin + {self.}XmlAttrRsidR := new OpenXmlAttribute("w", "rsidR", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidR; + end + {self.}XmlAttrRsidR.Value := _value; +end; + +function Tr.ReadXmlAttrParaId(); +begin + return {self.}XmlAttrParaId.Value; +end; + +function Tr.WriteXmlAttrParaId(_value); +begin + if ifnil({self.}XmlAttrParaId) then + begin + {self.}XmlAttrParaId := new OpenXmlAttribute("w14", "paraId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrParaId; + end + {self.}XmlAttrParaId.Value := _value; +end; + +function Tr.ReadXmlAttrTextId(); +begin + return {self.}XmlAttrTextId.Value; +end; + +function Tr.WriteXmlAttrTextId(_value); +begin + if ifnil({self.}XmlAttrTextId) then + begin + {self.}XmlAttrTextId := new OpenXmlAttribute("w14", "textId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTextId; + end + {self.}XmlAttrTextId.Value := _value; +end; + +function Tr.ReadXmlAttrRsidTr(); +begin + return {self.}XmlAttrRsidTr.Value; +end; + +function Tr.WriteXmlAttrRsidTr(_value); +begin + if ifnil({self.}XmlAttrRsidTr) then + begin + {self.}XmlAttrRsidTr := new OpenXmlAttribute("w", "rsidTr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidTr; + end + {self.}XmlAttrRsidTr.Value := _value; +end; + +function Tr.ReadXmlChildTrPr(): TrPr; +begin + if tslassigning and ifnil({self.}XmlChildTrPr) then + begin + {self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr"); + container_.Set({self.}XmlChildTrPr); + end + return {self.}XmlChildTrPr; +end; + +function Tr.ReadTcs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "tc", ind); +end; + +function Tr.AddTc(): Tc; +begin + obj := new Tc(self, {self.}Prefix, "tc"); + container_.Insert(obj); + return obj; +end; + +function Tr.AppendTc(): Tc; +begin + obj := new Tc(self, {self.}Prefix, "tc"); + container_.Append(obj); + return obj; +end; + +function TrPr.Create();overload; +begin + {self.}Create(nil, "w", "trPr"); +end; + +function TrPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TrPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TrPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "trHeight": array(0, makeweakref(thisFunction(ReadXmlChildTrHeight))), + pre + "tblHeader": array(1, makeweakref(thisFunction(ReadXmlChildTblHeader))), + pre + "jc": array(2, makeweakref(thisFunction(ReadXmlChildJc))), + pre + "cantSplit": array(3, makeweakref(thisFunction(ReadXmlChildCantSplit))), + pre + "cnfStyle": array(4, makeweakref(thisFunction(ReadXmlChildCnfStyle))), + pre + "ins": array(5, makeweakref(thisFunction(ReadXmlChildIns))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TrPr.Copy(_obj: TrPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTrHeight) then + {self.}TrHeight.Copy(_obj.XmlChildTrHeight); + if not ifnil(_obj.XmlChildTblHeader) then + {self.}TblHeader.Copy(_obj.XmlChildTblHeader); + if not ifnil(_obj.XmlChildJc) then + {self.}Jc.Copy(_obj.XmlChildJc); + if not ifnil(_obj.XmlChildCantSplit) then + ifnil({self.}XmlChildCantSplit) ? {self.}CantSplit.Copy(_obj.XmlChildCantSplit) : {self.}XmlChildCantSplit.Copy(_obj.XmlChildCantSplit); + if not ifnil(_obj.XmlChildCnfStyle) then + {self.}CnfStyle.Copy(_obj.XmlChildCnfStyle); + if not ifnil(_obj.XmlChildIns) then + {self.}Ins.Copy(_obj.XmlChildIns); + tslassigning := tslassigning_backup; +end; + +function TrPr.ReadXmlChildCantSplit(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildCantSplit) then + begin + {self.}XmlChildCantSplit := new OpenXmlEmpty(self, {self.}Prefix, "cantSplit"); + container_.Set({self.}XmlChildCantSplit); + end + return {self.}XmlChildCantSplit; + end + return ifnil({self.}XmlChildCantSplit) ? nil : {self.}XmlChildCantSplit.BoolValue(); +end; + +function TrPr.WriteXmlChildCantSplit(_value); +begin + if ifnil({self.}XmlChildCantSplit) then + begin + {self.}XmlChildCantSplit := new OpenXmlEmpty(self, {self.}Prefix, "cantSplit"); + container_.Set({self.}XmlChildCantSplit); + end + {self.}XmlChildCantSplit.Value := _value; +end; + +function TrPr.ReadXmlChildTrHeight(): TrHeight; +begin + if tslassigning and ifnil({self.}XmlChildTrHeight) then + begin + {self.}XmlChildTrHeight := new TrHeight(self, {self.}Prefix, "trHeight"); + container_.Set({self.}XmlChildTrHeight); + end + return {self.}XmlChildTrHeight; +end; + +function TrPr.ReadXmlChildTblHeader(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTblHeader) then + begin + {self.}XmlChildTblHeader := new PureWVal(self, {self.}Prefix, "tblHeader"); + container_.Set({self.}XmlChildTblHeader); + end + return {self.}XmlChildTblHeader; +end; + +function TrPr.ReadXmlChildJc(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildJc) then + begin + {self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc"); + container_.Set({self.}XmlChildJc); + end + return {self.}XmlChildJc; +end; + +function TrPr.ReadXmlChildCnfStyle(): CnfStyle; +begin + if tslassigning and ifnil({self.}XmlChildCnfStyle) then + begin + {self.}XmlChildCnfStyle := new CnfStyle(self, {self.}Prefix, "cnfStyle"); + container_.Set({self.}XmlChildCnfStyle); + end + return {self.}XmlChildCnfStyle; +end; + +function TrPr.ReadXmlChildIns(): Ins; +begin + if tslassigning and ifnil({self.}XmlChildIns) then + begin + {self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins"); + container_.Set({self.}XmlChildIns); + end + return {self.}XmlChildIns; +end; + +function Ins.Create();overload; +begin + {self.}Create(nil, "w", "gridCol"); +end; + +function Ins.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Ins.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Ins.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), + pre + "author": makeweakref(thisFunction(WriteXmlAttrAuthor)), + pre + "date": makeweakref(thisFunction(WriteXmlAttrDate)), + "w16du:dateUtc": makeweakref(thisFunction(WriteXmlAttrDateUtc)), + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Ins.Copy(_obj: Ins);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Author) then + {self.}Author := _obj.Author; + if not ifnil(_obj.Date) then + {self.}Date := _obj.Date; + if not ifnil(_obj.DateUtc) then + {self.}DateUtc := _obj.DateUtc; + tslassigning := tslassigning_backup; +end; + +function Ins.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Ins.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Ins.ReadXmlAttrAuthor(); +begin + return {self.}XmlAttrAuthor.Value; +end; + +function Ins.WriteXmlAttrAuthor(_value); +begin + if ifnil({self.}XmlAttrAuthor) then + begin + {self.}XmlAttrAuthor := new OpenXmlAttribute({self.}Prefix, "author", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAuthor; + end + {self.}XmlAttrAuthor.Value := _value; +end; + +function Ins.ReadXmlAttrDate(); +begin + return {self.}XmlAttrDate.Value; +end; + +function Ins.WriteXmlAttrDate(_value); +begin + if ifnil({self.}XmlAttrDate) then + begin + {self.}XmlAttrDate := new OpenXmlAttribute({self.}Prefix, "date", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDate; + end + {self.}XmlAttrDate.Value := _value; +end; + +function Ins.ReadXmlAttrDateUtc(); +begin + return {self.}XmlAttrDateUtc.Value; +end; + +function Ins.WriteXmlAttrDateUtc(_value); +begin + if ifnil({self.}XmlAttrDateUtc) then + begin + {self.}XmlAttrDateUtc := new OpenXmlAttribute("w16du", "dateUtc", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDateUtc; + end + {self.}XmlAttrDateUtc.Value := _value; +end; + +function Ins.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function Ins.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function Ins.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function CnfStyle.Create();overload; +begin + {self.}Create(nil, "w", "cnfStyle"); +end; + +function CnfStyle.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CnfStyle.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CnfStyle.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "firstRow": makeweakref(thisFunction(WriteXmlAttrFirstRow)), + pre + "lastRow": makeweakref(thisFunction(WriteXmlAttrLastRow)), + pre + "firstColumn": makeweakref(thisFunction(WriteXmlAttrFirstColumn)), + pre + "lastColumn": makeweakref(thisFunction(WriteXmlAttrLastColumn)), + pre + "oddVBand": makeweakref(thisFunction(WriteXmlAttrOddVBand)), + pre + "evenVBand": makeweakref(thisFunction(WriteXmlAttrEvenVBand)), + pre + "oddHBand": makeweakref(thisFunction(WriteXmlAttrOddHBand)), + pre + "evenHBand": makeweakref(thisFunction(WriteXmlAttrEvenHBand)), + pre + "firstRowFirstColumn": makeweakref(thisFunction(WriteXmlAttrFirstRowFirstColumn)), + pre + "firstRowLastColumn": makeweakref(thisFunction(WriteXmlAttrFirstRowLastColumn)), + pre + "lastRowFirstColumn": makeweakref(thisFunction(WriteXmlAttrLastRowFirstColumn)), + pre + "lastRowLastColumn": makeweakref(thisFunction(WriteXmlAttrLastRowLastColumn)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CnfStyle.Copy(_obj: CnfStyle);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.FirstRow) then + {self.}FirstRow := _obj.FirstRow; + if not ifnil(_obj.LastRow) then + {self.}LastRow := _obj.LastRow; + if not ifnil(_obj.FirstColumn) then + {self.}FirstColumn := _obj.FirstColumn; + if not ifnil(_obj.LastColumn) then + {self.}LastColumn := _obj.LastColumn; + if not ifnil(_obj.OddVBand) then + {self.}OddVBand := _obj.OddVBand; + if not ifnil(_obj.EvenVBand) then + {self.}EvenVBand := _obj.EvenVBand; + if not ifnil(_obj.OddHBand) then + {self.}OddHBand := _obj.OddHBand; + if not ifnil(_obj.EvenHBand) then + {self.}EvenHBand := _obj.EvenHBand; + if not ifnil(_obj.FirstRowFirstColumn) then + {self.}FirstRowFirstColumn := _obj.FirstRowFirstColumn; + if not ifnil(_obj.FirstRowLastColumn) then + {self.}FirstRowLastColumn := _obj.FirstRowLastColumn; + if not ifnil(_obj.LastRowFirstColumn) then + {self.}LastRowFirstColumn := _obj.LastRowFirstColumn; + if not ifnil(_obj.LastRowLastColumn) then + {self.}LastRowLastColumn := _obj.LastRowLastColumn; + tslassigning := tslassigning_backup; +end; + +function CnfStyle.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function CnfStyle.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function CnfStyle.ReadXmlAttrFirstRow(); +begin + return {self.}XmlAttrFirstRow.Value; +end; + +function CnfStyle.WriteXmlAttrFirstRow(_value); +begin + if ifnil({self.}XmlAttrFirstRow) then + begin + {self.}XmlAttrFirstRow := new OpenXmlAttribute({self.}Prefix, "firstRow", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstRow; + end + {self.}XmlAttrFirstRow.Value := _value; +end; + +function CnfStyle.ReadXmlAttrLastRow(); +begin + return {self.}XmlAttrLastRow.Value; +end; + +function CnfStyle.WriteXmlAttrLastRow(_value); +begin + if ifnil({self.}XmlAttrLastRow) then + begin + {self.}XmlAttrLastRow := new OpenXmlAttribute({self.}Prefix, "lastRow", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLastRow; + end + {self.}XmlAttrLastRow.Value := _value; +end; + +function CnfStyle.ReadXmlAttrFirstColumn(); +begin + return {self.}XmlAttrFirstColumn.Value; +end; + +function CnfStyle.WriteXmlAttrFirstColumn(_value); +begin + if ifnil({self.}XmlAttrFirstColumn) then + begin + {self.}XmlAttrFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstColumn; + end + {self.}XmlAttrFirstColumn.Value := _value; +end; + +function CnfStyle.ReadXmlAttrLastColumn(); +begin + return {self.}XmlAttrLastColumn.Value; +end; + +function CnfStyle.WriteXmlAttrLastColumn(_value); +begin + if ifnil({self.}XmlAttrLastColumn) then + begin + {self.}XmlAttrLastColumn := new OpenXmlAttribute({self.}Prefix, "lastColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLastColumn; + end + {self.}XmlAttrLastColumn.Value := _value; +end; + +function CnfStyle.ReadXmlAttrOddVBand(); +begin + return {self.}XmlAttrOddVBand.Value; +end; + +function CnfStyle.WriteXmlAttrOddVBand(_value); +begin + if ifnil({self.}XmlAttrOddVBand) then + begin + {self.}XmlAttrOddVBand := new OpenXmlAttribute({self.}Prefix, "oddVBand", nil); + attributes_[length(attributes_)] := {self.}XmlAttrOddVBand; + end + {self.}XmlAttrOddVBand.Value := _value; +end; + +function CnfStyle.ReadXmlAttrEvenVBand(); +begin + return {self.}XmlAttrEvenVBand.Value; +end; + +function CnfStyle.WriteXmlAttrEvenVBand(_value); +begin + if ifnil({self.}XmlAttrEvenVBand) then + begin + {self.}XmlAttrEvenVBand := new OpenXmlAttribute({self.}Prefix, "evenVBand", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEvenVBand; + end + {self.}XmlAttrEvenVBand.Value := _value; +end; + +function CnfStyle.ReadXmlAttrOddHBand(); +begin + return {self.}XmlAttrOddHBand.Value; +end; + +function CnfStyle.WriteXmlAttrOddHBand(_value); +begin + if ifnil({self.}XmlAttrOddHBand) then + begin + {self.}XmlAttrOddHBand := new OpenXmlAttribute({self.}Prefix, "oddHBand", nil); + attributes_[length(attributes_)] := {self.}XmlAttrOddHBand; + end + {self.}XmlAttrOddHBand.Value := _value; +end; + +function CnfStyle.ReadXmlAttrEvenHBand(); +begin + return {self.}XmlAttrEvenHBand.Value; +end; + +function CnfStyle.WriteXmlAttrEvenHBand(_value); +begin + if ifnil({self.}XmlAttrEvenHBand) then + begin + {self.}XmlAttrEvenHBand := new OpenXmlAttribute({self.}Prefix, "evenHBand", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEvenHBand; + end + {self.}XmlAttrEvenHBand.Value := _value; +end; + +function CnfStyle.ReadXmlAttrFirstRowFirstColumn(); +begin + return {self.}XmlAttrFirstRowFirstColumn.Value; +end; + +function CnfStyle.WriteXmlAttrFirstRowFirstColumn(_value); +begin + if ifnil({self.}XmlAttrFirstRowFirstColumn) then + begin + {self.}XmlAttrFirstRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstRowFirstColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstRowFirstColumn; + end + {self.}XmlAttrFirstRowFirstColumn.Value := _value; +end; + +function CnfStyle.ReadXmlAttrFirstRowLastColumn(); +begin + return {self.}XmlAttrFirstRowLastColumn.Value; +end; + +function CnfStyle.WriteXmlAttrFirstRowLastColumn(_value); +begin + if ifnil({self.}XmlAttrFirstRowLastColumn) then + begin + {self.}XmlAttrFirstRowLastColumn := new OpenXmlAttribute({self.}Prefix, "firstRowLastColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFirstRowLastColumn; + end + {self.}XmlAttrFirstRowLastColumn.Value := _value; +end; + +function CnfStyle.ReadXmlAttrLastRowFirstColumn(); +begin + return {self.}XmlAttrLastRowFirstColumn.Value; +end; + +function CnfStyle.WriteXmlAttrLastRowFirstColumn(_value); +begin + if ifnil({self.}XmlAttrLastRowFirstColumn) then + begin + {self.}XmlAttrLastRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "lastRowFirstColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLastRowFirstColumn; + end + {self.}XmlAttrLastRowFirstColumn.Value := _value; +end; + +function CnfStyle.ReadXmlAttrLastRowLastColumn(); +begin + return {self.}XmlAttrLastRowLastColumn.Value; +end; + +function CnfStyle.WriteXmlAttrLastRowLastColumn(_value); +begin + if ifnil({self.}XmlAttrLastRowLastColumn) then + begin + {self.}XmlAttrLastRowLastColumn := new OpenXmlAttribute({self.}Prefix, "lastRowLastColumn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLastRowLastColumn; + end + {self.}XmlAttrLastRowLastColumn.Value := _value; +end; + +function TrHeight.Create();overload; +begin + {self.}Create(nil, "w", "trHeight"); +end; + +function TrHeight.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TrHeight.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TrHeight.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "hRule": makeweakref(thisFunction(WriteXmlAttrHRule)), + pre + "val": makeweakref(thisFunction(WriteXmlAttrval)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TrHeight.Copy(_obj: TrHeight);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.HRule) then + {self.}HRule := _obj.HRule; + if not ifnil(_obj.val) then + {self.}val := _obj.val; + tslassigning := tslassigning_backup; +end; + +function TrHeight.ReadXmlAttrHRule(); +begin + return {self.}XmlAttrHRule.Value; +end; + +function TrHeight.WriteXmlAttrHRule(_value); +begin + if ifnil({self.}XmlAttrHRule) then + begin + {self.}XmlAttrHRule := new OpenXmlAttribute({self.}Prefix, "hRule", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHRule; + end + {self.}XmlAttrHRule.Value := _value; +end; + +function TrHeight.ReadXmlAttrval(); +begin + return {self.}XmlAttrval.Value; +end; + +function TrHeight.WriteXmlAttrval(_value); +begin + if ifnil({self.}XmlAttrval) then + begin + {self.}XmlAttrval := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrval; + end + {self.}XmlAttrval.Value := _value; +end; + +function Tc.Create();overload; +begin + {self.}Create(nil, "w", "tc"); +end; + +function Tc.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Tc.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Tc.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "tcPr": array(0, makeweakref(thisFunction(ReadXmlChildTcPr))), + pre + "p": array(1, makeweakref(thisFunction(AppendP))), + pre + "tbl": array(2, makeweakref(thisFunction(AppendTbl))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Tc.Copy(_obj: Tc);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTcPr) then + {self.}TcPr.Copy(_obj.XmlChildTcPr); + tslassigning := tslassigning_backup; +end; + +function Tc.ReadXmlChildTcPr(): TcPr; +begin + if tslassigning and ifnil({self.}XmlChildTcPr) then + begin + {self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr"); + container_.Set({self.}XmlChildTcPr); + end + return {self.}XmlChildTcPr; +end; + +function Tc.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function Tc.ReadTbls(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "tbl", ind); +end; + +function Tc.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function Tc.AddTbl(): Tbl; +begin + obj := new Tbl(self, {self.}Prefix, "tbl"); + container_.Insert(obj); + return obj; +end; + +function Tc.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Tc.AppendTbl(): Tbl; +begin + obj := new Tbl(self, {self.}Prefix, "tbl"); + container_.Append(obj); + return obj; +end; + +function TcPr.Create();overload; +begin + {self.}Create(nil, "w", "tcPr"); +end; + +function TcPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TcPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TcPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "tcW": array(0, makeweakref(thisFunction(ReadXmlChildTcW))), + pre + "gridSpan": array(1, makeweakref(thisFunction(ReadXmlChildGridSpan))), + pre + "vMerge": array(2, makeweakref(thisFunction(ReadXmlChildVMerge))), + pre + "vAlign": array(3, makeweakref(thisFunction(ReadXmlChildVAlign))), + pre + "hideMark": array(4, makeweakref(thisFunction(ReadXmlChildHideMark))), + pre + "shd": array(5, makeweakref(thisFunction(ReadXmlChildShd))), + pre + "tcBorders": array(6, makeweakref(thisFunction(ReadXmlChildTcBorders))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TcPr.Copy(_obj: TcPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTcW) then + {self.}TcW.Copy(_obj.XmlChildTcW); + if not ifnil(_obj.XmlChildGridSpan) then + {self.}GridSpan.Copy(_obj.XmlChildGridSpan); + if not ifnil(_obj.XmlChildVMerge) then + ifnil({self.}XmlChildVMerge) ? {self.}VMerge.Copy(_obj.XmlChildVMerge) : {self.}XmlChildVMerge.Copy(_obj.XmlChildVMerge); + if not ifnil(_obj.XmlChildVAlign) then + {self.}VAlign.Copy(_obj.XmlChildVAlign); + if not ifnil(_obj.XmlChildHideMark) then + ifnil({self.}XmlChildHideMark) ? {self.}HideMark.Copy(_obj.XmlChildHideMark) : {self.}XmlChildHideMark.Copy(_obj.XmlChildHideMark); + if not ifnil(_obj.XmlChildShd) then + {self.}Shd.Copy(_obj.XmlChildShd); + if not ifnil(_obj.XmlChildTcBorders) then + {self.}TcBorders.Copy(_obj.XmlChildTcBorders); + tslassigning := tslassigning_backup; +end; + +function TcPr.ReadXmlChildVMerge(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildVMerge) then + begin + {self.}XmlChildVMerge := new OpenXmlEmpty(self, {self.}Prefix, "vMerge"); + container_.Set({self.}XmlChildVMerge); + end + return {self.}XmlChildVMerge; + end + return ifnil({self.}XmlChildVMerge) ? nil : {self.}XmlChildVMerge.BoolValue(); +end; + +function TcPr.WriteXmlChildVMerge(_value); +begin + if ifnil({self.}XmlChildVMerge) then + begin + {self.}XmlChildVMerge := new OpenXmlEmpty(self, {self.}Prefix, "vMerge"); + container_.Set({self.}XmlChildVMerge); + end + {self.}XmlChildVMerge.Value := _value; +end; + +function TcPr.ReadXmlChildHideMark(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildHideMark) then + begin + {self.}XmlChildHideMark := new OpenXmlEmpty(self, {self.}Prefix, "hideMark"); + container_.Set({self.}XmlChildHideMark); + end + return {self.}XmlChildHideMark; + end + return ifnil({self.}XmlChildHideMark) ? nil : {self.}XmlChildHideMark.BoolValue(); +end; + +function TcPr.WriteXmlChildHideMark(_value); +begin + if ifnil({self.}XmlChildHideMark) then + begin + {self.}XmlChildHideMark := new OpenXmlEmpty(self, {self.}Prefix, "hideMark"); + container_.Set({self.}XmlChildHideMark); + end + {self.}XmlChildHideMark.Value := _value; +end; + +function TcPr.ReadXmlChildTcW(): TblW; +begin + if tslassigning and ifnil({self.}XmlChildTcW) then + begin + {self.}XmlChildTcW := new TblW(self, {self.}Prefix, "tcW"); + container_.Set({self.}XmlChildTcW); + end + return {self.}XmlChildTcW; +end; + +function TcPr.ReadXmlChildGridSpan(): GridSpan; +begin + if tslassigning and ifnil({self.}XmlChildGridSpan) then + begin + {self.}XmlChildGridSpan := new GridSpan(self, {self.}Prefix, "gridSpan"); + container_.Set({self.}XmlChildGridSpan); + end + return {self.}XmlChildGridSpan; +end; + +function TcPr.ReadXmlChildVAlign(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildVAlign) then + begin + {self.}XmlChildVAlign := new PureWVal(self, {self.}Prefix, "vAlign"); + container_.Set({self.}XmlChildVAlign); + end + return {self.}XmlChildVAlign; +end; + +function TcPr.ReadXmlChildShd(): Shd; +begin + if tslassigning and ifnil({self.}XmlChildShd) then + begin + {self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd"); + container_.Set({self.}XmlChildShd); + end + return {self.}XmlChildShd; +end; + +function TcPr.ReadXmlChildTcBorders(): TcBorders; +begin + if tslassigning and ifnil({self.}XmlChildTcBorders) then + begin + {self.}XmlChildTcBorders := new TcBorders(self, {self.}Prefix, "tcBorders"); + container_.Set({self.}XmlChildTcBorders); + end + return {self.}XmlChildTcBorders; +end; + +function TcBorders.Create();overload; +begin + {self.}Create(nil, "w", "tcBorders"); +end; + +function TcBorders.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TcBorders.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TcBorders.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), + pre + "left": array(1, makeweakref(thisFunction(ReadXmlChildLeft))), + pre + "bottom": array(2, makeweakref(thisFunction(ReadXmlChildBottom))), + pre + "right": array(3, makeweakref(thisFunction(ReadXmlChildRight))), + pre + "tl2br": array(4, makeweakref(thisFunction(ReadXmlChildTl2Br))), + pre + "tr2bl": array(5, makeweakref(thisFunction(ReadXmlChildTr2Bl))), + pre + "insideH": array(6, makeweakref(thisFunction(ReadXmlChildInsideH))), + pre + "insideV": array(7, makeweakref(thisFunction(ReadXmlChildInsideV))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TcBorders.Copy(_obj: TcBorders);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTop) then + {self.}Top.Copy(_obj.XmlChildTop); + if not ifnil(_obj.XmlChildLeft) then + {self.}Left.Copy(_obj.XmlChildLeft); + if not ifnil(_obj.XmlChildBottom) then + {self.}Bottom.Copy(_obj.XmlChildBottom); + if not ifnil(_obj.XmlChildRight) then + {self.}Right.Copy(_obj.XmlChildRight); + if not ifnil(_obj.XmlChildTl2Br) then + {self.}Tl2Br.Copy(_obj.XmlChildTl2Br); + if not ifnil(_obj.XmlChildTr2Bl) then + {self.}Tr2Bl.Copy(_obj.XmlChildTr2Bl); + if not ifnil(_obj.XmlChildInsideH) then + {self.}InsideH.Copy(_obj.XmlChildInsideH); + if not ifnil(_obj.XmlChildInsideV) then + {self.}InsideV.Copy(_obj.XmlChildInsideV); + tslassigning := tslassigning_backup; +end; + +function TcBorders.ReadXmlChildTop(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildTop) then + begin + {self.}XmlChildTop := new TcBorder(self, {self.}Prefix, "top"); + container_.Set({self.}XmlChildTop); + end + return {self.}XmlChildTop; +end; + +function TcBorders.ReadXmlChildLeft(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildLeft) then + begin + {self.}XmlChildLeft := new TcBorder(self, {self.}Prefix, "left"); + container_.Set({self.}XmlChildLeft); + end + return {self.}XmlChildLeft; +end; + +function TcBorders.ReadXmlChildBottom(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildBottom) then + begin + {self.}XmlChildBottom := new TcBorder(self, {self.}Prefix, "bottom"); + container_.Set({self.}XmlChildBottom); + end + return {self.}XmlChildBottom; +end; + +function TcBorders.ReadXmlChildRight(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildRight) then + begin + {self.}XmlChildRight := new TcBorder(self, {self.}Prefix, "right"); + container_.Set({self.}XmlChildRight); + end + return {self.}XmlChildRight; +end; + +function TcBorders.ReadXmlChildTl2Br(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildTl2Br) then + begin + {self.}XmlChildTl2Br := new TcBorder(self, {self.}Prefix, "tl2br"); + container_.Set({self.}XmlChildTl2Br); + end + return {self.}XmlChildTl2Br; +end; + +function TcBorders.ReadXmlChildTr2Bl(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildTr2Bl) then + begin + {self.}XmlChildTr2Bl := new TcBorder(self, {self.}Prefix, "tr2bl"); + container_.Set({self.}XmlChildTr2Bl); + end + return {self.}XmlChildTr2Bl; +end; + +function TcBorders.ReadXmlChildInsideH(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildInsideH) then + begin + {self.}XmlChildInsideH := new TcBorder(self, {self.}Prefix, "insideH"); + container_.Set({self.}XmlChildInsideH); + end + return {self.}XmlChildInsideH; +end; + +function TcBorders.ReadXmlChildInsideV(): TcBorder; +begin + if tslassigning and ifnil({self.}XmlChildInsideV) then + begin + {self.}XmlChildInsideV := new TcBorder(self, {self.}Prefix, "insideV"); + container_.Set({self.}XmlChildInsideV); + end + return {self.}XmlChildInsideV; +end; + +function TcBorder.Create();overload; +begin + {self.}Create(nil, "w", ""); +end; + +function TcBorder.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TcBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TcBorder.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "color": makeweakref(thisFunction(WriteXmlAttrColor)), + pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), + pre + "themeColor": makeweakref(thisFunction(WriteXmlAttrThemeColor)), + pre + "themeTint": makeweakref(thisFunction(WriteXmlAttrThemeTint)), + pre + "sz": makeweakref(thisFunction(WriteXmlAttrSz)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TcBorder.Copy(_obj: TcBorder);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.Color) then + {self.}Color := _obj.Color; + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + if not ifnil(_obj.ThemeColor) then + {self.}ThemeColor := _obj.ThemeColor; + if not ifnil(_obj.ThemeTint) then + {self.}ThemeTint := _obj.ThemeTint; + if not ifnil(_obj.Sz) then + {self.}Sz := _obj.Sz; + tslassigning := tslassigning_backup; +end; + +function TcBorder.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function TcBorder.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function TcBorder.ReadXmlAttrColor(); +begin + return {self.}XmlAttrColor.Value; +end; + +function TcBorder.WriteXmlAttrColor(_value); +begin + if ifnil({self.}XmlAttrColor) then + begin + {self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil); + attributes_[length(attributes_)] := {self.}XmlAttrColor; + end + {self.}XmlAttrColor.Value := _value; +end; + +function TcBorder.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function TcBorder.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function TcBorder.ReadXmlAttrThemeColor(); +begin + return {self.}XmlAttrThemeColor.Value; +end; + +function TcBorder.WriteXmlAttrThemeColor(_value); +begin + if ifnil({self.}XmlAttrThemeColor) then + begin + {self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeColor; + end + {self.}XmlAttrThemeColor.Value := _value; +end; + +function TcBorder.ReadXmlAttrThemeTint(); +begin + return {self.}XmlAttrThemeTint.Value; +end; + +function TcBorder.WriteXmlAttrThemeTint(_value); +begin + if ifnil({self.}XmlAttrThemeTint) then + begin + {self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeTint; + end + {self.}XmlAttrThemeTint.Value := _value; +end; + +function TcBorder.ReadXmlAttrSz(); +begin + return {self.}XmlAttrSz.Value; +end; + +function TcBorder.WriteXmlAttrSz(_value); +begin + if ifnil({self.}XmlAttrSz) then + begin + {self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSz; + end + {self.}XmlAttrSz.Value := _value; +end; + +function GridSpan.Create();overload; +begin + {self.}Create(nil, "w", "gridSpan"); +end; + +function GridSpan.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function GridSpan.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function GridSpan.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function GridSpan.Copy(_obj: GridSpan);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + tslassigning := tslassigning_backup; +end; + +function GridSpan.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function GridSpan.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Shd.Create();overload; +begin + {self.}Create(nil, "w", "shd"); +end; + +function Shd.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Shd.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Shd.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w:val": makeweakref(thisFunction(WriteXmlAttrVal)), + "w:color": makeweakref(thisFunction(WriteXmlAttrColor)), + "w:fill": makeweakref(thisFunction(WriteXmlAttrFill)), + "w:themeFill": makeweakref(thisFunction(WriteXmlAttrThemeFill)), + "w:themeFillTint": makeweakref(thisFunction(WriteXmlAttrThemeFillTint)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Shd.Copy(_obj: Shd);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.Color) then + {self.}Color := _obj.Color; + if not ifnil(_obj.Fill) then + {self.}Fill := _obj.Fill; + if not ifnil(_obj.ThemeFill) then + {self.}ThemeFill := _obj.ThemeFill; + if not ifnil(_obj.ThemeFillTint) then + {self.}ThemeFillTint := _obj.ThemeFillTint; + tslassigning := tslassigning_backup; +end; + +function Shd.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function Shd.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Shd.ReadXmlAttrColor(); +begin + return {self.}XmlAttrColor.Value; +end; + +function Shd.WriteXmlAttrColor(_value); +begin + if ifnil({self.}XmlAttrColor) then + begin + {self.}XmlAttrColor := new OpenXmlAttribute("w", "color", nil); + attributes_[length(attributes_)] := {self.}XmlAttrColor; + end + {self.}XmlAttrColor.Value := _value; +end; + +function Shd.ReadXmlAttrFill(); +begin + return {self.}XmlAttrFill.Value; +end; + +function Shd.WriteXmlAttrFill(_value); +begin + if ifnil({self.}XmlAttrFill) then + begin + {self.}XmlAttrFill := new OpenXmlAttribute("w", "fill", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFill; + end + {self.}XmlAttrFill.Value := _value; +end; + +function Shd.ReadXmlAttrThemeFill(); +begin + return {self.}XmlAttrThemeFill.Value; +end; + +function Shd.WriteXmlAttrThemeFill(_value); +begin + if ifnil({self.}XmlAttrThemeFill) then + begin + {self.}XmlAttrThemeFill := new OpenXmlAttribute("w", "themeFill", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeFill; + end + {self.}XmlAttrThemeFill.Value := _value; +end; + +function Shd.ReadXmlAttrThemeFillTint(); +begin + return {self.}XmlAttrThemeFillTint.Value; +end; + +function Shd.WriteXmlAttrThemeFillTint(_value); +begin + if ifnil({self.}XmlAttrThemeFillTint) then + begin + {self.}XmlAttrThemeFillTint := new OpenXmlAttribute("w", "themeFillTint", nil); + attributes_[length(attributes_)] := {self.}XmlAttrThemeFillTint; + end + {self.}XmlAttrThemeFillTint.Value := _value; +end; + +function Sdt.Create();overload; +begin + {self.}Create(nil, "w", "sdt"); +end; + +function Sdt.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Sdt.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Sdt.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "stdPr": array(0, makeweakref(thisFunction(ReadXmlChildSdtPr))), + pre + "sdtEndPr": array(1, makeweakref(thisFunction(ReadXmlChildSdtEndPr))), + pre + "sdtContent": array(2, makeweakref(thisFunction(ReadXmlChildSdtContent))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Sdt.Copy(_obj: Sdt);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSdtPr) then + {self.}SdtPr.Copy(_obj.XmlChildSdtPr); + if not ifnil(_obj.XmlChildSdtEndPr) then + {self.}SdtEndPr.Copy(_obj.XmlChildSdtEndPr); + if not ifnil(_obj.XmlChildSdtContent) then + {self.}SdtContent.Copy(_obj.XmlChildSdtContent); + tslassigning := tslassigning_backup; +end; + +function Sdt.ReadXmlChildSdtPr(): SdtPr; +begin + if tslassigning and ifnil({self.}XmlChildSdtPr) then + begin + {self.}XmlChildSdtPr := new SdtPr(self, {self.}Prefix, "stdPr"); + container_.Set({self.}XmlChildSdtPr); + end + return {self.}XmlChildSdtPr; +end; + +function Sdt.ReadXmlChildSdtEndPr(): SdtEndPr; +begin + if tslassigning and ifnil({self.}XmlChildSdtEndPr) then + begin + {self.}XmlChildSdtEndPr := new SdtEndPr(self, {self.}Prefix, "sdtEndPr"); + container_.Set({self.}XmlChildSdtEndPr); + end + return {self.}XmlChildSdtEndPr; +end; + +function Sdt.ReadXmlChildSdtContent(): SdtContent; +begin + if tslassigning and ifnil({self.}XmlChildSdtContent) then + begin + {self.}XmlChildSdtContent := new SdtContent(self, {self.}Prefix, "sdtContent"); + container_.Set({self.}XmlChildSdtContent); + end + return {self.}XmlChildSdtContent; +end; + +function SdtPr.Create();overload; +begin + {self.}Create(nil, "w", "sdtPr"); +end; + +function SdtPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SdtPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SdtPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), + pre + "id": array(1, makeweakref(thisFunction(ReadXmlChildId))), + pre + "docPartObj": array(2, makeweakref(thisFunction(ReadXmlChildDocPartObj))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SdtPr.Copy(_obj: SdtPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + if not ifnil(_obj.XmlChildId) then + {self.}Id.Copy(_obj.XmlChildId); + if not ifnil(_obj.XmlChildDocPartObj) then + {self.}DocPartObj.Copy(_obj.XmlChildDocPartObj); + tslassigning := tslassigning_backup; +end; + +function SdtPr.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function SdtPr.ReadXmlChildId(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildId) then + begin + {self.}XmlChildId := new PureWVal(self, {self.}Prefix, "id"); + container_.Set({self.}XmlChildId); + end + return {self.}XmlChildId; +end; + +function SdtPr.ReadXmlChildDocPartObj(): DocPartObj; +begin + if tslassigning and ifnil({self.}XmlChildDocPartObj) then + begin + {self.}XmlChildDocPartObj := new DocPartObj(self, {self.}Prefix, "docPartObj"); + container_.Set({self.}XmlChildDocPartObj); + end + return {self.}XmlChildDocPartObj; +end; + +function DocPartObj.Create();overload; +begin + {self.}Create(nil, "w", "docPartObj"); +end; + +function DocPartObj.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function DocPartObj.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function DocPartObj.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "docPartGallery": array(0, makeweakref(thisFunction(ReadXmlChildDocPartGallery))), + pre + "docPartUnique": array(1, makeweakref(thisFunction(ReadXmlChildDocPartUnique))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function DocPartObj.Copy(_obj: DocPartObj);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildDocPartGallery) then + {self.}DocPartGallery.Copy(_obj.XmlChildDocPartGallery); + if not ifnil(_obj.XmlChildDocPartUnique) then + {self.}DocPartUnique.Copy(_obj.XmlChildDocPartUnique); + tslassigning := tslassigning_backup; +end; + +function DocPartObj.ReadXmlChildDocPartGallery(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildDocPartGallery) then + begin + {self.}XmlChildDocPartGallery := new PureWVal(self, {self.}Prefix, "docPartGallery"); + container_.Set({self.}XmlChildDocPartGallery); + end + return {self.}XmlChildDocPartGallery; +end; + +function DocPartObj.ReadXmlChildDocPartUnique(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildDocPartUnique) then + begin + {self.}XmlChildDocPartUnique := new PureVal(self, {self.}Prefix, "docPartUnique"); + container_.Set({self.}XmlChildDocPartUnique); + end + return {self.}XmlChildDocPartUnique; +end; + +function SdtEndPr.Create();overload; +begin + {self.}Create(nil, "w", "sdtEndPr"); +end; + +function SdtEndPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SdtEndPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SdtEndPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SdtEndPr.Copy(_obj: SdtEndPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function SdtEndPr.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function SdtContent.Create();overload; +begin + {self.}Create(nil, "w", "sdtContent"); +end; + +function SdtContent.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SdtContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SdtContent.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SdtContent.Copy(_obj: SdtContent);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function SdtContent.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function SdtContent.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function SdtContent.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function SectPr.Create();overload; +begin + {self.}Create(nil, "w", "sectPr"); +end; + +function SectPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SectPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SectPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "rsidR": makeweakref(thisFunction(WriteXmlAttrRsidR)), + pre + "rsidSect": makeweakref(thisFunction(WriteXmlAttrRsidSect)), + ); + sorted_child_ := array( + pre + "headerReference": array(0, makeweakref(thisFunction(AppendHeaderReference))), + pre + "footerReference": array(1, makeweakref(thisFunction(AppendFooterReference))), + pre + "footnotePr": array(2, makeweakref(thisFunction(ReadXmlChildFootnotePr))), + pre + "endnotePr": array(3, makeweakref(thisFunction(ReadXmlChildEndnotePr))), + pre + "type": array(4, makeweakref(thisFunction(ReadXmlChildType))), + pre + "pgSz": array(5, makeweakref(thisFunction(ReadXmlChildPgSz))), + pre + "pgMar": array(6, makeweakref(thisFunction(ReadXmlChildPgMar))), + pre + "pgNumType": array(7, makeweakref(thisFunction(ReadXmlChildPgNumType))), + pre + "cols": array(8, makeweakref(thisFunction(ReadXmlChildCols))), + pre + "titlePg": array(9, makeweakref(thisFunction(ReadXmlChildTitlePg))), + pre + "docGrid": array(10, makeweakref(thisFunction(ReadXmlChildDocGrid))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SectPr.Copy(_obj: SectPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.RsidR) then + {self.}RsidR := _obj.RsidR; + if not ifnil(_obj.RsidSect) then + {self.}RsidSect := _obj.RsidSect; + if not ifnil(_obj.XmlChildFootnotePr) then + {self.}FootnotePr.Copy(_obj.XmlChildFootnotePr); + if not ifnil(_obj.XmlChildEndnotePr) then + {self.}EndnotePr.Copy(_obj.XmlChildEndnotePr); + if not ifnil(_obj.XmlChildType) then + {self.}Type.Copy(_obj.XmlChildType); + if not ifnil(_obj.XmlChildPgSz) then + {self.}PgSz.Copy(_obj.XmlChildPgSz); + if not ifnil(_obj.XmlChildPgMar) then + {self.}PgMar.Copy(_obj.XmlChildPgMar); + if not ifnil(_obj.XmlChildPgNumType) then + {self.}PgNumType.Copy(_obj.XmlChildPgNumType); + if not ifnil(_obj.XmlChildCols) then + {self.}Cols.Copy(_obj.XmlChildCols); + if not ifnil(_obj.XmlChildTitlePg) then + ifnil({self.}XmlChildTitlePg) ? {self.}TitlePg.Copy(_obj.XmlChildTitlePg) : {self.}XmlChildTitlePg.Copy(_obj.XmlChildTitlePg); + if not ifnil(_obj.XmlChildDocGrid) then + {self.}DocGrid.Copy(_obj.XmlChildDocGrid); + tslassigning := tslassigning_backup; +end; + +function SectPr.ReadXmlAttrRsidR(); +begin + return {self.}XmlAttrRsidR.Value; +end; + +function SectPr.WriteXmlAttrRsidR(_value); +begin + if ifnil({self.}XmlAttrRsidR) then + begin + {self.}XmlAttrRsidR := new OpenXmlAttribute({self.}Prefix, "rsidR", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidR; + end + {self.}XmlAttrRsidR.Value := _value; +end; + +function SectPr.ReadXmlAttrRsidSect(); +begin + return {self.}XmlAttrRsidSect.Value; +end; + +function SectPr.WriteXmlAttrRsidSect(_value); +begin + if ifnil({self.}XmlAttrRsidSect) then + begin + {self.}XmlAttrRsidSect := new OpenXmlAttribute({self.}Prefix, "rsidSect", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRsidSect; + end + {self.}XmlAttrRsidSect.Value := _value; +end; + +function SectPr.ReadXmlChildTitlePg(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildTitlePg) then + begin + {self.}XmlChildTitlePg := new OpenXmlEmpty(self, {self.}Prefix, "titlePg"); + container_.Set({self.}XmlChildTitlePg); + end + return {self.}XmlChildTitlePg; + end + return ifnil({self.}XmlChildTitlePg) ? nil : {self.}XmlChildTitlePg.BoolValue(); +end; + +function SectPr.WriteXmlChildTitlePg(_value); +begin + if ifnil({self.}XmlChildTitlePg) then + begin + {self.}XmlChildTitlePg := new OpenXmlEmpty(self, {self.}Prefix, "titlePg"); + container_.Set({self.}XmlChildTitlePg); + end + {self.}XmlChildTitlePg.Value := _value; +end; + +function SectPr.ReadXmlChildFootnotePr(): FootnotePr; +begin + if tslassigning and ifnil({self.}XmlChildFootnotePr) then + begin + {self.}XmlChildFootnotePr := new FootnotePr(self, {self.}Prefix, "footnotePr"); + container_.Set({self.}XmlChildFootnotePr); + end + return {self.}XmlChildFootnotePr; +end; + +function SectPr.ReadXmlChildEndnotePr(): EndnotePr; +begin + if tslassigning and ifnil({self.}XmlChildEndnotePr) then + begin + {self.}XmlChildEndnotePr := new EndnotePr(self, {self.}Prefix, "endnotePr"); + container_.Set({self.}XmlChildEndnotePr); + end + return {self.}XmlChildEndnotePr; +end; + +function SectPr.ReadXmlChildType(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildType) then + begin + {self.}XmlChildType := new PureWVal(self, {self.}Prefix, "type"); + container_.Set({self.}XmlChildType); + end + return {self.}XmlChildType; +end; + +function SectPr.ReadXmlChildPgSz(): PgSz; +begin + if tslassigning and ifnil({self.}XmlChildPgSz) then + begin + {self.}XmlChildPgSz := new PgSz(self, {self.}Prefix, "pgSz"); + container_.Set({self.}XmlChildPgSz); + end + return {self.}XmlChildPgSz; +end; + +function SectPr.ReadXmlChildPgMar(): PgMar; +begin + if tslassigning and ifnil({self.}XmlChildPgMar) then + begin + {self.}XmlChildPgMar := new PgMar(self, {self.}Prefix, "pgMar"); + container_.Set({self.}XmlChildPgMar); + end + return {self.}XmlChildPgMar; +end; + +function SectPr.ReadXmlChildPgNumType(): PgNumType; +begin + if tslassigning and ifnil({self.}XmlChildPgNumType) then + begin + {self.}XmlChildPgNumType := new PgNumType(self, {self.}Prefix, "pgNumType"); + container_.Set({self.}XmlChildPgNumType); + end + return {self.}XmlChildPgNumType; +end; + +function SectPr.ReadXmlChildCols(): Cols; +begin + if tslassigning and ifnil({self.}XmlChildCols) then + begin + {self.}XmlChildCols := new Cols(self, {self.}Prefix, "cols"); + container_.Set({self.}XmlChildCols); + end + return {self.}XmlChildCols; +end; + +function SectPr.ReadXmlChildDocGrid(): DocGrid; +begin + if tslassigning and ifnil({self.}XmlChildDocGrid) then + begin + {self.}XmlChildDocGrid := new DocGrid(self, {self.}Prefix, "docGrid"); + container_.Set({self.}XmlChildDocGrid); + end + return {self.}XmlChildDocGrid; +end; + +function SectPr.ReadHeaderReferences(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "headerReference", ind); +end; + +function SectPr.ReadFooterReferences(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "footerReference", ind); +end; + +function SectPr.AddHeaderReference(): Reference; +begin + obj := new Reference(self, {self.}Prefix, "headerReference"); + container_.Insert(obj); + return obj; +end; + +function SectPr.AddFooterReference(): Reference; +begin + obj := new Reference(self, {self.}Prefix, "footerReference"); + container_.Insert(obj); + return obj; +end; + +function SectPr.AppendHeaderReference(): Reference; +begin + obj := new Reference(self, {self.}Prefix, "headerReference"); + container_.Append(obj); + return obj; +end; + +function SectPr.AppendFooterReference(): Reference; +begin + obj := new Reference(self, {self.}Prefix, "footerReference"); + container_.Append(obj); + return obj; +end; + +function Reference.Create();overload; +begin + {self.}Create(nil, "w", ""); +end; + +function Reference.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Reference.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Reference.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + "r:id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Reference.Copy(_obj: Reference);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function Reference.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Reference.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Reference.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Reference.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function PgNumType.Create();overload; +begin + {self.}Create(nil, "w", "pgNumType"); +end; + +function PgNumType.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PgNumType.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PgNumType.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "start": makeweakref(thisFunction(WriteXmlAttrStart)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PgNumType.Copy(_obj: PgNumType);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Start) then + {self.}Start := _obj.Start; + tslassigning := tslassigning_backup; +end; + +function PgNumType.ReadXmlAttrStart(); +begin + return {self.}XmlAttrStart.Value; +end; + +function PgNumType.WriteXmlAttrStart(_value); +begin + if ifnil({self.}XmlAttrStart) then + begin + {self.}XmlAttrStart := new OpenXmlAttribute({self.}Prefix, "start", nil); + attributes_[length(attributes_)] := {self.}XmlAttrStart; + end + {self.}XmlAttrStart.Value := _value; +end; + +function PgSz.Create();overload; +begin + {self.}Create(nil, "w", "pgSz"); +end; + +function PgSz.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PgSz.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PgSz.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), + pre + "h": makeweakref(thisFunction(WriteXmlAttrH)), + pre + "orient": makeweakref(thisFunction(WriteXmlAttrOrient)), + pre + "code": makeweakref(thisFunction(WriteXmlAttrCode)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PgSz.Copy(_obj: PgSz);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.W) then + {self.}W := _obj.W; + if not ifnil(_obj.H) then + {self.}H := _obj.H; + if not ifnil(_obj.Orient) then + {self.}Orient := _obj.Orient; + if not ifnil(_obj.Code) then + {self.}Code := _obj.Code; + tslassigning := tslassigning_backup; +end; + +function PgSz.ReadXmlAttrW(); +begin + return {self.}XmlAttrW.Value; +end; + +function PgSz.WriteXmlAttrW(_value); +begin + if ifnil({self.}XmlAttrW) then + begin + {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); + attributes_[length(attributes_)] := {self.}XmlAttrW; + end + {self.}XmlAttrW.Value := _value; +end; + +function PgSz.ReadXmlAttrH(); +begin + return {self.}XmlAttrH.Value; +end; + +function PgSz.WriteXmlAttrH(_value); +begin + if ifnil({self.}XmlAttrH) then + begin + {self.}XmlAttrH := new OpenXmlAttribute({self.}Prefix, "h", nil); + attributes_[length(attributes_)] := {self.}XmlAttrH; + end + {self.}XmlAttrH.Value := _value; +end; + +function PgSz.ReadXmlAttrOrient(); +begin + return {self.}XmlAttrOrient.Value; +end; + +function PgSz.WriteXmlAttrOrient(_value); +begin + if ifnil({self.}XmlAttrOrient) then + begin + {self.}XmlAttrOrient := new OpenXmlAttribute({self.}Prefix, "orient", nil); + attributes_[length(attributes_)] := {self.}XmlAttrOrient; + end + {self.}XmlAttrOrient.Value := _value; +end; + +function PgSz.ReadXmlAttrCode(); +begin + return {self.}XmlAttrCode.Value; +end; + +function PgSz.WriteXmlAttrCode(_value); +begin + if ifnil({self.}XmlAttrCode) then + begin + {self.}XmlAttrCode := new OpenXmlAttribute({self.}Prefix, "code", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCode; + end + {self.}XmlAttrCode.Value := _value; +end; + +function PgMar.Create();overload; +begin + {self.}Create(nil, "w", "pgMar"); +end; + +function PgMar.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PgMar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PgMar.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "top": makeweakref(thisFunction(WriteXmlAttrTop)), + pre + "right": makeweakref(thisFunction(WriteXmlAttrRight)), + pre + "bottom": makeweakref(thisFunction(WriteXmlAttrBottom)), + pre + "left": makeweakref(thisFunction(WriteXmlAttrLeft)), + pre + "header": makeweakref(thisFunction(WriteXmlAttrHeader)), + pre + "footer": makeweakref(thisFunction(WriteXmlAttrFooter)), + pre + "gutter": makeweakref(thisFunction(WriteXmlAttrGutter)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PgMar.Copy(_obj: PgMar);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Top) then + {self.}Top := _obj.Top; + if not ifnil(_obj.Right) then + {self.}Right := _obj.Right; + if not ifnil(_obj.Bottom) then + {self.}Bottom := _obj.Bottom; + if not ifnil(_obj.Left) then + {self.}Left := _obj.Left; + if not ifnil(_obj.Header) then + {self.}Header := _obj.Header; + if not ifnil(_obj.Footer) then + {self.}Footer := _obj.Footer; + if not ifnil(_obj.Gutter) then + {self.}Gutter := _obj.Gutter; + tslassigning := tslassigning_backup; +end; + +function PgMar.ReadXmlAttrTop(); +begin + return {self.}XmlAttrTop.Value; +end; + +function PgMar.WriteXmlAttrTop(_value); +begin + if ifnil({self.}XmlAttrTop) then + begin + {self.}XmlAttrTop := new OpenXmlAttribute({self.}Prefix, "top", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTop; + end + {self.}XmlAttrTop.Value := _value; +end; + +function PgMar.ReadXmlAttrRight(); +begin + return {self.}XmlAttrRight.Value; +end; + +function PgMar.WriteXmlAttrRight(_value); +begin + if ifnil({self.}XmlAttrRight) then + begin + {self.}XmlAttrRight := new OpenXmlAttribute({self.}Prefix, "right", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRight; + end + {self.}XmlAttrRight.Value := _value; +end; + +function PgMar.ReadXmlAttrBottom(); +begin + return {self.}XmlAttrBottom.Value; +end; + +function PgMar.WriteXmlAttrBottom(_value); +begin + if ifnil({self.}XmlAttrBottom) then + begin + {self.}XmlAttrBottom := new OpenXmlAttribute({self.}Prefix, "bottom", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBottom; + end + {self.}XmlAttrBottom.Value := _value; +end; + +function PgMar.ReadXmlAttrLeft(); +begin + return {self.}XmlAttrLeft.Value; +end; + +function PgMar.WriteXmlAttrLeft(_value); +begin + if ifnil({self.}XmlAttrLeft) then + begin + {self.}XmlAttrLeft := new OpenXmlAttribute({self.}Prefix, "left", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLeft; + end + {self.}XmlAttrLeft.Value := _value; +end; + +function PgMar.ReadXmlAttrHeader(); +begin + return {self.}XmlAttrHeader.Value; +end; + +function PgMar.WriteXmlAttrHeader(_value); +begin + if ifnil({self.}XmlAttrHeader) then + begin + {self.}XmlAttrHeader := new OpenXmlAttribute({self.}Prefix, "header", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHeader; + end + {self.}XmlAttrHeader.Value := _value; +end; + +function PgMar.ReadXmlAttrFooter(); +begin + return {self.}XmlAttrFooter.Value; +end; + +function PgMar.WriteXmlAttrFooter(_value); +begin + if ifnil({self.}XmlAttrFooter) then + begin + {self.}XmlAttrFooter := new OpenXmlAttribute({self.}Prefix, "footer", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFooter; + end + {self.}XmlAttrFooter.Value := _value; +end; + +function PgMar.ReadXmlAttrGutter(); +begin + return {self.}XmlAttrGutter.Value; +end; + +function PgMar.WriteXmlAttrGutter(_value); +begin + if ifnil({self.}XmlAttrGutter) then + begin + {self.}XmlAttrGutter := new OpenXmlAttribute({self.}Prefix, "gutter", nil); + attributes_[length(attributes_)] := {self.}XmlAttrGutter; + end + {self.}XmlAttrGutter.Value := _value; +end; + +function Cols.Create();overload; +begin + {self.}Create(nil, "w", "cols"); +end; + +function Cols.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Cols.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Cols.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "num": makeweakref(thisFunction(WriteXmlAttrNum)), + pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), + pre + "equalWidth": makeweakref(thisFunction(WriteXmlAttrEqualWidth)), + ); + sorted_child_ := array( + pre + "col": array(0, makeweakref(thisFunction(AppendCol))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Cols.Copy(_obj: Cols);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Num) then + {self.}Num := _obj.Num; + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + if not ifnil(_obj.EqualWidth) then + {self.}EqualWidth := _obj.EqualWidth; + tslassigning := tslassigning_backup; +end; + +function Cols.ReadXmlAttrNum(); +begin + return {self.}XmlAttrNum.Value; +end; + +function Cols.WriteXmlAttrNum(_value); +begin + if ifnil({self.}XmlAttrNum) then + begin + {self.}XmlAttrNum := new OpenXmlAttribute({self.}Prefix, "num", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNum; + end + {self.}XmlAttrNum.Value := _value; +end; + +function Cols.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function Cols.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function Cols.ReadXmlAttrEqualWidth(); +begin + return {self.}XmlAttrEqualWidth.Value; +end; + +function Cols.WriteXmlAttrEqualWidth(_value); +begin + if ifnil({self.}XmlAttrEqualWidth) then + begin + {self.}XmlAttrEqualWidth := new OpenXmlAttribute({self.}Prefix, "equalWidth", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEqualWidth; + end + {self.}XmlAttrEqualWidth.Value := _value; +end; + +function Cols.ReadCols(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "col", ind); +end; + +function Cols.AddCol(): Col; +begin + obj := new Col(self, {self.}Prefix, "col"); + container_.Insert(obj); + return obj; +end; + +function Cols.AppendCol(): Col; +begin + obj := new Col(self, {self.}Prefix, "col"); + container_.Append(obj); + return obj; +end; + +function Col.Create();overload; +begin + {self.}Create(nil, "w", "col"); +end; + +function Col.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Col.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Col.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), + pre + "space": makeweakref(thisFunction(WriteXmlAttrSpace)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Col.Copy(_obj: Col);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.W) then + {self.}W := _obj.W; + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + tslassigning := tslassigning_backup; +end; + +function Col.ReadXmlAttrW(); +begin + return {self.}XmlAttrW.Value; +end; + +function Col.WriteXmlAttrW(_value); +begin + if ifnil({self.}XmlAttrW) then + begin + {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); + attributes_[length(attributes_)] := {self.}XmlAttrW; + end + {self.}XmlAttrW.Value := _value; +end; + +function Col.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function Col.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function DocGrid.Create();overload; +begin + {self.}Create(nil, "w", "docGrid"); +end; + +function DocGrid.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function DocGrid.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function DocGrid.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + pre + "linePitch": makeweakref(thisFunction(WriteXmlAttrLinePitch)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function DocGrid.Copy(_obj: DocGrid);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.LinePitch) then + {self.}LinePitch := _obj.LinePitch; + tslassigning := tslassigning_backup; +end; + +function DocGrid.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function DocGrid.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function DocGrid.ReadXmlAttrLinePitch(); +begin + return {self.}XmlAttrLinePitch.Value; +end; + +function DocGrid.WriteXmlAttrLinePitch(_value); +begin + if ifnil({self.}XmlAttrLinePitch) then + begin + {self.}XmlAttrLinePitch := new OpenXmlAttribute({self.}Prefix, "linePitch", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLinePitch; + end + {self.}XmlAttrLinePitch.Value := _value; +end; + +function Endnotes.Create();overload; +begin + {self.}Create(nil, "w", "endnotes"); +end; + +function Endnotes.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Endnotes.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Endnotes.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "endnote": array(0, makeweakref(thisFunction(AppendEndnote))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Endnotes.Copy(_obj: Endnotes);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + tslassigning := tslassigning_backup; +end; + +function Endnotes.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Endnotes.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Endnotes.ReadEndnotes(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "endnote", ind); +end; + +function Endnotes.AddEndnote(): Endnote; +begin + obj := new Endnote(self, {self.}Prefix, "endnote"); + container_.Insert(obj); + return obj; +end; + +function Endnotes.AppendEndnote(): Endnote; +begin + obj := new Endnote(self, {self.}Prefix, "endnote"); + container_.Append(obj); + return obj; +end; + +function Endnote.Create();overload; +begin + {self.}Create(nil, "w", "endnote"); +end; + +function Endnote.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Endnote.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Endnote.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Endnote.Copy(_obj: Endnote);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function Endnote.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Endnote.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Endnote.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Endnote.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Endnote.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function Endnote.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function Endnote.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Footnotes.Create();overload; +begin + {self.}Create(nil, "w", "footnotes"); +end; + +function Footnotes.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Footnotes.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Footnotes.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "footnote": array(0, makeweakref(thisFunction(AppendFootnote))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Footnotes.Copy(_obj: Footnotes);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + tslassigning := tslassigning_backup; +end; + +function Footnotes.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Footnotes.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Footnotes.ReadFootnotes(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "footnote", ind); +end; + +function Footnotes.AddFootnote(): Footnote; +begin + obj := new Footnote(self, {self.}Prefix, "footnote"); + container_.Insert(obj); + return obj; +end; + +function Footnotes.AppendFootnote(): Footnote; +begin + obj := new Footnote(self, {self.}Prefix, "footnote"); + container_.Append(obj); + return obj; +end; + +function Footnote.Create();overload; +begin + {self.}Create(nil, "w", "footnote"); +end; + +function Footnote.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Footnote.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Footnote.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Footnote.Copy(_obj: Footnote);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function Footnote.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Footnote.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Footnote.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Footnote.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Footnote.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function Footnote.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function Footnote.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Fonts.Create();overload; +begin + {self.}Create(nil, "w", "fonts"); +end; + +function Fonts.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Fonts.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Fonts.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "font": array(0, makeweakref(thisFunction(AppendFont))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Fonts.Copy(_obj: Fonts);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + tslassigning := tslassigning_backup; +end; + +function Fonts.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Fonts.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Fonts.ReadFonts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "font", ind); +end; + +function Fonts.AddFont(): Font; +begin + obj := new Font(self, {self.}Prefix, "font"); + container_.Insert(obj); + return obj; +end; + +function Fonts.AppendFont(): Font; +begin + obj := new Font(self, {self.}Prefix, "font"); + container_.Append(obj); + return obj; +end; + +function Font.Create();overload; +begin + {self.}Create(nil, "w", "font"); +end; + +function Font.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Font.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Font.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), + ); + sorted_child_ := array( + pre + "altName": array(0, makeweakref(thisFunction(ReadXmlChildAltName))), + pre + "panosel": array(1, makeweakref(thisFunction(ReadXmlChildPanosel))), + pre + "charset": array(2, makeweakref(thisFunction(ReadXmlChildCharset))), + pre + "family": array(3, makeweakref(thisFunction(ReadXmlChildFamily))), + pre + "pitch": array(4, makeweakref(thisFunction(ReadXmlChildPitch))), + pre + "sig": array(5, makeweakref(thisFunction(ReadXmlChildSig))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Font.Copy(_obj: Font);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.XmlChildAltName) then + {self.}AltName.Copy(_obj.XmlChildAltName); + if not ifnil(_obj.XmlChildPanosel) then + {self.}Panosel.Copy(_obj.XmlChildPanosel); + if not ifnil(_obj.XmlChildCharset) then + {self.}Charset.Copy(_obj.XmlChildCharset); + if not ifnil(_obj.XmlChildFamily) then + {self.}Family.Copy(_obj.XmlChildFamily); + if not ifnil(_obj.XmlChildPitch) then + {self.}Pitch.Copy(_obj.XmlChildPitch); + if not ifnil(_obj.XmlChildSig) then + {self.}Sig.Copy(_obj.XmlChildSig); + tslassigning := tslassigning_backup; +end; + +function Font.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function Font.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function Font.ReadXmlChildAltName(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildAltName) then + begin + {self.}XmlChildAltName := new PureWVal(self, {self.}Prefix, "altName"); + container_.Set({self.}XmlChildAltName); + end + return {self.}XmlChildAltName; +end; + +function Font.ReadXmlChildPanosel(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildPanosel) then + begin + {self.}XmlChildPanosel := new PureWVal(self, {self.}Prefix, "panosel"); + container_.Set({self.}XmlChildPanosel); + end + return {self.}XmlChildPanosel; +end; + +function Font.ReadXmlChildCharset(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildCharset) then + begin + {self.}XmlChildCharset := new PureWVal(self, {self.}Prefix, "charset"); + container_.Set({self.}XmlChildCharset); + end + return {self.}XmlChildCharset; +end; + +function Font.ReadXmlChildFamily(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildFamily) then + begin + {self.}XmlChildFamily := new PureWVal(self, {self.}Prefix, "family"); + container_.Set({self.}XmlChildFamily); + end + return {self.}XmlChildFamily; +end; + +function Font.ReadXmlChildPitch(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildPitch) then + begin + {self.}XmlChildPitch := new PureWVal(self, {self.}Prefix, "pitch"); + container_.Set({self.}XmlChildPitch); + end + return {self.}XmlChildPitch; +end; + +function Font.ReadXmlChildSig(): Sig; +begin + if tslassigning and ifnil({self.}XmlChildSig) then + begin + {self.}XmlChildSig := new Sig(self, {self.}Prefix, "sig"); + container_.Set({self.}XmlChildSig); + end + return {self.}XmlChildSig; +end; + +function Sig.Create();overload; +begin + {self.}Create(nil, "w", "sig"); +end; + +function Sig.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Sig.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Sig.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "usb0": makeweakref(thisFunction(WriteXmlAttrUsb0)), + pre + "usb1": makeweakref(thisFunction(WriteXmlAttrUsb1)), + pre + "usb2": makeweakref(thisFunction(WriteXmlAttrUsb2)), + pre + "usb3": makeweakref(thisFunction(WriteXmlAttrUsb3)), + pre + "csb0": makeweakref(thisFunction(WriteXmlAttrcsb0)), + pre + "csb1": makeweakref(thisFunction(WriteXmlAttrcsb1)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Sig.Copy(_obj: Sig);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Usb0) then + {self.}Usb0 := _obj.Usb0; + if not ifnil(_obj.Usb1) then + {self.}Usb1 := _obj.Usb1; + if not ifnil(_obj.Usb2) then + {self.}Usb2 := _obj.Usb2; + if not ifnil(_obj.Usb3) then + {self.}Usb3 := _obj.Usb3; + if not ifnil(_obj.csb0) then + {self.}csb0 := _obj.csb0; + if not ifnil(_obj.csb1) then + {self.}csb1 := _obj.csb1; + tslassigning := tslassigning_backup; +end; + +function Sig.ReadXmlAttrUsb0(); +begin + return {self.}XmlAttrUsb0.Value; +end; + +function Sig.WriteXmlAttrUsb0(_value); +begin + if ifnil({self.}XmlAttrUsb0) then + begin + {self.}XmlAttrUsb0 := new OpenXmlAttribute({self.}Prefix, "usb0", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUsb0; + end + {self.}XmlAttrUsb0.Value := _value; +end; + +function Sig.ReadXmlAttrUsb1(); +begin + return {self.}XmlAttrUsb1.Value; +end; + +function Sig.WriteXmlAttrUsb1(_value); +begin + if ifnil({self.}XmlAttrUsb1) then + begin + {self.}XmlAttrUsb1 := new OpenXmlAttribute({self.}Prefix, "usb1", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUsb1; + end + {self.}XmlAttrUsb1.Value := _value; +end; + +function Sig.ReadXmlAttrUsb2(); +begin + return {self.}XmlAttrUsb2.Value; +end; + +function Sig.WriteXmlAttrUsb2(_value); +begin + if ifnil({self.}XmlAttrUsb2) then + begin + {self.}XmlAttrUsb2 := new OpenXmlAttribute({self.}Prefix, "usb2", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUsb2; + end + {self.}XmlAttrUsb2.Value := _value; +end; + +function Sig.ReadXmlAttrUsb3(); +begin + return {self.}XmlAttrUsb3.Value; +end; + +function Sig.WriteXmlAttrUsb3(_value); +begin + if ifnil({self.}XmlAttrUsb3) then + begin + {self.}XmlAttrUsb3 := new OpenXmlAttribute({self.}Prefix, "usb3", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUsb3; + end + {self.}XmlAttrUsb3.Value := _value; +end; + +function Sig.ReadXmlAttrcsb0(); +begin + return {self.}XmlAttrcsb0.Value; +end; + +function Sig.WriteXmlAttrcsb0(_value); +begin + if ifnil({self.}XmlAttrcsb0) then + begin + {self.}XmlAttrcsb0 := new OpenXmlAttribute({self.}Prefix, "csb0", nil); + attributes_[length(attributes_)] := {self.}XmlAttrcsb0; + end + {self.}XmlAttrcsb0.Value := _value; +end; + +function Sig.ReadXmlAttrcsb1(); +begin + return {self.}XmlAttrcsb1.Value; +end; + +function Sig.WriteXmlAttrcsb1(_value); +begin + if ifnil({self.}XmlAttrcsb1) then + begin + {self.}XmlAttrcsb1 := new OpenXmlAttribute({self.}Prefix, "csb1", nil); + attributes_[length(attributes_)] := {self.}XmlAttrcsb1; + end + {self.}XmlAttrcsb1.Value := _value; +end; + +function Settings.Create();overload; +begin + {self.}Create(nil, "w", "settings"); +end; + +function Settings.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Settings.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Settings.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "zoom": array(0, makeweakref(thisFunction(ReadXmlChildZoom))), + pre + "bordersDoNotSurroundHeader": array(1, makeweakref(thisFunction(ReadXmlChildBordersDoNotSurroundHeader))), + pre + "bordersDoNotSurroundFooter": array(2, makeweakref(thisFunction(ReadXmlChildBordersDoNotSurroundFooter))), + pre + "defaultTabStop": array(3, makeweakref(thisFunction(ReadXmlChildDefaultTabStop))), + pre + "evenAndOddHeaders": array(4, makeweakref(thisFunction(ReadXmlChildEvenAndOddHeaders))), + pre + "drawingGridVerticalSpacing": array(5, makeweakref(thisFunction(ReadXmlChildDrawingGridVerticalSpacing))), + pre + "displayHorizontalDrawingGridEvery": array(6, makeweakref(thisFunction(ReadXmlChildDisplayHorizontalDrawingGridEvery))), + pre + "DisplayVerticalDrawingGridEvery": array(7, makeweakref(thisFunction(ReadXmlChildDisplayVerticalDrawingGridEvery))), + pre + "characterSpacingControl": array(8, makeweakref(thisFunction(ReadXmlChildCharacterSpacingControl))), + pre + "hdrShapeDefaults": array(9, makeweakref(thisFunction(ReadXmlChildHdrShapeDefaults))), + pre + "footnotePr": array(10, makeweakref(thisFunction(ReadXmlChildFootnotePr))), + pre + "endnotePr": array(11, makeweakref(thisFunction(ReadXmlChildEndnotePr))), + pre + "Compat": array(12, makeweakref(thisFunction(ReadXmlChildCompat))), + pre + "rsids": array(13, makeweakref(thisFunction(ReadXmlChildRsids))), + "m:mathPr": array(14, makeweakref(thisFunction(ReadXmlChildMathPr))), + pre + "themeFontLang": array(15, makeweakref(thisFunction(ReadXmlChildThemeFontLang))), + pre + "clrSchemeMapping": array(16, makeweakref(thisFunction(ReadXmlChildClrSchemeMapping))), + pre + "doNotIncludeSubdocsInStats": array(17, makeweakref(thisFunction(ReadXmlChildDoNotIncludeSubdocsInStats))), + pre + "shapeDefaults": array(18, makeweakref(thisFunction(ReadXmlChildShapeDefaults))), + pre + "decimalSymbol": array(19, makeweakref(thisFunction(ReadXmlChildDecimalSymbol))), + pre + "listSeparator": array(20, makeweakref(thisFunction(ReadXmlChildListSeparator))), + pre + "docId": array(21, makeweakref(thisFunction(ReadXmlChildDocId))), + "w14:docId": array(22, makeweakref(thisFunction(ReadXmlChildW14DocId))), + "w15:docId": array(23, makeweakref(thisFunction(ReadXmlChildW15DocId))), + "w15:chartTrackingRefBased": array(24, makeweakref(thisFunction(ReadXmlChildChartTrackingRefBased))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Settings.Copy(_obj: Settings);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + if not ifnil(_obj.XmlChildZoom) then + {self.}Zoom.Copy(_obj.XmlChildZoom); + if not ifnil(_obj.XmlChildBordersDoNotSurroundHeader) then + ifnil({self.}XmlChildBordersDoNotSurroundHeader) ? {self.}BordersDoNotSurroundHeader.Copy(_obj.XmlChildBordersDoNotSurroundHeader) : {self.}XmlChildBordersDoNotSurroundHeader.Copy(_obj.XmlChildBordersDoNotSurroundHeader); + if not ifnil(_obj.XmlChildBordersDoNotSurroundFooter) then + ifnil({self.}XmlChildBordersDoNotSurroundFooter) ? {self.}BordersDoNotSurroundFooter.Copy(_obj.XmlChildBordersDoNotSurroundFooter) : {self.}XmlChildBordersDoNotSurroundFooter.Copy(_obj.XmlChildBordersDoNotSurroundFooter); + if not ifnil(_obj.XmlChildDefaultTabStop) then + {self.}DefaultTabStop.Copy(_obj.XmlChildDefaultTabStop); + if not ifnil(_obj.XmlChildEvenAndOddHeaders) then + ifnil({self.}XmlChildEvenAndOddHeaders) ? {self.}EvenAndOddHeaders.Copy(_obj.XmlChildEvenAndOddHeaders) : {self.}XmlChildEvenAndOddHeaders.Copy(_obj.XmlChildEvenAndOddHeaders); + if not ifnil(_obj.XmlChildDrawingGridVerticalSpacing) then + {self.}DrawingGridVerticalSpacing.Copy(_obj.XmlChildDrawingGridVerticalSpacing); + if not ifnil(_obj.XmlChildDisplayHorizontalDrawingGridEvery) then + {self.}DisplayHorizontalDrawingGridEvery.Copy(_obj.XmlChildDisplayHorizontalDrawingGridEvery); + if not ifnil(_obj.XmlChildDisplayVerticalDrawingGridEvery) then + {self.}DisplayVerticalDrawingGridEvery.Copy(_obj.XmlChildDisplayVerticalDrawingGridEvery); + if not ifnil(_obj.XmlChildCharacterSpacingControl) then + {self.}CharacterSpacingControl.Copy(_obj.XmlChildCharacterSpacingControl); + if not ifnil(_obj.XmlChildHdrShapeDefaults) then + {self.}HdrShapeDefaults.Copy(_obj.XmlChildHdrShapeDefaults); + if not ifnil(_obj.XmlChildFootnotePr) then + {self.}FootnotePr.Copy(_obj.XmlChildFootnotePr); + if not ifnil(_obj.XmlChildEndnotePr) then + {self.}EndnotePr.Copy(_obj.XmlChildEndnotePr); + if not ifnil(_obj.XmlChildCompat) then + {self.}Compat.Copy(_obj.XmlChildCompat); + if not ifnil(_obj.XmlChildRsids) then + {self.}Rsids.Copy(_obj.XmlChildRsids); + if not ifnil(_obj.XmlChildMathPr) then + {self.}MathPr.Copy(_obj.XmlChildMathPr); + if not ifnil(_obj.XmlChildThemeFontLang) then + {self.}ThemeFontLang.Copy(_obj.XmlChildThemeFontLang); + if not ifnil(_obj.XmlChildClrSchemeMapping) then + {self.}ClrSchemeMapping.Copy(_obj.XmlChildClrSchemeMapping); + if not ifnil(_obj.XmlChildDoNotIncludeSubdocsInStats) then + ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) ? {self.}DoNotIncludeSubdocsInStats.Copy(_obj.XmlChildDoNotIncludeSubdocsInStats) : {self.}XmlChildDoNotIncludeSubdocsInStats.Copy(_obj.XmlChildDoNotIncludeSubdocsInStats); + if not ifnil(_obj.XmlChildShapeDefaults) then + {self.}ShapeDefaults.Copy(_obj.XmlChildShapeDefaults); + if not ifnil(_obj.XmlChildDecimalSymbol) then + {self.}DecimalSymbol.Copy(_obj.XmlChildDecimalSymbol); + if not ifnil(_obj.XmlChildListSeparator) then + {self.}ListSeparator.Copy(_obj.XmlChildListSeparator); + if not ifnil(_obj.XmlChildDocId) then + {self.}DocId.Copy(_obj.XmlChildDocId); + if not ifnil(_obj.XmlChildW14DocId) then + {self.}W14DocId.Copy(_obj.XmlChildW14DocId); + if not ifnil(_obj.XmlChildW15DocId) then + {self.}W15DocId.Copy(_obj.XmlChildW15DocId); + if not ifnil(_obj.XmlChildChartTrackingRefBased) then + ifnil({self.}XmlChildChartTrackingRefBased) ? {self.}ChartTrackingRefBased.Copy(_obj.XmlChildChartTrackingRefBased) : {self.}XmlChildChartTrackingRefBased.Copy(_obj.XmlChildChartTrackingRefBased); + tslassigning := tslassigning_backup; +end; + +function Settings.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Settings.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Settings.ReadXmlChildBordersDoNotSurroundHeader(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildBordersDoNotSurroundHeader) then + begin + {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundHeader"); + container_.Set({self.}XmlChildBordersDoNotSurroundHeader); + end + return {self.}XmlChildBordersDoNotSurroundHeader; + end + return ifnil({self.}XmlChildBordersDoNotSurroundHeader) ? nil : {self.}XmlChildBordersDoNotSurroundHeader.BoolValue(); +end; + +function Settings.WriteXmlChildBordersDoNotSurroundHeader(_value); +begin + if ifnil({self.}XmlChildBordersDoNotSurroundHeader) then + begin + {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundHeader"); + container_.Set({self.}XmlChildBordersDoNotSurroundHeader); + end + {self.}XmlChildBordersDoNotSurroundHeader.Value := _value; +end; + +function Settings.ReadXmlChildBordersDoNotSurroundFooter(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildBordersDoNotSurroundFooter) then + begin + {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundFooter"); + container_.Set({self.}XmlChildBordersDoNotSurroundFooter); + end + return {self.}XmlChildBordersDoNotSurroundFooter; + end + return ifnil({self.}XmlChildBordersDoNotSurroundFooter) ? nil : {self.}XmlChildBordersDoNotSurroundFooter.BoolValue(); +end; + +function Settings.WriteXmlChildBordersDoNotSurroundFooter(_value); +begin + if ifnil({self.}XmlChildBordersDoNotSurroundFooter) then + begin + {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlEmpty(self, {self.}Prefix, "bordersDoNotSurroundFooter"); + container_.Set({self.}XmlChildBordersDoNotSurroundFooter); + end + {self.}XmlChildBordersDoNotSurroundFooter.Value := _value; +end; + +function Settings.ReadXmlChildEvenAndOddHeaders(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildEvenAndOddHeaders) then + begin + {self.}XmlChildEvenAndOddHeaders := new OpenXmlEmpty(self, {self.}Prefix, "evenAndOddHeaders"); + container_.Set({self.}XmlChildEvenAndOddHeaders); + end + return {self.}XmlChildEvenAndOddHeaders; + end + return ifnil({self.}XmlChildEvenAndOddHeaders) ? nil : {self.}XmlChildEvenAndOddHeaders.BoolValue(); +end; + +function Settings.WriteXmlChildEvenAndOddHeaders(_value); +begin + if ifnil({self.}XmlChildEvenAndOddHeaders) then + begin + {self.}XmlChildEvenAndOddHeaders := new OpenXmlEmpty(self, {self.}Prefix, "evenAndOddHeaders"); + container_.Set({self.}XmlChildEvenAndOddHeaders); + end + {self.}XmlChildEvenAndOddHeaders.Value := _value; +end; + +function Settings.ReadXmlChildDoNotIncludeSubdocsInStats(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) then + begin + {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlEmpty(self, {self.}Prefix, "doNotIncludeSubdocsInStats"); + container_.Set({self.}XmlChildDoNotIncludeSubdocsInStats); + end + return {self.}XmlChildDoNotIncludeSubdocsInStats; + end + return ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) ? nil : {self.}XmlChildDoNotIncludeSubdocsInStats.BoolValue(); +end; + +function Settings.WriteXmlChildDoNotIncludeSubdocsInStats(_value); +begin + if ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) then + begin + {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlEmpty(self, {self.}Prefix, "doNotIncludeSubdocsInStats"); + container_.Set({self.}XmlChildDoNotIncludeSubdocsInStats); + end + {self.}XmlChildDoNotIncludeSubdocsInStats.Value := _value; +end; + +function Settings.ReadXmlChildChartTrackingRefBased(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildChartTrackingRefBased) then + begin + {self.}XmlChildChartTrackingRefBased := new OpenXmlEmpty(self, "w15", "chartTrackingRefBased"); + container_.Set({self.}XmlChildChartTrackingRefBased); + end + return {self.}XmlChildChartTrackingRefBased; + end + return ifnil({self.}XmlChildChartTrackingRefBased) ? nil : {self.}XmlChildChartTrackingRefBased.BoolValue(); +end; + +function Settings.WriteXmlChildChartTrackingRefBased(_value); +begin + if ifnil({self.}XmlChildChartTrackingRefBased) then + begin + {self.}XmlChildChartTrackingRefBased := new OpenXmlEmpty(self, "w15", "chartTrackingRefBased"); + container_.Set({self.}XmlChildChartTrackingRefBased); + end + {self.}XmlChildChartTrackingRefBased.Value := _value; +end; + +function Settings.ReadXmlChildZoom(): Zoom; +begin + if tslassigning and ifnil({self.}XmlChildZoom) then + begin + {self.}XmlChildZoom := new Zoom(self, {self.}Prefix, "zoom"); + container_.Set({self.}XmlChildZoom); + end + return {self.}XmlChildZoom; +end; + +function Settings.ReadXmlChildDefaultTabStop(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildDefaultTabStop) then + begin + {self.}XmlChildDefaultTabStop := new PureWVal(self, {self.}Prefix, "defaultTabStop"); + container_.Set({self.}XmlChildDefaultTabStop); + end + return {self.}XmlChildDefaultTabStop; +end; + +function Settings.ReadXmlChildDrawingGridVerticalSpacing(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildDrawingGridVerticalSpacing) then + begin + {self.}XmlChildDrawingGridVerticalSpacing := new PureWVal(self, {self.}Prefix, "drawingGridVerticalSpacing"); + container_.Set({self.}XmlChildDrawingGridVerticalSpacing); + end + return {self.}XmlChildDrawingGridVerticalSpacing; +end; + +function Settings.ReadXmlChildDisplayHorizontalDrawingGridEvery(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildDisplayHorizontalDrawingGridEvery) then + begin + {self.}XmlChildDisplayHorizontalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "displayHorizontalDrawingGridEvery"); + container_.Set({self.}XmlChildDisplayHorizontalDrawingGridEvery); + end + return {self.}XmlChildDisplayHorizontalDrawingGridEvery; +end; + +function Settings.ReadXmlChildDisplayVerticalDrawingGridEvery(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildDisplayVerticalDrawingGridEvery) then + begin + {self.}XmlChildDisplayVerticalDrawingGridEvery := new PureWVal(self, {self.}Prefix, "DisplayVerticalDrawingGridEvery"); + container_.Set({self.}XmlChildDisplayVerticalDrawingGridEvery); + end + return {self.}XmlChildDisplayVerticalDrawingGridEvery; +end; + +function Settings.ReadXmlChildCharacterSpacingControl(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildCharacterSpacingControl) then + begin + {self.}XmlChildCharacterSpacingControl := new PureWVal(self, {self.}Prefix, "characterSpacingControl"); + container_.Set({self.}XmlChildCharacterSpacingControl); + end + return {self.}XmlChildCharacterSpacingControl; +end; + +function Settings.ReadXmlChildHdrShapeDefaults(): HdrShapeDefaults; +begin + if tslassigning and ifnil({self.}XmlChildHdrShapeDefaults) then + begin + {self.}XmlChildHdrShapeDefaults := new HdrShapeDefaults(self, {self.}Prefix, "hdrShapeDefaults"); + container_.Set({self.}XmlChildHdrShapeDefaults); + end + return {self.}XmlChildHdrShapeDefaults; +end; + +function Settings.ReadXmlChildFootnotePr(): FootnotePr; +begin + if tslassigning and ifnil({self.}XmlChildFootnotePr) then + begin + {self.}XmlChildFootnotePr := new FootnotePr(self, {self.}Prefix, "footnotePr"); + container_.Set({self.}XmlChildFootnotePr); + end + return {self.}XmlChildFootnotePr; +end; + +function Settings.ReadXmlChildEndnotePr(): EndnotePr; +begin + if tslassigning and ifnil({self.}XmlChildEndnotePr) then + begin + {self.}XmlChildEndnotePr := new EndnotePr(self, {self.}Prefix, "endnotePr"); + container_.Set({self.}XmlChildEndnotePr); + end + return {self.}XmlChildEndnotePr; +end; + +function Settings.ReadXmlChildCompat(): Compat; +begin + if tslassigning and ifnil({self.}XmlChildCompat) then + begin + {self.}XmlChildCompat := new Compat(self, {self.}Prefix, "Compat"); + container_.Set({self.}XmlChildCompat); + end + return {self.}XmlChildCompat; +end; + +function Settings.ReadXmlChildRsids(): Rsids; +begin + if tslassigning and ifnil({self.}XmlChildRsids) then + begin + {self.}XmlChildRsids := new Rsids(self, {self.}Prefix, "rsids"); + container_.Set({self.}XmlChildRsids); + end + return {self.}XmlChildRsids; +end; + +function Settings.ReadXmlChildMathPr(): MathPr; +begin + if tslassigning and ifnil({self.}XmlChildMathPr) then + begin + {self.}XmlChildMathPr := new SharedML.MathPr(self, "m", "mathPr"); + container_.Set({self.}XmlChildMathPr); + end + return {self.}XmlChildMathPr; +end; + +function Settings.ReadXmlChildThemeFontLang(): ThemeFontLang; +begin + if tslassigning and ifnil({self.}XmlChildThemeFontLang) then + begin + {self.}XmlChildThemeFontLang := new ThemeFontLang(self, {self.}Prefix, "themeFontLang"); + container_.Set({self.}XmlChildThemeFontLang); + end + return {self.}XmlChildThemeFontLang; +end; + +function Settings.ReadXmlChildClrSchemeMapping(): ClrSchemeMapping; +begin + if tslassigning and ifnil({self.}XmlChildClrSchemeMapping) then + begin + {self.}XmlChildClrSchemeMapping := new ClrSchemeMapping(self, {self.}Prefix, "clrSchemeMapping"); + container_.Set({self.}XmlChildClrSchemeMapping); + end + return {self.}XmlChildClrSchemeMapping; +end; + +function Settings.ReadXmlChildShapeDefaults(): ShapeDefaults2; +begin + if tslassigning and ifnil({self.}XmlChildShapeDefaults) then + begin + {self.}XmlChildShapeDefaults := new ShapeDefaults2(self, {self.}Prefix, "shapeDefaults"); + container_.Set({self.}XmlChildShapeDefaults); + end + return {self.}XmlChildShapeDefaults; +end; + +function Settings.ReadXmlChildDecimalSymbol(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildDecimalSymbol) then + begin + {self.}XmlChildDecimalSymbol := new PureWVal(self, {self.}Prefix, "decimalSymbol"); + container_.Set({self.}XmlChildDecimalSymbol); + end + return {self.}XmlChildDecimalSymbol; +end; + +function Settings.ReadXmlChildListSeparator(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildListSeparator) then + begin + {self.}XmlChildListSeparator := new PureWVal(self, {self.}Prefix, "listSeparator"); + container_.Set({self.}XmlChildListSeparator); + end + return {self.}XmlChildListSeparator; +end; + +function Settings.ReadXmlChildDocId(_ns: string): PureWVal; +begin + if _ns = "w14" then + return ReadXmlChildW14DocId(); + else if _ns = "w15" then + return ReadXmlChildW15DocId(); + if tslassigning and ifnil({self.}XmlChildDocId) then + begin + {self.}XmlChildDocId := new PureWVal(self, {self.}Prefix, "docId"); + container_.Set({self.}XmlChildDocId); + end + return {self.}XmlChildDocId; +end; + +function Settings.ReadXmlChildW14DocId(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildW14DocId) then + begin + {self.}XmlChildW14DocId := new PureWVal(self, "w14", "docId"); + container_.Set({self.}XmlChildW14DocId); + end + return {self.}XmlChildW14DocId; +end; + +function Settings.ReadXmlChildW15DocId(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildW15DocId) then + begin + {self.}XmlChildW15DocId := new PureWVal(self, "w15", "docId"); + container_.Set({self.}XmlChildW15DocId); + end + return {self.}XmlChildW15DocId; +end; + +function Zoom.Create();overload; +begin + {self.}Create(nil, "w", "zoom"); +end; + +function Zoom.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Zoom.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Zoom.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "percent": makeweakref(thisFunction(WriteXmlAttrPercent)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Zoom.Copy(_obj: Zoom);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Percent) then + {self.}Percent := _obj.Percent; + tslassigning := tslassigning_backup; +end; + +function Zoom.ReadXmlAttrPercent(); +begin + return {self.}XmlAttrPercent.Value; +end; + +function Zoom.WriteXmlAttrPercent(_value); +begin + if ifnil({self.}XmlAttrPercent) then + begin + {self.}XmlAttrPercent := new OpenXmlAttribute({self.}Prefix, "percent", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPercent; + end + {self.}XmlAttrPercent.Value := _value; +end; + +function HdrShapeDefaults.Create();overload; +begin + {self.}Create(nil, "w", "hdrShapeDefaults"); +end; + +function HdrShapeDefaults.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function HdrShapeDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function HdrShapeDefaults.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "o:shapeDefaults": array(0, makeweakref(thisFunction(ReadXmlChildShapeDefaults))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function HdrShapeDefaults.Copy(_obj: HdrShapeDefaults);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildShapeDefaults) then + {self.}ShapeDefaults.Copy(_obj.XmlChildShapeDefaults); + tslassigning := tslassigning_backup; +end; + +function HdrShapeDefaults.ReadXmlChildShapeDefaults(): ShapeDefaults; +begin + if tslassigning and ifnil({self.}XmlChildShapeDefaults) then + begin + {self.}XmlChildShapeDefaults := new ShapeDefaults(self, "o", "shapeDefaults"); + container_.Set({self.}XmlChildShapeDefaults); + end + return {self.}XmlChildShapeDefaults; +end; + +function ShapeDefaults.Create();overload; +begin + {self.}Create(nil, "o", "shapeDefaults"); +end; + +function ShapeDefaults.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ShapeDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ShapeDefaults.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), + "spidmax": makeweakref(thisFunction(WriteXmlAttrSpidmax)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ShapeDefaults.Copy(_obj: ShapeDefaults);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ext) then + {self.}Ext := _obj.Ext; + if not ifnil(_obj.Spidmax) then + {self.}Spidmax := _obj.Spidmax; + tslassigning := tslassigning_backup; +end; + +function ShapeDefaults.ReadXmlAttrExt(); +begin + return {self.}XmlAttrExt.Value; +end; + +function ShapeDefaults.WriteXmlAttrExt(_value); +begin + if ifnil({self.}XmlAttrExt) then + begin + {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); + attributes_[length(attributes_)] := {self.}XmlAttrExt; + end + {self.}XmlAttrExt.Value := _value; +end; + +function ShapeDefaults.ReadXmlAttrSpidmax(); +begin + return {self.}XmlAttrSpidmax.Value; +end; + +function ShapeDefaults.WriteXmlAttrSpidmax(_value); +begin + if ifnil({self.}XmlAttrSpidmax) then + begin + {self.}XmlAttrSpidmax := new OpenXmlAttribute("", "spidmax", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpidmax; + end + {self.}XmlAttrSpidmax.Value := _value; +end; + +function FootnotePr.Create();overload; +begin + {self.}Create(nil, "w", "footnotePr"); +end; + +function FootnotePr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FootnotePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FootnotePr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "pos": array(0, makeweakref(thisFunction(ReadXmlChildPos))), + pre + "numFmt": array(1, makeweakref(thisFunction(ReadXmlChildNumFmt))), + pre + "numStart": array(2, makeweakref(thisFunction(ReadXmlChildNumStart))), + pre + "footnote": array(3, makeweakref(thisFunction(AppendFootnote))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FootnotePr.Copy(_obj: FootnotePr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildPos) then + {self.}Pos.Copy(_obj.XmlChildPos); + if not ifnil(_obj.XmlChildNumFmt) then + {self.}NumFmt.Copy(_obj.XmlChildNumFmt); + if not ifnil(_obj.XmlChildNumStart) then + {self.}NumStart.Copy(_obj.XmlChildNumStart); + tslassigning := tslassigning_backup; +end; + +function FootnotePr.ReadXmlChildPos(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildPos) then + begin + {self.}XmlChildPos := new PureWVal(self, {self.}Prefix, "pos"); + container_.Set({self.}XmlChildPos); + end + return {self.}XmlChildPos; +end; + +function FootnotePr.ReadXmlChildNumFmt(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNumFmt) then + begin + {self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt"); + container_.Set({self.}XmlChildNumFmt); + end + return {self.}XmlChildNumFmt; +end; + +function FootnotePr.ReadXmlChildNumStart(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNumStart) then + begin + {self.}XmlChildNumStart := new PureWVal(self, {self.}Prefix, "numStart"); + container_.Set({self.}XmlChildNumStart); + end + return {self.}XmlChildNumStart; +end; + +function FootnotePr.ReadFootnotes(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "footnote", ind); +end; + +function FootnotePr.AddFootnote(): Footnote; +begin + obj := new Footnote(self, {self.}Prefix, "footnote"); + container_.Insert(obj); + return obj; +end; + +function FootnotePr.AppendFootnote(): Footnote; +begin + obj := new Footnote(self, {self.}Prefix, "footnote"); + container_.Append(obj); + return obj; +end; + +function EndnotePr.Create();overload; +begin + {self.}Create(nil, "w", "endnotePr"); +end; + +function EndnotePr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function EndnotePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function EndnotePr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "pos": array(0, makeweakref(thisFunction(ReadXmlChildPos))), + pre + "numFmt": array(1, makeweakref(thisFunction(ReadXmlChildNumFmt))), + pre + "numStart": array(2, makeweakref(thisFunction(ReadXmlChildNumStart))), + pre + "endnote": array(3, makeweakref(thisFunction(AppendEndnote))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function EndnotePr.Copy(_obj: EndnotePr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildPos) then + {self.}Pos.Copy(_obj.XmlChildPos); + if not ifnil(_obj.XmlChildNumFmt) then + {self.}NumFmt.Copy(_obj.XmlChildNumFmt); + if not ifnil(_obj.XmlChildNumStart) then + {self.}NumStart.Copy(_obj.XmlChildNumStart); + tslassigning := tslassigning_backup; +end; + +function EndnotePr.ReadXmlChildPos(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildPos) then + begin + {self.}XmlChildPos := new PureWVal(self, {self.}Prefix, "pos"); + container_.Set({self.}XmlChildPos); + end + return {self.}XmlChildPos; +end; + +function EndnotePr.ReadXmlChildNumFmt(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNumFmt) then + begin + {self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt"); + container_.Set({self.}XmlChildNumFmt); + end + return {self.}XmlChildNumFmt; +end; + +function EndnotePr.ReadXmlChildNumStart(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNumStart) then + begin + {self.}XmlChildNumStart := new PureWVal(self, {self.}Prefix, "numStart"); + container_.Set({self.}XmlChildNumStart); + end + return {self.}XmlChildNumStart; +end; + +function EndnotePr.ReadEndnotes(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "endnote", ind); +end; + +function EndnotePr.AddEndnote(): Endnote; +begin + obj := new Endnote(self, {self.}Prefix, "endnote"); + container_.Insert(obj); + return obj; +end; + +function EndnotePr.AppendEndnote(): Endnote; +begin + obj := new Endnote(self, {self.}Prefix, "endnote"); + container_.Append(obj); + return obj; +end; + +function Compat.Create();overload; +begin + {self.}Create(nil, "w", "compat"); +end; + +function Compat.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Compat.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Compat.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "spaceForUL": array(0, makeweakref(thisFunction(ReadXmlChildSpaceForUL))), + pre + "balanceSingleByteDoubleByteWidth": array(1, makeweakref(thisFunction(ReadXmlChildBalanceSingleByteDoubleByteWidth))), + pre + "doNotLeaveBackslashAlone": array(2, makeweakref(thisFunction(ReadXmlChildDoNotLeaveBackslashAlone))), + pre + "ulTrailSpace": array(3, makeweakref(thisFunction(ReadXmlChildUlTrailSpace))), + pre + "doNotExpandShiftReturn": array(4, makeweakref(thisFunction(ReadXmlChildDoNotExpandShiftReturn))), + pre + "adjustLineHeightInTable": array(5, makeweakref(thisFunction(ReadXmlChildAdjustLineHeightInTable))), + pre + "useFELayout": array(6, makeweakref(thisFunction(ReadXmlChildUseFELayout))), + pre + "compatSetting": array(7, makeweakref(thisFunction(AppendCompatSetting))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Compat.Copy(_obj: Compat);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSpaceForUL) then + ifnil({self.}XmlChildSpaceForUL) ? {self.}SpaceForUL.Copy(_obj.XmlChildSpaceForUL) : {self.}XmlChildSpaceForUL.Copy(_obj.XmlChildSpaceForUL); + if not ifnil(_obj.XmlChildBalanceSingleByteDoubleByteWidth) then + ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) ? {self.}BalanceSingleByteDoubleByteWidth.Copy(_obj.XmlChildBalanceSingleByteDoubleByteWidth) : {self.}XmlChildBalanceSingleByteDoubleByteWidth.Copy(_obj.XmlChildBalanceSingleByteDoubleByteWidth); + if not ifnil(_obj.XmlChildDoNotLeaveBackslashAlone) then + ifnil({self.}XmlChildDoNotLeaveBackslashAlone) ? {self.}DoNotLeaveBackslashAlone.Copy(_obj.XmlChildDoNotLeaveBackslashAlone) : {self.}XmlChildDoNotLeaveBackslashAlone.Copy(_obj.XmlChildDoNotLeaveBackslashAlone); + if not ifnil(_obj.XmlChildUlTrailSpace) then + ifnil({self.}XmlChildUlTrailSpace) ? {self.}UlTrailSpace.Copy(_obj.XmlChildUlTrailSpace) : {self.}XmlChildUlTrailSpace.Copy(_obj.XmlChildUlTrailSpace); + if not ifnil(_obj.XmlChildDoNotExpandShiftReturn) then + ifnil({self.}XmlChildDoNotExpandShiftReturn) ? {self.}DoNotExpandShiftReturn.Copy(_obj.XmlChildDoNotExpandShiftReturn) : {self.}XmlChildDoNotExpandShiftReturn.Copy(_obj.XmlChildDoNotExpandShiftReturn); + if not ifnil(_obj.XmlChildAdjustLineHeightInTable) then + ifnil({self.}XmlChildAdjustLineHeightInTable) ? {self.}AdjustLineHeightInTable.Copy(_obj.XmlChildAdjustLineHeightInTable) : {self.}XmlChildAdjustLineHeightInTable.Copy(_obj.XmlChildAdjustLineHeightInTable); + if not ifnil(_obj.XmlChildUseFELayout) then + ifnil({self.}XmlChildUseFELayout) ? {self.}UseFELayout.Copy(_obj.XmlChildUseFELayout) : {self.}XmlChildUseFELayout.Copy(_obj.XmlChildUseFELayout); + tslassigning := tslassigning_backup; +end; + +function Compat.ReadXmlChildSpaceForUL(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildSpaceForUL) then + begin + {self.}XmlChildSpaceForUL := new OpenXmlEmpty(self, {self.}Prefix, "spaceForUL"); + container_.Set({self.}XmlChildSpaceForUL); + end + return {self.}XmlChildSpaceForUL; + end + return ifnil({self.}XmlChildSpaceForUL) ? nil : {self.}XmlChildSpaceForUL.BoolValue(); +end; + +function Compat.WriteXmlChildSpaceForUL(_value); +begin + if ifnil({self.}XmlChildSpaceForUL) then + begin + {self.}XmlChildSpaceForUL := new OpenXmlEmpty(self, {self.}Prefix, "spaceForUL"); + container_.Set({self.}XmlChildSpaceForUL); + end + {self.}XmlChildSpaceForUL.Value := _value; +end; + +function Compat.ReadXmlChildBalanceSingleByteDoubleByteWidth(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) then + begin + {self.}XmlChildBalanceSingleByteDoubleByteWidth := new OpenXmlEmpty(self, {self.}Prefix, "balanceSingleByteDoubleByteWidth"); + container_.Set({self.}XmlChildBalanceSingleByteDoubleByteWidth); + end + return {self.}XmlChildBalanceSingleByteDoubleByteWidth; + end + return ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) ? nil : {self.}XmlChildBalanceSingleByteDoubleByteWidth.BoolValue(); +end; + +function Compat.WriteXmlChildBalanceSingleByteDoubleByteWidth(_value); +begin + if ifnil({self.}XmlChildBalanceSingleByteDoubleByteWidth) then + begin + {self.}XmlChildBalanceSingleByteDoubleByteWidth := new OpenXmlEmpty(self, {self.}Prefix, "balanceSingleByteDoubleByteWidth"); + container_.Set({self.}XmlChildBalanceSingleByteDoubleByteWidth); + end + {self.}XmlChildBalanceSingleByteDoubleByteWidth.Value := _value; +end; + +function Compat.ReadXmlChildDoNotLeaveBackslashAlone(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildDoNotLeaveBackslashAlone) then + begin + {self.}XmlChildDoNotLeaveBackslashAlone := new OpenXmlEmpty(self, {self.}Prefix, "doNotLeaveBackslashAlone"); + container_.Set({self.}XmlChildDoNotLeaveBackslashAlone); + end + return {self.}XmlChildDoNotLeaveBackslashAlone; + end + return ifnil({self.}XmlChildDoNotLeaveBackslashAlone) ? nil : {self.}XmlChildDoNotLeaveBackslashAlone.BoolValue(); +end; + +function Compat.WriteXmlChildDoNotLeaveBackslashAlone(_value); +begin + if ifnil({self.}XmlChildDoNotLeaveBackslashAlone) then + begin + {self.}XmlChildDoNotLeaveBackslashAlone := new OpenXmlEmpty(self, {self.}Prefix, "doNotLeaveBackslashAlone"); + container_.Set({self.}XmlChildDoNotLeaveBackslashAlone); + end + {self.}XmlChildDoNotLeaveBackslashAlone.Value := _value; +end; + +function Compat.ReadXmlChildUlTrailSpace(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildUlTrailSpace) then + begin + {self.}XmlChildUlTrailSpace := new OpenXmlEmpty(self, {self.}Prefix, "ulTrailSpace"); + container_.Set({self.}XmlChildUlTrailSpace); + end + return {self.}XmlChildUlTrailSpace; + end + return ifnil({self.}XmlChildUlTrailSpace) ? nil : {self.}XmlChildUlTrailSpace.BoolValue(); +end; + +function Compat.WriteXmlChildUlTrailSpace(_value); +begin + if ifnil({self.}XmlChildUlTrailSpace) then + begin + {self.}XmlChildUlTrailSpace := new OpenXmlEmpty(self, {self.}Prefix, "ulTrailSpace"); + container_.Set({self.}XmlChildUlTrailSpace); + end + {self.}XmlChildUlTrailSpace.Value := _value; +end; + +function Compat.ReadXmlChildDoNotExpandShiftReturn(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildDoNotExpandShiftReturn) then + begin + {self.}XmlChildDoNotExpandShiftReturn := new OpenXmlEmpty(self, {self.}Prefix, "doNotExpandShiftReturn"); + container_.Set({self.}XmlChildDoNotExpandShiftReturn); + end + return {self.}XmlChildDoNotExpandShiftReturn; + end + return ifnil({self.}XmlChildDoNotExpandShiftReturn) ? nil : {self.}XmlChildDoNotExpandShiftReturn.BoolValue(); +end; + +function Compat.WriteXmlChildDoNotExpandShiftReturn(_value); +begin + if ifnil({self.}XmlChildDoNotExpandShiftReturn) then + begin + {self.}XmlChildDoNotExpandShiftReturn := new OpenXmlEmpty(self, {self.}Prefix, "doNotExpandShiftReturn"); + container_.Set({self.}XmlChildDoNotExpandShiftReturn); + end + {self.}XmlChildDoNotExpandShiftReturn.Value := _value; +end; + +function Compat.ReadXmlChildAdjustLineHeightInTable(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildAdjustLineHeightInTable) then + begin + {self.}XmlChildAdjustLineHeightInTable := new OpenXmlEmpty(self, {self.}Prefix, "adjustLineHeightInTable"); + container_.Set({self.}XmlChildAdjustLineHeightInTable); + end + return {self.}XmlChildAdjustLineHeightInTable; + end + return ifnil({self.}XmlChildAdjustLineHeightInTable) ? nil : {self.}XmlChildAdjustLineHeightInTable.BoolValue(); +end; + +function Compat.WriteXmlChildAdjustLineHeightInTable(_value); +begin + if ifnil({self.}XmlChildAdjustLineHeightInTable) then + begin + {self.}XmlChildAdjustLineHeightInTable := new OpenXmlEmpty(self, {self.}Prefix, "adjustLineHeightInTable"); + container_.Set({self.}XmlChildAdjustLineHeightInTable); + end + {self.}XmlChildAdjustLineHeightInTable.Value := _value; +end; + +function Compat.ReadXmlChildUseFELayout(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildUseFELayout) then + begin + {self.}XmlChildUseFELayout := new OpenXmlEmpty(self, {self.}Prefix, "useFELayout"); + container_.Set({self.}XmlChildUseFELayout); + end + return {self.}XmlChildUseFELayout; + end + return ifnil({self.}XmlChildUseFELayout) ? nil : {self.}XmlChildUseFELayout.BoolValue(); +end; + +function Compat.WriteXmlChildUseFELayout(_value); +begin + if ifnil({self.}XmlChildUseFELayout) then + begin + {self.}XmlChildUseFELayout := new OpenXmlEmpty(self, {self.}Prefix, "useFELayout"); + container_.Set({self.}XmlChildUseFELayout); + end + {self.}XmlChildUseFELayout.Value := _value; +end; + +function Compat.ReadXmlChildCompatSetting(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildCompatSetting) then + begin + {self.}XmlChildCompatSetting := new OpenXmlEmpty(self, {self.}Prefix, "compatSetting"); + container_.Set({self.}XmlChildCompatSetting); + end + return {self.}XmlChildCompatSetting; + end + return ifnil({self.}XmlChildCompatSetting) ? nil : {self.}XmlChildCompatSetting.BoolValue(); +end; + +function Compat.WriteXmlChildCompatSetting(_value); +begin + if ifnil({self.}XmlChildCompatSetting) then + begin + {self.}XmlChildCompatSetting := new OpenXmlEmpty(self, {self.}Prefix, "compatSetting"); + container_.Set({self.}XmlChildCompatSetting); + end + {self.}XmlChildCompatSetting.Value := _value; +end; + +function Compat.ReadCompatSettings(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "compatSetting", ind); +end; + +function Compat.AddCompatSetting(): CompatSetting; +begin + obj := new CompatSetting(self, {self.}Prefix, "compatSetting"); + container_.Insert(obj); + return obj; +end; + +function Compat.AppendCompatSetting(): CompatSetting; +begin + obj := new CompatSetting(self, {self.}Prefix, "compatSetting"); + container_.Append(obj); + return obj; +end; + +function CompatSetting.Create();overload; +begin + {self.}Create(nil, "w", "compatSetting"); +end; + +function CompatSetting.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CompatSetting.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CompatSetting.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), + pre + "uri": makeweakref(thisFunction(WriteXmlAttrUri)), + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CompatSetting.Copy(_obj: CompatSetting);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.Uri) then + {self.}Uri := _obj.Uri; + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + tslassigning := tslassigning_backup; +end; + +function CompatSetting.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function CompatSetting.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function CompatSetting.ReadXmlAttrUri(); +begin + return {self.}XmlAttrUri.Value; +end; + +function CompatSetting.WriteXmlAttrUri(_value); +begin + if ifnil({self.}XmlAttrUri) then + begin + {self.}XmlAttrUri := new OpenXmlAttribute({self.}Prefix, "uri", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUri; + end + {self.}XmlAttrUri.Value := _value; +end; + +function CompatSetting.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function CompatSetting.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function Rsids.Create();overload; +begin + {self.}Create(nil, "w", "rsids"); +end; + +function Rsids.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Rsids.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Rsids.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rsidRoot": array(0, makeweakref(thisFunction(ReadXmlChildRsidRoot))), + pre + "rsid": array(1, makeweakref(thisFunction(AppendRsid))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Rsids.Copy(_obj: Rsids);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRsidRoot) then + {self.}RsidRoot.Copy(_obj.XmlChildRsidRoot); + tslassigning := tslassigning_backup; +end; + +function Rsids.ReadXmlChildRsidRoot(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildRsidRoot) then + begin + {self.}XmlChildRsidRoot := new PureWVal(self, {self.}Prefix, "rsidRoot"); + container_.Set({self.}XmlChildRsidRoot); + end + return {self.}XmlChildRsidRoot; +end; + +function Rsids.ReadRsids(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "rsid", ind); +end; + +function Rsids.AddRsid(): PureWVal; +begin + obj := new PureWVal(self, {self.}Prefix, "rsid"); + container_.Insert(obj); + return obj; +end; + +function Rsids.AppendRsid(): PureWVal; +begin + obj := new PureWVal(self, {self.}Prefix, "rsid"); + container_.Append(obj); + return obj; +end; + +function ThemeFontLang.Create();overload; +begin + {self.}Create(nil, "w", "themeFontLang"); +end; + +function ThemeFontLang.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ThemeFontLang.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ThemeFontLang.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + pre + "eastAsia": makeweakref(thisFunction(WriteXmlAttrEastAsia)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ThemeFontLang.Copy(_obj: ThemeFontLang);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.EastAsia) then + {self.}EastAsia := _obj.EastAsia; + tslassigning := tslassigning_backup; +end; + +function ThemeFontLang.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function ThemeFontLang.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function ThemeFontLang.ReadXmlAttrEastAsia(); +begin + return {self.}XmlAttrEastAsia.Value; +end; + +function ThemeFontLang.WriteXmlAttrEastAsia(_value); +begin + if ifnil({self.}XmlAttrEastAsia) then + begin + {self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEastAsia; + end + {self.}XmlAttrEastAsia.Value := _value; +end; + +function ClrSchemeMapping.Create();overload; +begin + {self.}Create(nil, "w", "clrSchemeMapping"); +end; + +function ClrSchemeMapping.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ClrSchemeMapping.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ClrSchemeMapping.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "bg1": makeweakref(thisFunction(WriteXmlAttrBg1)), + pre + "t1": makeweakref(thisFunction(WriteXmlAttrT1)), + pre + "bg2": makeweakref(thisFunction(WriteXmlAttrBg2)), + pre + "t2": makeweakref(thisFunction(WriteXmlAttrT2)), + pre + "accent1": makeweakref(thisFunction(WriteXmlAttrAccent1)), + pre + "accent2": makeweakref(thisFunction(WriteXmlAttrAccent2)), + pre + "accent3": makeweakref(thisFunction(WriteXmlAttrAccent3)), + pre + "accent4": makeweakref(thisFunction(WriteXmlAttrAccent4)), + pre + "accent5": makeweakref(thisFunction(WriteXmlAttrAccent5)), + pre + "accent6": makeweakref(thisFunction(WriteXmlAttrAccent6)), + pre + "hyperlink": makeweakref(thisFunction(WriteXmlAttrHyperLink)), + pre + "followedHyperlink": makeweakref(thisFunction(WriteXmlAttrFollowedHyperlink)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ClrSchemeMapping.Copy(_obj: ClrSchemeMapping);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Bg1) then + {self.}Bg1 := _obj.Bg1; + if not ifnil(_obj.T1) then + {self.}T1 := _obj.T1; + if not ifnil(_obj.Bg2) then + {self.}Bg2 := _obj.Bg2; + if not ifnil(_obj.T2) then + {self.}T2 := _obj.T2; + if not ifnil(_obj.Accent1) then + {self.}Accent1 := _obj.Accent1; + if not ifnil(_obj.Accent2) then + {self.}Accent2 := _obj.Accent2; + if not ifnil(_obj.Accent3) then + {self.}Accent3 := _obj.Accent3; + if not ifnil(_obj.Accent4) then + {self.}Accent4 := _obj.Accent4; + if not ifnil(_obj.Accent5) then + {self.}Accent5 := _obj.Accent5; + if not ifnil(_obj.Accent6) then + {self.}Accent6 := _obj.Accent6; + if not ifnil(_obj.HyperLink) then + {self.}HyperLink := _obj.HyperLink; + if not ifnil(_obj.FollowedHyperlink) then + {self.}FollowedHyperlink := _obj.FollowedHyperlink; + tslassigning := tslassigning_backup; +end; + +function ClrSchemeMapping.ReadXmlAttrBg1(); +begin + return {self.}XmlAttrBg1.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrBg1(_value); +begin + if ifnil({self.}XmlAttrBg1) then + begin + {self.}XmlAttrBg1 := new OpenXmlAttribute({self.}Prefix, "bg1", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBg1; + end + {self.}XmlAttrBg1.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrT1(); +begin + return {self.}XmlAttrT1.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrT1(_value); +begin + if ifnil({self.}XmlAttrT1) then + begin + {self.}XmlAttrT1 := new OpenXmlAttribute({self.}Prefix, "t1", nil); + attributes_[length(attributes_)] := {self.}XmlAttrT1; + end + {self.}XmlAttrT1.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrBg2(); +begin + return {self.}XmlAttrBg2.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrBg2(_value); +begin + if ifnil({self.}XmlAttrBg2) then + begin + {self.}XmlAttrBg2 := new OpenXmlAttribute({self.}Prefix, "bg2", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBg2; + end + {self.}XmlAttrBg2.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrT2(); +begin + return {self.}XmlAttrT2.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrT2(_value); +begin + if ifnil({self.}XmlAttrT2) then + begin + {self.}XmlAttrT2 := new OpenXmlAttribute({self.}Prefix, "t2", nil); + attributes_[length(attributes_)] := {self.}XmlAttrT2; + end + {self.}XmlAttrT2.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent1(); +begin + return {self.}XmlAttrAccent1.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent1(_value); +begin + if ifnil({self.}XmlAttrAccent1) then + begin + {self.}XmlAttrAccent1 := new OpenXmlAttribute({self.}Prefix, "accent1", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAccent1; + end + {self.}XmlAttrAccent1.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent2(); +begin + return {self.}XmlAttrAccent2.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent2(_value); +begin + if ifnil({self.}XmlAttrAccent2) then + begin + {self.}XmlAttrAccent2 := new OpenXmlAttribute({self.}Prefix, "accent2", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAccent2; + end + {self.}XmlAttrAccent2.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent3(); +begin + return {self.}XmlAttrAccent3.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent3(_value); +begin + if ifnil({self.}XmlAttrAccent3) then + begin + {self.}XmlAttrAccent3 := new OpenXmlAttribute({self.}Prefix, "accent3", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAccent3; + end + {self.}XmlAttrAccent3.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent4(); +begin + return {self.}XmlAttrAccent4.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent4(_value); +begin + if ifnil({self.}XmlAttrAccent4) then + begin + {self.}XmlAttrAccent4 := new OpenXmlAttribute({self.}Prefix, "accent4", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAccent4; + end + {self.}XmlAttrAccent4.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent5(); +begin + return {self.}XmlAttrAccent5.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent5(_value); +begin + if ifnil({self.}XmlAttrAccent5) then + begin + {self.}XmlAttrAccent5 := new OpenXmlAttribute({self.}Prefix, "accent5", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAccent5; + end + {self.}XmlAttrAccent5.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrAccent6(); +begin + return {self.}XmlAttrAccent6.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrAccent6(_value); +begin + if ifnil({self.}XmlAttrAccent6) then + begin + {self.}XmlAttrAccent6 := new OpenXmlAttribute({self.}Prefix, "accent6", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAccent6; + end + {self.}XmlAttrAccent6.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrHyperLink(); +begin + return {self.}XmlAttrHyperLink.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrHyperLink(_value); +begin + if ifnil({self.}XmlAttrHyperLink) then + begin + {self.}XmlAttrHyperLink := new OpenXmlAttribute({self.}Prefix, "hyperlink", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHyperLink; + end + {self.}XmlAttrHyperLink.Value := _value; +end; + +function ClrSchemeMapping.ReadXmlAttrFollowedHyperlink(); +begin + return {self.}XmlAttrFollowedHyperlink.Value; +end; + +function ClrSchemeMapping.WriteXmlAttrFollowedHyperlink(_value); +begin + if ifnil({self.}XmlAttrFollowedHyperlink) then + begin + {self.}XmlAttrFollowedHyperlink := new OpenXmlAttribute({self.}Prefix, "followedHyperlink", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFollowedHyperlink; + end + {self.}XmlAttrFollowedHyperlink.Value := _value; +end; + +function ShapeDefaults2.Create();overload; +begin + {self.}Create(nil, "w", "shapeDefaults"); +end; + +function ShapeDefaults2.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ShapeDefaults2.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ShapeDefaults2.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "o:shapeDefaults": array(0, makeweakref(thisFunction(ReadXmlChildShapeDefaults))), + "o:shapelayout": array(1, makeweakref(thisFunction(ReadXmlChildShapeLayout))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ShapeDefaults2.Copy(_obj: ShapeDefaults2);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildShapeDefaults) then + {self.}ShapeDefaults.Copy(_obj.XmlChildShapeDefaults); + if not ifnil(_obj.XmlChildShapeLayout) then + {self.}ShapeLayout.Copy(_obj.XmlChildShapeLayout); + tslassigning := tslassigning_backup; +end; + +function ShapeDefaults2.ReadXmlChildShapeDefaults(): ShapeDefaults; +begin + if tslassigning and ifnil({self.}XmlChildShapeDefaults) then + begin + {self.}XmlChildShapeDefaults := new ShapeDefaults(self, "o", "shapeDefaults"); + container_.Set({self.}XmlChildShapeDefaults); + end + return {self.}XmlChildShapeDefaults; +end; + +function ShapeDefaults2.ReadXmlChildShapeLayout(): ShapeLayout; +begin + if tslassigning and ifnil({self.}XmlChildShapeLayout) then + begin + {self.}XmlChildShapeLayout := new ShapeLayout(self, "o", "shapelayout"); + container_.Set({self.}XmlChildShapeLayout); + end + return {self.}XmlChildShapeLayout; +end; + +function ShapeLayout.Create();overload; +begin + {self.}Create(nil, "o", "shapelayout"); +end; + +function ShapeLayout.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ShapeLayout.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ShapeLayout.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), + ); + sorted_child_ := array( + pre + "idmap": array(0, makeweakref(thisFunction(ReadXmlChildIdMap))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ShapeLayout.Copy(_obj: ShapeLayout);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ext) then + {self.}Ext := _obj.Ext; + if not ifnil(_obj.XmlChildIdMap) then + {self.}IdMap.Copy(_obj.XmlChildIdMap); + tslassigning := tslassigning_backup; +end; + +function ShapeLayout.ReadXmlAttrExt(); +begin + return {self.}XmlAttrExt.Value; +end; + +function ShapeLayout.WriteXmlAttrExt(_value); +begin + if ifnil({self.}XmlAttrExt) then + begin + {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); + attributes_[length(attributes_)] := {self.}XmlAttrExt; + end + {self.}XmlAttrExt.Value := _value; +end; + +function ShapeLayout.ReadXmlChildIdMap(): IdMap; +begin + if tslassigning and ifnil({self.}XmlChildIdMap) then + begin + {self.}XmlChildIdMap := new IdMap(self, {self.}Prefix, "idmap"); + container_.Set({self.}XmlChildIdMap); + end + return {self.}XmlChildIdMap; +end; + +function IdMap.Create();overload; +begin + {self.}Create(nil, "o", "idmap"); +end; + +function IdMap.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function IdMap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function IdMap.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), + "data": makeweakref(thisFunction(WriteXmlAttrData)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function IdMap.Copy(_obj: IdMap);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ext) then + {self.}Ext := _obj.Ext; + if not ifnil(_obj.Data) then + {self.}Data := _obj.Data; + tslassigning := tslassigning_backup; +end; + +function IdMap.ReadXmlAttrExt(); +begin + return {self.}XmlAttrExt.Value; +end; + +function IdMap.WriteXmlAttrExt(_value); +begin + if ifnil({self.}XmlAttrExt) then + begin + {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); + attributes_[length(attributes_)] := {self.}XmlAttrExt; + end + {self.}XmlAttrExt.Value := _value; +end; + +function IdMap.ReadXmlAttrData(); +begin + return {self.}XmlAttrData.Value; +end; + +function IdMap.WriteXmlAttrData(_value); +begin + if ifnil({self.}XmlAttrData) then + begin + {self.}XmlAttrData := new OpenXmlAttribute("", "data", nil); + attributes_[length(attributes_)] := {self.}XmlAttrData; + end + {self.}XmlAttrData.Value := _value; +end; + +function Styles.Create();overload; +begin + {self.}Create(nil, "w", "styles"); +end; + +function Styles.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Styles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Styles.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), + ); + sorted_child_ := array( + pre + "docDefaults": array(0, makeweakref(thisFunction(ReadXmlChildDocDefaults))), + pre + "latenStyles": array(1, makeweakref(thisFunction(ReadXmlChildLatenStyles))), + pre + "style": array(2, makeweakref(thisFunction(AppendStyle))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Styles.Copy(_obj: Styles);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.McIgnorable) then + {self.}McIgnorable := _obj.McIgnorable; + if not ifnil(_obj.XmlChildDocDefaults) then + {self.}DocDefaults.Copy(_obj.XmlChildDocDefaults); + if not ifnil(_obj.XmlChildLatenStyles) then + {self.}LatenStyles.Copy(_obj.XmlChildLatenStyles); + tslassigning := tslassigning_backup; +end; + +function Styles.ReadXmlAttrMcIgnorable(); +begin + return {self.}XmlAttrMcIgnorable.Value; +end; + +function Styles.WriteXmlAttrMcIgnorable(_value); +begin + if ifnil({self.}XmlAttrMcIgnorable) then + begin + {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; + end + {self.}XmlAttrMcIgnorable.Value := _value; +end; + +function Styles.ReadXmlChildDocDefaults(): DocDefaults; +begin + if tslassigning and ifnil({self.}XmlChildDocDefaults) then + begin + {self.}XmlChildDocDefaults := new DocDefaults(self, {self.}Prefix, "docDefaults"); + container_.Set({self.}XmlChildDocDefaults); + end + return {self.}XmlChildDocDefaults; +end; + +function Styles.ReadXmlChildLatenStyles(): LatenStyles; +begin + if tslassigning and ifnil({self.}XmlChildLatenStyles) then + begin + {self.}XmlChildLatenStyles := new LatenStyles(self, {self.}Prefix, "latenStyles"); + container_.Set({self.}XmlChildLatenStyles); + end + return {self.}XmlChildLatenStyles; +end; + +function Styles.ReadStyles(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "style", ind); +end; + +function Styles.AddStyle(): Style; +begin + obj := new Style(self, {self.}Prefix, "style"); + container_.Insert(obj); + return obj; +end; + +function Styles.AppendStyle(): Style; +begin + obj := new Style(self, {self.}Prefix, "style"); + container_.Append(obj); + return obj; +end; + +function DocDefaults.Create();overload; +begin + {self.}Create(nil, "w", "docDefaults"); +end; + +function DocDefaults.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function DocDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function DocDefaults.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rPrDefault": array(0, makeweakref(thisFunction(ReadXmlChildRPrDefault))), + pre + "pPrDefault": array(1, makeweakref(thisFunction(ReadXmlChildPPrDefault))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function DocDefaults.Copy(_obj: DocDefaults);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRPrDefault) then + {self.}RPrDefault.Copy(_obj.XmlChildRPrDefault); + if not ifnil(_obj.XmlChildPPrDefault) then + {self.}PPrDefault.Copy(_obj.XmlChildPPrDefault); + tslassigning := tslassigning_backup; +end; + +function DocDefaults.ReadXmlChildRPrDefault(): RPrDefault; +begin + if tslassigning and ifnil({self.}XmlChildRPrDefault) then + begin + {self.}XmlChildRPrDefault := new RPrDefault(self, {self.}Prefix, "rPrDefault"); + container_.Set({self.}XmlChildRPrDefault); + end + return {self.}XmlChildRPrDefault; +end; + +function DocDefaults.ReadXmlChildPPrDefault(): PPrDefault; +begin + if tslassigning and ifnil({self.}XmlChildPPrDefault) then + begin + {self.}XmlChildPPrDefault := new PPrDefault(self, {self.}Prefix, "pPrDefault"); + container_.Set({self.}XmlChildPPrDefault); + end + return {self.}XmlChildPPrDefault; +end; + +function RPrDefault.Create();overload; +begin + {self.}Create(nil, "w", "rPrDefault"); +end; + +function RPrDefault.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function RPrDefault.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function RPrDefault.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function RPrDefault.Copy(_obj: RPrDefault);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function RPrDefault.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function PPrDefault.Create();overload; +begin + {self.}Create(nil, "w", "pPrDefault"); +end; + +function PPrDefault.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PPrDefault.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PPrDefault.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PPrDefault.Copy(_obj: PPrDefault);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildPPr) then + {self.}PPr.Copy(_obj.XmlChildPPr); + tslassigning := tslassigning_backup; +end; + +function PPrDefault.ReadXmlChildPPr(): PPr; +begin + if tslassigning and ifnil({self.}XmlChildPPr) then + begin + {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); + container_.Set({self.}XmlChildPPr); + end + return {self.}XmlChildPPr; +end; + +function LatenStyles.Create();overload; +begin + {self.}Create(nil, "w", "latenStyles"); +end; + +function LatenStyles.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function LatenStyles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function LatenStyles.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "defLickedState": makeweakref(thisFunction(WriteXmlAttrDefLickedState)), + pre + "defUIPriority": makeweakref(thisFunction(WriteXmlAttrDefUIPriority)), + pre + "defSemiHidden": makeweakref(thisFunction(WriteXmlAttrDefSemiHidden)), + pre + "defUnhideWhenUsed": makeweakref(thisFunction(WriteXmlAttrDefUnhideWhenUsed)), + pre + "defQFormat": makeweakref(thisFunction(WriteXmlAttrDefQFormat)), + pre + "count": makeweakref(thisFunction(WriteXmlAttrCount)), + ); + sorted_child_ := array( + pre + "lsdException": array(0, makeweakref(thisFunction(AppendLsdException))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function LatenStyles.Copy(_obj: LatenStyles);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.DefLickedState) then + {self.}DefLickedState := _obj.DefLickedState; + if not ifnil(_obj.DefUIPriority) then + {self.}DefUIPriority := _obj.DefUIPriority; + if not ifnil(_obj.DefSemiHidden) then + {self.}DefSemiHidden := _obj.DefSemiHidden; + if not ifnil(_obj.DefUnhideWhenUsed) then + {self.}DefUnhideWhenUsed := _obj.DefUnhideWhenUsed; + if not ifnil(_obj.DefQFormat) then + {self.}DefQFormat := _obj.DefQFormat; + if not ifnil(_obj.Count) then + {self.}Count := _obj.Count; + tslassigning := tslassigning_backup; +end; + +function LatenStyles.ReadXmlAttrDefLickedState(); +begin + return {self.}XmlAttrDefLickedState.Value; +end; + +function LatenStyles.WriteXmlAttrDefLickedState(_value); +begin + if ifnil({self.}XmlAttrDefLickedState) then + begin + {self.}XmlAttrDefLickedState := new OpenXmlAttribute({self.}Prefix, "defLickedState", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefLickedState; + end + {self.}XmlAttrDefLickedState.Value := _value; +end; + +function LatenStyles.ReadXmlAttrDefUIPriority(); +begin + return {self.}XmlAttrDefUIPriority.Value; +end; + +function LatenStyles.WriteXmlAttrDefUIPriority(_value); +begin + if ifnil({self.}XmlAttrDefUIPriority) then + begin + {self.}XmlAttrDefUIPriority := new OpenXmlAttribute({self.}Prefix, "defUIPriority", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefUIPriority; + end + {self.}XmlAttrDefUIPriority.Value := _value; +end; + +function LatenStyles.ReadXmlAttrDefSemiHidden(); +begin + return {self.}XmlAttrDefSemiHidden.Value; +end; + +function LatenStyles.WriteXmlAttrDefSemiHidden(_value); +begin + if ifnil({self.}XmlAttrDefSemiHidden) then + begin + {self.}XmlAttrDefSemiHidden := new OpenXmlAttribute({self.}Prefix, "defSemiHidden", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefSemiHidden; + end + {self.}XmlAttrDefSemiHidden.Value := _value; +end; + +function LatenStyles.ReadXmlAttrDefUnhideWhenUsed(); +begin + return {self.}XmlAttrDefUnhideWhenUsed.Value; +end; + +function LatenStyles.WriteXmlAttrDefUnhideWhenUsed(_value); +begin + if ifnil({self.}XmlAttrDefUnhideWhenUsed) then + begin + {self.}XmlAttrDefUnhideWhenUsed := new OpenXmlAttribute({self.}Prefix, "defUnhideWhenUsed", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefUnhideWhenUsed; + end + {self.}XmlAttrDefUnhideWhenUsed.Value := _value; +end; + +function LatenStyles.ReadXmlAttrDefQFormat(); +begin + return {self.}XmlAttrDefQFormat.Value; +end; + +function LatenStyles.WriteXmlAttrDefQFormat(_value); +begin + if ifnil({self.}XmlAttrDefQFormat) then + begin + {self.}XmlAttrDefQFormat := new OpenXmlAttribute({self.}Prefix, "defQFormat", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefQFormat; + end + {self.}XmlAttrDefQFormat.Value := _value; +end; + +function LatenStyles.ReadXmlAttrCount(); +begin + return {self.}XmlAttrCount.Value; +end; + +function LatenStyles.WriteXmlAttrCount(_value); +begin + if ifnil({self.}XmlAttrCount) then + begin + {self.}XmlAttrCount := new OpenXmlAttribute({self.}Prefix, "count", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCount; + end + {self.}XmlAttrCount.Value := _value; +end; + +function LatenStyles.ReadLsdExceptions(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "lsdException", ind); +end; + +function LatenStyles.AddLsdException(): LsdException; +begin + obj := new LsdException(self, {self.}Prefix, "lsdException"); + container_.Insert(obj); + return obj; +end; + +function LatenStyles.AppendLsdException(): LsdException; +begin + obj := new LsdException(self, {self.}Prefix, "lsdException"); + container_.Append(obj); + return obj; +end; + +function LsdException.Create();overload; +begin + {self.}Create(nil, "w", "lsdException"); +end; + +function LsdException.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function LsdException.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function LsdException.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "name": makeweakref(thisFunction(WriteXmlAttrName)), + pre + "uiPriority": makeweakref(thisFunction(WriteXmlAttrUIPriority)), + pre + "semiHidden": makeweakref(thisFunction(WriteXmlAttrSemiHidden)), + pre + "unhideWhenUsed": makeweakref(thisFunction(WriteXmlAttrUnhideWhenUsed)), + pre + "qFormat": makeweakref(thisFunction(WriteXmlAttrQFormat)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function LsdException.Copy(_obj: LsdException);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.UIPriority) then + {self.}UIPriority := _obj.UIPriority; + if not ifnil(_obj.SemiHidden) then + {self.}SemiHidden := _obj.SemiHidden; + if not ifnil(_obj.UnhideWhenUsed) then + {self.}UnhideWhenUsed := _obj.UnhideWhenUsed; + if not ifnil(_obj.QFormat) then + {self.}QFormat := _obj.QFormat; + tslassigning := tslassigning_backup; +end; + +function LsdException.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function LsdException.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function LsdException.ReadXmlAttrUIPriority(); +begin + return {self.}XmlAttrUIPriority.Value; +end; + +function LsdException.WriteXmlAttrUIPriority(_value); +begin + if ifnil({self.}XmlAttrUIPriority) then + begin + {self.}XmlAttrUIPriority := new OpenXmlAttribute({self.}Prefix, "uiPriority", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUIPriority; + end + {self.}XmlAttrUIPriority.Value := _value; +end; + +function LsdException.ReadXmlAttrSemiHidden(); +begin + return {self.}XmlAttrSemiHidden.Value; +end; + +function LsdException.WriteXmlAttrSemiHidden(_value); +begin + if ifnil({self.}XmlAttrSemiHidden) then + begin + {self.}XmlAttrSemiHidden := new OpenXmlAttribute({self.}Prefix, "semiHidden", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSemiHidden; + end + {self.}XmlAttrSemiHidden.Value := _value; +end; + +function LsdException.ReadXmlAttrUnhideWhenUsed(); +begin + return {self.}XmlAttrUnhideWhenUsed.Value; +end; + +function LsdException.WriteXmlAttrUnhideWhenUsed(_value); +begin + if ifnil({self.}XmlAttrUnhideWhenUsed) then + begin + {self.}XmlAttrUnhideWhenUsed := new OpenXmlAttribute({self.}Prefix, "unhideWhenUsed", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUnhideWhenUsed; + end + {self.}XmlAttrUnhideWhenUsed.Value := _value; +end; + +function LsdException.ReadXmlAttrQFormat(); +begin + return {self.}XmlAttrQFormat.Value; +end; + +function LsdException.WriteXmlAttrQFormat(_value); +begin + if ifnil({self.}XmlAttrQFormat) then + begin + {self.}XmlAttrQFormat := new OpenXmlAttribute({self.}Prefix, "qFormat", nil); + attributes_[length(attributes_)] := {self.}XmlAttrQFormat; + end + {self.}XmlAttrQFormat.Value := _value; +end; + +function Style.Create();overload; +begin + {self.}Create(nil, "w", "style"); +end; + +function Style.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Style.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Style.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + pre + "default": makeweakref(thisFunction(WriteXmlAttrDefault)), + pre + "styleId": makeweakref(thisFunction(WriteXmlAttrStyleId)), + ); + sorted_child_ := array( + pre + "name": array(0, makeweakref(thisFunction(ReadXmlChildName))), + pre + "basedOn": array(1, makeweakref(thisFunction(ReadXmlChildBasedOn))), + pre + "next": array(2, makeweakref(thisFunction(ReadXmlChildNext))), + pre + "autoRedefine": array(3, makeweakref(thisFunction(ReadXmlChildAutoRedefine))), + pre + "link": array(4, makeweakref(thisFunction(ReadXmlChildLink))), + pre + "uiPriority": array(5, makeweakref(thisFunction(ReadXmlChildUIPriority))), + pre + "semiHidden": array(6, makeweakref(thisFunction(ReadXmlChildSemiHidden))), + pre + "unhideWhenUsed": array(7, makeweakref(thisFunction(ReadXmlChildUnhideWhenUsed))), + pre + "qFormat": array(8, makeweakref(thisFunction(ReadXmlChildQFormat))), + pre + "rsid": array(9, makeweakref(thisFunction(ReadXmlChildRsid))), + pre + "pPr": array(10, makeweakref(thisFunction(ReadXmlChildPPr))), + pre + "rPr": array(11, makeweakref(thisFunction(ReadXmlChildRPr))), + pre + "tblPr": array(12, makeweakref(thisFunction(ReadXmlChildTblPr))), + pre + "trPr": array(13, makeweakref(thisFunction(ReadXmlChildTrPr))), + pre + "tcPr": array(14, makeweakref(thisFunction(ReadXmlChildTcPr))), + pre + "tblStylePr": array(15, makeweakref(thisFunction(AppendTblStylePr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Style.Copy(_obj: Style);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.Default) then + {self.}Default := _obj.Default; + if not ifnil(_obj.StyleId) then + {self.}StyleId := _obj.StyleId; + if not ifnil(_obj.XmlChildName) then + {self.}Name.Copy(_obj.XmlChildName); + if not ifnil(_obj.XmlChildBasedOn) then + {self.}BasedOn.Copy(_obj.XmlChildBasedOn); + if not ifnil(_obj.XmlChildNext) then + {self.}Next.Copy(_obj.XmlChildNext); + if not ifnil(_obj.XmlChildAutoRedefine) then + {self.}AutoRedefine.Copy(_obj.XmlChildAutoRedefine); + if not ifnil(_obj.XmlChildLink) then + {self.}Link.Copy(_obj.XmlChildLink); + if not ifnil(_obj.XmlChildUIPriority) then + {self.}UIPriority.Copy(_obj.XmlChildUIPriority); + if not ifnil(_obj.XmlChildSemiHidden) then + ifnil({self.}XmlChildSemiHidden) ? {self.}SemiHidden.Copy(_obj.XmlChildSemiHidden) : {self.}XmlChildSemiHidden.Copy(_obj.XmlChildSemiHidden); + if not ifnil(_obj.XmlChildUnhideWhenUsed) then + ifnil({self.}XmlChildUnhideWhenUsed) ? {self.}UnhideWhenUsed.Copy(_obj.XmlChildUnhideWhenUsed) : {self.}XmlChildUnhideWhenUsed.Copy(_obj.XmlChildUnhideWhenUsed); + if not ifnil(_obj.XmlChildQFormat) then + ifnil({self.}XmlChildQFormat) ? {self.}QFormat.Copy(_obj.XmlChildQFormat) : {self.}XmlChildQFormat.Copy(_obj.XmlChildQFormat); + if not ifnil(_obj.XmlChildRsid) then + ifnil({self.}XmlChildRsid) ? {self.}Rsid.Copy(_obj.XmlChildRsid) : {self.}XmlChildRsid.Copy(_obj.XmlChildRsid); + if not ifnil(_obj.XmlChildPPr) then + {self.}PPr.Copy(_obj.XmlChildPPr); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + if not ifnil(_obj.XmlChildTblPr) then + {self.}TblPr.Copy(_obj.XmlChildTblPr); + if not ifnil(_obj.XmlChildTrPr) then + {self.}TrPr.Copy(_obj.XmlChildTrPr); + if not ifnil(_obj.XmlChildTcPr) then + {self.}TcPr.Copy(_obj.XmlChildTcPr); + tslassigning := tslassigning_backup; +end; + +function Style.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Style.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Style.ReadXmlAttrDefault(); +begin + return {self.}XmlAttrDefault.Value; +end; + +function Style.WriteXmlAttrDefault(_value); +begin + if ifnil({self.}XmlAttrDefault) then + begin + {self.}XmlAttrDefault := new OpenXmlAttribute({self.}Prefix, "default", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefault; + end + {self.}XmlAttrDefault.Value := _value; +end; + +function Style.ReadXmlAttrStyleId(); +begin + return {self.}XmlAttrStyleId.Value; +end; + +function Style.WriteXmlAttrStyleId(_value); +begin + if ifnil({self.}XmlAttrStyleId) then + begin + {self.}XmlAttrStyleId := new OpenXmlAttribute({self.}Prefix, "styleId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrStyleId; + end + {self.}XmlAttrStyleId.Value := _value; +end; + +function Style.ReadXmlChildSemiHidden(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildSemiHidden) then + begin + {self.}XmlChildSemiHidden := new OpenXmlEmpty(self, {self.}Prefix, "semiHidden"); + container_.Set({self.}XmlChildSemiHidden); + end + return {self.}XmlChildSemiHidden; + end + return ifnil({self.}XmlChildSemiHidden) ? nil : {self.}XmlChildSemiHidden.BoolValue(); +end; + +function Style.WriteXmlChildSemiHidden(_value); +begin + if ifnil({self.}XmlChildSemiHidden) then + begin + {self.}XmlChildSemiHidden := new OpenXmlEmpty(self, {self.}Prefix, "semiHidden"); + container_.Set({self.}XmlChildSemiHidden); + end + {self.}XmlChildSemiHidden.Value := _value; +end; + +function Style.ReadXmlChildUnhideWhenUsed(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildUnhideWhenUsed) then + begin + {self.}XmlChildUnhideWhenUsed := new OpenXmlEmpty(self, {self.}Prefix, "unhideWhenUsed"); + container_.Set({self.}XmlChildUnhideWhenUsed); + end + return {self.}XmlChildUnhideWhenUsed; + end + return ifnil({self.}XmlChildUnhideWhenUsed) ? nil : {self.}XmlChildUnhideWhenUsed.BoolValue(); +end; + +function Style.WriteXmlChildUnhideWhenUsed(_value); +begin + if ifnil({self.}XmlChildUnhideWhenUsed) then + begin + {self.}XmlChildUnhideWhenUsed := new OpenXmlEmpty(self, {self.}Prefix, "unhideWhenUsed"); + container_.Set({self.}XmlChildUnhideWhenUsed); + end + {self.}XmlChildUnhideWhenUsed.Value := _value; +end; + +function Style.ReadXmlChildQFormat(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildQFormat) then + begin + {self.}XmlChildQFormat := new OpenXmlEmpty(self, {self.}Prefix, "qFormat"); + container_.Set({self.}XmlChildQFormat); + end + return {self.}XmlChildQFormat; + end + return ifnil({self.}XmlChildQFormat) ? nil : {self.}XmlChildQFormat.BoolValue(); +end; + +function Style.WriteXmlChildQFormat(_value); +begin + if ifnil({self.}XmlChildQFormat) then + begin + {self.}XmlChildQFormat := new OpenXmlEmpty(self, {self.}Prefix, "qFormat"); + container_.Set({self.}XmlChildQFormat); + end + {self.}XmlChildQFormat.Value := _value; +end; + +function Style.ReadXmlChildRsid(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildRsid) then + begin + {self.}XmlChildRsid := new OpenXmlEmpty(self, {self.}Prefix, "rsid"); + container_.Set({self.}XmlChildRsid); + end + return {self.}XmlChildRsid; + end + return ifnil({self.}XmlChildRsid) ? nil : {self.}XmlChildRsid.BoolValue(); +end; + +function Style.WriteXmlChildRsid(_value); +begin + if ifnil({self.}XmlChildRsid) then + begin + {self.}XmlChildRsid := new OpenXmlEmpty(self, {self.}Prefix, "rsid"); + container_.Set({self.}XmlChildRsid); + end + {self.}XmlChildRsid.Value := _value; +end; + +function Style.ReadXmlChildName(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildName) then + begin + {self.}XmlChildName := new PureWVal(self, {self.}Prefix, "name"); + container_.Set({self.}XmlChildName); + end + return {self.}XmlChildName; +end; + +function Style.ReadXmlChildBasedOn(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildBasedOn) then + begin + {self.}XmlChildBasedOn := new PureWVal(self, {self.}Prefix, "basedOn"); + container_.Set({self.}XmlChildBasedOn); + end + return {self.}XmlChildBasedOn; +end; + +function Style.ReadXmlChildNext(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNext) then + begin + {self.}XmlChildNext := new PureWVal(self, {self.}Prefix, "next"); + container_.Set({self.}XmlChildNext); + end + return {self.}XmlChildNext; +end; + +function Style.ReadXmlChildAutoRedefine(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildAutoRedefine) then + begin + {self.}XmlChildAutoRedefine := new PureWVal(self, {self.}Prefix, "autoRedefine"); + container_.Set({self.}XmlChildAutoRedefine); + end + return {self.}XmlChildAutoRedefine; +end; + +function Style.ReadXmlChildLink(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildLink) then + begin + {self.}XmlChildLink := new PureWVal(self, {self.}Prefix, "link"); + container_.Set({self.}XmlChildLink); + end + return {self.}XmlChildLink; +end; + +function Style.ReadXmlChildUIPriority(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildUIPriority) then + begin + {self.}XmlChildUIPriority := new PureWVal(self, {self.}Prefix, "uiPriority"); + container_.Set({self.}XmlChildUIPriority); + end + return {self.}XmlChildUIPriority; +end; + +function Style.ReadXmlChildPPr(): PPr; +begin + if tslassigning and ifnil({self.}XmlChildPPr) then + begin + {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); + container_.Set({self.}XmlChildPPr); + end + return {self.}XmlChildPPr; +end; + +function Style.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function Style.ReadXmlChildTblPr(): TblPr; +begin + if tslassigning and ifnil({self.}XmlChildTblPr) then + begin + {self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr"); + container_.Set({self.}XmlChildTblPr); + end + return {self.}XmlChildTblPr; +end; + +function Style.ReadXmlChildTrPr(): TrPr; +begin + if tslassigning and ifnil({self.}XmlChildTrPr) then + begin + {self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr"); + container_.Set({self.}XmlChildTrPr); + end + return {self.}XmlChildTrPr; +end; + +function Style.ReadXmlChildTcPr(): TcPr; +begin + if tslassigning and ifnil({self.}XmlChildTcPr) then + begin + {self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr"); + container_.Set({self.}XmlChildTcPr); + end + return {self.}XmlChildTcPr; +end; + +function Style.ReadTblStylePrs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "tblStylePr", ind); +end; + +function Style.AddTblStylePr(): TblStylePr; +begin + obj := new TblStylePr(self, {self.}Prefix, "tblStylePr"); + container_.Insert(obj); + return obj; +end; + +function Style.AppendTblStylePr(): TblStylePr; +begin + obj := new TblStylePr(self, {self.}Prefix, "tblStylePr"); + container_.Append(obj); + return obj; +end; + +function TblStylePr.Create();overload; +begin + {self.}Create(nil, "w", "tblStylePr"); +end; + +function TblStylePr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblStylePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblStylePr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + ); + sorted_child_ := array( + pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), + pre + "rPr": array(1, makeweakref(thisFunction(ReadXmlChildRPr))), + pre + "tblPr": array(2, makeweakref(thisFunction(ReadXmlChildTblPr))), + pre + "trPr": array(3, makeweakref(thisFunction(ReadXmlChildTrPr))), + pre + "tcPr": array(4, makeweakref(thisFunction(ReadXmlChildTcPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblStylePr.Copy(_obj: TblStylePr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.XmlChildPPr) then + {self.}PPr.Copy(_obj.XmlChildPPr); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + if not ifnil(_obj.XmlChildTblPr) then + {self.}TblPr.Copy(_obj.XmlChildTblPr); + if not ifnil(_obj.XmlChildTrPr) then + {self.}TrPr.Copy(_obj.XmlChildTrPr); + if not ifnil(_obj.XmlChildTcPr) then + {self.}TcPr.Copy(_obj.XmlChildTcPr); + tslassigning := tslassigning_backup; +end; + +function TblStylePr.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function TblStylePr.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function TblStylePr.ReadXmlChildPPr(): PPr; +begin + if tslassigning and ifnil({self.}XmlChildPPr) then + begin + {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); + container_.Set({self.}XmlChildPPr); + end + return {self.}XmlChildPPr; +end; + +function TblStylePr.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function TblStylePr.ReadXmlChildTblPr(): TblPr; +begin + if tslassigning and ifnil({self.}XmlChildTblPr) then + begin + {self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr"); + container_.Set({self.}XmlChildTblPr); + end + return {self.}XmlChildTblPr; +end; + +function TblStylePr.ReadXmlChildTrPr(): TrPr; +begin + if tslassigning and ifnil({self.}XmlChildTrPr) then + begin + {self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr"); + container_.Set({self.}XmlChildTrPr); + end + return {self.}XmlChildTrPr; +end; + +function TblStylePr.ReadXmlChildTcPr(): TcPr; +begin + if tslassigning and ifnil({self.}XmlChildTcPr) then + begin + {self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr"); + container_.Set({self.}XmlChildTcPr); + end + return {self.}XmlChildTcPr; +end; + +function TblInd.Create();overload; +begin + {self.}Create(nil, "w", "tblInd"); +end; + +function TblInd.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblInd.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblInd.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "w": makeweakref(thisFunction(WriteXmlAttrW)), + pre + "type": makeweakref(thisFunction(WriteXmlAttrType)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblInd.Copy(_obj: TblInd);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.W) then + {self.}W := _obj.W; + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + tslassigning := tslassigning_backup; +end; + +function TblInd.ReadXmlAttrW(); +begin + return {self.}XmlAttrW.Value; +end; + +function TblInd.WriteXmlAttrW(_value); +begin + if ifnil({self.}XmlAttrW) then + begin + {self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil); + attributes_[length(attributes_)] := {self.}XmlAttrW; + end + {self.}XmlAttrW.Value := _value; +end; + +function TblInd.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function TblInd.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function TblCellMar.Create();overload; +begin + {self.}Create(nil, "w", "tblCellMar"); +end; + +function TblCellMar.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TblCellMar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TblCellMar.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "top": array(0, makeweakref(thisFunction(ReadXmlChildTop))), + pre + "left": array(1, makeweakref(thisFunction(ReadXmlChildLeft))), + pre + "bottom": array(2, makeweakref(thisFunction(ReadXmlChildBottom))), + pre + "right": array(3, makeweakref(thisFunction(ReadXmlChildRight))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TblCellMar.Copy(_obj: TblCellMar);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTop) then + {self.}Top.Copy(_obj.XmlChildTop); + if not ifnil(_obj.XmlChildLeft) then + {self.}Left.Copy(_obj.XmlChildLeft); + if not ifnil(_obj.XmlChildBottom) then + {self.}Bottom.Copy(_obj.XmlChildBottom); + if not ifnil(_obj.XmlChildRight) then + {self.}Right.Copy(_obj.XmlChildRight); + tslassigning := tslassigning_backup; +end; + +function TblCellMar.ReadXmlChildTop(): TblInd; +begin + if tslassigning and ifnil({self.}XmlChildTop) then + begin + {self.}XmlChildTop := new TblInd(self, {self.}Prefix, "top"); + container_.Set({self.}XmlChildTop); + end + return {self.}XmlChildTop; +end; + +function TblCellMar.ReadXmlChildLeft(): TblInd; +begin + if tslassigning and ifnil({self.}XmlChildLeft) then + begin + {self.}XmlChildLeft := new TblInd(self, {self.}Prefix, "left"); + container_.Set({self.}XmlChildLeft); + end + return {self.}XmlChildLeft; +end; + +function TblCellMar.ReadXmlChildBottom(): TblInd; +begin + if tslassigning and ifnil({self.}XmlChildBottom) then + begin + {self.}XmlChildBottom := new TblInd(self, {self.}Prefix, "bottom"); + container_.Set({self.}XmlChildBottom); + end + return {self.}XmlChildBottom; +end; + +function TblCellMar.ReadXmlChildRight(): TblInd; +begin + if tslassigning and ifnil({self.}XmlChildRight) then + begin + {self.}XmlChildRight := new TblInd(self, {self.}Prefix, "right"); + container_.Set({self.}XmlChildRight); + end + return {self.}XmlChildRight; +end; + +function WebSettings.Create();overload; +begin + {self.}Create(nil, "w", "webSettings"); +end; + +function WebSettings.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function WebSettings.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function WebSettings.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMcIgnorable)), + ); + sorted_child_ := array( + pre + "optimizeForBrowser": array(0, makeweakref(thisFunction(ReadXmlChildOptimizeForBrowser))), + pre + "allowPNG": array(1, makeweakref(thisFunction(ReadXmlChildAllowPNG))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function WebSettings.Copy(_obj: WebSettings);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.McIgnorable) then + {self.}McIgnorable := _obj.McIgnorable; + if not ifnil(_obj.XmlChildOptimizeForBrowser) then + ifnil({self.}XmlChildOptimizeForBrowser) ? {self.}OptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser) : {self.}XmlChildOptimizeForBrowser.Copy(_obj.XmlChildOptimizeForBrowser); + if not ifnil(_obj.XmlChildAllowPNG) then + ifnil({self.}XmlChildAllowPNG) ? {self.}AllowPNG.Copy(_obj.XmlChildAllowPNG) : {self.}XmlChildAllowPNG.Copy(_obj.XmlChildAllowPNG); + tslassigning := tslassigning_backup; +end; + +function WebSettings.ReadXmlAttrMcIgnorable(); +begin + return {self.}XmlAttrMcIgnorable.Value; +end; + +function WebSettings.WriteXmlAttrMcIgnorable(_value); +begin + if ifnil({self.}XmlAttrMcIgnorable) then + begin + {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrMcIgnorable; + end + {self.}XmlAttrMcIgnorable.Value := _value; +end; + +function WebSettings.ReadXmlChildOptimizeForBrowser(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildOptimizeForBrowser) then + begin + {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser"); + container_.Set({self.}XmlChildOptimizeForBrowser); + end + return {self.}XmlChildOptimizeForBrowser; + end + return ifnil({self.}XmlChildOptimizeForBrowser) ? nil : {self.}XmlChildOptimizeForBrowser.BoolValue(); +end; + +function WebSettings.WriteXmlChildOptimizeForBrowser(_value); +begin + if ifnil({self.}XmlChildOptimizeForBrowser) then + begin + {self.}XmlChildOptimizeForBrowser := new OpenXmlEmpty(self, {self.}Prefix, "optimizeForBrowser"); + container_.Set({self.}XmlChildOptimizeForBrowser); + end + {self.}XmlChildOptimizeForBrowser.Value := _value; +end; + +function WebSettings.ReadXmlChildAllowPNG(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildAllowPNG) then + begin + {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG"); + container_.Set({self.}XmlChildAllowPNG); + end + return {self.}XmlChildAllowPNG; + end + return ifnil({self.}XmlChildAllowPNG) ? nil : {self.}XmlChildAllowPNG.BoolValue(); +end; + +function WebSettings.WriteXmlChildAllowPNG(_value); +begin + if ifnil({self.}XmlChildAllowPNG) then + begin + {self.}XmlChildAllowPNG := new OpenXmlEmpty(self, {self.}Prefix, "allowPNG"); + container_.Set({self.}XmlChildAllowPNG); + end + {self.}XmlChildAllowPNG.Value := _value; +end; + +function AlternateContent.Create();overload; +begin + {self.}Create(nil, "mc", "AlternateContent"); +end; + +function AlternateContent.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function AlternateContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function AlternateContent.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "Choice": array(0, makeweakref(thisFunction(ReadXmlChildChoice))), + pre + "Fallback": array(1, makeweakref(thisFunction(ReadXmlChildFallback))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function AlternateContent.Copy(_obj: AlternateContent);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildChoice) then + {self.}Choice.Copy(_obj.XmlChildChoice); + if not ifnil(_obj.XmlChildFallback) then + {self.}Fallback.Copy(_obj.XmlChildFallback); + tslassigning := tslassigning_backup; +end; + +function AlternateContent.ReadXmlChildChoice(): Choice; +begin + if tslassigning and ifnil({self.}XmlChildChoice) then + begin + {self.}XmlChildChoice := new Choice(self, {self.}Prefix, "Choice"); + container_.Set({self.}XmlChildChoice); + end + return {self.}XmlChildChoice; +end; + +function AlternateContent.ReadXmlChildFallback(): Fallback; +begin + if tslassigning and ifnil({self.}XmlChildFallback) then + begin + {self.}XmlChildFallback := new Fallback(self, {self.}Prefix, "Fallback"); + container_.Set({self.}XmlChildFallback); + end + return {self.}XmlChildFallback; +end; + +function Choice.Create();overload; +begin + {self.}Create(nil, "mc", "Choice"); +end; + +function Choice.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Choice.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Choice.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "Requires": makeweakref(thisFunction(WriteXmlAttrRequires)), + ); + sorted_child_ := array( + "c14:style": array(0, makeweakref(thisFunction(ReadXmlChildStyle))), + "w:drawing": array(1, makeweakref(thisFunction(ReadXmlChildDrawing))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Choice.Copy(_obj: Choice);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Requires) then + {self.}Requires := _obj.Requires; + if not ifnil(_obj.XmlChildStyle) then + {self.}Style.Copy(_obj.XmlChildStyle); + if not ifnil(_obj.XmlChildDrawing) then + {self.}Drawing.Copy(_obj.XmlChildDrawing); + tslassigning := tslassigning_backup; +end; + +function Choice.ReadXmlAttrRequires(); +begin + return {self.}XmlAttrRequires.Value; +end; + +function Choice.WriteXmlAttrRequires(_value); +begin + if ifnil({self.}XmlAttrRequires) then + begin + {self.}XmlAttrRequires := new OpenXmlAttribute("", "Requires", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRequires; + end + {self.}XmlAttrRequires.Value := _value; +end; + +function Choice.ReadXmlChildStyle(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildStyle) then + begin + {self.}XmlChildStyle := new PureVal(self, "c14", "style"); + container_.Set({self.}XmlChildStyle); + end + return {self.}XmlChildStyle; +end; + +function Choice.ReadXmlChildDrawing(): Drawing; +begin + if tslassigning and ifnil({self.}XmlChildDrawing) then + begin + {self.}XmlChildDrawing := new Drawing(self, "w", "drawing"); + container_.Set({self.}XmlChildDrawing); + end + return {self.}XmlChildDrawing; +end; + +function Fallback.Create();overload; +begin + {self.}Create(nil, "mc", "Fallback"); +end; + +function Fallback.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Fallback.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Fallback.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "c:style": array(0, makeweakref(thisFunction(ReadXmlChildStyle))), + "w:pict": array(1, makeweakref(thisFunction(ReadXmlChildPict))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Fallback.Copy(_obj: Fallback);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildStyle) then + {self.}Style.Copy(_obj.XmlChildStyle); + if not ifnil(_obj.XmlChildPict) then + {self.}Pict.Copy(_obj.XmlChildPict); + tslassigning := tslassigning_backup; +end; + +function Fallback.ReadXmlChildStyle(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildStyle) then + begin + {self.}XmlChildStyle := new PureVal(self, "c", "style"); + container_.Set({self.}XmlChildStyle); + end + return {self.}XmlChildStyle; +end; + +function Fallback.ReadXmlChildPict(): Pict; +begin + if tslassigning and ifnil({self.}XmlChildPict) then + begin + {self.}XmlChildPict := new Pict(self, "w", "pict"); + container_.Set({self.}XmlChildPict); + end + return {self.}XmlChildPict; +end; + +function Pict.Create();overload; +begin + {self.}Create(nil, "w", "pict"); +end; + +function Pict.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Pict.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Pict.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "v:shapetype": array(0, makeweakref(thisFunction(ReadXmlChildShapetype))), + "v:shape": array(1, makeweakref(thisFunction(ReadXmlChildShape))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Pict.Copy(_obj: Pict);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildShapetype) then + {self.}Shapetype.Copy(_obj.XmlChildShapetype); + if not ifnil(_obj.XmlChildShape) then + {self.}Shape.Copy(_obj.XmlChildShape); + tslassigning := tslassigning_backup; +end; + +function Pict.ReadXmlChildShapetype(): Shapetype; +begin + if tslassigning and ifnil({self.}XmlChildShapetype) then + begin + {self.}XmlChildShapetype := new Shapetype(self, "v", "shapetype"); + container_.Set({self.}XmlChildShapetype); + end + return {self.}XmlChildShapetype; +end; + +function Pict.ReadXmlChildShape(): Shape; +begin + if tslassigning and ifnil({self.}XmlChildShape) then + begin + {self.}XmlChildShape := new Shape(self, "v", "shape"); + container_.Set({self.}XmlChildShape); + end + return {self.}XmlChildShape; +end; + +function Ftr.Create();overload; +begin + {self.}Create(nil, "w", "ftr"); +end; + +function Ftr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Ftr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Ftr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Ftr.Copy(_obj: Ftr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + tslassigning := tslassigning_backup; +end; + +function Ftr.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Ftr.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Ftr.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function Ftr.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function Ftr.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Hdr.Create();overload; +begin + {self.}Create(nil, "w", "hdr"); +end; + +function Hdr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Hdr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Hdr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Hdr.Copy(_obj: Hdr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + tslassigning := tslassigning_backup; +end; + +function Hdr.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Hdr.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Hdr.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function Hdr.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function Hdr.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Comments.Create();overload; +begin + {self.}Create(nil, "w", "comments"); +end; + +function Comments.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Comments.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Comments.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "comment": array(0, makeweakref(thisFunction(AppendComment))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Comments.Copy(_obj: Comments);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + tslassigning := tslassigning_backup; +end; + +function Comments.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Comments.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Comments.ReadComments(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "comment", ind); +end; + +function Comments.AddComment(): Comment; +begin + obj := new Comment(self, {self.}Prefix, "comment"); + container_.Insert(obj); + return obj; +end; + +function Comments.AppendComment(): Comment; +begin + obj := new Comment(self, {self.}Prefix, "comment"); + container_.Append(obj); + return obj; +end; + +function Comment.Create();overload; +begin + {self.}Create(nil, "w", "comment"); +end; + +function Comment.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Comment.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Comment.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "author": makeweakref(thisFunction(WriteXmlAttrAuthor)), + pre + "date": makeweakref(thisFunction(WriteXmlAttrDate)), + pre + "id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + pre + "p": array(0, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Comment.Copy(_obj: Comment);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Author) then + {self.}Author := _obj.Author; + if not ifnil(_obj.Date) then + {self.}Date := _obj.Date; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function Comment.ReadXmlAttrAuthor(); +begin + return {self.}XmlAttrAuthor.Value; +end; + +function Comment.WriteXmlAttrAuthor(_value); +begin + if ifnil({self.}XmlAttrAuthor) then + begin + {self.}XmlAttrAuthor := new OpenXmlAttribute({self.}Prefix, "author", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAuthor; + end + {self.}XmlAttrAuthor.Value := _value; +end; + +function Comment.ReadXmlAttrDate(); +begin + return {self.}XmlAttrDate.Value; +end; + +function Comment.WriteXmlAttrDate(_value); +begin + if ifnil({self.}XmlAttrDate) then + begin + {self.}XmlAttrDate := new OpenXmlAttribute({self.}Prefix, "date", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDate; + end + {self.}XmlAttrDate.Value := _value; +end; + +function Comment.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Comment.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Comment.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "p", ind); +end; + +function Comment.AddP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Insert(obj); + return obj; +end; + +function Comment.AppendP(): P; +begin + obj := new P(self, {self.}Prefix, "p"); + container_.Append(obj); + return obj; +end; + +function Numbering.Create();overload; +begin + {self.}Create(nil, "w", "numbering"); +end; + +function Numbering.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Numbering.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Numbering.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)), + ); + sorted_child_ := array( + pre + "abstractNum": array(0, makeweakref(thisFunction(AppendAbstractNum))), + pre + "num": array(1, makeweakref(thisFunction(AppendNum))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Numbering.Copy(_obj: Numbering);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ignorable) then + {self.}Ignorable := _obj.Ignorable; + tslassigning := tslassigning_backup; +end; + +function Numbering.ReadXmlAttrIgnorable(); +begin + return {self.}XmlAttrIgnorable.Value; +end; + +function Numbering.WriteXmlAttrIgnorable(_value); +begin + if ifnil({self.}XmlAttrIgnorable) then + begin + {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIgnorable; + end + {self.}XmlAttrIgnorable.Value := _value; +end; + +function Numbering.ReadAbstractNums(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "abstractNum", ind); +end; + +function Numbering.ReadNums(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "num", ind); +end; + +function Numbering.AddAbstractNum(): AbstractNum; +begin + obj := new AbstractNum(self, {self.}Prefix, "abstractNum"); + container_.Insert(obj); + return obj; +end; + +function Numbering.AddNum(): Num; +begin + obj := new Num(self, {self.}Prefix, "num"); + container_.Insert(obj); + return obj; +end; + +function Numbering.AppendAbstractNum(): AbstractNum; +begin + obj := new AbstractNum(self, {self.}Prefix, "abstractNum"); + container_.Append(obj); + return obj; +end; + +function Numbering.AppendNum(): Num; +begin + obj := new Num(self, {self.}Prefix, "num"); + container_.Append(obj); + return obj; +end; + +function Num.Create();overload; +begin + {self.}Create(nil, "w", "num"); +end; + +function Num.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Num.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Num.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "numId": makeweakref(thisFunction(WriteXmlAttrNumId)), + ); + sorted_child_ := array( + pre + "abstractNumId": array(0, makeweakref(thisFunction(ReadXmlChildAbstractNumId))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Num.Copy(_obj: Num);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.NumId) then + {self.}NumId := _obj.NumId; + if not ifnil(_obj.XmlChildAbstractNumId) then + {self.}AbstractNumId.Copy(_obj.XmlChildAbstractNumId); + tslassigning := tslassigning_backup; +end; + +function Num.ReadXmlAttrNumId(); +begin + return {self.}XmlAttrNumId.Value; +end; + +function Num.WriteXmlAttrNumId(_value); +begin + if ifnil({self.}XmlAttrNumId) then + begin + {self.}XmlAttrNumId := new OpenXmlAttribute({self.}Prefix, "numId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNumId; + end + {self.}XmlAttrNumId.Value := _value; +end; + +function Num.ReadXmlChildAbstractNumId(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildAbstractNumId) then + begin + {self.}XmlChildAbstractNumId := new PureWVal(self, {self.}Prefix, "abstractNumId"); + container_.Set({self.}XmlChildAbstractNumId); + end + return {self.}XmlChildAbstractNumId; +end; + +function AbstractNum.Create();overload; +begin + {self.}Create(nil, "w", "abstractNum"); +end; + +function AbstractNum.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function AbstractNum.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function AbstractNum.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "abstractNumId": makeweakref(thisFunction(WriteXmlAttrAbstractNumId)), + pre + "restartNumberingAfterBreak": makeweakref(thisFunction(WriteXmlAttrRestartNumberingAfterBreak)), + ); + sorted_child_ := array( + pre + "nsid": array(0, makeweakref(thisFunction(ReadXmlChildNsid))), + pre + "multiLevelType": array(1, makeweakref(thisFunction(ReadXmlChildMultiLevelType))), + pre + "tmpl": array(2, makeweakref(thisFunction(ReadXmlChildTmpl))), + pre + "lvl": array(3, makeweakref(thisFunction(AppendLvl))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function AbstractNum.Copy(_obj: AbstractNum);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.AbstractNumId) then + {self.}AbstractNumId := _obj.AbstractNumId; + if not ifnil(_obj.RestartNumberingAfterBreak) then + {self.}RestartNumberingAfterBreak := _obj.RestartNumberingAfterBreak; + if not ifnil(_obj.XmlChildNsid) then + {self.}Nsid.Copy(_obj.XmlChildNsid); + if not ifnil(_obj.XmlChildMultiLevelType) then + {self.}MultiLevelType.Copy(_obj.XmlChildMultiLevelType); + if not ifnil(_obj.XmlChildTmpl) then + {self.}Tmpl.Copy(_obj.XmlChildTmpl); + tslassigning := tslassigning_backup; +end; + +function AbstractNum.ReadXmlAttrAbstractNumId(); +begin + return {self.}XmlAttrAbstractNumId.Value; +end; + +function AbstractNum.WriteXmlAttrAbstractNumId(_value); +begin + if ifnil({self.}XmlAttrAbstractNumId) then + begin + {self.}XmlAttrAbstractNumId := new OpenXmlAttribute({self.}Prefix, "abstractNumId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAbstractNumId; + end + {self.}XmlAttrAbstractNumId.Value := _value; +end; + +function AbstractNum.ReadXmlAttrRestartNumberingAfterBreak(); +begin + return {self.}XmlAttrRestartNumberingAfterBreak.Value; +end; + +function AbstractNum.WriteXmlAttrRestartNumberingAfterBreak(_value); +begin + if ifnil({self.}XmlAttrRestartNumberingAfterBreak) then + begin + {self.}XmlAttrRestartNumberingAfterBreak := new OpenXmlAttribute({self.}Prefix, "restartNumberingAfterBreak", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRestartNumberingAfterBreak; + end + {self.}XmlAttrRestartNumberingAfterBreak.Value := _value; +end; + +function AbstractNum.ReadXmlChildNsid(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNsid) then + begin + {self.}XmlChildNsid := new PureWVal(self, {self.}Prefix, "nsid"); + container_.Set({self.}XmlChildNsid); + end + return {self.}XmlChildNsid; +end; + +function AbstractNum.ReadXmlChildMultiLevelType(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildMultiLevelType) then + begin + {self.}XmlChildMultiLevelType := new PureWVal(self, {self.}Prefix, "multiLevelType"); + container_.Set({self.}XmlChildMultiLevelType); + end + return {self.}XmlChildMultiLevelType; +end; + +function AbstractNum.ReadXmlChildTmpl(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildTmpl) then + begin + {self.}XmlChildTmpl := new PureWVal(self, {self.}Prefix, "tmpl"); + container_.Set({self.}XmlChildTmpl); + end + return {self.}XmlChildTmpl; +end; + +function AbstractNum.ReadLvls(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "lvl", ind); +end; + +function AbstractNum.AddLvl(): Lvl; +begin + obj := new Lvl(self, {self.}Prefix, "lvl"); + container_.Insert(obj); + return obj; +end; + +function AbstractNum.AppendLvl(): Lvl; +begin + obj := new Lvl(self, {self.}Prefix, "lvl"); + container_.Append(obj); + return obj; +end; + +function Lvl.Create();overload; +begin + {self.}Create(nil, "w", "lvl"); +end; + +function Lvl.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Lvl.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Lvl.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "ilvl": makeweakref(thisFunction(WriteXmlAttrIlvl)), + pre + "tentative": makeweakref(thisFunction(WriteXmlAttrTentative)), + ); + sorted_child_ := array( + pre + "start": array(0, makeweakref(thisFunction(ReadXmlChildStart))), + pre + "numFmt": array(1, makeweakref(thisFunction(ReadXmlChildNumFmt))), + pre + "pStyle": array(2, makeweakref(thisFunction(ReadXmlChildPStyle))), + pre + "suff": array(3, makeweakref(thisFunction(ReadXmlChildSuff))), + pre + "lvlText": array(4, makeweakref(thisFunction(ReadXmlChildLvlText))), + pre + "lvlJc": array(5, makeweakref(thisFunction(ReadXmlChildLvlJc))), + pre + "pPr": array(6, makeweakref(thisFunction(ReadXmlChildPPr))), + pre + "rPr": array(7, makeweakref(thisFunction(ReadXmlChildRPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Lvl.Copy(_obj: Lvl);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ilvl) then + {self.}Ilvl := _obj.Ilvl; + if not ifnil(_obj.Tentative) then + {self.}Tentative := _obj.Tentative; + if not ifnil(_obj.XmlChildStart) then + {self.}Start.Copy(_obj.XmlChildStart); + if not ifnil(_obj.XmlChildNumFmt) then + {self.}NumFmt.Copy(_obj.XmlChildNumFmt); + if not ifnil(_obj.XmlChildPStyle) then + {self.}PStyle.Copy(_obj.XmlChildPStyle); + if not ifnil(_obj.XmlChildSuff) then + {self.}Suff.Copy(_obj.XmlChildSuff); + if not ifnil(_obj.XmlChildLvlText) then + {self.}LvlText.Copy(_obj.XmlChildLvlText); + if not ifnil(_obj.XmlChildLvlJc) then + {self.}LvlJc.Copy(_obj.XmlChildLvlJc); + if not ifnil(_obj.XmlChildPPr) then + {self.}PPr.Copy(_obj.XmlChildPPr); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function Lvl.ReadXmlAttrIlvl(); +begin + return {self.}XmlAttrIlvl.Value; +end; + +function Lvl.WriteXmlAttrIlvl(_value); +begin + if ifnil({self.}XmlAttrIlvl) then + begin + {self.}XmlAttrIlvl := new OpenXmlAttribute({self.}Prefix, "ilvl", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIlvl; + end + {self.}XmlAttrIlvl.Value := _value; +end; + +function Lvl.ReadXmlAttrTentative(); +begin + return {self.}XmlAttrTentative.Value; +end; + +function Lvl.WriteXmlAttrTentative(_value); +begin + if ifnil({self.}XmlAttrTentative) then + begin + {self.}XmlAttrTentative := new OpenXmlAttribute({self.}Prefix, "tentative", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTentative; + end + {self.}XmlAttrTentative.Value := _value; +end; + +function Lvl.ReadXmlChildStart(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildStart) then + begin + {self.}XmlChildStart := new PureWVal(self, {self.}Prefix, "start"); + container_.Set({self.}XmlChildStart); + end + return {self.}XmlChildStart; +end; + +function Lvl.ReadXmlChildNumFmt(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildNumFmt) then + begin + {self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt"); + container_.Set({self.}XmlChildNumFmt); + end + return {self.}XmlChildNumFmt; +end; + +function Lvl.ReadXmlChildPStyle(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildPStyle) then + begin + {self.}XmlChildPStyle := new PureWVal(self, {self.}Prefix, "pStyle"); + container_.Set({self.}XmlChildPStyle); + end + return {self.}XmlChildPStyle; +end; + +function Lvl.ReadXmlChildSuff(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildSuff) then + begin + {self.}XmlChildSuff := new PureWVal(self, {self.}Prefix, "suff"); + container_.Set({self.}XmlChildSuff); + end + return {self.}XmlChildSuff; +end; + +function Lvl.ReadXmlChildLvlText(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildLvlText) then + begin + {self.}XmlChildLvlText := new PureWVal(self, {self.}Prefix, "lvlText"); + container_.Set({self.}XmlChildLvlText); + end + return {self.}XmlChildLvlText; +end; + +function Lvl.ReadXmlChildLvlJc(): PureWVal; +begin + if tslassigning and ifnil({self.}XmlChildLvlJc) then + begin + {self.}XmlChildLvlJc := new PureWVal(self, {self.}Prefix, "lvlJc"); + container_.Set({self.}XmlChildLvlJc); + end + return {self.}XmlChildLvlJc; +end; + +function Lvl.ReadXmlChildPPr(): PPr; +begin + if tslassigning and ifnil({self.}XmlChildPPr) then + begin + {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); + container_.Set({self.}XmlChildPPr); + end + return {self.}XmlChildPPr; +end; + +function Lvl.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +end. \ No newline at end of file diff --git a/autounit/DocxMLAdapter.tsf b/autounit/DocxMLAdapter.tsf new file mode 100644 index 0000000..457b466 --- /dev/null +++ b/autounit/DocxMLAdapter.tsf @@ -0,0 +1,373 @@ +unit DocxMLAdapter; +interface + +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; + +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; + +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; + +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; + +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; + +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; + +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; + +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; + +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; + +implementation + +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; + +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; + +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; + +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; + +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; + +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; + +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; + +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; + +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; + +end. \ No newline at end of file diff --git a/autounit/DocxMLUnitDecorator.tsf b/autounit/DocxMLUnitDecorator.tsf new file mode 100644 index 0000000..eb3e630 --- /dev/null +++ b/autounit/DocxMLUnitDecorator.tsf @@ -0,0 +1,4128 @@ +unit DocxMLUnitDecorator; +interface +uses DocxML, TSSafeUnitConverter; + +type PropertiesUnitDecorator = class(Properties) +public + function Create(_obj: Properties); + function GetObject(); + function Convert(); +private + object_: Properties; +end; + +type DocumentUnitDecorator = class(Document) +public + function Create(_obj: Document); + function GetObject(); + function Convert(); +private + object_: Document; +end; + +type BodyUnitDecorator = class(Body) +public + function Create(_obj: Body); + function GetObject(); + function Convert(); +private + object_: Body; +end; + +type PUnitDecorator = class(P) +public + function Create(_obj: P); + function GetObject(); + function Convert(); +private + object_: P; +end; + +type FldSimpleUnitDecorator = class(FldSimple) +public + function Create(_obj: FldSimple); + function GetObject(); + function Convert(); +private + object_: FldSimple; +end; + +type CommentRangeUnitDecorator = class(CommentRange) +public + function Create(_obj: CommentRange); + function GetObject(); + function Convert(); +private + object_: CommentRange; +end; + +type HyperLinkUnitDecorator = class(HyperLink) +public + function Create(_obj: HyperLink); + function GetObject(); + function Convert(); +private + object_: HyperLink; +end; + +type BookmarkUnitDecorator = class(Bookmark) +public + function Create(_obj: Bookmark); + function GetObject(); + function Convert(); +private + object_: Bookmark; +end; + +type PPrUnitDecorator = class(PPr) +public + function Create(_obj: PPr); + function GetObject(); + function Convert(); +private + object_: PPr; +end; + +type PBdrUnitDecorator = class(PBdr) +public + function Create(_obj: PBdr); + function GetObject(); + function Convert(); +private + object_: PBdr; +end; + +type PBorderUnitDecorator = class(PBorder) +public + function Create(_obj: PBorder); + function GetObject(); + function Convert(); +private + object_: PBorder; +end; + +type TabsUnitDecorator = class(Tabs) +public + function Create(_obj: Tabs); + function GetObject(); + function Convert(); +private + object_: Tabs; +end; + +type TabUnitDecorator = class(Tab) +public + function Create(_obj: Tab); + function GetObject(); + function Convert(); +private + object_: Tab; +end; + +type NumPrUnitDecorator = class(NumPr) +public + function Create(_obj: NumPr); + function GetObject(); + function Convert(); +private + object_: NumPr; +end; + +type IndUnitDecorator = class(Ind) +public + function Create(_obj: Ind); + function GetObject(); + function Convert(); +private + object_: Ind; +end; + +type SpacingUnitDecorator = class(Spacing) +public + function Create(_obj: Spacing); + function GetObject(); + function Convert(); +private + object_: Spacing; +end; + +type RPrUnitDecorator = class(RPr) +public + function Create(_obj: RPr); + function GetObject(); + function Convert(); +private + object_: RPr; +end; + +type RFontsUnitDecorator = class(RFonts) +public + function Create(_obj: RFonts); + function GetObject(); + function Convert(); +private + object_: RFonts; +end; + +type SzCsUnitDecorator = class(SzCs) +public + function Create(_obj: SzCs); + function GetObject(); + function Convert(); +private + object_: SzCs; +end; + +type SzUnitDecorator = class(Sz) +public + function Create(_obj: Sz); + function GetObject(); + function Convert(); +private + object_: Sz; +end; + +type PureWValUnitDecorator = class(PureWVal) +public + function Create(_obj: PureWVal); + function GetObject(); + function Convert(); +private + object_: PureWVal; +end; + +type ColorUnitDecorator = class(Color) +public + function Create(_obj: Color); + function GetObject(); + function Convert(); +private + object_: Color; +end; + +type LangUnitDecorator = class(Lang) +public + function Create(_obj: Lang); + function GetObject(); + function Convert(); +private + object_: Lang; +end; + +type RUnitDecorator = class(R) +public + function Create(_obj: R); + function GetObject(); + function Convert(); +private + object_: R; +end; + +type ObjectUnitDecorator = class(Object) +public + function Create(_obj: Object); + function GetObject(); + function Convert(); +private + object_: Object; +end; + +type FootnoteReferenceUnitDecorator = class(FootnoteReference) +public + function Create(_obj: FootnoteReference); + function GetObject(); + function Convert(); +private + object_: FootnoteReference; +end; + +type FldCharUnitDecorator = class(FldChar) +public + function Create(_obj: FldChar); + function GetObject(); + function Convert(); +private + object_: FldChar; +end; + +type InstrTextUnitDecorator = class(InstrText) +public + function Create(_obj: InstrText); + function GetObject(); + function Convert(); +private + object_: InstrText; +end; + +type BrUnitDecorator = class(Br) +public + function Create(_obj: Br); + function GetObject(); + function Convert(); +private + object_: Br; +end; + +type TxbxContentUnitDecorator = class(TxbxContent) +public + function Create(_obj: TxbxContent); + function GetObject(); + function Convert(); +private + object_: TxbxContent; +end; + +type DrawingUnitDecorator = class(Drawing) +public + function Create(_obj: Drawing); + function GetObject(); + function Convert(); +private + object_: Drawing; +end; + +type TUnitDecorator = class(T) +public + function Create(_obj: T); + function GetObject(); + function Convert(); +private + object_: T; +end; + +type TblUnitDecorator = class(Tbl) +public + function Create(_obj: Tbl); + function GetObject(); + function Convert(); +private + object_: Tbl; +end; + +type TblPrUnitDecorator = class(TblPr) +public + function Create(_obj: TblPr); + function GetObject(); + function Convert(); +private + object_: TblPr; +end; + +type TblCellSpacingUnitDecorator = class(TblCellSpacing) +public + function Create(_obj: TblCellSpacing); + function GetObject(); + function Convert(); +private + object_: TblCellSpacing; +end; + +type TblWUnitDecorator = class(TblW) +public + function Create(_obj: TblW); + function GetObject(); + function Convert(); +private + object_: TblW; +end; + +type TblLayoutUnitDecorator = class(TblLayout) +public + function Create(_obj: TblLayout); + function GetObject(); + function Convert(); +private + object_: TblLayout; +end; + +type TblLookUnitDecorator = class(TblLook) +public + function Create(_obj: TblLook); + function GetObject(); + function Convert(); +private + object_: TblLook; +end; + +type TblBordersUnitDecorator = class(TblBorders) +public + function Create(_obj: TblBorders); + function GetObject(); + function Convert(); +private + object_: TblBorders; +end; + +type TblBorderUnitDecorator = class(TblBorder) +public + function Create(_obj: TblBorder); + function GetObject(); + function Convert(); +private + object_: TblBorder; +end; + +type TblGridUnitDecorator = class(TblGrid) +public + function Create(_obj: TblGrid); + function GetObject(); + function Convert(); +private + object_: TblGrid; +end; + +type GridColUnitDecorator = class(GridCol) +public + function Create(_obj: GridCol); + function GetObject(); + function Convert(); +private + object_: GridCol; +end; + +type TrUnitDecorator = class(Tr) +public + function Create(_obj: Tr); + function GetObject(); + function Convert(); +private + object_: Tr; +end; + +type TrPrUnitDecorator = class(TrPr) +public + function Create(_obj: TrPr); + function GetObject(); + function Convert(); +private + object_: TrPr; +end; + +type InsUnitDecorator = class(Ins) +public + function Create(_obj: Ins); + function GetObject(); + function Convert(); +private + object_: Ins; +end; + +type CnfStyleUnitDecorator = class(CnfStyle) +public + function Create(_obj: CnfStyle); + function GetObject(); + function Convert(); +private + object_: CnfStyle; +end; + +type TrHeightUnitDecorator = class(TrHeight) +public + function Create(_obj: TrHeight); + function GetObject(); + function Convert(); +private + object_: TrHeight; +end; + +type TcUnitDecorator = class(Tc) +public + function Create(_obj: Tc); + function GetObject(); + function Convert(); +private + object_: Tc; +end; + +type TcPrUnitDecorator = class(TcPr) +public + function Create(_obj: TcPr); + function GetObject(); + function Convert(); +private + object_: TcPr; +end; + +type TcBordersUnitDecorator = class(TcBorders) +public + function Create(_obj: TcBorders); + function GetObject(); + function Convert(); +private + object_: TcBorders; +end; + +type TcBorderUnitDecorator = class(TcBorder) +public + function Create(_obj: TcBorder); + function GetObject(); + function Convert(); +private + object_: TcBorder; +end; + +type GridSpanUnitDecorator = class(GridSpan) +public + function Create(_obj: GridSpan); + function GetObject(); + function Convert(); +private + object_: GridSpan; +end; + +type ShdUnitDecorator = class(Shd) +public + function Create(_obj: Shd); + function GetObject(); + function Convert(); +private + object_: Shd; +end; + +type SdtUnitDecorator = class(Sdt) +public + function Create(_obj: Sdt); + function GetObject(); + function Convert(); +private + object_: Sdt; +end; + +type SdtPrUnitDecorator = class(SdtPr) +public + function Create(_obj: SdtPr); + function GetObject(); + function Convert(); +private + object_: SdtPr; +end; + +type DocPartObjUnitDecorator = class(DocPartObj) +public + function Create(_obj: DocPartObj); + function GetObject(); + function Convert(); +private + object_: DocPartObj; +end; + +type SdtEndPrUnitDecorator = class(SdtEndPr) +public + function Create(_obj: SdtEndPr); + function GetObject(); + function Convert(); +private + object_: SdtEndPr; +end; + +type SdtContentUnitDecorator = class(SdtContent) +public + function Create(_obj: SdtContent); + function GetObject(); + function Convert(); +private + object_: SdtContent; +end; + +type SectPrUnitDecorator = class(SectPr) +public + function Create(_obj: SectPr); + function GetObject(); + function Convert(); +private + object_: SectPr; +end; + +type ReferenceUnitDecorator = class(Reference) +public + function Create(_obj: Reference); + function GetObject(); + function Convert(); +private + object_: Reference; +end; + +type PgNumTypeUnitDecorator = class(PgNumType) +public + function Create(_obj: PgNumType); + function GetObject(); + function Convert(); +private + object_: PgNumType; +end; + +type PgSzUnitDecorator = class(PgSz) +public + function Create(_obj: PgSz); + function GetObject(); + function Convert(); +private + object_: PgSz; +end; + +type PgMarUnitDecorator = class(PgMar) +public + function Create(_obj: PgMar); + function GetObject(); + function Convert(); +private + object_: PgMar; +end; + +type ColsUnitDecorator = class(Cols) +public + function Create(_obj: Cols); + function GetObject(); + function Convert(); +private + object_: Cols; +end; + +type ColUnitDecorator = class(Col) +public + function Create(_obj: Col); + function GetObject(); + function Convert(); +private + object_: Col; +end; + +type DocGridUnitDecorator = class(DocGrid) +public + function Create(_obj: DocGrid); + function GetObject(); + function Convert(); +private + object_: DocGrid; +end; + +type EndnotesUnitDecorator = class(Endnotes) +public + function Create(_obj: Endnotes); + function GetObject(); + function Convert(); +private + object_: Endnotes; +end; + +type EndnoteUnitDecorator = class(Endnote) +public + function Create(_obj: Endnote); + function GetObject(); + function Convert(); +private + object_: Endnote; +end; + +type FootnotesUnitDecorator = class(Footnotes) +public + function Create(_obj: Footnotes); + function GetObject(); + function Convert(); +private + object_: Footnotes; +end; + +type FootnoteUnitDecorator = class(Footnote) +public + function Create(_obj: Footnote); + function GetObject(); + function Convert(); +private + object_: Footnote; +end; + +type FontsUnitDecorator = class(Fonts) +public + function Create(_obj: Fonts); + function GetObject(); + function Convert(); +private + object_: Fonts; +end; + +type FontUnitDecorator = class(Font) +public + function Create(_obj: Font); + function GetObject(); + function Convert(); +private + object_: Font; +end; + +type SigUnitDecorator = class(Sig) +public + function Create(_obj: Sig); + function GetObject(); + function Convert(); +private + object_: Sig; +end; + +type SettingsUnitDecorator = class(Settings) +public + function Create(_obj: Settings); + function GetObject(); + function Convert(); +private + object_: Settings; +end; + +type ZoomUnitDecorator = class(Zoom) +public + function Create(_obj: Zoom); + function GetObject(); + function Convert(); +private + object_: Zoom; +end; + +type HdrShapeDefaultsUnitDecorator = class(HdrShapeDefaults) +public + function Create(_obj: HdrShapeDefaults); + function GetObject(); + function Convert(); +private + object_: HdrShapeDefaults; +end; + +type ShapeDefaultsUnitDecorator = class(ShapeDefaults) +public + function Create(_obj: ShapeDefaults); + function GetObject(); + function Convert(); +private + object_: ShapeDefaults; +end; + +type FootnotePrUnitDecorator = class(FootnotePr) +public + function Create(_obj: FootnotePr); + function GetObject(); + function Convert(); +private + object_: FootnotePr; +end; + +type EndnotePrUnitDecorator = class(EndnotePr) +public + function Create(_obj: EndnotePr); + function GetObject(); + function Convert(); +private + object_: EndnotePr; +end; + +type CompatUnitDecorator = class(Compat) +public + function Create(_obj: Compat); + function GetObject(); + function Convert(); +private + object_: Compat; +end; + +type CompatSettingUnitDecorator = class(CompatSetting) +public + function Create(_obj: CompatSetting); + function GetObject(); + function Convert(); +private + object_: CompatSetting; +end; + +type RsidsUnitDecorator = class(Rsids) +public + function Create(_obj: Rsids); + function GetObject(); + function Convert(); +private + object_: Rsids; +end; + +type ThemeFontLangUnitDecorator = class(ThemeFontLang) +public + function Create(_obj: ThemeFontLang); + function GetObject(); + function Convert(); +private + object_: ThemeFontLang; +end; + +type ClrSchemeMappingUnitDecorator = class(ClrSchemeMapping) +public + function Create(_obj: ClrSchemeMapping); + function GetObject(); + function Convert(); +private + object_: ClrSchemeMapping; +end; + +type ShapeDefaults2UnitDecorator = class(ShapeDefaults2) +public + function Create(_obj: ShapeDefaults2); + function GetObject(); + function Convert(); +private + object_: ShapeDefaults2; +end; + +type ShapeLayoutUnitDecorator = class(ShapeLayout) +public + function Create(_obj: ShapeLayout); + function GetObject(); + function Convert(); +private + object_: ShapeLayout; +end; + +type IdMapUnitDecorator = class(IdMap) +public + function Create(_obj: IdMap); + function GetObject(); + function Convert(); +private + object_: IdMap; +end; + +type StylesUnitDecorator = class(Styles) +public + function Create(_obj: Styles); + function GetObject(); + function Convert(); +private + object_: Styles; +end; + +type DocDefaultsUnitDecorator = class(DocDefaults) +public + function Create(_obj: DocDefaults); + function GetObject(); + function Convert(); +private + object_: DocDefaults; +end; + +type RPrDefaultUnitDecorator = class(RPrDefault) +public + function Create(_obj: RPrDefault); + function GetObject(); + function Convert(); +private + object_: RPrDefault; +end; + +type PPrDefaultUnitDecorator = class(PPrDefault) +public + function Create(_obj: PPrDefault); + function GetObject(); + function Convert(); +private + object_: PPrDefault; +end; + +type LatenStylesUnitDecorator = class(LatenStyles) +public + function Create(_obj: LatenStyles); + function GetObject(); + function Convert(); +private + object_: LatenStyles; +end; + +type LsdExceptionUnitDecorator = class(LsdException) +public + function Create(_obj: LsdException); + function GetObject(); + function Convert(); +private + object_: LsdException; +end; + +type StyleUnitDecorator = class(Style) +public + function Create(_obj: Style); + function GetObject(); + function Convert(); +private + object_: Style; +end; + +type TblStylePrUnitDecorator = class(TblStylePr) +public + function Create(_obj: TblStylePr); + function GetObject(); + function Convert(); +private + object_: TblStylePr; +end; + +type TblIndUnitDecorator = class(TblInd) +public + function Create(_obj: TblInd); + function GetObject(); + function Convert(); +private + object_: TblInd; +end; + +type TblCellMarUnitDecorator = class(TblCellMar) +public + function Create(_obj: TblCellMar); + function GetObject(); + function Convert(); +private + object_: TblCellMar; +end; + +type WebSettingsUnitDecorator = class(WebSettings) +public + function Create(_obj: WebSettings); + function GetObject(); + function Convert(); +private + object_: WebSettings; +end; + +type AlternateContentUnitDecorator = class(AlternateContent) +public + function Create(_obj: AlternateContent); + function GetObject(); + function Convert(); +private + object_: AlternateContent; +end; + +type ChoiceUnitDecorator = class(Choice) +public + function Create(_obj: Choice); + function GetObject(); + function Convert(); +private + object_: Choice; +end; + +type FallbackUnitDecorator = class(Fallback) +public + function Create(_obj: Fallback); + function GetObject(); + function Convert(); +private + object_: Fallback; +end; + +type PictUnitDecorator = class(Pict) +public + function Create(_obj: Pict); + function GetObject(); + function Convert(); +private + object_: Pict; +end; + +type FtrUnitDecorator = class(Ftr) +public + function Create(_obj: Ftr); + function GetObject(); + function Convert(); +private + object_: Ftr; +end; + +type HdrUnitDecorator = class(Hdr) +public + function Create(_obj: Hdr); + function GetObject(); + function Convert(); +private + object_: Hdr; +end; + +type CommentsUnitDecorator = class(Comments) +public + function Create(_obj: Comments); + function GetObject(); + function Convert(); +private + object_: Comments; +end; + +type CommentUnitDecorator = class(Comment) +public + function Create(_obj: Comment); + function GetObject(); + function Convert(); +private + object_: Comment; +end; + +type NumberingUnitDecorator = class(Numbering) +public + function Create(_obj: Numbering); + function GetObject(); + function Convert(); +private + object_: Numbering; +end; + +type NumUnitDecorator = class(Num) +public + function Create(_obj: Num); + function GetObject(); + function Convert(); +private + object_: Num; +end; + +type AbstractNumUnitDecorator = class(AbstractNum) +public + function Create(_obj: AbstractNum); + function GetObject(); + function Convert(); +private + object_: AbstractNum; +end; + +type LvlUnitDecorator = class(Lvl) +public + function Create(_obj: Lvl); + function GetObject(); + function Convert(); +private + object_: Lvl; +end; + +implementation + +function PropertiesUnitDecorator.Create(_obj: Properties); +begin + class(Properties).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PropertiesUnitDecorator.GetObject(); +begin + return object_; +end; + +function PropertiesUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTemplate) then + if not ifnil(object_.XmlChildTotalTime) then + if not ifnil(object_.XmlChildPages) then + if not ifnil(object_.XmlChildWords) then + if not ifnil(object_.XmlChildCharacters) then + if not ifnil(object_.XmlChildApplication) then + if not ifnil(object_.XmlChildDocSecurity) then + if not ifnil(object_.XmlChildLines) then + if not ifnil(object_.XmlChildParagraphs) then + if not ifnil(object_.XmlChildScaleCrop) then + if not ifnil(object_.XmlChildCompany) then + if not ifnil(object_.XmlChildLinksUpToDate) then + if not ifnil(object_.XmlChildCharactersWithSpaces) then + if not ifnil(object_.XmlChildSharedDoc) then + if not ifnil(object_.XmlChildHyperlinksChanged) then + if not ifnil(object_.XmlChildAppVersion) then + tslassigning := tslassigning_backup; +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_.XmlAttrMcIgnorable) then + {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value; + if not ifnil(object_.XmlChildBody) then + {self.}XmlChildBody := new BodyUnitDecorator(object_.XmlChildBody); + tslassigning := tslassigning_backup; +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; + +function PUnitDecorator.Create(_obj: P); +begin + class(P).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PUnitDecorator.GetObject(); +begin + return object_; +end; + +function PUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrParaId) then + {self.}ParaId := object_.XmlAttrParaId.Value; + if not ifnil(object_.XmlAttrTextId) then + {self.}TextId := object_.XmlAttrTextId.Value; + if not ifnil(object_.XmlAttrRsidR) then + {self.}RsidR := object_.XmlAttrRsidR.Value; + if not ifnil(object_.XmlAttrRsidRPr) then + {self.}RsidRPr := object_.XmlAttrRsidRPr.Value; + if not ifnil(object_.XmlAttrRsidRDefault) then + {self.}RsidRDefault := object_.XmlAttrRsidRDefault.Value; + if not ifnil(object_.XmlAttrRsidP) then + {self.}RsidP := object_.XmlAttrRsidP.Value; + if not ifnil(object_.XmlChildPPr) then + {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); + if not ifnil(object_.XmlChildOMathPara) then + {self.}XmlChildOMathPara := new OMathParaUnitDecorator(object_.XmlChildOMathPara); + if not ifnil(object_.XmlChildIns) then + {self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns); + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + elems := object_.CommentRangeStarts(); + for _,elem in elems do + {self.}AppendChild(new CommentRangeUnitDecorator(elem)); + elems := object_.CommentRangeEnds(); + for _,elem in elems do + {self.}AppendChild(new CommentRangeUnitDecorator(elem)); + elems := object_.BookmarkStarts(); + for _,elem in elems do + {self.}AppendChild(new BookmarkUnitDecorator(elem)); + elems := object_.BookmarkEnds(); + for _,elem in elems do + {self.}AppendChild(new BookmarkUnitDecorator(elem)); + elems := object_.Hyperlinks(); + for _,elem in elems do + {self.}AppendChild(new HyperLinkUnitDecorator(elem)); + elems := object_.FldSimples(); + for _,elem in elems do + {self.}AppendChild(new FldSimpleUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +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; + +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; + +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; + +function PPrUnitDecorator.Create(_obj: PPr); +begin + class(PPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function PPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildSectPr) then + {self.}XmlChildSectPr := new SectPrUnitDecorator(object_.XmlChildSectPr); + if not ifnil(object_.XmlChildTabs) then + {self.}XmlChildTabs := new TabsUnitDecorator(object_.XmlChildTabs); + if not ifnil(object_.XmlChildWidowControl) then + {self.}WidowControl.Copy(object_.XmlChildWidowControl); + if not ifnil(object_.XmlChildSnapToGrid) then + {self.}SnapToGrid.Copy(object_.XmlChildSnapToGrid); + if not ifnil(object_.XmlChildPStyle) then + {self.}XmlChildPStyle := new PureWValUnitDecorator(object_.XmlChildPStyle); + if not ifnil(object_.XmlChildNumPr) then + {self.}XmlChildNumPr := new NumPrUnitDecorator(object_.XmlChildNumPr); + if not ifnil(object_.XmlChildJc) then + {self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc); + if not ifnil(object_.XmlChildInd) then + {self.}XmlChildInd := new IndUnitDecorator(object_.XmlChildInd); + if not ifnil(object_.XmlChildKeepNext) then + {self.}KeepNext.Copy(object_.XmlChildKeepNext); + if not ifnil(object_.XmlChildKeepLines) then + {self.}KeepLines.Copy(object_.XmlChildKeepLines); + if not ifnil(object_.XmlChildPageBreakBefore) then + {self.}PageBreakBefore.Copy(object_.XmlChildPageBreakBefore); + if not ifnil(object_.XmlChildAdjustRightInd) then + {self.}XmlChildAdjustRightInd := new PureWValUnitDecorator(object_.XmlChildAdjustRightInd); + if not ifnil(object_.XmlChildSpacing) then + {self.}XmlChildSpacing := new SpacingUnitDecorator(object_.XmlChildSpacing); + if not ifnil(object_.XmlChildOutlineLvl) then + {self.}XmlChildOutlineLvl := new PureWValUnitDecorator(object_.XmlChildOutlineLvl); + if not ifnil(object_.XmlChildAutoSpaceDE) then + {self.}XmlChildAutoSpaceDE := new PureWValUnitDecorator(object_.XmlChildAutoSpaceDE); + if not ifnil(object_.XmlChildAutoSpaceDN) then + {self.}XmlChildAutoSpaceDN := new PureWValUnitDecorator(object_.XmlChildAutoSpaceDN); + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + if not ifnil(object_.XmlChildPBdr) then + {self.}XmlChildPBdr := new PBdrUnitDecorator(object_.XmlChildPBdr); + if not ifnil(object_.XmlChildContextualSpacing) then + {self.}ContextualSpacing.Copy(object_.XmlChildContextualSpacing); + if not ifnil(object_.XmlChildShd) then + {self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd); + if not ifnil(object_.XmlChildWordWrap) then + {self.}XmlChildWordWrap := new PureWValUnitDecorator(object_.XmlChildWordWrap); + if not ifnil(object_.XmlChildTextboxTightWrap) then + {self.}XmlChildTextboxTightWrap := new PureWValUnitDecorator(object_.XmlChildTextboxTightWrap); + tslassigning := tslassigning_backup; +end; + +function PBdrUnitDecorator.Create(_obj: PBdr); +begin + class(PBdr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PBdrUnitDecorator.GetObject(); +begin + return object_; +end; + +function PBdrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTop) then + {self.}XmlChildTop := new PBorderUnitDecorator(object_.XmlChildTop); + if not ifnil(object_.XmlChildBottom) then + {self.}XmlChildBottom := new PBorderUnitDecorator(object_.XmlChildBottom); + tslassigning := tslassigning_backup; +end; + +function PBorderUnitDecorator.Create(_obj: PBorder); +begin + class(PBorder).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PBorderUnitDecorator.GetObject(); +begin + return object_; +end; + +function PBorderUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrColor) then + {self.}Color := object_.XmlAttrColor.Value; + if not ifnil(object_.XmlAttrSpace) then + {self.}Space := object_.XmlAttrSpace.Value; + if not ifnil(object_.XmlAttrThemeColor) then + {self.}ThemeColor := object_.XmlAttrThemeColor.Value; + if not ifnil(object_.XmlAttrThemeTint) then + {self.}ThemeTint := object_.XmlAttrThemeTint.Value; + if not ifnil(object_.XmlAttrSz) then + {self.}Sz := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrSz.Value); + tslassigning := tslassigning_backup; +end; + +function TabsUnitDecorator.Create(_obj: Tabs); +begin + class(Tabs).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TabsUnitDecorator.GetObject(); +begin + return object_; +end; + +function TabsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Tabs(); + for _,elem in elems do + {self.}AppendChild(new TabUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function TabUnitDecorator.Create(_obj: Tab); +begin + class(Tab).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TabUnitDecorator.GetObject(); +begin + return object_; +end; + +function TabUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrLeader) then + {self.}Leader := object_.XmlAttrLeader.Value; + if not ifnil(object_.XmlAttrPos) then + {self.}Pos := object_.XmlAttrPos.Value; + tslassigning := tslassigning_backup; +end; + +function NumPrUnitDecorator.Create(_obj: NumPr); +begin + class(NumPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NumPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function NumPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildIlvl) then + {self.}XmlChildIlvl := new PureWValUnitDecorator(object_.XmlChildIlvl); + if not ifnil(object_.XmlChildNumId) then + {self.}XmlChildNumId := new PureWValUnitDecorator(object_.XmlChildNumId); + tslassigning := tslassigning_backup; +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; + +function SpacingUnitDecorator.Create(_obj: Spacing); +begin + class(Spacing).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SpacingUnitDecorator.GetObject(); +begin + return object_; +end; + +function SpacingUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrBefore) then + {self.}Before := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrBefore.Value); + if not ifnil(object_.XmlAttrBeforeLines) then + {self.}BeforeLines := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrBeforeLines.Value); + if not ifnil(object_.XmlAttrBeforeAutospacing) then + {self.}BeforeAutospacing := object_.XmlAttrBeforeAutospacing.Value; + if not ifnil(object_.XmlAttrAfter) then + {self.}After := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrAfter.Value); + if not ifnil(object_.XmlAttrAfterLines) then + {self.}AfterLines := TSSafeUnitConverter.PercentToNumber(object_.XmlAttrAfterLines.Value); + if not ifnil(object_.XmlAttrAfterAutospacing) then + {self.}AfterAutospacing := object_.XmlAttrAfterAutospacing.Value; + if not ifnil(object_.XmlAttrLine) then + {self.}Line := TSSafeUnitConverter.ToInt(object_.XmlAttrLine.Value); + if not ifnil(object_.XmlAttrLineRule) then + {self.}LineRule := object_.XmlAttrLineRule.Value; + tslassigning := tslassigning_backup; +end; + +function RPrUnitDecorator.Create(_obj: RPr); +begin + class(RPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function RPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildNoProof) then + {self.}XmlChildNoProof := new PureValUnitDecorator(object_.XmlChildNoProof); + if not ifnil(object_.XmlChildPosition) then + {self.}XmlChildPosition := new PureValUnitDecorator(object_.XmlChildPosition); + if not ifnil(object_.XmlChildWebHidden) then + {self.}XmlChildWebHidden := new PureWValUnitDecorator(object_.XmlChildWebHidden); + if not ifnil(object_.XmlChildRStyle) then + {self.}XmlChildRStyle := new PureWValUnitDecorator(object_.XmlChildRStyle); + if not ifnil(object_.XmlChildIns) then + {self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns); + if not ifnil(object_.XmlChildRFonts) then + {self.}XmlChildRFonts := new RFontsUnitDecorator(object_.XmlChildRFonts); + if not ifnil(object_.XmlChildKern) then + {self.}XmlChildKern := new PureWValUnitDecorator(object_.XmlChildKern); + if not ifnil(object_.XmlChildI) then + {self.}I.Copy(object_.XmlChildI); + if not ifnil(object_.XmlChildICs) then + {self.}ICs.Copy(object_.XmlChildICs); + if not ifnil(object_.XmlChildB) then + {self.}B.Copy(object_.XmlChildB); + if not ifnil(object_.XmlChildBCs) then + {self.}BCs.Copy(object_.XmlChildBCs); + if not ifnil(object_.XmlChildStrike) then + {self.}Strike.Copy(object_.XmlChildStrike); + if not ifnil(object_.XmlChildColor) then + {self.}XmlChildColor := new ColorUnitDecorator(object_.XmlChildColor); + if not ifnil(object_.XmlChildSz) then + {self.}XmlChildSz := new SzUnitDecorator(object_.XmlChildSz); + if not ifnil(object_.XmlChildSzCs) then + {self.}XmlChildSzCs := new SzCsUnitDecorator(object_.XmlChildSzCs); + if not ifnil(object_.XmlChildU) then + {self.}U.Copy(object_.XmlChildU); + if not ifnil(object_.XmlChildLang) then + {self.}XmlChildLang := new LangUnitDecorator(object_.XmlChildLang); + if not ifnil(object_.XmlChildVertAlign) then + {self.}XmlChildVertAlign := new PureWValUnitDecorator(object_.XmlChildVertAlign); + if not ifnil(object_.XmlChildLigatures) then + {self.}XmlChildLigatures := new PureWValUnitDecorator(object_.XmlChildLigatures); + tslassigning := tslassigning_backup; +end; + +function RFontsUnitDecorator.Create(_obj: RFonts); +begin + class(RFonts).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RFontsUnitDecorator.GetObject(); +begin + return object_; +end; + +function RFontsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrAscii) then + {self.}Ascii := object_.XmlAttrAscii.Value; + if not ifnil(object_.XmlAttrAsciiTheme) then + {self.}AsciiTheme := object_.XmlAttrAsciiTheme.Value; + if not ifnil(object_.XmlAttrEastAsia) then + {self.}EastAsia := object_.XmlAttrEastAsia.Value; + if not ifnil(object_.XmlAttrEastAsiaTheme) then + {self.}EastAsiaTheme := object_.XmlAttrEastAsiaTheme.Value; + if not ifnil(object_.XmlAttrHAnsi) then + {self.}HAnsi := object_.XmlAttrHAnsi.Value; + if not ifnil(object_.XmlAttrHAnsiTheme) then + {self.}HAnsiTheme := object_.XmlAttrHAnsiTheme.Value; + if not ifnil(object_.XmlAttrHint) then + {self.}Hint := object_.XmlAttrHint.Value; + if not ifnil(object_.XmlAttrCs) then + {self.}Cs := object_.XmlAttrCs.Value; + if not ifnil(object_.XmlAttrCsTheme) then + {self.}CsTheme := object_.XmlAttrCsTheme.Value; + tslassigning := tslassigning_backup; +end; + +function SzCsUnitDecorator.Create(_obj: SzCs); +begin + class(SzCs).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SzCsUnitDecorator.GetObject(); +begin + return object_; +end; + +function SzCsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrVal.Value); + tslassigning := tslassigning_backup; +end; + +function SzUnitDecorator.Create(_obj: Sz); +begin + class(Sz).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SzUnitDecorator.GetObject(); +begin + return object_; +end; + +function SzUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := TSSafeUnitConverter.HalfPointToPoints(object_.XmlAttrVal.Value); + tslassigning := tslassigning_backup; +end; + +function PureWValUnitDecorator.Create(_obj: PureWVal); +begin + class(PureWVal).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PureWValUnitDecorator.GetObject(); +begin + return object_; +end; + +function PureWValUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + tslassigning := tslassigning_backup; +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; + +function LangUnitDecorator.Create(_obj: Lang); +begin + class(Lang).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LangUnitDecorator.GetObject(); +begin + return object_; +end; + +function LangUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrEastAsia) then + {self.}EastAsia := object_.XmlAttrEastAsia.Value; + if not ifnil(object_.XmlAttrBidi) then + {self.}Bidi := object_.XmlAttrBidi.Value; + tslassigning := tslassigning_backup; +end; + +function RUnitDecorator.Create(_obj: R); +begin + class(R).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RUnitDecorator.GetObject(); +begin + return object_; +end; + +function RUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrWRsidRPr) then + {self.}WRsidRPr := object_.XmlAttrWRsidRPr.Value; + if not ifnil(object_.XmlAttrAnchor) then + {self.}Anchor := object_.XmlAttrAnchor.Value; + if not ifnil(object_.XmlAttrHistory) then + {self.}History := object_.XmlAttrHistory.Value; + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + if not ifnil(object_.XmlChildBr) then + {self.}XmlChildBr := new BrUnitDecorator(object_.XmlChildBr); + if not ifnil(object_.XmlChildFldChar) then + {self.}XmlChildFldChar := new FldCharUnitDecorator(object_.XmlChildFldChar); + if not ifnil(object_.XmlChildInstrText) then + {self.}XmlChildInstrText := new InstrTextUnitDecorator(object_.XmlChildInstrText); + if not ifnil(object_.XmlChildSeparator) then + {self.}Separator.Copy(object_.XmlChildSeparator); + if not ifnil(object_.XmlChildContinuationSeparator) then + {self.}ContinuationSeparator.Copy(object_.XmlChildContinuationSeparator); + if not ifnil(object_.XmlChildLastRenderedPageBreak) then + {self.}LastRenderedPageBreak.Copy(object_.XmlChildLastRenderedPageBreak); + if not ifnil(object_.XmlChildAlternateContent) then + {self.}XmlChildAlternateContent := new AlternateContentUnitDecorator(object_.XmlChildAlternateContent); + if not ifnil(object_.XmlChildDrawing) then + {self.}XmlChildDrawing := new DrawingUnitDecorator(object_.XmlChildDrawing); + if not ifnil(object_.XmlChildT) then + {self.}XmlChildT := new TUnitDecorator(object_.XmlChildT); + if not ifnil(object_.XmlChildObject) then + {self.}XmlChildObject := new ObjectUnitDecorator(object_.XmlChildObject); + if not ifnil(object_.XmlChildFootnoteReference) then + {self.}XmlChildFootnoteReference := new FootnoteReferenceUnitDecorator(object_.XmlChildFootnoteReference); + if not ifnil(object_.XmlChildFootnoteRef) then + {self.}FootnoteRef.Copy(object_.XmlChildFootnoteRef); + tslassigning := tslassigning_backup; +end; + +function ObjectUnitDecorator.Create(_obj: Object); +begin + class(Object).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ObjectUnitDecorator.GetObject(); +begin + return object_; +end; + +function ObjectUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrDxaOrig) then + {self.}DxaOrig := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrDxaOrig.Value); + if not ifnil(object_.XmlAttrDyaOrig) then + {self.}DyaOrig := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrDyaOrig.Value); + if not ifnil(object_.XmlAttrAnchorId) then + {self.}AnchorId := object_.XmlAttrAnchorId.Value; + if not ifnil(object_.XmlChildShapetype) then + {self.}XmlChildShapetype := new ShapetypeUnitDecorator(object_.XmlChildShapetype); + if not ifnil(object_.XmlChildShape) then + {self.}XmlChildShape := new ShapeUnitDecorator(object_.XmlChildShape); + if not ifnil(object_.XmlChildOLEObject) then + {self.}XmlChildOLEObject := new OLEObjectUnitDecorator(object_.XmlChildOLEObject); + tslassigning := tslassigning_backup; +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; + +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; + +function InstrTextUnitDecorator.Create(_obj: InstrText); +begin + class(InstrText).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function InstrTextUnitDecorator.GetObject(); +begin + return object_; +end; + +function InstrTextUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrSpace) then + {self.}Space := object_.XmlAttrSpace.Value; + tslassigning := tslassigning_backup; +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; + +function TxbxContentUnitDecorator.Create(_obj: TxbxContent); +begin + class(TxbxContent).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TxbxContentUnitDecorator.GetObject(); +begin + return object_; +end; + +function TxbxContentUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Ps(); + for _,elem in elems do + {self.}AppendChild(new PUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function TUnitDecorator.Create(_obj: T); +begin + class(T).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TUnitDecorator.GetObject(); +begin + return object_; +end; + +function TUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrSpace) then + {self.}Space := object_.XmlAttrSpace.Value; + tslassigning := tslassigning_backup; +end; + +function TblUnitDecorator.Create(_obj: Tbl); +begin + class(Tbl).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTblPr) then + {self.}XmlChildTblPr := new TblPrUnitDecorator(object_.XmlChildTblPr); + if not ifnil(object_.XmlChildTblGrid) then + {self.}XmlChildTblGrid := new TblGridUnitDecorator(object_.XmlChildTblGrid); + elems := object_.Trs(); + for _,elem in elems do + {self.}AppendChild(new TrUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function TblPrUnitDecorator.Create(_obj: TblPr); +begin + class(TblPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildJc) then + {self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc); + if not ifnil(object_.XmlChildShd) then + {self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd); + if not ifnil(object_.XmlChildTblStyle) then + {self.}XmlChildTblStyle := new PureWValUnitDecorator(object_.XmlChildTblStyle); + if not ifnil(object_.XmlChildTblW) then + {self.}XmlChildTblW := new TblWUnitDecorator(object_.XmlChildTblW); + if not ifnil(object_.XmlChildTblInd) then + {self.}XmlChildTblInd := new TblWUnitDecorator(object_.XmlChildTblInd); + if not ifnil(object_.XmlChildTblLayout) then + {self.}XmlChildTblLayout := new TblLayoutUnitDecorator(object_.XmlChildTblLayout); + if not ifnil(object_.XmlChildTblLook) then + {self.}XmlChildTblLook := new TblLookUnitDecorator(object_.XmlChildTblLook); + if not ifnil(object_.XmlChildTblBorders) then + {self.}XmlChildTblBorders := new TblBordersUnitDecorator(object_.XmlChildTblBorders); + if not ifnil(object_.XmlChildTblCellMar) then + {self.}XmlChildTblCellMar := new TblCellMarUnitDecorator(object_.XmlChildTblCellMar); + if not ifnil(object_.XmlChildTblCellSpacing) then + {self.}XmlChildTblCellSpacing := new TblCellSpacingUnitDecorator(object_.XmlChildTblCellSpacing); + if not ifnil(object_.XmlChildTblCaption) then + {self.}XmlChildTblCaption := new PureWValUnitDecorator(object_.XmlChildTblCaption); + if not ifnil(object_.XmlChildTblDescription) then + {self.}XmlChildTblDescription := new PureWValUnitDecorator(object_.XmlChildTblDescription); + if not ifnil(object_.XmlChildTblStyleRowBandSize) then + {self.}XmlChildTblStyleRowBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleRowBandSize); + if not ifnil(object_.XmlChildTblStyleColBandSize) then + {self.}XmlChildTblStyleColBandSize := new PureWValUnitDecorator(object_.XmlChildTblStyleColBandSize); + tslassigning := tslassigning_backup; +end; + +function TblCellSpacingUnitDecorator.Create(_obj: TblCellSpacing); +begin + class(TblCellSpacing).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblCellSpacingUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblCellSpacingUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrW) then + {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + tslassigning := tslassigning_backup; +end; + +function TblWUnitDecorator.Create(_obj: TblW); +begin + class(TblW).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblWUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblWUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrW) then + {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + tslassigning := tslassigning_backup; +end; + +function TblLayoutUnitDecorator.Create(_obj: TblLayout); +begin + class(TblLayout).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblLayoutUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblLayoutUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + tslassigning := tslassigning_backup; +end; + +function TblLookUnitDecorator.Create(_obj: TblLook); +begin + class(TblLook).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblLookUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblLookUnitDecorator.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_.XmlAttrNoHBand) then + {self.}NoHBand := object_.XmlAttrNoHBand.Value; + if not ifnil(object_.XmlAttrNoVBand) then + {self.}NoVBand := object_.XmlAttrNoVBand.Value; + tslassigning := tslassigning_backup; +end; + +function TblBordersUnitDecorator.Create(_obj: TblBorders); +begin + class(TblBorders).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblBordersUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblBordersUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTop) then + {self.}XmlChildTop := new TblBorderUnitDecorator(object_.XmlChildTop); + if not ifnil(object_.XmlChildLeft) then + {self.}XmlChildLeft := new TblBorderUnitDecorator(object_.XmlChildLeft); + if not ifnil(object_.XmlChildBottom) then + {self.}XmlChildBottom := new TblBorderUnitDecorator(object_.XmlChildBottom); + if not ifnil(object_.XmlChildRight) then + {self.}XmlChildRight := new TblBorderUnitDecorator(object_.XmlChildRight); + if not ifnil(object_.XmlChildInsideH) then + {self.}XmlChildInsideH := new TblBorderUnitDecorator(object_.XmlChildInsideH); + if not ifnil(object_.XmlChildInsideV) then + {self.}XmlChildInsideV := new TblBorderUnitDecorator(object_.XmlChildInsideV); + tslassigning := tslassigning_backup; +end; + +function TblBorderUnitDecorator.Create(_obj: TblBorder); +begin + class(TblBorder).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblBorderUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblBorderUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrColor) then + {self.}Color := object_.XmlAttrColor.Value; + if not ifnil(object_.XmlAttrSpace) then + {self.}Space := object_.XmlAttrSpace.Value; + if not ifnil(object_.XmlAttrThemeColor) then + {self.}ThemeColor := object_.XmlAttrThemeColor.Value; + if not ifnil(object_.XmlAttrThemeTint) then + {self.}ThemeTint := object_.XmlAttrThemeTint.Value; + if not ifnil(object_.XmlAttrSz) then + {self.}Sz := TSSafeUnitConverter.EighthPointToPoints(object_.XmlAttrSz.Value); + tslassigning := tslassigning_backup; +end; + +function TblGridUnitDecorator.Create(_obj: TblGrid); +begin + class(TblGrid).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblGridUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblGridUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.GridCols(); + for _,elem in elems do + {self.}AppendChild(new GridColUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function TrUnitDecorator.Create(_obj: Tr); +begin + class(Tr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TrUnitDecorator.GetObject(); +begin + return object_; +end; + +function TrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrRsidR) then + {self.}RsidR := object_.XmlAttrRsidR.Value; + if not ifnil(object_.XmlAttrParaId) then + {self.}ParaId := object_.XmlAttrParaId.Value; + if not ifnil(object_.XmlAttrTextId) then + {self.}TextId := object_.XmlAttrTextId.Value; + if not ifnil(object_.XmlAttrRsidTr) then + {self.}RsidTr := object_.XmlAttrRsidTr.Value; + if not ifnil(object_.XmlChildTrPr) then + {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr); + elems := object_.Tcs(); + for _,elem in elems do + {self.}AppendChild(new TcUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function TrPrUnitDecorator.Create(_obj: TrPr); +begin + class(TrPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TrPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function TrPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTrHeight) then + {self.}XmlChildTrHeight := new TrHeightUnitDecorator(object_.XmlChildTrHeight); + if not ifnil(object_.XmlChildTblHeader) then + {self.}XmlChildTblHeader := new PureWValUnitDecorator(object_.XmlChildTblHeader); + if not ifnil(object_.XmlChildJc) then + {self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc); + if not ifnil(object_.XmlChildCantSplit) then + {self.}CantSplit.Copy(object_.XmlChildCantSplit); + if not ifnil(object_.XmlChildCnfStyle) then + {self.}XmlChildCnfStyle := new CnfStyleUnitDecorator(object_.XmlChildCnfStyle); + if not ifnil(object_.XmlChildIns) then + {self.}XmlChildIns := new InsUnitDecorator(object_.XmlChildIns); + tslassigning := tslassigning_backup; +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_.XmlAttrDateUtc) then + {self.}DateUtc := object_.XmlAttrDateUtc.Value; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function TrHeightUnitDecorator.Create(_obj: TrHeight); +begin + class(TrHeight).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TrHeightUnitDecorator.GetObject(); +begin + return object_; +end; + +function TrHeightUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrHRule) then + {self.}HRule := object_.XmlAttrHRule.Value; + if not ifnil(object_.XmlAttrval) then + {self.}val := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrval.Value); + tslassigning := tslassigning_backup; +end; + +function TcUnitDecorator.Create(_obj: Tc); +begin + class(Tc).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TcUnitDecorator.GetObject(); +begin + return object_; +end; + +function TcUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTcPr) then + {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr); + 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)); + tslassigning := tslassigning_backup; +end; + +function TcPrUnitDecorator.Create(_obj: TcPr); +begin + class(TcPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TcPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function TcPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTcW) then + {self.}XmlChildTcW := new TblWUnitDecorator(object_.XmlChildTcW); + if not ifnil(object_.XmlChildGridSpan) then + {self.}XmlChildGridSpan := new GridSpanUnitDecorator(object_.XmlChildGridSpan); + if not ifnil(object_.XmlChildVMerge) then + {self.}VMerge.Copy(object_.XmlChildVMerge); + if not ifnil(object_.XmlChildVAlign) then + {self.}XmlChildVAlign := new PureWValUnitDecorator(object_.XmlChildVAlign); + if not ifnil(object_.XmlChildHideMark) then + {self.}HideMark.Copy(object_.XmlChildHideMark); + if not ifnil(object_.XmlChildShd) then + {self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd); + if not ifnil(object_.XmlChildTcBorders) then + {self.}XmlChildTcBorders := new TcBordersUnitDecorator(object_.XmlChildTcBorders); + tslassigning := tslassigning_backup; +end; + +function TcBordersUnitDecorator.Create(_obj: TcBorders); +begin + class(TcBorders).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TcBordersUnitDecorator.GetObject(); +begin + return object_; +end; + +function TcBordersUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTop) then + {self.}XmlChildTop := new TcBorderUnitDecorator(object_.XmlChildTop); + if not ifnil(object_.XmlChildLeft) then + {self.}XmlChildLeft := new TcBorderUnitDecorator(object_.XmlChildLeft); + if not ifnil(object_.XmlChildBottom) then + {self.}XmlChildBottom := new TcBorderUnitDecorator(object_.XmlChildBottom); + if not ifnil(object_.XmlChildRight) then + {self.}XmlChildRight := new TcBorderUnitDecorator(object_.XmlChildRight); + if not ifnil(object_.XmlChildTl2Br) then + {self.}XmlChildTl2Br := new TcBorderUnitDecorator(object_.XmlChildTl2Br); + if not ifnil(object_.XmlChildTr2Bl) then + {self.}XmlChildTr2Bl := new TcBorderUnitDecorator(object_.XmlChildTr2Bl); + if not ifnil(object_.XmlChildInsideH) then + {self.}XmlChildInsideH := new TcBorderUnitDecorator(object_.XmlChildInsideH); + if not ifnil(object_.XmlChildInsideV) then + {self.}XmlChildInsideV := new TcBorderUnitDecorator(object_.XmlChildInsideV); + tslassigning := tslassigning_backup; +end; + +function TcBorderUnitDecorator.Create(_obj: TcBorder); +begin + class(TcBorder).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TcBorderUnitDecorator.GetObject(); +begin + return object_; +end; + +function TcBorderUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrColor) then + {self.}Color := object_.XmlAttrColor.Value; + if not ifnil(object_.XmlAttrSpace) then + {self.}Space := object_.XmlAttrSpace.Value; + if not ifnil(object_.XmlAttrThemeColor) then + {self.}ThemeColor := object_.XmlAttrThemeColor.Value; + if not ifnil(object_.XmlAttrThemeTint) then + {self.}ThemeTint := object_.XmlAttrThemeTint.Value; + if not ifnil(object_.XmlAttrSz) then + {self.}Sz := TSSafeUnitConverter.EighthPointToPoints(object_.XmlAttrSz.Value); + tslassigning := tslassigning_backup; +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; + +function ShdUnitDecorator.Create(_obj: Shd); +begin + class(Shd).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ShdUnitDecorator.GetObject(); +begin + return object_; +end; + +function ShdUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrColor) then + {self.}Color := object_.XmlAttrColor.Value; + if not ifnil(object_.XmlAttrFill) then + {self.}Fill := object_.XmlAttrFill.Value; + if not ifnil(object_.XmlAttrThemeFill) then + {self.}ThemeFill := object_.XmlAttrThemeFill.Value; + if not ifnil(object_.XmlAttrThemeFillTint) then + {self.}ThemeFillTint := object_.XmlAttrThemeFillTint.Value; + tslassigning := tslassigning_backup; +end; + +function SdtUnitDecorator.Create(_obj: Sdt); +begin + class(Sdt).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SdtUnitDecorator.GetObject(); +begin + return object_; +end; + +function SdtUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildSdtPr) then + {self.}XmlChildSdtPr := new SdtPrUnitDecorator(object_.XmlChildSdtPr); + if not ifnil(object_.XmlChildSdtEndPr) then + {self.}XmlChildSdtEndPr := new SdtEndPrUnitDecorator(object_.XmlChildSdtEndPr); + if not ifnil(object_.XmlChildSdtContent) then + {self.}XmlChildSdtContent := new SdtContentUnitDecorator(object_.XmlChildSdtContent); + tslassigning := tslassigning_backup; +end; + +function SdtPrUnitDecorator.Create(_obj: SdtPr); +begin + class(SdtPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SdtPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SdtPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + if not ifnil(object_.XmlChildId) then + {self.}XmlChildId := new PureWValUnitDecorator(object_.XmlChildId); + if not ifnil(object_.XmlChildDocPartObj) then + {self.}XmlChildDocPartObj := new DocPartObjUnitDecorator(object_.XmlChildDocPartObj); + tslassigning := tslassigning_backup; +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; + +function SdtEndPrUnitDecorator.Create(_obj: SdtEndPr); +begin + class(SdtEndPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SdtEndPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SdtEndPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function SdtContentUnitDecorator.Create(_obj: SdtContent); +begin + class(SdtContent).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SdtContentUnitDecorator.GetObject(); +begin + return object_; +end; + +function SdtContentUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Ps(); + for _,elem in elems do + {self.}AppendChild(new PUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function SectPrUnitDecorator.Create(_obj: SectPr); +begin + class(SectPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SectPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SectPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrRsidR) then + {self.}RsidR := object_.XmlAttrRsidR.Value; + if not ifnil(object_.XmlAttrRsidSect) then + {self.}RsidSect := object_.XmlAttrRsidSect.Value; + elems := object_.HeaderReferences(); + for _,elem in elems do + {self.}AppendChild(new ReferenceUnitDecorator(elem)); + elems := object_.FooterReferences(); + for _,elem in elems do + {self.}AppendChild(new ReferenceUnitDecorator(elem)); + if not ifnil(object_.XmlChildFootnotePr) then + {self.}XmlChildFootnotePr := new FootnotePrUnitDecorator(object_.XmlChildFootnotePr); + if not ifnil(object_.XmlChildEndnotePr) then + {self.}XmlChildEndnotePr := new EndnotePrUnitDecorator(object_.XmlChildEndnotePr); + if not ifnil(object_.XmlChildType) then + {self.}XmlChildType := new PureWValUnitDecorator(object_.XmlChildType); + if not ifnil(object_.XmlChildPgSz) then + {self.}XmlChildPgSz := new PgSzUnitDecorator(object_.XmlChildPgSz); + if not ifnil(object_.XmlChildPgMar) then + {self.}XmlChildPgMar := new PgMarUnitDecorator(object_.XmlChildPgMar); + if not ifnil(object_.XmlChildPgNumType) then + {self.}XmlChildPgNumType := new PgNumTypeUnitDecorator(object_.XmlChildPgNumType); + if not ifnil(object_.XmlChildCols) then + {self.}XmlChildCols := new ColsUnitDecorator(object_.XmlChildCols); + if not ifnil(object_.XmlChildTitlePg) then + {self.}TitlePg.Copy(object_.XmlChildTitlePg); + if not ifnil(object_.XmlChildDocGrid) then + {self.}XmlChildDocGrid := new DocGridUnitDecorator(object_.XmlChildDocGrid); + tslassigning := tslassigning_backup; +end; + +function ReferenceUnitDecorator.Create(_obj: Reference); +begin + class(Reference).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ReferenceUnitDecorator.GetObject(); +begin + return object_; +end; + +function ReferenceUnitDecorator.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; + tslassigning := tslassigning_backup; +end; + +function PgNumTypeUnitDecorator.Create(_obj: PgNumType); +begin + class(PgNumType).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PgNumTypeUnitDecorator.GetObject(); +begin + return object_; +end; + +function PgNumTypeUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrStart) then + {self.}Start := TSSafeUnitConverter.ToInt(object_.XmlAttrStart.Value); + tslassigning := tslassigning_backup; +end; + +function PgSzUnitDecorator.Create(_obj: PgSz); +begin + class(PgSz).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PgSzUnitDecorator.GetObject(); +begin + return object_; +end; + +function PgSzUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrW) then + {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); + if not ifnil(object_.XmlAttrH) then + {self.}H := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrH.Value); + if not ifnil(object_.XmlAttrOrient) then + {self.}Orient := object_.XmlAttrOrient.Value; + if not ifnil(object_.XmlAttrCode) then + {self.}Code := object_.XmlAttrCode.Value; + tslassigning := tslassigning_backup; +end; + +function PgMarUnitDecorator.Create(_obj: PgMar); +begin + class(PgMar).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PgMarUnitDecorator.GetObject(); +begin + return object_; +end; + +function PgMarUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrTop) then + {self.}Top := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrTop.Value); + if not ifnil(object_.XmlAttrRight) then + {self.}Right := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrRight.Value); + if not ifnil(object_.XmlAttrBottom) then + {self.}Bottom := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrBottom.Value); + if not ifnil(object_.XmlAttrLeft) then + {self.}Left := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrLeft.Value); + if not ifnil(object_.XmlAttrHeader) then + {self.}Header := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrHeader.Value); + if not ifnil(object_.XmlAttrFooter) then + {self.}Footer := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrFooter.Value); + if not ifnil(object_.XmlAttrGutter) then + {self.}Gutter := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrGutter.Value); + tslassigning := tslassigning_backup; +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; + +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; + +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; + +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_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + elems := object_.Endnotes(); + for _,elem in elems do + {self.}AppendChild(new EndnoteUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +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_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + elems := object_.Footnotes(); + for _,elem in elems do + {self.}AppendChild(new FootnoteUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +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_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + elems := object_.Fonts(); + for _,elem in elems do + {self.}AppendChild(new FontUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function SigUnitDecorator.Create(_obj: Sig); +begin + class(Sig).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SigUnitDecorator.GetObject(); +begin + return object_; +end; + +function SigUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrUsb0) then + {self.}Usb0 := object_.XmlAttrUsb0.Value; + if not ifnil(object_.XmlAttrUsb1) then + {self.}Usb1 := object_.XmlAttrUsb1.Value; + if not ifnil(object_.XmlAttrUsb2) then + {self.}Usb2 := object_.XmlAttrUsb2.Value; + if not ifnil(object_.XmlAttrUsb3) then + {self.}Usb3 := object_.XmlAttrUsb3.Value; + if not ifnil(object_.XmlAttrcsb0) then + {self.}csb0 := object_.XmlAttrcsb0.Value; + if not ifnil(object_.XmlAttrcsb1) then + {self.}csb1 := object_.XmlAttrcsb1.Value; + tslassigning := tslassigning_backup; +end; + +function SettingsUnitDecorator.Create(_obj: Settings); +begin + class(Settings).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SettingsUnitDecorator.GetObject(); +begin + return object_; +end; + +function SettingsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + if not ifnil(object_.XmlChildZoom) then + {self.}XmlChildZoom := new ZoomUnitDecorator(object_.XmlChildZoom); + if not ifnil(object_.XmlChildBordersDoNotSurroundHeader) then + {self.}BordersDoNotSurroundHeader.Copy(object_.XmlChildBordersDoNotSurroundHeader); + if not ifnil(object_.XmlChildBordersDoNotSurroundFooter) then + {self.}BordersDoNotSurroundFooter.Copy(object_.XmlChildBordersDoNotSurroundFooter); + if not ifnil(object_.XmlChildDefaultTabStop) then + {self.}XmlChildDefaultTabStop := new PureWValUnitDecorator(object_.XmlChildDefaultTabStop); + if not ifnil(object_.XmlChildEvenAndOddHeaders) then + {self.}EvenAndOddHeaders.Copy(object_.XmlChildEvenAndOddHeaders); + if not ifnil(object_.XmlChildDrawingGridVerticalSpacing) then + {self.}XmlChildDrawingGridVerticalSpacing := new PureWValUnitDecorator(object_.XmlChildDrawingGridVerticalSpacing); + if not ifnil(object_.XmlChildDisplayHorizontalDrawingGridEvery) then + {self.}XmlChildDisplayHorizontalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayHorizontalDrawingGridEvery); + if not ifnil(object_.XmlChildDisplayVerticalDrawingGridEvery) then + {self.}XmlChildDisplayVerticalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayVerticalDrawingGridEvery); + if not ifnil(object_.XmlChildCharacterSpacingControl) then + {self.}XmlChildCharacterSpacingControl := new PureWValUnitDecorator(object_.XmlChildCharacterSpacingControl); + if not ifnil(object_.XmlChildHdrShapeDefaults) then + {self.}XmlChildHdrShapeDefaults := new HdrShapeDefaultsUnitDecorator(object_.XmlChildHdrShapeDefaults); + if not ifnil(object_.XmlChildFootnotePr) then + {self.}XmlChildFootnotePr := new FootnotePrUnitDecorator(object_.XmlChildFootnotePr); + if not ifnil(object_.XmlChildEndnotePr) then + {self.}XmlChildEndnotePr := new EndnotePrUnitDecorator(object_.XmlChildEndnotePr); + if not ifnil(object_.XmlChildCompat) then + {self.}XmlChildCompat := new CompatUnitDecorator(object_.XmlChildCompat); + if not ifnil(object_.XmlChildRsids) then + {self.}XmlChildRsids := new RsidsUnitDecorator(object_.XmlChildRsids); + if not ifnil(object_.XmlChildMathPr) then + {self.}XmlChildMathPr := new MathPrUnitDecorator(object_.XmlChildMathPr); + if not ifnil(object_.XmlChildThemeFontLang) then + {self.}XmlChildThemeFontLang := new ThemeFontLangUnitDecorator(object_.XmlChildThemeFontLang); + if not ifnil(object_.XmlChildClrSchemeMapping) then + {self.}XmlChildClrSchemeMapping := new ClrSchemeMappingUnitDecorator(object_.XmlChildClrSchemeMapping); + if not ifnil(object_.XmlChildDoNotIncludeSubdocsInStats) then + {self.}DoNotIncludeSubdocsInStats.Copy(object_.XmlChildDoNotIncludeSubdocsInStats); + if not ifnil(object_.XmlChildShapeDefaults) then + {self.}XmlChildShapeDefaults := new ShapeDefaults2UnitDecorator(object_.XmlChildShapeDefaults); + if not ifnil(object_.XmlChildDecimalSymbol) then + {self.}XmlChildDecimalSymbol := new PureWValUnitDecorator(object_.XmlChildDecimalSymbol); + if not ifnil(object_.XmlChildListSeparator) then + {self.}XmlChildListSeparator := new PureWValUnitDecorator(object_.XmlChildListSeparator); + if not ifnil(object_.XmlChildDocId) then + {self.}XmlChildDocId := new PureWValUnitDecorator(object_.XmlChildDocId); + if not ifnil(object_.XmlChildDocId) then + {self.}XmlChildDocId := new PureWValUnitDecorator(object_.XmlChildDocId); + if not ifnil(object_.XmlChildDocId) then + {self.}XmlChildDocId := new PureWValUnitDecorator(object_.XmlChildDocId); + if not ifnil(object_.XmlChildChartTrackingRefBased) then + {self.}ChartTrackingRefBased.Copy(object_.XmlChildChartTrackingRefBased); + tslassigning := tslassigning_backup; +end; + +function ZoomUnitDecorator.Create(_obj: Zoom); +begin + class(Zoom).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ZoomUnitDecorator.GetObject(); +begin + return object_; +end; + +function ZoomUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrPercent) then + {self.}Percent := object_.XmlAttrPercent.Value; + tslassigning := tslassigning_backup; +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; + +function ShapeDefaultsUnitDecorator.Create(_obj: ShapeDefaults); +begin + class(ShapeDefaults).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ShapeDefaultsUnitDecorator.GetObject(); +begin + return object_; +end; + +function ShapeDefaultsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrExt) then + {self.}Ext := object_.XmlAttrExt.Value; + if not ifnil(object_.XmlAttrSpidmax) then + {self.}Spidmax := object_.XmlAttrSpidmax.Value; + tslassigning := tslassigning_backup; +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; + +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; + +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; + +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; + +function RsidsUnitDecorator.Create(_obj: Rsids); +begin + class(Rsids).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RsidsUnitDecorator.GetObject(); +begin + return object_; +end; + +function RsidsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRsidRoot) then + {self.}XmlChildRsidRoot := new PureWValUnitDecorator(object_.XmlChildRsidRoot); + elems := object_.Rsids(); + for _,elem in elems do + {self.}AppendChild(new PureWValUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function ThemeFontLangUnitDecorator.Create(_obj: ThemeFontLang); +begin + class(ThemeFontLang).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ThemeFontLangUnitDecorator.GetObject(); +begin + return object_; +end; + +function ThemeFontLangUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrEastAsia) then + {self.}EastAsia := object_.XmlAttrEastAsia.Value; + tslassigning := tslassigning_backup; +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; + +function ShapeDefaults2UnitDecorator.Create(_obj: ShapeDefaults2); +begin + class(ShapeDefaults2).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ShapeDefaults2UnitDecorator.GetObject(); +begin + return object_; +end; + +function ShapeDefaults2UnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildShapeDefaults) then + {self.}XmlChildShapeDefaults := new ShapeDefaultsUnitDecorator(object_.XmlChildShapeDefaults); + if not ifnil(object_.XmlChildShapeLayout) then + {self.}XmlChildShapeLayout := new ShapeLayoutUnitDecorator(object_.XmlChildShapeLayout); + tslassigning := tslassigning_backup; +end; + +function ShapeLayoutUnitDecorator.Create(_obj: ShapeLayout); +begin + class(ShapeLayout).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ShapeLayoutUnitDecorator.GetObject(); +begin + return object_; +end; + +function ShapeLayoutUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrExt) then + {self.}Ext := object_.XmlAttrExt.Value; + if not ifnil(object_.XmlChildIdMap) then + {self.}XmlChildIdMap := new IdMapUnitDecorator(object_.XmlChildIdMap); + tslassigning := tslassigning_backup; +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; + +function StylesUnitDecorator.Create(_obj: Styles); +begin + class(Styles).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function StylesUnitDecorator.GetObject(); +begin + return object_; +end; + +function StylesUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrMcIgnorable) then + {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value; + if not ifnil(object_.XmlChildDocDefaults) then + {self.}XmlChildDocDefaults := new DocDefaultsUnitDecorator(object_.XmlChildDocDefaults); + if not ifnil(object_.XmlChildLatenStyles) then + {self.}XmlChildLatenStyles := new LatenStylesUnitDecorator(object_.XmlChildLatenStyles); + elems := object_.Styles(); + for _,elem in elems do + {self.}AppendChild(new StyleUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function RPrDefaultUnitDecorator.Create(_obj: RPrDefault); +begin + class(RPrDefault).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RPrDefaultUnitDecorator.GetObject(); +begin + return object_; +end; + +function RPrDefaultUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function PPrDefaultUnitDecorator.Create(_obj: PPrDefault); +begin + class(PPrDefault).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PPrDefaultUnitDecorator.GetObject(); +begin + return object_; +end; + +function PPrDefaultUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildPPr) then + {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); + tslassigning := tslassigning_backup; +end; + +function LatenStylesUnitDecorator.Create(_obj: LatenStyles); +begin + class(LatenStyles).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LatenStylesUnitDecorator.GetObject(); +begin + return object_; +end; + +function LatenStylesUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrDefLickedState) then + {self.}DefLickedState := object_.XmlAttrDefLickedState.Value; + if not ifnil(object_.XmlAttrDefUIPriority) then + {self.}DefUIPriority := object_.XmlAttrDefUIPriority.Value; + if not ifnil(object_.XmlAttrDefSemiHidden) then + {self.}DefSemiHidden := object_.XmlAttrDefSemiHidden.Value; + if not ifnil(object_.XmlAttrDefUnhideWhenUsed) then + {self.}DefUnhideWhenUsed := object_.XmlAttrDefUnhideWhenUsed.Value; + if not ifnil(object_.XmlAttrDefQFormat) then + {self.}DefQFormat := object_.XmlAttrDefQFormat.Value; + if not ifnil(object_.XmlAttrCount) then + {self.}Count := object_.XmlAttrCount.Value; + elems := object_.LsdExceptions(); + for _,elem in elems do + {self.}AppendChild(new LsdExceptionUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function LsdExceptionUnitDecorator.Create(_obj: LsdException); +begin + class(LsdException).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LsdExceptionUnitDecorator.GetObject(); +begin + return object_; +end; + +function LsdExceptionUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrName) then + {self.}Name := object_.XmlAttrName.Value; + if not ifnil(object_.XmlAttrUIPriority) then + {self.}UIPriority := object_.XmlAttrUIPriority.Value; + if not ifnil(object_.XmlAttrSemiHidden) then + {self.}SemiHidden := object_.XmlAttrSemiHidden.Value; + if not ifnil(object_.XmlAttrUnhideWhenUsed) then + {self.}UnhideWhenUsed := object_.XmlAttrUnhideWhenUsed.Value; + if not ifnil(object_.XmlAttrQFormat) then + {self.}QFormat := object_.XmlAttrQFormat.Value; + tslassigning := tslassigning_backup; +end; + +function StyleUnitDecorator.Create(_obj: Style); +begin + class(Style).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function StyleUnitDecorator.GetObject(); +begin + return object_; +end; + +function StyleUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + if not ifnil(object_.XmlAttrDefault) then + {self.}Default := object_.XmlAttrDefault.Value; + if not ifnil(object_.XmlAttrStyleId) then + {self.}StyleId := object_.XmlAttrStyleId.Value; + if not ifnil(object_.XmlChildName) then + {self.}XmlChildName := new PureWValUnitDecorator(object_.XmlChildName); + if not ifnil(object_.XmlChildBasedOn) then + {self.}XmlChildBasedOn := new PureWValUnitDecorator(object_.XmlChildBasedOn); + if not ifnil(object_.XmlChildNext) then + {self.}XmlChildNext := new PureWValUnitDecorator(object_.XmlChildNext); + if not ifnil(object_.XmlChildAutoRedefine) then + {self.}XmlChildAutoRedefine := new PureWValUnitDecorator(object_.XmlChildAutoRedefine); + if not ifnil(object_.XmlChildLink) then + {self.}XmlChildLink := new PureWValUnitDecorator(object_.XmlChildLink); + if not ifnil(object_.XmlChildUIPriority) then + {self.}XmlChildUIPriority := new PureWValUnitDecorator(object_.XmlChildUIPriority); + if not ifnil(object_.XmlChildSemiHidden) then + {self.}SemiHidden.Copy(object_.XmlChildSemiHidden); + if not ifnil(object_.XmlChildUnhideWhenUsed) then + {self.}UnhideWhenUsed.Copy(object_.XmlChildUnhideWhenUsed); + if not ifnil(object_.XmlChildQFormat) then + {self.}QFormat.Copy(object_.XmlChildQFormat); + if not ifnil(object_.XmlChildRsid) then + {self.}XmlChildRsid := new PureWValUnitDecorator(object_.XmlChildRsid); + if not ifnil(object_.XmlChildPPr) then + {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + if not ifnil(object_.XmlChildTblPr) then + {self.}XmlChildTblPr := new TblPrUnitDecorator(object_.XmlChildTblPr); + if not ifnil(object_.XmlChildTrPr) then + {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr); + if not ifnil(object_.XmlChildTcPr) then + {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr); + elems := object_.TblStylePrs(); + for _,elem in elems do + {self.}AppendChild(new TblStylePrUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function TblStylePrUnitDecorator.Create(_obj: TblStylePr); +begin + class(TblStylePr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblStylePrUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblStylePrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + if not ifnil(object_.XmlChildPPr) then + {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + if not ifnil(object_.XmlChildTblPr) then + {self.}XmlChildTblPr := new TblPrUnitDecorator(object_.XmlChildTblPr); + if not ifnil(object_.XmlChildTrPr) then + {self.}XmlChildTrPr := new TrPrUnitDecorator(object_.XmlChildTrPr); + if not ifnil(object_.XmlChildTcPr) then + {self.}XmlChildTcPr := new TcPrUnitDecorator(object_.XmlChildTcPr); + tslassigning := tslassigning_backup; +end; + +function TblIndUnitDecorator.Create(_obj: TblInd); +begin + class(TblInd).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblIndUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblIndUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrW) then + {self.}W := TSSafeUnitConverter.TwipsToPoints(object_.XmlAttrW.Value); + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + tslassigning := tslassigning_backup; +end; + +function TblCellMarUnitDecorator.Create(_obj: TblCellMar); +begin + class(TblCellMar).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TblCellMarUnitDecorator.GetObject(); +begin + return object_; +end; + +function TblCellMarUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTop) then + {self.}XmlChildTop := new TblIndUnitDecorator(object_.XmlChildTop); + if not ifnil(object_.XmlChildLeft) then + {self.}XmlChildLeft := new TblIndUnitDecorator(object_.XmlChildLeft); + if not ifnil(object_.XmlChildBottom) then + {self.}XmlChildBottom := new TblIndUnitDecorator(object_.XmlChildBottom); + if not ifnil(object_.XmlChildRight) then + {self.}XmlChildRight := new TblIndUnitDecorator(object_.XmlChildRight); + tslassigning := tslassigning_backup; +end; + +function WebSettingsUnitDecorator.Create(_obj: WebSettings); +begin + class(WebSettings).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function WebSettingsUnitDecorator.GetObject(); +begin + return object_; +end; + +function WebSettingsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrMcIgnorable) then + {self.}McIgnorable := object_.XmlAttrMcIgnorable.Value; + if not ifnil(object_.XmlChildOptimizeForBrowser) then + {self.}OptimizeForBrowser.Copy(object_.XmlChildOptimizeForBrowser); + if not ifnil(object_.XmlChildAllowPNG) then + {self.}AllowPNG.Copy(object_.XmlChildAllowPNG); + tslassigning := tslassigning_backup; +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_.XmlChildChoice) then + {self.}XmlChildChoice := new ChoiceUnitDecorator(object_.XmlChildChoice); + if not ifnil(object_.XmlChildFallback) then + {self.}XmlChildFallback := new FallbackUnitDecorator(object_.XmlChildFallback); + tslassigning := tslassigning_backup; +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_.XmlChildStyle) then + {self.}XmlChildStyle := new PureValUnitDecorator(object_.XmlChildStyle); + if not ifnil(object_.XmlChildDrawing) then + {self.}XmlChildDrawing := new DrawingUnitDecorator(object_.XmlChildDrawing); + tslassigning := tslassigning_backup; +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; + +function PictUnitDecorator.Create(_obj: Pict); +begin + class(Pict).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PictUnitDecorator.GetObject(); +begin + return object_; +end; + +function PictUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildShapetype) then + {self.}XmlChildShapetype := new ShapetypeUnitDecorator(object_.XmlChildShapetype); + if not ifnil(object_.XmlChildShape) then + {self.}XmlChildShape := new ShapeUnitDecorator(object_.XmlChildShape); + tslassigning := tslassigning_backup; +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_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + elems := object_.Ps(); + for _,elem in elems do + {self.}AppendChild(new PUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + elems := object_.Ps(); + for _,elem in elems do + {self.}AppendChild(new PUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + elems := object_.Comments(); + for _,elem in elems do + {self.}AppendChild(new CommentUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function NumberingUnitDecorator.Create(_obj: Numbering); +begin + class(Numbering).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NumberingUnitDecorator.GetObject(); +begin + return object_; +end; + +function NumberingUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrIgnorable) then + {self.}Ignorable := object_.XmlAttrIgnorable.Value; + elems := object_.AbstractNums(); + for _,elem in elems do + {self.}AppendChild(new AbstractNumUnitDecorator(elem)); + elems := object_.Nums(); + for _,elem in elems do + {self.}AppendChild(new NumUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function NumUnitDecorator.Create(_obj: Num); +begin + class(Num).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NumUnitDecorator.GetObject(); +begin + return object_; +end; + +function NumUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrNumId) then + {self.}NumId := object_.XmlAttrNumId.Value; + if not ifnil(object_.XmlChildAbstractNumId) then + {self.}XmlChildAbstractNumId := new PureWValUnitDecorator(object_.XmlChildAbstractNumId); + tslassigning := tslassigning_backup; +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; + +function LvlUnitDecorator.Create(_obj: Lvl); +begin + class(Lvl).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LvlUnitDecorator.GetObject(); +begin + return object_; +end; + +function LvlUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrIlvl) then + {self.}Ilvl := object_.XmlAttrIlvl.Value; + if not ifnil(object_.XmlAttrTentative) then + {self.}Tentative := object_.XmlAttrTentative.Value; + if not ifnil(object_.XmlChildStart) then + {self.}XmlChildStart := new PureWValUnitDecorator(object_.XmlChildStart); + if not ifnil(object_.XmlChildNumFmt) then + {self.}XmlChildNumFmt := new PureWValUnitDecorator(object_.XmlChildNumFmt); + if not ifnil(object_.XmlChildPStyle) then + {self.}XmlChildPStyle := new PureWValUnitDecorator(object_.XmlChildPStyle); + if not ifnil(object_.XmlChildSuff) then + {self.}XmlChildSuff := new PureWValUnitDecorator(object_.XmlChildSuff); + if not ifnil(object_.XmlChildLvlText) then + {self.}XmlChildLvlText := new PureWValUnitDecorator(object_.XmlChildLvlText); + if not ifnil(object_.XmlChildLvlJc) then + {self.}XmlChildLvlJc := new PureWValUnitDecorator(object_.XmlChildLvlJc); + if not ifnil(object_.XmlChildPPr) then + {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +end. \ No newline at end of file diff --git a/autounit/DrawingML.tsf b/autounit/DrawingML.tsf new file mode 100644 index 0000000..5530f2d --- /dev/null +++ b/autounit/DrawingML.tsf @@ -0,0 +1,11261 @@ +unit DrawingML; +interface +uses DrawingML; + +type Theme = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Theme);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + + // empty property + property ObjectDefaults read ReadXmlChildObjectDefaults write WriteXmlChildObjectDefaults; + property ExtraClrSchemeLst read ReadXmlChildExtraClrSchemeLst write WriteXmlChildExtraClrSchemeLst; + function ReadXmlChildObjectDefaults(); + function WriteXmlChildObjectDefaults(_value); + function ReadXmlChildExtraClrSchemeLst(); + function WriteXmlChildExtraClrSchemeLst(_value); + + // normal property + property ThemeElements read ReadXmlChildThemeElements; + property ExtLst read ReadXmlChildExtLst; + function ReadXmlChildThemeElements(): ThemeElements; + function ReadXmlChildExtLst(): ExtLst; + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + + // Children + XmlChildThemeElements: ThemeElements; + XmlChildObjectDefaults: OpenXmlEmpty; + XmlChildExtraClrSchemeLst: OpenXmlEmpty; + XmlChildExtLst: ExtLst; +end; + +type ThemeElements = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ThemeElements);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + + // normal property + property ClrScheme read ReadXmlChildClrScheme; + property FontScheme read ReadXmlChildFontScheme; + property FmtScheme read ReadXmlChildFmtScheme; + function ReadXmlChildClrScheme(): ClrScheme; + function ReadXmlChildFontScheme(): FontScheme; + function ReadXmlChildFmtScheme(): FmtScheme; + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + + // Children + XmlChildClrScheme: ClrScheme; + XmlChildFontScheme: FontScheme; + XmlChildFmtScheme: FmtScheme; +end; + +type ClrScheme = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ClrScheme);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + + // normal property + property Dk1 read ReadXmlChildDk1; + property Lt1 read ReadXmlChildLt1; + property Dk2 read ReadXmlChildDk2; + property Lt2 read ReadXmlChildLt2; + property Accent1 read ReadXmlChildAccent1; + property Accent2 read ReadXmlChildAccent2; + property Accent3 read ReadXmlChildAccent3; + property Accent4 read ReadXmlChildAccent4; + property Accent5 read ReadXmlChildAccent5; + property Accent6 read ReadXmlChildAccent6; + property Hlink read ReadXmlChildHlink; + property FolHlink read ReadXmlChildFolHlink; + function ReadXmlChildDk1(): Clr1; + function ReadXmlChildLt1(): Clr1; + function ReadXmlChildDk2(): Clr2; + function ReadXmlChildLt2(): Clr2; + function ReadXmlChildAccent1(): Clr2; + function ReadXmlChildAccent2(): Clr2; + function ReadXmlChildAccent3(): Clr2; + function ReadXmlChildAccent4(): Clr2; + function ReadXmlChildAccent5(): Clr2; + function ReadXmlChildAccent6(): Clr2; + function ReadXmlChildHlink(): Clr2; + function ReadXmlChildFolHlink(): Clr2; + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + + // Children + XmlChildDk1: Clr1; + XmlChildLt1: Clr1; + XmlChildDk2: Clr2; + XmlChildLt2: Clr2; + XmlChildAccent1: Clr2; + XmlChildAccent2: Clr2; + XmlChildAccent3: Clr2; + XmlChildAccent4: Clr2; + XmlChildAccent5: Clr2; + XmlChildAccent6: Clr2; + XmlChildHlink: Clr2; + XmlChildFolHlink: Clr2; +end; + +type Clr1 = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Clr1);override; +public + + // normal property + property SysClr read ReadXmlChildSysClr; + function ReadXmlChildSysClr(): SysClr; + +public + // Children + XmlChildSysClr: SysClr; +end; + +type SysClr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SysClr);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + property LastClr read ReadXmlAttrLastClr write WriteXmlAttrLastClr; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + function ReadXmlAttrLastClr(); + function WriteXmlAttrLastClr(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + XmlAttrLastClr: OpenXmlAttribute; + +end; + +type Clr2 = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Clr2);override; +public + + // normal property + property SrgbClr read ReadXmlChildSrgbClr; + function ReadXmlChildSrgbClr(): SrgbClr; + +public + // Children + XmlChildSrgbClr: SrgbClr; +end; + +type SrgbClr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SrgbClr);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + + // normal property + property Alpha read ReadXmlChildAlpha; + function ReadXmlChildAlpha(): PureVal; + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + + // Children + XmlChildAlpha: PureVal; +end; + +type PureVal = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PureVal);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + +end; + +type FontScheme = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FontScheme);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + + // normal property + property Majorfont read ReadXmlChildMajorfont; + property Minorfont read ReadXmlChildMinorfont; + function ReadXmlChildMajorfont(): Mfont; + function ReadXmlChildMinorfont(): Mfont; + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + + // Children + XmlChildMajorfont: Mfont; + XmlChildMinorfont: Mfont; +end; + +type MFont = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: MFont);override; +public + + // normal property + property Latin read ReadXmlChildLatin; + property Ea read ReadXmlChildEa; + property Cs read ReadXmlChildCs; + function ReadXmlChildLatin(): Latin; + function ReadXmlChildEa(): Latin; + function ReadXmlChildCs(): Latin; + + // multi property + property Fonts read ReadFonts; + function ReadFonts(_index); + function AddFont(): Font; + function AppendFont(): Font; + +public + // Children + XmlChildLatin: Latin; + XmlChildEa: Latin; + XmlChildCs: Latin; +end; + +type Font = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Font);override; +public + // attributes property + property Script read ReadXmlAttrScript write WriteXmlAttrScript; + property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; + function ReadXmlAttrScript(); + function WriteXmlAttrScript(_value); + function ReadXmlAttrTypeface(); + function WriteXmlAttrTypeface(_value); + +public + // Attributes + XmlAttrScript: OpenXmlAttribute; + XmlAttrTypeface: OpenXmlAttribute; + +end; + +type FmtScheme = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FmtScheme);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + + // normal property + property FillStyleLst read ReadXmlChildFillStyleLst; + property LnStyleLst read ReadXmlChildLnStyleLst; + property EffectStyleLst read ReadXmlChildEffectStyleLst; + property BgFillStyleLst read ReadXmlChildBgFillStyleLst; + function ReadXmlChildFillStyleLst(): FillStyleLst; + function ReadXmlChildLnStyleLst(): LnStyleLst; + function ReadXmlChildEffectStyleLst(): EffectStyleLst; + function ReadXmlChildBgFillStyleLst(): FillStyleLst; + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + + // Children + XmlChildFillStyleLst: FillStyleLst; + XmlChildLnStyleLst: LnStyleLst; + XmlChildEffectStyleLst: EffectStyleLst; + XmlChildBgFillStyleLst: FillStyleLst; +end; + +type FillStyleLst = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FillStyleLst);override; +public + + // multi property + property SolidFills read ReadSolidFills; + property GradFills read ReadGradFills; + function ReadSolidFills(_index); + function ReadGradFills(_index); + function AddSolidFill(): SolidFill; + function AddGradFill(): GradFill; + function AppendSolidFill(): SolidFill; + function AppendGradFill(): GradFill; + +public + // Children +end; + +type SolidFill = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SolidFill);override; +public + + // normal property + property SchemeClr read ReadXmlChildSchemeClr; + function ReadXmlChildSchemeClr(): SchemeClr; + +public + // Children + XmlChildSchemeClr: SchemeClr; +end; + +type SchemeClr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SchemeClr);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + + // normal property + property LumMod read ReadXmlChildLumMod; + property SatMod read ReadXmlChildSatMod; + property Tint read ReadXmlChildTint; + function ReadXmlChildLumMod(): PureVal; + function ReadXmlChildSatMod(): PureVal; + function ReadXmlChildTint(): PureVal; + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + + // Children + XmlChildLumMod: PureVal; + XmlChildSatMod: PureVal; + XmlChildTint: PureVal; +end; + +type GradFill = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: GradFill);override; +public + // attributes property + property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; + function ReadXmlAttrRotWithShape(); + function WriteXmlAttrRotWithShape(_value); + + // normal property + property GsLst read ReadXmlChildGsLst; + property Lin read ReadXmlChildLin; + function ReadXmlChildGsLst(): GsLst; + function ReadXmlChildLin(): Lin; + +public + // Attributes + XmlAttrRotWithShape: OpenXmlAttribute; + + // Children + XmlChildGsLst: GsLst; + XmlChildLin: Lin; +end; + +type GsLst = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: GsLst);override; +public + + // multi property + property Gses read ReadGses; + function ReadGses(_index); + function AddGs(): Gs; + function AppendGs(): Gs; + +public + // Children +end; + +type Gs = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Gs);override; +public + // attributes property + property Pos read ReadXmlAttrPos write WriteXmlAttrPos; + function ReadXmlAttrPos(); + function WriteXmlAttrPos(_value); + + // normal property + property SchemeClr read ReadXmlChildSchemeClr; + function ReadXmlChildSchemeClr(): SchemeClr; + +public + // Attributes + XmlAttrPos: OpenXmlAttribute; + + // Children + XmlChildSchemeClr: SchemeClr; +end; + +type Lin = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Lin);override; +public + // attributes property + property Ang read ReadXmlAttrAng write WriteXmlAttrAng; + property Scaled read ReadXmlAttrScaled write WriteXmlAttrScaled; + function ReadXmlAttrAng(); + function WriteXmlAttrAng(_value); + function ReadXmlAttrScaled(); + function WriteXmlAttrScaled(_value); + +public + // Attributes + XmlAttrAng: OpenXmlAttribute; + XmlAttrScaled: OpenXmlAttribute; + +end; + +type LnStyleLst = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: LnStyleLst);override; +public + + // multi property + property Lns read ReadLns; + function ReadLns(_index); + function AddLn(): Ln; + function AppendLn(): Ln; + +public + // Children +end; + +type EffectStyleLst = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: EffectStyleLst);override; +public + + // multi property + property EffectStyles read ReadEffectStyles; + function ReadEffectStyles(_index); + function AddEffectStyle(): EffectStyle; + function AppendEffectStyle(): EffectStyle; + +public + // Children +end; + +type EffectStyle = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: EffectStyle);override; +public + + // normal property + property EffectLst read ReadXmlChildEffectLst; + function ReadXmlChildEffectLst(): EffectLst; + +public + // Children + XmlChildEffectLst: EffectLst; +end; + +type OuterShdw = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: OuterShdw);override; +public + // attributes property + property BlurRad read ReadXmlAttrBlurRad write WriteXmlAttrBlurRad; + property Dist read ReadXmlAttrDist write WriteXmlAttrDist; + property Dir read ReadXmlAttrDir write WriteXmlAttrDir; + property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; + property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape; + function ReadXmlAttrBlurRad(); + function WriteXmlAttrBlurRad(_value); + function ReadXmlAttrDist(); + function WriteXmlAttrDist(_value); + function ReadXmlAttrDir(); + function WriteXmlAttrDir(_value); + function ReadXmlAttrAlgn(); + function WriteXmlAttrAlgn(_value); + function ReadXmlAttrRotWithShape(); + function WriteXmlAttrRotWithShape(_value); + + // normal property + property SrgbClr read ReadXmlChildSrgbClr; + function ReadXmlChildSrgbClr(): SrgbClr; + +public + // Attributes + XmlAttrBlurRad: OpenXmlAttribute; + XmlAttrDist: OpenXmlAttribute; + XmlAttrDir: OpenXmlAttribute; + XmlAttrAlgn: OpenXmlAttribute; + XmlAttrRotWithShape: OpenXmlAttribute; + + // Children + XmlChildSrgbClr: SrgbClr; +end; + +type ExtLst = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ExtLst);override; +public + + // multi property + property Exts read ReadExts; + function ReadExts(_index); + function AddExt(): Ext; + function AppendExt(): Ext; + +public + // Children +end; + +type Ext = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Ext);override; +public + // attributes property + property Uri read ReadXmlAttrUri write WriteXmlAttrUri; + function ReadXmlAttrUri(); + function WriteXmlAttrUri(_value); + + // normal property + property Thm15ThemeFamily read ReadXmlChildThm15ThemeFamily; + property UniqueId read ReadXmlChildUniqueId; + property SlicerStyles read ReadXmlChildSlicerStyles; + property TimelineStyles read ReadXmlChildTimelineStyles; + function ReadXmlChildThm15ThemeFamily(): ThemeFamily; + function ReadXmlChildUniqueId(): PureVal; + function ReadXmlChildSlicerStyles(): SlicerStyles; + function ReadXmlChildTimelineStyles(): TimelineStyles; + +public + // Attributes + XmlAttrUri: OpenXmlAttribute; + + // Children + XmlChildThm15ThemeFamily: ThemeFamily; + XmlChildUniqueId: PureVal; + XmlChildSlicerStyles: SlicerStyles; + XmlChildTimelineStyles: TimelineStyles; +end; + +type SlicerStyles = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SlicerStyles);override; +public + // attributes property + property DefaultSlicerStyle read ReadXmlAttrDefaultSlicerStyle write WriteXmlAttrDefaultSlicerStyle; + function ReadXmlAttrDefaultSlicerStyle(); + function WriteXmlAttrDefaultSlicerStyle(_value); + +public + // Attributes + XmlAttrDefaultSlicerStyle: OpenXmlAttribute; + +end; + +type TimelineStyles = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TimelineStyles);override; +public + // attributes property + property DefaultTimelineStyle read ReadXmlAttrDefaultTimelineStyle write WriteXmlAttrDefaultTimelineStyle; + function ReadXmlAttrDefaultTimelineStyle(); + function WriteXmlAttrDefaultTimelineStyle(_value); + +public + // Attributes + XmlAttrDefaultTimelineStyle: OpenXmlAttribute; + +end; + +type ThemeFamily = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ThemeFamily);override; +public + // attributes property + property Name read ReadXmlAttrName write WriteXmlAttrName; + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Vid read ReadXmlAttrVid write WriteXmlAttrVid; + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrVid(); + function WriteXmlAttrVid(_value); + +public + // Attributes + XmlAttrName: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + XmlAttrVid: OpenXmlAttribute; + +end; + +type ChartSpace = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ChartSpace);override; +public + + // empty property + property Lang read ReadXmlChildLang write WriteXmlChildLang; + function ReadXmlChildLang(); + function WriteXmlChildLang(_value); + + // normal property + property Date1904 read ReadXmlChildDate1904; + property AlternateContent read ReadXmlChildAlternateContent; + property Chart read ReadXmlChildChart; + property SpPr read ReadXmlChildSpPr; + property ExternalData read ReadXmlChildExternalData; + function ReadXmlChildDate1904(): PureVal; + function ReadXmlChildAlternateContent(): AlternateContent; + function ReadXmlChildChart(): Chart; + function ReadXmlChildSpPr(): SpPr; + function ReadXmlChildExternalData(): ExternalData; + +public + // Children + XmlChildDate1904: PureVal; + XmlChildLang: OpenXmlEmpty; + XmlChildAlternateContent: AlternateContent; + XmlChildChart: Chart; + XmlChildSpPr: SpPr; + XmlChildExternalData: ExternalData; +end; + +type Chart = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Chart);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + + // normal property + property Title read ReadXmlChildTitle; + property AutoTitleDeleted read ReadXmlChildAutoTitleDeleted; + property View3D read ReadXmlChildView3D; + property PlotArea read ReadXmlChildPlotArea; + property Legend read ReadXmlChildLegend; + property PlotVisOnly read ReadXmlChildPlotVisOnly; + property DispBlanksAs read ReadXmlChildDispBlanksAs; + property ShowDLblsOverMax read ReadXmlChildShowDLblsOverMax; + function ReadXmlChildTitle(): Title; + function ReadXmlChildAutoTitleDeleted(): PureVal; + function ReadXmlChildView3D(): View3D; + function ReadXmlChildPlotArea(): PlotArea; + function ReadXmlChildLegend(): Legend; + function ReadXmlChildPlotVisOnly(): PureVal; + function ReadXmlChildDispBlanksAs(): PureVal; + function ReadXmlChildShowDLblsOverMax(): PureVal; + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + + // Children + XmlChildTitle: Title; + XmlChildAutoTitleDeleted: PureVal; + XmlChildView3D: View3D; + XmlChildPlotArea: PlotArea; + XmlChildLegend: Legend; + XmlChildPlotVisOnly: PureVal; + XmlChildDispBlanksAs: PureVal; + XmlChildShowDLblsOverMax: PureVal; +end; + +type Legend = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Legend);override; +public + + // empty property + property Layout read ReadXmlChildLayout write WriteXmlChildLayout; + function ReadXmlChildLayout(); + function WriteXmlChildLayout(_value); + + // normal property + property LegendPos read ReadXmlChildLegendPos; + property Overlay read ReadXmlChildOverlay; + property TxPr read ReadXmlChildTxPr; + function ReadXmlChildLegendPos(): PureVal; + function ReadXmlChildOverlay(): PureVal; + function ReadXmlChildTxPr(): TxPr; + +public + // Children + XmlChildLegendPos: PureVal; + XmlChildLayout: OpenXmlEmpty; + XmlChildOverlay: PureVal; + XmlChildTxPr: TxPr; +end; + +type View3D = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: View3D);override; +public + + // normal property + property RotX read ReadXmlChildRotX; + property RotY read ReadXmlChildRotY; + property RAngAx read ReadXmlChildRAngAx; + function ReadXmlChildRotX(): PureVal; + function ReadXmlChildRotY(): PureVal; + function ReadXmlChildRAngAx(): PureVal; + +public + // Children + XmlChildRotX: PureVal; + XmlChildRotY: PureVal; + XmlChildRAngAx: PureVal; +end; + +type PlotArea = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PlotArea);override; +public + + // empty property + property Layout read ReadXmlChildLayout write WriteXmlChildLayout; + function ReadXmlChildLayout(); + function WriteXmlChildLayout(_value); + + // normal property + property BarChart read ReadXmlChildBarChart; + property CatAx read ReadXmlChildCatAx; + property ValAx read ReadXmlChildValAx; + property DTable read ReadXmlChildDTable; + property SpPr read ReadXmlChildSpPr; + function ReadXmlChildBarChart(): BarChart; + function ReadXmlChildCatAx(): Ax; + function ReadXmlChildValAx(): Ax; + function ReadXmlChildDTable(): DTable; + function ReadXmlChildSpPr(): SpPr; + +public + // Children + XmlChildLayout: OpenXmlEmpty; + XmlChildBarChart: BarChart; + XmlChildCatAx: Ax; + XmlChildValAx: Ax; + XmlChildDTable: DTable; + XmlChildSpPr: SpPr; +end; + +type BarChart = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: BarChart);override; +public + + // normal property + property BarDir read ReadXmlChildBarDir; + property Grouping read ReadXmlChildGrouping; + property VaryColors read ReadXmlChildVaryColors; + property GapWidth read ReadXmlChildGapWidth; + function ReadXmlChildBarDir(): PureVal; + function ReadXmlChildGrouping(): PureVal; + function ReadXmlChildVaryColors(): PureVal; + function ReadXmlChildGapWidth(): PureVal; + + // multi property + property Sers read ReadSers; + property AxIds read ReadAxIds; + function ReadSers(_index); + function ReadAxIds(_index); + function AddSer(): Ser; + function AddAxId(): PureVal; + function AppendSer(): Ser; + function AppendAxId(): PureVal; + +public + // Children + XmlChildBarDir: PureVal; + XmlChildGrouping: PureVal; + XmlChildVaryColors: PureVal; + XmlChildGapWidth: PureVal; +end; + +type Ser = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Ser);override; +public + + // normal property + property Idx read ReadXmlChildIdx; + property _Order read ReadXmlChild_Order; + property Tx read ReadXmlChildTx; + property InvertIfNegative read ReadXmlChildInvertIfNegative; + property DLbls read ReadXmlChildDLbls; + property Cat read ReadXmlChildCat; + property Val read ReadXmlChildVal; + property ExtLst read ReadXmlChildExtLst; + function ReadXmlChildIdx(): PureVal; + function ReadXmlChild_Order(): PureVal; + function ReadXmlChildTx(): Tx; + function ReadXmlChildInvertIfNegative(): PureVal; + function ReadXmlChildDLbls(): DLbls; + function ReadXmlChildCat(): Cat; + function ReadXmlChildVal(): Val; + function ReadXmlChildExtLst(): ExtLst; + +public + // Children + XmlChildIdx: PureVal; + XmlChild_Order: PureVal; + XmlChildTx: Tx; + XmlChildInvertIfNegative: PureVal; + XmlChildDLbls: DLbls; + XmlChildCat: Cat; + XmlChildVal: Val; + XmlChildExtLst: ExtLst; +end; + +type DLbls = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: DLbls);override; +public + + // normal property + property SpPr read ReadXmlChildSpPr; + property ShowLegendKey read ReadXmlChildShowLegendKey; + property ShowVal read ReadXmlChildShowVal; + property ShowCatName read ReadXmlChildShowCatName; + property ShowSerName read ReadXmlChildShowSerName; + property ShowPercent read ReadXmlChildShowPercent; + property ShowBubbleSize read ReadXmlChildShowBubbleSize; + property ShowLeaderLines read ReadXmlChildShowLeaderLines; + property ExtLst read ReadXmlChildExtLst; + function ReadXmlChildSpPr(): SpPr; + function ReadXmlChildShowLegendKey(): PureVal; + function ReadXmlChildShowVal(): PureVal; + function ReadXmlChildShowCatName(): PureVal; + function ReadXmlChildShowSerName(): PureVal; + function ReadXmlChildShowPercent(): PureVal; + function ReadXmlChildShowBubbleSize(): PureVal; + function ReadXmlChildShowLeaderLines(): PureVal; + function ReadXmlChildExtLst(): ExtLst; + +public + // Children + XmlChildSpPr: SpPr; + XmlChildShowLegendKey: PureVal; + XmlChildShowVal: PureVal; + XmlChildShowCatName: PureVal; + XmlChildShowSerName: PureVal; + XmlChildShowPercent: PureVal; + XmlChildShowBubbleSize: PureVal; + XmlChildShowLeaderLines: PureVal; + XmlChildExtLst: ExtLst; +end; + +type Cat = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Cat);override; +public + + // normal property + property StrRef read ReadXmlChildStrRef; + function ReadXmlChildStrRef(): StrRef; + +public + // Children + XmlChildStrRef: StrRef; +end; + +type StrRef = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: StrRef);override; +public + + // pcdata property + property F read ReadXmlChildF; + function ReadXmlChildF(); + + // normal property + property StrCache read ReadXmlChildStrCache; + function ReadXmlChildStrCache(): StrCache; + +public + // Children + XmlChildF: OpenXmlPcdata; + XmlChildStrCache: StrCache; +end; + +type Val = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Val);override; +public + + // normal property + property NumRef read ReadXmlChildNumRef; + function ReadXmlChildNumRef(): NumRef; + +public + // Children + XmlChildNumRef: NumRef; +end; + +type NumRef = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: NumRef);override; +public + + // pcdata property + property F read ReadXmlChildF; + function ReadXmlChildF(); + + // normal property + property NumCache read ReadXmlChildNumCache; + function ReadXmlChildNumCache(): NumCache; + +public + // Children + XmlChildF: OpenXmlPcdata; + XmlChildNumCache: NumCache; +end; + +type StrCache = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: StrCache);override; +public + + // normal property + property PtCount read ReadXmlChildPtCount; + function ReadXmlChildPtCount(): PureVal; + + // multi property + property Pts read ReadPts; + function ReadPts(_index); + function AddPt(): Pt; + function AppendPt(): Pt; + +public + // Children + XmlChildPtCount: PureVal; +end; + +type NumCache = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: NumCache);override; +public + + // pcdata property + property FormatCode read ReadXmlChildFormatCode; + function ReadXmlChildFormatCode(); + + // normal property + property PtCount read ReadXmlChildPtCount; + function ReadXmlChildPtCount(): PureVal; + + // multi property + property Pts read ReadPts; + function ReadPts(_index); + function AddPt(): Pt; + function AppendPt(): Pt; + +public + // Children + XmlChildFormatCode: OpenXmlPcdata; + XmlChildPtCount: PureVal; +end; + +type Pt = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Pt);override; +public + // attributes property + property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; + function ReadXmlAttrIdx(); + function WriteXmlAttrIdx(_value); + + // pcdata property + property V read ReadXmlChildV; + function ReadXmlChildV(); + +public + // Attributes + XmlAttrIdx: OpenXmlAttribute; + + // Children + XmlChildV: OpenXmlPcdata; +end; + +type Ax = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Ax);override; +public + + // normal property + property AxId read ReadXmlChildAxId; + property Scaling read ReadXmlChildScaling; + property _Delete read ReadXmlChild_Delete; + property AxPos read ReadXmlChildAxPos; + property NumFmt read ReadXmlChildNumFmt; + property MajorTickMark read ReadXmlChildMajorTickMark; + property MinorTickMark read ReadXmlChildMinorTickMark; + property TickLblPos read ReadXmlChildTickLblPos; + property SpPr read ReadXmlChildSpPr; + property TxPr read ReadXmlChildTxPr; + property CrossAx read ReadXmlChildCrossAx; + property Crosses read ReadXmlChildCrosses; + property CrossBetween read ReadXmlChildCrossBetween; + property Auto read ReadXmlChildAuto; + property LblAlgn read ReadXmlChildLblAlgn; + property LblOffset read ReadXmlChildLblOffset; + property NoMultiLvlLbl read ReadXmlChildNoMultiLvlLbl; + function ReadXmlChildAxId(): PureVal; + function ReadXmlChildScaling(): Scaling; + function ReadXmlChild_Delete(): PureVal; + function ReadXmlChildAxPos(): PureVal; + function ReadXmlChildNumFmt(): NumFmt; + function ReadXmlChildMajorTickMark(): PureVal; + function ReadXmlChildMinorTickMark(): PureVal; + function ReadXmlChildTickLblPos(): PureVal; + function ReadXmlChildSpPr(): SpPr; + function ReadXmlChildTxPr(): TxPr; + function ReadXmlChildCrossAx(): PureVal; + function ReadXmlChildCrosses(): PureVal; + function ReadXmlChildCrossBetween(): PureVal; + function ReadXmlChildAuto(): PureVal; + function ReadXmlChildLblAlgn(): PureVal; + function ReadXmlChildLblOffset(): PureVal; + function ReadXmlChildNoMultiLvlLbl(): PureVal; + +public + // Children + XmlChildAxId: PureVal; + XmlChildScaling: Scaling; + XmlChild_Delete: PureVal; + XmlChildAxPos: PureVal; + XmlChildNumFmt: NumFmt; + XmlChildMajorTickMark: PureVal; + XmlChildMinorTickMark: PureVal; + XmlChildTickLblPos: PureVal; + XmlChildSpPr: SpPr; + XmlChildTxPr: TxPr; + XmlChildCrossAx: PureVal; + XmlChildCrosses: PureVal; + XmlChildCrossBetween: PureVal; + XmlChildAuto: PureVal; + XmlChildLblAlgn: PureVal; + XmlChildLblOffset: PureVal; + XmlChildNoMultiLvlLbl: PureVal; +end; + +type NumFmt = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: NumFmt);override; +public + // attributes property + property FormatCode read ReadXmlAttrFormatCode write WriteXmlAttrFormatCode; + property SourceLinked read ReadXmlAttrSourceLinked write WriteXmlAttrSourceLinked; + function ReadXmlAttrFormatCode(); + function WriteXmlAttrFormatCode(_value); + function ReadXmlAttrSourceLinked(); + function WriteXmlAttrSourceLinked(_value); + +public + // Attributes + XmlAttrFormatCode: OpenXmlAttribute; + XmlAttrSourceLinked: OpenXmlAttribute; + +end; + +type Scaling = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Scaling);override; +public + + // empty property + property Orientation read ReadXmlChildOrientation write WriteXmlChildOrientation; + function ReadXmlChildOrientation(); + function WriteXmlChildOrientation(_value); + +public + // Children + XmlChildOrientation: OpenXmlEmpty; +end; + +type DTable = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: DTable);override; +public + + // normal property + property ShowHorzBorder read ReadXmlChildShowHorzBorder; + property ShowVertBorder read ReadXmlChildShowVertBorder; + property ShowOutline read ReadXmlChildShowOutline; + property ShowKeys read ReadXmlChildShowKeys; + property TxPr read ReadXmlChildTxPr; + function ReadXmlChildShowHorzBorder(): PureVal; + function ReadXmlChildShowVertBorder(): PureVal; + function ReadXmlChildShowOutline(): PureVal; + function ReadXmlChildShowKeys(): PureVal; + function ReadXmlChildTxPr(): TxPr; + +public + // Children + XmlChildShowHorzBorder: PureVal; + XmlChildShowVertBorder: PureVal; + XmlChildShowOutline: PureVal; + XmlChildShowKeys: PureVal; + XmlChildTxPr: TxPr; +end; + +type TxPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: TxPr);override; +public + + // empty property + property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; + function ReadXmlChildLstStyle(); + function WriteXmlChildLstStyle(_value); + + // normal property + property BodyPr read ReadXmlChildBodyPr; + function ReadXmlChildBodyPr(): BodyPr; + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Children + XmlChildBodyPr: BodyPr; + XmlChildLstStyle: OpenXmlEmpty; +end; + +type Title = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Title);override; +public + + // empty property + property Layout read ReadXmlChildLayout write WriteXmlChildLayout; + function ReadXmlChildLayout(); + function WriteXmlChildLayout(_value); + + // normal property + property Tx read ReadXmlChildTx; + property Overlay read ReadXmlChildOverlay; + function ReadXmlChildTx(): Tx; + function ReadXmlChildOverlay(): PureVal; + +public + // Children + XmlChildTx: Tx; + XmlChildLayout: OpenXmlEmpty; + XmlChildOverlay: PureVal; +end; + +type Tx = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Tx);override; +public + + // normal property + property StrRef read ReadXmlChildStrRef; + property Rich read ReadXmlChildRich; + function ReadXmlChildStrRef(): StrRef; + function ReadXmlChildRich(): Rich; + +public + // Children + XmlChildStrRef: StrRef; + XmlChildRich: Rich; +end; + +type Rich = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Rich);override; +public + + // empty property + property LstStyle read ReadXmlChildLstStyle write WriteXmlChildLstStyle; + function ReadXmlChildLstStyle(); + function WriteXmlChildLstStyle(_value); + + // normal property + property BodyPr read ReadXmlChildBodyPr; + function ReadXmlChildBodyPr(): BodyPr; + + // multi property + property Ps read ReadPs; + function ReadPs(_index); + function AddP(): P; + function AppendP(): P; + +public + // Children + XmlChildBodyPr: BodyPr; + XmlChildLstStyle: OpenXmlEmpty; +end; + +type BodyPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: BodyPr);override; +public + // attributes property + property Rot read ReadXmlAttrRot write WriteXmlAttrRot; + property SpcFirstLastPara read ReadXmlAttrSpcFirstLastPara write WriteXmlAttrSpcFirstLastPara; + property VertOverflow read ReadXmlAttrVertOverflow write WriteXmlAttrVertOverflow; + property HorzOverflow read ReadXmlAttrHorzOverflow write WriteXmlAttrHorzOverflow; + property Vert read ReadXmlAttrVert write WriteXmlAttrVert; + property Wrap read ReadXmlAttrWrap write WriteXmlAttrWrap; + property LIns read ReadXmlAttrLIns write WriteXmlAttrLIns; + property TIns read ReadXmlAttrTIns write WriteXmlAttrTIns; + property RIns read ReadXmlAttrRIns write WriteXmlAttrRIns; + property BIns read ReadXmlAttrBIns write WriteXmlAttrBIns; + property NumCol read ReadXmlAttrNumCol write WriteXmlAttrNumCol; + property SpcCol read ReadXmlAttrSpcCol write WriteXmlAttrSpcCol; + property RtlCol read ReadXmlAttrRtlCol write WriteXmlAttrRtlCol; + property FromWordArt read ReadXmlAttrFromWordArt write WriteXmlAttrFromWordArt; + property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor; + property AnchorCtr read ReadXmlAttrAnchorCtr write WriteXmlAttrAnchorCtr; + property ForceAA read ReadXmlAttrForceAA write WriteXmlAttrForceAA; + property CompatLnSpc read ReadXmlAttrCompatLnSpc write WriteXmlAttrCompatLnSpc; + function ReadXmlAttrRot(); + function WriteXmlAttrRot(_value); + function ReadXmlAttrSpcFirstLastPara(); + function WriteXmlAttrSpcFirstLastPara(_value); + function ReadXmlAttrVertOverflow(); + function WriteXmlAttrVertOverflow(_value); + function ReadXmlAttrHorzOverflow(); + function WriteXmlAttrHorzOverflow(_value); + function ReadXmlAttrVert(); + function WriteXmlAttrVert(_value); + function ReadXmlAttrWrap(); + function WriteXmlAttrWrap(_value); + function ReadXmlAttrLIns(); + function WriteXmlAttrLIns(_value); + function ReadXmlAttrTIns(); + function WriteXmlAttrTIns(_value); + function ReadXmlAttrRIns(); + function WriteXmlAttrRIns(_value); + function ReadXmlAttrBIns(); + function WriteXmlAttrBIns(_value); + function ReadXmlAttrNumCol(); + function WriteXmlAttrNumCol(_value); + function ReadXmlAttrSpcCol(); + function WriteXmlAttrSpcCol(_value); + function ReadXmlAttrRtlCol(); + function WriteXmlAttrRtlCol(_value); + function ReadXmlAttrFromWordArt(); + function WriteXmlAttrFromWordArt(_value); + function ReadXmlAttrAnchor(); + function WriteXmlAttrAnchor(_value); + function ReadXmlAttrAnchorCtr(); + function WriteXmlAttrAnchorCtr(_value); + function ReadXmlAttrForceAA(); + function WriteXmlAttrForceAA(_value); + function ReadXmlAttrCompatLnSpc(); + function WriteXmlAttrCompatLnSpc(_value); + + // empty property + property NoAutofit read ReadXmlChildNoAutofit write WriteXmlChildNoAutofit; + function ReadXmlChildNoAutofit(); + function WriteXmlChildNoAutofit(_value); + + // normal property + property PrstTxWrap read ReadXmlChildPrstTxWrap; + function ReadXmlChildPrstTxWrap(): PrstTxWrap; + +public + // Attributes + XmlAttrRot: OpenXmlAttribute; + XmlAttrSpcFirstLastPara: OpenXmlAttribute; + XmlAttrVertOverflow: OpenXmlAttribute; + XmlAttrHorzOverflow: OpenXmlAttribute; + XmlAttrVert: OpenXmlAttribute; + XmlAttrWrap: OpenXmlAttribute; + XmlAttrLIns: OpenXmlAttribute; + XmlAttrTIns: OpenXmlAttribute; + XmlAttrRIns: OpenXmlAttribute; + XmlAttrBIns: OpenXmlAttribute; + XmlAttrNumCol: OpenXmlAttribute; + XmlAttrSpcCol: OpenXmlAttribute; + XmlAttrRtlCol: OpenXmlAttribute; + XmlAttrFromWordArt: OpenXmlAttribute; + XmlAttrAnchor: OpenXmlAttribute; + XmlAttrAnchorCtr: OpenXmlAttribute; + XmlAttrForceAA: OpenXmlAttribute; + XmlAttrCompatLnSpc: OpenXmlAttribute; + + // Children + XmlChildPrstTxWrap: PrstTxWrap; + XmlChildNoAutofit: OpenXmlEmpty; +end; + +type PrstTxWrap = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PrstTxWrap);override; +public + // attributes property + property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; + function ReadXmlAttrPrst(); + function WriteXmlAttrPrst(_value); + + // empty property + property AvLst read ReadXmlChildAvLst write WriteXmlChildAvLst; + function ReadXmlChildAvLst(); + function WriteXmlChildAvLst(_value); + +public + // Attributes + XmlAttrPrst: OpenXmlAttribute; + + // Children + XmlChildAvLst: OpenXmlEmpty; +end; + +type P = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: P);override; +public + + // normal property + property PPr read ReadXmlChildPPr; + property EndParaRPr read ReadXmlChildEndParaRPr; + function ReadXmlChildPPr(): PPr; + function ReadXmlChildEndParaRPr(): RPr; + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Children + XmlChildPPr: PPr; + XmlChildEndParaRPr: RPr; +end; + +type RPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: RPr);override; +public + // attributes property + property Lang read ReadXmlAttrLang write WriteXmlAttrLang; + property AltLang read ReadXmlAttrAltLang write WriteXmlAttrAltLang; + property B read ReadXmlAttrB write WriteXmlAttrB; + property Baseline read ReadXmlAttrBaseline write WriteXmlAttrBaseline; + property I read ReadXmlAttrI write WriteXmlAttrI; + property Kern read ReadXmlAttrKern write WriteXmlAttrKern; + property Spc read ReadXmlAttrSpc write WriteXmlAttrSpc; + property Strike read ReadXmlAttrStrike write WriteXmlAttrStrike; + property Sz read ReadXmlAttrSz write WriteXmlAttrSz; + property U read ReadXmlAttrU write WriteXmlAttrU; + function ReadXmlAttrLang(); + function WriteXmlAttrLang(_value); + function ReadXmlAttrAltLang(); + function WriteXmlAttrAltLang(_value); + function ReadXmlAttrB(); + function WriteXmlAttrB(_value); + function ReadXmlAttrBaseline(); + function WriteXmlAttrBaseline(_value); + function ReadXmlAttrI(); + function WriteXmlAttrI(_value); + function ReadXmlAttrKern(); + function WriteXmlAttrKern(_value); + function ReadXmlAttrSpc(); + function WriteXmlAttrSpc(_value); + function ReadXmlAttrStrike(); + function WriteXmlAttrStrike(_value); + function ReadXmlAttrSz(); + function WriteXmlAttrSz(_value); + function ReadXmlAttrU(); + function WriteXmlAttrU(_value); + + // normal property + property SolidFill read ReadXmlChildSolidFill; + property Latin read ReadXmlChildLatin; + property Ea read ReadXmlChildEa; + property Cs read ReadXmlChildCs; + function ReadXmlChildSolidFill(): SolidFill; + function ReadXmlChildLatin(): Latin; + function ReadXmlChildEa(): Latin; + function ReadXmlChildCs(): Latin; + +public + // Attributes + XmlAttrLang: OpenXmlAttribute; + XmlAttrAltLang: OpenXmlAttribute; + XmlAttrB: OpenXmlAttribute; + XmlAttrBaseline: OpenXmlAttribute; + XmlAttrI: OpenXmlAttribute; + XmlAttrKern: OpenXmlAttribute; + XmlAttrSpc: OpenXmlAttribute; + XmlAttrStrike: OpenXmlAttribute; + XmlAttrSz: OpenXmlAttribute; + XmlAttrU: OpenXmlAttribute; + + // Children + XmlChildSolidFill: SolidFill; + XmlChildLatin: Latin; + XmlChildEa: Latin; + XmlChildCs: Latin; +end; + +type PPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PPr);override; +public + + // normal property + property DefRPr read ReadXmlChildDefRPr; + function ReadXmlChildDefRPr(): RPr; + +public + // Children + XmlChildDefRPr: RPr; +end; + +type Latin = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Latin);override; +public + // attributes property + property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface; + function ReadXmlAttrTypeface(); + function WriteXmlAttrTypeface(_value); + +public + // Attributes + XmlAttrTypeface: OpenXmlAttribute; + +end; + +type R = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: R);override; +public + + // normal property + property RPr read ReadXmlChildRPr; + property T read ReadXmlChildT; + function ReadXmlChildRPr(): RPr; + function ReadXmlChildT(): T; + +public + // Children + XmlChildRPr: RPr; + XmlChildT: T; +end; + +type ExternalData = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: ExternalData);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + + // normal property + property AutoUpdate read ReadXmlChildAutoUpdate; + function ReadXmlChildAutoUpdate(): PureVal; + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + + // Children + XmlChildAutoUpdate: PureVal; +end; + +type _Inline = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: _Inline);override; +public + // attributes property + property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT; + property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB; + property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL; + property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR; + property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; + property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId; + function ReadXmlAttrDistT(); + function WriteXmlAttrDistT(_value); + function ReadXmlAttrDistB(); + function WriteXmlAttrDistB(_value); + function ReadXmlAttrDistL(); + function WriteXmlAttrDistL(_value); + function ReadXmlAttrDistR(); + function WriteXmlAttrDistR(_value); + function ReadXmlAttrAnchorId(); + function WriteXmlAttrAnchorId(_value); + function ReadXmlAttrEditId(); + function WriteXmlAttrEditId(_value); + + // normal property + property Extent read ReadXmlChildExtent; + property EffectExtent read ReadXmlChildEffectExtent; + property DocPr read ReadXmlChildDocPr; + property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr; + property Graphic read ReadXmlChildGraphic; + function ReadXmlChildExtent(): CXY; + function ReadXmlChildEffectExtent(): EffectExtent; + function ReadXmlChildDocPr(): DocPr; + function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; + function ReadXmlChildGraphic(): Graphic; + +public + // Attributes + XmlAttrDistT: OpenXmlAttribute; + XmlAttrDistB: OpenXmlAttribute; + XmlAttrDistL: OpenXmlAttribute; + XmlAttrDistR: OpenXmlAttribute; + XmlAttrAnchorId: OpenXmlAttribute; + XmlAttrEditId: OpenXmlAttribute; + + // Children + XmlChildExtent: CXY; + XmlChildEffectExtent: EffectExtent; + XmlChildDocPr: DocPr; + XmlChildCNvGraphicFramePr: CNvGraphicFramePr; + XmlChildGraphic: Graphic; +end; + +type EffectExtent = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: EffectExtent);override; +public + // attributes property + property L read ReadXmlAttrL write WriteXmlAttrL; + property T read ReadXmlAttrT write WriteXmlAttrT; + property R read ReadXmlAttrR write WriteXmlAttrR; + property B read ReadXmlAttrB write WriteXmlAttrB; + function ReadXmlAttrL(); + function WriteXmlAttrL(_value); + function ReadXmlAttrT(); + function WriteXmlAttrT(_value); + function ReadXmlAttrR(); + function WriteXmlAttrR(_value); + function ReadXmlAttrB(); + function WriteXmlAttrB(_value); + +public + // Attributes + XmlAttrL: OpenXmlAttribute; + XmlAttrT: OpenXmlAttribute; + XmlAttrR: OpenXmlAttribute; + XmlAttrB: OpenXmlAttribute; + +end; + +type DocPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: DocPr);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Name read ReadXmlAttrName write WriteXmlAttrName; + property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + function ReadXmlAttrDescr(); + function WriteXmlAttrDescr(_value); + + // normal property + property ExtLst read ReadXmlChildExtLst; + function ReadXmlChildExtLst(): ExtLst; + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + XmlAttrName: OpenXmlAttribute; + XmlAttrDescr: OpenXmlAttribute; + + // Children + XmlChildExtLst: ExtLst; +end; + +type CNvGraphicFramePr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CNvGraphicFramePr);override; +public + + // normal property + property GraphicFrameLocks read ReadXmlChildGraphicFrameLocks; + function ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks; + +public + // Children + XmlChildGraphicFrameLocks: GraphicFrameLocks; +end; + +type GraphicFrameLocks = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: GraphicFrameLocks);override; +public + // attributes property + property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; + function ReadXmlAttrNoChangeAspect(); + function WriteXmlAttrNoChangeAspect(_value); + +public + // Attributes + XmlAttrNoChangeAspect: OpenXmlAttribute; + +end; + +type Graphic = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Graphic);override; +public + + // normal property + property GraphicData read ReadXmlChildGraphicData; + function ReadXmlChildGraphicData(): GraphicData; + +public + // Children + XmlChildGraphicData: GraphicData; +end; + +type GraphicData = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: GraphicData);override; +public + // attributes property + property Uri read ReadXmlAttrUri write WriteXmlAttrUri; + function ReadXmlAttrUri(); + function WriteXmlAttrUri(_value); + + // normal property + property Pic read ReadXmlChildPic; + property Chart read ReadXmlChildChart; + property Wsp read ReadXmlChildWsp; + function ReadXmlChildPic(): Pic; + function ReadXmlChildChart(): Chart; + function ReadXmlChildWsp(): Wsp; + +public + // Attributes + XmlAttrUri: OpenXmlAttribute; + + // Children + XmlChildPic: Pic; + XmlChildChart: Chart; + XmlChildWsp: Wsp; +end; + +type Wsp = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Wsp);override; +public + + // normal property + property CNvSpPr read ReadXmlChildCNvSpPr; + property SpPr read ReadXmlChildSpPr; + property Txbx read ReadXmlChildTxbx; + property Style read ReadXmlChildStyle; + property BodyPr read ReadXmlChildBodyPr; + function ReadXmlChildCNvSpPr(): CNvSpPr; + function ReadXmlChildSpPr(): SpPr; + function ReadXmlChildTxbx(): Txbx; + function ReadXmlChildStyle(): WpsStyle; + function ReadXmlChildBodyPr(): BodyPr; + +public + // Children + XmlChildCNvSpPr: CNvSpPr; + XmlChildSpPr: SpPr; + XmlChildTxbx: Txbx; + XmlChildStyle: WpsStyle; + XmlChildBodyPr: BodyPr; +end; + +type WpsStyle = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: WpsStyle);override; +public + + // normal property + property LnRef read ReadXmlChildLnRef; + property FillRef read ReadXmlChildFillRef; + property EffectRef read ReadXmlChildEffectRef; + property FontRef read ReadXmlChildFontRef; + function ReadXmlChildLnRef(): XRef; + function ReadXmlChildFillRef(): XRef; + function ReadXmlChildEffectRef(): XRef; + function ReadXmlChildFontRef(): XRef; + +public + // Children + XmlChildLnRef: XRef; + XmlChildFillRef: XRef; + XmlChildEffectRef: XRef; + XmlChildFontRef: XRef; +end; + +type XRef = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: XRef);override; +public + // attributes property + property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx; + function ReadXmlAttrIdx(); + function WriteXmlAttrIdx(_value); + + // normal property + property SchemeClr read ReadXmlChildSchemeClr; + function ReadXmlChildSchemeClr(): SchemeClr; + +public + // Attributes + XmlAttrIdx: OpenXmlAttribute; + + // Children + XmlChildSchemeClr: SchemeClr; +end; + +type Txbx = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Txbx);override; +public + + // normal property + property TxbxContent read ReadXmlChildTxbxContent; + function ReadXmlChildTxbxContent(): TxbxContent; + +public + // Children + XmlChildTxbxContent: TxbxContent; +end; + +type CNvSpPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CNvSpPr);override; +public + // attributes property + property TxBox read ReadXmlAttrTxBox write WriteXmlAttrTxBox; + function ReadXmlAttrTxBox(); + function WriteXmlAttrTxBox(_value); + + // normal property + property SpLocks read ReadXmlChildSpLocks; + function ReadXmlChildSpLocks(): SpLocks; + +public + // Attributes + XmlAttrTxBox: OpenXmlAttribute; + + // Children + XmlChildSpLocks: SpLocks; +end; + +type SpLocks = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SpLocks);override; +public + // attributes property + property NoChangeArrowheads read ReadXmlAttrNoChangeArrowheads write WriteXmlAttrNoChangeArrowheads; + function ReadXmlAttrNoChangeArrowheads(); + function WriteXmlAttrNoChangeArrowheads(_value); + +public + // Attributes + XmlAttrNoChangeArrowheads: OpenXmlAttribute; + +end; + +type Pic = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Pic);override; +public + + // normal property + property NvPicPr read ReadXmlChildNvPicPr; + property BlipFill read ReadXmlChildBlipFill; + property SpPr read ReadXmlChildSpPr; + function ReadXmlChildNvPicPr(): NvPicPr; + function ReadXmlChildBlipFill(): BlipFill; + function ReadXmlChildSpPr(): SpPr; + +public + // Children + XmlChildNvPicPr: NvPicPr; + XmlChildBlipFill: BlipFill; + XmlChildSpPr: SpPr; +end; + +type NvPicPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: NvPicPr);override; +public + + // normal property + property CNvPr read ReadXmlChildCNvPr; + property CNvPicPr read ReadXmlChildCNvPicPr; + function ReadXmlChildCNvPr(): CNvPr; + function ReadXmlChildCNvPicPr(): CNvPicPr; + +public + // Children + XmlChildCNvPr: CNvPr; + XmlChildCNvPicPr: CNvPicPr; +end; + +type CNvPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CNvPr);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Name read ReadXmlAttrName write WriteXmlAttrName; + property Descr read ReadXmlAttrDescr write WriteXmlAttrDescr; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrName(); + function WriteXmlAttrName(_value); + function ReadXmlAttrDescr(); + function WriteXmlAttrDescr(_value); + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + XmlAttrName: OpenXmlAttribute; + XmlAttrDescr: OpenXmlAttribute; + +end; + +type CNvPicPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CNvPicPr);override; +public + + // normal property + property PicLocks read ReadXmlChildPicLocks; + function ReadXmlChildPicLocks(): PicLocks; + +public + // Children + XmlChildPicLocks: PicLocks; +end; + +type PicLocks = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PicLocks);override; +public + // attributes property + property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect; + function ReadXmlAttrNoChangeAspect(); + function WriteXmlAttrNoChangeAspect(_value); + +public + // Attributes + XmlAttrNoChangeAspect: OpenXmlAttribute; + +end; + +type BlipFill = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: BlipFill);override; +public + + // normal property + property Blip read ReadXmlChildBlip; + property Stretch read ReadXmlChildStretch; + function ReadXmlChildBlip(): Blip; + function ReadXmlChildStretch(): Stretch; + +public + // Children + XmlChildBlip: Blip; + XmlChildStretch: Stretch; +end; + +type Blip = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Blip);override; +public + // attributes property + property Embed read ReadXmlAttrEmbed write WriteXmlAttrEmbed; + property Cstate read ReadXmlAttrCstate write WriteXmlAttrCstate; + function ReadXmlAttrEmbed(); + function WriteXmlAttrEmbed(_value); + function ReadXmlAttrCstate(); + function WriteXmlAttrCstate(_value); + +public + // Attributes + XmlAttrEmbed: OpenXmlAttribute; + XmlAttrCstate: OpenXmlAttribute; + +end; + +type Stretch = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Stretch);override; +public + + // normal property + property FillRect read ReadXmlChildFillRect; + function ReadXmlChildFillRect(): PureVal; + +public + // Children + XmlChildFillRect: PureVal; +end; + +type SpPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SpPr);override; +public + // attributes property + property BwMode read ReadXmlAttrBwMode write WriteXmlAttrBwMode; + function ReadXmlAttrBwMode(); + function WriteXmlAttrBwMode(_value); + + // empty property + property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; + function ReadXmlChildNoFill(); + function WriteXmlChildNoFill(_value); + + // normal property + property Xfrm read ReadXmlChildXfrm; + property PrstGeom read ReadXmlChildPrstGeom; + property SolidFill read ReadXmlChildSolidFill; + property Ln read ReadXmlChildLn; + property EffectLst read ReadXmlChildEffectLst; + function ReadXmlChildXfrm(): Xfrm; + function ReadXmlChildPrstGeom(): PrstGeom; + function ReadXmlChildSolidFill(): SolidFill; + function ReadXmlChildLn(): Ln; + function ReadXmlChildEffectLst(): EffectLst; + +public + // Attributes + XmlAttrBwMode: OpenXmlAttribute; + + // Children + XmlChildXfrm: Xfrm; + XmlChildPrstGeom: PrstGeom; + XmlChildNoFill: OpenXmlEmpty; + XmlChildSolidFill: SolidFill; + XmlChildLn: Ln; + XmlChildEffectLst: EffectLst; +end; + +type EffectLst = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: EffectLst);override; +public + + // normal property + property OuterShdw read ReadXmlChildOuterShdw; + function ReadXmlChildOuterShdw(): OuterShdw; + +public + // Children + XmlChildOuterShdw: OuterShdw; +end; + +type Ln = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Ln);override; +public + // attributes property + property W read ReadXmlAttrW write WriteXmlAttrW; + property Cap read ReadXmlAttrCap write WriteXmlAttrCap; + property Cmpd read ReadXmlAttrCmpd write WriteXmlAttrCmpd; + property Algn read ReadXmlAttrAlgn write WriteXmlAttrAlgn; + function ReadXmlAttrW(); + function WriteXmlAttrW(_value); + function ReadXmlAttrCap(); + function WriteXmlAttrCap(_value); + function ReadXmlAttrCmpd(); + function WriteXmlAttrCmpd(_value); + function ReadXmlAttrAlgn(); + function WriteXmlAttrAlgn(_value); + + // empty property + property NoFill read ReadXmlChildNoFill write WriteXmlChildNoFill; + property HeadEnd read ReadXmlChildHeadEnd write WriteXmlChildHeadEnd; + property TailEnd read ReadXmlChildTailEnd write WriteXmlChildTailEnd; + function ReadXmlChildNoFill(); + function WriteXmlChildNoFill(_value); + function ReadXmlChildHeadEnd(); + function WriteXmlChildHeadEnd(_value); + function ReadXmlChildTailEnd(); + function WriteXmlChildTailEnd(_value); + + // normal property + property SolidFill read ReadXmlChildSolidFill; + property PrstDash read ReadXmlChildPrstDash; + property Miter read ReadXmlChildMiter; + function ReadXmlChildSolidFill(): SolidFill; + function ReadXmlChildPrstDash(): PureVal; + function ReadXmlChildMiter(): Miter; + +public + // Attributes + XmlAttrW: OpenXmlAttribute; + XmlAttrCap: OpenXmlAttribute; + XmlAttrCmpd: OpenXmlAttribute; + XmlAttrAlgn: OpenXmlAttribute; + + // Children + XmlChildNoFill: OpenXmlEmpty; + XmlChildSolidFill: SolidFill; + XmlChildPrstDash: PureVal; + XmlChildMiter: Miter; + XmlChildHeadEnd: OpenXmlEmpty; + XmlChildTailEnd: OpenXmlEmpty; +end; + +type Miter = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Miter);override; +public + // attributes property + property Lim read ReadXmlAttrLim write WriteXmlAttrLim; + function ReadXmlAttrLim(); + function WriteXmlAttrLim(_value); + +public + // Attributes + XmlAttrLim: OpenXmlAttribute; + +end; + +type Xfrm = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Xfrm);override; +public + + // normal property + property Off read ReadXmlChildOff; + property Ext read ReadXmlChildExt; + function ReadXmlChildOff(): XY; + function ReadXmlChildExt(): CXY; + +public + // Children + XmlChildOff: XY; + XmlChildExt: CXY; +end; + +type XY = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: XY);override; +public + // attributes property + property X read ReadXmlAttrX write WriteXmlAttrX; + property Y read ReadXmlAttrY write WriteXmlAttrY; + function ReadXmlAttrX(); + function WriteXmlAttrX(_value); + function ReadXmlAttrY(); + function WriteXmlAttrY(_value); + +public + // Attributes + XmlAttrX: OpenXmlAttribute; + XmlAttrY: OpenXmlAttribute; + +end; + +type CXY = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CXY);override; +public + // attributes property + property Cx read ReadXmlAttrCx write WriteXmlAttrCx; + property Cy read ReadXmlAttrCy write WriteXmlAttrCy; + function ReadXmlAttrCx(); + function WriteXmlAttrCx(_value); + function ReadXmlAttrCy(); + function WriteXmlAttrCy(_value); + +public + // Attributes + XmlAttrCx: OpenXmlAttribute; + XmlAttrCy: OpenXmlAttribute; + +end; + +type PrstGeom = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PrstGeom);override; +public + // attributes property + property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst; + function ReadXmlAttrPrst(); + function WriteXmlAttrPrst(_value); + + // normal property + property AvLst read ReadXmlChildAvLst; + function ReadXmlChildAvLst(): PureVal; + +public + // Attributes + XmlAttrPrst: OpenXmlAttribute; + + // Children + XmlChildAvLst: PureVal; +end; + +type Anchor = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Anchor);override; +public + // attributes property + property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT; + property DistB read ReadXmlAttrDistB write WriteXmlAttrDistB; + property DistL read ReadXmlAttrDistL write WriteXmlAttrDistL; + property DistR read ReadXmlAttrDistR write WriteXmlAttrDistR; + property SimplePos read ReadXmlAttrSimplePos write WriteXmlAttrSimplePos; + property RelativeHeight read ReadXmlAttrRelativeHeight write WriteXmlAttrRelativeHeight; + property BehindDoc read ReadXmlAttrBehindDoc write WriteXmlAttrBehindDoc; + property Locked read ReadXmlAttrLocked write WriteXmlAttrLocked; + property Hidden read ReadXmlAttrHidden write WriteXmlAttrHidden; + property LayoutInCell read ReadXmlAttrLayoutInCell write WriteXmlAttrLayoutInCell; + property AllowOverlap read ReadXmlAttrAllowOverlap write WriteXmlAttrAllowOverlap; + property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; + property EditId read ReadXmlAttrEditId write WriteXmlAttrEditId; + function ReadXmlAttrDistT(); + function WriteXmlAttrDistT(_value); + function ReadXmlAttrDistB(); + function WriteXmlAttrDistB(_value); + function ReadXmlAttrDistL(); + function WriteXmlAttrDistL(_value); + function ReadXmlAttrDistR(); + function WriteXmlAttrDistR(_value); + function ReadXmlAttrSimplePos(); + function WriteXmlAttrSimplePos(_value); + function ReadXmlAttrRelativeHeight(); + function WriteXmlAttrRelativeHeight(_value); + function ReadXmlAttrBehindDoc(); + function WriteXmlAttrBehindDoc(_value); + function ReadXmlAttrLocked(); + function WriteXmlAttrLocked(_value); + function ReadXmlAttrHidden(); + function WriteXmlAttrHidden(_value); + function ReadXmlAttrLayoutInCell(); + function WriteXmlAttrLayoutInCell(_value); + function ReadXmlAttrAllowOverlap(); + function WriteXmlAttrAllowOverlap(_value); + function ReadXmlAttrAnchorId(); + function WriteXmlAttrAnchorId(_value); + function ReadXmlAttrEditId(); + function WriteXmlAttrEditId(_value); + + // empty property + property WrapNone read ReadXmlChildWrapNone write WriteXmlChildWrapNone; + function ReadXmlChildWrapNone(); + function WriteXmlChildWrapNone(_value); + + // normal property + property SimplePos read ReadXmlChildSimplePos; + property PositionH read ReadXmlChildPositionH; + property PositionV read ReadXmlChildPositionV; + property Extent read ReadXmlChildExtent; + property EffectExtent read ReadXmlChildEffectExtent; + property DocPr read ReadXmlChildDocPr; + property CNvGraphicFramePr read ReadXmlChildCNvGraphicFramePr; + property Graphic read ReadXmlChildGraphic; + property SizeRelH read ReadXmlChildSizeRelH; + property SizeRelV read ReadXmlChildSizeRelV; + function ReadXmlChildSimplePos(): XY; + function ReadXmlChildPositionH(): PositionH; + function ReadXmlChildPositionV(): PositionV; + function ReadXmlChildExtent(): CXY; + function ReadXmlChildEffectExtent(): EffectExtent; + function ReadXmlChildDocPr(): DocPr; + function ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; + function ReadXmlChildGraphic(): Graphic; + function ReadXmlChildSizeRelH(): SizeRelH; + function ReadXmlChildSizeRelV(): SizeRelV; + +public + // Attributes + XmlAttrDistT: OpenXmlAttribute; + XmlAttrDistB: OpenXmlAttribute; + XmlAttrDistL: OpenXmlAttribute; + XmlAttrDistR: OpenXmlAttribute; + XmlAttrSimplePos: OpenXmlAttribute; + XmlAttrRelativeHeight: OpenXmlAttribute; + XmlAttrBehindDoc: OpenXmlAttribute; + XmlAttrLocked: OpenXmlAttribute; + XmlAttrHidden: OpenXmlAttribute; + XmlAttrLayoutInCell: OpenXmlAttribute; + XmlAttrAllowOverlap: OpenXmlAttribute; + XmlAttrAnchorId: OpenXmlAttribute; + XmlAttrEditId: OpenXmlAttribute; + + // Children + XmlChildSimplePos: XY; + XmlChildPositionH: PositionH; + XmlChildPositionV: PositionV; + XmlChildExtent: CXY; + XmlChildEffectExtent: EffectExtent; + XmlChildWrapNone: OpenXmlEmpty; + XmlChildDocPr: DocPr; + XmlChildCNvGraphicFramePr: CNvGraphicFramePr; + XmlChildGraphic: Graphic; + XmlChildSizeRelH: SizeRelH; + XmlChildSizeRelV: SizeRelV; +end; + +type PositionV = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PositionV);override; +public + // attributes property + property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; + function ReadXmlAttrRelativeFrom(); + function WriteXmlAttrRelativeFrom(_value); + + // pcdata property + property PosOffset read ReadXmlChildPosOffset; + function ReadXmlChildPosOffset(); + +public + // Attributes + XmlAttrRelativeFrom: OpenXmlAttribute; + + // Children + XmlChildPosOffset: OpenXmlPcdata; +end; + +type PositionH = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PositionH);override; +public + // attributes property + property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; + function ReadXmlAttrRelativeFrom(); + function WriteXmlAttrRelativeFrom(_value); + + // pcdata property + property PosOffset read ReadXmlChildPosOffset; + function ReadXmlChildPosOffset(); + +public + // Attributes + XmlAttrRelativeFrom: OpenXmlAttribute; + + // Children + XmlChildPosOffset: OpenXmlPcdata; +end; + +type SizeRelH = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SizeRelH);override; +public + // attributes property + property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; + function ReadXmlAttrRelativeFrom(); + function WriteXmlAttrRelativeFrom(_value); + + // pcdata property + property PctWidth read ReadXmlChildPctWidth; + function ReadXmlChildPctWidth(); + +public + // Attributes + XmlAttrRelativeFrom: OpenXmlAttribute; + + // Children + XmlChildPctWidth: OpenXmlPcdata; +end; + +type SizeRelV = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SizeRelV);override; +public + // attributes property + property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom; + function ReadXmlAttrRelativeFrom(); + function WriteXmlAttrRelativeFrom(_value); + + // pcdata property + property PctHeight read ReadXmlChildPctHeight; + function ReadXmlChildPctHeight(); + +public + // Attributes + XmlAttrRelativeFrom: OpenXmlAttribute; + + // Children + XmlChildPctHeight: OpenXmlPcdata; +end; + +implementation + +function Theme.Create();overload; +begin + {self.}Create(nil, "a", "theme"); +end; + +function Theme.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Theme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Theme.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "name": makeweakref(thisFunction(WriteXmlAttrName)), + ); + sorted_child_ := array( + pre + "themeElements": array(0, makeweakref(thisFunction(ReadXmlChildThemeElements))), + pre + "objectDefaults": array(1, makeweakref(thisFunction(ReadXmlChildObjectDefaults))), + pre + "extraClrSchemeLst": array(2, makeweakref(thisFunction(ReadXmlChildExtraClrSchemeLst))), + pre + "extLst": array(3, makeweakref(thisFunction(ReadXmlChildExtLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Theme.Copy(_obj: Theme);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.XmlChildThemeElements) then + {self.}ThemeElements.Copy(_obj.XmlChildThemeElements); + if not ifnil(_obj.XmlChildObjectDefaults) then + ifnil({self.}XmlChildObjectDefaults) ? {self.}ObjectDefaults.Copy(_obj.XmlChildObjectDefaults) : {self.}XmlChildObjectDefaults.Copy(_obj.XmlChildObjectDefaults); + if not ifnil(_obj.XmlChildExtraClrSchemeLst) then + ifnil({self.}XmlChildExtraClrSchemeLst) ? {self.}ExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst) : {self.}XmlChildExtraClrSchemeLst.Copy(_obj.XmlChildExtraClrSchemeLst); + if not ifnil(_obj.XmlChildExtLst) then + {self.}ExtLst.Copy(_obj.XmlChildExtLst); + tslassigning := tslassigning_backup; +end; + +function Theme.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function Theme.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function Theme.ReadXmlChildObjectDefaults(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildObjectDefaults) then + begin + {self.}XmlChildObjectDefaults := new OpenXmlEmpty(self, {self.}Prefix, "objectDefaults"); + container_.Set({self.}XmlChildObjectDefaults); + end + return {self.}XmlChildObjectDefaults; + end + return ifnil({self.}XmlChildObjectDefaults) ? nil : {self.}XmlChildObjectDefaults.BoolValue(); +end; + +function Theme.WriteXmlChildObjectDefaults(_value); +begin + if ifnil({self.}XmlChildObjectDefaults) then + begin + {self.}XmlChildObjectDefaults := new OpenXmlEmpty(self, {self.}Prefix, "objectDefaults"); + container_.Set({self.}XmlChildObjectDefaults); + end + {self.}XmlChildObjectDefaults.Value := _value; +end; + +function Theme.ReadXmlChildExtraClrSchemeLst(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildExtraClrSchemeLst) then + begin + {self.}XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, {self.}Prefix, "extraClrSchemeLst"); + container_.Set({self.}XmlChildExtraClrSchemeLst); + end + return {self.}XmlChildExtraClrSchemeLst; + end + return ifnil({self.}XmlChildExtraClrSchemeLst) ? nil : {self.}XmlChildExtraClrSchemeLst.BoolValue(); +end; + +function Theme.WriteXmlChildExtraClrSchemeLst(_value); +begin + if ifnil({self.}XmlChildExtraClrSchemeLst) then + begin + {self.}XmlChildExtraClrSchemeLst := new OpenXmlEmpty(self, {self.}Prefix, "extraClrSchemeLst"); + container_.Set({self.}XmlChildExtraClrSchemeLst); + end + {self.}XmlChildExtraClrSchemeLst.Value := _value; +end; + +function Theme.ReadXmlChildThemeElements(): ThemeElements; +begin + if tslassigning and ifnil({self.}XmlChildThemeElements) then + begin + {self.}XmlChildThemeElements := new ThemeElements(self, {self.}Prefix, "themeElements"); + container_.Set({self.}XmlChildThemeElements); + end + return {self.}XmlChildThemeElements; +end; + +function Theme.ReadXmlChildExtLst(): ExtLst; +begin + if tslassigning and ifnil({self.}XmlChildExtLst) then + begin + {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); + container_.Set({self.}XmlChildExtLst); + end + return {self.}XmlChildExtLst; +end; + +function ThemeElements.Create();overload; +begin + {self.}Create(nil, "a", "themeElements"); +end; + +function ThemeElements.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ThemeElements.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ThemeElements.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "name": makeweakref(thisFunction(WriteXmlAttrName)), + ); + sorted_child_ := array( + pre + "clrScheme": array(0, makeweakref(thisFunction(ReadXmlChildClrScheme))), + pre + "fontScheme": array(1, makeweakref(thisFunction(ReadXmlChildFontScheme))), + pre + "fmtScheme": array(2, makeweakref(thisFunction(ReadXmlChildFmtScheme))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ThemeElements.Copy(_obj: ThemeElements);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.XmlChildClrScheme) then + {self.}ClrScheme.Copy(_obj.XmlChildClrScheme); + if not ifnil(_obj.XmlChildFontScheme) then + {self.}FontScheme.Copy(_obj.XmlChildFontScheme); + if not ifnil(_obj.XmlChildFmtScheme) then + {self.}FmtScheme.Copy(_obj.XmlChildFmtScheme); + tslassigning := tslassigning_backup; +end; + +function ThemeElements.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function ThemeElements.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function ThemeElements.ReadXmlChildClrScheme(): ClrScheme; +begin + if tslassigning and ifnil({self.}XmlChildClrScheme) then + begin + {self.}XmlChildClrScheme := new ClrScheme(self, {self.}Prefix, "clrScheme"); + container_.Set({self.}XmlChildClrScheme); + end + return {self.}XmlChildClrScheme; +end; + +function ThemeElements.ReadXmlChildFontScheme(): FontScheme; +begin + if tslassigning and ifnil({self.}XmlChildFontScheme) then + begin + {self.}XmlChildFontScheme := new FontScheme(self, {self.}Prefix, "fontScheme"); + container_.Set({self.}XmlChildFontScheme); + end + return {self.}XmlChildFontScheme; +end; + +function ThemeElements.ReadXmlChildFmtScheme(): FmtScheme; +begin + if tslassigning and ifnil({self.}XmlChildFmtScheme) then + begin + {self.}XmlChildFmtScheme := new FmtScheme(self, {self.}Prefix, "fmtScheme"); + container_.Set({self.}XmlChildFmtScheme); + end + return {self.}XmlChildFmtScheme; +end; + +function ClrScheme.Create();overload; +begin + {self.}Create(nil, "a", "clrScheme"); +end; + +function ClrScheme.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ClrScheme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ClrScheme.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "name": makeweakref(thisFunction(WriteXmlAttrName)), + ); + sorted_child_ := array( + pre + "dk1": array(0, makeweakref(thisFunction(ReadXmlChildDk1))), + pre + "lt1": array(1, makeweakref(thisFunction(ReadXmlChildLt1))), + pre + "dk2": array(2, makeweakref(thisFunction(ReadXmlChildDk2))), + pre + "lt2": array(3, makeweakref(thisFunction(ReadXmlChildLt2))), + pre + "accent1": array(4, makeweakref(thisFunction(ReadXmlChildAccent1))), + pre + "accent2": array(5, makeweakref(thisFunction(ReadXmlChildAccent2))), + pre + "accent3": array(6, makeweakref(thisFunction(ReadXmlChildAccent3))), + pre + "accent4": array(7, makeweakref(thisFunction(ReadXmlChildAccent4))), + pre + "accent5": array(8, makeweakref(thisFunction(ReadXmlChildAccent5))), + pre + "accent6": array(9, makeweakref(thisFunction(ReadXmlChildAccent6))), + pre + "hlink": array(10, makeweakref(thisFunction(ReadXmlChildHlink))), + pre + "folHlink": array(11, makeweakref(thisFunction(ReadXmlChildFolHlink))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ClrScheme.Copy(_obj: ClrScheme);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.XmlChildDk1) then + {self.}Dk1.Copy(_obj.XmlChildDk1); + if not ifnil(_obj.XmlChildLt1) then + {self.}Lt1.Copy(_obj.XmlChildLt1); + if not ifnil(_obj.XmlChildDk2) then + {self.}Dk2.Copy(_obj.XmlChildDk2); + if not ifnil(_obj.XmlChildLt2) then + {self.}Lt2.Copy(_obj.XmlChildLt2); + if not ifnil(_obj.XmlChildAccent1) then + {self.}Accent1.Copy(_obj.XmlChildAccent1); + if not ifnil(_obj.XmlChildAccent2) then + {self.}Accent2.Copy(_obj.XmlChildAccent2); + if not ifnil(_obj.XmlChildAccent3) then + {self.}Accent3.Copy(_obj.XmlChildAccent3); + if not ifnil(_obj.XmlChildAccent4) then + {self.}Accent4.Copy(_obj.XmlChildAccent4); + if not ifnil(_obj.XmlChildAccent5) then + {self.}Accent5.Copy(_obj.XmlChildAccent5); + if not ifnil(_obj.XmlChildAccent6) then + {self.}Accent6.Copy(_obj.XmlChildAccent6); + if not ifnil(_obj.XmlChildHlink) then + {self.}Hlink.Copy(_obj.XmlChildHlink); + if not ifnil(_obj.XmlChildFolHlink) then + {self.}FolHlink.Copy(_obj.XmlChildFolHlink); + tslassigning := tslassigning_backup; +end; + +function ClrScheme.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function ClrScheme.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function ClrScheme.ReadXmlChildDk1(): Clr1; +begin + if tslassigning and ifnil({self.}XmlChildDk1) then + begin + {self.}XmlChildDk1 := new Clr1(self, {self.}Prefix, "dk1"); + container_.Set({self.}XmlChildDk1); + end + return {self.}XmlChildDk1; +end; + +function ClrScheme.ReadXmlChildLt1(): Clr1; +begin + if tslassigning and ifnil({self.}XmlChildLt1) then + begin + {self.}XmlChildLt1 := new Clr1(self, {self.}Prefix, "lt1"); + container_.Set({self.}XmlChildLt1); + end + return {self.}XmlChildLt1; +end; + +function ClrScheme.ReadXmlChildDk2(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildDk2) then + begin + {self.}XmlChildDk2 := new Clr2(self, {self.}Prefix, "dk2"); + container_.Set({self.}XmlChildDk2); + end + return {self.}XmlChildDk2; +end; + +function ClrScheme.ReadXmlChildLt2(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildLt2) then + begin + {self.}XmlChildLt2 := new Clr2(self, {self.}Prefix, "lt2"); + container_.Set({self.}XmlChildLt2); + end + return {self.}XmlChildLt2; +end; + +function ClrScheme.ReadXmlChildAccent1(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildAccent1) then + begin + {self.}XmlChildAccent1 := new Clr2(self, {self.}Prefix, "accent1"); + container_.Set({self.}XmlChildAccent1); + end + return {self.}XmlChildAccent1; +end; + +function ClrScheme.ReadXmlChildAccent2(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildAccent2) then + begin + {self.}XmlChildAccent2 := new Clr2(self, {self.}Prefix, "accent2"); + container_.Set({self.}XmlChildAccent2); + end + return {self.}XmlChildAccent2; +end; + +function ClrScheme.ReadXmlChildAccent3(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildAccent3) then + begin + {self.}XmlChildAccent3 := new Clr2(self, {self.}Prefix, "accent3"); + container_.Set({self.}XmlChildAccent3); + end + return {self.}XmlChildAccent3; +end; + +function ClrScheme.ReadXmlChildAccent4(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildAccent4) then + begin + {self.}XmlChildAccent4 := new Clr2(self, {self.}Prefix, "accent4"); + container_.Set({self.}XmlChildAccent4); + end + return {self.}XmlChildAccent4; +end; + +function ClrScheme.ReadXmlChildAccent5(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildAccent5) then + begin + {self.}XmlChildAccent5 := new Clr2(self, {self.}Prefix, "accent5"); + container_.Set({self.}XmlChildAccent5); + end + return {self.}XmlChildAccent5; +end; + +function ClrScheme.ReadXmlChildAccent6(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildAccent6) then + begin + {self.}XmlChildAccent6 := new Clr2(self, {self.}Prefix, "accent6"); + container_.Set({self.}XmlChildAccent6); + end + return {self.}XmlChildAccent6; +end; + +function ClrScheme.ReadXmlChildHlink(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildHlink) then + begin + {self.}XmlChildHlink := new Clr2(self, {self.}Prefix, "hlink"); + container_.Set({self.}XmlChildHlink); + end + return {self.}XmlChildHlink; +end; + +function ClrScheme.ReadXmlChildFolHlink(): Clr2; +begin + if tslassigning and ifnil({self.}XmlChildFolHlink) then + begin + {self.}XmlChildFolHlink := new Clr2(self, {self.}Prefix, "folHlink"); + container_.Set({self.}XmlChildFolHlink); + end + return {self.}XmlChildFolHlink; +end; + +function Clr1.Create();overload; +begin + {self.}Create(nil, "a", ""); +end; + +function Clr1.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Clr1.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Clr1.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "sysClr": array(0, makeweakref(thisFunction(ReadXmlChildSysClr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Clr1.Copy(_obj: Clr1);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSysClr) then + {self.}SysClr.Copy(_obj.XmlChildSysClr); + tslassigning := tslassigning_backup; +end; + +function Clr1.ReadXmlChildSysClr(): SysClr; +begin + if tslassigning and ifnil({self.}XmlChildSysClr) then + begin + {self.}XmlChildSysClr := new SysClr(self, {self.}Prefix, "sysClr"); + container_.Set({self.}XmlChildSysClr); + end + return {self.}XmlChildSysClr; +end; + +function SysClr.Create();overload; +begin + {self.}Create(nil, "a", "sysClr"); +end; + +function SysClr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SysClr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SysClr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + "LastClr": makeweakref(thisFunction(WriteXmlAttrLastClr)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SysClr.Copy(_obj: SysClr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.LastClr) then + {self.}LastClr := _obj.LastClr; + tslassigning := tslassigning_backup; +end; + +function SysClr.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function SysClr.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function SysClr.ReadXmlAttrLastClr(); +begin + return {self.}XmlAttrLastClr.Value; +end; + +function SysClr.WriteXmlAttrLastClr(_value); +begin + if ifnil({self.}XmlAttrLastClr) then + begin + {self.}XmlAttrLastClr := new OpenXmlAttribute("", "LastClr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLastClr; + end + {self.}XmlAttrLastClr.Value := _value; +end; + +function Clr2.Create();overload; +begin + {self.}Create(nil, "a", ""); +end; + +function Clr2.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Clr2.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Clr2.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Clr2.Copy(_obj: Clr2);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSrgbClr) then + {self.}SrgbClr.Copy(_obj.XmlChildSrgbClr); + tslassigning := tslassigning_backup; +end; + +function Clr2.ReadXmlChildSrgbClr(): SrgbClr; +begin + if tslassigning and ifnil({self.}XmlChildSrgbClr) then + begin + {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); + container_.Set({self.}XmlChildSrgbClr); + end + return {self.}XmlChildSrgbClr; +end; + +function SrgbClr.Create();overload; +begin + {self.}Create(nil, "a", "srgbClr"); +end; + +function SrgbClr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SrgbClr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SrgbClr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + pre + "aplha": array(0, makeweakref(thisFunction(ReadXmlChildAlpha))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SrgbClr.Copy(_obj: SrgbClr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.XmlChildAlpha) then + {self.}Alpha.Copy(_obj.XmlChildAlpha); + tslassigning := tslassigning_backup; +end; + +function SrgbClr.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function SrgbClr.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function SrgbClr.ReadXmlChildAlpha(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildAlpha) then + begin + {self.}XmlChildAlpha := new PureVal(self, {self.}Prefix, "aplha"); + container_.Set({self.}XmlChildAlpha); + end + return {self.}XmlChildAlpha; +end; + +function PureVal.Create();overload; +begin + {self.}Create(nil, "", ""); +end; + +function PureVal.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PureVal.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PureVal.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PureVal.Copy(_obj: PureVal);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + tslassigning := tslassigning_backup; +end; + +function PureVal.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function PureVal.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function FontScheme.Create();overload; +begin + {self.}Create(nil, "a", "fontScheme"); +end; + +function FontScheme.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FontScheme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FontScheme.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "name": makeweakref(thisFunction(WriteXmlAttrName)), + ); + sorted_child_ := array( + pre + "majorFont": array(0, makeweakref(thisFunction(ReadXmlChildMajorfont))), + pre + "minorFont": array(1, makeweakref(thisFunction(ReadXmlChildMinorfont))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FontScheme.Copy(_obj: FontScheme);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.XmlChildMajorfont) then + {self.}Majorfont.Copy(_obj.XmlChildMajorfont); + if not ifnil(_obj.XmlChildMinorfont) then + {self.}Minorfont.Copy(_obj.XmlChildMinorfont); + tslassigning := tslassigning_backup; +end; + +function FontScheme.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function FontScheme.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function FontScheme.ReadXmlChildMajorfont(): Mfont; +begin + if tslassigning and ifnil({self.}XmlChildMajorfont) then + begin + {self.}XmlChildMajorfont := new Mfont(self, {self.}Prefix, "majorFont"); + container_.Set({self.}XmlChildMajorfont); + end + return {self.}XmlChildMajorfont; +end; + +function FontScheme.ReadXmlChildMinorfont(): Mfont; +begin + if tslassigning and ifnil({self.}XmlChildMinorfont) then + begin + {self.}XmlChildMinorfont := new Mfont(self, {self.}Prefix, "minorFont"); + container_.Set({self.}XmlChildMinorfont); + end + return {self.}XmlChildMinorfont; +end; + +function MFont.Create();overload; +begin + {self.}Create(nil, "a", ""); +end; + +function MFont.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function MFont.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function MFont.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "latin": array(0, makeweakref(thisFunction(ReadXmlChildLatin))), + pre + "ea": array(1, makeweakref(thisFunction(ReadXmlChildEa))), + pre + "cs": array(2, makeweakref(thisFunction(ReadXmlChildCs))), + pre + "font": array(3, makeweakref(thisFunction(AppendFont))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function MFont.Copy(_obj: MFont);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildLatin) then + {self.}Latin.Copy(_obj.XmlChildLatin); + if not ifnil(_obj.XmlChildEa) then + {self.}Ea.Copy(_obj.XmlChildEa); + if not ifnil(_obj.XmlChildCs) then + {self.}Cs.Copy(_obj.XmlChildCs); + tslassigning := tslassigning_backup; +end; + +function MFont.ReadXmlChildLatin(): Latin; +begin + if tslassigning and ifnil({self.}XmlChildLatin) then + begin + {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); + container_.Set({self.}XmlChildLatin); + end + return {self.}XmlChildLatin; +end; + +function MFont.ReadXmlChildEa(): Latin; +begin + if tslassigning and ifnil({self.}XmlChildEa) then + begin + {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); + container_.Set({self.}XmlChildEa); + end + return {self.}XmlChildEa; +end; + +function MFont.ReadXmlChildCs(): Latin; +begin + if tslassigning and ifnil({self.}XmlChildCs) then + begin + {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); + container_.Set({self.}XmlChildCs); + end + return {self.}XmlChildCs; +end; + +function MFont.ReadFonts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "font", ind); +end; + +function MFont.AddFont(): Font; +begin + obj := new Font(self, {self.}Prefix, "font"); + container_.Insert(obj); + return obj; +end; + +function MFont.AppendFont(): Font; +begin + obj := new Font(self, {self.}Prefix, "font"); + container_.Append(obj); + return obj; +end; + +function Font.Create();overload; +begin + {self.}Create(nil, "a", "font"); +end; + +function Font.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Font.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Font.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "script": makeweakref(thisFunction(WriteXmlAttrScript)), + "typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Font.Copy(_obj: Font);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Script) then + {self.}Script := _obj.Script; + if not ifnil(_obj.Typeface) then + {self.}Typeface := _obj.Typeface; + tslassigning := tslassigning_backup; +end; + +function Font.ReadXmlAttrScript(); +begin + return {self.}XmlAttrScript.Value; +end; + +function Font.WriteXmlAttrScript(_value); +begin + if ifnil({self.}XmlAttrScript) then + begin + {self.}XmlAttrScript := new OpenXmlAttribute("", "script", nil); + attributes_[length(attributes_)] := {self.}XmlAttrScript; + end + {self.}XmlAttrScript.Value := _value; +end; + +function Font.ReadXmlAttrTypeface(); +begin + return {self.}XmlAttrTypeface.Value; +end; + +function Font.WriteXmlAttrTypeface(_value); +begin + if ifnil({self.}XmlAttrTypeface) then + begin + {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTypeface; + end + {self.}XmlAttrTypeface.Value := _value; +end; + +function FmtScheme.Create();overload; +begin + {self.}Create(nil, "a", "fmtScheme"); +end; + +function FmtScheme.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FmtScheme.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FmtScheme.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "name": makeweakref(thisFunction(WriteXmlAttrName)), + ); + sorted_child_ := array( + pre + "fillStyleLst": array(0, makeweakref(thisFunction(ReadXmlChildFillStyleLst))), + pre + "lnStyleLst": array(1, makeweakref(thisFunction(ReadXmlChildLnStyleLst))), + pre + "effectStyleLst": array(2, makeweakref(thisFunction(ReadXmlChildEffectStyleLst))), + pre + "bgFillStyleLst": array(3, makeweakref(thisFunction(ReadXmlChildBgFillStyleLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FmtScheme.Copy(_obj: FmtScheme);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.XmlChildFillStyleLst) then + {self.}FillStyleLst.Copy(_obj.XmlChildFillStyleLst); + if not ifnil(_obj.XmlChildLnStyleLst) then + {self.}LnStyleLst.Copy(_obj.XmlChildLnStyleLst); + if not ifnil(_obj.XmlChildEffectStyleLst) then + {self.}EffectStyleLst.Copy(_obj.XmlChildEffectStyleLst); + if not ifnil(_obj.XmlChildBgFillStyleLst) then + {self.}BgFillStyleLst.Copy(_obj.XmlChildBgFillStyleLst); + tslassigning := tslassigning_backup; +end; + +function FmtScheme.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function FmtScheme.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function FmtScheme.ReadXmlChildFillStyleLst(): FillStyleLst; +begin + if tslassigning and ifnil({self.}XmlChildFillStyleLst) then + begin + {self.}XmlChildFillStyleLst := new FillStyleLst(self, {self.}Prefix, "fillStyleLst"); + container_.Set({self.}XmlChildFillStyleLst); + end + return {self.}XmlChildFillStyleLst; +end; + +function FmtScheme.ReadXmlChildLnStyleLst(): LnStyleLst; +begin + if tslassigning and ifnil({self.}XmlChildLnStyleLst) then + begin + {self.}XmlChildLnStyleLst := new LnStyleLst(self, {self.}Prefix, "lnStyleLst"); + container_.Set({self.}XmlChildLnStyleLst); + end + return {self.}XmlChildLnStyleLst; +end; + +function FmtScheme.ReadXmlChildEffectStyleLst(): EffectStyleLst; +begin + if tslassigning and ifnil({self.}XmlChildEffectStyleLst) then + begin + {self.}XmlChildEffectStyleLst := new EffectStyleLst(self, {self.}Prefix, "effectStyleLst"); + container_.Set({self.}XmlChildEffectStyleLst); + end + return {self.}XmlChildEffectStyleLst; +end; + +function FmtScheme.ReadXmlChildBgFillStyleLst(): FillStyleLst; +begin + if tslassigning and ifnil({self.}XmlChildBgFillStyleLst) then + begin + {self.}XmlChildBgFillStyleLst := new FillStyleLst(self, {self.}Prefix, "bgFillStyleLst"); + container_.Set({self.}XmlChildBgFillStyleLst); + end + return {self.}XmlChildBgFillStyleLst; +end; + +function FillStyleLst.Create();overload; +begin + {self.}Create(nil, "a", "fillStyleLst"); +end; + +function FillStyleLst.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FillStyleLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FillStyleLst.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "solidFill": array(0, makeweakref(thisFunction(AppendSolidFill))), + pre + "gradFill": array(1, makeweakref(thisFunction(AppendGradFill))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FillStyleLst.Copy(_obj: FillStyleLst);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function FillStyleLst.ReadSolidFills(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "solidFill", ind); +end; + +function FillStyleLst.ReadGradFills(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "gradFill", ind); +end; + +function FillStyleLst.AddSolidFill(): SolidFill; +begin + obj := new SolidFill(self, {self.}Prefix, "solidFill"); + container_.Insert(obj); + return obj; +end; + +function FillStyleLst.AddGradFill(): GradFill; +begin + obj := new GradFill(self, {self.}Prefix, "gradFill"); + container_.Insert(obj); + return obj; +end; + +function FillStyleLst.AppendSolidFill(): SolidFill; +begin + obj := new SolidFill(self, {self.}Prefix, "solidFill"); + container_.Append(obj); + return obj; +end; + +function FillStyleLst.AppendGradFill(): GradFill; +begin + obj := new GradFill(self, {self.}Prefix, "gradFill"); + container_.Append(obj); + return obj; +end; + +function SolidFill.Create();overload; +begin + {self.}Create(nil, "a", "solidFill"); +end; + +function SolidFill.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SolidFill.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SolidFill.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SolidFill.Copy(_obj: SolidFill);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSchemeClr) then + {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); + tslassigning := tslassigning_backup; +end; + +function SolidFill.ReadXmlChildSchemeClr(): SchemeClr; +begin + if tslassigning and ifnil({self.}XmlChildSchemeClr) then + begin + {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); + container_.Set({self.}XmlChildSchemeClr); + end + return {self.}XmlChildSchemeClr; +end; + +function SchemeClr.Create();overload; +begin + {self.}Create(nil, "a", "schemeClr"); +end; + +function SchemeClr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SchemeClr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SchemeClr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + pre + "lumMod": array(0, makeweakref(thisFunction(ReadXmlChildLumMod))), + pre + "satMod": array(1, makeweakref(thisFunction(ReadXmlChildSatMod))), + pre + "tint": array(2, makeweakref(thisFunction(ReadXmlChildTint))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SchemeClr.Copy(_obj: SchemeClr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + if not ifnil(_obj.XmlChildLumMod) then + {self.}LumMod.Copy(_obj.XmlChildLumMod); + if not ifnil(_obj.XmlChildSatMod) then + {self.}SatMod.Copy(_obj.XmlChildSatMod); + if not ifnil(_obj.XmlChildTint) then + {self.}Tint.Copy(_obj.XmlChildTint); + tslassigning := tslassigning_backup; +end; + +function SchemeClr.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function SchemeClr.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function SchemeClr.ReadXmlChildLumMod(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildLumMod) then + begin + {self.}XmlChildLumMod := new PureVal(self, {self.}Prefix, "lumMod"); + container_.Set({self.}XmlChildLumMod); + end + return {self.}XmlChildLumMod; +end; + +function SchemeClr.ReadXmlChildSatMod(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildSatMod) then + begin + {self.}XmlChildSatMod := new PureVal(self, {self.}Prefix, "satMod"); + container_.Set({self.}XmlChildSatMod); + end + return {self.}XmlChildSatMod; +end; + +function SchemeClr.ReadXmlChildTint(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildTint) then + begin + {self.}XmlChildTint := new PureVal(self, {self.}Prefix, "tint"); + container_.Set({self.}XmlChildTint); + end + return {self.}XmlChildTint; +end; + +function GradFill.Create();overload; +begin + {self.}Create(nil, "a", "gradFill"); +end; + +function GradFill.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function GradFill.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function GradFill.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)), + ); + sorted_child_ := array( + pre + "gsLst": array(0, makeweakref(thisFunction(ReadXmlChildGsLst))), + pre + "lin": array(1, makeweakref(thisFunction(ReadXmlChildLin))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function GradFill.Copy(_obj: GradFill);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.RotWithShape) then + {self.}RotWithShape := _obj.RotWithShape; + if not ifnil(_obj.XmlChildGsLst) then + {self.}GsLst.Copy(_obj.XmlChildGsLst); + if not ifnil(_obj.XmlChildLin) then + {self.}Lin.Copy(_obj.XmlChildLin); + tslassigning := tslassigning_backup; +end; + +function GradFill.ReadXmlAttrRotWithShape(); +begin + return {self.}XmlAttrRotWithShape.Value; +end; + +function GradFill.WriteXmlAttrRotWithShape(_value); +begin + if ifnil({self.}XmlAttrRotWithShape) then + begin + {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRotWithShape; + end + {self.}XmlAttrRotWithShape.Value := _value; +end; + +function GradFill.ReadXmlChildGsLst(): GsLst; +begin + if tslassigning and ifnil({self.}XmlChildGsLst) then + begin + {self.}XmlChildGsLst := new GsLst(self, {self.}Prefix, "gsLst"); + container_.Set({self.}XmlChildGsLst); + end + return {self.}XmlChildGsLst; +end; + +function GradFill.ReadXmlChildLin(): Lin; +begin + if tslassigning and ifnil({self.}XmlChildLin) then + begin + {self.}XmlChildLin := new Lin(self, {self.}Prefix, "lin"); + container_.Set({self.}XmlChildLin); + end + return {self.}XmlChildLin; +end; + +function GsLst.Create();overload; +begin + {self.}Create(nil, "a", "gsLst"); +end; + +function GsLst.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function GsLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function GsLst.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "gs": array(0, makeweakref(thisFunction(AppendGs))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function GsLst.Copy(_obj: GsLst);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function GsLst.ReadGses(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "gs", ind); +end; + +function GsLst.AddGs(): Gs; +begin + obj := new Gs(self, {self.}Prefix, "gs"); + container_.Insert(obj); + return obj; +end; + +function GsLst.AppendGs(): Gs; +begin + obj := new Gs(self, {self.}Prefix, "gs"); + container_.Append(obj); + return obj; +end; + +function Gs.Create();overload; +begin + {self.}Create(nil, "a", "gs"); +end; + +function Gs.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Gs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Gs.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "pos": makeweakref(thisFunction(WriteXmlAttrPos)), + ); + sorted_child_ := array( + pre + "schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Gs.Copy(_obj: Gs);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Pos) then + {self.}Pos := _obj.Pos; + if not ifnil(_obj.XmlChildSchemeClr) then + {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); + tslassigning := tslassigning_backup; +end; + +function Gs.ReadXmlAttrPos(); +begin + return {self.}XmlAttrPos.Value; +end; + +function Gs.WriteXmlAttrPos(_value); +begin + if ifnil({self.}XmlAttrPos) then + begin + {self.}XmlAttrPos := new OpenXmlAttribute("", "pos", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPos; + end + {self.}XmlAttrPos.Value := _value; +end; + +function Gs.ReadXmlChildSchemeClr(): SchemeClr; +begin + if tslassigning and ifnil({self.}XmlChildSchemeClr) then + begin + {self.}XmlChildSchemeClr := new SchemeClr(self, {self.}Prefix, "schemeClr"); + container_.Set({self.}XmlChildSchemeClr); + end + return {self.}XmlChildSchemeClr; +end; + +function Lin.Create();overload; +begin + {self.}Create(nil, "a", "lin"); +end; + +function Lin.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Lin.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Lin.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "ang": makeweakref(thisFunction(WriteXmlAttrAng)), + "scaled": makeweakref(thisFunction(WriteXmlAttrScaled)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Lin.Copy(_obj: Lin);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ang) then + {self.}Ang := _obj.Ang; + if not ifnil(_obj.Scaled) then + {self.}Scaled := _obj.Scaled; + tslassigning := tslassigning_backup; +end; + +function Lin.ReadXmlAttrAng(); +begin + return {self.}XmlAttrAng.Value; +end; + +function Lin.WriteXmlAttrAng(_value); +begin + if ifnil({self.}XmlAttrAng) then + begin + {self.}XmlAttrAng := new OpenXmlAttribute("", "ang", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAng; + end + {self.}XmlAttrAng.Value := _value; +end; + +function Lin.ReadXmlAttrScaled(); +begin + return {self.}XmlAttrScaled.Value; +end; + +function Lin.WriteXmlAttrScaled(_value); +begin + if ifnil({self.}XmlAttrScaled) then + begin + {self.}XmlAttrScaled := new OpenXmlAttribute("", "scaled", nil); + attributes_[length(attributes_)] := {self.}XmlAttrScaled; + end + {self.}XmlAttrScaled.Value := _value; +end; + +function LnStyleLst.Create();overload; +begin + {self.}Create(nil, "a", "lnStyleLst"); +end; + +function LnStyleLst.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function LnStyleLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function LnStyleLst.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "ln": array(0, makeweakref(thisFunction(AppendLn))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function LnStyleLst.Copy(_obj: LnStyleLst);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function LnStyleLst.ReadLns(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "ln", ind); +end; + +function LnStyleLst.AddLn(): Ln; +begin + obj := new Ln(self, {self.}Prefix, "ln"); + container_.Insert(obj); + return obj; +end; + +function LnStyleLst.AppendLn(): Ln; +begin + obj := new Ln(self, {self.}Prefix, "ln"); + container_.Append(obj); + return obj; +end; + +function EffectStyleLst.Create();overload; +begin + {self.}Create(nil, "a", "effectStyleLst"); +end; + +function EffectStyleLst.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function EffectStyleLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function EffectStyleLst.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "effectStyle": array(0, makeweakref(thisFunction(AppendEffectStyle))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function EffectStyleLst.Copy(_obj: EffectStyleLst);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function EffectStyleLst.ReadEffectStyles(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "effectStyle", ind); +end; + +function EffectStyleLst.AddEffectStyle(): EffectStyle; +begin + obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); + container_.Insert(obj); + return obj; +end; + +function EffectStyleLst.AppendEffectStyle(): EffectStyle; +begin + obj := new EffectStyle(self, {self.}Prefix, "effectStyle"); + container_.Append(obj); + return obj; +end; + +function EffectStyle.Create();overload; +begin + {self.}Create(nil, "a", "effectStyle"); +end; + +function EffectStyle.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function EffectStyle.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function EffectStyle.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "effectLst": array(0, makeweakref(thisFunction(ReadXmlChildEffectLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function EffectStyle.Copy(_obj: EffectStyle);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildEffectLst) then + {self.}EffectLst.Copy(_obj.XmlChildEffectLst); + tslassigning := tslassigning_backup; +end; + +function EffectStyle.ReadXmlChildEffectLst(): EffectLst; +begin + if tslassigning and ifnil({self.}XmlChildEffectLst) then + begin + {self.}XmlChildEffectLst := new EffectLst(self, {self.}Prefix, "effectLst"); + container_.Set({self.}XmlChildEffectLst); + end + return {self.}XmlChildEffectLst; +end; + +function OuterShdw.Create();overload; +begin + {self.}Create(nil, "a", "outerShdw"); +end; + +function OuterShdw.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function OuterShdw.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function OuterShdw.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "blurRad": makeweakref(thisFunction(WriteXmlAttrBlurRad)), + "dist": makeweakref(thisFunction(WriteXmlAttrDist)), + "dir": makeweakref(thisFunction(WriteXmlAttrDir)), + "algn": makeweakref(thisFunction(WriteXmlAttrAlgn)), + "rotWithShape": makeweakref(thisFunction(WriteXmlAttrRotWithShape)), + ); + sorted_child_ := array( + pre + "srgbClr": array(0, makeweakref(thisFunction(ReadXmlChildSrgbClr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function OuterShdw.Copy(_obj: OuterShdw);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.BlurRad) then + {self.}BlurRad := _obj.BlurRad; + if not ifnil(_obj.Dist) then + {self.}Dist := _obj.Dist; + if not ifnil(_obj.Dir) then + {self.}Dir := _obj.Dir; + if not ifnil(_obj.Algn) then + {self.}Algn := _obj.Algn; + if not ifnil(_obj.RotWithShape) then + {self.}RotWithShape := _obj.RotWithShape; + if not ifnil(_obj.XmlChildSrgbClr) then + {self.}SrgbClr.Copy(_obj.XmlChildSrgbClr); + tslassigning := tslassigning_backup; +end; + +function OuterShdw.ReadXmlAttrBlurRad(); +begin + return {self.}XmlAttrBlurRad.Value; +end; + +function OuterShdw.WriteXmlAttrBlurRad(_value); +begin + if ifnil({self.}XmlAttrBlurRad) then + begin + {self.}XmlAttrBlurRad := new OpenXmlAttribute("", "blurRad", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBlurRad; + end + {self.}XmlAttrBlurRad.Value := _value; +end; + +function OuterShdw.ReadXmlAttrDist(); +begin + return {self.}XmlAttrDist.Value; +end; + +function OuterShdw.WriteXmlAttrDist(_value); +begin + if ifnil({self.}XmlAttrDist) then + begin + {self.}XmlAttrDist := new OpenXmlAttribute("", "dist", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDist; + end + {self.}XmlAttrDist.Value := _value; +end; + +function OuterShdw.ReadXmlAttrDir(); +begin + return {self.}XmlAttrDir.Value; +end; + +function OuterShdw.WriteXmlAttrDir(_value); +begin + if ifnil({self.}XmlAttrDir) then + begin + {self.}XmlAttrDir := new OpenXmlAttribute("", "dir", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDir; + end + {self.}XmlAttrDir.Value := _value; +end; + +function OuterShdw.ReadXmlAttrAlgn(); +begin + return {self.}XmlAttrAlgn.Value; +end; + +function OuterShdw.WriteXmlAttrAlgn(_value); +begin + if ifnil({self.}XmlAttrAlgn) then + begin + {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAlgn; + end + {self.}XmlAttrAlgn.Value := _value; +end; + +function OuterShdw.ReadXmlAttrRotWithShape(); +begin + return {self.}XmlAttrRotWithShape.Value; +end; + +function OuterShdw.WriteXmlAttrRotWithShape(_value); +begin + if ifnil({self.}XmlAttrRotWithShape) then + begin + {self.}XmlAttrRotWithShape := new OpenXmlAttribute("", "rotWithShape", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRotWithShape; + end + {self.}XmlAttrRotWithShape.Value := _value; +end; + +function OuterShdw.ReadXmlChildSrgbClr(): SrgbClr; +begin + if tslassigning and ifnil({self.}XmlChildSrgbClr) then + begin + {self.}XmlChildSrgbClr := new SrgbClr(self, {self.}Prefix, "srgbClr"); + container_.Set({self.}XmlChildSrgbClr); + end + return {self.}XmlChildSrgbClr; +end; + +function ExtLst.Create();overload; +begin + {self.}Create(nil, "a", "extLst"); +end; + +function ExtLst.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ExtLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ExtLst.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "ext": array(0, makeweakref(thisFunction(AppendExt))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ExtLst.Copy(_obj: ExtLst);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function ExtLst.ReadExts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "ext", ind); +end; + +function ExtLst.AddExt(): Ext; +begin + obj := new Ext(self, {self.}Prefix, "ext"); + container_.Insert(obj); + return obj; +end; + +function ExtLst.AppendExt(): Ext; +begin + obj := new Ext(self, {self.}Prefix, "ext"); + container_.Append(obj); + return obj; +end; + +function Ext.Create();overload; +begin + {self.}Create(nil, "a", "ext"); +end; + +function Ext.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Ext.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Ext.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "uri": makeweakref(thisFunction(WriteXmlAttrUri)), + ); + sorted_child_ := array( + "thm15:themeFamily": array(0, makeweakref(thisFunction(ReadXmlChildThm15ThemeFamily))), + "c16:uniquedId": array(1, makeweakref(thisFunction(ReadXmlChildUniqueId))), + "x14:slicerStyles": array(2, makeweakref(thisFunction(ReadXmlChildSlicerStyles))), + "x15:timelineStyles": array(3, makeweakref(thisFunction(ReadXmlChildTimelineStyles))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Ext.Copy(_obj: Ext);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Uri) then + {self.}Uri := _obj.Uri; + if not ifnil(_obj.XmlChildThm15ThemeFamily) then + {self.}Thm15ThemeFamily.Copy(_obj.XmlChildThm15ThemeFamily); + if not ifnil(_obj.XmlChildUniqueId) then + {self.}UniqueId.Copy(_obj.XmlChildUniqueId); + if not ifnil(_obj.XmlChildSlicerStyles) then + {self.}SlicerStyles.Copy(_obj.XmlChildSlicerStyles); + if not ifnil(_obj.XmlChildTimelineStyles) then + {self.}TimelineStyles.Copy(_obj.XmlChildTimelineStyles); + tslassigning := tslassigning_backup; +end; + +function Ext.ReadXmlAttrUri(); +begin + return {self.}XmlAttrUri.Value; +end; + +function Ext.WriteXmlAttrUri(_value); +begin + if ifnil({self.}XmlAttrUri) then + begin + {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUri; + end + {self.}XmlAttrUri.Value := _value; +end; + +function Ext.ReadXmlChildThm15ThemeFamily(): ThemeFamily; +begin + if tslassigning and ifnil({self.}XmlChildThm15ThemeFamily) then + begin + {self.}XmlChildThm15ThemeFamily := new ThemeFamily(self, "thm15", "themeFamily"); + container_.Set({self.}XmlChildThm15ThemeFamily); + end + return {self.}XmlChildThm15ThemeFamily; +end; + +function Ext.ReadXmlChildUniqueId(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildUniqueId) then + begin + {self.}XmlChildUniqueId := new PureVal(self, "c16", "uniquedId"); + container_.Set({self.}XmlChildUniqueId); + end + return {self.}XmlChildUniqueId; +end; + +function Ext.ReadXmlChildSlicerStyles(): SlicerStyles; +begin + if tslassigning and ifnil({self.}XmlChildSlicerStyles) then + begin + {self.}XmlChildSlicerStyles := new SlicerStyles(self, "x14", "slicerStyles"); + container_.Set({self.}XmlChildSlicerStyles); + end + return {self.}XmlChildSlicerStyles; +end; + +function Ext.ReadXmlChildTimelineStyles(): TimelineStyles; +begin + if tslassigning and ifnil({self.}XmlChildTimelineStyles) then + begin + {self.}XmlChildTimelineStyles := new TimelineStyles(self, "x15", "timelineStyles"); + container_.Set({self.}XmlChildTimelineStyles); + end + return {self.}XmlChildTimelineStyles; +end; + +function SlicerStyles.Create();overload; +begin + {self.}Create(nil, "", "slicerStyles"); +end; + +function SlicerStyles.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SlicerStyles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SlicerStyles.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "defaultSlicerStyle": makeweakref(thisFunction(WriteXmlAttrDefaultSlicerStyle)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SlicerStyles.Copy(_obj: SlicerStyles);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.DefaultSlicerStyle) then + {self.}DefaultSlicerStyle := _obj.DefaultSlicerStyle; + tslassigning := tslassigning_backup; +end; + +function SlicerStyles.ReadXmlAttrDefaultSlicerStyle(); +begin + return {self.}XmlAttrDefaultSlicerStyle.Value; +end; + +function SlicerStyles.WriteXmlAttrDefaultSlicerStyle(_value); +begin + if ifnil({self.}XmlAttrDefaultSlicerStyle) then + begin + {self.}XmlAttrDefaultSlicerStyle := new OpenXmlAttribute("", "defaultSlicerStyle", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefaultSlicerStyle; + end + {self.}XmlAttrDefaultSlicerStyle.Value := _value; +end; + +function TimelineStyles.Create();overload; +begin + {self.}Create(nil, "", "timelineStyles"); +end; + +function TimelineStyles.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TimelineStyles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TimelineStyles.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "defaultTimelineStyle": makeweakref(thisFunction(WriteXmlAttrDefaultTimelineStyle)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TimelineStyles.Copy(_obj: TimelineStyles);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.DefaultTimelineStyle) then + {self.}DefaultTimelineStyle := _obj.DefaultTimelineStyle; + tslassigning := tslassigning_backup; +end; + +function TimelineStyles.ReadXmlAttrDefaultTimelineStyle(); +begin + return {self.}XmlAttrDefaultTimelineStyle.Value; +end; + +function TimelineStyles.WriteXmlAttrDefaultTimelineStyle(_value); +begin + if ifnil({self.}XmlAttrDefaultTimelineStyle) then + begin + {self.}XmlAttrDefaultTimelineStyle := new OpenXmlAttribute("", "defaultTimelineStyle", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDefaultTimelineStyle; + end + {self.}XmlAttrDefaultTimelineStyle.Value := _value; +end; + +function ThemeFamily.Create();overload; +begin + {self.}Create(nil, "thm15", "themeFamily"); +end; + +function ThemeFamily.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ThemeFamily.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ThemeFamily.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "name": makeweakref(thisFunction(WriteXmlAttrName)), + "Id": makeweakref(thisFunction(WriteXmlAttrId)), + "vid": makeweakref(thisFunction(WriteXmlAttrVid)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ThemeFamily.Copy(_obj: ThemeFamily);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Vid) then + {self.}Vid := _obj.Vid; + tslassigning := tslassigning_backup; +end; + +function ThemeFamily.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function ThemeFamily.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function ThemeFamily.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function ThemeFamily.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("", "Id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function ThemeFamily.ReadXmlAttrVid(); +begin + return {self.}XmlAttrVid.Value; +end; + +function ThemeFamily.WriteXmlAttrVid(_value); +begin + if ifnil({self.}XmlAttrVid) then + begin + {self.}XmlAttrVid := new OpenXmlAttribute("", "vid", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVid; + end + {self.}XmlAttrVid.Value := _value; +end; + +function ChartSpace.Create();overload; +begin + {self.}Create(nil, "c", "chartSpace"); +end; + +function ChartSpace.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ChartSpace.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ChartSpace.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "date1904": array(0, makeweakref(thisFunction(ReadXmlChildDate1904))), + pre + "lang": array(1, makeweakref(thisFunction(ReadXmlChildLang))), + "mc:AlternateContent": array(2, makeweakref(thisFunction(ReadXmlChildAlternateContent))), + pre + "chart": array(3, makeweakref(thisFunction(ReadXmlChildChart))), + pre + "spPr": array(4, makeweakref(thisFunction(ReadXmlChildSpPr))), + pre + "externalData": array(5, makeweakref(thisFunction(ReadXmlChildExternalData))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ChartSpace.Copy(_obj: ChartSpace);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildDate1904) then + {self.}Date1904.Copy(_obj.XmlChildDate1904); + if not ifnil(_obj.XmlChildLang) then + ifnil({self.}XmlChildLang) ? {self.}Lang.Copy(_obj.XmlChildLang) : {self.}XmlChildLang.Copy(_obj.XmlChildLang); + if not ifnil(_obj.XmlChildAlternateContent) then + {self.}AlternateContent.Copy(_obj.XmlChildAlternateContent); + if not ifnil(_obj.XmlChildChart) then + {self.}Chart.Copy(_obj.XmlChildChart); + if not ifnil(_obj.XmlChildSpPr) then + {self.}SpPr.Copy(_obj.XmlChildSpPr); + if not ifnil(_obj.XmlChildExternalData) then + {self.}ExternalData.Copy(_obj.XmlChildExternalData); + tslassigning := tslassigning_backup; +end; + +function ChartSpace.ReadXmlChildLang(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildLang) then + begin + {self.}XmlChildLang := new OpenXmlEmpty(self, {self.}Prefix, "lang"); + container_.Set({self.}XmlChildLang); + end + return {self.}XmlChildLang; + end + return ifnil({self.}XmlChildLang) ? nil : {self.}XmlChildLang.BoolValue(); +end; + +function ChartSpace.WriteXmlChildLang(_value); +begin + if ifnil({self.}XmlChildLang) then + begin + {self.}XmlChildLang := new OpenXmlEmpty(self, {self.}Prefix, "lang"); + container_.Set({self.}XmlChildLang); + end + {self.}XmlChildLang.Value := _value; +end; + +function ChartSpace.ReadXmlChildDate1904(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildDate1904) then + begin + {self.}XmlChildDate1904 := new PureVal(self, {self.}Prefix, "date1904"); + container_.Set({self.}XmlChildDate1904); + end + return {self.}XmlChildDate1904; +end; + +function ChartSpace.ReadXmlChildAlternateContent(): AlternateContent; +begin + if tslassigning and ifnil({self.}XmlChildAlternateContent) then + begin + {self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent"); + container_.Set({self.}XmlChildAlternateContent); + end + return {self.}XmlChildAlternateContent; +end; + +function ChartSpace.ReadXmlChildChart(): Chart; +begin + if tslassigning and ifnil({self.}XmlChildChart) then + begin + {self.}XmlChildChart := new Chart(self, {self.}Prefix, "chart"); + container_.Set({self.}XmlChildChart); + end + return {self.}XmlChildChart; +end; + +function ChartSpace.ReadXmlChildSpPr(): SpPr; +begin + if tslassigning and ifnil({self.}XmlChildSpPr) then + begin + {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); + container_.Set({self.}XmlChildSpPr); + end + return {self.}XmlChildSpPr; +end; + +function ChartSpace.ReadXmlChildExternalData(): ExternalData; +begin + if tslassigning and ifnil({self.}XmlChildExternalData) then + begin + {self.}XmlChildExternalData := new ExternalData(self, {self.}Prefix, "externalData"); + container_.Set({self.}XmlChildExternalData); + end + return {self.}XmlChildExternalData; +end; + +function Chart.Create();overload; +begin + {self.}Create(nil, "c", "chart"); +end; + +function Chart.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Chart.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Chart.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "r:id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + pre + "title": array(0, makeweakref(thisFunction(ReadXmlChildTitle))), + pre + "autoTitleDeleted": array(1, makeweakref(thisFunction(ReadXmlChildAutoTitleDeleted))), + pre + "view3D": array(2, makeweakref(thisFunction(ReadXmlChildView3D))), + pre + "plotArea": array(3, makeweakref(thisFunction(ReadXmlChildPlotArea))), + pre + "legend": array(4, makeweakref(thisFunction(ReadXmlChildLegend))), + pre + "plotVisOnly": array(5, makeweakref(thisFunction(ReadXmlChildPlotVisOnly))), + pre + "dispBlanksAs": array(6, makeweakref(thisFunction(ReadXmlChildDispBlanksAs))), + pre + "showDLblsOverMax": array(7, makeweakref(thisFunction(ReadXmlChildShowDLblsOverMax))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Chart.Copy(_obj: Chart);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.XmlChildTitle) then + {self.}Title.Copy(_obj.XmlChildTitle); + if not ifnil(_obj.XmlChildAutoTitleDeleted) then + {self.}AutoTitleDeleted.Copy(_obj.XmlChildAutoTitleDeleted); + if not ifnil(_obj.XmlChildView3D) then + {self.}View3D.Copy(_obj.XmlChildView3D); + if not ifnil(_obj.XmlChildPlotArea) then + {self.}PlotArea.Copy(_obj.XmlChildPlotArea); + if not ifnil(_obj.XmlChildLegend) then + {self.}Legend.Copy(_obj.XmlChildLegend); + if not ifnil(_obj.XmlChildPlotVisOnly) then + {self.}PlotVisOnly.Copy(_obj.XmlChildPlotVisOnly); + if not ifnil(_obj.XmlChildDispBlanksAs) then + {self.}DispBlanksAs.Copy(_obj.XmlChildDispBlanksAs); + if not ifnil(_obj.XmlChildShowDLblsOverMax) then + {self.}ShowDLblsOverMax.Copy(_obj.XmlChildShowDLblsOverMax); + tslassigning := tslassigning_backup; +end; + +function Chart.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Chart.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Chart.ReadXmlChildTitle(): Title; +begin + if tslassigning and ifnil({self.}XmlChildTitle) then + begin + {self.}XmlChildTitle := new Title(self, {self.}Prefix, "title"); + container_.Set({self.}XmlChildTitle); + end + return {self.}XmlChildTitle; +end; + +function Chart.ReadXmlChildAutoTitleDeleted(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildAutoTitleDeleted) then + begin + {self.}XmlChildAutoTitleDeleted := new PureVal(self, {self.}Prefix, "autoTitleDeleted"); + container_.Set({self.}XmlChildAutoTitleDeleted); + end + return {self.}XmlChildAutoTitleDeleted; +end; + +function Chart.ReadXmlChildView3D(): View3D; +begin + if tslassigning and ifnil({self.}XmlChildView3D) then + begin + {self.}XmlChildView3D := new View3D(self, {self.}Prefix, "view3D"); + container_.Set({self.}XmlChildView3D); + end + return {self.}XmlChildView3D; +end; + +function Chart.ReadXmlChildPlotArea(): PlotArea; +begin + if tslassigning and ifnil({self.}XmlChildPlotArea) then + begin + {self.}XmlChildPlotArea := new PlotArea(self, {self.}Prefix, "plotArea"); + container_.Set({self.}XmlChildPlotArea); + end + return {self.}XmlChildPlotArea; +end; + +function Chart.ReadXmlChildLegend(): Legend; +begin + if tslassigning and ifnil({self.}XmlChildLegend) then + begin + {self.}XmlChildLegend := new Legend(self, {self.}Prefix, "legend"); + container_.Set({self.}XmlChildLegend); + end + return {self.}XmlChildLegend; +end; + +function Chart.ReadXmlChildPlotVisOnly(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildPlotVisOnly) then + begin + {self.}XmlChildPlotVisOnly := new PureVal(self, {self.}Prefix, "plotVisOnly"); + container_.Set({self.}XmlChildPlotVisOnly); + end + return {self.}XmlChildPlotVisOnly; +end; + +function Chart.ReadXmlChildDispBlanksAs(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildDispBlanksAs) then + begin + {self.}XmlChildDispBlanksAs := new PureVal(self, {self.}Prefix, "dispBlanksAs"); + container_.Set({self.}XmlChildDispBlanksAs); + end + return {self.}XmlChildDispBlanksAs; +end; + +function Chart.ReadXmlChildShowDLblsOverMax(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowDLblsOverMax) then + begin + {self.}XmlChildShowDLblsOverMax := new PureVal(self, {self.}Prefix, "showDLblsOverMax"); + container_.Set({self.}XmlChildShowDLblsOverMax); + end + return {self.}XmlChildShowDLblsOverMax; +end; + +function Legend.Create();overload; +begin + {self.}Create(nil, "c", "legend"); +end; + +function Legend.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Legend.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Legend.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "legendPos": array(0, makeweakref(thisFunction(ReadXmlChildLegendPos))), + pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))), + pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))), + pre + "txPr": array(3, makeweakref(thisFunction(ReadXmlChildTxPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Legend.Copy(_obj: Legend);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildLegendPos) then + {self.}LegendPos.Copy(_obj.XmlChildLegendPos); + if not ifnil(_obj.XmlChildLayout) then + ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); + if not ifnil(_obj.XmlChildOverlay) then + {self.}Overlay.Copy(_obj.XmlChildOverlay); + if not ifnil(_obj.XmlChildTxPr) then + {self.}TxPr.Copy(_obj.XmlChildTxPr); + tslassigning := tslassigning_backup; +end; + +function Legend.ReadXmlChildLayout(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildLayout) then + begin + {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); + container_.Set({self.}XmlChildLayout); + end + return {self.}XmlChildLayout; + end + return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); +end; + +function Legend.WriteXmlChildLayout(_value); +begin + if ifnil({self.}XmlChildLayout) then + begin + {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); + container_.Set({self.}XmlChildLayout); + end + {self.}XmlChildLayout.Value := _value; +end; + +function Legend.ReadXmlChildLegendPos(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildLegendPos) then + begin + {self.}XmlChildLegendPos := new PureVal(self, {self.}Prefix, "legendPos"); + container_.Set({self.}XmlChildLegendPos); + end + return {self.}XmlChildLegendPos; +end; + +function Legend.ReadXmlChildOverlay(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildOverlay) then + begin + {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); + container_.Set({self.}XmlChildOverlay); + end + return {self.}XmlChildOverlay; +end; + +function Legend.ReadXmlChildTxPr(): TxPr; +begin + if tslassigning and ifnil({self.}XmlChildTxPr) then + begin + {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); + container_.Set({self.}XmlChildTxPr); + end + return {self.}XmlChildTxPr; +end; + +function View3D.Create();overload; +begin + {self.}Create(nil, "c", "view3D"); +end; + +function View3D.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function View3D.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function View3D.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rotX": array(0, makeweakref(thisFunction(ReadXmlChildRotX))), + pre + "rotY": array(1, makeweakref(thisFunction(ReadXmlChildRotY))), + pre + "rAngAx": array(2, makeweakref(thisFunction(ReadXmlChildRAngAx))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function View3D.Copy(_obj: View3D);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRotX) then + {self.}RotX.Copy(_obj.XmlChildRotX); + if not ifnil(_obj.XmlChildRotY) then + {self.}RotY.Copy(_obj.XmlChildRotY); + if not ifnil(_obj.XmlChildRAngAx) then + {self.}RAngAx.Copy(_obj.XmlChildRAngAx); + tslassigning := tslassigning_backup; +end; + +function View3D.ReadXmlChildRotX(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildRotX) then + begin + {self.}XmlChildRotX := new PureVal(self, {self.}Prefix, "rotX"); + container_.Set({self.}XmlChildRotX); + end + return {self.}XmlChildRotX; +end; + +function View3D.ReadXmlChildRotY(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildRotY) then + begin + {self.}XmlChildRotY := new PureVal(self, {self.}Prefix, "rotY"); + container_.Set({self.}XmlChildRotY); + end + return {self.}XmlChildRotY; +end; + +function View3D.ReadXmlChildRAngAx(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildRAngAx) then + begin + {self.}XmlChildRAngAx := new PureVal(self, {self.}Prefix, "rAngAx"); + container_.Set({self.}XmlChildRAngAx); + end + return {self.}XmlChildRAngAx; +end; + +function PlotArea.Create();overload; +begin + {self.}Create(nil, "c", "plotArea"); +end; + +function PlotArea.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PlotArea.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PlotArea.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "layout": array(0, makeweakref(thisFunction(ReadXmlChildLayout))), + pre + "barChart": array(1, makeweakref(thisFunction(ReadXmlChildBarChart))), + pre + "catAx": array(2, makeweakref(thisFunction(ReadXmlChildCatAx))), + pre + "ValAx": array(3, makeweakref(thisFunction(ReadXmlChildValAx))), + pre + "dTable": array(4, makeweakref(thisFunction(ReadXmlChildDTable))), + pre + "SpPr": array(5, makeweakref(thisFunction(ReadXmlChildSpPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PlotArea.Copy(_obj: PlotArea);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildLayout) then + ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); + if not ifnil(_obj.XmlChildBarChart) then + {self.}BarChart.Copy(_obj.XmlChildBarChart); + if not ifnil(_obj.XmlChildCatAx) then + {self.}CatAx.Copy(_obj.XmlChildCatAx); + if not ifnil(_obj.XmlChildValAx) then + {self.}ValAx.Copy(_obj.XmlChildValAx); + if not ifnil(_obj.XmlChildDTable) then + {self.}DTable.Copy(_obj.XmlChildDTable); + if not ifnil(_obj.XmlChildSpPr) then + {self.}SpPr.Copy(_obj.XmlChildSpPr); + tslassigning := tslassigning_backup; +end; + +function PlotArea.ReadXmlChildLayout(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildLayout) then + begin + {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); + container_.Set({self.}XmlChildLayout); + end + return {self.}XmlChildLayout; + end + return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); +end; + +function PlotArea.WriteXmlChildLayout(_value); +begin + if ifnil({self.}XmlChildLayout) then + begin + {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); + container_.Set({self.}XmlChildLayout); + end + {self.}XmlChildLayout.Value := _value; +end; + +function PlotArea.ReadXmlChildBarChart(): BarChart; +begin + if tslassigning and ifnil({self.}XmlChildBarChart) then + begin + {self.}XmlChildBarChart := new BarChart(self, {self.}Prefix, "barChart"); + container_.Set({self.}XmlChildBarChart); + end + return {self.}XmlChildBarChart; +end; + +function PlotArea.ReadXmlChildCatAx(): Ax; +begin + if tslassigning and ifnil({self.}XmlChildCatAx) then + begin + {self.}XmlChildCatAx := new Ax(self, {self.}Prefix, "catAx"); + container_.Set({self.}XmlChildCatAx); + end + return {self.}XmlChildCatAx; +end; + +function PlotArea.ReadXmlChildValAx(): Ax; +begin + if tslassigning and ifnil({self.}XmlChildValAx) then + begin + {self.}XmlChildValAx := new Ax(self, {self.}Prefix, "ValAx"); + container_.Set({self.}XmlChildValAx); + end + return {self.}XmlChildValAx; +end; + +function PlotArea.ReadXmlChildDTable(): DTable; +begin + if tslassigning and ifnil({self.}XmlChildDTable) then + begin + {self.}XmlChildDTable := new DTable(self, {self.}Prefix, "dTable"); + container_.Set({self.}XmlChildDTable); + end + return {self.}XmlChildDTable; +end; + +function PlotArea.ReadXmlChildSpPr(): SpPr; +begin + if tslassigning and ifnil({self.}XmlChildSpPr) then + begin + {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "SpPr"); + container_.Set({self.}XmlChildSpPr); + end + return {self.}XmlChildSpPr; +end; + +function BarChart.Create();overload; +begin + {self.}Create(nil, "c", "barChart"); +end; + +function BarChart.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function BarChart.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function BarChart.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "barDir": array(0, makeweakref(thisFunction(ReadXmlChildBarDir))), + pre + "grouping": array(1, makeweakref(thisFunction(ReadXmlChildGrouping))), + pre + "varyColors": array(2, makeweakref(thisFunction(ReadXmlChildVaryColors))), + pre + "ser": array(3, makeweakref(thisFunction(AppendSer))), + pre + "gapWidth": array(4, makeweakref(thisFunction(ReadXmlChildGapWidth))), + pre + "axId": array(5, makeweakref(thisFunction(AppendAxId))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function BarChart.Copy(_obj: BarChart);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildBarDir) then + {self.}BarDir.Copy(_obj.XmlChildBarDir); + if not ifnil(_obj.XmlChildGrouping) then + {self.}Grouping.Copy(_obj.XmlChildGrouping); + if not ifnil(_obj.XmlChildVaryColors) then + {self.}VaryColors.Copy(_obj.XmlChildVaryColors); + if not ifnil(_obj.XmlChildGapWidth) then + {self.}GapWidth.Copy(_obj.XmlChildGapWidth); + tslassigning := tslassigning_backup; +end; + +function BarChart.ReadXmlChildBarDir(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildBarDir) then + begin + {self.}XmlChildBarDir := new PureVal(self, {self.}Prefix, "barDir"); + container_.Set({self.}XmlChildBarDir); + end + return {self.}XmlChildBarDir; +end; + +function BarChart.ReadXmlChildGrouping(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildGrouping) then + begin + {self.}XmlChildGrouping := new PureVal(self, {self.}Prefix, "grouping"); + container_.Set({self.}XmlChildGrouping); + end + return {self.}XmlChildGrouping; +end; + +function BarChart.ReadXmlChildVaryColors(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildVaryColors) then + begin + {self.}XmlChildVaryColors := new PureVal(self, {self.}Prefix, "varyColors"); + container_.Set({self.}XmlChildVaryColors); + end + return {self.}XmlChildVaryColors; +end; + +function BarChart.ReadXmlChildGapWidth(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildGapWidth) then + begin + {self.}XmlChildGapWidth := new PureVal(self, {self.}Prefix, "gapWidth"); + container_.Set({self.}XmlChildGapWidth); + end + return {self.}XmlChildGapWidth; +end; + +function BarChart.ReadSers(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "ser", ind); +end; + +function BarChart.ReadAxIds(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "axId", ind); +end; + +function BarChart.AddSer(): Ser; +begin + obj := new Ser(self, {self.}Prefix, "ser"); + container_.Insert(obj); + return obj; +end; + +function BarChart.AddAxId(): PureVal; +begin + obj := new PureVal(self, {self.}Prefix, "axId"); + container_.Insert(obj); + return obj; +end; + +function BarChart.AppendSer(): Ser; +begin + obj := new Ser(self, {self.}Prefix, "ser"); + container_.Append(obj); + return obj; +end; + +function BarChart.AppendAxId(): PureVal; +begin + obj := new PureVal(self, {self.}Prefix, "axId"); + container_.Append(obj); + return obj; +end; + +function Ser.Create();overload; +begin + {self.}Create(nil, "c", "ser"); +end; + +function Ser.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Ser.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Ser.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "idx": array(0, makeweakref(thisFunction(ReadXmlChildIdx))), + pre + "order": array(1, makeweakref(thisFunction(ReadXmlChild_Order))), + pre + "tx": array(2, makeweakref(thisFunction(ReadXmlChildTx))), + pre + "invertIfNegative": array(3, makeweakref(thisFunction(ReadXmlChildInvertIfNegative))), + pre + "dLbls": array(4, makeweakref(thisFunction(ReadXmlChildDLbls))), + pre + "cat": array(5, makeweakref(thisFunction(ReadXmlChildCat))), + pre + "val": array(6, makeweakref(thisFunction(ReadXmlChildVal))), + pre + "extLst": array(7, makeweakref(thisFunction(ReadXmlChildExtLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Ser.Copy(_obj: Ser);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildIdx) then + {self.}Idx.Copy(_obj.XmlChildIdx); + if not ifnil(_obj.XmlChild_Order) then + {self.}_Order.Copy(_obj.XmlChild_Order); + if not ifnil(_obj.XmlChildTx) then + {self.}Tx.Copy(_obj.XmlChildTx); + if not ifnil(_obj.XmlChildInvertIfNegative) then + {self.}InvertIfNegative.Copy(_obj.XmlChildInvertIfNegative); + if not ifnil(_obj.XmlChildDLbls) then + {self.}DLbls.Copy(_obj.XmlChildDLbls); + if not ifnil(_obj.XmlChildCat) then + {self.}Cat.Copy(_obj.XmlChildCat); + if not ifnil(_obj.XmlChildVal) then + {self.}Val.Copy(_obj.XmlChildVal); + if not ifnil(_obj.XmlChildExtLst) then + {self.}ExtLst.Copy(_obj.XmlChildExtLst); + tslassigning := tslassigning_backup; +end; + +function Ser.ReadXmlChildIdx(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildIdx) then + begin + {self.}XmlChildIdx := new PureVal(self, {self.}Prefix, "idx"); + container_.Set({self.}XmlChildIdx); + end + return {self.}XmlChildIdx; +end; + +function Ser.ReadXmlChild_Order(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChild_Order) then + begin + {self.}XmlChild_Order := new PureVal(self, {self.}Prefix, "order"); + container_.Set({self.}XmlChild_Order); + end + return {self.}XmlChild_Order; +end; + +function Ser.ReadXmlChildTx(): Tx; +begin + if tslassigning and ifnil({self.}XmlChildTx) then + begin + {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); + container_.Set({self.}XmlChildTx); + end + return {self.}XmlChildTx; +end; + +function Ser.ReadXmlChildInvertIfNegative(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildInvertIfNegative) then + begin + {self.}XmlChildInvertIfNegative := new PureVal(self, {self.}Prefix, "invertIfNegative"); + container_.Set({self.}XmlChildInvertIfNegative); + end + return {self.}XmlChildInvertIfNegative; +end; + +function Ser.ReadXmlChildDLbls(): DLbls; +begin + if tslassigning and ifnil({self.}XmlChildDLbls) then + begin + {self.}XmlChildDLbls := new DLbls(self, {self.}Prefix, "dLbls"); + container_.Set({self.}XmlChildDLbls); + end + return {self.}XmlChildDLbls; +end; + +function Ser.ReadXmlChildCat(): Cat; +begin + if tslassigning and ifnil({self.}XmlChildCat) then + begin + {self.}XmlChildCat := new Cat(self, {self.}Prefix, "cat"); + container_.Set({self.}XmlChildCat); + end + return {self.}XmlChildCat; +end; + +function Ser.ReadXmlChildVal(): Val; +begin + if tslassigning and ifnil({self.}XmlChildVal) then + begin + {self.}XmlChildVal := new Val(self, {self.}Prefix, "val"); + container_.Set({self.}XmlChildVal); + end + return {self.}XmlChildVal; +end; + +function Ser.ReadXmlChildExtLst(): ExtLst; +begin + if tslassigning and ifnil({self.}XmlChildExtLst) then + begin + {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); + container_.Set({self.}XmlChildExtLst); + end + return {self.}XmlChildExtLst; +end; + +function DLbls.Create();overload; +begin + {self.}Create(nil, "c", "dLbls"); +end; + +function DLbls.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function DLbls.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function DLbls.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "spPr": array(0, makeweakref(thisFunction(ReadXmlChildSpPr))), + pre + "showLegendKey": array(1, makeweakref(thisFunction(ReadXmlChildShowLegendKey))), + pre + "showVal": array(2, makeweakref(thisFunction(ReadXmlChildShowVal))), + pre + "showCatName": array(3, makeweakref(thisFunction(ReadXmlChildShowCatName))), + pre + "showSerName": array(4, makeweakref(thisFunction(ReadXmlChildShowSerName))), + pre + "showPercent": array(5, makeweakref(thisFunction(ReadXmlChildShowPercent))), + pre + "showBubbleSize": array(6, makeweakref(thisFunction(ReadXmlChildShowBubbleSize))), + pre + "showLeaderLines": array(7, makeweakref(thisFunction(ReadXmlChildShowLeaderLines))), + pre + "extLst": array(8, makeweakref(thisFunction(ReadXmlChildExtLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function DLbls.Copy(_obj: DLbls);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSpPr) then + {self.}SpPr.Copy(_obj.XmlChildSpPr); + if not ifnil(_obj.XmlChildShowLegendKey) then + {self.}ShowLegendKey.Copy(_obj.XmlChildShowLegendKey); + if not ifnil(_obj.XmlChildShowVal) then + {self.}ShowVal.Copy(_obj.XmlChildShowVal); + if not ifnil(_obj.XmlChildShowCatName) then + {self.}ShowCatName.Copy(_obj.XmlChildShowCatName); + if not ifnil(_obj.XmlChildShowSerName) then + {self.}ShowSerName.Copy(_obj.XmlChildShowSerName); + if not ifnil(_obj.XmlChildShowPercent) then + {self.}ShowPercent.Copy(_obj.XmlChildShowPercent); + if not ifnil(_obj.XmlChildShowBubbleSize) then + {self.}ShowBubbleSize.Copy(_obj.XmlChildShowBubbleSize); + if not ifnil(_obj.XmlChildShowLeaderLines) then + {self.}ShowLeaderLines.Copy(_obj.XmlChildShowLeaderLines); + if not ifnil(_obj.XmlChildExtLst) then + {self.}ExtLst.Copy(_obj.XmlChildExtLst); + tslassigning := tslassigning_backup; +end; + +function DLbls.ReadXmlChildSpPr(): SpPr; +begin + if tslassigning and ifnil({self.}XmlChildSpPr) then + begin + {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); + container_.Set({self.}XmlChildSpPr); + end + return {self.}XmlChildSpPr; +end; + +function DLbls.ReadXmlChildShowLegendKey(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowLegendKey) then + begin + {self.}XmlChildShowLegendKey := new PureVal(self, {self.}Prefix, "showLegendKey"); + container_.Set({self.}XmlChildShowLegendKey); + end + return {self.}XmlChildShowLegendKey; +end; + +function DLbls.ReadXmlChildShowVal(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowVal) then + begin + {self.}XmlChildShowVal := new PureVal(self, {self.}Prefix, "showVal"); + container_.Set({self.}XmlChildShowVal); + end + return {self.}XmlChildShowVal; +end; + +function DLbls.ReadXmlChildShowCatName(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowCatName) then + begin + {self.}XmlChildShowCatName := new PureVal(self, {self.}Prefix, "showCatName"); + container_.Set({self.}XmlChildShowCatName); + end + return {self.}XmlChildShowCatName; +end; + +function DLbls.ReadXmlChildShowSerName(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowSerName) then + begin + {self.}XmlChildShowSerName := new PureVal(self, {self.}Prefix, "showSerName"); + container_.Set({self.}XmlChildShowSerName); + end + return {self.}XmlChildShowSerName; +end; + +function DLbls.ReadXmlChildShowPercent(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowPercent) then + begin + {self.}XmlChildShowPercent := new PureVal(self, {self.}Prefix, "showPercent"); + container_.Set({self.}XmlChildShowPercent); + end + return {self.}XmlChildShowPercent; +end; + +function DLbls.ReadXmlChildShowBubbleSize(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowBubbleSize) then + begin + {self.}XmlChildShowBubbleSize := new PureVal(self, {self.}Prefix, "showBubbleSize"); + container_.Set({self.}XmlChildShowBubbleSize); + end + return {self.}XmlChildShowBubbleSize; +end; + +function DLbls.ReadXmlChildShowLeaderLines(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowLeaderLines) then + begin + {self.}XmlChildShowLeaderLines := new PureVal(self, {self.}Prefix, "showLeaderLines"); + container_.Set({self.}XmlChildShowLeaderLines); + end + return {self.}XmlChildShowLeaderLines; +end; + +function DLbls.ReadXmlChildExtLst(): ExtLst; +begin + if tslassigning and ifnil({self.}XmlChildExtLst) then + begin + {self.}XmlChildExtLst := new ExtLst(self, {self.}Prefix, "extLst"); + container_.Set({self.}XmlChildExtLst); + end + return {self.}XmlChildExtLst; +end; + +function Cat.Create();overload; +begin + {self.}Create(nil, "c", "cat"); +end; + +function Cat.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Cat.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Cat.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Cat.Copy(_obj: Cat);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildStrRef) then + {self.}StrRef.Copy(_obj.XmlChildStrRef); + tslassigning := tslassigning_backup; +end; + +function Cat.ReadXmlChildStrRef(): StrRef; +begin + if tslassigning and ifnil({self.}XmlChildStrRef) then + begin + {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); + container_.Set({self.}XmlChildStrRef); + end + return {self.}XmlChildStrRef; +end; + +function StrRef.Create();overload; +begin + {self.}Create(nil, "c", "strRef"); +end; + +function StrRef.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function StrRef.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function StrRef.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))), + pre + "strCache": array(1, makeweakref(thisFunction(ReadXmlChildStrCache))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function StrRef.Copy(_obj: StrRef);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildF) then + {self.}F.Copy(_obj.XmlChildF); + if not ifnil(_obj.XmlChildStrCache) then + {self.}StrCache.Copy(_obj.XmlChildStrCache); + tslassigning := tslassigning_backup; +end; + +function StrRef.ReadXmlChildF(); +begin + if tslassigning and ifnil({self.}XmlChildF) then + begin + {self.}XmlChildF := new OpenXmlPcdata(self, {self.}Prefix, "f"); + container_.Set({self.}XmlChildF); + end + return {self.}XmlChildF; +end; + +function StrRef.ReadXmlChildStrCache(): StrCache; +begin + if tslassigning and ifnil({self.}XmlChildStrCache) then + begin + {self.}XmlChildStrCache := new StrCache(self, {self.}Prefix, "strCache"); + container_.Set({self.}XmlChildStrCache); + end + return {self.}XmlChildStrCache; +end; + +function Val.Create();overload; +begin + {self.}Create(nil, "c", "val"); +end; + +function Val.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Val.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Val.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "numRef": array(0, makeweakref(thisFunction(ReadXmlChildNumRef))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Val.Copy(_obj: Val);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildNumRef) then + {self.}NumRef.Copy(_obj.XmlChildNumRef); + tslassigning := tslassigning_backup; +end; + +function Val.ReadXmlChildNumRef(): NumRef; +begin + if tslassigning and ifnil({self.}XmlChildNumRef) then + begin + {self.}XmlChildNumRef := new NumRef(self, {self.}Prefix, "numRef"); + container_.Set({self.}XmlChildNumRef); + end + return {self.}XmlChildNumRef; +end; + +function NumRef.Create();overload; +begin + {self.}Create(nil, "c", "numRef"); +end; + +function NumRef.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function NumRef.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function NumRef.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "f": array(0, makeweakref(thisFunction(ReadXmlChildF))), + pre + "numCache": array(1, makeweakref(thisFunction(ReadXmlChildNumCache))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function NumRef.Copy(_obj: NumRef);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildF) then + {self.}F.Copy(_obj.XmlChildF); + if not ifnil(_obj.XmlChildNumCache) then + {self.}NumCache.Copy(_obj.XmlChildNumCache); + tslassigning := tslassigning_backup; +end; + +function NumRef.ReadXmlChildF(); +begin + if tslassigning and ifnil({self.}XmlChildF) then + begin + {self.}XmlChildF := new OpenXmlPcdata(self, {self.}Prefix, "f"); + container_.Set({self.}XmlChildF); + end + return {self.}XmlChildF; +end; + +function NumRef.ReadXmlChildNumCache(): NumCache; +begin + if tslassigning and ifnil({self.}XmlChildNumCache) then + begin + {self.}XmlChildNumCache := new NumCache(self, {self.}Prefix, "numCache"); + container_.Set({self.}XmlChildNumCache); + end + return {self.}XmlChildNumCache; +end; + +function StrCache.Create();overload; +begin + {self.}Create(nil, "c", ""); +end; + +function StrCache.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function StrCache.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function StrCache.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "ptCount": array(0, makeweakref(thisFunction(ReadXmlChildPtCount))), + pre + "pt": array(1, makeweakref(thisFunction(AppendPt))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function StrCache.Copy(_obj: StrCache);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildPtCount) then + {self.}PtCount.Copy(_obj.XmlChildPtCount); + tslassigning := tslassigning_backup; +end; + +function StrCache.ReadXmlChildPtCount(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildPtCount) then + begin + {self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount"); + container_.Set({self.}XmlChildPtCount); + end + return {self.}XmlChildPtCount; +end; + +function StrCache.ReadPts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "pt", ind); +end; + +function StrCache.AddPt(): Pt; +begin + obj := new Pt(self, {self.}Prefix, "pt"); + container_.Insert(obj); + return obj; +end; + +function StrCache.AppendPt(): Pt; +begin + obj := new Pt(self, {self.}Prefix, "pt"); + container_.Append(obj); + return obj; +end; + +function NumCache.Create();overload; +begin + {self.}Create(nil, "c", ""); +end; + +function NumCache.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function NumCache.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function NumCache.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "formatCode": array(0, makeweakref(thisFunction(ReadXmlChildFormatCode))), + pre + "ptCount": array(1, makeweakref(thisFunction(ReadXmlChildPtCount))), + pre + "pt": array(2, makeweakref(thisFunction(AppendPt))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function NumCache.Copy(_obj: NumCache);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildFormatCode) then + {self.}FormatCode.Copy(_obj.XmlChildFormatCode); + if not ifnil(_obj.XmlChildPtCount) then + {self.}PtCount.Copy(_obj.XmlChildPtCount); + tslassigning := tslassigning_backup; +end; + +function NumCache.ReadXmlChildFormatCode(); +begin + if tslassigning and ifnil({self.}XmlChildFormatCode) then + begin + {self.}XmlChildFormatCode := new OpenXmlPcdata(self, {self.}Prefix, "formatCode"); + container_.Set({self.}XmlChildFormatCode); + end + return {self.}XmlChildFormatCode; +end; + +function NumCache.ReadXmlChildPtCount(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildPtCount) then + begin + {self.}XmlChildPtCount := new PureVal(self, {self.}Prefix, "ptCount"); + container_.Set({self.}XmlChildPtCount); + end + return {self.}XmlChildPtCount; +end; + +function NumCache.ReadPts(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "pt", ind); +end; + +function NumCache.AddPt(): Pt; +begin + obj := new Pt(self, {self.}Prefix, "pt"); + container_.Insert(obj); + return obj; +end; + +function NumCache.AppendPt(): Pt; +begin + obj := new Pt(self, {self.}Prefix, "pt"); + container_.Append(obj); + return obj; +end; + +function Pt.Create();overload; +begin + {self.}Create(nil, "c", "pt"); +end; + +function Pt.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Pt.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Pt.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "idx": makeweakref(thisFunction(WriteXmlAttrIdx)), + ); + sorted_child_ := array( + pre + "v": array(0, makeweakref(thisFunction(ReadXmlChildV))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Pt.Copy(_obj: Pt);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Idx) then + {self.}Idx := _obj.Idx; + if not ifnil(_obj.XmlChildV) then + {self.}V.Copy(_obj.XmlChildV); + tslassigning := tslassigning_backup; +end; + +function Pt.ReadXmlAttrIdx(); +begin + return {self.}XmlAttrIdx.Value; +end; + +function Pt.WriteXmlAttrIdx(_value); +begin + if ifnil({self.}XmlAttrIdx) then + begin + {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIdx; + end + {self.}XmlAttrIdx.Value := _value; +end; + +function Pt.ReadXmlChildV(); +begin + if tslassigning and ifnil({self.}XmlChildV) then + begin + {self.}XmlChildV := new OpenXmlPcdata(self, {self.}Prefix, "v"); + container_.Set({self.}XmlChildV); + end + return {self.}XmlChildV; +end; + +function Ax.Create();overload; +begin + {self.}Create(nil, "c", ""); +end; + +function Ax.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Ax.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Ax.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "axId": array(0, makeweakref(thisFunction(ReadXmlChildAxId))), + pre + "scaling": array(1, makeweakref(thisFunction(ReadXmlChildScaling))), + pre + "delete": array(2, makeweakref(thisFunction(ReadXmlChild_Delete))), + pre + "axPos": array(3, makeweakref(thisFunction(ReadXmlChildAxPos))), + pre + "numFmt": array(4, makeweakref(thisFunction(ReadXmlChildNumFmt))), + pre + "majorTickMark": array(5, makeweakref(thisFunction(ReadXmlChildMajorTickMark))), + pre + "minorTickMark": array(6, makeweakref(thisFunction(ReadXmlChildMinorTickMark))), + pre + "tickLblPos": array(7, makeweakref(thisFunction(ReadXmlChildTickLblPos))), + pre + "spPr": array(8, makeweakref(thisFunction(ReadXmlChildSpPr))), + pre + "txPr": array(9, makeweakref(thisFunction(ReadXmlChildTxPr))), + pre + "crossAx": array(10, makeweakref(thisFunction(ReadXmlChildCrossAx))), + pre + "crosses": array(11, makeweakref(thisFunction(ReadXmlChildCrosses))), + pre + "crossBetween": array(12, makeweakref(thisFunction(ReadXmlChildCrossBetween))), + pre + "auto": array(13, makeweakref(thisFunction(ReadXmlChildAuto))), + pre + "lblAlgn": array(14, makeweakref(thisFunction(ReadXmlChildLblAlgn))), + pre + "lblOffset": array(15, makeweakref(thisFunction(ReadXmlChildLblOffset))), + pre + "noMultiLvlLbl": array(16, makeweakref(thisFunction(ReadXmlChildNoMultiLvlLbl))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Ax.Copy(_obj: Ax);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildAxId) then + {self.}AxId.Copy(_obj.XmlChildAxId); + if not ifnil(_obj.XmlChildScaling) then + {self.}Scaling.Copy(_obj.XmlChildScaling); + if not ifnil(_obj.XmlChild_Delete) then + {self.}_Delete.Copy(_obj.XmlChild_Delete); + if not ifnil(_obj.XmlChildAxPos) then + {self.}AxPos.Copy(_obj.XmlChildAxPos); + if not ifnil(_obj.XmlChildNumFmt) then + {self.}NumFmt.Copy(_obj.XmlChildNumFmt); + if not ifnil(_obj.XmlChildMajorTickMark) then + {self.}MajorTickMark.Copy(_obj.XmlChildMajorTickMark); + if not ifnil(_obj.XmlChildMinorTickMark) then + {self.}MinorTickMark.Copy(_obj.XmlChildMinorTickMark); + if not ifnil(_obj.XmlChildTickLblPos) then + {self.}TickLblPos.Copy(_obj.XmlChildTickLblPos); + if not ifnil(_obj.XmlChildSpPr) then + {self.}SpPr.Copy(_obj.XmlChildSpPr); + if not ifnil(_obj.XmlChildTxPr) then + {self.}TxPr.Copy(_obj.XmlChildTxPr); + if not ifnil(_obj.XmlChildCrossAx) then + {self.}CrossAx.Copy(_obj.XmlChildCrossAx); + if not ifnil(_obj.XmlChildCrosses) then + {self.}Crosses.Copy(_obj.XmlChildCrosses); + if not ifnil(_obj.XmlChildCrossBetween) then + {self.}CrossBetween.Copy(_obj.XmlChildCrossBetween); + if not ifnil(_obj.XmlChildAuto) then + {self.}Auto.Copy(_obj.XmlChildAuto); + if not ifnil(_obj.XmlChildLblAlgn) then + {self.}LblAlgn.Copy(_obj.XmlChildLblAlgn); + if not ifnil(_obj.XmlChildLblOffset) then + {self.}LblOffset.Copy(_obj.XmlChildLblOffset); + if not ifnil(_obj.XmlChildNoMultiLvlLbl) then + {self.}NoMultiLvlLbl.Copy(_obj.XmlChildNoMultiLvlLbl); + tslassigning := tslassigning_backup; +end; + +function Ax.ReadXmlChildAxId(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildAxId) then + begin + {self.}XmlChildAxId := new PureVal(self, {self.}Prefix, "axId"); + container_.Set({self.}XmlChildAxId); + end + return {self.}XmlChildAxId; +end; + +function Ax.ReadXmlChildScaling(): Scaling; +begin + if tslassigning and ifnil({self.}XmlChildScaling) then + begin + {self.}XmlChildScaling := new Scaling(self, {self.}Prefix, "scaling"); + container_.Set({self.}XmlChildScaling); + end + return {self.}XmlChildScaling; +end; + +function Ax.ReadXmlChild_Delete(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChild_Delete) then + begin + {self.}XmlChild_Delete := new PureVal(self, {self.}Prefix, "delete"); + container_.Set({self.}XmlChild_Delete); + end + return {self.}XmlChild_Delete; +end; + +function Ax.ReadXmlChildAxPos(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildAxPos) then + begin + {self.}XmlChildAxPos := new PureVal(self, {self.}Prefix, "axPos"); + container_.Set({self.}XmlChildAxPos); + end + return {self.}XmlChildAxPos; +end; + +function Ax.ReadXmlChildNumFmt(): NumFmt; +begin + if tslassigning and ifnil({self.}XmlChildNumFmt) then + begin + {self.}XmlChildNumFmt := new NumFmt(self, {self.}Prefix, "numFmt"); + container_.Set({self.}XmlChildNumFmt); + end + return {self.}XmlChildNumFmt; +end; + +function Ax.ReadXmlChildMajorTickMark(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildMajorTickMark) then + begin + {self.}XmlChildMajorTickMark := new PureVal(self, {self.}Prefix, "majorTickMark"); + container_.Set({self.}XmlChildMajorTickMark); + end + return {self.}XmlChildMajorTickMark; +end; + +function Ax.ReadXmlChildMinorTickMark(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildMinorTickMark) then + begin + {self.}XmlChildMinorTickMark := new PureVal(self, {self.}Prefix, "minorTickMark"); + container_.Set({self.}XmlChildMinorTickMark); + end + return {self.}XmlChildMinorTickMark; +end; + +function Ax.ReadXmlChildTickLblPos(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildTickLblPos) then + begin + {self.}XmlChildTickLblPos := new PureVal(self, {self.}Prefix, "tickLblPos"); + container_.Set({self.}XmlChildTickLblPos); + end + return {self.}XmlChildTickLblPos; +end; + +function Ax.ReadXmlChildSpPr(): SpPr; +begin + if tslassigning and ifnil({self.}XmlChildSpPr) then + begin + {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); + container_.Set({self.}XmlChildSpPr); + end + return {self.}XmlChildSpPr; +end; + +function Ax.ReadXmlChildTxPr(): TxPr; +begin + if tslassigning and ifnil({self.}XmlChildTxPr) then + begin + {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); + container_.Set({self.}XmlChildTxPr); + end + return {self.}XmlChildTxPr; +end; + +function Ax.ReadXmlChildCrossAx(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildCrossAx) then + begin + {self.}XmlChildCrossAx := new PureVal(self, {self.}Prefix, "crossAx"); + container_.Set({self.}XmlChildCrossAx); + end + return {self.}XmlChildCrossAx; +end; + +function Ax.ReadXmlChildCrosses(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildCrosses) then + begin + {self.}XmlChildCrosses := new PureVal(self, {self.}Prefix, "crosses"); + container_.Set({self.}XmlChildCrosses); + end + return {self.}XmlChildCrosses; +end; + +function Ax.ReadXmlChildCrossBetween(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildCrossBetween) then + begin + {self.}XmlChildCrossBetween := new PureVal(self, {self.}Prefix, "crossBetween"); + container_.Set({self.}XmlChildCrossBetween); + end + return {self.}XmlChildCrossBetween; +end; + +function Ax.ReadXmlChildAuto(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildAuto) then + begin + {self.}XmlChildAuto := new PureVal(self, {self.}Prefix, "auto"); + container_.Set({self.}XmlChildAuto); + end + return {self.}XmlChildAuto; +end; + +function Ax.ReadXmlChildLblAlgn(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildLblAlgn) then + begin + {self.}XmlChildLblAlgn := new PureVal(self, {self.}Prefix, "lblAlgn"); + container_.Set({self.}XmlChildLblAlgn); + end + return {self.}XmlChildLblAlgn; +end; + +function Ax.ReadXmlChildLblOffset(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildLblOffset) then + begin + {self.}XmlChildLblOffset := new PureVal(self, {self.}Prefix, "lblOffset"); + container_.Set({self.}XmlChildLblOffset); + end + return {self.}XmlChildLblOffset; +end; + +function Ax.ReadXmlChildNoMultiLvlLbl(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildNoMultiLvlLbl) then + begin + {self.}XmlChildNoMultiLvlLbl := new PureVal(self, {self.}Prefix, "noMultiLvlLbl"); + container_.Set({self.}XmlChildNoMultiLvlLbl); + end + return {self.}XmlChildNoMultiLvlLbl; +end; + +function NumFmt.Create();overload; +begin + {self.}Create(nil, "c", "numFmt"); +end; + +function NumFmt.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function NumFmt.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function NumFmt.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "formatCode": makeweakref(thisFunction(WriteXmlAttrFormatCode)), + "sourceLinked": makeweakref(thisFunction(WriteXmlAttrSourceLinked)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function NumFmt.Copy(_obj: NumFmt);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.FormatCode) then + {self.}FormatCode := _obj.FormatCode; + if not ifnil(_obj.SourceLinked) then + {self.}SourceLinked := _obj.SourceLinked; + tslassigning := tslassigning_backup; +end; + +function NumFmt.ReadXmlAttrFormatCode(); +begin + return {self.}XmlAttrFormatCode.Value; +end; + +function NumFmt.WriteXmlAttrFormatCode(_value); +begin + if ifnil({self.}XmlAttrFormatCode) then + begin + {self.}XmlAttrFormatCode := new OpenXmlAttribute("", "formatCode", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFormatCode; + end + {self.}XmlAttrFormatCode.Value := _value; +end; + +function NumFmt.ReadXmlAttrSourceLinked(); +begin + return {self.}XmlAttrSourceLinked.Value; +end; + +function NumFmt.WriteXmlAttrSourceLinked(_value); +begin + if ifnil({self.}XmlAttrSourceLinked) then + begin + {self.}XmlAttrSourceLinked := new OpenXmlAttribute("", "sourceLinked", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSourceLinked; + end + {self.}XmlAttrSourceLinked.Value := _value; +end; + +function Scaling.Create();overload; +begin + {self.}Create(nil, "c", "scaling"); +end; + +function Scaling.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Scaling.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Scaling.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "orientation": array(0, makeweakref(thisFunction(ReadXmlChildOrientation))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Scaling.Copy(_obj: Scaling);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildOrientation) then + ifnil({self.}XmlChildOrientation) ? {self.}Orientation.Copy(_obj.XmlChildOrientation) : {self.}XmlChildOrientation.Copy(_obj.XmlChildOrientation); + tslassigning := tslassigning_backup; +end; + +function Scaling.ReadXmlChildOrientation(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildOrientation) then + begin + {self.}XmlChildOrientation := new OpenXmlEmpty(self, {self.}Prefix, "orientation"); + container_.Set({self.}XmlChildOrientation); + end + return {self.}XmlChildOrientation; + end + return ifnil({self.}XmlChildOrientation) ? nil : {self.}XmlChildOrientation.BoolValue(); +end; + +function Scaling.WriteXmlChildOrientation(_value); +begin + if ifnil({self.}XmlChildOrientation) then + begin + {self.}XmlChildOrientation := new OpenXmlEmpty(self, {self.}Prefix, "orientation"); + container_.Set({self.}XmlChildOrientation); + end + {self.}XmlChildOrientation.Value := _value; +end; + +function DTable.Create();overload; +begin + {self.}Create(nil, "c", "dTable"); +end; + +function DTable.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function DTable.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function DTable.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "showHorzBorder": array(0, makeweakref(thisFunction(ReadXmlChildShowHorzBorder))), + pre + "showVertBorder": array(1, makeweakref(thisFunction(ReadXmlChildShowVertBorder))), + pre + "showOutline": array(2, makeweakref(thisFunction(ReadXmlChildShowOutline))), + pre + "showKeys": array(3, makeweakref(thisFunction(ReadXmlChildShowKeys))), + pre + "txPr": array(4, makeweakref(thisFunction(ReadXmlChildTxPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function DTable.Copy(_obj: DTable);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildShowHorzBorder) then + {self.}ShowHorzBorder.Copy(_obj.XmlChildShowHorzBorder); + if not ifnil(_obj.XmlChildShowVertBorder) then + {self.}ShowVertBorder.Copy(_obj.XmlChildShowVertBorder); + if not ifnil(_obj.XmlChildShowOutline) then + {self.}ShowOutline.Copy(_obj.XmlChildShowOutline); + if not ifnil(_obj.XmlChildShowKeys) then + {self.}ShowKeys.Copy(_obj.XmlChildShowKeys); + if not ifnil(_obj.XmlChildTxPr) then + {self.}TxPr.Copy(_obj.XmlChildTxPr); + tslassigning := tslassigning_backup; +end; + +function DTable.ReadXmlChildShowHorzBorder(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowHorzBorder) then + begin + {self.}XmlChildShowHorzBorder := new PureVal(self, {self.}Prefix, "showHorzBorder"); + container_.Set({self.}XmlChildShowHorzBorder); + end + return {self.}XmlChildShowHorzBorder; +end; + +function DTable.ReadXmlChildShowVertBorder(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowVertBorder) then + begin + {self.}XmlChildShowVertBorder := new PureVal(self, {self.}Prefix, "showVertBorder"); + container_.Set({self.}XmlChildShowVertBorder); + end + return {self.}XmlChildShowVertBorder; +end; + +function DTable.ReadXmlChildShowOutline(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowOutline) then + begin + {self.}XmlChildShowOutline := new PureVal(self, {self.}Prefix, "showOutline"); + container_.Set({self.}XmlChildShowOutline); + end + return {self.}XmlChildShowOutline; +end; + +function DTable.ReadXmlChildShowKeys(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildShowKeys) then + begin + {self.}XmlChildShowKeys := new PureVal(self, {self.}Prefix, "showKeys"); + container_.Set({self.}XmlChildShowKeys); + end + return {self.}XmlChildShowKeys; +end; + +function DTable.ReadXmlChildTxPr(): TxPr; +begin + if tslassigning and ifnil({self.}XmlChildTxPr) then + begin + {self.}XmlChildTxPr := new TxPr(self, {self.}Prefix, "txPr"); + container_.Set({self.}XmlChildTxPr); + end + return {self.}XmlChildTxPr; +end; + +function TxPr.Create();overload; +begin + {self.}Create(nil, "c", "txPr"); +end; + +function TxPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function TxPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function TxPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))), + "a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))), + "a:p": array(2, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function TxPr.Copy(_obj: TxPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildBodyPr) then + {self.}BodyPr.Copy(_obj.XmlChildBodyPr); + if not ifnil(_obj.XmlChildLstStyle) then + ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle); + tslassigning := tslassigning_backup; +end; + +function TxPr.ReadXmlChildLstStyle(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildLstStyle) then + begin + {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); + container_.Set({self.}XmlChildLstStyle); + end + return {self.}XmlChildLstStyle; + end + return ifnil({self.}XmlChildLstStyle) ? nil : {self.}XmlChildLstStyle.BoolValue(); +end; + +function TxPr.WriteXmlChildLstStyle(_value); +begin + if ifnil({self.}XmlChildLstStyle) then + begin + {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); + container_.Set({self.}XmlChildLstStyle); + end + {self.}XmlChildLstStyle.Value := _value; +end; + +function TxPr.ReadXmlChildBodyPr(): BodyPr; +begin + if tslassigning and ifnil({self.}XmlChildBodyPr) then + begin + {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); + container_.Set({self.}XmlChildBodyPr); + end + return {self.}XmlChildBodyPr; +end; + +function TxPr.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get("a:p", ind); +end; + +function TxPr.AddP(): P; +begin + obj := new P(self, "a", "p"); + container_.Insert(obj); + return obj; +end; + +function TxPr.AppendP(): P; +begin + obj := new P(self, "a", "p"); + container_.Append(obj); + return obj; +end; + +function Title.Create();overload; +begin + {self.}Create(nil, "c", "title"); +end; + +function Title.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Title.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Title.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "tx": array(0, makeweakref(thisFunction(ReadXmlChildTx))), + pre + "layout": array(1, makeweakref(thisFunction(ReadXmlChildLayout))), + pre + "overlay": array(2, makeweakref(thisFunction(ReadXmlChildOverlay))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Title.Copy(_obj: Title);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTx) then + {self.}Tx.Copy(_obj.XmlChildTx); + if not ifnil(_obj.XmlChildLayout) then + ifnil({self.}XmlChildLayout) ? {self.}Layout.Copy(_obj.XmlChildLayout) : {self.}XmlChildLayout.Copy(_obj.XmlChildLayout); + if not ifnil(_obj.XmlChildOverlay) then + {self.}Overlay.Copy(_obj.XmlChildOverlay); + tslassigning := tslassigning_backup; +end; + +function Title.ReadXmlChildLayout(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildLayout) then + begin + {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); + container_.Set({self.}XmlChildLayout); + end + return {self.}XmlChildLayout; + end + return ifnil({self.}XmlChildLayout) ? nil : {self.}XmlChildLayout.BoolValue(); +end; + +function Title.WriteXmlChildLayout(_value); +begin + if ifnil({self.}XmlChildLayout) then + begin + {self.}XmlChildLayout := new OpenXmlEmpty(self, {self.}Prefix, "layout"); + container_.Set({self.}XmlChildLayout); + end + {self.}XmlChildLayout.Value := _value; +end; + +function Title.ReadXmlChildTx(): Tx; +begin + if tslassigning and ifnil({self.}XmlChildTx) then + begin + {self.}XmlChildTx := new Tx(self, {self.}Prefix, "tx"); + container_.Set({self.}XmlChildTx); + end + return {self.}XmlChildTx; +end; + +function Title.ReadXmlChildOverlay(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildOverlay) then + begin + {self.}XmlChildOverlay := new PureVal(self, {self.}Prefix, "overlay"); + container_.Set({self.}XmlChildOverlay); + end + return {self.}XmlChildOverlay; +end; + +function Tx.Create();overload; +begin + {self.}Create(nil, "c", "tx"); +end; + +function Tx.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Tx.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Tx.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "strRef": array(0, makeweakref(thisFunction(ReadXmlChildStrRef))), + pre + "rich": array(1, makeweakref(thisFunction(ReadXmlChildRich))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Tx.Copy(_obj: Tx);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildStrRef) then + {self.}StrRef.Copy(_obj.XmlChildStrRef); + if not ifnil(_obj.XmlChildRich) then + {self.}Rich.Copy(_obj.XmlChildRich); + tslassigning := tslassigning_backup; +end; + +function Tx.ReadXmlChildStrRef(): StrRef; +begin + if tslassigning and ifnil({self.}XmlChildStrRef) then + begin + {self.}XmlChildStrRef := new StrRef(self, {self.}Prefix, "strRef"); + container_.Set({self.}XmlChildStrRef); + end + return {self.}XmlChildStrRef; +end; + +function Tx.ReadXmlChildRich(): Rich; +begin + if tslassigning and ifnil({self.}XmlChildRich) then + begin + {self.}XmlChildRich := new Rich(self, {self.}Prefix, "rich"); + container_.Set({self.}XmlChildRich); + end + return {self.}XmlChildRich; +end; + +function Rich.Create();overload; +begin + {self.}Create(nil, "c", "rich"); +end; + +function Rich.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Rich.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Rich.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "a:bodyPr": array(0, makeweakref(thisFunction(ReadXmlChildBodyPr))), + "a:lstStyle": array(1, makeweakref(thisFunction(ReadXmlChildLstStyle))), + "a:p": array(2, makeweakref(thisFunction(AppendP))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Rich.Copy(_obj: Rich);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildBodyPr) then + {self.}BodyPr.Copy(_obj.XmlChildBodyPr); + if not ifnil(_obj.XmlChildLstStyle) then + ifnil({self.}XmlChildLstStyle) ? {self.}LstStyle.Copy(_obj.XmlChildLstStyle) : {self.}XmlChildLstStyle.Copy(_obj.XmlChildLstStyle); + tslassigning := tslassigning_backup; +end; + +function Rich.ReadXmlChildLstStyle(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildLstStyle) then + begin + {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); + container_.Set({self.}XmlChildLstStyle); + end + return {self.}XmlChildLstStyle; + end + return ifnil({self.}XmlChildLstStyle) ? nil : {self.}XmlChildLstStyle.BoolValue(); +end; + +function Rich.WriteXmlChildLstStyle(_value); +begin + if ifnil({self.}XmlChildLstStyle) then + begin + {self.}XmlChildLstStyle := new OpenXmlEmpty(self, "a", "lstStyle"); + container_.Set({self.}XmlChildLstStyle); + end + {self.}XmlChildLstStyle.Value := _value; +end; + +function Rich.ReadXmlChildBodyPr(): BodyPr; +begin + if tslassigning and ifnil({self.}XmlChildBodyPr) then + begin + {self.}XmlChildBodyPr := new BodyPr(self, "a", "bodyPr"); + container_.Set({self.}XmlChildBodyPr); + end + return {self.}XmlChildBodyPr; +end; + +function Rich.ReadPs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get("a:p", ind); +end; + +function Rich.AddP(): P; +begin + obj := new P(self, "a", "p"); + container_.Insert(obj); + return obj; +end; + +function Rich.AppendP(): P; +begin + obj := new P(self, "a", "p"); + container_.Append(obj); + return obj; +end; + +function BodyPr.Create();overload; +begin + {self.}Create(nil, "a", "bodyPr"); +end; + +function BodyPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function BodyPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function BodyPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "rot": makeweakref(thisFunction(WriteXmlAttrRot)), + "spcFirstLastPara": makeweakref(thisFunction(WriteXmlAttrSpcFirstLastPara)), + "vertOverflow": makeweakref(thisFunction(WriteXmlAttrVertOverflow)), + "horzOverflow": makeweakref(thisFunction(WriteXmlAttrHorzOverflow)), + "vert": makeweakref(thisFunction(WriteXmlAttrVert)), + "wrap": makeweakref(thisFunction(WriteXmlAttrWrap)), + "lIns": makeweakref(thisFunction(WriteXmlAttrLIns)), + "TIns": makeweakref(thisFunction(WriteXmlAttrTIns)), + "rIns": makeweakref(thisFunction(WriteXmlAttrRIns)), + "bIns": makeweakref(thisFunction(WriteXmlAttrBIns)), + "numCol": makeweakref(thisFunction(WriteXmlAttrNumCol)), + "spcCol": makeweakref(thisFunction(WriteXmlAttrSpcCol)), + "rtlCol": makeweakref(thisFunction(WriteXmlAttrRtlCol)), + "fromWordArt": makeweakref(thisFunction(WriteXmlAttrFromWordArt)), + "anchor": makeweakref(thisFunction(WriteXmlAttrAnchor)), + "anchorCtr": makeweakref(thisFunction(WriteXmlAttrAnchorCtr)), + "forceAA": makeweakref(thisFunction(WriteXmlAttrForceAA)), + "compatLnSpc": makeweakref(thisFunction(WriteXmlAttrCompatLnSpc)), + ); + sorted_child_ := array( + "a:prstTxWrap": array(0, makeweakref(thisFunction(ReadXmlChildPrstTxWrap))), + "a:noAutofit": array(1, makeweakref(thisFunction(ReadXmlChildNoAutofit))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function BodyPr.Copy(_obj: BodyPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Rot) then + {self.}Rot := _obj.Rot; + if not ifnil(_obj.SpcFirstLastPara) then + {self.}SpcFirstLastPara := _obj.SpcFirstLastPara; + if not ifnil(_obj.VertOverflow) then + {self.}VertOverflow := _obj.VertOverflow; + if not ifnil(_obj.HorzOverflow) then + {self.}HorzOverflow := _obj.HorzOverflow; + if not ifnil(_obj.Vert) then + {self.}Vert := _obj.Vert; + if not ifnil(_obj.Wrap) then + {self.}Wrap := _obj.Wrap; + if not ifnil(_obj.LIns) then + {self.}LIns := _obj.LIns; + if not ifnil(_obj.TIns) then + {self.}TIns := _obj.TIns; + if not ifnil(_obj.RIns) then + {self.}RIns := _obj.RIns; + if not ifnil(_obj.BIns) then + {self.}BIns := _obj.BIns; + if not ifnil(_obj.NumCol) then + {self.}NumCol := _obj.NumCol; + if not ifnil(_obj.SpcCol) then + {self.}SpcCol := _obj.SpcCol; + if not ifnil(_obj.RtlCol) then + {self.}RtlCol := _obj.RtlCol; + if not ifnil(_obj.FromWordArt) then + {self.}FromWordArt := _obj.FromWordArt; + if not ifnil(_obj.Anchor) then + {self.}Anchor := _obj.Anchor; + if not ifnil(_obj.AnchorCtr) then + {self.}AnchorCtr := _obj.AnchorCtr; + if not ifnil(_obj.ForceAA) then + {self.}ForceAA := _obj.ForceAA; + if not ifnil(_obj.CompatLnSpc) then + {self.}CompatLnSpc := _obj.CompatLnSpc; + if not ifnil(_obj.XmlChildPrstTxWrap) then + {self.}PrstTxWrap.Copy(_obj.XmlChildPrstTxWrap); + if not ifnil(_obj.XmlChildNoAutofit) then + ifnil({self.}XmlChildNoAutofit) ? {self.}NoAutofit.Copy(_obj.XmlChildNoAutofit) : {self.}XmlChildNoAutofit.Copy(_obj.XmlChildNoAutofit); + tslassigning := tslassigning_backup; +end; + +function BodyPr.ReadXmlAttrRot(); +begin + return {self.}XmlAttrRot.Value; +end; + +function BodyPr.WriteXmlAttrRot(_value); +begin + if ifnil({self.}XmlAttrRot) then + begin + {self.}XmlAttrRot := new OpenXmlAttribute("", "rot", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRot; + end + {self.}XmlAttrRot.Value := _value; +end; + +function BodyPr.ReadXmlAttrSpcFirstLastPara(); +begin + return {self.}XmlAttrSpcFirstLastPara.Value; +end; + +function BodyPr.WriteXmlAttrSpcFirstLastPara(_value); +begin + if ifnil({self.}XmlAttrSpcFirstLastPara) then + begin + {self.}XmlAttrSpcFirstLastPara := new OpenXmlAttribute("", "spcFirstLastPara", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpcFirstLastPara; + end + {self.}XmlAttrSpcFirstLastPara.Value := _value; +end; + +function BodyPr.ReadXmlAttrVertOverflow(); +begin + return {self.}XmlAttrVertOverflow.Value; +end; + +function BodyPr.WriteXmlAttrVertOverflow(_value); +begin + if ifnil({self.}XmlAttrVertOverflow) then + begin + {self.}XmlAttrVertOverflow := new OpenXmlAttribute("", "vertOverflow", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVertOverflow; + end + {self.}XmlAttrVertOverflow.Value := _value; +end; + +function BodyPr.ReadXmlAttrHorzOverflow(); +begin + return {self.}XmlAttrHorzOverflow.Value; +end; + +function BodyPr.WriteXmlAttrHorzOverflow(_value); +begin + if ifnil({self.}XmlAttrHorzOverflow) then + begin + {self.}XmlAttrHorzOverflow := new OpenXmlAttribute("", "horzOverflow", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHorzOverflow; + end + {self.}XmlAttrHorzOverflow.Value := _value; +end; + +function BodyPr.ReadXmlAttrVert(); +begin + return {self.}XmlAttrVert.Value; +end; + +function BodyPr.WriteXmlAttrVert(_value); +begin + if ifnil({self.}XmlAttrVert) then + begin + {self.}XmlAttrVert := new OpenXmlAttribute("", "vert", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVert; + end + {self.}XmlAttrVert.Value := _value; +end; + +function BodyPr.ReadXmlAttrWrap(); +begin + return {self.}XmlAttrWrap.Value; +end; + +function BodyPr.WriteXmlAttrWrap(_value); +begin + if ifnil({self.}XmlAttrWrap) then + begin + {self.}XmlAttrWrap := new OpenXmlAttribute("", "wrap", nil); + attributes_[length(attributes_)] := {self.}XmlAttrWrap; + end + {self.}XmlAttrWrap.Value := _value; +end; + +function BodyPr.ReadXmlAttrLIns(); +begin + return {self.}XmlAttrLIns.Value; +end; + +function BodyPr.WriteXmlAttrLIns(_value); +begin + if ifnil({self.}XmlAttrLIns) then + begin + {self.}XmlAttrLIns := new OpenXmlAttribute("", "lIns", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLIns; + end + {self.}XmlAttrLIns.Value := _value; +end; + +function BodyPr.ReadXmlAttrTIns(); +begin + return {self.}XmlAttrTIns.Value; +end; + +function BodyPr.WriteXmlAttrTIns(_value); +begin + if ifnil({self.}XmlAttrTIns) then + begin + {self.}XmlAttrTIns := new OpenXmlAttribute("", "TIns", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTIns; + end + {self.}XmlAttrTIns.Value := _value; +end; + +function BodyPr.ReadXmlAttrRIns(); +begin + return {self.}XmlAttrRIns.Value; +end; + +function BodyPr.WriteXmlAttrRIns(_value); +begin + if ifnil({self.}XmlAttrRIns) then + begin + {self.}XmlAttrRIns := new OpenXmlAttribute("", "rIns", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRIns; + end + {self.}XmlAttrRIns.Value := _value; +end; + +function BodyPr.ReadXmlAttrBIns(); +begin + return {self.}XmlAttrBIns.Value; +end; + +function BodyPr.WriteXmlAttrBIns(_value); +begin + if ifnil({self.}XmlAttrBIns) then + begin + {self.}XmlAttrBIns := new OpenXmlAttribute("", "bIns", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBIns; + end + {self.}XmlAttrBIns.Value := _value; +end; + +function BodyPr.ReadXmlAttrNumCol(); +begin + return {self.}XmlAttrNumCol.Value; +end; + +function BodyPr.WriteXmlAttrNumCol(_value); +begin + if ifnil({self.}XmlAttrNumCol) then + begin + {self.}XmlAttrNumCol := new OpenXmlAttribute("", "numCol", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNumCol; + end + {self.}XmlAttrNumCol.Value := _value; +end; + +function BodyPr.ReadXmlAttrSpcCol(); +begin + return {self.}XmlAttrSpcCol.Value; +end; + +function BodyPr.WriteXmlAttrSpcCol(_value); +begin + if ifnil({self.}XmlAttrSpcCol) then + begin + {self.}XmlAttrSpcCol := new OpenXmlAttribute("", "spcCol", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpcCol; + end + {self.}XmlAttrSpcCol.Value := _value; +end; + +function BodyPr.ReadXmlAttrRtlCol(); +begin + return {self.}XmlAttrRtlCol.Value; +end; + +function BodyPr.WriteXmlAttrRtlCol(_value); +begin + if ifnil({self.}XmlAttrRtlCol) then + begin + {self.}XmlAttrRtlCol := new OpenXmlAttribute("", "rtlCol", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRtlCol; + end + {self.}XmlAttrRtlCol.Value := _value; +end; + +function BodyPr.ReadXmlAttrFromWordArt(); +begin + return {self.}XmlAttrFromWordArt.Value; +end; + +function BodyPr.WriteXmlAttrFromWordArt(_value); +begin + if ifnil({self.}XmlAttrFromWordArt) then + begin + {self.}XmlAttrFromWordArt := new OpenXmlAttribute("", "fromWordArt", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFromWordArt; + end + {self.}XmlAttrFromWordArt.Value := _value; +end; + +function BodyPr.ReadXmlAttrAnchor(); +begin + return {self.}XmlAttrAnchor.Value; +end; + +function BodyPr.WriteXmlAttrAnchor(_value); +begin + if ifnil({self.}XmlAttrAnchor) then + begin + {self.}XmlAttrAnchor := new OpenXmlAttribute("", "anchor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchor; + end + {self.}XmlAttrAnchor.Value := _value; +end; + +function BodyPr.ReadXmlAttrAnchorCtr(); +begin + return {self.}XmlAttrAnchorCtr.Value; +end; + +function BodyPr.WriteXmlAttrAnchorCtr(_value); +begin + if ifnil({self.}XmlAttrAnchorCtr) then + begin + {self.}XmlAttrAnchorCtr := new OpenXmlAttribute("", "anchorCtr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchorCtr; + end + {self.}XmlAttrAnchorCtr.Value := _value; +end; + +function BodyPr.ReadXmlAttrForceAA(); +begin + return {self.}XmlAttrForceAA.Value; +end; + +function BodyPr.WriteXmlAttrForceAA(_value); +begin + if ifnil({self.}XmlAttrForceAA) then + begin + {self.}XmlAttrForceAA := new OpenXmlAttribute("", "forceAA", nil); + attributes_[length(attributes_)] := {self.}XmlAttrForceAA; + end + {self.}XmlAttrForceAA.Value := _value; +end; + +function BodyPr.ReadXmlAttrCompatLnSpc(); +begin + return {self.}XmlAttrCompatLnSpc.Value; +end; + +function BodyPr.WriteXmlAttrCompatLnSpc(_value); +begin + if ifnil({self.}XmlAttrCompatLnSpc) then + begin + {self.}XmlAttrCompatLnSpc := new OpenXmlAttribute("", "compatLnSpc", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCompatLnSpc; + end + {self.}XmlAttrCompatLnSpc.Value := _value; +end; + +function BodyPr.ReadXmlChildNoAutofit(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildNoAutofit) then + begin + {self.}XmlChildNoAutofit := new OpenXmlEmpty(self, "a", "noAutofit"); + container_.Set({self.}XmlChildNoAutofit); + end + return {self.}XmlChildNoAutofit; + end + return ifnil({self.}XmlChildNoAutofit) ? nil : {self.}XmlChildNoAutofit.BoolValue(); +end; + +function BodyPr.WriteXmlChildNoAutofit(_value); +begin + if ifnil({self.}XmlChildNoAutofit) then + begin + {self.}XmlChildNoAutofit := new OpenXmlEmpty(self, "a", "noAutofit"); + container_.Set({self.}XmlChildNoAutofit); + end + {self.}XmlChildNoAutofit.Value := _value; +end; + +function BodyPr.ReadXmlChildPrstTxWrap(): PrstTxWrap; +begin + if tslassigning and ifnil({self.}XmlChildPrstTxWrap) then + begin + {self.}XmlChildPrstTxWrap := new PrstTxWrap(self, "a", "prstTxWrap"); + container_.Set({self.}XmlChildPrstTxWrap); + end + return {self.}XmlChildPrstTxWrap; +end; + +function PrstTxWrap.Create();overload; +begin + {self.}Create(nil, "a", "prstTxWrap"); +end; + +function PrstTxWrap.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PrstTxWrap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PrstTxWrap.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "prst": makeweakref(thisFunction(WriteXmlAttrPrst)), + ); + sorted_child_ := array( + "a:avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PrstTxWrap.Copy(_obj: PrstTxWrap);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Prst) then + {self.}Prst := _obj.Prst; + if not ifnil(_obj.XmlChildAvLst) then + ifnil({self.}XmlChildAvLst) ? {self.}AvLst.Copy(_obj.XmlChildAvLst) : {self.}XmlChildAvLst.Copy(_obj.XmlChildAvLst); + tslassigning := tslassigning_backup; +end; + +function PrstTxWrap.ReadXmlAttrPrst(); +begin + return {self.}XmlAttrPrst.Value; +end; + +function PrstTxWrap.WriteXmlAttrPrst(_value); +begin + if ifnil({self.}XmlAttrPrst) then + begin + {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPrst; + end + {self.}XmlAttrPrst.Value := _value; +end; + +function PrstTxWrap.ReadXmlChildAvLst(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildAvLst) then + begin + {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); + container_.Set({self.}XmlChildAvLst); + end + return {self.}XmlChildAvLst; + end + return ifnil({self.}XmlChildAvLst) ? nil : {self.}XmlChildAvLst.BoolValue(); +end; + +function PrstTxWrap.WriteXmlChildAvLst(_value); +begin + if ifnil({self.}XmlChildAvLst) then + begin + {self.}XmlChildAvLst := new OpenXmlEmpty(self, "a", "avLst"); + container_.Set({self.}XmlChildAvLst); + end + {self.}XmlChildAvLst.Value := _value; +end; + +function P.Create();overload; +begin + {self.}Create(nil, "a", "p"); +end; + +function P.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function P.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function P.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "pPr": array(0, makeweakref(thisFunction(ReadXmlChildPPr))), + pre + "endParaRPr": array(1, makeweakref(thisFunction(ReadXmlChildEndParaRPr))), + pre + "r": array(2, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function P.Copy(_obj: P);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildPPr) then + {self.}PPr.Copy(_obj.XmlChildPPr); + if not ifnil(_obj.XmlChildEndParaRPr) then + {self.}EndParaRPr.Copy(_obj.XmlChildEndParaRPr); + tslassigning := tslassigning_backup; +end; + +function P.ReadXmlChildPPr(): PPr; +begin + if tslassigning and ifnil({self.}XmlChildPPr) then + begin + {self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr"); + container_.Set({self.}XmlChildPPr); + end + return {self.}XmlChildPPr; +end; + +function P.ReadXmlChildEndParaRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildEndParaRPr) then + begin + {self.}XmlChildEndParaRPr := new RPr(self, {self.}Prefix, "endParaRPr"); + container_.Set({self.}XmlChildEndParaRPr); + end + return {self.}XmlChildEndParaRPr; +end; + +function P.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function P.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function P.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function RPr.Create();overload; +begin + {self.}Create(nil, "a", "rPr"); +end; + +function RPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function RPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function RPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "lang": makeweakref(thisFunction(WriteXmlAttrLang)), + "altLang": makeweakref(thisFunction(WriteXmlAttrAltLang)), + "b": makeweakref(thisFunction(WriteXmlAttrB)), + "baseline": makeweakref(thisFunction(WriteXmlAttrBaseline)), + "i": makeweakref(thisFunction(WriteXmlAttrI)), + "kern": makeweakref(thisFunction(WriteXmlAttrKern)), + "spc": makeweakref(thisFunction(WriteXmlAttrSpc)), + "strike": makeweakref(thisFunction(WriteXmlAttrStrike)), + "sz": makeweakref(thisFunction(WriteXmlAttrSz)), + "u": makeweakref(thisFunction(WriteXmlAttrU)), + ); + sorted_child_ := array( + pre + "solidFill": array(0, makeweakref(thisFunction(ReadXmlChildSolidFill))), + pre + "latin": array(1, makeweakref(thisFunction(ReadXmlChildLatin))), + pre + "ea": array(2, makeweakref(thisFunction(ReadXmlChildEa))), + pre + "cs": array(3, makeweakref(thisFunction(ReadXmlChildCs))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function RPr.Copy(_obj: RPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Lang) then + {self.}Lang := _obj.Lang; + if not ifnil(_obj.AltLang) then + {self.}AltLang := _obj.AltLang; + if not ifnil(_obj.B) then + {self.}B := _obj.B; + if not ifnil(_obj.Baseline) then + {self.}Baseline := _obj.Baseline; + if not ifnil(_obj.I) then + {self.}I := _obj.I; + if not ifnil(_obj.Kern) then + {self.}Kern := _obj.Kern; + if not ifnil(_obj.Spc) then + {self.}Spc := _obj.Spc; + if not ifnil(_obj.Strike) then + {self.}Strike := _obj.Strike; + if not ifnil(_obj.Sz) then + {self.}Sz := _obj.Sz; + if not ifnil(_obj.U) then + {self.}U := _obj.U; + if not ifnil(_obj.XmlChildSolidFill) then + {self.}SolidFill.Copy(_obj.XmlChildSolidFill); + if not ifnil(_obj.XmlChildLatin) then + {self.}Latin.Copy(_obj.XmlChildLatin); + if not ifnil(_obj.XmlChildEa) then + {self.}Ea.Copy(_obj.XmlChildEa); + if not ifnil(_obj.XmlChildCs) then + {self.}Cs.Copy(_obj.XmlChildCs); + tslassigning := tslassigning_backup; +end; + +function RPr.ReadXmlAttrLang(); +begin + return {self.}XmlAttrLang.Value; +end; + +function RPr.WriteXmlAttrLang(_value); +begin + if ifnil({self.}XmlAttrLang) then + begin + {self.}XmlAttrLang := new OpenXmlAttribute("", "lang", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLang; + end + {self.}XmlAttrLang.Value := _value; +end; + +function RPr.ReadXmlAttrAltLang(); +begin + return {self.}XmlAttrAltLang.Value; +end; + +function RPr.WriteXmlAttrAltLang(_value); +begin + if ifnil({self.}XmlAttrAltLang) then + begin + {self.}XmlAttrAltLang := new OpenXmlAttribute("", "altLang", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAltLang; + end + {self.}XmlAttrAltLang.Value := _value; +end; + +function RPr.ReadXmlAttrB(); +begin + return {self.}XmlAttrB.Value; +end; + +function RPr.WriteXmlAttrB(_value); +begin + if ifnil({self.}XmlAttrB) then + begin + {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); + attributes_[length(attributes_)] := {self.}XmlAttrB; + end + {self.}XmlAttrB.Value := _value; +end; + +function RPr.ReadXmlAttrBaseline(); +begin + return {self.}XmlAttrBaseline.Value; +end; + +function RPr.WriteXmlAttrBaseline(_value); +begin + if ifnil({self.}XmlAttrBaseline) then + begin + {self.}XmlAttrBaseline := new OpenXmlAttribute("", "baseline", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBaseline; + end + {self.}XmlAttrBaseline.Value := _value; +end; + +function RPr.ReadXmlAttrI(); +begin + return {self.}XmlAttrI.Value; +end; + +function RPr.WriteXmlAttrI(_value); +begin + if ifnil({self.}XmlAttrI) then + begin + {self.}XmlAttrI := new OpenXmlAttribute("", "i", nil); + attributes_[length(attributes_)] := {self.}XmlAttrI; + end + {self.}XmlAttrI.Value := _value; +end; + +function RPr.ReadXmlAttrKern(); +begin + return {self.}XmlAttrKern.Value; +end; + +function RPr.WriteXmlAttrKern(_value); +begin + if ifnil({self.}XmlAttrKern) then + begin + {self.}XmlAttrKern := new OpenXmlAttribute("", "kern", nil); + attributes_[length(attributes_)] := {self.}XmlAttrKern; + end + {self.}XmlAttrKern.Value := _value; +end; + +function RPr.ReadXmlAttrSpc(); +begin + return {self.}XmlAttrSpc.Value; +end; + +function RPr.WriteXmlAttrSpc(_value); +begin + if ifnil({self.}XmlAttrSpc) then + begin + {self.}XmlAttrSpc := new OpenXmlAttribute("", "spc", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpc; + end + {self.}XmlAttrSpc.Value := _value; +end; + +function RPr.ReadXmlAttrStrike(); +begin + return {self.}XmlAttrStrike.Value; +end; + +function RPr.WriteXmlAttrStrike(_value); +begin + if ifnil({self.}XmlAttrStrike) then + begin + {self.}XmlAttrStrike := new OpenXmlAttribute("", "strike", nil); + attributes_[length(attributes_)] := {self.}XmlAttrStrike; + end + {self.}XmlAttrStrike.Value := _value; +end; + +function RPr.ReadXmlAttrSz(); +begin + return {self.}XmlAttrSz.Value; +end; + +function RPr.WriteXmlAttrSz(_value); +begin + if ifnil({self.}XmlAttrSz) then + begin + {self.}XmlAttrSz := new OpenXmlAttribute("", "sz", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSz; + end + {self.}XmlAttrSz.Value := _value; +end; + +function RPr.ReadXmlAttrU(); +begin + return {self.}XmlAttrU.Value; +end; + +function RPr.WriteXmlAttrU(_value); +begin + if ifnil({self.}XmlAttrU) then + begin + {self.}XmlAttrU := new OpenXmlAttribute("", "u", nil); + attributes_[length(attributes_)] := {self.}XmlAttrU; + end + {self.}XmlAttrU.Value := _value; +end; + +function RPr.ReadXmlChildSolidFill(): SolidFill; +begin + if tslassigning and ifnil({self.}XmlChildSolidFill) then + begin + {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); + container_.Set({self.}XmlChildSolidFill); + end + return {self.}XmlChildSolidFill; +end; + +function RPr.ReadXmlChildLatin(): Latin; +begin + if tslassigning and ifnil({self.}XmlChildLatin) then + begin + {self.}XmlChildLatin := new Latin(self, {self.}Prefix, "latin"); + container_.Set({self.}XmlChildLatin); + end + return {self.}XmlChildLatin; +end; + +function RPr.ReadXmlChildEa(): Latin; +begin + if tslassigning and ifnil({self.}XmlChildEa) then + begin + {self.}XmlChildEa := new Latin(self, {self.}Prefix, "ea"); + container_.Set({self.}XmlChildEa); + end + return {self.}XmlChildEa; +end; + +function RPr.ReadXmlChildCs(): Latin; +begin + if tslassigning and ifnil({self.}XmlChildCs) then + begin + {self.}XmlChildCs := new Latin(self, {self.}Prefix, "cs"); + container_.Set({self.}XmlChildCs); + end + return {self.}XmlChildCs; +end; + +function PPr.Create();overload; +begin + {self.}Create(nil, "a", "pPr"); +end; + +function PPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "defRPr": array(0, makeweakref(thisFunction(ReadXmlChildDefRPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PPr.Copy(_obj: PPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildDefRPr) then + {self.}DefRPr.Copy(_obj.XmlChildDefRPr); + tslassigning := tslassigning_backup; +end; + +function PPr.ReadXmlChildDefRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildDefRPr) then + begin + {self.}XmlChildDefRPr := new RPr(self, {self.}Prefix, "defRPr"); + container_.Set({self.}XmlChildDefRPr); + end + return {self.}XmlChildDefRPr; +end; + +function Latin.Create();overload; +begin + {self.}Create(nil, "a", "latin"); +end; + +function Latin.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Latin.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Latin.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "typeface": makeweakref(thisFunction(WriteXmlAttrTypeface)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Latin.Copy(_obj: Latin);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Typeface) then + {self.}Typeface := _obj.Typeface; + tslassigning := tslassigning_backup; +end; + +function Latin.ReadXmlAttrTypeface(); +begin + return {self.}XmlAttrTypeface.Value; +end; + +function Latin.WriteXmlAttrTypeface(_value); +begin + if ifnil({self.}XmlAttrTypeface) then + begin + {self.}XmlAttrTypeface := new OpenXmlAttribute("", "typeface", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTypeface; + end + {self.}XmlAttrTypeface.Value := _value; +end; + +function R.Create();overload; +begin + {self.}Create(nil, "a", "r"); +end; + +function R.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function R.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function R.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), + pre + "t": array(1, makeweakref(thisFunction(ReadXmlChildT))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function R.Copy(_obj: R);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + if not ifnil(_obj.XmlChildT) then + {self.}T.Copy(_obj.XmlChildT); + tslassigning := tslassigning_backup; +end; + +function R.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function R.ReadXmlChildT(): T; +begin + if tslassigning and ifnil({self.}XmlChildT) then + begin + {self.}XmlChildT := new T(self, {self.}Prefix, "t"); + container_.Set({self.}XmlChildT); + end + return {self.}XmlChildT; +end; + +function ExternalData.Create();overload; +begin + {self.}Create(nil, "c", "externalData"); +end; + +function ExternalData.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function ExternalData.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function ExternalData.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "r:id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + pre + "autoUpdate": array(0, makeweakref(thisFunction(ReadXmlChildAutoUpdate))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function ExternalData.Copy(_obj: ExternalData);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.XmlChildAutoUpdate) then + {self.}AutoUpdate.Copy(_obj.XmlChildAutoUpdate); + tslassigning := tslassigning_backup; +end; + +function ExternalData.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function ExternalData.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function ExternalData.ReadXmlChildAutoUpdate(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildAutoUpdate) then + begin + {self.}XmlChildAutoUpdate := new PureVal(self, {self.}Prefix, "autoUpdate"); + container_.Set({self.}XmlChildAutoUpdate); + end + return {self.}XmlChildAutoUpdate; +end; + +function _Inline.Create();overload; +begin + {self.}Create(nil, "wp", "inline"); +end; + +function _Inline.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function _Inline.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function _Inline.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "distT": makeweakref(thisFunction(WriteXmlAttrDistT)), + "distB": makeweakref(thisFunction(WriteXmlAttrDistB)), + "distL": makeweakref(thisFunction(WriteXmlAttrDistL)), + "distR": makeweakref(thisFunction(WriteXmlAttrDistR)), + "wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), + "wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)), + ); + sorted_child_ := array( + pre + "extent": array(0, makeweakref(thisFunction(ReadXmlChildExtent))), + pre + "effectExtent": array(1, makeweakref(thisFunction(ReadXmlChildEffectExtent))), + pre + "docPr": array(2, makeweakref(thisFunction(ReadXmlChildDocPr))), + pre + "cNvGraphicFramePr": array(3, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))), + "a:graphic": array(4, makeweakref(thisFunction(ReadXmlChildGraphic))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function _Inline.Copy(_obj: _Inline);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.DistT) then + {self.}DistT := _obj.DistT; + if not ifnil(_obj.DistB) then + {self.}DistB := _obj.DistB; + if not ifnil(_obj.DistL) then + {self.}DistL := _obj.DistL; + if not ifnil(_obj.DistR) then + {self.}DistR := _obj.DistR; + if not ifnil(_obj.AnchorId) then + {self.}AnchorId := _obj.AnchorId; + if not ifnil(_obj.EditId) then + {self.}EditId := _obj.EditId; + if not ifnil(_obj.XmlChildExtent) then + {self.}Extent.Copy(_obj.XmlChildExtent); + if not ifnil(_obj.XmlChildEffectExtent) then + {self.}EffectExtent.Copy(_obj.XmlChildEffectExtent); + if not ifnil(_obj.XmlChildDocPr) then + {self.}DocPr.Copy(_obj.XmlChildDocPr); + if not ifnil(_obj.XmlChildCNvGraphicFramePr) then + {self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr); + if not ifnil(_obj.XmlChildGraphic) then + {self.}Graphic.Copy(_obj.XmlChildGraphic); + tslassigning := tslassigning_backup; +end; + +function _Inline.ReadXmlAttrDistT(); +begin + return {self.}XmlAttrDistT.Value; +end; + +function _Inline.WriteXmlAttrDistT(_value); +begin + if ifnil({self.}XmlAttrDistT) then + begin + {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistT; + end + {self.}XmlAttrDistT.Value := _value; +end; + +function _Inline.ReadXmlAttrDistB(); +begin + return {self.}XmlAttrDistB.Value; +end; + +function _Inline.WriteXmlAttrDistB(_value); +begin + if ifnil({self.}XmlAttrDistB) then + begin + {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistB; + end + {self.}XmlAttrDistB.Value := _value; +end; + +function _Inline.ReadXmlAttrDistL(); +begin + return {self.}XmlAttrDistL.Value; +end; + +function _Inline.WriteXmlAttrDistL(_value); +begin + if ifnil({self.}XmlAttrDistL) then + begin + {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistL; + end + {self.}XmlAttrDistL.Value := _value; +end; + +function _Inline.ReadXmlAttrDistR(); +begin + return {self.}XmlAttrDistR.Value; +end; + +function _Inline.WriteXmlAttrDistR(_value); +begin + if ifnil({self.}XmlAttrDistR) then + begin + {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistR; + end + {self.}XmlAttrDistR.Value := _value; +end; + +function _Inline.ReadXmlAttrAnchorId(); +begin + return {self.}XmlAttrAnchorId.Value; +end; + +function _Inline.WriteXmlAttrAnchorId(_value); +begin + if ifnil({self.}XmlAttrAnchorId) then + begin + {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; + end + {self.}XmlAttrAnchorId.Value := _value; +end; + +function _Inline.ReadXmlAttrEditId(); +begin + return {self.}XmlAttrEditId.Value; +end; + +function _Inline.WriteXmlAttrEditId(_value); +begin + if ifnil({self.}XmlAttrEditId) then + begin + {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEditId; + end + {self.}XmlAttrEditId.Value := _value; +end; + +function _Inline.ReadXmlChildExtent(): CXY; +begin + if tslassigning and ifnil({self.}XmlChildExtent) then + begin + {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); + container_.Set({self.}XmlChildExtent); + end + return {self.}XmlChildExtent; +end; + +function _Inline.ReadXmlChildEffectExtent(): EffectExtent; +begin + if tslassigning and ifnil({self.}XmlChildEffectExtent) then + begin + {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); + container_.Set({self.}XmlChildEffectExtent); + end + return {self.}XmlChildEffectExtent; +end; + +function _Inline.ReadXmlChildDocPr(): DocPr; +begin + if tslassigning and ifnil({self.}XmlChildDocPr) then + begin + {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); + container_.Set({self.}XmlChildDocPr); + end + return {self.}XmlChildDocPr; +end; + +function _Inline.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; +begin + if tslassigning and ifnil({self.}XmlChildCNvGraphicFramePr) then + begin + {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); + container_.Set({self.}XmlChildCNvGraphicFramePr); + end + return {self.}XmlChildCNvGraphicFramePr; +end; + +function _Inline.ReadXmlChildGraphic(): Graphic; +begin + if tslassigning and ifnil({self.}XmlChildGraphic) then + begin + {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); + container_.Set({self.}XmlChildGraphic); + end + return {self.}XmlChildGraphic; +end; + +function EffectExtent.Create();overload; +begin + {self.}Create(nil, "wp", "effectExtent"); +end; + +function EffectExtent.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function EffectExtent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function EffectExtent.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "l": makeweakref(thisFunction(WriteXmlAttrL)), + "t": makeweakref(thisFunction(WriteXmlAttrT)), + "r": makeweakref(thisFunction(WriteXmlAttrR)), + "b": makeweakref(thisFunction(WriteXmlAttrB)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function EffectExtent.Copy(_obj: EffectExtent);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.L) then + {self.}L := _obj.L; + if not ifnil(_obj.T) then + {self.}T := _obj.T; + if not ifnil(_obj.R) then + {self.}R := _obj.R; + if not ifnil(_obj.B) then + {self.}B := _obj.B; + tslassigning := tslassigning_backup; +end; + +function EffectExtent.ReadXmlAttrL(); +begin + return {self.}XmlAttrL.Value; +end; + +function EffectExtent.WriteXmlAttrL(_value); +begin + if ifnil({self.}XmlAttrL) then + begin + {self.}XmlAttrL := new OpenXmlAttribute("", "l", nil); + attributes_[length(attributes_)] := {self.}XmlAttrL; + end + {self.}XmlAttrL.Value := _value; +end; + +function EffectExtent.ReadXmlAttrT(); +begin + return {self.}XmlAttrT.Value; +end; + +function EffectExtent.WriteXmlAttrT(_value); +begin + if ifnil({self.}XmlAttrT) then + begin + {self.}XmlAttrT := new OpenXmlAttribute("", "t", nil); + attributes_[length(attributes_)] := {self.}XmlAttrT; + end + {self.}XmlAttrT.Value := _value; +end; + +function EffectExtent.ReadXmlAttrR(); +begin + return {self.}XmlAttrR.Value; +end; + +function EffectExtent.WriteXmlAttrR(_value); +begin + if ifnil({self.}XmlAttrR) then + begin + {self.}XmlAttrR := new OpenXmlAttribute("", "r", nil); + attributes_[length(attributes_)] := {self.}XmlAttrR; + end + {self.}XmlAttrR.Value := _value; +end; + +function EffectExtent.ReadXmlAttrB(); +begin + return {self.}XmlAttrB.Value; +end; + +function EffectExtent.WriteXmlAttrB(_value); +begin + if ifnil({self.}XmlAttrB) then + begin + {self.}XmlAttrB := new OpenXmlAttribute("", "b", nil); + attributes_[length(attributes_)] := {self.}XmlAttrB; + end + {self.}XmlAttrB.Value := _value; +end; + +function DocPr.Create();overload; +begin + {self.}Create(nil, "wp", "docPr"); +end; + +function DocPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function DocPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function DocPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "id": makeweakref(thisFunction(WriteXmlAttrId)), + "name": makeweakref(thisFunction(WriteXmlAttrName)), + "descr": makeweakref(thisFunction(WriteXmlAttrDescr)), + ); + sorted_child_ := array( + pre + "extLst": array(0, makeweakref(thisFunction(ReadXmlChildExtLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function DocPr.Copy(_obj: DocPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.Descr) then + {self.}Descr := _obj.Descr; + if not ifnil(_obj.XmlChildExtLst) then + {self.}ExtLst.Copy(_obj.XmlChildExtLst); + tslassigning := tslassigning_backup; +end; + +function DocPr.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function DocPr.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function DocPr.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function DocPr.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function DocPr.ReadXmlAttrDescr(); +begin + return {self.}XmlAttrDescr.Value; +end; + +function DocPr.WriteXmlAttrDescr(_value); +begin + if ifnil({self.}XmlAttrDescr) then + begin + {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDescr; + end + {self.}XmlAttrDescr.Value := _value; +end; + +function DocPr.ReadXmlChildExtLst(): ExtLst; +begin + if tslassigning and ifnil({self.}XmlChildExtLst) then + begin + {self.}XmlChildExtLst := new DrawingML.ExtLst(self, {self.}Prefix, "extLst"); + container_.Set({self.}XmlChildExtLst); + end + return {self.}XmlChildExtLst; +end; + +function CNvGraphicFramePr.Create();overload; +begin + {self.}Create(nil, "w", "cNvGraphicFramePr"); +end; + +function CNvGraphicFramePr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CNvGraphicFramePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CNvGraphicFramePr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "graphicFrameLocks": array(0, makeweakref(thisFunction(ReadXmlChildGraphicFrameLocks))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CNvGraphicFramePr.Copy(_obj: CNvGraphicFramePr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildGraphicFrameLocks) then + {self.}GraphicFrameLocks.Copy(_obj.XmlChildGraphicFrameLocks); + tslassigning := tslassigning_backup; +end; + +function CNvGraphicFramePr.ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks; +begin + if tslassigning and ifnil({self.}XmlChildGraphicFrameLocks) then + begin + {self.}XmlChildGraphicFrameLocks := new GraphicFrameLocks(self, {self.}Prefix, "graphicFrameLocks"); + container_.Set({self.}XmlChildGraphicFrameLocks); + end + return {self.}XmlChildGraphicFrameLocks; +end; + +function GraphicFrameLocks.Create();overload; +begin + {self.}Create(nil, "", ""); +end; + +function GraphicFrameLocks.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function GraphicFrameLocks.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function GraphicFrameLocks.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function GraphicFrameLocks.Copy(_obj: GraphicFrameLocks);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.NoChangeAspect) then + {self.}NoChangeAspect := _obj.NoChangeAspect; + tslassigning := tslassigning_backup; +end; + +function GraphicFrameLocks.ReadXmlAttrNoChangeAspect(); +begin + return {self.}XmlAttrNoChangeAspect.Value; +end; + +function GraphicFrameLocks.WriteXmlAttrNoChangeAspect(_value); +begin + if ifnil({self.}XmlAttrNoChangeAspect) then + begin + {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNoChangeAspect; + end + {self.}XmlAttrNoChangeAspect.Value := _value; +end; + +function Graphic.Create();overload; +begin + {self.}Create(nil, "a", "graphic"); +end; + +function Graphic.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Graphic.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Graphic.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "a:graphicData": array(0, makeweakref(thisFunction(ReadXmlChildGraphicData))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Graphic.Copy(_obj: Graphic);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildGraphicData) then + {self.}GraphicData.Copy(_obj.XmlChildGraphicData); + tslassigning := tslassigning_backup; +end; + +function Graphic.ReadXmlChildGraphicData(): GraphicData; +begin + if tslassigning and ifnil({self.}XmlChildGraphicData) then + begin + {self.}XmlChildGraphicData := new GraphicData(self, "a", "graphicData"); + container_.Set({self.}XmlChildGraphicData); + end + return {self.}XmlChildGraphicData; +end; + +function GraphicData.Create();overload; +begin + {self.}Create(nil, "a", "graphicData"); +end; + +function GraphicData.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function GraphicData.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function GraphicData.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "uri": makeweakref(thisFunction(WriteXmlAttrUri)), + ); + sorted_child_ := array( + "pic:pic": array(0, makeweakref(thisFunction(ReadXmlChildPic))), + "c:chart": array(1, makeweakref(thisFunction(ReadXmlChildChart))), + "wps:wsp": array(2, makeweakref(thisFunction(ReadXmlChildWsp))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function GraphicData.Copy(_obj: GraphicData);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Uri) then + {self.}Uri := _obj.Uri; + if not ifnil(_obj.XmlChildPic) then + {self.}Pic.Copy(_obj.XmlChildPic); + if not ifnil(_obj.XmlChildChart) then + {self.}Chart.Copy(_obj.XmlChildChart); + if not ifnil(_obj.XmlChildWsp) then + {self.}Wsp.Copy(_obj.XmlChildWsp); + tslassigning := tslassigning_backup; +end; + +function GraphicData.ReadXmlAttrUri(); +begin + return {self.}XmlAttrUri.Value; +end; + +function GraphicData.WriteXmlAttrUri(_value); +begin + if ifnil({self.}XmlAttrUri) then + begin + {self.}XmlAttrUri := new OpenXmlAttribute("", "uri", nil); + attributes_[length(attributes_)] := {self.}XmlAttrUri; + end + {self.}XmlAttrUri.Value := _value; +end; + +function GraphicData.ReadXmlChildPic(): Pic; +begin + if tslassigning and ifnil({self.}XmlChildPic) then + begin + {self.}XmlChildPic := new Pic(self, "pic", "pic"); + container_.Set({self.}XmlChildPic); + end + return {self.}XmlChildPic; +end; + +function GraphicData.ReadXmlChildChart(): Chart; +begin + if tslassigning and ifnil({self.}XmlChildChart) then + begin + {self.}XmlChildChart := new Chart(self, "c", "chart"); + container_.Set({self.}XmlChildChart); + end + return {self.}XmlChildChart; +end; + +function GraphicData.ReadXmlChildWsp(): Wsp; +begin + if tslassigning and ifnil({self.}XmlChildWsp) then + begin + {self.}XmlChildWsp := new Wsp(self, "wps", "wsp"); + container_.Set({self.}XmlChildWsp); + end + return {self.}XmlChildWsp; +end; + +function Wsp.Create();overload; +begin + {self.}Create(nil, "wps", "wsp"); +end; + +function Wsp.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Wsp.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Wsp.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "cNvSpPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvSpPr))), + pre + "spPr": array(1, makeweakref(thisFunction(ReadXmlChildSpPr))), + pre + "txbx": array(2, makeweakref(thisFunction(ReadXmlChildTxbx))), + pre + "style": array(3, makeweakref(thisFunction(ReadXmlChildStyle))), + pre + "bodyPr": array(4, makeweakref(thisFunction(ReadXmlChildBodyPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Wsp.Copy(_obj: Wsp);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildCNvSpPr) then + {self.}CNvSpPr.Copy(_obj.XmlChildCNvSpPr); + if not ifnil(_obj.XmlChildSpPr) then + {self.}SpPr.Copy(_obj.XmlChildSpPr); + if not ifnil(_obj.XmlChildTxbx) then + {self.}Txbx.Copy(_obj.XmlChildTxbx); + if not ifnil(_obj.XmlChildStyle) then + {self.}Style.Copy(_obj.XmlChildStyle); + if not ifnil(_obj.XmlChildBodyPr) then + {self.}BodyPr.Copy(_obj.XmlChildBodyPr); + tslassigning := tslassigning_backup; +end; + +function Wsp.ReadXmlChildCNvSpPr(): CNvSpPr; +begin + if tslassigning and ifnil({self.}XmlChildCNvSpPr) then + begin + {self.}XmlChildCNvSpPr := new CNvSpPr(self, {self.}Prefix, "cNvSpPr"); + container_.Set({self.}XmlChildCNvSpPr); + end + return {self.}XmlChildCNvSpPr; +end; + +function Wsp.ReadXmlChildSpPr(): SpPr; +begin + if tslassigning and ifnil({self.}XmlChildSpPr) then + begin + {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); + container_.Set({self.}XmlChildSpPr); + end + return {self.}XmlChildSpPr; +end; + +function Wsp.ReadXmlChildTxbx(): Txbx; +begin + if tslassigning and ifnil({self.}XmlChildTxbx) then + begin + {self.}XmlChildTxbx := new Txbx(self, {self.}Prefix, "txbx"); + container_.Set({self.}XmlChildTxbx); + end + return {self.}XmlChildTxbx; +end; + +function Wsp.ReadXmlChildStyle(): WpsStyle; +begin + if tslassigning and ifnil({self.}XmlChildStyle) then + begin + {self.}XmlChildStyle := new WpsStyle(self, {self.}Prefix, "style"); + container_.Set({self.}XmlChildStyle); + end + return {self.}XmlChildStyle; +end; + +function Wsp.ReadXmlChildBodyPr(): BodyPr; +begin + if tslassigning and ifnil({self.}XmlChildBodyPr) then + begin + {self.}XmlChildBodyPr := new BodyPr(self, {self.}Prefix, "bodyPr"); + container_.Set({self.}XmlChildBodyPr); + end + return {self.}XmlChildBodyPr; +end; + +function WpsStyle.Create();overload; +begin + {self.}Create(nil, "wps", "style"); +end; + +function WpsStyle.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function WpsStyle.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function WpsStyle.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "a:lnRef": array(0, makeweakref(thisFunction(ReadXmlChildLnRef))), + "a:fillRef": array(1, makeweakref(thisFunction(ReadXmlChildFillRef))), + "a:effectRef": array(2, makeweakref(thisFunction(ReadXmlChildEffectRef))), + "a:fontRef": array(3, makeweakref(thisFunction(ReadXmlChildFontRef))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function WpsStyle.Copy(_obj: WpsStyle);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildLnRef) then + {self.}LnRef.Copy(_obj.XmlChildLnRef); + if not ifnil(_obj.XmlChildFillRef) then + {self.}FillRef.Copy(_obj.XmlChildFillRef); + if not ifnil(_obj.XmlChildEffectRef) then + {self.}EffectRef.Copy(_obj.XmlChildEffectRef); + if not ifnil(_obj.XmlChildFontRef) then + {self.}FontRef.Copy(_obj.XmlChildFontRef); + tslassigning := tslassigning_backup; +end; + +function WpsStyle.ReadXmlChildLnRef(): XRef; +begin + if tslassigning and ifnil({self.}XmlChildLnRef) then + begin + {self.}XmlChildLnRef := new XRef(self, "a", "lnRef"); + container_.Set({self.}XmlChildLnRef); + end + return {self.}XmlChildLnRef; +end; + +function WpsStyle.ReadXmlChildFillRef(): XRef; +begin + if tslassigning and ifnil({self.}XmlChildFillRef) then + begin + {self.}XmlChildFillRef := new XRef(self, "a", "fillRef"); + container_.Set({self.}XmlChildFillRef); + end + return {self.}XmlChildFillRef; +end; + +function WpsStyle.ReadXmlChildEffectRef(): XRef; +begin + if tslassigning and ifnil({self.}XmlChildEffectRef) then + begin + {self.}XmlChildEffectRef := new XRef(self, "a", "effectRef"); + container_.Set({self.}XmlChildEffectRef); + end + return {self.}XmlChildEffectRef; +end; + +function WpsStyle.ReadXmlChildFontRef(): XRef; +begin + if tslassigning and ifnil({self.}XmlChildFontRef) then + begin + {self.}XmlChildFontRef := new XRef(self, "a", "fontRef"); + container_.Set({self.}XmlChildFontRef); + end + return {self.}XmlChildFontRef; +end; + +function XRef.Create();overload; +begin + {self.}Create(nil, "a", "lnRef"); +end; + +function XRef.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function XRef.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function XRef.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "idx": makeweakref(thisFunction(WriteXmlAttrIdx)), + ); + sorted_child_ := array( + "a:schemeClr": array(0, makeweakref(thisFunction(ReadXmlChildSchemeClr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function XRef.Copy(_obj: XRef);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Idx) then + {self.}Idx := _obj.Idx; + if not ifnil(_obj.XmlChildSchemeClr) then + {self.}SchemeClr.Copy(_obj.XmlChildSchemeClr); + tslassigning := tslassigning_backup; +end; + +function XRef.ReadXmlAttrIdx(); +begin + return {self.}XmlAttrIdx.Value; +end; + +function XRef.WriteXmlAttrIdx(_value); +begin + if ifnil({self.}XmlAttrIdx) then + begin + {self.}XmlAttrIdx := new OpenXmlAttribute("", "idx", nil); + attributes_[length(attributes_)] := {self.}XmlAttrIdx; + end + {self.}XmlAttrIdx.Value := _value; +end; + +function XRef.ReadXmlChildSchemeClr(): SchemeClr; +begin + if tslassigning and ifnil({self.}XmlChildSchemeClr) then + begin + {self.}XmlChildSchemeClr := new SchemeClr(self, "a", "schemeClr"); + container_.Set({self.}XmlChildSchemeClr); + end + return {self.}XmlChildSchemeClr; +end; + +function Txbx.Create();overload; +begin + {self.}Create(nil, "wps", "txbx"); +end; + +function Txbx.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Txbx.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Txbx.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "w:txbxContent": array(0, makeweakref(thisFunction(ReadXmlChildTxbxContent))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Txbx.Copy(_obj: Txbx);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTxbxContent) then + {self.}TxbxContent.Copy(_obj.XmlChildTxbxContent); + tslassigning := tslassigning_backup; +end; + +function Txbx.ReadXmlChildTxbxContent(): TxbxContent; +begin + if tslassigning and ifnil({self.}XmlChildTxbxContent) then + begin + {self.}XmlChildTxbxContent := new TxbxContent(self, "w", "txbxContent"); + container_.Set({self.}XmlChildTxbxContent); + end + return {self.}XmlChildTxbxContent; +end; + +function CNvSpPr.Create();overload; +begin + {self.}Create(nil, "wps", "cNvSpPr"); +end; + +function CNvSpPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CNvSpPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CNvSpPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "txBox": makeweakref(thisFunction(WriteXmlAttrTxBox)), + ); + sorted_child_ := array( + "a:spLocks": array(0, makeweakref(thisFunction(ReadXmlChildSpLocks))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CNvSpPr.Copy(_obj: CNvSpPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.TxBox) then + {self.}TxBox := _obj.TxBox; + if not ifnil(_obj.XmlChildSpLocks) then + {self.}SpLocks.Copy(_obj.XmlChildSpLocks); + tslassigning := tslassigning_backup; +end; + +function CNvSpPr.ReadXmlAttrTxBox(); +begin + return {self.}XmlAttrTxBox.Value; +end; + +function CNvSpPr.WriteXmlAttrTxBox(_value); +begin + if ifnil({self.}XmlAttrTxBox) then + begin + {self.}XmlAttrTxBox := new OpenXmlAttribute("", "txBox", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTxBox; + end + {self.}XmlAttrTxBox.Value := _value; +end; + +function CNvSpPr.ReadXmlChildSpLocks(): SpLocks; +begin + if tslassigning and ifnil({self.}XmlChildSpLocks) then + begin + {self.}XmlChildSpLocks := new SpLocks(self, "a", "spLocks"); + container_.Set({self.}XmlChildSpLocks); + end + return {self.}XmlChildSpLocks; +end; + +function SpLocks.Create();overload; +begin + {self.}Create(nil, "a", "spLocks"); +end; + +function SpLocks.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SpLocks.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SpLocks.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "noChangeArrowheads": makeweakref(thisFunction(WriteXmlAttrNoChangeArrowheads)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SpLocks.Copy(_obj: SpLocks);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.NoChangeArrowheads) then + {self.}NoChangeArrowheads := _obj.NoChangeArrowheads; + tslassigning := tslassigning_backup; +end; + +function SpLocks.ReadXmlAttrNoChangeArrowheads(); +begin + return {self.}XmlAttrNoChangeArrowheads.Value; +end; + +function SpLocks.WriteXmlAttrNoChangeArrowheads(_value); +begin + if ifnil({self.}XmlAttrNoChangeArrowheads) then + begin + {self.}XmlAttrNoChangeArrowheads := new OpenXmlAttribute("", "noChangeArrowheads", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNoChangeArrowheads; + end + {self.}XmlAttrNoChangeArrowheads.Value := _value; +end; + +function Pic.Create();overload; +begin + {self.}Create(nil, "pic", "pic"); +end; + +function Pic.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Pic.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Pic.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "nvPicPr": array(0, makeweakref(thisFunction(ReadXmlChildNvPicPr))), + pre + "blipFill": array(1, makeweakref(thisFunction(ReadXmlChildBlipFill))), + pre + "spPr": array(2, makeweakref(thisFunction(ReadXmlChildSpPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Pic.Copy(_obj: Pic);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildNvPicPr) then + {self.}NvPicPr.Copy(_obj.XmlChildNvPicPr); + if not ifnil(_obj.XmlChildBlipFill) then + {self.}BlipFill.Copy(_obj.XmlChildBlipFill); + if not ifnil(_obj.XmlChildSpPr) then + {self.}SpPr.Copy(_obj.XmlChildSpPr); + tslassigning := tslassigning_backup; +end; + +function Pic.ReadXmlChildNvPicPr(): NvPicPr; +begin + if tslassigning and ifnil({self.}XmlChildNvPicPr) then + begin + {self.}XmlChildNvPicPr := new NvPicPr(self, {self.}Prefix, "nvPicPr"); + container_.Set({self.}XmlChildNvPicPr); + end + return {self.}XmlChildNvPicPr; +end; + +function Pic.ReadXmlChildBlipFill(): BlipFill; +begin + if tslassigning and ifnil({self.}XmlChildBlipFill) then + begin + {self.}XmlChildBlipFill := new BlipFill(self, {self.}Prefix, "blipFill"); + container_.Set({self.}XmlChildBlipFill); + end + return {self.}XmlChildBlipFill; +end; + +function Pic.ReadXmlChildSpPr(): SpPr; +begin + if tslassigning and ifnil({self.}XmlChildSpPr) then + begin + {self.}XmlChildSpPr := new SpPr(self, {self.}Prefix, "spPr"); + container_.Set({self.}XmlChildSpPr); + end + return {self.}XmlChildSpPr; +end; + +function NvPicPr.Create();overload; +begin + {self.}Create(nil, "pic", "nvPicPr"); +end; + +function NvPicPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function NvPicPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function NvPicPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "pic:cNvPr": array(0, makeweakref(thisFunction(ReadXmlChildCNvPr))), + "pic:cNvPicPr": array(1, makeweakref(thisFunction(ReadXmlChildCNvPicPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function NvPicPr.Copy(_obj: NvPicPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildCNvPr) then + {self.}CNvPr.Copy(_obj.XmlChildCNvPr); + if not ifnil(_obj.XmlChildCNvPicPr) then + {self.}CNvPicPr.Copy(_obj.XmlChildCNvPicPr); + tslassigning := tslassigning_backup; +end; + +function NvPicPr.ReadXmlChildCNvPr(): CNvPr; +begin + if tslassigning and ifnil({self.}XmlChildCNvPr) then + begin + {self.}XmlChildCNvPr := new CNvPr(self, "pic", "cNvPr"); + container_.Set({self.}XmlChildCNvPr); + end + return {self.}XmlChildCNvPr; +end; + +function NvPicPr.ReadXmlChildCNvPicPr(): CNvPicPr; +begin + if tslassigning and ifnil({self.}XmlChildCNvPicPr) then + begin + {self.}XmlChildCNvPicPr := new CNvPicPr(self, "pic", "cNvPicPr"); + container_.Set({self.}XmlChildCNvPicPr); + end + return {self.}XmlChildCNvPicPr; +end; + +function CNvPr.Create();overload; +begin + {self.}Create(nil, "pic", "cNvPr"); +end; + +function CNvPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CNvPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CNvPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "id": makeweakref(thisFunction(WriteXmlAttrId)), + "name": makeweakref(thisFunction(WriteXmlAttrName)), + "descr": makeweakref(thisFunction(WriteXmlAttrDescr)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CNvPr.Copy(_obj: CNvPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Name) then + {self.}Name := _obj.Name; + if not ifnil(_obj.Descr) then + {self.}Descr := _obj.Descr; + tslassigning := tslassigning_backup; +end; + +function CNvPr.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function CNvPr.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function CNvPr.ReadXmlAttrName(); +begin + return {self.}XmlAttrName.Value; +end; + +function CNvPr.WriteXmlAttrName(_value); +begin + if ifnil({self.}XmlAttrName) then + begin + {self.}XmlAttrName := new OpenXmlAttribute("", "name", nil); + attributes_[length(attributes_)] := {self.}XmlAttrName; + end + {self.}XmlAttrName.Value := _value; +end; + +function CNvPr.ReadXmlAttrDescr(); +begin + return {self.}XmlAttrDescr.Value; +end; + +function CNvPr.WriteXmlAttrDescr(_value); +begin + if ifnil({self.}XmlAttrDescr) then + begin + {self.}XmlAttrDescr := new OpenXmlAttribute("", "descr", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDescr; + end + {self.}XmlAttrDescr.Value := _value; +end; + +function CNvPicPr.Create();overload; +begin + {self.}Create(nil, "pic", "cNvPicPr"); +end; + +function CNvPicPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CNvPicPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CNvPicPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "a:picLocks": array(0, makeweakref(thisFunction(ReadXmlChildPicLocks))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CNvPicPr.Copy(_obj: CNvPicPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildPicLocks) then + {self.}PicLocks.Copy(_obj.XmlChildPicLocks); + tslassigning := tslassigning_backup; +end; + +function CNvPicPr.ReadXmlChildPicLocks(): PicLocks; +begin + if tslassigning and ifnil({self.}XmlChildPicLocks) then + begin + {self.}XmlChildPicLocks := new PicLocks(self, "a", "picLocks"); + container_.Set({self.}XmlChildPicLocks); + end + return {self.}XmlChildPicLocks; +end; + +function PicLocks.Create();overload; +begin + {self.}Create(nil, "a", "picLocks"); +end; + +function PicLocks.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PicLocks.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PicLocks.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "noChangeAspect": makeweakref(thisFunction(WriteXmlAttrNoChangeAspect)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PicLocks.Copy(_obj: PicLocks);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.NoChangeAspect) then + {self.}NoChangeAspect := _obj.NoChangeAspect; + tslassigning := tslassigning_backup; +end; + +function PicLocks.ReadXmlAttrNoChangeAspect(); +begin + return {self.}XmlAttrNoChangeAspect.Value; +end; + +function PicLocks.WriteXmlAttrNoChangeAspect(_value); +begin + if ifnil({self.}XmlAttrNoChangeAspect) then + begin + {self.}XmlAttrNoChangeAspect := new OpenXmlAttribute("", "noChangeAspect", nil); + attributes_[length(attributes_)] := {self.}XmlAttrNoChangeAspect; + end + {self.}XmlAttrNoChangeAspect.Value := _value; +end; + +function BlipFill.Create();overload; +begin + {self.}Create(nil, "pic", "blipFill"); +end; + +function BlipFill.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function BlipFill.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function BlipFill.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "a:blip": array(0, makeweakref(thisFunction(ReadXmlChildBlip))), + "a:stretch": array(1, makeweakref(thisFunction(ReadXmlChildStretch))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function BlipFill.Copy(_obj: BlipFill);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildBlip) then + {self.}Blip.Copy(_obj.XmlChildBlip); + if not ifnil(_obj.XmlChildStretch) then + {self.}Stretch.Copy(_obj.XmlChildStretch); + tslassigning := tslassigning_backup; +end; + +function BlipFill.ReadXmlChildBlip(): Blip; +begin + if tslassigning and ifnil({self.}XmlChildBlip) then + begin + {self.}XmlChildBlip := new Blip(self, "a", "blip"); + container_.Set({self.}XmlChildBlip); + end + return {self.}XmlChildBlip; +end; + +function BlipFill.ReadXmlChildStretch(): Stretch; +begin + if tslassigning and ifnil({self.}XmlChildStretch) then + begin + {self.}XmlChildStretch := new Stretch(self, "a", "stretch"); + container_.Set({self.}XmlChildStretch); + end + return {self.}XmlChildStretch; +end; + +function Blip.Create();overload; +begin + {self.}Create(nil, "a", "blip"); +end; + +function Blip.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Blip.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Blip.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "r:embed": makeweakref(thisFunction(WriteXmlAttrEmbed)), + "cstate": makeweakref(thisFunction(WriteXmlAttrCstate)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Blip.Copy(_obj: Blip);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Embed) then + {self.}Embed := _obj.Embed; + if not ifnil(_obj.Cstate) then + {self.}Cstate := _obj.Cstate; + tslassigning := tslassigning_backup; +end; + +function Blip.ReadXmlAttrEmbed(); +begin + return {self.}XmlAttrEmbed.Value; +end; + +function Blip.WriteXmlAttrEmbed(_value); +begin + if ifnil({self.}XmlAttrEmbed) then + begin + {self.}XmlAttrEmbed := new OpenXmlAttribute("r", "embed", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEmbed; + end + {self.}XmlAttrEmbed.Value := _value; +end; + +function Blip.ReadXmlAttrCstate(); +begin + return {self.}XmlAttrCstate.Value; +end; + +function Blip.WriteXmlAttrCstate(_value); +begin + if ifnil({self.}XmlAttrCstate) then + begin + {self.}XmlAttrCstate := new OpenXmlAttribute("", "cstate", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCstate; + end + {self.}XmlAttrCstate.Value := _value; +end; + +function Stretch.Create();overload; +begin + {self.}Create(nil, "a", "stretch"); +end; + +function Stretch.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Stretch.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Stretch.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "a:fillRect": array(0, makeweakref(thisFunction(ReadXmlChildFillRect))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Stretch.Copy(_obj: Stretch);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildFillRect) then + {self.}FillRect.Copy(_obj.XmlChildFillRect); + tslassigning := tslassigning_backup; +end; + +function Stretch.ReadXmlChildFillRect(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildFillRect) then + begin + {self.}XmlChildFillRect := new PureVal(self, "a", "fillRect"); + container_.Set({self.}XmlChildFillRect); + end + return {self.}XmlChildFillRect; +end; + +function SpPr.Create();overload; +begin + {self.}Create(nil, "pic", "spPr"); +end; + +function SpPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SpPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SpPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "bwMode": makeweakref(thisFunction(WriteXmlAttrBwMode)), + ); + sorted_child_ := array( + "a:xfrm": array(0, makeweakref(thisFunction(ReadXmlChildXfrm))), + "a:prstGeom": array(1, makeweakref(thisFunction(ReadXmlChildPrstGeom))), + "a:noFill": array(2, makeweakref(thisFunction(ReadXmlChildNoFill))), + "a:solidFill": array(3, makeweakref(thisFunction(ReadXmlChildSolidFill))), + "a:ln": array(4, makeweakref(thisFunction(ReadXmlChildLn))), + "a:effectLst": array(5, makeweakref(thisFunction(ReadXmlChildEffectLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SpPr.Copy(_obj: SpPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.BwMode) then + {self.}BwMode := _obj.BwMode; + if not ifnil(_obj.XmlChildXfrm) then + {self.}Xfrm.Copy(_obj.XmlChildXfrm); + if not ifnil(_obj.XmlChildPrstGeom) then + {self.}PrstGeom.Copy(_obj.XmlChildPrstGeom); + if not ifnil(_obj.XmlChildNoFill) then + ifnil({self.}XmlChildNoFill) ? {self.}NoFill.Copy(_obj.XmlChildNoFill) : {self.}XmlChildNoFill.Copy(_obj.XmlChildNoFill); + if not ifnil(_obj.XmlChildSolidFill) then + {self.}SolidFill.Copy(_obj.XmlChildSolidFill); + if not ifnil(_obj.XmlChildLn) then + {self.}Ln.Copy(_obj.XmlChildLn); + if not ifnil(_obj.XmlChildEffectLst) then + {self.}EffectLst.Copy(_obj.XmlChildEffectLst); + tslassigning := tslassigning_backup; +end; + +function SpPr.ReadXmlAttrBwMode(); +begin + return {self.}XmlAttrBwMode.Value; +end; + +function SpPr.WriteXmlAttrBwMode(_value); +begin + if ifnil({self.}XmlAttrBwMode) then + begin + {self.}XmlAttrBwMode := new OpenXmlAttribute("", "bwMode", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBwMode; + end + {self.}XmlAttrBwMode.Value := _value; +end; + +function SpPr.ReadXmlChildNoFill(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildNoFill) then + begin + {self.}XmlChildNoFill := new OpenXmlEmpty(self, "a", "noFill"); + container_.Set({self.}XmlChildNoFill); + end + return {self.}XmlChildNoFill; + end + return ifnil({self.}XmlChildNoFill) ? nil : {self.}XmlChildNoFill.BoolValue(); +end; + +function SpPr.WriteXmlChildNoFill(_value); +begin + if ifnil({self.}XmlChildNoFill) then + begin + {self.}XmlChildNoFill := new OpenXmlEmpty(self, "a", "noFill"); + container_.Set({self.}XmlChildNoFill); + end + {self.}XmlChildNoFill.Value := _value; +end; + +function SpPr.ReadXmlChildXfrm(): Xfrm; +begin + if tslassigning and ifnil({self.}XmlChildXfrm) then + begin + {self.}XmlChildXfrm := new Xfrm(self, "a", "xfrm"); + container_.Set({self.}XmlChildXfrm); + end + return {self.}XmlChildXfrm; +end; + +function SpPr.ReadXmlChildPrstGeom(): PrstGeom; +begin + if tslassigning and ifnil({self.}XmlChildPrstGeom) then + begin + {self.}XmlChildPrstGeom := new PrstGeom(self, "a", "prstGeom"); + container_.Set({self.}XmlChildPrstGeom); + end + return {self.}XmlChildPrstGeom; +end; + +function SpPr.ReadXmlChildSolidFill(): SolidFill; +begin + if tslassigning and ifnil({self.}XmlChildSolidFill) then + begin + {self.}XmlChildSolidFill := new SolidFill(self, "a", "solidFill"); + container_.Set({self.}XmlChildSolidFill); + end + return {self.}XmlChildSolidFill; +end; + +function SpPr.ReadXmlChildLn(): Ln; +begin + if tslassigning and ifnil({self.}XmlChildLn) then + begin + {self.}XmlChildLn := new Ln(self, "a", "ln"); + container_.Set({self.}XmlChildLn); + end + return {self.}XmlChildLn; +end; + +function SpPr.ReadXmlChildEffectLst(): EffectLst; +begin + if tslassigning and ifnil({self.}XmlChildEffectLst) then + begin + {self.}XmlChildEffectLst := new EffectLst(self, "a", "effectLst"); + container_.Set({self.}XmlChildEffectLst); + end + return {self.}XmlChildEffectLst; +end; + +function EffectLst.Create();overload; +begin + {self.}Create(nil, "a", "effectLst"); +end; + +function EffectLst.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function EffectLst.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function EffectLst.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "outerShdw": array(0, makeweakref(thisFunction(ReadXmlChildOuterShdw))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function EffectLst.Copy(_obj: EffectLst);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildOuterShdw) then + {self.}OuterShdw.Copy(_obj.XmlChildOuterShdw); + tslassigning := tslassigning_backup; +end; + +function EffectLst.ReadXmlChildOuterShdw(): OuterShdw; +begin + if tslassigning and ifnil({self.}XmlChildOuterShdw) then + begin + {self.}XmlChildOuterShdw := new OuterShdw(self, {self.}Prefix, "outerShdw"); + container_.Set({self.}XmlChildOuterShdw); + end + return {self.}XmlChildOuterShdw; +end; + +function Ln.Create();overload; +begin + {self.}Create(nil, "a", "ln"); +end; + +function Ln.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Ln.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Ln.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w": makeweakref(thisFunction(WriteXmlAttrW)), + "cap": makeweakref(thisFunction(WriteXmlAttrCap)), + "cmpd": makeweakref(thisFunction(WriteXmlAttrCmpd)), + "algn": makeweakref(thisFunction(WriteXmlAttrAlgn)), + ); + sorted_child_ := array( + pre + "noFill": array(0, makeweakref(thisFunction(ReadXmlChildNoFill))), + pre + "solidFill": array(1, makeweakref(thisFunction(ReadXmlChildSolidFill))), + pre + "prstDash": array(2, makeweakref(thisFunction(ReadXmlChildPrstDash))), + pre + "miter": array(3, makeweakref(thisFunction(ReadXmlChildMiter))), + pre + "headEnd": array(4, makeweakref(thisFunction(ReadXmlChildHeadEnd))), + pre + "tailEnd": array(5, makeweakref(thisFunction(ReadXmlChildTailEnd))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Ln.Copy(_obj: Ln);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.W) then + {self.}W := _obj.W; + if not ifnil(_obj.Cap) then + {self.}Cap := _obj.Cap; + if not ifnil(_obj.Cmpd) then + {self.}Cmpd := _obj.Cmpd; + if not ifnil(_obj.Algn) then + {self.}Algn := _obj.Algn; + if not ifnil(_obj.XmlChildNoFill) then + ifnil({self.}XmlChildNoFill) ? {self.}NoFill.Copy(_obj.XmlChildNoFill) : {self.}XmlChildNoFill.Copy(_obj.XmlChildNoFill); + if not ifnil(_obj.XmlChildSolidFill) then + {self.}SolidFill.Copy(_obj.XmlChildSolidFill); + if not ifnil(_obj.XmlChildPrstDash) then + {self.}PrstDash.Copy(_obj.XmlChildPrstDash); + if not ifnil(_obj.XmlChildMiter) then + {self.}Miter.Copy(_obj.XmlChildMiter); + if not ifnil(_obj.XmlChildHeadEnd) then + ifnil({self.}XmlChildHeadEnd) ? {self.}HeadEnd.Copy(_obj.XmlChildHeadEnd) : {self.}XmlChildHeadEnd.Copy(_obj.XmlChildHeadEnd); + if not ifnil(_obj.XmlChildTailEnd) then + ifnil({self.}XmlChildTailEnd) ? {self.}TailEnd.Copy(_obj.XmlChildTailEnd) : {self.}XmlChildTailEnd.Copy(_obj.XmlChildTailEnd); + tslassigning := tslassigning_backup; +end; + +function Ln.ReadXmlAttrW(); +begin + return {self.}XmlAttrW.Value; +end; + +function Ln.WriteXmlAttrW(_value); +begin + if ifnil({self.}XmlAttrW) then + begin + {self.}XmlAttrW := new OpenXmlAttribute("", "w", nil); + attributes_[length(attributes_)] := {self.}XmlAttrW; + end + {self.}XmlAttrW.Value := _value; +end; + +function Ln.ReadXmlAttrCap(); +begin + return {self.}XmlAttrCap.Value; +end; + +function Ln.WriteXmlAttrCap(_value); +begin + if ifnil({self.}XmlAttrCap) then + begin + {self.}XmlAttrCap := new OpenXmlAttribute("", "cap", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCap; + end + {self.}XmlAttrCap.Value := _value; +end; + +function Ln.ReadXmlAttrCmpd(); +begin + return {self.}XmlAttrCmpd.Value; +end; + +function Ln.WriteXmlAttrCmpd(_value); +begin + if ifnil({self.}XmlAttrCmpd) then + begin + {self.}XmlAttrCmpd := new OpenXmlAttribute("", "cmpd", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCmpd; + end + {self.}XmlAttrCmpd.Value := _value; +end; + +function Ln.ReadXmlAttrAlgn(); +begin + return {self.}XmlAttrAlgn.Value; +end; + +function Ln.WriteXmlAttrAlgn(_value); +begin + if ifnil({self.}XmlAttrAlgn) then + begin + {self.}XmlAttrAlgn := new OpenXmlAttribute("", "algn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAlgn; + end + {self.}XmlAttrAlgn.Value := _value; +end; + +function Ln.ReadXmlChildNoFill(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildNoFill) then + begin + {self.}XmlChildNoFill := new OpenXmlEmpty(self, {self.}Prefix, "noFill"); + container_.Set({self.}XmlChildNoFill); + end + return {self.}XmlChildNoFill; + end + return ifnil({self.}XmlChildNoFill) ? nil : {self.}XmlChildNoFill.BoolValue(); +end; + +function Ln.WriteXmlChildNoFill(_value); +begin + if ifnil({self.}XmlChildNoFill) then + begin + {self.}XmlChildNoFill := new OpenXmlEmpty(self, {self.}Prefix, "noFill"); + container_.Set({self.}XmlChildNoFill); + end + {self.}XmlChildNoFill.Value := _value; +end; + +function Ln.ReadXmlChildHeadEnd(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildHeadEnd) then + begin + {self.}XmlChildHeadEnd := new OpenXmlEmpty(self, {self.}Prefix, "headEnd"); + container_.Set({self.}XmlChildHeadEnd); + end + return {self.}XmlChildHeadEnd; + end + return ifnil({self.}XmlChildHeadEnd) ? nil : {self.}XmlChildHeadEnd.BoolValue(); +end; + +function Ln.WriteXmlChildHeadEnd(_value); +begin + if ifnil({self.}XmlChildHeadEnd) then + begin + {self.}XmlChildHeadEnd := new OpenXmlEmpty(self, {self.}Prefix, "headEnd"); + container_.Set({self.}XmlChildHeadEnd); + end + {self.}XmlChildHeadEnd.Value := _value; +end; + +function Ln.ReadXmlChildTailEnd(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildTailEnd) then + begin + {self.}XmlChildTailEnd := new OpenXmlEmpty(self, {self.}Prefix, "tailEnd"); + container_.Set({self.}XmlChildTailEnd); + end + return {self.}XmlChildTailEnd; + end + return ifnil({self.}XmlChildTailEnd) ? nil : {self.}XmlChildTailEnd.BoolValue(); +end; + +function Ln.WriteXmlChildTailEnd(_value); +begin + if ifnil({self.}XmlChildTailEnd) then + begin + {self.}XmlChildTailEnd := new OpenXmlEmpty(self, {self.}Prefix, "tailEnd"); + container_.Set({self.}XmlChildTailEnd); + end + {self.}XmlChildTailEnd.Value := _value; +end; + +function Ln.ReadXmlChildSolidFill(): SolidFill; +begin + if tslassigning and ifnil({self.}XmlChildSolidFill) then + begin + {self.}XmlChildSolidFill := new SolidFill(self, {self.}Prefix, "solidFill"); + container_.Set({self.}XmlChildSolidFill); + end + return {self.}XmlChildSolidFill; +end; + +function Ln.ReadXmlChildPrstDash(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildPrstDash) then + begin + {self.}XmlChildPrstDash := new PureVal(self, {self.}Prefix, "prstDash"); + container_.Set({self.}XmlChildPrstDash); + end + return {self.}XmlChildPrstDash; +end; + +function Ln.ReadXmlChildMiter(): Miter; +begin + if tslassigning and ifnil({self.}XmlChildMiter) then + begin + {self.}XmlChildMiter := new Miter(self, {self.}Prefix, "miter"); + container_.Set({self.}XmlChildMiter); + end + return {self.}XmlChildMiter; +end; + +function Miter.Create();overload; +begin + {self.}Create(nil, "a", "miter"); +end; + +function Miter.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Miter.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Miter.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "lim": makeweakref(thisFunction(WriteXmlAttrLim)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Miter.Copy(_obj: Miter);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Lim) then + {self.}Lim := _obj.Lim; + tslassigning := tslassigning_backup; +end; + +function Miter.ReadXmlAttrLim(); +begin + return {self.}XmlAttrLim.Value; +end; + +function Miter.WriteXmlAttrLim(_value); +begin + if ifnil({self.}XmlAttrLim) then + begin + {self.}XmlAttrLim := new OpenXmlAttribute("", "lim", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLim; + end + {self.}XmlAttrLim.Value := _value; +end; + +function Xfrm.Create();overload; +begin + {self.}Create(nil, "a", "xfrm"); +end; + +function Xfrm.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Xfrm.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Xfrm.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "off": array(0, makeweakref(thisFunction(ReadXmlChildOff))), + pre + "ext": array(1, makeweakref(thisFunction(ReadXmlChildExt))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Xfrm.Copy(_obj: Xfrm);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildOff) then + {self.}Off.Copy(_obj.XmlChildOff); + if not ifnil(_obj.XmlChildExt) then + {self.}Ext.Copy(_obj.XmlChildExt); + tslassigning := tslassigning_backup; +end; + +function Xfrm.ReadXmlChildOff(): XY; +begin + if tslassigning and ifnil({self.}XmlChildOff) then + begin + {self.}XmlChildOff := new XY(self, {self.}Prefix, "off"); + container_.Set({self.}XmlChildOff); + end + return {self.}XmlChildOff; +end; + +function Xfrm.ReadXmlChildExt(): CXY; +begin + if tslassigning and ifnil({self.}XmlChildExt) then + begin + {self.}XmlChildExt := new CXY(self, {self.}Prefix, "ext"); + container_.Set({self.}XmlChildExt); + end + return {self.}XmlChildExt; +end; + +function XY.Create();overload; +begin + {self.}Create(nil, "", ""); +end; + +function XY.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function XY.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function XY.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "x": makeweakref(thisFunction(WriteXmlAttrX)), + "y": makeweakref(thisFunction(WriteXmlAttrY)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function XY.Copy(_obj: XY);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.X) then + {self.}X := _obj.X; + if not ifnil(_obj.Y) then + {self.}Y := _obj.Y; + tslassigning := tslassigning_backup; +end; + +function XY.ReadXmlAttrX(); +begin + return {self.}XmlAttrX.Value; +end; + +function XY.WriteXmlAttrX(_value); +begin + if ifnil({self.}XmlAttrX) then + begin + {self.}XmlAttrX := new OpenXmlAttribute("", "x", nil); + attributes_[length(attributes_)] := {self.}XmlAttrX; + end + {self.}XmlAttrX.Value := _value; +end; + +function XY.ReadXmlAttrY(); +begin + return {self.}XmlAttrY.Value; +end; + +function XY.WriteXmlAttrY(_value); +begin + if ifnil({self.}XmlAttrY) then + begin + {self.}XmlAttrY := new OpenXmlAttribute("", "y", nil); + attributes_[length(attributes_)] := {self.}XmlAttrY; + end + {self.}XmlAttrY.Value := _value; +end; + +function CXY.Create();overload; +begin + {self.}Create(nil, "", ""); +end; + +function CXY.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CXY.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CXY.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "cx": makeweakref(thisFunction(WriteXmlAttrCx)), + "cy": makeweakref(thisFunction(WriteXmlAttrCy)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CXY.Copy(_obj: CXY);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Cx) then + {self.}Cx := _obj.Cx; + if not ifnil(_obj.Cy) then + {self.}Cy := _obj.Cy; + tslassigning := tslassigning_backup; +end; + +function CXY.ReadXmlAttrCx(); +begin + return {self.}XmlAttrCx.Value; +end; + +function CXY.WriteXmlAttrCx(_value); +begin + if ifnil({self.}XmlAttrCx) then + begin + {self.}XmlAttrCx := new OpenXmlAttribute("", "cx", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCx; + end + {self.}XmlAttrCx.Value := _value; +end; + +function CXY.ReadXmlAttrCy(); +begin + return {self.}XmlAttrCy.Value; +end; + +function CXY.WriteXmlAttrCy(_value); +begin + if ifnil({self.}XmlAttrCy) then + begin + {self.}XmlAttrCy := new OpenXmlAttribute("", "cy", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCy; + end + {self.}XmlAttrCy.Value := _value; +end; + +function PrstGeom.Create();overload; +begin + {self.}Create(nil, "a", "prstGeom"); +end; + +function PrstGeom.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PrstGeom.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PrstGeom.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "prst": makeweakref(thisFunction(WriteXmlAttrPrst)), + ); + sorted_child_ := array( + pre + "avLst": array(0, makeweakref(thisFunction(ReadXmlChildAvLst))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PrstGeom.Copy(_obj: PrstGeom);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Prst) then + {self.}Prst := _obj.Prst; + if not ifnil(_obj.XmlChildAvLst) then + {self.}AvLst.Copy(_obj.XmlChildAvLst); + tslassigning := tslassigning_backup; +end; + +function PrstGeom.ReadXmlAttrPrst(); +begin + return {self.}XmlAttrPrst.Value; +end; + +function PrstGeom.WriteXmlAttrPrst(_value); +begin + if ifnil({self.}XmlAttrPrst) then + begin + {self.}XmlAttrPrst := new OpenXmlAttribute("", "prst", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPrst; + end + {self.}XmlAttrPrst.Value := _value; +end; + +function PrstGeom.ReadXmlChildAvLst(): PureVal; +begin + if tslassigning and ifnil({self.}XmlChildAvLst) then + begin + {self.}XmlChildAvLst := new PureVal(self, {self.}Prefix, "avLst"); + container_.Set({self.}XmlChildAvLst); + end + return {self.}XmlChildAvLst; +end; + +function Anchor.Create();overload; +begin + {self.}Create(nil, "wp", "anchor"); +end; + +function Anchor.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Anchor.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Anchor.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "distT": makeweakref(thisFunction(WriteXmlAttrDistT)), + "distB": makeweakref(thisFunction(WriteXmlAttrDistB)), + "distL": makeweakref(thisFunction(WriteXmlAttrDistL)), + "distR": makeweakref(thisFunction(WriteXmlAttrDistR)), + "simplePos": makeweakref(thisFunction(WriteXmlAttrSimplePos)), + "relativeHeight": makeweakref(thisFunction(WriteXmlAttrRelativeHeight)), + "behindDoc": makeweakref(thisFunction(WriteXmlAttrBehindDoc)), + "locked": makeweakref(thisFunction(WriteXmlAttrLocked)), + "hidden": makeweakref(thisFunction(WriteXmlAttrHidden)), + "layoutInCell": makeweakref(thisFunction(WriteXmlAttrLayoutInCell)), + "allowOverlap": makeweakref(thisFunction(WriteXmlAttrAllowOverlap)), + "wp14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), + "wp14:editId": makeweakref(thisFunction(WriteXmlAttrEditId)), + ); + sorted_child_ := array( + pre + "simplePos": array(0, makeweakref(thisFunction(ReadXmlChildSimplePos))), + pre + "positionH": array(1, makeweakref(thisFunction(ReadXmlChildPositionH))), + pre + "positionV": array(2, makeweakref(thisFunction(ReadXmlChildPositionV))), + pre + "extent": array(3, makeweakref(thisFunction(ReadXmlChildExtent))), + pre + "effectExtent": array(4, makeweakref(thisFunction(ReadXmlChildEffectExtent))), + pre + "wrapNone": array(5, makeweakref(thisFunction(ReadXmlChildWrapNone))), + pre + "docPr": array(6, makeweakref(thisFunction(ReadXmlChildDocPr))), + pre + "cNvGraphicFramePr": array(7, makeweakref(thisFunction(ReadXmlChildCNvGraphicFramePr))), + "a:graphic": array(8, makeweakref(thisFunction(ReadXmlChildGraphic))), + "wp14:sizeRelH": array(9, makeweakref(thisFunction(ReadXmlChildSizeRelH))), + "wp14:sizeRelV": array(10, makeweakref(thisFunction(ReadXmlChildSizeRelV))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Anchor.Copy(_obj: Anchor);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.DistT) then + {self.}DistT := _obj.DistT; + if not ifnil(_obj.DistB) then + {self.}DistB := _obj.DistB; + if not ifnil(_obj.DistL) then + {self.}DistL := _obj.DistL; + if not ifnil(_obj.DistR) then + {self.}DistR := _obj.DistR; + if not ifnil(_obj.SimplePos) then + {self.}SimplePos := _obj.SimplePos; + if not ifnil(_obj.RelativeHeight) then + {self.}RelativeHeight := _obj.RelativeHeight; + if not ifnil(_obj.BehindDoc) then + {self.}BehindDoc := _obj.BehindDoc; + if not ifnil(_obj.Locked) then + {self.}Locked := _obj.Locked; + if not ifnil(_obj.Hidden) then + {self.}Hidden := _obj.Hidden; + if not ifnil(_obj.LayoutInCell) then + {self.}LayoutInCell := _obj.LayoutInCell; + if not ifnil(_obj.AllowOverlap) then + {self.}AllowOverlap := _obj.AllowOverlap; + if not ifnil(_obj.AnchorId) then + {self.}AnchorId := _obj.AnchorId; + if not ifnil(_obj.EditId) then + {self.}EditId := _obj.EditId; + if not ifnil(_obj.XmlChildSimplePos) then + {self.}SimplePos.Copy(_obj.XmlChildSimplePos); + if not ifnil(_obj.XmlChildPositionH) then + {self.}PositionH.Copy(_obj.XmlChildPositionH); + if not ifnil(_obj.XmlChildPositionV) then + {self.}PositionV.Copy(_obj.XmlChildPositionV); + if not ifnil(_obj.XmlChildExtent) then + {self.}Extent.Copy(_obj.XmlChildExtent); + if not ifnil(_obj.XmlChildEffectExtent) then + {self.}EffectExtent.Copy(_obj.XmlChildEffectExtent); + if not ifnil(_obj.XmlChildWrapNone) then + ifnil({self.}XmlChildWrapNone) ? {self.}WrapNone.Copy(_obj.XmlChildWrapNone) : {self.}XmlChildWrapNone.Copy(_obj.XmlChildWrapNone); + if not ifnil(_obj.XmlChildDocPr) then + {self.}DocPr.Copy(_obj.XmlChildDocPr); + if not ifnil(_obj.XmlChildCNvGraphicFramePr) then + {self.}CNvGraphicFramePr.Copy(_obj.XmlChildCNvGraphicFramePr); + if not ifnil(_obj.XmlChildGraphic) then + {self.}Graphic.Copy(_obj.XmlChildGraphic); + if not ifnil(_obj.XmlChildSizeRelH) then + {self.}SizeRelH.Copy(_obj.XmlChildSizeRelH); + if not ifnil(_obj.XmlChildSizeRelV) then + {self.}SizeRelV.Copy(_obj.XmlChildSizeRelV); + tslassigning := tslassigning_backup; +end; + +function Anchor.ReadXmlAttrDistT(); +begin + return {self.}XmlAttrDistT.Value; +end; + +function Anchor.WriteXmlAttrDistT(_value); +begin + if ifnil({self.}XmlAttrDistT) then + begin + {self.}XmlAttrDistT := new OpenXmlAttribute("", "distT", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistT; + end + {self.}XmlAttrDistT.Value := _value; +end; + +function Anchor.ReadXmlAttrDistB(); +begin + return {self.}XmlAttrDistB.Value; +end; + +function Anchor.WriteXmlAttrDistB(_value); +begin + if ifnil({self.}XmlAttrDistB) then + begin + {self.}XmlAttrDistB := new OpenXmlAttribute("", "distB", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistB; + end + {self.}XmlAttrDistB.Value := _value; +end; + +function Anchor.ReadXmlAttrDistL(); +begin + return {self.}XmlAttrDistL.Value; +end; + +function Anchor.WriteXmlAttrDistL(_value); +begin + if ifnil({self.}XmlAttrDistL) then + begin + {self.}XmlAttrDistL := new OpenXmlAttribute("", "distL", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistL; + end + {self.}XmlAttrDistL.Value := _value; +end; + +function Anchor.ReadXmlAttrDistR(); +begin + return {self.}XmlAttrDistR.Value; +end; + +function Anchor.WriteXmlAttrDistR(_value); +begin + if ifnil({self.}XmlAttrDistR) then + begin + {self.}XmlAttrDistR := new OpenXmlAttribute("", "distR", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDistR; + end + {self.}XmlAttrDistR.Value := _value; +end; + +function Anchor.ReadXmlAttrSimplePos(); +begin + return {self.}XmlAttrSimplePos.Value; +end; + +function Anchor.WriteXmlAttrSimplePos(_value); +begin + if ifnil({self.}XmlAttrSimplePos) then + begin + {self.}XmlAttrSimplePos := new OpenXmlAttribute("", "simplePos", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSimplePos; + end + {self.}XmlAttrSimplePos.Value := _value; +end; + +function Anchor.ReadXmlAttrRelativeHeight(); +begin + return {self.}XmlAttrRelativeHeight.Value; +end; + +function Anchor.WriteXmlAttrRelativeHeight(_value); +begin + if ifnil({self.}XmlAttrRelativeHeight) then + begin + {self.}XmlAttrRelativeHeight := new OpenXmlAttribute("", "relativeHeight", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRelativeHeight; + end + {self.}XmlAttrRelativeHeight.Value := _value; +end; + +function Anchor.ReadXmlAttrBehindDoc(); +begin + return {self.}XmlAttrBehindDoc.Value; +end; + +function Anchor.WriteXmlAttrBehindDoc(_value); +begin + if ifnil({self.}XmlAttrBehindDoc) then + begin + {self.}XmlAttrBehindDoc := new OpenXmlAttribute("", "behindDoc", nil); + attributes_[length(attributes_)] := {self.}XmlAttrBehindDoc; + end + {self.}XmlAttrBehindDoc.Value := _value; +end; + +function Anchor.ReadXmlAttrLocked(); +begin + return {self.}XmlAttrLocked.Value; +end; + +function Anchor.WriteXmlAttrLocked(_value); +begin + if ifnil({self.}XmlAttrLocked) then + begin + {self.}XmlAttrLocked := new OpenXmlAttribute("", "locked", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLocked; + end + {self.}XmlAttrLocked.Value := _value; +end; + +function Anchor.ReadXmlAttrHidden(); +begin + return {self.}XmlAttrHidden.Value; +end; + +function Anchor.WriteXmlAttrHidden(_value); +begin + if ifnil({self.}XmlAttrHidden) then + begin + {self.}XmlAttrHidden := new OpenXmlAttribute("", "hidden", nil); + attributes_[length(attributes_)] := {self.}XmlAttrHidden; + end + {self.}XmlAttrHidden.Value := _value; +end; + +function Anchor.ReadXmlAttrLayoutInCell(); +begin + return {self.}XmlAttrLayoutInCell.Value; +end; + +function Anchor.WriteXmlAttrLayoutInCell(_value); +begin + if ifnil({self.}XmlAttrLayoutInCell) then + begin + {self.}XmlAttrLayoutInCell := new OpenXmlAttribute("", "layoutInCell", nil); + attributes_[length(attributes_)] := {self.}XmlAttrLayoutInCell; + end + {self.}XmlAttrLayoutInCell.Value := _value; +end; + +function Anchor.ReadXmlAttrAllowOverlap(); +begin + return {self.}XmlAttrAllowOverlap.Value; +end; + +function Anchor.WriteXmlAttrAllowOverlap(_value); +begin + if ifnil({self.}XmlAttrAllowOverlap) then + begin + {self.}XmlAttrAllowOverlap := new OpenXmlAttribute("", "allowOverlap", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAllowOverlap; + end + {self.}XmlAttrAllowOverlap.Value := _value; +end; + +function Anchor.ReadXmlAttrAnchorId(); +begin + return {self.}XmlAttrAnchorId.Value; +end; + +function Anchor.WriteXmlAttrAnchorId(_value); +begin + if ifnil({self.}XmlAttrAnchorId) then + begin + {self.}XmlAttrAnchorId := new OpenXmlAttribute("wp14", "anchorId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; + end + {self.}XmlAttrAnchorId.Value := _value; +end; + +function Anchor.ReadXmlAttrEditId(); +begin + return {self.}XmlAttrEditId.Value; +end; + +function Anchor.WriteXmlAttrEditId(_value); +begin + if ifnil({self.}XmlAttrEditId) then + begin + {self.}XmlAttrEditId := new OpenXmlAttribute("wp14", "editId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEditId; + end + {self.}XmlAttrEditId.Value := _value; +end; + +function Anchor.ReadXmlChildWrapNone(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildWrapNone) then + begin + {self.}XmlChildWrapNone := new OpenXmlEmpty(self, {self.}Prefix, "wrapNone"); + container_.Set({self.}XmlChildWrapNone); + end + return {self.}XmlChildWrapNone; + end + return ifnil({self.}XmlChildWrapNone) ? nil : {self.}XmlChildWrapNone.BoolValue(); +end; + +function Anchor.WriteXmlChildWrapNone(_value); +begin + if ifnil({self.}XmlChildWrapNone) then + begin + {self.}XmlChildWrapNone := new OpenXmlEmpty(self, {self.}Prefix, "wrapNone"); + container_.Set({self.}XmlChildWrapNone); + end + {self.}XmlChildWrapNone.Value := _value; +end; + +function Anchor.ReadXmlChildSimplePos(): XY; +begin + if tslassigning and ifnil({self.}XmlChildSimplePos) then + begin + {self.}XmlChildSimplePos := new XY(self, {self.}Prefix, "simplePos"); + container_.Set({self.}XmlChildSimplePos); + end + return {self.}XmlChildSimplePos; +end; + +function Anchor.ReadXmlChildPositionH(): PositionH; +begin + if tslassigning and ifnil({self.}XmlChildPositionH) then + begin + {self.}XmlChildPositionH := new PositionH(self, {self.}Prefix, "positionH"); + container_.Set({self.}XmlChildPositionH); + end + return {self.}XmlChildPositionH; +end; + +function Anchor.ReadXmlChildPositionV(): PositionV; +begin + if tslassigning and ifnil({self.}XmlChildPositionV) then + begin + {self.}XmlChildPositionV := new PositionV(self, {self.}Prefix, "positionV"); + container_.Set({self.}XmlChildPositionV); + end + return {self.}XmlChildPositionV; +end; + +function Anchor.ReadXmlChildExtent(): CXY; +begin + if tslassigning and ifnil({self.}XmlChildExtent) then + begin + {self.}XmlChildExtent := new CXY(self, {self.}Prefix, "extent"); + container_.Set({self.}XmlChildExtent); + end + return {self.}XmlChildExtent; +end; + +function Anchor.ReadXmlChildEffectExtent(): EffectExtent; +begin + if tslassigning and ifnil({self.}XmlChildEffectExtent) then + begin + {self.}XmlChildEffectExtent := new EffectExtent(self, {self.}Prefix, "effectExtent"); + container_.Set({self.}XmlChildEffectExtent); + end + return {self.}XmlChildEffectExtent; +end; + +function Anchor.ReadXmlChildDocPr(): DocPr; +begin + if tslassigning and ifnil({self.}XmlChildDocPr) then + begin + {self.}XmlChildDocPr := new DocPr(self, {self.}Prefix, "docPr"); + container_.Set({self.}XmlChildDocPr); + end + return {self.}XmlChildDocPr; +end; + +function Anchor.ReadXmlChildCNvGraphicFramePr(): CNvGraphicFramePr; +begin + if tslassigning and ifnil({self.}XmlChildCNvGraphicFramePr) then + begin + {self.}XmlChildCNvGraphicFramePr := new CNvGraphicFramePr(self, {self.}Prefix, "cNvGraphicFramePr"); + container_.Set({self.}XmlChildCNvGraphicFramePr); + end + return {self.}XmlChildCNvGraphicFramePr; +end; + +function Anchor.ReadXmlChildGraphic(): Graphic; +begin + if tslassigning and ifnil({self.}XmlChildGraphic) then + begin + {self.}XmlChildGraphic := new Graphic(self, "a", "graphic"); + container_.Set({self.}XmlChildGraphic); + end + return {self.}XmlChildGraphic; +end; + +function Anchor.ReadXmlChildSizeRelH(): SizeRelH; +begin + if tslassigning and ifnil({self.}XmlChildSizeRelH) then + begin + {self.}XmlChildSizeRelH := new SizeRelH(self, "wp14", "sizeRelH"); + container_.Set({self.}XmlChildSizeRelH); + end + return {self.}XmlChildSizeRelH; +end; + +function Anchor.ReadXmlChildSizeRelV(): SizeRelV; +begin + if tslassigning and ifnil({self.}XmlChildSizeRelV) then + begin + {self.}XmlChildSizeRelV := new SizeRelV(self, "wp14", "sizeRelV"); + container_.Set({self.}XmlChildSizeRelV); + end + return {self.}XmlChildSizeRelV; +end; + +function PositionV.Create();overload; +begin + {self.}Create(nil, "wp", "positionV"); +end; + +function PositionV.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PositionV.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PositionV.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), + ); + sorted_child_ := array( + pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PositionV.Copy(_obj: PositionV);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.RelativeFrom) then + {self.}RelativeFrom := _obj.RelativeFrom; + if not ifnil(_obj.XmlChildPosOffset) then + {self.}PosOffset.Copy(_obj.XmlChildPosOffset); + tslassigning := tslassigning_backup; +end; + +function PositionV.ReadXmlAttrRelativeFrom(); +begin + return {self.}XmlAttrRelativeFrom.Value; +end; + +function PositionV.WriteXmlAttrRelativeFrom(_value); +begin + if ifnil({self.}XmlAttrRelativeFrom) then + begin + {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; + end + {self.}XmlAttrRelativeFrom.Value := _value; +end; + +function PositionV.ReadXmlChildPosOffset(); +begin + if tslassigning and ifnil({self.}XmlChildPosOffset) then + begin + {self.}XmlChildPosOffset := new OpenXmlPcdata(self, {self.}Prefix, "posOffset"); + container_.Set({self.}XmlChildPosOffset); + end + return {self.}XmlChildPosOffset; +end; + +function PositionH.Create();overload; +begin + {self.}Create(nil, "wp", "positionH"); +end; + +function PositionH.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PositionH.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PositionH.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), + ); + sorted_child_ := array( + pre + "posOffset": array(0, makeweakref(thisFunction(ReadXmlChildPosOffset))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PositionH.Copy(_obj: PositionH);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.RelativeFrom) then + {self.}RelativeFrom := _obj.RelativeFrom; + if not ifnil(_obj.XmlChildPosOffset) then + {self.}PosOffset.Copy(_obj.XmlChildPosOffset); + tslassigning := tslassigning_backup; +end; + +function PositionH.ReadXmlAttrRelativeFrom(); +begin + return {self.}XmlAttrRelativeFrom.Value; +end; + +function PositionH.WriteXmlAttrRelativeFrom(_value); +begin + if ifnil({self.}XmlAttrRelativeFrom) then + begin + {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; + end + {self.}XmlAttrRelativeFrom.Value := _value; +end; + +function PositionH.ReadXmlChildPosOffset(); +begin + if tslassigning and ifnil({self.}XmlChildPosOffset) then + begin + {self.}XmlChildPosOffset := new OpenXmlPcdata(self, {self.}Prefix, "posOffset"); + container_.Set({self.}XmlChildPosOffset); + end + return {self.}XmlChildPosOffset; +end; + +function SizeRelH.Create();overload; +begin + {self.}Create(nil, "wp14", "sizeRelH"); +end; + +function SizeRelH.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SizeRelH.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SizeRelH.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), + ); + sorted_child_ := array( + pre + "pctWidth": array(0, makeweakref(thisFunction(ReadXmlChildPctWidth))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SizeRelH.Copy(_obj: SizeRelH);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.RelativeFrom) then + {self.}RelativeFrom := _obj.RelativeFrom; + if not ifnil(_obj.XmlChildPctWidth) then + {self.}PctWidth.Copy(_obj.XmlChildPctWidth); + tslassigning := tslassigning_backup; +end; + +function SizeRelH.ReadXmlAttrRelativeFrom(); +begin + return {self.}XmlAttrRelativeFrom.Value; +end; + +function SizeRelH.WriteXmlAttrRelativeFrom(_value); +begin + if ifnil({self.}XmlAttrRelativeFrom) then + begin + {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; + end + {self.}XmlAttrRelativeFrom.Value := _value; +end; + +function SizeRelH.ReadXmlChildPctWidth(); +begin + if tslassigning and ifnil({self.}XmlChildPctWidth) then + begin + {self.}XmlChildPctWidth := new OpenXmlPcdata(self, {self.}Prefix, "pctWidth"); + container_.Set({self.}XmlChildPctWidth); + end + return {self.}XmlChildPctWidth; +end; + +function SizeRelV.Create();overload; +begin + {self.}Create(nil, "wp14", "sizeRelV"); +end; + +function SizeRelV.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SizeRelV.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SizeRelV.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "relativeFrom": makeweakref(thisFunction(WriteXmlAttrRelativeFrom)), + ); + sorted_child_ := array( + pre + "pctHeight": array(0, makeweakref(thisFunction(ReadXmlChildPctHeight))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SizeRelV.Copy(_obj: SizeRelV);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.RelativeFrom) then + {self.}RelativeFrom := _obj.RelativeFrom; + if not ifnil(_obj.XmlChildPctHeight) then + {self.}PctHeight.Copy(_obj.XmlChildPctHeight); + tslassigning := tslassigning_backup; +end; + +function SizeRelV.ReadXmlAttrRelativeFrom(); +begin + return {self.}XmlAttrRelativeFrom.Value; +end; + +function SizeRelV.WriteXmlAttrRelativeFrom(_value); +begin + if ifnil({self.}XmlAttrRelativeFrom) then + begin + {self.}XmlAttrRelativeFrom := new OpenXmlAttribute("", "relativeFrom", nil); + attributes_[length(attributes_)] := {self.}XmlAttrRelativeFrom; + end + {self.}XmlAttrRelativeFrom.Value := _value; +end; + +function SizeRelV.ReadXmlChildPctHeight(); +begin + if tslassigning and ifnil({self.}XmlChildPctHeight) then + begin + {self.}XmlChildPctHeight := new OpenXmlPcdata(self, {self.}Prefix, "pctHeight"); + container_.Set({self.}XmlChildPctHeight); + end + return {self.}XmlChildPctHeight; +end; + +end. \ No newline at end of file diff --git a/autounit/DrawingMLAdapter.tsf b/autounit/DrawingMLAdapter.tsf new file mode 100644 index 0000000..547cb67 --- /dev/null +++ b/autounit/DrawingMLAdapter.tsf @@ -0,0 +1,6 @@ +unit DrawingMLAdapter; +interface + +implementation + +end. \ No newline at end of file diff --git a/autounit/DrawingMLUnitDecorator.tsf b/autounit/DrawingMLUnitDecorator.tsf new file mode 100644 index 0000000..9796085 --- /dev/null +++ b/autounit/DrawingMLUnitDecorator.tsf @@ -0,0 +1,3297 @@ +unit DrawingMLUnitDecorator; +interface +uses DrawingML, TSSafeUnitConverter; + +type ThemeUnitDecorator = class(Theme) +public + function Create(_obj: Theme); + function GetObject(); + function Convert(); +private + object_: Theme; +end; + +type ThemeElementsUnitDecorator = class(ThemeElements) +public + function Create(_obj: ThemeElements); + function GetObject(); + function Convert(); +private + object_: ThemeElements; +end; + +type ClrSchemeUnitDecorator = class(ClrScheme) +public + function Create(_obj: ClrScheme); + function GetObject(); + function Convert(); +private + object_: ClrScheme; +end; + +type Clr1UnitDecorator = class(Clr1) +public + function Create(_obj: Clr1); + function GetObject(); + function Convert(); +private + object_: Clr1; +end; + +type SysClrUnitDecorator = class(SysClr) +public + function Create(_obj: SysClr); + function GetObject(); + function Convert(); +private + object_: SysClr; +end; + +type Clr2UnitDecorator = class(Clr2) +public + function Create(_obj: Clr2); + function GetObject(); + function Convert(); +private + object_: Clr2; +end; + +type SrgbClrUnitDecorator = class(SrgbClr) +public + function Create(_obj: SrgbClr); + function GetObject(); + function Convert(); +private + object_: SrgbClr; +end; + +type PureValUnitDecorator = class(PureVal) +public + function Create(_obj: PureVal); + function GetObject(); + function Convert(); +private + object_: PureVal; +end; + +type FontSchemeUnitDecorator = class(FontScheme) +public + function Create(_obj: FontScheme); + function GetObject(); + function Convert(); +private + object_: FontScheme; +end; + +type MFontUnitDecorator = class(MFont) +public + function Create(_obj: MFont); + function GetObject(); + function Convert(); +private + object_: MFont; +end; + +type FontUnitDecorator = class(Font) +public + function Create(_obj: Font); + function GetObject(); + function Convert(); +private + object_: Font; +end; + +type FmtSchemeUnitDecorator = class(FmtScheme) +public + function Create(_obj: FmtScheme); + function GetObject(); + function Convert(); +private + object_: FmtScheme; +end; + +type FillStyleLstUnitDecorator = class(FillStyleLst) +public + function Create(_obj: FillStyleLst); + function GetObject(); + function Convert(); +private + object_: FillStyleLst; +end; + +type SolidFillUnitDecorator = class(SolidFill) +public + function Create(_obj: SolidFill); + function GetObject(); + function Convert(); +private + object_: SolidFill; +end; + +type SchemeClrUnitDecorator = class(SchemeClr) +public + function Create(_obj: SchemeClr); + function GetObject(); + function Convert(); +private + object_: SchemeClr; +end; + +type GradFillUnitDecorator = class(GradFill) +public + function Create(_obj: GradFill); + function GetObject(); + function Convert(); +private + object_: GradFill; +end; + +type GsLstUnitDecorator = class(GsLst) +public + function Create(_obj: GsLst); + function GetObject(); + function Convert(); +private + object_: GsLst; +end; + +type GsUnitDecorator = class(Gs) +public + function Create(_obj: Gs); + function GetObject(); + function Convert(); +private + object_: Gs; +end; + +type LinUnitDecorator = class(Lin) +public + function Create(_obj: Lin); + function GetObject(); + function Convert(); +private + object_: Lin; +end; + +type LnStyleLstUnitDecorator = class(LnStyleLst) +public + function Create(_obj: LnStyleLst); + function GetObject(); + function Convert(); +private + object_: LnStyleLst; +end; + +type EffectStyleLstUnitDecorator = class(EffectStyleLst) +public + function Create(_obj: EffectStyleLst); + function GetObject(); + function Convert(); +private + object_: EffectStyleLst; +end; + +type EffectStyleUnitDecorator = class(EffectStyle) +public + function Create(_obj: EffectStyle); + function GetObject(); + function Convert(); +private + object_: EffectStyle; +end; + +type OuterShdwUnitDecorator = class(OuterShdw) +public + function Create(_obj: OuterShdw); + function GetObject(); + function Convert(); +private + object_: OuterShdw; +end; + +type ExtLstUnitDecorator = class(ExtLst) +public + function Create(_obj: ExtLst); + function GetObject(); + function Convert(); +private + object_: ExtLst; +end; + +type ExtUnitDecorator = class(Ext) +public + function Create(_obj: Ext); + function GetObject(); + function Convert(); +private + object_: Ext; +end; + +type SlicerStylesUnitDecorator = class(SlicerStyles) +public + function Create(_obj: SlicerStyles); + function GetObject(); + function Convert(); +private + object_: SlicerStyles; +end; + +type TimelineStylesUnitDecorator = class(TimelineStyles) +public + function Create(_obj: TimelineStyles); + function GetObject(); + function Convert(); +private + object_: TimelineStyles; +end; + +type ThemeFamilyUnitDecorator = class(ThemeFamily) +public + function Create(_obj: ThemeFamily); + function GetObject(); + function Convert(); +private + object_: ThemeFamily; +end; + +type ChartSpaceUnitDecorator = class(ChartSpace) +public + function Create(_obj: ChartSpace); + function GetObject(); + function Convert(); +private + object_: ChartSpace; +end; + +type ChartUnitDecorator = class(Chart) +public + function Create(_obj: Chart); + function GetObject(); + function Convert(); +private + object_: Chart; +end; + +type LegendUnitDecorator = class(Legend) +public + function Create(_obj: Legend); + function GetObject(); + function Convert(); +private + object_: Legend; +end; + +type View3DUnitDecorator = class(View3D) +public + function Create(_obj: View3D); + function GetObject(); + function Convert(); +private + object_: View3D; +end; + +type PlotAreaUnitDecorator = class(PlotArea) +public + function Create(_obj: PlotArea); + function GetObject(); + function Convert(); +private + object_: PlotArea; +end; + +type BarChartUnitDecorator = class(BarChart) +public + function Create(_obj: BarChart); + function GetObject(); + function Convert(); +private + object_: BarChart; +end; + +type SerUnitDecorator = class(Ser) +public + function Create(_obj: Ser); + function GetObject(); + function Convert(); +private + object_: Ser; +end; + +type DLblsUnitDecorator = class(DLbls) +public + function Create(_obj: DLbls); + function GetObject(); + function Convert(); +private + object_: DLbls; +end; + +type CatUnitDecorator = class(Cat) +public + function Create(_obj: Cat); + function GetObject(); + function Convert(); +private + object_: Cat; +end; + +type StrRefUnitDecorator = class(StrRef) +public + function Create(_obj: StrRef); + function GetObject(); + function Convert(); +private + object_: StrRef; +end; + +type ValUnitDecorator = class(Val) +public + function Create(_obj: Val); + function GetObject(); + function Convert(); +private + object_: Val; +end; + +type NumRefUnitDecorator = class(NumRef) +public + function Create(_obj: NumRef); + function GetObject(); + function Convert(); +private + object_: NumRef; +end; + +type StrCacheUnitDecorator = class(StrCache) +public + function Create(_obj: StrCache); + function GetObject(); + function Convert(); +private + object_: StrCache; +end; + +type NumCacheUnitDecorator = class(NumCache) +public + function Create(_obj: NumCache); + function GetObject(); + function Convert(); +private + object_: NumCache; +end; + +type PtUnitDecorator = class(Pt) +public + function Create(_obj: Pt); + function GetObject(); + function Convert(); +private + object_: Pt; +end; + +type AxUnitDecorator = class(Ax) +public + function Create(_obj: Ax); + function GetObject(); + function Convert(); +private + object_: Ax; +end; + +type NumFmtUnitDecorator = class(NumFmt) +public + function Create(_obj: NumFmt); + function GetObject(); + function Convert(); +private + object_: NumFmt; +end; + +type ScalingUnitDecorator = class(Scaling) +public + function Create(_obj: Scaling); + function GetObject(); + function Convert(); +private + object_: Scaling; +end; + +type DTableUnitDecorator = class(DTable) +public + function Create(_obj: DTable); + function GetObject(); + function Convert(); +private + object_: DTable; +end; + +type TxPrUnitDecorator = class(TxPr) +public + function Create(_obj: TxPr); + function GetObject(); + function Convert(); +private + object_: TxPr; +end; + +type TitleUnitDecorator = class(Title) +public + function Create(_obj: Title); + function GetObject(); + function Convert(); +private + object_: Title; +end; + +type TxUnitDecorator = class(Tx) +public + function Create(_obj: Tx); + function GetObject(); + function Convert(); +private + object_: Tx; +end; + +type RichUnitDecorator = class(Rich) +public + function Create(_obj: Rich); + function GetObject(); + function Convert(); +private + object_: Rich; +end; + +type BodyPrUnitDecorator = class(BodyPr) +public + function Create(_obj: BodyPr); + function GetObject(); + function Convert(); +private + object_: BodyPr; +end; + +type PrstTxWrapUnitDecorator = class(PrstTxWrap) +public + function Create(_obj: PrstTxWrap); + function GetObject(); + function Convert(); +private + object_: PrstTxWrap; +end; + +type PUnitDecorator = class(P) +public + function Create(_obj: P); + function GetObject(); + function Convert(); +private + object_: P; +end; + +type RPrUnitDecorator = class(RPr) +public + function Create(_obj: RPr); + function GetObject(); + function Convert(); +private + object_: RPr; +end; + +type PPrUnitDecorator = class(PPr) +public + function Create(_obj: PPr); + function GetObject(); + function Convert(); +private + object_: PPr; +end; + +type LatinUnitDecorator = class(Latin) +public + function Create(_obj: Latin); + function GetObject(); + function Convert(); +private + object_: Latin; +end; + +type RUnitDecorator = class(R) +public + function Create(_obj: R); + function GetObject(); + function Convert(); +private + object_: R; +end; + +type ExternalDataUnitDecorator = class(ExternalData) +public + function Create(_obj: ExternalData); + function GetObject(); + function Convert(); +private + object_: ExternalData; +end; + +type _InlineUnitDecorator = class(_Inline) +public + function Create(_obj: _Inline); + function GetObject(); + function Convert(); +private + object_: _Inline; +end; + +type EffectExtentUnitDecorator = class(EffectExtent) +public + function Create(_obj: EffectExtent); + function GetObject(); + function Convert(); +private + object_: EffectExtent; +end; + +type DocPrUnitDecorator = class(DocPr) +public + function Create(_obj: DocPr); + function GetObject(); + function Convert(); +private + object_: DocPr; +end; + +type CNvGraphicFramePrUnitDecorator = class(CNvGraphicFramePr) +public + function Create(_obj: CNvGraphicFramePr); + function GetObject(); + function Convert(); +private + object_: CNvGraphicFramePr; +end; + +type GraphicFrameLocksUnitDecorator = class(GraphicFrameLocks) +public + function Create(_obj: GraphicFrameLocks); + function GetObject(); + function Convert(); +private + object_: GraphicFrameLocks; +end; + +type GraphicUnitDecorator = class(Graphic) +public + function Create(_obj: Graphic); + function GetObject(); + function Convert(); +private + object_: Graphic; +end; + +type GraphicDataUnitDecorator = class(GraphicData) +public + function Create(_obj: GraphicData); + function GetObject(); + function Convert(); +private + object_: GraphicData; +end; + +type WspUnitDecorator = class(Wsp) +public + function Create(_obj: Wsp); + function GetObject(); + function Convert(); +private + object_: Wsp; +end; + +type WpsStyleUnitDecorator = class(WpsStyle) +public + function Create(_obj: WpsStyle); + function GetObject(); + function Convert(); +private + object_: WpsStyle; +end; + +type XRefUnitDecorator = class(XRef) +public + function Create(_obj: XRef); + function GetObject(); + function Convert(); +private + object_: XRef; +end; + +type TxbxUnitDecorator = class(Txbx) +public + function Create(_obj: Txbx); + function GetObject(); + function Convert(); +private + object_: Txbx; +end; + +type CNvSpPrUnitDecorator = class(CNvSpPr) +public + function Create(_obj: CNvSpPr); + function GetObject(); + function Convert(); +private + object_: CNvSpPr; +end; + +type SpLocksUnitDecorator = class(SpLocks) +public + function Create(_obj: SpLocks); + function GetObject(); + function Convert(); +private + object_: SpLocks; +end; + +type PicUnitDecorator = class(Pic) +public + function Create(_obj: Pic); + function GetObject(); + function Convert(); +private + object_: Pic; +end; + +type NvPicPrUnitDecorator = class(NvPicPr) +public + function Create(_obj: NvPicPr); + function GetObject(); + function Convert(); +private + object_: NvPicPr; +end; + +type CNvPrUnitDecorator = class(CNvPr) +public + function Create(_obj: CNvPr); + function GetObject(); + function Convert(); +private + object_: CNvPr; +end; + +type CNvPicPrUnitDecorator = class(CNvPicPr) +public + function Create(_obj: CNvPicPr); + function GetObject(); + function Convert(); +private + object_: CNvPicPr; +end; + +type PicLocksUnitDecorator = class(PicLocks) +public + function Create(_obj: PicLocks); + function GetObject(); + function Convert(); +private + object_: PicLocks; +end; + +type BlipFillUnitDecorator = class(BlipFill) +public + function Create(_obj: BlipFill); + function GetObject(); + function Convert(); +private + object_: BlipFill; +end; + +type BlipUnitDecorator = class(Blip) +public + function Create(_obj: Blip); + function GetObject(); + function Convert(); +private + object_: Blip; +end; + +type StretchUnitDecorator = class(Stretch) +public + function Create(_obj: Stretch); + function GetObject(); + function Convert(); +private + object_: Stretch; +end; + +type SpPrUnitDecorator = class(SpPr) +public + function Create(_obj: SpPr); + function GetObject(); + function Convert(); +private + object_: SpPr; +end; + +type EffectLstUnitDecorator = class(EffectLst) +public + function Create(_obj: EffectLst); + function GetObject(); + function Convert(); +private + object_: EffectLst; +end; + +type LnUnitDecorator = class(Ln) +public + function Create(_obj: Ln); + function GetObject(); + function Convert(); +private + object_: Ln; +end; + +type MiterUnitDecorator = class(Miter) +public + function Create(_obj: Miter); + function GetObject(); + function Convert(); +private + object_: Miter; +end; + +type XfrmUnitDecorator = class(Xfrm) +public + function Create(_obj: Xfrm); + function GetObject(); + function Convert(); +private + object_: Xfrm; +end; + +type XYUnitDecorator = class(XY) +public + function Create(_obj: XY); + function GetObject(); + function Convert(); +private + object_: XY; +end; + +type CXYUnitDecorator = class(CXY) +public + function Create(_obj: CXY); + function GetObject(); + function Convert(); +private + object_: CXY; +end; + +type PrstGeomUnitDecorator = class(PrstGeom) +public + function Create(_obj: PrstGeom); + function GetObject(); + function Convert(); +private + object_: PrstGeom; +end; + +type AnchorUnitDecorator = class(Anchor) +public + function Create(_obj: Anchor); + function GetObject(); + function Convert(); +private + object_: Anchor; +end; + +type PositionVUnitDecorator = class(PositionV) +public + function Create(_obj: PositionV); + function GetObject(); + function Convert(); +private + object_: PositionV; +end; + +type PositionHUnitDecorator = class(PositionH) +public + function Create(_obj: PositionH); + function GetObject(); + function Convert(); +private + object_: PositionH; +end; + +type SizeRelHUnitDecorator = class(SizeRelH) +public + function Create(_obj: SizeRelH); + function GetObject(); + function Convert(); +private + object_: SizeRelH; +end; + +type SizeRelVUnitDecorator = class(SizeRelV) +public + function Create(_obj: SizeRelV); + function GetObject(); + function Convert(); +private + object_: SizeRelV; +end; + +implementation + +function ThemeUnitDecorator.Create(_obj: Theme); +begin + class(Theme).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ThemeUnitDecorator.GetObject(); +begin + return object_; +end; + +function ThemeUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrName) then + {self.}Name := object_.XmlAttrName.Value; + if not ifnil(object_.XmlChildThemeElements) then + {self.}XmlChildThemeElements := new ThemeElementsUnitDecorator(object_.XmlChildThemeElements); + if not ifnil(object_.XmlChildObjectDefaults) then + {self.}ObjectDefaults.Copy(object_.XmlChildObjectDefaults); + if not ifnil(object_.XmlChildExtraClrSchemeLst) then + {self.}ExtraClrSchemeLst.Copy(object_.XmlChildExtraClrSchemeLst); + if not ifnil(object_.XmlChildExtLst) then + {self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst); + tslassigning := tslassigning_backup; +end; + +function ThemeElementsUnitDecorator.Create(_obj: ThemeElements); +begin + class(ThemeElements).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ThemeElementsUnitDecorator.GetObject(); +begin + return object_; +end; + +function ThemeElementsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrName) then + {self.}Name := object_.XmlAttrName.Value; + if not ifnil(object_.XmlChildClrScheme) then + {self.}XmlChildClrScheme := new ClrSchemeUnitDecorator(object_.XmlChildClrScheme); + if not ifnil(object_.XmlChildFontScheme) then + {self.}XmlChildFontScheme := new FontSchemeUnitDecorator(object_.XmlChildFontScheme); + if not ifnil(object_.XmlChildFmtScheme) then + {self.}XmlChildFmtScheme := new FmtSchemeUnitDecorator(object_.XmlChildFmtScheme); + tslassigning := tslassigning_backup; +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; + +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; + +function SysClrUnitDecorator.Create(_obj: SysClr); +begin + class(SysClr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SysClrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SysClrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlAttrLastClr) then + {self.}LastClr := object_.XmlAttrLastClr.Value; + tslassigning := tslassigning_backup; +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; + +function SrgbClrUnitDecorator.Create(_obj: SrgbClr); +begin + class(SrgbClr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SrgbClrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SrgbClrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlChildAlpha) then + {self.}XmlChildAlpha := new PureValUnitDecorator(object_.XmlChildAlpha); + tslassigning := tslassigning_backup; +end; + +function PureValUnitDecorator.Create(_obj: PureVal); +begin + class(PureVal).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PureValUnitDecorator.GetObject(); +begin + return object_; +end; + +function PureValUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + tslassigning := tslassigning_backup; +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; + +function MFontUnitDecorator.Create(_obj: MFont); +begin + class(MFont).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function MFontUnitDecorator.GetObject(); +begin + return object_; +end; + +function MFontUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildLatin) then + {self.}XmlChildLatin := new LatinUnitDecorator(object_.XmlChildLatin); + if not ifnil(object_.XmlChildEa) then + {self.}XmlChildEa := new LatinUnitDecorator(object_.XmlChildEa); + if not ifnil(object_.XmlChildCs) then + {self.}XmlChildCs := new LatinUnitDecorator(object_.XmlChildCs); + elems := object_.Fonts(); + for _,elem in elems do + {self.}AppendChild(new FontUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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_.XmlAttrScript) then + {self.}Script := object_.XmlAttrScript.Value; + if not ifnil(object_.XmlAttrTypeface) then + {self.}Typeface := object_.XmlAttrTypeface.Value; + tslassigning := tslassigning_backup; +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; + +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; + +function SolidFillUnitDecorator.Create(_obj: SolidFill); +begin + class(SolidFill).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SolidFillUnitDecorator.GetObject(); +begin + return object_; +end; + +function SolidFillUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildSchemeClr) then + {self.}XmlChildSchemeClr := new SchemeClrUnitDecorator(object_.XmlChildSchemeClr); + tslassigning := tslassigning_backup; +end; + +function SchemeClrUnitDecorator.Create(_obj: SchemeClr); +begin + class(SchemeClr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SchemeClrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SchemeClrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + if not ifnil(object_.XmlChildLumMod) then + {self.}XmlChildLumMod := new PureValUnitDecorator(object_.XmlChildLumMod); + if not ifnil(object_.XmlChildSatMod) then + {self.}XmlChildSatMod := new PureValUnitDecorator(object_.XmlChildSatMod); + if not ifnil(object_.XmlChildTint) then + {self.}XmlChildTint := new PureValUnitDecorator(object_.XmlChildTint); + tslassigning := tslassigning_backup; +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; + +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; + +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; + +function LinUnitDecorator.Create(_obj: Lin); +begin + class(Lin).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LinUnitDecorator.GetObject(); +begin + return object_; +end; + +function LinUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrAng) then + {self.}Ang := object_.XmlAttrAng.Value; + if not ifnil(object_.XmlAttrScaled) then + {self.}Scaled := object_.XmlAttrScaled.Value; + tslassigning := tslassigning_backup; +end; + +function LnStyleLstUnitDecorator.Create(_obj: LnStyleLst); +begin + class(LnStyleLst).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LnStyleLstUnitDecorator.GetObject(); +begin + return object_; +end; + +function LnStyleLstUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Lns(); + for _,elem in elems do + {self.}AppendChild(new LnUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +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; + +function OuterShdwUnitDecorator.Create(_obj: OuterShdw); +begin + class(OuterShdw).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function OuterShdwUnitDecorator.GetObject(); +begin + return object_; +end; + +function OuterShdwUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrBlurRad) then + {self.}BlurRad := object_.XmlAttrBlurRad.Value; + if not ifnil(object_.XmlAttrDist) then + {self.}Dist := object_.XmlAttrDist.Value; + if not ifnil(object_.XmlAttrDir) then + {self.}Dir := object_.XmlAttrDir.Value; + if not ifnil(object_.XmlAttrAlgn) then + {self.}Algn := object_.XmlAttrAlgn.Value; + if not ifnil(object_.XmlAttrRotWithShape) then + {self.}RotWithShape := object_.XmlAttrRotWithShape.Value; + if not ifnil(object_.XmlChildSrgbClr) then + {self.}XmlChildSrgbClr := new SrgbClrUnitDecorator(object_.XmlChildSrgbClr); + tslassigning := tslassigning_backup; +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; + +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_.XmlChildThm15ThemeFamily) then + {self.}XmlChildThm15ThemeFamily := new ThemeFamilyUnitDecorator(object_.XmlChildThm15ThemeFamily); + if not ifnil(object_.XmlChildUniqueId) then + {self.}XmlChildUniqueId := new PureValUnitDecorator(object_.XmlChildUniqueId); + if not ifnil(object_.XmlChildSlicerStyles) then + {self.}XmlChildSlicerStyles := new SlicerStylesUnitDecorator(object_.XmlChildSlicerStyles); + if not ifnil(object_.XmlChildTimelineStyles) then + {self.}XmlChildTimelineStyles := new TimelineStylesUnitDecorator(object_.XmlChildTimelineStyles); + tslassigning := tslassigning_backup; +end; + +function SlicerStylesUnitDecorator.Create(_obj: SlicerStyles); +begin + class(SlicerStyles).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SlicerStylesUnitDecorator.GetObject(); +begin + return object_; +end; + +function SlicerStylesUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrDefaultSlicerStyle) then + {self.}DefaultSlicerStyle := object_.XmlAttrDefaultSlicerStyle.Value; + tslassigning := tslassigning_backup; +end; + +function TimelineStylesUnitDecorator.Create(_obj: TimelineStyles); +begin + class(TimelineStyles).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TimelineStylesUnitDecorator.GetObject(); +begin + return object_; +end; + +function TimelineStylesUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrDefaultTimelineStyle) then + {self.}DefaultTimelineStyle := object_.XmlAttrDefaultTimelineStyle.Value; + tslassigning := tslassigning_backup; +end; + +function ThemeFamilyUnitDecorator.Create(_obj: ThemeFamily); +begin + class(ThemeFamily).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ThemeFamilyUnitDecorator.GetObject(); +begin + return object_; +end; + +function ThemeFamilyUnitDecorator.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; + if not ifnil(object_.XmlAttrVid) then + {self.}Vid := object_.XmlAttrVid.Value; + tslassigning := tslassigning_backup; +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_.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; + +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_.XmlAttrId) then + {self.}Id := object_.XmlAttrId.Value; + 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; + +function LegendUnitDecorator.Create(_obj: Legend); +begin + class(Legend).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LegendUnitDecorator.GetObject(); +begin + return object_; +end; + +function LegendUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildLegendPos) then + {self.}XmlChildLegendPos := new PureValUnitDecorator(object_.XmlChildLegendPos); + if not ifnil(object_.XmlChildLayout) then + {self.}Layout.Copy(object_.XmlChildLayout); + if not ifnil(object_.XmlChildOverlay) then + {self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay); + if not ifnil(object_.XmlChildTxPr) then + {self.}XmlChildTxPr := new TxPrUnitDecorator(object_.XmlChildTxPr); + tslassigning := tslassigning_backup; +end; + +function View3DUnitDecorator.Create(_obj: View3D); +begin + class(View3D).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function View3DUnitDecorator.GetObject(); +begin + return object_; +end; + +function View3DUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRotX) then + {self.}XmlChildRotX := new PureValUnitDecorator(object_.XmlChildRotX); + if not ifnil(object_.XmlChildRotY) then + {self.}XmlChildRotY := new PureValUnitDecorator(object_.XmlChildRotY); + if not ifnil(object_.XmlChildRAngAx) then + {self.}XmlChildRAngAx := new PureValUnitDecorator(object_.XmlChildRAngAx); + tslassigning := tslassigning_backup; +end; + +function PlotAreaUnitDecorator.Create(_obj: PlotArea); +begin + class(PlotArea).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PlotAreaUnitDecorator.GetObject(); +begin + return object_; +end; + +function PlotAreaUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildLayout) then + {self.}Layout.Copy(object_.XmlChildLayout); + if not ifnil(object_.XmlChildBarChart) then + {self.}XmlChildBarChart := new BarChartUnitDecorator(object_.XmlChildBarChart); + if not ifnil(object_.XmlChildCatAx) then + {self.}XmlChildCatAx := new AxUnitDecorator(object_.XmlChildCatAx); + if not ifnil(object_.XmlChildValAx) then + {self.}XmlChildValAx := new AxUnitDecorator(object_.XmlChildValAx); + if not ifnil(object_.XmlChildDTable) then + {self.}XmlChildDTable := new DTableUnitDecorator(object_.XmlChildDTable); + if not ifnil(object_.XmlChildSpPr) then + {self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr); + tslassigning := tslassigning_backup; +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; + +function SerUnitDecorator.Create(_obj: Ser); +begin + class(Ser).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SerUnitDecorator.GetObject(); +begin + return object_; +end; + +function SerUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildIdx) then + {self.}XmlChildIdx := new PureValUnitDecorator(object_.XmlChildIdx); + if not ifnil(object_.XmlChild_Order) then + {self.}XmlChild_Order := new PureValUnitDecorator(object_.XmlChild_Order); + if not ifnil(object_.XmlChildTx) then + {self.}XmlChildTx := new TxUnitDecorator(object_.XmlChildTx); + if not ifnil(object_.XmlChildInvertIfNegative) then + {self.}XmlChildInvertIfNegative := new PureValUnitDecorator(object_.XmlChildInvertIfNegative); + if not ifnil(object_.XmlChildDLbls) then + {self.}XmlChildDLbls := new DLblsUnitDecorator(object_.XmlChildDLbls); + if not ifnil(object_.XmlChildCat) then + {self.}XmlChildCat := new CatUnitDecorator(object_.XmlChildCat); + if not ifnil(object_.XmlChildVal) then + {self.}XmlChildVal := new ValUnitDecorator(object_.XmlChildVal); + if not ifnil(object_.XmlChildExtLst) then + {self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst); + tslassigning := tslassigning_backup; +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; + +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; + +function StrRefUnitDecorator.Create(_obj: StrRef); +begin + class(StrRef).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function StrRefUnitDecorator.GetObject(); +begin + return object_; +end; + +function StrRefUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildF) then + if not ifnil(object_.XmlChildStrCache) then + {self.}XmlChildStrCache := new StrCacheUnitDecorator(object_.XmlChildStrCache); + tslassigning := tslassigning_backup; +end; + +function ValUnitDecorator.Create(_obj: Val); +begin + class(Val).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ValUnitDecorator.GetObject(); +begin + return object_; +end; + +function ValUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildNumRef) then + {self.}XmlChildNumRef := new NumRefUnitDecorator(object_.XmlChildNumRef); + tslassigning := tslassigning_backup; +end; + +function NumRefUnitDecorator.Create(_obj: NumRef); +begin + class(NumRef).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NumRefUnitDecorator.GetObject(); +begin + return object_; +end; + +function NumRefUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildF) then + if not ifnil(object_.XmlChildNumCache) then + {self.}XmlChildNumCache := new NumCacheUnitDecorator(object_.XmlChildNumCache); + tslassigning := tslassigning_backup; +end; + +function StrCacheUnitDecorator.Create(_obj: StrCache); +begin + class(StrCache).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function StrCacheUnitDecorator.GetObject(); +begin + return object_; +end; + +function StrCacheUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + 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; + +function NumCacheUnitDecorator.Create(_obj: NumCache); +begin + class(NumCache).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NumCacheUnitDecorator.GetObject(); +begin + return object_; +end; + +function NumCacheUnitDecorator.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; + +function PtUnitDecorator.Create(_obj: Pt); +begin + class(Pt).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PtUnitDecorator.GetObject(); +begin + return object_; +end; + +function PtUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrIdx) then + {self.}Idx := object_.XmlAttrIdx.Value; + if not ifnil(object_.XmlChildV) then + tslassigning := tslassigning_backup; +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; + +function NumFmtUnitDecorator.Create(_obj: NumFmt); +begin + class(NumFmt).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NumFmtUnitDecorator.GetObject(); +begin + return object_; +end; + +function NumFmtUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrFormatCode) then + {self.}FormatCode := object_.XmlAttrFormatCode.Value; + if not ifnil(object_.XmlAttrSourceLinked) then + {self.}SourceLinked := object_.XmlAttrSourceLinked.Value; + tslassigning := tslassigning_backup; +end; + +function ScalingUnitDecorator.Create(_obj: Scaling); +begin + class(Scaling).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ScalingUnitDecorator.GetObject(); +begin + return object_; +end; + +function ScalingUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildOrientation) then + {self.}XmlChildOrientation := new PureValUnitDecorator(object_.XmlChildOrientation); + tslassigning := tslassigning_backup; +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; + +function TxPrUnitDecorator.Create(_obj: TxPr); +begin + class(TxPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TxPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function TxPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildBodyPr) then + {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr); + if not ifnil(object_.XmlChildLstStyle) then + {self.}LstStyle.Copy(object_.XmlChildLstStyle); + elems := object_.Ps(); + for _,elem in elems do + {self.}AppendChild(new PUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function TitleUnitDecorator.Create(_obj: Title); +begin + class(Title).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TitleUnitDecorator.GetObject(); +begin + return object_; +end; + +function TitleUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTx) then + {self.}XmlChildTx := new TxUnitDecorator(object_.XmlChildTx); + if not ifnil(object_.XmlChildLayout) then + {self.}Layout.Copy(object_.XmlChildLayout); + if not ifnil(object_.XmlChildOverlay) then + {self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay); + tslassigning := tslassigning_backup; +end; + +function TxUnitDecorator.Create(_obj: Tx); +begin + class(Tx).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TxUnitDecorator.GetObject(); +begin + return object_; +end; + +function TxUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildStrRef) then + {self.}XmlChildStrRef := new StrRefUnitDecorator(object_.XmlChildStrRef); + if not ifnil(object_.XmlChildRich) then + {self.}XmlChildRich := new RichUnitDecorator(object_.XmlChildRich); + tslassigning := tslassigning_backup; +end; + +function RichUnitDecorator.Create(_obj: Rich); +begin + class(Rich).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RichUnitDecorator.GetObject(); +begin + return object_; +end; + +function RichUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildBodyPr) then + {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr); + if not ifnil(object_.XmlChildLstStyle) then + {self.}LstStyle.Copy(object_.XmlChildLstStyle); + elems := object_.Ps(); + for _,elem in elems do + {self.}AppendChild(new PUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function PrstTxWrapUnitDecorator.Create(_obj: PrstTxWrap); +begin + class(PrstTxWrap).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PrstTxWrapUnitDecorator.GetObject(); +begin + return object_; +end; + +function PrstTxWrapUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrPrst) then + {self.}Prst := object_.XmlAttrPrst.Value; + if not ifnil(object_.XmlChildAvLst) then + {self.}AvLst.Copy(object_.XmlChildAvLst); + tslassigning := tslassigning_backup; +end; + +function PUnitDecorator.Create(_obj: P); +begin + class(P).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PUnitDecorator.GetObject(); +begin + return object_; +end; + +function PUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildPPr) then + {self.}XmlChildPPr := new PPrUnitDecorator(object_.XmlChildPPr); + if not ifnil(object_.XmlChildEndParaRPr) then + {self.}XmlChildEndParaRPr := new RPrUnitDecorator(object_.XmlChildEndParaRPr); + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function RPrUnitDecorator.Create(_obj: RPr); +begin + class(RPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function RPrUnitDecorator.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; + +function PPrUnitDecorator.Create(_obj: PPr); +begin + class(PPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function PPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildDefRPr) then + {self.}XmlChildDefRPr := new RPrUnitDecorator(object_.XmlChildDefRPr); + tslassigning := tslassigning_backup; +end; + +function LatinUnitDecorator.Create(_obj: Latin); +begin + class(Latin).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LatinUnitDecorator.GetObject(); +begin + return object_; +end; + +function LatinUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrTypeface) then + {self.}Typeface := object_.XmlAttrTypeface.Value; + tslassigning := tslassigning_backup; +end; + +function RUnitDecorator.Create(_obj: R); +begin + class(R).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RUnitDecorator.GetObject(); +begin + return object_; +end; + +function RUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + if not ifnil(object_.XmlChildT) then + {self.}XmlChildT := new TUnitDecorator(object_.XmlChildT); + tslassigning := tslassigning_backup; +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; + +function _InlineUnitDecorator.Create(_obj: _Inline); +begin + class(_Inline).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function _InlineUnitDecorator.GetObject(); +begin + return object_; +end; + +function _InlineUnitDecorator.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_.XmlAttrAnchorId) then + {self.}AnchorId := object_.XmlAttrAnchorId.Value; + if not ifnil(object_.XmlAttrEditId) then + {self.}EditId := object_.XmlAttrEditId.Value; + 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_.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); + tslassigning := tslassigning_backup; +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; + +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; + if not ifnil(object_.XmlChildExtLst) then + {self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst); + tslassigning := tslassigning_backup; +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; + +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; + tslassigning := tslassigning_backup; +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_.XmlChildGraphicData) then + {self.}XmlChildGraphicData := new GraphicDataUnitDecorator(object_.XmlChildGraphicData); + tslassigning := tslassigning_backup; +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; + +function WspUnitDecorator.Create(_obj: Wsp); +begin + class(Wsp).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function WspUnitDecorator.GetObject(); +begin + return object_; +end; + +function WspUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildCNvSpPr) then + {self.}XmlChildCNvSpPr := new CNvSpPrUnitDecorator(object_.XmlChildCNvSpPr); + if not ifnil(object_.XmlChildSpPr) then + {self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr); + if not ifnil(object_.XmlChildTxbx) then + {self.}XmlChildTxbx := new TxbxUnitDecorator(object_.XmlChildTxbx); + if not ifnil(object_.XmlChildStyle) then + {self.}XmlChildStyle := new WpsStyleUnitDecorator(object_.XmlChildStyle); + if not ifnil(object_.XmlChildBodyPr) then + {self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr); + tslassigning := tslassigning_backup; +end; + +function WpsStyleUnitDecorator.Create(_obj: WpsStyle); +begin + class(WpsStyle).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function WpsStyleUnitDecorator.GetObject(); +begin + return object_; +end; + +function WpsStyleUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildLnRef) then + {self.}XmlChildLnRef := new XRefUnitDecorator(object_.XmlChildLnRef); + if not ifnil(object_.XmlChildFillRef) then + {self.}XmlChildFillRef := new XRefUnitDecorator(object_.XmlChildFillRef); + if not ifnil(object_.XmlChildEffectRef) then + {self.}XmlChildEffectRef := new XRefUnitDecorator(object_.XmlChildEffectRef); + if not ifnil(object_.XmlChildFontRef) then + {self.}XmlChildFontRef := new XRefUnitDecorator(object_.XmlChildFontRef); + tslassigning := tslassigning_backup; +end; + +function XRefUnitDecorator.Create(_obj: XRef); +begin + class(XRef).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function XRefUnitDecorator.GetObject(); +begin + return object_; +end; + +function XRefUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrIdx) then + {self.}Idx := object_.XmlAttrIdx.Value; + if not ifnil(object_.XmlChildSchemeClr) then + {self.}XmlChildSchemeClr := new SchemeClrUnitDecorator(object_.XmlChildSchemeClr); + tslassigning := tslassigning_backup; +end; + +function TxbxUnitDecorator.Create(_obj: Txbx); +begin + class(Txbx).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TxbxUnitDecorator.GetObject(); +begin + return object_; +end; + +function TxbxUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTxbxContent) then + {self.}XmlChildTxbxContent := new TxbxContentUnitDecorator(object_.XmlChildTxbxContent); + tslassigning := tslassigning_backup; +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; + +function SpLocksUnitDecorator.Create(_obj: SpLocks); +begin + class(SpLocks).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SpLocksUnitDecorator.GetObject(); +begin + return object_; +end; + +function SpLocksUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrNoChangeArrowheads) then + {self.}NoChangeArrowheads := object_.XmlAttrNoChangeArrowheads.Value; + tslassigning := tslassigning_backup; +end; + +function PicUnitDecorator.Create(_obj: Pic); +begin + class(Pic).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PicUnitDecorator.GetObject(); +begin + return object_; +end; + +function PicUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildNvPicPr) then + {self.}XmlChildNvPicPr := new NvPicPrUnitDecorator(object_.XmlChildNvPicPr); + if not ifnil(object_.XmlChildBlipFill) then + {self.}XmlChildBlipFill := new BlipFillUnitDecorator(object_.XmlChildBlipFill); + if not ifnil(object_.XmlChildSpPr) then + {self.}XmlChildSpPr := new SpPrUnitDecorator(object_.XmlChildSpPr); + tslassigning := tslassigning_backup; +end; + +function NvPicPrUnitDecorator.Create(_obj: NvPicPr); +begin + class(NvPicPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NvPicPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function NvPicPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildCNvPr) then + {self.}XmlChildCNvPr := new CNvPrUnitDecorator(object_.XmlChildCNvPr); + if not ifnil(object_.XmlChildCNvPicPr) then + {self.}XmlChildCNvPicPr := new CNvPicPrUnitDecorator(object_.XmlChildCNvPicPr); + tslassigning := tslassigning_backup; +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; + +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; + +function PicLocksUnitDecorator.Create(_obj: PicLocks); +begin + class(PicLocks).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PicLocksUnitDecorator.GetObject(); +begin + return object_; +end; + +function PicLocksUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrNoChangeAspect) then + {self.}NoChangeAspect := object_.XmlAttrNoChangeAspect.Value; + tslassigning := tslassigning_backup; +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; + +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; + +function StretchUnitDecorator.Create(_obj: Stretch); +begin + class(Stretch).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function StretchUnitDecorator.GetObject(); +begin + return object_; +end; + +function StretchUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildFillRect) then + {self.}XmlChildFillRect := new PureValUnitDecorator(object_.XmlChildFillRect); + tslassigning := tslassigning_backup; +end; + +function SpPrUnitDecorator.Create(_obj: SpPr); +begin + class(SpPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SpPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SpPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrBwMode) then + {self.}BwMode := object_.XmlAttrBwMode.Value; + if not ifnil(object_.XmlChildXfrm) then + {self.}XmlChildXfrm := new XfrmUnitDecorator(object_.XmlChildXfrm); + if not ifnil(object_.XmlChildPrstGeom) then + {self.}XmlChildPrstGeom := new PrstGeomUnitDecorator(object_.XmlChildPrstGeom); + if not ifnil(object_.XmlChildNoFill) then + {self.}NoFill.Copy(object_.XmlChildNoFill); + if not ifnil(object_.XmlChildSolidFill) then + {self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill); + if not ifnil(object_.XmlChildLn) then + {self.}XmlChildLn := new LnUnitDecorator(object_.XmlChildLn); + if not ifnil(object_.XmlChildEffectLst) then + {self.}XmlChildEffectLst := new EffectLstUnitDecorator(object_.XmlChildEffectLst); + tslassigning := tslassigning_backup; +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; + +function LnUnitDecorator.Create(_obj: Ln); +begin + class(Ln).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LnUnitDecorator.GetObject(); +begin + return object_; +end; + +function LnUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrW) then + {self.}W := object_.XmlAttrW.Value; + if not ifnil(object_.XmlAttrCap) then + {self.}Cap := object_.XmlAttrCap.Value; + if not ifnil(object_.XmlAttrCmpd) then + {self.}Cmpd := object_.XmlAttrCmpd.Value; + if not ifnil(object_.XmlAttrAlgn) then + {self.}Algn := object_.XmlAttrAlgn.Value; + if not ifnil(object_.XmlChildNoFill) then + {self.}NoFill.Copy(object_.XmlChildNoFill); + if not ifnil(object_.XmlChildSolidFill) then + {self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill); + if not ifnil(object_.XmlChildPrstDash) then + {self.}XmlChildPrstDash := new PureValUnitDecorator(object_.XmlChildPrstDash); + if not ifnil(object_.XmlChildMiter) then + {self.}XmlChildMiter := new MiterUnitDecorator(object_.XmlChildMiter); + if not ifnil(object_.XmlChildHeadEnd) then + {self.}HeadEnd.Copy(object_.XmlChildHeadEnd); + if not ifnil(object_.XmlChildTailEnd) then + {self.}TailEnd.Copy(object_.XmlChildTailEnd); + tslassigning := tslassigning_backup; +end; + +function MiterUnitDecorator.Create(_obj: Miter); +begin + class(Miter).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function MiterUnitDecorator.GetObject(); +begin + return object_; +end; + +function MiterUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrLim) then + {self.}Lim := object_.XmlAttrLim.Value; + tslassigning := tslassigning_backup; +end; + +function XfrmUnitDecorator.Create(_obj: Xfrm); +begin + class(Xfrm).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function XfrmUnitDecorator.GetObject(); +begin + return object_; +end; + +function XfrmUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildOff) then + {self.}XmlChildOff := new XYUnitDecorator(object_.XmlChildOff); + if not ifnil(object_.XmlChildExt) then + {self.}XmlChildExt := new CXYUnitDecorator(object_.XmlChildExt); + tslassigning := tslassigning_backup; +end; + +function XYUnitDecorator.Create(_obj: XY); +begin + class(XY).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function XYUnitDecorator.GetObject(); +begin + return object_; +end; + +function XYUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrX) then + {self.}X := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrX.Value); + if not ifnil(object_.XmlAttrY) then + {self.}Y := TSSafeUnitConverter.EmusToPoints(object_.XmlAttrY.Value); + tslassigning := tslassigning_backup; +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; + +function PrstGeomUnitDecorator.Create(_obj: PrstGeom); +begin + class(PrstGeom).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PrstGeomUnitDecorator.GetObject(); +begin + return object_; +end; + +function PrstGeomUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrPrst) then + {self.}Prst := object_.XmlAttrPrst.Value; + if not ifnil(object_.XmlChildAvLst) then + {self.}XmlChildAvLst := new PureValUnitDecorator(object_.XmlChildAvLst); + tslassigning := tslassigning_backup; +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; + +function PositionVUnitDecorator.Create(_obj: PositionV); +begin + class(PositionV).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PositionVUnitDecorator.GetObject(); +begin + return object_; +end; + +function PositionVUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrRelativeFrom) then + {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; + if not ifnil(object_.XmlChildPosOffset) then + {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPosOffset.Text); + tslassigning := tslassigning_backup; +end; + +function PositionHUnitDecorator.Create(_obj: PositionH); +begin + class(PositionH).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PositionHUnitDecorator.GetObject(); +begin + return object_; +end; + +function PositionHUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrRelativeFrom) then + {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; + if not ifnil(object_.XmlChildPosOffset) then + {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPosOffset.Text); + tslassigning := tslassigning_backup; +end; + +function SizeRelHUnitDecorator.Create(_obj: SizeRelH); +begin + class(SizeRelH).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SizeRelHUnitDecorator.GetObject(); +begin + return object_; +end; + +function SizeRelHUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrRelativeFrom) then + {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; + if not ifnil(object_.XmlChildPctWidth) then + {self.}PctWidth.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPctWidth.Text); + tslassigning := tslassigning_backup; +end; + +function SizeRelVUnitDecorator.Create(_obj: SizeRelV); +begin + class(SizeRelV).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SizeRelVUnitDecorator.GetObject(); +begin + return object_; +end; + +function SizeRelVUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrRelativeFrom) then + {self.}RelativeFrom := object_.XmlAttrRelativeFrom.Value; + if not ifnil(object_.XmlChildPctHeight) then + {self.}PctHeight.Text := TSSafeUnitConverter.EmusToPoints(object_.XmlChildPctHeight.Text); + tslassigning := tslassigning_backup; +end; + +end. \ No newline at end of file diff --git a/autounit/SharedML.tsf b/autounit/SharedML.tsf new file mode 100644 index 0000000..7bc7049 --- /dev/null +++ b/autounit/SharedML.tsf @@ -0,0 +1,3209 @@ +unit SharedML; +interface +uses DrawingML, DocxML; + +type MathPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: MathPr);override; +public + + // empty property + property DispDef read ReadXmlChildDispDef write WriteXmlChildDispDef; + function ReadXmlChildDispDef(); + function WriteXmlChildDispDef(_value); + + // normal property + property MathFont read ReadXmlChildMathFont; + property BrkBin read ReadXmlChildBrkBin; + property BrkBinSub read ReadXmlChildBrkBinSub; + property SmallFrac read ReadXmlChildSmallFrac; + property LMargin read ReadXmlChildLMargin; + property RMargin read ReadXmlChildRMargin; + property DefJc read ReadXmlChildDefJc; + property WrapIndent read ReadXmlChildWrapIndent; + property IntLim read ReadXmlChildIntLim; + property NaryLim read ReadXmlChildNaryLim; + function ReadXmlChildMathFont(): PureMVal; + function ReadXmlChildBrkBin(): PureMVal; + function ReadXmlChildBrkBinSub(): PureMVal; + function ReadXmlChildSmallFrac(): PureMVal; + function ReadXmlChildLMargin(): PureMVal; + function ReadXmlChildRMargin(): PureMVal; + function ReadXmlChildDefJc(): PureMVal; + function ReadXmlChildWrapIndent(): PureMVal; + function ReadXmlChildIntLim(): PureMVal; + function ReadXmlChildNaryLim(): PureMVal; + +public + // Children + XmlChildMathFont: PureMVal; + XmlChildBrkBin: PureMVal; + XmlChildBrkBinSub: PureMVal; + XmlChildSmallFrac: PureMVal; + XmlChildDispDef: OpenXmlEmpty; + XmlChildLMargin: PureMVal; + XmlChildRMargin: PureMVal; + XmlChildDefJc: PureMVal; + XmlChildWrapIndent: PureMVal; + XmlChildIntLim: PureMVal; + XmlChildNaryLim: PureMVal; +end; + +type OMathPara = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: OMathPara);override; +public + + // normal property + property OMathParaPr read ReadXmlChildOMathParaPr; + property OMath read ReadXmlChildOMath; + function ReadXmlChildOMathParaPr(): OMathParaPr; + function ReadXmlChildOMath(): OMath; + +public + // Children + XmlChildOMathParaPr: OMathParaPr; + XmlChildOMath: OMath; +end; + +type OMathParaPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: OMathParaPr);override; +public + + // normal property + property Jc read ReadXmlChildJc; + function ReadXmlChildJc(): PureMVal; + +public + // Children + XmlChildJc: PureMVal; +end; + +type PureMVal = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: PureMVal);override; +public + // attributes property + property Val read ReadXmlAttrVal write WriteXmlAttrVal; + function ReadXmlAttrVal(); + function WriteXmlAttrVal(_value); + +public + // Attributes + XmlAttrVal: OpenXmlAttribute; + +end; + +type OMath = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: OMath);override; +public + + // normal property + property SSub read ReadXmlChildSSub; + property Nary read ReadXmlChildNary; + function ReadXmlChildSSub(): SSub; + function ReadXmlChildNary(): Nary; + + // multi property + property Rs read ReadRs; + property Ds read ReadDs; + function ReadRs(_index); + function ReadDs(_index); + function AddR(): R; + function AddD(): D; + function AppendR(): R; + function AppendD(): D; + +public + // Children + XmlChildSSub: SSub; + XmlChildNary: Nary; +end; + +type R = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: R);override; +public + + // normal property + property RPr read ReadXmlChildRPr; + property ARPr read ReadXmlChildARPr; + property WRPr read ReadXmlChildWRPr; + property T read ReadXmlChildT; + function ReadXmlChildRPr(_ns: string): RPr; + function ReadXmlChildARPr(): RPr; + function ReadXmlChildWRPr(): RPr; + function ReadXmlChildT(): T; + +public + // Children + XmlChildRPr: RPr; + XmlChildARPr: RPr; + XmlChildWRPr: RPr; + XmlChildT: T; +end; + +type RPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: RPr);override; +public + + // normal property + property Sty read ReadXmlChildSty; + function ReadXmlChildSty(): PureMVal; + +public + // Children + XmlChildSty: PureMVal; +end; + +type T = class(OpenXmlPcdata) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: T);override; +public + // attributes property + property Space read ReadXmlAttrSpace write WriteXmlAttrSpace; + function ReadXmlAttrSpace(); + function WriteXmlAttrSpace(_value); + +public + // Attributes + XmlAttrSpace: OpenXmlAttribute; + +end; + +type D = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: D);override; +public + + // normal property + property DPr read ReadXmlChildDPr; + property E read ReadXmlChildE; + function ReadXmlChildDPr(): DPr; + function ReadXmlChildE(): E; + +public + // Children + XmlChildDPr: DPr; + XmlChildE: E; +end; + +type DPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: DPr);override; +public + + // normal property + property CtrlPr read ReadXmlChildCtrlPr; + property RPr read ReadXmlChildRPr; + function ReadXmlChildCtrlPr(): CtrlPr; + function ReadXmlChildRPr(): RPr; + +public + // Children + XmlChildCtrlPr: CtrlPr; + XmlChildRPr: RPr; +end; + +type CtrlPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CtrlPr);override; +public + + // normal property + property RPr read ReadXmlChildRPr; + function ReadXmlChildRPr(): RPr; + +public + // Children + XmlChildRPr: RPr; +end; + +type E = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: E);override; +public + + // normal property + property F read ReadXmlChildF; + property CtrlPr read ReadXmlChildCtrlPr; + function ReadXmlChildF(): F; + function ReadXmlChildCtrlPr(): CtrlPr; + + // multi property + property Rs read ReadRs; + property Ds read ReadDs; + property SSubs read ReadSSubs; + property Funcs read ReadFuncs; + function ReadRs(_index); + function ReadDs(_index); + function ReadSSubs(_index); + function ReadFuncs(_index); + function AddR(): R; + function AddD(): D; + function AddSSub(): SSub; + function AddFunc(): Func; + function AppendR(): R; + function AppendD(): D; + function AppendSSub(): SSub; + function AppendFunc(): Func; + +public + // Children + XmlChildF: F; + XmlChildCtrlPr: CtrlPr; +end; + +type F = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: F);override; +public + + // normal property + property FPr read ReadXmlChildFPr; + property Num read ReadXmlChildNum; + property Den read ReadXmlChildDen; + function ReadXmlChildFPr(): FPr; + function ReadXmlChildNum(): Num; + function ReadXmlChildDen(): Den; + +public + // Children + XmlChildFPr: FPr; + XmlChildNum: Num; + XmlChildDen: Den; +end; + +type FPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FPr);override; +public + + // normal property + property Type read ReadXmlChildType; + property CtrlPr read ReadXmlChildCtrlPr; + function ReadXmlChildType(): PureMVal; + function ReadXmlChildCtrlPr(): CtrlPr; + +public + // Children + XmlChildType: PureMVal; + XmlChildCtrlPr: CtrlPr; +end; + +type Num = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Num);override; +public + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Children +end; + +type Den = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Den);override; +public + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Children +end; + +type SSub = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SSub);override; +public + + // normal property + property SSubPr read ReadXmlChildSSubPr; + property E read ReadXmlChildE; + property Sub read ReadXmlChildSub; + function ReadXmlChildSSubPr(): SSubPr; + function ReadXmlChildE(): E; + function ReadXmlChildSub(): Sub; + +public + // Children + XmlChildSSubPr: SSubPr; + XmlChildE: E; + XmlChildSub: Sub; +end; + +type SSubPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: SSubPr);override; +public + + // normal property + property CtrlPr read ReadXmlChildCtrlPr; + function ReadXmlChildCtrlPr(): CtrlPr; + +public + // Children + XmlChildCtrlPr: CtrlPr; +end; + +type Sub = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Sub);override; +public + + // normal property + property CtrlPr read ReadXmlChildCtrlPr; + function ReadXmlChildCtrlPr(): CtrlPr; + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Children + XmlChildCtrlPr: CtrlPr; +end; + +type Nary = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Nary);override; +public + + // normal property + property NaryPr read ReadXmlChildNaryPr; + property Sub read ReadXmlChildSub; + property Sup read ReadXmlChildSup; + property E read ReadXmlChildE; + function ReadXmlChildNaryPr(): NaryPr; + function ReadXmlChildSub(): Sub; + function ReadXmlChildSup(): Sup; + function ReadXmlChildE(): E; + +public + // Children + XmlChildNaryPr: NaryPr; + XmlChildSub: Sub; + XmlChildSup: Sup; + XmlChildE: E; +end; + +type NaryPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: NaryPr);override; +public + + // normal property + property Chr read ReadXmlChildChr; + property CtrlPr read ReadXmlChildCtrlPr; + function ReadXmlChildChr(): PureMVal; + function ReadXmlChildCtrlPr(): CtrlPr; + +public + // Children + XmlChildChr: PureMVal; + XmlChildCtrlPr: CtrlPr; +end; + +type Sup = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Sup);override; +public + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Children +end; + +type Func = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Func);override; +public + + // normal property + property FuncPr read ReadXmlChildFuncPr; + property FName read ReadXmlChildFName; + property E read ReadXmlChildE; + function ReadXmlChildFuncPr(): FuncPr; + function ReadXmlChildFName(): FName; + function ReadXmlChildE(): E; + +public + // Children + XmlChildFuncPr: FuncPr; + XmlChildFName: FName; + XmlChildE: E; +end; + +type FName = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FName);override; +public + + // multi property + property Rs read ReadRs; + function ReadRs(_index); + function AddR(): R; + function AppendR(): R; + +public + // Children +end; + +type FuncPr = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: FuncPr);override; +public + + // normal property + property CtrlPr read ReadXmlChildCtrlPr; + function ReadXmlChildCtrlPr(): CtrlPr; + +public + // Children + XmlChildCtrlPr: CtrlPr; +end; + +type CoreProperties = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: CoreProperties);override; +public + + // pcdata property + property Title read ReadXmlChildTitle; + property Subject read ReadXmlChildSubject; + property Creator read ReadXmlChildCreator; + property Keywords read ReadXmlChildKeywords; + property Description read ReadXmlChildDescription; + property LastModifiedBy read ReadXmlChildLastModifiedBy; + property Revision read ReadXmlChildRevision; + property LastPrinted read ReadXmlChildLastPrinted; + property Created read ReadXmlChildCreated; + property Modified read ReadXmlChildModified; + function ReadXmlChildTitle(); + function ReadXmlChildSubject(); + function ReadXmlChildCreator(); + function ReadXmlChildKeywords(); + function ReadXmlChildDescription(); + function ReadXmlChildLastModifiedBy(); + function ReadXmlChildRevision(); + function ReadXmlChildLastPrinted(); + function ReadXmlChildCreated(); + function ReadXmlChildModified(); + +public + // Children + XmlChildTitle: OpenXmlPcdata; + XmlChildSubject: OpenXmlPcdata; + XmlChildCreator: OpenXmlPcdata; + XmlChildKeywords: OpenXmlPcdata; + XmlChildDescription: OpenXmlPcdata; + XmlChildLastModifiedBy: OpenXmlPcdata; + XmlChildRevision: OpenXmlPcdata; + XmlChildLastPrinted: OpenXmlPcdata; + XmlChildCreated: Created; + XmlChildModified: Modified; +end; + +type Created = class(OpenXmlPcdata) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Created);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + +end; + +type Modified = class(OpenXmlPcdata) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Modified);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + +end; + +type Relationships = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Relationships);override; +public + + // multi property + property Relationships read ReadRelationships; + function ReadRelationships(_index); + function AddRelationship(): Relationship; + function AppendRelationship(): Relationship; + +public + // Children +end; + +type Relationship = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Relationship);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Type read ReadXmlAttrType write WriteXmlAttrType; + property Target read ReadXmlAttrTarget write WriteXmlAttrTarget; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrTarget(); + function WriteXmlAttrTarget(_value); + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + XmlAttrType: OpenXmlAttribute; + XmlAttrTarget: OpenXmlAttribute; + +end; + +type Types = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Types);override; +public + + // multi property + property Defaults read ReadDefaults; + property Overrides read ReadOverrides; + function ReadDefaults(_index); + function ReadOverrides(_index); + function AddDefault(): Default; + function AddOverride(): _Override; + function AppendDefault(): Default; + function AppendOverride(): _Override; + +public + // Children +end; + +type Default = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Default);override; +public + // attributes property + property Extension read ReadXmlAttrExtension write WriteXmlAttrExtension; + property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType; + function ReadXmlAttrExtension(); + function WriteXmlAttrExtension(_value); + function ReadXmlAttrContentType(); + function WriteXmlAttrContentType(_value); + +public + // Attributes + XmlAttrExtension: OpenXmlAttribute; + XmlAttrContentType: OpenXmlAttribute; + +end; + +type _Override = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: _Override);override; +public + // attributes property + property PartName read ReadXmlAttrPartName write WriteXmlAttrPartName; + property ContentType read ReadXmlAttrContentType write WriteXmlAttrContentType; + function ReadXmlAttrPartName(); + function WriteXmlAttrPartName(_value); + function ReadXmlAttrContentType(); + function WriteXmlAttrContentType(_value); + +public + // Attributes + XmlAttrPartName: OpenXmlAttribute; + XmlAttrContentType: OpenXmlAttribute; + +end; + +implementation + +function MathPr.Create();overload; +begin + {self.}Create(nil, "m", "mathPr"); +end; + +function MathPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function MathPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function MathPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "mathFont": array(0, makeweakref(thisFunction(ReadXmlChildMathFont))), + pre + "brkBin": array(1, makeweakref(thisFunction(ReadXmlChildBrkBin))), + pre + "brkBinSub": array(2, makeweakref(thisFunction(ReadXmlChildBrkBinSub))), + pre + "smallFrac": array(3, makeweakref(thisFunction(ReadXmlChildSmallFrac))), + pre + "dispDef": array(4, makeweakref(thisFunction(ReadXmlChildDispDef))), + pre + "lMargin": array(5, makeweakref(thisFunction(ReadXmlChildLMargin))), + pre + "rMargin": array(6, makeweakref(thisFunction(ReadXmlChildRMargin))), + pre + "defJc": array(7, makeweakref(thisFunction(ReadXmlChildDefJc))), + pre + "wrapIndent": array(8, makeweakref(thisFunction(ReadXmlChildWrapIndent))), + pre + "intLim": array(9, makeweakref(thisFunction(ReadXmlChildIntLim))), + pre + "naryLim": array(10, makeweakref(thisFunction(ReadXmlChildNaryLim))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function MathPr.Copy(_obj: MathPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildMathFont) then + {self.}MathFont.Copy(_obj.XmlChildMathFont); + if not ifnil(_obj.XmlChildBrkBin) then + {self.}BrkBin.Copy(_obj.XmlChildBrkBin); + if not ifnil(_obj.XmlChildBrkBinSub) then + {self.}BrkBinSub.Copy(_obj.XmlChildBrkBinSub); + if not ifnil(_obj.XmlChildSmallFrac) then + {self.}SmallFrac.Copy(_obj.XmlChildSmallFrac); + if not ifnil(_obj.XmlChildDispDef) then + ifnil({self.}XmlChildDispDef) ? {self.}DispDef.Copy(_obj.XmlChildDispDef) : {self.}XmlChildDispDef.Copy(_obj.XmlChildDispDef); + if not ifnil(_obj.XmlChildLMargin) then + {self.}LMargin.Copy(_obj.XmlChildLMargin); + if not ifnil(_obj.XmlChildRMargin) then + {self.}RMargin.Copy(_obj.XmlChildRMargin); + if not ifnil(_obj.XmlChildDefJc) then + {self.}DefJc.Copy(_obj.XmlChildDefJc); + if not ifnil(_obj.XmlChildWrapIndent) then + {self.}WrapIndent.Copy(_obj.XmlChildWrapIndent); + if not ifnil(_obj.XmlChildIntLim) then + {self.}IntLim.Copy(_obj.XmlChildIntLim); + if not ifnil(_obj.XmlChildNaryLim) then + {self.}NaryLim.Copy(_obj.XmlChildNaryLim); + tslassigning := tslassigning_backup; +end; + +function MathPr.ReadXmlChildDispDef(); +begin + if tslassigning then + begin + if ifnil({self.}XmlChildDispDef) then + begin + {self.}XmlChildDispDef := new OpenXmlEmpty(self, {self.}Prefix, "dispDef"); + container_.Set({self.}XmlChildDispDef); + end + return {self.}XmlChildDispDef; + end + return ifnil({self.}XmlChildDispDef) ? nil : {self.}XmlChildDispDef.BoolValue(); +end; + +function MathPr.WriteXmlChildDispDef(_value); +begin + if ifnil({self.}XmlChildDispDef) then + begin + {self.}XmlChildDispDef := new OpenXmlEmpty(self, {self.}Prefix, "dispDef"); + container_.Set({self.}XmlChildDispDef); + end + {self.}XmlChildDispDef.Value := _value; +end; + +function MathPr.ReadXmlChildMathFont(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildMathFont) then + begin + {self.}XmlChildMathFont := new PureMVal(self, {self.}Prefix, "mathFont"); + container_.Set({self.}XmlChildMathFont); + end + return {self.}XmlChildMathFont; +end; + +function MathPr.ReadXmlChildBrkBin(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildBrkBin) then + begin + {self.}XmlChildBrkBin := new PureMVal(self, {self.}Prefix, "brkBin"); + container_.Set({self.}XmlChildBrkBin); + end + return {self.}XmlChildBrkBin; +end; + +function MathPr.ReadXmlChildBrkBinSub(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildBrkBinSub) then + begin + {self.}XmlChildBrkBinSub := new PureMVal(self, {self.}Prefix, "brkBinSub"); + container_.Set({self.}XmlChildBrkBinSub); + end + return {self.}XmlChildBrkBinSub; +end; + +function MathPr.ReadXmlChildSmallFrac(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildSmallFrac) then + begin + {self.}XmlChildSmallFrac := new PureMVal(self, {self.}Prefix, "smallFrac"); + container_.Set({self.}XmlChildSmallFrac); + end + return {self.}XmlChildSmallFrac; +end; + +function MathPr.ReadXmlChildLMargin(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildLMargin) then + begin + {self.}XmlChildLMargin := new PureMVal(self, {self.}Prefix, "lMargin"); + container_.Set({self.}XmlChildLMargin); + end + return {self.}XmlChildLMargin; +end; + +function MathPr.ReadXmlChildRMargin(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildRMargin) then + begin + {self.}XmlChildRMargin := new PureMVal(self, {self.}Prefix, "rMargin"); + container_.Set({self.}XmlChildRMargin); + end + return {self.}XmlChildRMargin; +end; + +function MathPr.ReadXmlChildDefJc(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildDefJc) then + begin + {self.}XmlChildDefJc := new PureMVal(self, {self.}Prefix, "defJc"); + container_.Set({self.}XmlChildDefJc); + end + return {self.}XmlChildDefJc; +end; + +function MathPr.ReadXmlChildWrapIndent(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildWrapIndent) then + begin + {self.}XmlChildWrapIndent := new PureMVal(self, {self.}Prefix, "wrapIndent"); + container_.Set({self.}XmlChildWrapIndent); + end + return {self.}XmlChildWrapIndent; +end; + +function MathPr.ReadXmlChildIntLim(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildIntLim) then + begin + {self.}XmlChildIntLim := new PureMVal(self, {self.}Prefix, "intLim"); + container_.Set({self.}XmlChildIntLim); + end + return {self.}XmlChildIntLim; +end; + +function MathPr.ReadXmlChildNaryLim(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildNaryLim) then + begin + {self.}XmlChildNaryLim := new PureMVal(self, {self.}Prefix, "naryLim"); + container_.Set({self.}XmlChildNaryLim); + end + return {self.}XmlChildNaryLim; +end; + +function OMathPara.Create();overload; +begin + {self.}Create(nil, "m", "oMathPara"); +end; + +function OMathPara.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function OMathPara.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function OMathPara.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "OMathParaPr": array(0, makeweakref(thisFunction(ReadXmlChildOMathParaPr))), + pre + "OMath": array(1, makeweakref(thisFunction(ReadXmlChildOMath))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function OMathPara.Copy(_obj: OMathPara);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildOMathParaPr) then + {self.}OMathParaPr.Copy(_obj.XmlChildOMathParaPr); + if not ifnil(_obj.XmlChildOMath) then + {self.}OMath.Copy(_obj.XmlChildOMath); + tslassigning := tslassigning_backup; +end; + +function OMathPara.ReadXmlChildOMathParaPr(): OMathParaPr; +begin + if tslassigning and ifnil({self.}XmlChildOMathParaPr) then + begin + {self.}XmlChildOMathParaPr := new OMathParaPr(self, {self.}Prefix, "OMathParaPr"); + container_.Set({self.}XmlChildOMathParaPr); + end + return {self.}XmlChildOMathParaPr; +end; + +function OMathPara.ReadXmlChildOMath(): OMath; +begin + if tslassigning and ifnil({self.}XmlChildOMath) then + begin + {self.}XmlChildOMath := new OMath(self, {self.}Prefix, "OMath"); + container_.Set({self.}XmlChildOMath); + end + return {self.}XmlChildOMath; +end; + +function OMathParaPr.Create();overload; +begin + {self.}Create(nil, "m", "oMathParaPr"); +end; + +function OMathParaPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function OMathParaPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function OMathParaPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "jc": array(0, makeweakref(thisFunction(ReadXmlChildJc))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function OMathParaPr.Copy(_obj: OMathParaPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildJc) then + {self.}Jc.Copy(_obj.XmlChildJc); + tslassigning := tslassigning_backup; +end; + +function OMathParaPr.ReadXmlChildJc(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildJc) then + begin + {self.}XmlChildJc := new PureMVal(self, {self.}Prefix, "jc"); + container_.Set({self.}XmlChildJc); + end + return {self.}XmlChildJc; +end; + +function PureMVal.Create();overload; +begin + {self.}Create(nil, "m", ""); +end; + +function PureMVal.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function PureMVal.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function PureMVal.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "val": makeweakref(thisFunction(WriteXmlAttrVal)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function PureMVal.Copy(_obj: PureMVal);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Val) then + {self.}Val := _obj.Val; + tslassigning := tslassigning_backup; +end; + +function PureMVal.ReadXmlAttrVal(); +begin + return {self.}XmlAttrVal.Value; +end; + +function PureMVal.WriteXmlAttrVal(_value); +begin + if ifnil({self.}XmlAttrVal) then + begin + {self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil); + attributes_[length(attributes_)] := {self.}XmlAttrVal; + end + {self.}XmlAttrVal.Value := _value; +end; + +function OMath.Create();overload; +begin + {self.}Create(nil, "m", "oMath"); +end; + +function OMath.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function OMath.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function OMath.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + pre + "d": array(1, makeweakref(thisFunction(AppendD))), + pre + "sSub": array(2, makeweakref(thisFunction(ReadXmlChildSSub))), + pre + "nary": array(3, makeweakref(thisFunction(ReadXmlChildNary))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function OMath.Copy(_obj: OMath);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSSub) then + {self.}SSub.Copy(_obj.XmlChildSSub); + if not ifnil(_obj.XmlChildNary) then + {self.}Nary.Copy(_obj.XmlChildNary); + tslassigning := tslassigning_backup; +end; + +function OMath.ReadXmlChildSSub(): SSub; +begin + if tslassigning and ifnil({self.}XmlChildSSub) then + begin + {self.}XmlChildSSub := new SSub(self, {self.}Prefix, "sSub"); + container_.Set({self.}XmlChildSSub); + end + return {self.}XmlChildSSub; +end; + +function OMath.ReadXmlChildNary(): Nary; +begin + if tslassigning and ifnil({self.}XmlChildNary) then + begin + {self.}XmlChildNary := new Nary(self, {self.}Prefix, "nary"); + container_.Set({self.}XmlChildNary); + end + return {self.}XmlChildNary; +end; + +function OMath.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function OMath.ReadDs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "d", ind); +end; + +function OMath.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function OMath.AddD(): D; +begin + obj := new D(self, {self.}Prefix, "d"); + container_.Insert(obj); + return obj; +end; + +function OMath.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function OMath.AppendD(): D; +begin + obj := new D(self, {self.}Prefix, "d"); + container_.Append(obj); + return obj; +end; + +function R.Create();overload; +begin + {self.}Create(nil, "m", "r"); +end; + +function R.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function R.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function R.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), + "a:rPr": array(1, makeweakref(thisFunction(ReadXmlChildARPr))), + "w:rPr": array(2, makeweakref(thisFunction(ReadXmlChildWRPr))), + pre + "t": array(3, makeweakref(thisFunction(ReadXmlChildT))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function R.Copy(_obj: R);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + if not ifnil(_obj.XmlChildARPr) then + {self.}ARPr.Copy(_obj.XmlChildARPr); + if not ifnil(_obj.XmlChildWRPr) then + {self.}WRPr.Copy(_obj.XmlChildWRPr); + if not ifnil(_obj.XmlChildT) then + {self.}T.Copy(_obj.XmlChildT); + tslassigning := tslassigning_backup; +end; + +function R.ReadXmlChildRPr(_ns: string): RPr; +begin + if _ns = "a" then + return ReadXmlChildARPr(); + else if _ns = "w" then + return ReadXmlChildWRPr(); + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function R.ReadXmlChildARPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildARPr) then + begin + {self.}XmlChildARPr := new DrawingML.RPr(self, "a", "rPr"); + container_.Set({self.}XmlChildARPr); + end + return {self.}XmlChildARPr; +end; + +function R.ReadXmlChildWRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildWRPr) then + begin + {self.}XmlChildWRPr := new DocxML.RPr(self, "w", "rPr"); + container_.Set({self.}XmlChildWRPr); + end + return {self.}XmlChildWRPr; +end; + +function R.ReadXmlChildT(): T; +begin + if tslassigning and ifnil({self.}XmlChildT) then + begin + {self.}XmlChildT := new T(self, {self.}Prefix, "t"); + container_.Set({self.}XmlChildT); + end + return {self.}XmlChildT; +end; + +function RPr.Create();overload; +begin + {self.}Create(nil, "m", "rPr"); +end; + +function RPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function RPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function RPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "sty": array(0, makeweakref(thisFunction(ReadXmlChildSty))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function RPr.Copy(_obj: RPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSty) then + {self.}Sty.Copy(_obj.XmlChildSty); + tslassigning := tslassigning_backup; +end; + +function RPr.ReadXmlChildSty(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildSty) then + begin + {self.}XmlChildSty := new PureMVal(self, {self.}Prefix, "sty"); + container_.Set({self.}XmlChildSty); + end + return {self.}XmlChildSty; +end; + +function T.Create();overload; +begin + {self.}Create(nil, "w", "t"); +end; + +function T.Create(_node: XmlNode);overload; +begin + class(OpenXmlPcdata).Create(_node: XmlNode); +end; + +function T.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); +end; + +function T.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "xml:space": makeweakref(thisFunction(WriteXmlAttrSpace)), + ); +end; + +function T.Copy(_obj: T);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlPcdata).Copy(_obj); + if not ifnil(_obj.Space) then + {self.}Space := _obj.Space; + tslassigning := tslassigning_backup; +end; + +function T.ReadXmlAttrSpace(); +begin + return {self.}XmlAttrSpace.Value; +end; + +function T.WriteXmlAttrSpace(_value); +begin + if ifnil({self.}XmlAttrSpace) then + begin + {self.}XmlAttrSpace := new OpenXmlAttribute("xml", "space", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpace; + end + {self.}XmlAttrSpace.Value := _value; +end; + +function D.Create();overload; +begin + {self.}Create(nil, "m", "d"); +end; + +function D.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function D.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function D.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "dPr": array(0, makeweakref(thisFunction(ReadXmlChildDPr))), + pre + "e": array(1, makeweakref(thisFunction(ReadXmlChildE))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function D.Copy(_obj: D);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildDPr) then + {self.}DPr.Copy(_obj.XmlChildDPr); + if not ifnil(_obj.XmlChildE) then + {self.}E.Copy(_obj.XmlChildE); + tslassigning := tslassigning_backup; +end; + +function D.ReadXmlChildDPr(): DPr; +begin + if tslassigning and ifnil({self.}XmlChildDPr) then + begin + {self.}XmlChildDPr := new DPr(self, {self.}Prefix, "dPr"); + container_.Set({self.}XmlChildDPr); + end + return {self.}XmlChildDPr; +end; + +function D.ReadXmlChildE(): E; +begin + if tslassigning and ifnil({self.}XmlChildE) then + begin + {self.}XmlChildE := new E(self, {self.}Prefix, "e"); + container_.Set({self.}XmlChildE); + end + return {self.}XmlChildE; +end; + +function DPr.Create();overload; +begin + {self.}Create(nil, "m", "dPr"); +end; + +function DPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function DPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function DPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))), + "w:rPr": array(1, makeweakref(thisFunction(ReadXmlChildRPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function DPr.Copy(_obj: DPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildCtrlPr) then + {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function DPr.ReadXmlChildCtrlPr(): CtrlPr; +begin + if tslassigning and ifnil({self.}XmlChildCtrlPr) then + begin + {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr"); + container_.Set({self.}XmlChildCtrlPr); + end + return {self.}XmlChildCtrlPr; +end; + +function DPr.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new DocxML.RPr(self, "w", "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function CtrlPr.Create();overload; +begin + {self.}Create(nil, "m", "ctrlPr"); +end; + +function CtrlPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CtrlPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CtrlPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "rPr": array(0, makeweakref(thisFunction(ReadXmlChildRPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CtrlPr.Copy(_obj: CtrlPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildRPr) then + {self.}RPr.Copy(_obj.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function CtrlPr.ReadXmlChildRPr(): RPr; +begin + if tslassigning and ifnil({self.}XmlChildRPr) then + begin + {self.}XmlChildRPr := new DrawingML.RPr(self, {self.}Prefix, "rPr"); + container_.Set({self.}XmlChildRPr); + end + return {self.}XmlChildRPr; +end; + +function E.Create();overload; +begin + {self.}Create(nil, "m", "e"); +end; + +function E.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function E.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function E.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + pre + "d": array(1, makeweakref(thisFunction(AppendD))), + pre + "f": array(2, makeweakref(thisFunction(ReadXmlChildF))), + pre + "sSub": array(3, makeweakref(thisFunction(AppendSSub))), + pre + "func": array(4, makeweakref(thisFunction(AppendFunc))), + pre + "ctrlPr": array(5, makeweakref(thisFunction(ReadXmlChildCtrlPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function E.Copy(_obj: E);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildF) then + {self.}F.Copy(_obj.XmlChildF); + if not ifnil(_obj.XmlChildCtrlPr) then + {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function E.ReadXmlChildF(): F; +begin + if tslassigning and ifnil({self.}XmlChildF) then + begin + {self.}XmlChildF := new F(self, {self.}Prefix, "f"); + container_.Set({self.}XmlChildF); + end + return {self.}XmlChildF; +end; + +function E.ReadXmlChildCtrlPr(): CtrlPr; +begin + if tslassigning and ifnil({self.}XmlChildCtrlPr) then + begin + {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr"); + container_.Set({self.}XmlChildCtrlPr); + end + return {self.}XmlChildCtrlPr; +end; + +function E.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function E.ReadDs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "d", ind); +end; + +function E.ReadSSubs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "sSub", ind); +end; + +function E.ReadFuncs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "func", ind); +end; + +function E.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function E.AddD(): D; +begin + obj := new D(self, {self.}Prefix, "d"); + container_.Insert(obj); + return obj; +end; + +function E.AddSSub(): SSub; +begin + obj := new SSub(self, {self.}Prefix, "sSub"); + container_.Insert(obj); + return obj; +end; + +function E.AddFunc(): Func; +begin + obj := new Func(self, {self.}Prefix, "func"); + container_.Insert(obj); + return obj; +end; + +function E.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function E.AppendD(): D; +begin + obj := new D(self, {self.}Prefix, "d"); + container_.Append(obj); + return obj; +end; + +function E.AppendSSub(): SSub; +begin + obj := new SSub(self, {self.}Prefix, "sSub"); + container_.Append(obj); + return obj; +end; + +function E.AppendFunc(): Func; +begin + obj := new Func(self, {self.}Prefix, "func"); + container_.Append(obj); + return obj; +end; + +function F.Create();overload; +begin + {self.}Create(nil, "m", "f"); +end; + +function F.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function F.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function F.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "fPr": array(0, makeweakref(thisFunction(ReadXmlChildFPr))), + pre + "num": array(1, makeweakref(thisFunction(ReadXmlChildNum))), + pre + "den": array(2, makeweakref(thisFunction(ReadXmlChildDen))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function F.Copy(_obj: F);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildFPr) then + {self.}FPr.Copy(_obj.XmlChildFPr); + if not ifnil(_obj.XmlChildNum) then + {self.}Num.Copy(_obj.XmlChildNum); + if not ifnil(_obj.XmlChildDen) then + {self.}Den.Copy(_obj.XmlChildDen); + tslassigning := tslassigning_backup; +end; + +function F.ReadXmlChildFPr(): FPr; +begin + if tslassigning and ifnil({self.}XmlChildFPr) then + begin + {self.}XmlChildFPr := new FPr(self, {self.}Prefix, "fPr"); + container_.Set({self.}XmlChildFPr); + end + return {self.}XmlChildFPr; +end; + +function F.ReadXmlChildNum(): Num; +begin + if tslassigning and ifnil({self.}XmlChildNum) then + begin + {self.}XmlChildNum := new Num(self, {self.}Prefix, "num"); + container_.Set({self.}XmlChildNum); + end + return {self.}XmlChildNum; +end; + +function F.ReadXmlChildDen(): Den; +begin + if tslassigning and ifnil({self.}XmlChildDen) then + begin + {self.}XmlChildDen := new Den(self, {self.}Prefix, "den"); + container_.Set({self.}XmlChildDen); + end + return {self.}XmlChildDen; +end; + +function FPr.Create();overload; +begin + {self.}Create(nil, "m", "fPr"); +end; + +function FPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "type": array(0, makeweakref(thisFunction(ReadXmlChildType))), + pre + "ctrlPr": array(1, makeweakref(thisFunction(ReadXmlChildCtrlPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FPr.Copy(_obj: FPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildType) then + {self.}Type.Copy(_obj.XmlChildType); + if not ifnil(_obj.XmlChildCtrlPr) then + {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function FPr.ReadXmlChildType(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildType) then + begin + {self.}XmlChildType := new PureMVal(self, {self.}Prefix, "type"); + container_.Set({self.}XmlChildType); + end + return {self.}XmlChildType; +end; + +function FPr.ReadXmlChildCtrlPr(): CtrlPr; +begin + if tslassigning and ifnil({self.}XmlChildCtrlPr) then + begin + {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr"); + container_.Set({self.}XmlChildCtrlPr); + end + return {self.}XmlChildCtrlPr; +end; + +function Num.Create();overload; +begin + {self.}Create(nil, "m", "num"); +end; + +function Num.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Num.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Num.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Num.Copy(_obj: Num);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function Num.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function Num.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function Num.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function Den.Create();overload; +begin + {self.}Create(nil, "m", "den"); +end; + +function Den.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Den.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Den.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Den.Copy(_obj: Den);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function Den.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function Den.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function Den.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function SSub.Create();overload; +begin + {self.}Create(nil, "m", "sSub"); +end; + +function SSub.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SSub.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SSub.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "sSubPr": array(0, makeweakref(thisFunction(ReadXmlChildSSubPr))), + pre + "e": array(1, makeweakref(thisFunction(ReadXmlChildE))), + pre + "sub": array(2, makeweakref(thisFunction(ReadXmlChildSub))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SSub.Copy(_obj: SSub);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildSSubPr) then + {self.}SSubPr.Copy(_obj.XmlChildSSubPr); + if not ifnil(_obj.XmlChildE) then + {self.}E.Copy(_obj.XmlChildE); + if not ifnil(_obj.XmlChildSub) then + {self.}Sub.Copy(_obj.XmlChildSub); + tslassigning := tslassigning_backup; +end; + +function SSub.ReadXmlChildSSubPr(): SSubPr; +begin + if tslassigning and ifnil({self.}XmlChildSSubPr) then + begin + {self.}XmlChildSSubPr := new SSubPr(self, {self.}Prefix, "sSubPr"); + container_.Set({self.}XmlChildSSubPr); + end + return {self.}XmlChildSSubPr; +end; + +function SSub.ReadXmlChildE(): E; +begin + if tslassigning and ifnil({self.}XmlChildE) then + begin + {self.}XmlChildE := new E(self, {self.}Prefix, "e"); + container_.Set({self.}XmlChildE); + end + return {self.}XmlChildE; +end; + +function SSub.ReadXmlChildSub(): Sub; +begin + if tslassigning and ifnil({self.}XmlChildSub) then + begin + {self.}XmlChildSub := new Sub(self, {self.}Prefix, "sub"); + container_.Set({self.}XmlChildSub); + end + return {self.}XmlChildSub; +end; + +function SSubPr.Create();overload; +begin + {self.}Create(nil, "m", "sSubPr"); +end; + +function SSubPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function SSubPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function SSubPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function SSubPr.Copy(_obj: SSubPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildCtrlPr) then + {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function SSubPr.ReadXmlChildCtrlPr(): CtrlPr; +begin + if tslassigning and ifnil({self.}XmlChildCtrlPr) then + begin + {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr"); + container_.Set({self.}XmlChildCtrlPr); + end + return {self.}XmlChildCtrlPr; +end; + +function Sub.Create();overload; +begin + {self.}Create(nil, "m", "sub"); +end; + +function Sub.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Sub.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Sub.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + pre + "ctrlPr": array(1, makeweakref(thisFunction(ReadXmlChildCtrlPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Sub.Copy(_obj: Sub);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildCtrlPr) then + {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function Sub.ReadXmlChildCtrlPr(): CtrlPr; +begin + if tslassigning and ifnil({self.}XmlChildCtrlPr) then + begin + {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr"); + container_.Set({self.}XmlChildCtrlPr); + end + return {self.}XmlChildCtrlPr; +end; + +function Sub.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function Sub.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function Sub.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function Nary.Create();overload; +begin + {self.}Create(nil, "m", "nary"); +end; + +function Nary.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Nary.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Nary.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "naryPr": array(0, makeweakref(thisFunction(ReadXmlChildNaryPr))), + pre + "sub": array(1, makeweakref(thisFunction(ReadXmlChildSub))), + pre + "sup": array(2, makeweakref(thisFunction(ReadXmlChildSup))), + pre + "e": array(3, makeweakref(thisFunction(ReadXmlChildE))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Nary.Copy(_obj: Nary);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildNaryPr) then + {self.}NaryPr.Copy(_obj.XmlChildNaryPr); + if not ifnil(_obj.XmlChildSub) then + {self.}Sub.Copy(_obj.XmlChildSub); + if not ifnil(_obj.XmlChildSup) then + {self.}Sup.Copy(_obj.XmlChildSup); + if not ifnil(_obj.XmlChildE) then + {self.}E.Copy(_obj.XmlChildE); + tslassigning := tslassigning_backup; +end; + +function Nary.ReadXmlChildNaryPr(): NaryPr; +begin + if tslassigning and ifnil({self.}XmlChildNaryPr) then + begin + {self.}XmlChildNaryPr := new NaryPr(self, {self.}Prefix, "naryPr"); + container_.Set({self.}XmlChildNaryPr); + end + return {self.}XmlChildNaryPr; +end; + +function Nary.ReadXmlChildSub(): Sub; +begin + if tslassigning and ifnil({self.}XmlChildSub) then + begin + {self.}XmlChildSub := new Sub(self, {self.}Prefix, "sub"); + container_.Set({self.}XmlChildSub); + end + return {self.}XmlChildSub; +end; + +function Nary.ReadXmlChildSup(): Sup; +begin + if tslassigning and ifnil({self.}XmlChildSup) then + begin + {self.}XmlChildSup := new Sup(self, {self.}Prefix, "sup"); + container_.Set({self.}XmlChildSup); + end + return {self.}XmlChildSup; +end; + +function Nary.ReadXmlChildE(): E; +begin + if tslassigning and ifnil({self.}XmlChildE) then + begin + {self.}XmlChildE := new E(self, {self.}Prefix, "e"); + container_.Set({self.}XmlChildE); + end + return {self.}XmlChildE; +end; + +function NaryPr.Create();overload; +begin + {self.}Create(nil, "m", "naryPr"); +end; + +function NaryPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function NaryPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function NaryPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "chr": array(0, makeweakref(thisFunction(ReadXmlChildChr))), + pre + "ctrlPr": array(1, makeweakref(thisFunction(ReadXmlChildCtrlPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function NaryPr.Copy(_obj: NaryPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildChr) then + {self.}Chr.Copy(_obj.XmlChildChr); + if not ifnil(_obj.XmlChildCtrlPr) then + {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function NaryPr.ReadXmlChildChr(): PureMVal; +begin + if tslassigning and ifnil({self.}XmlChildChr) then + begin + {self.}XmlChildChr := new PureMVal(self, {self.}Prefix, "chr"); + container_.Set({self.}XmlChildChr); + end + return {self.}XmlChildChr; +end; + +function NaryPr.ReadXmlChildCtrlPr(): CtrlPr; +begin + if tslassigning and ifnil({self.}XmlChildCtrlPr) then + begin + {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr"); + container_.Set({self.}XmlChildCtrlPr); + end + return {self.}XmlChildCtrlPr; +end; + +function Sup.Create();overload; +begin + {self.}Create(nil, "m", "sup"); +end; + +function Sup.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Sup.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Sup.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Sup.Copy(_obj: Sup);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function Sup.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function Sup.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function Sup.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function Func.Create();overload; +begin + {self.}Create(nil, "m", "func"); +end; + +function Func.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Func.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Func.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "funcPr": array(0, makeweakref(thisFunction(ReadXmlChildFuncPr))), + pre + "fname": array(1, makeweakref(thisFunction(ReadXmlChildFName))), + pre + "e": array(2, makeweakref(thisFunction(ReadXmlChildE))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Func.Copy(_obj: Func);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildFuncPr) then + {self.}FuncPr.Copy(_obj.XmlChildFuncPr); + if not ifnil(_obj.XmlChildFName) then + {self.}FName.Copy(_obj.XmlChildFName); + if not ifnil(_obj.XmlChildE) then + {self.}E.Copy(_obj.XmlChildE); + tslassigning := tslassigning_backup; +end; + +function Func.ReadXmlChildFuncPr(): FuncPr; +begin + if tslassigning and ifnil({self.}XmlChildFuncPr) then + begin + {self.}XmlChildFuncPr := new FuncPr(self, {self.}Prefix, "funcPr"); + container_.Set({self.}XmlChildFuncPr); + end + return {self.}XmlChildFuncPr; +end; + +function Func.ReadXmlChildFName(): FName; +begin + if tslassigning and ifnil({self.}XmlChildFName) then + begin + {self.}XmlChildFName := new FName(self, {self.}Prefix, "fname"); + container_.Set({self.}XmlChildFName); + end + return {self.}XmlChildFName; +end; + +function Func.ReadXmlChildE(): E; +begin + if tslassigning and ifnil({self.}XmlChildE) then + begin + {self.}XmlChildE := new E(self, {self.}Prefix, "e"); + container_.Set({self.}XmlChildE); + end + return {self.}XmlChildE; +end; + +function FName.Create();overload; +begin + {self.}Create(nil, "m", "fname"); +end; + +function FName.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FName.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FName.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "r": array(0, makeweakref(thisFunction(AppendR))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FName.Copy(_obj: FName);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function FName.ReadRs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get(pre + "r", ind); +end; + +function FName.AddR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Insert(obj); + return obj; +end; + +function FName.AppendR(): R; +begin + obj := new R(self, {self.}Prefix, "r"); + container_.Append(obj); + return obj; +end; + +function FuncPr.Create();overload; +begin + {self.}Create(nil, "m", "funcPr"); +end; + +function FuncPr.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function FuncPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function FuncPr.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function FuncPr.Copy(_obj: FuncPr);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildCtrlPr) then + {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function FuncPr.ReadXmlChildCtrlPr(): CtrlPr; +begin + if tslassigning and ifnil({self.}XmlChildCtrlPr) then + begin + {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr"); + container_.Set({self.}XmlChildCtrlPr); + end + return {self.}XmlChildCtrlPr; +end; + +function CoreProperties.Create();overload; +begin + {self.}Create(nil, "cp", "coreProperties"); +end; + +function CoreProperties.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function CoreProperties.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function CoreProperties.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "dc:title": array(0, makeweakref(thisFunction(ReadXmlChildTitle))), + "dc:subject": array(1, makeweakref(thisFunction(ReadXmlChildSubject))), + "dc:creator": array(2, makeweakref(thisFunction(ReadXmlChildCreator))), + "cp:keywords": array(3, makeweakref(thisFunction(ReadXmlChildKeywords))), + "cp:description": array(4, makeweakref(thisFunction(ReadXmlChildDescription))), + "cp:lastModifiedBy": array(5, makeweakref(thisFunction(ReadXmlChildLastModifiedBy))), + "cp:revision": array(6, makeweakref(thisFunction(ReadXmlChildRevision))), + "cp:lastPrinted": array(7, makeweakref(thisFunction(ReadXmlChildLastPrinted))), + "dcterms:created": array(8, makeweakref(thisFunction(ReadXmlChildCreated))), + "dcterms:modified": array(9, makeweakref(thisFunction(ReadXmlChildModified))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function CoreProperties.Copy(_obj: CoreProperties);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTitle) then + {self.}Title.Copy(_obj.XmlChildTitle); + if not ifnil(_obj.XmlChildSubject) then + {self.}Subject.Copy(_obj.XmlChildSubject); + if not ifnil(_obj.XmlChildCreator) then + {self.}Creator.Copy(_obj.XmlChildCreator); + if not ifnil(_obj.XmlChildKeywords) then + {self.}Keywords.Copy(_obj.XmlChildKeywords); + if not ifnil(_obj.XmlChildDescription) then + {self.}Description.Copy(_obj.XmlChildDescription); + if not ifnil(_obj.XmlChildLastModifiedBy) then + {self.}LastModifiedBy.Copy(_obj.XmlChildLastModifiedBy); + if not ifnil(_obj.XmlChildRevision) then + {self.}Revision.Copy(_obj.XmlChildRevision); + if not ifnil(_obj.XmlChildLastPrinted) then + {self.}LastPrinted.Copy(_obj.XmlChildLastPrinted); + if not ifnil(_obj.XmlChildCreated) then + {self.}Created.Copy(_obj.XmlChildCreated); + if not ifnil(_obj.XmlChildModified) then + {self.}Modified.Copy(_obj.XmlChildModified); + tslassigning := tslassigning_backup; +end; + +function CoreProperties.ReadXmlChildTitle(); +begin + if tslassigning and ifnil({self.}XmlChildTitle) then + begin + {self.}XmlChildTitle := new OpenXmlPcdata(self, "dc", "title"); + container_.Set({self.}XmlChildTitle); + end + return {self.}XmlChildTitle; +end; + +function CoreProperties.ReadXmlChildSubject(); +begin + if tslassigning and ifnil({self.}XmlChildSubject) then + begin + {self.}XmlChildSubject := new OpenXmlPcdata(self, "dc", "subject"); + container_.Set({self.}XmlChildSubject); + end + return {self.}XmlChildSubject; +end; + +function CoreProperties.ReadXmlChildCreator(); +begin + if tslassigning and ifnil({self.}XmlChildCreator) then + begin + {self.}XmlChildCreator := new OpenXmlPcdata(self, "dc", "creator"); + container_.Set({self.}XmlChildCreator); + end + return {self.}XmlChildCreator; +end; + +function CoreProperties.ReadXmlChildKeywords(); +begin + if tslassigning and ifnil({self.}XmlChildKeywords) then + begin + {self.}XmlChildKeywords := new OpenXmlPcdata(self, "cp", "keywords"); + container_.Set({self.}XmlChildKeywords); + end + return {self.}XmlChildKeywords; +end; + +function CoreProperties.ReadXmlChildDescription(); +begin + if tslassigning and ifnil({self.}XmlChildDescription) then + begin + {self.}XmlChildDescription := new OpenXmlPcdata(self, "cp", "description"); + container_.Set({self.}XmlChildDescription); + end + return {self.}XmlChildDescription; +end; + +function CoreProperties.ReadXmlChildLastModifiedBy(); +begin + if tslassigning and ifnil({self.}XmlChildLastModifiedBy) then + begin + {self.}XmlChildLastModifiedBy := new OpenXmlPcdata(self, "cp", "lastModifiedBy"); + container_.Set({self.}XmlChildLastModifiedBy); + end + return {self.}XmlChildLastModifiedBy; +end; + +function CoreProperties.ReadXmlChildRevision(); +begin + if tslassigning and ifnil({self.}XmlChildRevision) then + begin + {self.}XmlChildRevision := new OpenXmlPcdata(self, "cp", "revision"); + container_.Set({self.}XmlChildRevision); + end + return {self.}XmlChildRevision; +end; + +function CoreProperties.ReadXmlChildLastPrinted(); +begin + if tslassigning and ifnil({self.}XmlChildLastPrinted) then + begin + {self.}XmlChildLastPrinted := new OpenXmlPcdata(self, "cp", "lastPrinted"); + container_.Set({self.}XmlChildLastPrinted); + end + return {self.}XmlChildLastPrinted; +end; + +function CoreProperties.ReadXmlChildCreated(); +begin + if tslassigning and ifnil({self.}XmlChildCreated) then + begin + {self.}XmlChildCreated := new Created(self, "dcterms", "created"); + container_.Set({self.}XmlChildCreated); + end + return {self.}XmlChildCreated; +end; + +function CoreProperties.ReadXmlChildModified(); +begin + if tslassigning and ifnil({self.}XmlChildModified) then + begin + {self.}XmlChildModified := new Modified(self, "dcterms", "modified"); + container_.Set({self.}XmlChildModified); + end + return {self.}XmlChildModified; +end; + +function Created.Create();overload; +begin + {self.}Create(nil, "dcterms", "created"); +end; + +function Created.Create(_node: XmlNode);overload; +begin + class(OpenXmlPcdata).Create(_node: XmlNode); +end; + +function Created.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); +end; + +function Created.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "xsi:type": makeweakref(thisFunction(WriteXmlAttrType)), + ); +end; + +function Created.Copy(_obj: Created);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlPcdata).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + tslassigning := tslassigning_backup; +end; + +function Created.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Created.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute("xsi", "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Modified.Create();overload; +begin + {self.}Create(nil, "dcterms", "modified"); +end; + +function Modified.Create(_node: XmlNode);overload; +begin + class(OpenXmlPcdata).Create(_node: XmlNode); +end; + +function Modified.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlPcdata).Create(_parent, _prefix, _local_name); +end; + +function Modified.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "xsi:type": makeweakref(thisFunction(WriteXmlAttrType)), + ); +end; + +function Modified.Copy(_obj: Modified);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlPcdata).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + tslassigning := tslassigning_backup; +end; + +function Modified.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Modified.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute("xsi", "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Relationships.Create();overload; +begin + {self.}Create(nil, "", "Relationships"); +end; + +function Relationships.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Relationships.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Relationships.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "Relationship": array(0, makeweakref(thisFunction(AppendRelationship))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Relationships.Copy(_obj: Relationships);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function Relationships.ReadRelationships(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get("Relationship", ind); +end; + +function Relationships.AddRelationship(): Relationship; +begin + obj := new Relationship(self, "", "Relationship"); + container_.Insert(obj); + return obj; +end; + +function Relationships.AppendRelationship(): Relationship; +begin + obj := new Relationship(self, "", "Relationship"); + container_.Append(obj); + return obj; +end; + +function Relationship.Create();overload; +begin + {self.}Create(nil, "", "Relationship"); +end; + +function Relationship.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Relationship.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Relationship.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "Id": makeweakref(thisFunction(WriteXmlAttrId)), + "Type": makeweakref(thisFunction(WriteXmlAttrType)), + "Target": makeweakref(thisFunction(WriteXmlAttrTarget)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Relationship.Copy(_obj: Relationship);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.Target) then + {self.}Target := _obj.Target; + tslassigning := tslassigning_backup; +end; + +function Relationship.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Relationship.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("", "Id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Relationship.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Relationship.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute("", "Type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Relationship.ReadXmlAttrTarget(); +begin + return {self.}XmlAttrTarget.Value; +end; + +function Relationship.WriteXmlAttrTarget(_value); +begin + if ifnil({self.}XmlAttrTarget) then + begin + {self.}XmlAttrTarget := new OpenXmlAttribute("", "Target", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTarget; + end + {self.}XmlAttrTarget.Value := _value; +end; + +function Types.Create();overload; +begin + {self.}Create(nil, "", "Types"); +end; + +function Types.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Types.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Types.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "Default": array(0, makeweakref(thisFunction(AppendDefault))), + "Override": array(1, makeweakref(thisFunction(AppendOverride))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Types.Copy(_obj: Types);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function Types.ReadDefaults(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get("Default", ind); +end; + +function Types.ReadOverrides(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get("Override", ind); +end; + +function Types.AddDefault(): Default; +begin + obj := new Default(self, "", "Default"); + container_.Insert(obj); + return obj; +end; + +function Types.AddOverride(): _Override; +begin + obj := new _Override(self, "", "Override"); + container_.Insert(obj); + return obj; +end; + +function Types.AppendDefault(): Default; +begin + obj := new Default(self, "", "Default"); + container_.Append(obj); + return obj; +end; + +function Types.AppendOverride(): _Override; +begin + obj := new _Override(self, "", "Override"); + container_.Append(obj); + return obj; +end; + +function Default.Create();overload; +begin + {self.}Create(nil, "", "Default"); +end; + +function Default.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Default.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Default.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "Extension": makeweakref(thisFunction(WriteXmlAttrExtension)), + "ContentType": makeweakref(thisFunction(WriteXmlAttrContentType)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Default.Copy(_obj: Default);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Extension) then + {self.}Extension := _obj.Extension; + if not ifnil(_obj.ContentType) then + {self.}ContentType := _obj.ContentType; + tslassigning := tslassigning_backup; +end; + +function Default.ReadXmlAttrExtension(); +begin + return {self.}XmlAttrExtension.Value; +end; + +function Default.WriteXmlAttrExtension(_value); +begin + if ifnil({self.}XmlAttrExtension) then + begin + {self.}XmlAttrExtension := new OpenXmlAttribute("", "Extension", nil); + attributes_[length(attributes_)] := {self.}XmlAttrExtension; + end + {self.}XmlAttrExtension.Value := _value; +end; + +function Default.ReadXmlAttrContentType(); +begin + return {self.}XmlAttrContentType.Value; +end; + +function Default.WriteXmlAttrContentType(_value); +begin + if ifnil({self.}XmlAttrContentType) then + begin + {self.}XmlAttrContentType := new OpenXmlAttribute("", "ContentType", nil); + attributes_[length(attributes_)] := {self.}XmlAttrContentType; + end + {self.}XmlAttrContentType.Value := _value; +end; + +function _Override.Create();overload; +begin + {self.}Create(nil, "", "Override"); +end; + +function _Override.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function _Override.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function _Override.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "PartName": makeweakref(thisFunction(WriteXmlAttrPartName)), + "ContentType": makeweakref(thisFunction(WriteXmlAttrContentType)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function _Override.Copy(_obj: _Override);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.PartName) then + {self.}PartName := _obj.PartName; + if not ifnil(_obj.ContentType) then + {self.}ContentType := _obj.ContentType; + tslassigning := tslassigning_backup; +end; + +function _Override.ReadXmlAttrPartName(); +begin + return {self.}XmlAttrPartName.Value; +end; + +function _Override.WriteXmlAttrPartName(_value); +begin + if ifnil({self.}XmlAttrPartName) then + begin + {self.}XmlAttrPartName := new OpenXmlAttribute("", "PartName", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPartName; + end + {self.}XmlAttrPartName.Value := _value; +end; + +function _Override.ReadXmlAttrContentType(); +begin + return {self.}XmlAttrContentType.Value; +end; + +function _Override.WriteXmlAttrContentType(_value); +begin + if ifnil({self.}XmlAttrContentType) then + begin + {self.}XmlAttrContentType := new OpenXmlAttribute("", "ContentType", nil); + attributes_[length(attributes_)] := {self.}XmlAttrContentType; + end + {self.}XmlAttrContentType.Value := _value; +end; + +end. \ No newline at end of file diff --git a/autounit/SharedMLAdapter.tsf b/autounit/SharedMLAdapter.tsf new file mode 100644 index 0000000..65588f2 --- /dev/null +++ b/autounit/SharedMLAdapter.tsf @@ -0,0 +1,43 @@ +unit SharedMLAdapter; +interface + +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; + +implementation + +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; + +end. \ No newline at end of file diff --git a/autounit/SharedMLUnitDecorator.tsf b/autounit/SharedMLUnitDecorator.tsf new file mode 100644 index 0000000..d743b2d --- /dev/null +++ b/autounit/SharedMLUnitDecorator.tsf @@ -0,0 +1,1103 @@ +unit SharedMLUnitDecorator; +interface +uses SharedML, TSSafeUnitConverter; + +type MathPrUnitDecorator = class(MathPr) +public + function Create(_obj: MathPr); + function GetObject(); + function Convert(); +private + object_: MathPr; +end; + +type OMathParaUnitDecorator = class(OMathPara) +public + function Create(_obj: OMathPara); + function GetObject(); + function Convert(); +private + object_: OMathPara; +end; + +type OMathParaPrUnitDecorator = class(OMathParaPr) +public + function Create(_obj: OMathParaPr); + function GetObject(); + function Convert(); +private + object_: OMathParaPr; +end; + +type PureMValUnitDecorator = class(PureMVal) +public + function Create(_obj: PureMVal); + function GetObject(); + function Convert(); +private + object_: PureMVal; +end; + +type OMathUnitDecorator = class(OMath) +public + function Create(_obj: OMath); + function GetObject(); + function Convert(); +private + object_: OMath; +end; + +type RUnitDecorator = class(R) +public + function Create(_obj: R); + function GetObject(); + function Convert(); +private + object_: R; +end; + +type RPrUnitDecorator = class(RPr) +public + function Create(_obj: RPr); + function GetObject(); + function Convert(); +private + object_: RPr; +end; + +type TUnitDecorator = class(T) +public + function Create(_obj: T); + function GetObject(); + function Convert(); +private + object_: T; +end; + +type DUnitDecorator = class(D) +public + function Create(_obj: D); + function GetObject(); + function Convert(); +private + object_: D; +end; + +type DPrUnitDecorator = class(DPr) +public + function Create(_obj: DPr); + function GetObject(); + function Convert(); +private + object_: DPr; +end; + +type CtrlPrUnitDecorator = class(CtrlPr) +public + function Create(_obj: CtrlPr); + function GetObject(); + function Convert(); +private + object_: CtrlPr; +end; + +type EUnitDecorator = class(E) +public + function Create(_obj: E); + function GetObject(); + function Convert(); +private + object_: E; +end; + +type FUnitDecorator = class(F) +public + function Create(_obj: F); + function GetObject(); + function Convert(); +private + object_: F; +end; + +type FPrUnitDecorator = class(FPr) +public + function Create(_obj: FPr); + function GetObject(); + function Convert(); +private + object_: FPr; +end; + +type NumUnitDecorator = class(Num) +public + function Create(_obj: Num); + function GetObject(); + function Convert(); +private + object_: Num; +end; + +type DenUnitDecorator = class(Den) +public + function Create(_obj: Den); + function GetObject(); + function Convert(); +private + object_: Den; +end; + +type SSubUnitDecorator = class(SSub) +public + function Create(_obj: SSub); + function GetObject(); + function Convert(); +private + object_: SSub; +end; + +type SSubPrUnitDecorator = class(SSubPr) +public + function Create(_obj: SSubPr); + function GetObject(); + function Convert(); +private + object_: SSubPr; +end; + +type SubUnitDecorator = class(Sub) +public + function Create(_obj: Sub); + function GetObject(); + function Convert(); +private + object_: Sub; +end; + +type NaryUnitDecorator = class(Nary) +public + function Create(_obj: Nary); + function GetObject(); + function Convert(); +private + object_: Nary; +end; + +type NaryPrUnitDecorator = class(NaryPr) +public + function Create(_obj: NaryPr); + function GetObject(); + function Convert(); +private + object_: NaryPr; +end; + +type SupUnitDecorator = class(Sup) +public + function Create(_obj: Sup); + function GetObject(); + function Convert(); +private + object_: Sup; +end; + +type FuncUnitDecorator = class(Func) +public + function Create(_obj: Func); + function GetObject(); + function Convert(); +private + object_: Func; +end; + +type FNameUnitDecorator = class(FName) +public + function Create(_obj: FName); + function GetObject(); + function Convert(); +private + object_: FName; +end; + +type FuncPrUnitDecorator = class(FuncPr) +public + function Create(_obj: FuncPr); + function GetObject(); + function Convert(); +private + object_: FuncPr; +end; + +type CorePropertiesUnitDecorator = class(CoreProperties) +public + function Create(_obj: CoreProperties); + function GetObject(); + function Convert(); +private + object_: CoreProperties; +end; + +type CreatedUnitDecorator = class(Created) +public + function Create(_obj: Created); + function GetObject(); + function Convert(); +private + object_: Created; +end; + +type ModifiedUnitDecorator = class(Modified) +public + function Create(_obj: Modified); + function GetObject(); + function Convert(); +private + object_: Modified; +end; + +type RelationshipsUnitDecorator = class(Relationships) +public + function Create(_obj: Relationships); + function GetObject(); + function Convert(); +private + object_: Relationships; +end; + +type RelationshipUnitDecorator = class(Relationship) +public + function Create(_obj: Relationship); + function GetObject(); + function Convert(); +private + object_: Relationship; +end; + +type TypesUnitDecorator = class(Types) +public + function Create(_obj: Types); + function GetObject(); + function Convert(); +private + object_: Types; +end; + +type DefaultUnitDecorator = class(Default) +public + function Create(_obj: Default); + function GetObject(); + function Convert(); +private + object_: Default; +end; + +type _OverrideUnitDecorator = class(_Override) +public + function Create(_obj: _Override); + function GetObject(); + function Convert(); +private + object_: _Override; +end; + +implementation + +function MathPrUnitDecorator.Create(_obj: MathPr); +begin + class(MathPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function MathPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function MathPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildMathFont) then + {self.}XmlChildMathFont := new PureMValUnitDecorator(object_.XmlChildMathFont); + if not ifnil(object_.XmlChildBrkBin) then + {self.}XmlChildBrkBin := new PureMValUnitDecorator(object_.XmlChildBrkBin); + if not ifnil(object_.XmlChildBrkBinSub) then + {self.}XmlChildBrkBinSub := new PureMValUnitDecorator(object_.XmlChildBrkBinSub); + if not ifnil(object_.XmlChildSmallFrac) then + {self.}XmlChildSmallFrac := new PureMValUnitDecorator(object_.XmlChildSmallFrac); + if not ifnil(object_.XmlChildDispDef) then + {self.}DispDef.Copy(object_.XmlChildDispDef); + if not ifnil(object_.XmlChildLMargin) then + {self.}XmlChildLMargin := new PureMValUnitDecorator(object_.XmlChildLMargin); + if not ifnil(object_.XmlChildRMargin) then + {self.}XmlChildRMargin := new PureMValUnitDecorator(object_.XmlChildRMargin); + if not ifnil(object_.XmlChildDefJc) then + {self.}XmlChildDefJc := new PureMValUnitDecorator(object_.XmlChildDefJc); + if not ifnil(object_.XmlChildWrapIndent) then + {self.}XmlChildWrapIndent := new PureMValUnitDecorator(object_.XmlChildWrapIndent); + if not ifnil(object_.XmlChildIntLim) then + {self.}XmlChildIntLim := new PureMValUnitDecorator(object_.XmlChildIntLim); + if not ifnil(object_.XmlChildNaryLim) then + {self.}XmlChildNaryLim := new PureMValUnitDecorator(object_.XmlChildNaryLim); + tslassigning := tslassigning_backup; +end; + +function OMathParaUnitDecorator.Create(_obj: OMathPara); +begin + class(OMathPara).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function OMathParaUnitDecorator.GetObject(); +begin + return object_; +end; + +function OMathParaUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildOMathParaPr) then + {self.}XmlChildOMathParaPr := new OMathParaPrUnitDecorator(object_.XmlChildOMathParaPr); + if not ifnil(object_.XmlChildOMath) then + {self.}XmlChildOMath := new OMathUnitDecorator(object_.XmlChildOMath); + tslassigning := tslassigning_backup; +end; + +function OMathParaPrUnitDecorator.Create(_obj: OMathParaPr); +begin + class(OMathParaPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function OMathParaPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function OMathParaPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildJc) then + {self.}XmlChildJc := new PureMValUnitDecorator(object_.XmlChildJc); + tslassigning := tslassigning_backup; +end; + +function PureMValUnitDecorator.Create(_obj: PureMVal); +begin + class(PureMVal).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PureMValUnitDecorator.GetObject(); +begin + return object_; +end; + +function PureMValUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrVal) then + {self.}Val := object_.XmlAttrVal.Value; + tslassigning := tslassigning_backup; +end; + +function OMathUnitDecorator.Create(_obj: OMath); +begin + class(OMath).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function OMathUnitDecorator.GetObject(); +begin + return object_; +end; + +function OMathUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + elems := object_.Ds(); + for _,elem in elems do + {self.}AppendChild(new DUnitDecorator(elem)); + if not ifnil(object_.XmlChildSSub) then + {self.}XmlChildSSub := new SSubUnitDecorator(object_.XmlChildSSub); + if not ifnil(object_.XmlChildNary) then + {self.}XmlChildNary := new NaryUnitDecorator(object_.XmlChildNary); + tslassigning := tslassigning_backup; +end; + +function RUnitDecorator.Create(_obj: R); +begin + class(R).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RUnitDecorator.GetObject(); +begin + return object_; +end; + +function RUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + if not ifnil(object_.XmlChildARPr) then + {self.}XmlChildARPr := new RPrUnitDecorator(object_.XmlChildARPr); + if not ifnil(object_.XmlChildWRPr) then + {self.}XmlChildWRPr := new RPrUnitDecorator(object_.XmlChildWRPr); + if not ifnil(object_.XmlChildT) then + {self.}XmlChildT := new TUnitDecorator(object_.XmlChildT); + tslassigning := tslassigning_backup; +end; + +function RPrUnitDecorator.Create(_obj: RPr); +begin + class(RPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function RPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildSty) then + {self.}XmlChildSty := new PureMValUnitDecorator(object_.XmlChildSty); + tslassigning := tslassigning_backup; +end; + +function TUnitDecorator.Create(_obj: T); +begin + class(T).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TUnitDecorator.GetObject(); +begin + return object_; +end; + +function TUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrSpace) then + {self.}Space := object_.XmlAttrSpace.Value; + tslassigning := tslassigning_backup; +end; + +function DUnitDecorator.Create(_obj: D); +begin + class(D).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function DUnitDecorator.GetObject(); +begin + return object_; +end; + +function DUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildDPr) then + {self.}XmlChildDPr := new DPrUnitDecorator(object_.XmlChildDPr); + if not ifnil(object_.XmlChildE) then + {self.}XmlChildE := new EUnitDecorator(object_.XmlChildE); + tslassigning := tslassigning_backup; +end; + +function DPrUnitDecorator.Create(_obj: DPr); +begin + class(DPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function DPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function DPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildCtrlPr) then + {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr); + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function CtrlPrUnitDecorator.Create(_obj: CtrlPr); +begin + class(CtrlPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function CtrlPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function CtrlPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildRPr) then + {self.}XmlChildRPr := new RPrUnitDecorator(object_.XmlChildRPr); + tslassigning := tslassigning_backup; +end; + +function EUnitDecorator.Create(_obj: E); +begin + class(E).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function EUnitDecorator.GetObject(); +begin + return object_; +end; + +function EUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + elems := object_.Ds(); + for _,elem in elems do + {self.}AppendChild(new DUnitDecorator(elem)); + if not ifnil(object_.XmlChildF) then + {self.}XmlChildF := new FUnitDecorator(object_.XmlChildF); + elems := object_.SSubs(); + for _,elem in elems do + {self.}AppendChild(new SSubUnitDecorator(elem)); + elems := object_.Funcs(); + for _,elem in elems do + {self.}AppendChild(new FuncUnitDecorator(elem)); + if not ifnil(object_.XmlChildCtrlPr) then + {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +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_.XmlChildFPr) then + {self.}XmlChildFPr := new FPrUnitDecorator(object_.XmlChildFPr); + if not ifnil(object_.XmlChildNum) then + {self.}XmlChildNum := new NumUnitDecorator(object_.XmlChildNum); + if not ifnil(object_.XmlChildDen) then + {self.}XmlChildDen := new DenUnitDecorator(object_.XmlChildDen); + tslassigning := tslassigning_backup; +end; + +function FPrUnitDecorator.Create(_obj: FPr); +begin + class(FPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function FPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function FPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildType) then + {self.}XmlChildType := new PureMValUnitDecorator(object_.XmlChildType); + if not ifnil(object_.XmlChildCtrlPr) then + {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function NumUnitDecorator.Create(_obj: Num); +begin + class(Num).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NumUnitDecorator.GetObject(); +begin + return object_; +end; + +function NumUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function DenUnitDecorator.Create(_obj: Den); +begin + class(Den).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function DenUnitDecorator.GetObject(); +begin + return object_; +end; + +function DenUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function SSubUnitDecorator.Create(_obj: SSub); +begin + class(SSub).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SSubUnitDecorator.GetObject(); +begin + return object_; +end; + +function SSubUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildSSubPr) then + {self.}XmlChildSSubPr := new SSubPrUnitDecorator(object_.XmlChildSSubPr); + if not ifnil(object_.XmlChildE) then + {self.}XmlChildE := new EUnitDecorator(object_.XmlChildE); + if not ifnil(object_.XmlChildSub) then + {self.}XmlChildSub := new SubUnitDecorator(object_.XmlChildSub); + tslassigning := tslassigning_backup; +end; + +function SSubPrUnitDecorator.Create(_obj: SSubPr); +begin + class(SSubPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SSubPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function SSubPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildCtrlPr) then + {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function SubUnitDecorator.Create(_obj: Sub); +begin + class(Sub).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SubUnitDecorator.GetObject(); +begin + return object_; +end; + +function SubUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + if not ifnil(object_.XmlChildCtrlPr) then + {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function NaryUnitDecorator.Create(_obj: Nary); +begin + class(Nary).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NaryUnitDecorator.GetObject(); +begin + return object_; +end; + +function NaryUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildNaryPr) then + {self.}XmlChildNaryPr := new NaryPrUnitDecorator(object_.XmlChildNaryPr); + if not ifnil(object_.XmlChildSub) then + {self.}XmlChildSub := new SubUnitDecorator(object_.XmlChildSub); + if not ifnil(object_.XmlChildSup) then + {self.}XmlChildSup := new SupUnitDecorator(object_.XmlChildSup); + if not ifnil(object_.XmlChildE) then + {self.}XmlChildE := new EUnitDecorator(object_.XmlChildE); + tslassigning := tslassigning_backup; +end; + +function NaryPrUnitDecorator.Create(_obj: NaryPr); +begin + class(NaryPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function NaryPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function NaryPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildChr) then + {self.}XmlChildChr := new PureMValUnitDecorator(object_.XmlChildChr); + if not ifnil(object_.XmlChildCtrlPr) then + {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +end; + +function SupUnitDecorator.Create(_obj: Sup); +begin + class(Sup).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function SupUnitDecorator.GetObject(); +begin + return object_; +end; + +function SupUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function FuncUnitDecorator.Create(_obj: Func); +begin + class(Func).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function FuncUnitDecorator.GetObject(); +begin + return object_; +end; + +function FuncUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildFuncPr) then + {self.}XmlChildFuncPr := new FuncPrUnitDecorator(object_.XmlChildFuncPr); + if not ifnil(object_.XmlChildFName) then + {self.}XmlChildFName := new FNameUnitDecorator(object_.XmlChildFName); + if not ifnil(object_.XmlChildE) then + {self.}XmlChildE := new EUnitDecorator(object_.XmlChildE); + tslassigning := tslassigning_backup; +end; + +function FNameUnitDecorator.Create(_obj: FName); +begin + class(FName).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function FNameUnitDecorator.GetObject(); +begin + return object_; +end; + +function FNameUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Rs(); + for _,elem in elems do + {self.}AppendChild(new RUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function FuncPrUnitDecorator.Create(_obj: FuncPr); +begin + class(FuncPr).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function FuncPrUnitDecorator.GetObject(); +begin + return object_; +end; + +function FuncPrUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildCtrlPr) then + {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr); + tslassigning := tslassigning_backup; +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_.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; + +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_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + tslassigning := tslassigning_backup; +end; + +function ModifiedUnitDecorator.Create(_obj: Modified); +begin + class(Modified).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ModifiedUnitDecorator.GetObject(); +begin + return object_; +end; + +function ModifiedUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + tslassigning := tslassigning_backup; +end; + +function RelationshipsUnitDecorator.Create(_obj: Relationships); +begin + class(Relationships).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RelationshipsUnitDecorator.GetObject(); +begin + return object_; +end; + +function RelationshipsUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Relationships(); + for _,elem in elems do + {self.}AppendChild(new RelationshipUnitDecorator(elem)); + tslassigning := tslassigning_backup; +end; + +function RelationshipUnitDecorator.Create(_obj: Relationship); +begin + class(Relationship).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function RelationshipUnitDecorator.GetObject(); +begin + return object_; +end; + +function RelationshipUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrId) then + {self.}Id := object_.XmlAttrId.Value; + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + if not ifnil(object_.XmlAttrTarget) then + {self.}Target := object_.XmlAttrTarget.Value; + tslassigning := tslassigning_backup; +end; + +function TypesUnitDecorator.Create(_obj: Types); +begin + class(Types).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TypesUnitDecorator.GetObject(); +begin + return object_; +end; + +function TypesUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + elems := object_.Defaults(); + for _,elem in elems do + {self.}AppendChild(new DefaultUnitDecorator(elem)); + elems := object_.Overrides(); + for _,elem in elems do + {self.}AppendChild(new _OverrideUnitDecorator(elem)); + tslassigning := tslassigning_backup; +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; + +function _OverrideUnitDecorator.Create(_obj: _Override); +begin + class(_Override).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function _OverrideUnitDecorator.GetObject(); +begin + return object_; +end; + +function _OverrideUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrPartName) then + {self.}PartName := object_.XmlAttrPartName.Value; + if not ifnil(object_.XmlAttrContentType) then + {self.}ContentType := object_.XmlAttrContentType.Value; + tslassigning := tslassigning_backup; +end; + +end. \ No newline at end of file diff --git a/autounit/VXml.tsf b/autounit/VXml.tsf new file mode 100644 index 0000000..df9cf50 --- /dev/null +++ b/autounit/VXml.tsf @@ -0,0 +1,1965 @@ +unit VXml; +interface +uses DocxML; + +type Shapetype = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Shapetype);override; +public + // attributes property + property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId; + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Coordsize read ReadXmlAttrCoordsize write WriteXmlAttrCoordsize; + property Spt read ReadXmlAttrSpt write WriteXmlAttrSpt; + property Adj read ReadXmlAttrAdj write WriteXmlAttrAdj; + property Preferrelative read ReadXmlAttrPreferrelative write WriteXmlAttrPreferrelative; + property Path read ReadXmlAttrPath write WriteXmlAttrPath; + property Filled read ReadXmlAttrFilled write WriteXmlAttrFilled; + property Stroked read ReadXmlAttrStroked write WriteXmlAttrStroked; + function ReadXmlAttrAnchorId(); + function WriteXmlAttrAnchorId(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrCoordsize(); + function WriteXmlAttrCoordsize(_value); + function ReadXmlAttrSpt(); + function WriteXmlAttrSpt(_value); + function ReadXmlAttrAdj(); + function WriteXmlAttrAdj(_value); + function ReadXmlAttrPreferrelative(); + function WriteXmlAttrPreferrelative(_value); + function ReadXmlAttrPath(); + function WriteXmlAttrPath(_value); + function ReadXmlAttrFilled(); + function WriteXmlAttrFilled(_value); + function ReadXmlAttrStroked(); + function WriteXmlAttrStroked(_value); + + // normal property + property Stroke read ReadXmlChildStroke; + property Formulas read ReadXmlChildFormulas; + property Path read ReadXmlChildPath; + property Textpath read ReadXmlChildTextpath; + property Handles read ReadXmlChildHandles; + property Lock read ReadXmlChildLock; + function ReadXmlChildStroke(): Stroke; + function ReadXmlChildFormulas(): formulas; + function ReadXmlChildPath(): Path; + function ReadXmlChildTextpath(): Textpath; + function ReadXmlChildHandles(): Handles; + function ReadXmlChildLock(): Lock; + +public + // Attributes + XmlAttrAnchorId: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + XmlAttrCoordsize: OpenXmlAttribute; + XmlAttrSpt: OpenXmlAttribute; + XmlAttrAdj: OpenXmlAttribute; + XmlAttrPreferrelative: OpenXmlAttribute; + XmlAttrPath: OpenXmlAttribute; + XmlAttrFilled: OpenXmlAttribute; + XmlAttrStroked: OpenXmlAttribute; + + // Children + XmlChildStroke: Stroke; + XmlChildFormulas: formulas; + XmlChildPath: Path; + XmlChildTextpath: Textpath; + XmlChildHandles: Handles; + XmlChildLock: Lock; +end; + +type Formulas = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Formulas);override; +public + + // multi property + property Fs read ReadFs; + function ReadFs(_index); + function AddF(): Shapetype; + function AppendF(): Shapetype; + +public + // Children +end; + +type Lock = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Lock);override; +public + // attributes property + property Ext read ReadXmlAttrExt write WriteXmlAttrExt; + property Aspectration read ReadXmlAttrAspectration write WriteXmlAttrAspectration; + function ReadXmlAttrExt(); + function WriteXmlAttrExt(_value); + function ReadXmlAttrAspectration(); + function WriteXmlAttrAspectration(_value); + +public + // Attributes + XmlAttrExt: OpenXmlAttribute; + XmlAttrAspectration: OpenXmlAttribute; + +end; + +type F = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: F);override; +public + // attributes property + property Eqn read ReadXmlAttrEqn write WriteXmlAttrEqn; + function ReadXmlAttrEqn(); + function WriteXmlAttrEqn(_value); + +public + // Attributes + XmlAttrEqn: OpenXmlAttribute; + +end; + +type Stroke = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Stroke);override; +public + // attributes property + property Joinstyle read ReadXmlAttrJoinstyle write WriteXmlAttrJoinstyle; + function ReadXmlAttrJoinstyle(); + function WriteXmlAttrJoinstyle(_value); + +public + // Attributes + XmlAttrJoinstyle: OpenXmlAttribute; + +end; + +type Path = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Path);override; +public + // attributes property + property Extrusionok read ReadXmlAttrExtrusionok write WriteXmlAttrExtrusionok; + property Textpathok read ReadXmlAttrTextpathok write WriteXmlAttrTextpathok; + property Gradientshapeok read ReadXmlAttrGradientshapeok write WriteXmlAttrGradientshapeok; + property Connecttype read ReadXmlAttrConnecttype write WriteXmlAttrConnecttype; + property Connectlocs read ReadXmlAttrConnectlocs write WriteXmlAttrConnectlocs; + property Connectangles read ReadXmlAttrConnectangles write WriteXmlAttrConnectangles; + function ReadXmlAttrExtrusionok(); + function WriteXmlAttrExtrusionok(_value); + function ReadXmlAttrTextpathok(); + function WriteXmlAttrTextpathok(_value); + function ReadXmlAttrGradientshapeok(); + function WriteXmlAttrGradientshapeok(_value); + function ReadXmlAttrConnecttype(); + function WriteXmlAttrConnecttype(_value); + function ReadXmlAttrConnectlocs(); + function WriteXmlAttrConnectlocs(_value); + function ReadXmlAttrConnectangles(); + function WriteXmlAttrConnectangles(_value); + +public + // Attributes + XmlAttrExtrusionok: OpenXmlAttribute; + XmlAttrTextpathok: OpenXmlAttribute; + XmlAttrGradientshapeok: OpenXmlAttribute; + XmlAttrConnecttype: OpenXmlAttribute; + XmlAttrConnectlocs: OpenXmlAttribute; + XmlAttrConnectangles: OpenXmlAttribute; + +end; + +type Textpath = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Textpath);override; +public + // attributes property + property On read ReadXmlAttrOn write WriteXmlAttrOn; + property Fitshape read ReadXmlAttrFitshape write WriteXmlAttrFitshape; + function ReadXmlAttrOn(); + function WriteXmlAttrOn(_value); + function ReadXmlAttrFitshape(); + function WriteXmlAttrFitshape(_value); + +public + // Attributes + XmlAttrOn: OpenXmlAttribute; + XmlAttrFitshape: OpenXmlAttribute; + +end; + +type Handles = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Handles);override; +public + + // normal property + property H read ReadXmlChildH; + function ReadXmlChildH(): H; + +public + // Children + XmlChildH: H; +end; + +type H = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: H);override; +public + // attributes property + property Xrange read ReadXmlAttrXrange write WriteXmlAttrXrange; + property Position read ReadXmlAttrPosition write WriteXmlAttrPosition; + function ReadXmlAttrXrange(); + function WriteXmlAttrXrange(_value); + function ReadXmlAttrPosition(); + function WriteXmlAttrPosition(_value); + +public + // Attributes + XmlAttrXrange: OpenXmlAttribute; + XmlAttrPosition: OpenXmlAttribute; + +end; + +type Shape = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Shape);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Style read ReadXmlAttrStyle write WriteXmlAttrStyle; + property Spid read ReadXmlAttrSpid write WriteXmlAttrSpid; + property Type read ReadXmlAttrType write WriteXmlAttrType; + property Gfxdata read ReadXmlAttrGfxdata write WriteXmlAttrGfxdata; + property Filled read ReadXmlAttrFilled write WriteXmlAttrFilled; + property Allowincell read ReadXmlAttrAllowincell write WriteXmlAttrAllowincell; + property Fillcolor read ReadXmlAttrFillcolor write WriteXmlAttrFillcolor; + property Stroked read ReadXmlAttrStroked write WriteXmlAttrStroked; + property Ole read ReadXmlAttrOle write WriteXmlAttrOle; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrStyle(); + function WriteXmlAttrStyle(_value); + function ReadXmlAttrSpid(); + function WriteXmlAttrSpid(_value); + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrGfxdata(); + function WriteXmlAttrGfxdata(_value); + function ReadXmlAttrFilled(); + function WriteXmlAttrFilled(_value); + function ReadXmlAttrAllowincell(); + function WriteXmlAttrAllowincell(_value); + function ReadXmlAttrFillcolor(); + function WriteXmlAttrFillcolor(_value); + function ReadXmlAttrStroked(); + function WriteXmlAttrStroked(_value); + function ReadXmlAttrOle(); + function WriteXmlAttrOle(_value); + + // normal property + property Fill read ReadXmlChildFill; + property Textbox read ReadXmlChildTextbox; + property Textpath read ReadXmlChildTextpath; + property Imagedata read ReadXmlChildImagedata; + property Wrap read ReadXmlChildWrap; + function ReadXmlChildFill(): Fill; + function ReadXmlChildTextbox(): Textbox; + function ReadXmlChildTextpath(): Textpath; + function ReadXmlChildImagedata(): Imagedata; + function ReadXmlChildWrap(): Wrap; + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + XmlAttrStyle: OpenXmlAttribute; + XmlAttrSpid: OpenXmlAttribute; + XmlAttrType: OpenXmlAttribute; + XmlAttrGfxdata: OpenXmlAttribute; + XmlAttrFilled: OpenXmlAttribute; + XmlAttrAllowincell: OpenXmlAttribute; + XmlAttrFillcolor: OpenXmlAttribute; + XmlAttrStroked: OpenXmlAttribute; + XmlAttrOle: OpenXmlAttribute; + + // Children + XmlChildFill: Fill; + XmlChildTextbox: Textbox; + XmlChildTextpath: Textpath; + XmlChildImagedata: Imagedata; + XmlChildWrap: Wrap; +end; + +type Wrap = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Wrap);override; +public + // attributes property + property Anchorx read ReadXmlAttrAnchorx write WriteXmlAttrAnchorx; + property Anchory read ReadXmlAttrAnchory write WriteXmlAttrAnchory; + function ReadXmlAttrAnchorx(); + function WriteXmlAttrAnchorx(_value); + function ReadXmlAttrAnchory(); + function WriteXmlAttrAnchory(_value); + +public + // Attributes + XmlAttrAnchorx: OpenXmlAttribute; + XmlAttrAnchory: OpenXmlAttribute; + +end; + +type Fill = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Fill);override; +public + // attributes property + property Opacity read ReadXmlAttrOpacity write WriteXmlAttrOpacity; + function ReadXmlAttrOpacity(); + function WriteXmlAttrOpacity(_value); + +public + // Attributes + XmlAttrOpacity: OpenXmlAttribute; + +end; + +type Imagedata = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Imagedata);override; +public + // attributes property + property Id read ReadXmlAttrId write WriteXmlAttrId; + property Title read ReadXmlAttrTitle write WriteXmlAttrTitle; + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + function ReadXmlAttrTitle(); + function WriteXmlAttrTitle(_value); + +public + // Attributes + XmlAttrId: OpenXmlAttribute; + XmlAttrTitle: OpenXmlAttribute; + +end; + +type Textbox = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: Textbox);override; +public + + // normal property + property TxbxContent read ReadXmlChildTxbxContent; + function ReadXmlChildTxbxContent(): TxbxContent; + +public + // Children + XmlChildTxbxContent: TxbxContent; +end; + +type OLEObject = class(OpenXmlElement) +public + function Create();overload; + function Create(_node: XmlNode);overload; + function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; + function Init();override; + function Copy(_obj: OLEObject);override; +public + // attributes property + property Type read ReadXmlAttrType write WriteXmlAttrType; + property ProgID read ReadXmlAttrProgID write WriteXmlAttrProgID; + property ShapeID read ReadXmlAttrShapeID write WriteXmlAttrShapeID; + property DrawAspect read ReadXmlAttrDrawAspect write WriteXmlAttrDrawAspect; + property ObjectID read ReadXmlAttrObjectID write WriteXmlAttrObjectID; + property Id read ReadXmlAttrId write WriteXmlAttrId; + function ReadXmlAttrType(); + function WriteXmlAttrType(_value); + function ReadXmlAttrProgID(); + function WriteXmlAttrProgID(_value); + function ReadXmlAttrShapeID(); + function WriteXmlAttrShapeID(_value); + function ReadXmlAttrDrawAspect(); + function WriteXmlAttrDrawAspect(_value); + function ReadXmlAttrObjectID(); + function WriteXmlAttrObjectID(_value); + function ReadXmlAttrId(); + function WriteXmlAttrId(_value); + +public + // Attributes + XmlAttrType: OpenXmlAttribute; + XmlAttrProgID: OpenXmlAttribute; + XmlAttrShapeID: OpenXmlAttribute; + XmlAttrDrawAspect: OpenXmlAttribute; + XmlAttrObjectID: OpenXmlAttribute; + XmlAttrId: OpenXmlAttribute; + +end; + +implementation + +function Shapetype.Create();overload; +begin + {self.}Create(nil, "v", "shapetype"); +end; + +function Shapetype.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Shapetype.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Shapetype.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "w14:anchorId": makeweakref(thisFunction(WriteXmlAttrAnchorId)), + "id": makeweakref(thisFunction(WriteXmlAttrId)), + "coordsize": makeweakref(thisFunction(WriteXmlAttrCoordsize)), + "o:spt": makeweakref(thisFunction(WriteXmlAttrSpt)), + "adj": makeweakref(thisFunction(WriteXmlAttrAdj)), + "preferrelative": makeweakref(thisFunction(WriteXmlAttrPreferrelative)), + "path": makeweakref(thisFunction(WriteXmlAttrPath)), + "filled": makeweakref(thisFunction(WriteXmlAttrFilled)), + "stroked": makeweakref(thisFunction(WriteXmlAttrStroked)), + ); + sorted_child_ := array( + pre + "stroke": array(0, makeweakref(thisFunction(ReadXmlChildStroke))), + pre + "formulas": array(1, makeweakref(thisFunction(ReadXmlChildFormulas))), + pre + "path": array(2, makeweakref(thisFunction(ReadXmlChildPath))), + pre + "textpath": array(3, makeweakref(thisFunction(ReadXmlChildTextpath))), + pre + "handles": array(4, makeweakref(thisFunction(ReadXmlChildHandles))), + "o:lock": array(5, makeweakref(thisFunction(ReadXmlChildLock))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Shapetype.Copy(_obj: Shapetype);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.AnchorId) then + {self.}AnchorId := _obj.AnchorId; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Coordsize) then + {self.}Coordsize := _obj.Coordsize; + if not ifnil(_obj.Spt) then + {self.}Spt := _obj.Spt; + if not ifnil(_obj.Adj) then + {self.}Adj := _obj.Adj; + if not ifnil(_obj.Preferrelative) then + {self.}Preferrelative := _obj.Preferrelative; + if not ifnil(_obj.Path) then + {self.}Path := _obj.Path; + if not ifnil(_obj.Filled) then + {self.}Filled := _obj.Filled; + if not ifnil(_obj.Stroked) then + {self.}Stroked := _obj.Stroked; + if not ifnil(_obj.XmlChildStroke) then + {self.}Stroke.Copy(_obj.XmlChildStroke); + if not ifnil(_obj.XmlChildFormulas) then + {self.}Formulas.Copy(_obj.XmlChildFormulas); + if not ifnil(_obj.XmlChildPath) then + {self.}Path.Copy(_obj.XmlChildPath); + if not ifnil(_obj.XmlChildTextpath) then + {self.}Textpath.Copy(_obj.XmlChildTextpath); + if not ifnil(_obj.XmlChildHandles) then + {self.}Handles.Copy(_obj.XmlChildHandles); + if not ifnil(_obj.XmlChildLock) then + {self.}Lock.Copy(_obj.XmlChildLock); + tslassigning := tslassigning_backup; +end; + +function Shapetype.ReadXmlAttrAnchorId(); +begin + return {self.}XmlAttrAnchorId.Value; +end; + +function Shapetype.WriteXmlAttrAnchorId(_value); +begin + if ifnil({self.}XmlAttrAnchorId) then + begin + {self.}XmlAttrAnchorId := new OpenXmlAttribute("w14", "anchorId", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchorId; + end + {self.}XmlAttrAnchorId.Value := _value; +end; + +function Shapetype.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Shapetype.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Shapetype.ReadXmlAttrCoordsize(); +begin + return {self.}XmlAttrCoordsize.Value; +end; + +function Shapetype.WriteXmlAttrCoordsize(_value); +begin + if ifnil({self.}XmlAttrCoordsize) then + begin + {self.}XmlAttrCoordsize := new OpenXmlAttribute("", "coordsize", nil); + attributes_[length(attributes_)] := {self.}XmlAttrCoordsize; + end + {self.}XmlAttrCoordsize.Value := _value; +end; + +function Shapetype.ReadXmlAttrSpt(); +begin + return {self.}XmlAttrSpt.Value; +end; + +function Shapetype.WriteXmlAttrSpt(_value); +begin + if ifnil({self.}XmlAttrSpt) then + begin + {self.}XmlAttrSpt := new OpenXmlAttribute("o", "spt", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpt; + end + {self.}XmlAttrSpt.Value := _value; +end; + +function Shapetype.ReadXmlAttrAdj(); +begin + return {self.}XmlAttrAdj.Value; +end; + +function Shapetype.WriteXmlAttrAdj(_value); +begin + if ifnil({self.}XmlAttrAdj) then + begin + {self.}XmlAttrAdj := new OpenXmlAttribute("", "adj", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAdj; + end + {self.}XmlAttrAdj.Value := _value; +end; + +function Shapetype.ReadXmlAttrPreferrelative(); +begin + return {self.}XmlAttrPreferrelative.Value; +end; + +function Shapetype.WriteXmlAttrPreferrelative(_value); +begin + if ifnil({self.}XmlAttrPreferrelative) then + begin + {self.}XmlAttrPreferrelative := new OpenXmlAttribute("", "preferrelative", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPreferrelative; + end + {self.}XmlAttrPreferrelative.Value := _value; +end; + +function Shapetype.ReadXmlAttrPath(); +begin + return {self.}XmlAttrPath.Value; +end; + +function Shapetype.WriteXmlAttrPath(_value); +begin + if ifnil({self.}XmlAttrPath) then + begin + {self.}XmlAttrPath := new OpenXmlAttribute("", "path", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPath; + end + {self.}XmlAttrPath.Value := _value; +end; + +function Shapetype.ReadXmlAttrFilled(); +begin + return {self.}XmlAttrFilled.Value; +end; + +function Shapetype.WriteXmlAttrFilled(_value); +begin + if ifnil({self.}XmlAttrFilled) then + begin + {self.}XmlAttrFilled := new OpenXmlAttribute("", "filled", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFilled; + end + {self.}XmlAttrFilled.Value := _value; +end; + +function Shapetype.ReadXmlAttrStroked(); +begin + return {self.}XmlAttrStroked.Value; +end; + +function Shapetype.WriteXmlAttrStroked(_value); +begin + if ifnil({self.}XmlAttrStroked) then + begin + {self.}XmlAttrStroked := new OpenXmlAttribute("", "stroked", nil); + attributes_[length(attributes_)] := {self.}XmlAttrStroked; + end + {self.}XmlAttrStroked.Value := _value; +end; + +function Shapetype.ReadXmlChildStroke(): Stroke; +begin + if tslassigning and ifnil({self.}XmlChildStroke) then + begin + {self.}XmlChildStroke := new Stroke(self, {self.}Prefix, "stroke"); + container_.Set({self.}XmlChildStroke); + end + return {self.}XmlChildStroke; +end; + +function Shapetype.ReadXmlChildFormulas(): formulas; +begin + if tslassigning and ifnil({self.}XmlChildFormulas) then + begin + {self.}XmlChildFormulas := new formulas(self, {self.}Prefix, "formulas"); + container_.Set({self.}XmlChildFormulas); + end + return {self.}XmlChildFormulas; +end; + +function Shapetype.ReadXmlChildPath(): Path; +begin + if tslassigning and ifnil({self.}XmlChildPath) then + begin + {self.}XmlChildPath := new Path(self, {self.}Prefix, "path"); + container_.Set({self.}XmlChildPath); + end + return {self.}XmlChildPath; +end; + +function Shapetype.ReadXmlChildTextpath(): Textpath; +begin + if tslassigning and ifnil({self.}XmlChildTextpath) then + begin + {self.}XmlChildTextpath := new Textpath(self, {self.}Prefix, "textpath"); + container_.Set({self.}XmlChildTextpath); + end + return {self.}XmlChildTextpath; +end; + +function Shapetype.ReadXmlChildHandles(): Handles; +begin + if tslassigning and ifnil({self.}XmlChildHandles) then + begin + {self.}XmlChildHandles := new Handles(self, {self.}Prefix, "handles"); + container_.Set({self.}XmlChildHandles); + end + return {self.}XmlChildHandles; +end; + +function Shapetype.ReadXmlChildLock(): Lock; +begin + if tslassigning and ifnil({self.}XmlChildLock) then + begin + {self.}XmlChildLock := new Lock(self, "o", "lock"); + container_.Set({self.}XmlChildLock); + end + return {self.}XmlChildLock; +end; + +function Formulas.Create();overload; +begin + {self.}Create(nil, "v", "formulas"); +end; + +function Formulas.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Formulas.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Formulas.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "v:f": array(0, makeweakref(thisFunction(AppendF))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Formulas.Copy(_obj: Formulas);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + tslassigning := tslassigning_backup; +end; + +function Formulas.ReadFs(_index); +begin + ind := ifnil(_index) ? -2 : _index; + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + return container_.Get("v:f", ind); +end; + +function Formulas.AddF(): Shapetype; +begin + obj := new Shapetype(self, "v", "f"); + container_.Insert(obj); + return obj; +end; + +function Formulas.AppendF(): Shapetype; +begin + obj := new Shapetype(self, "v", "f"); + container_.Append(obj); + return obj; +end; + +function Lock.Create();overload; +begin + {self.}Create(nil, "o", "lock"); +end; + +function Lock.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Lock.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Lock.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "v:ext": makeweakref(thisFunction(WriteXmlAttrExt)), + "aspectration": makeweakref(thisFunction(WriteXmlAttrAspectration)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Lock.Copy(_obj: Lock);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Ext) then + {self.}Ext := _obj.Ext; + if not ifnil(_obj.Aspectration) then + {self.}Aspectration := _obj.Aspectration; + tslassigning := tslassigning_backup; +end; + +function Lock.ReadXmlAttrExt(); +begin + return {self.}XmlAttrExt.Value; +end; + +function Lock.WriteXmlAttrExt(_value); +begin + if ifnil({self.}XmlAttrExt) then + begin + {self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil); + attributes_[length(attributes_)] := {self.}XmlAttrExt; + end + {self.}XmlAttrExt.Value := _value; +end; + +function Lock.ReadXmlAttrAspectration(); +begin + return {self.}XmlAttrAspectration.Value; +end; + +function Lock.WriteXmlAttrAspectration(_value); +begin + if ifnil({self.}XmlAttrAspectration) then + begin + {self.}XmlAttrAspectration := new OpenXmlAttribute("", "aspectration", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAspectration; + end + {self.}XmlAttrAspectration.Value := _value; +end; + +function F.Create();overload; +begin + {self.}Create(nil, "v", "f"); +end; + +function F.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function F.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function F.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "eqn": makeweakref(thisFunction(WriteXmlAttrEqn)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function F.Copy(_obj: F);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Eqn) then + {self.}Eqn := _obj.Eqn; + tslassigning := tslassigning_backup; +end; + +function F.ReadXmlAttrEqn(); +begin + return {self.}XmlAttrEqn.Value; +end; + +function F.WriteXmlAttrEqn(_value); +begin + if ifnil({self.}XmlAttrEqn) then + begin + {self.}XmlAttrEqn := new OpenXmlAttribute("", "eqn", nil); + attributes_[length(attributes_)] := {self.}XmlAttrEqn; + end + {self.}XmlAttrEqn.Value := _value; +end; + +function Stroke.Create();overload; +begin + {self.}Create(nil, "v", "stroke"); +end; + +function Stroke.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Stroke.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Stroke.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "joinstyle": makeweakref(thisFunction(WriteXmlAttrJoinstyle)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Stroke.Copy(_obj: Stroke);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Joinstyle) then + {self.}Joinstyle := _obj.Joinstyle; + tslassigning := tslassigning_backup; +end; + +function Stroke.ReadXmlAttrJoinstyle(); +begin + return {self.}XmlAttrJoinstyle.Value; +end; + +function Stroke.WriteXmlAttrJoinstyle(_value); +begin + if ifnil({self.}XmlAttrJoinstyle) then + begin + {self.}XmlAttrJoinstyle := new OpenXmlAttribute("", "joinstyle", nil); + attributes_[length(attributes_)] := {self.}XmlAttrJoinstyle; + end + {self.}XmlAttrJoinstyle.Value := _value; +end; + +function Path.Create();overload; +begin + {self.}Create(nil, "v", "path"); +end; + +function Path.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Path.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Path.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "o:extrusionok": makeweakref(thisFunction(WriteXmlAttrExtrusionok)), + "textpathok": makeweakref(thisFunction(WriteXmlAttrTextpathok)), + "gradientshapeok": makeweakref(thisFunction(WriteXmlAttrGradientshapeok)), + "o:connecttype": makeweakref(thisFunction(WriteXmlAttrConnecttype)), + "o:connectlocs": makeweakref(thisFunction(WriteXmlAttrConnectlocs)), + "o:connectangles": makeweakref(thisFunction(WriteXmlAttrConnectangles)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Path.Copy(_obj: Path);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Extrusionok) then + {self.}Extrusionok := _obj.Extrusionok; + if not ifnil(_obj.Textpathok) then + {self.}Textpathok := _obj.Textpathok; + if not ifnil(_obj.Gradientshapeok) then + {self.}Gradientshapeok := _obj.Gradientshapeok; + if not ifnil(_obj.Connecttype) then + {self.}Connecttype := _obj.Connecttype; + if not ifnil(_obj.Connectlocs) then + {self.}Connectlocs := _obj.Connectlocs; + if not ifnil(_obj.Connectangles) then + {self.}Connectangles := _obj.Connectangles; + tslassigning := tslassigning_backup; +end; + +function Path.ReadXmlAttrExtrusionok(); +begin + return {self.}XmlAttrExtrusionok.Value; +end; + +function Path.WriteXmlAttrExtrusionok(_value); +begin + if ifnil({self.}XmlAttrExtrusionok) then + begin + {self.}XmlAttrExtrusionok := new OpenXmlAttribute("o", "extrusionok", nil); + attributes_[length(attributes_)] := {self.}XmlAttrExtrusionok; + end + {self.}XmlAttrExtrusionok.Value := _value; +end; + +function Path.ReadXmlAttrTextpathok(); +begin + return {self.}XmlAttrTextpathok.Value; +end; + +function Path.WriteXmlAttrTextpathok(_value); +begin + if ifnil({self.}XmlAttrTextpathok) then + begin + {self.}XmlAttrTextpathok := new OpenXmlAttribute("", "textpathok", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTextpathok; + end + {self.}XmlAttrTextpathok.Value := _value; +end; + +function Path.ReadXmlAttrGradientshapeok(); +begin + return {self.}XmlAttrGradientshapeok.Value; +end; + +function Path.WriteXmlAttrGradientshapeok(_value); +begin + if ifnil({self.}XmlAttrGradientshapeok) then + begin + {self.}XmlAttrGradientshapeok := new OpenXmlAttribute("", "gradientshapeok", nil); + attributes_[length(attributes_)] := {self.}XmlAttrGradientshapeok; + end + {self.}XmlAttrGradientshapeok.Value := _value; +end; + +function Path.ReadXmlAttrConnecttype(); +begin + return {self.}XmlAttrConnecttype.Value; +end; + +function Path.WriteXmlAttrConnecttype(_value); +begin + if ifnil({self.}XmlAttrConnecttype) then + begin + {self.}XmlAttrConnecttype := new OpenXmlAttribute("o", "connecttype", nil); + attributes_[length(attributes_)] := {self.}XmlAttrConnecttype; + end + {self.}XmlAttrConnecttype.Value := _value; +end; + +function Path.ReadXmlAttrConnectlocs(); +begin + return {self.}XmlAttrConnectlocs.Value; +end; + +function Path.WriteXmlAttrConnectlocs(_value); +begin + if ifnil({self.}XmlAttrConnectlocs) then + begin + {self.}XmlAttrConnectlocs := new OpenXmlAttribute("o", "connectlocs", nil); + attributes_[length(attributes_)] := {self.}XmlAttrConnectlocs; + end + {self.}XmlAttrConnectlocs.Value := _value; +end; + +function Path.ReadXmlAttrConnectangles(); +begin + return {self.}XmlAttrConnectangles.Value; +end; + +function Path.WriteXmlAttrConnectangles(_value); +begin + if ifnil({self.}XmlAttrConnectangles) then + begin + {self.}XmlAttrConnectangles := new OpenXmlAttribute("o", "connectangles", nil); + attributes_[length(attributes_)] := {self.}XmlAttrConnectangles; + end + {self.}XmlAttrConnectangles.Value := _value; +end; + +function Textpath.Create();overload; +begin + {self.}Create(nil, "v", "textpath"); +end; + +function Textpath.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Textpath.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Textpath.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "on": makeweakref(thisFunction(WriteXmlAttrOn)), + "fitshape": makeweakref(thisFunction(WriteXmlAttrFitshape)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Textpath.Copy(_obj: Textpath);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.On) then + {self.}On := _obj.On; + if not ifnil(_obj.Fitshape) then + {self.}Fitshape := _obj.Fitshape; + tslassigning := tslassigning_backup; +end; + +function Textpath.ReadXmlAttrOn(); +begin + return {self.}XmlAttrOn.Value; +end; + +function Textpath.WriteXmlAttrOn(_value); +begin + if ifnil({self.}XmlAttrOn) then + begin + {self.}XmlAttrOn := new OpenXmlAttribute("", "on", nil); + attributes_[length(attributes_)] := {self.}XmlAttrOn; + end + {self.}XmlAttrOn.Value := _value; +end; + +function Textpath.ReadXmlAttrFitshape(); +begin + return {self.}XmlAttrFitshape.Value; +end; + +function Textpath.WriteXmlAttrFitshape(_value); +begin + if ifnil({self.}XmlAttrFitshape) then + begin + {self.}XmlAttrFitshape := new OpenXmlAttribute("", "fitshape", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFitshape; + end + {self.}XmlAttrFitshape.Value := _value; +end; + +function Handles.Create();overload; +begin + {self.}Create(nil, "v", "handles"); +end; + +function Handles.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Handles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Handles.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + pre + "h": array(0, makeweakref(thisFunction(ReadXmlChildH))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Handles.Copy(_obj: Handles);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildH) then + {self.}H.Copy(_obj.XmlChildH); + tslassigning := tslassigning_backup; +end; + +function Handles.ReadXmlChildH(): H; +begin + if tslassigning and ifnil({self.}XmlChildH) then + begin + {self.}XmlChildH := new H(self, {self.}Prefix, "h"); + container_.Set({self.}XmlChildH); + end + return {self.}XmlChildH; +end; + +function H.Create();overload; +begin + {self.}Create(nil, "v", "h"); +end; + +function H.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function H.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function H.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "xrange": makeweakref(thisFunction(WriteXmlAttrXrange)), + "position": makeweakref(thisFunction(WriteXmlAttrPosition)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function H.Copy(_obj: H);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Xrange) then + {self.}Xrange := _obj.Xrange; + if not ifnil(_obj.Position) then + {self.}Position := _obj.Position; + tslassigning := tslassigning_backup; +end; + +function H.ReadXmlAttrXrange(); +begin + return {self.}XmlAttrXrange.Value; +end; + +function H.WriteXmlAttrXrange(_value); +begin + if ifnil({self.}XmlAttrXrange) then + begin + {self.}XmlAttrXrange := new OpenXmlAttribute("", "xrange", nil); + attributes_[length(attributes_)] := {self.}XmlAttrXrange; + end + {self.}XmlAttrXrange.Value := _value; +end; + +function H.ReadXmlAttrPosition(); +begin + return {self.}XmlAttrPosition.Value; +end; + +function H.WriteXmlAttrPosition(_value); +begin + if ifnil({self.}XmlAttrPosition) then + begin + {self.}XmlAttrPosition := new OpenXmlAttribute("", "position", nil); + attributes_[length(attributes_)] := {self.}XmlAttrPosition; + end + {self.}XmlAttrPosition.Value := _value; +end; + +function Shape.Create();overload; +begin + {self.}Create(nil, "v", "shape"); +end; + +function Shape.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Shape.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Shape.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "id": makeweakref(thisFunction(WriteXmlAttrId)), + "style": makeweakref(thisFunction(WriteXmlAttrStyle)), + "o:spid": makeweakref(thisFunction(WriteXmlAttrSpid)), + "type": makeweakref(thisFunction(WriteXmlAttrType)), + "o:gfxdata": makeweakref(thisFunction(WriteXmlAttrGfxdata)), + "filled": makeweakref(thisFunction(WriteXmlAttrFilled)), + "o:allowincell": makeweakref(thisFunction(WriteXmlAttrAllowincell)), + "fillcolor": makeweakref(thisFunction(WriteXmlAttrFillcolor)), + "stroked": makeweakref(thisFunction(WriteXmlAttrStroked)), + "o:ole": makeweakref(thisFunction(WriteXmlAttrOle)), + ); + sorted_child_ := array( + pre + "fill": array(0, makeweakref(thisFunction(ReadXmlChildFill))), + pre + "textbox": array(1, makeweakref(thisFunction(ReadXmlChildTextbox))), + pre + "textpath": array(2, makeweakref(thisFunction(ReadXmlChildTextpath))), + pre + "imagedata": array(3, makeweakref(thisFunction(ReadXmlChildImagedata))), + "w10:wrap": array(4, makeweakref(thisFunction(ReadXmlChildWrap))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Shape.Copy(_obj: Shape);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Style) then + {self.}Style := _obj.Style; + if not ifnil(_obj.Spid) then + {self.}Spid := _obj.Spid; + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.Gfxdata) then + {self.}Gfxdata := _obj.Gfxdata; + if not ifnil(_obj.Filled) then + {self.}Filled := _obj.Filled; + if not ifnil(_obj.Allowincell) then + {self.}Allowincell := _obj.Allowincell; + if not ifnil(_obj.Fillcolor) then + {self.}Fillcolor := _obj.Fillcolor; + if not ifnil(_obj.Stroked) then + {self.}Stroked := _obj.Stroked; + if not ifnil(_obj.Ole) then + {self.}Ole := _obj.Ole; + if not ifnil(_obj.XmlChildFill) then + {self.}Fill.Copy(_obj.XmlChildFill); + if not ifnil(_obj.XmlChildTextbox) then + {self.}Textbox.Copy(_obj.XmlChildTextbox); + if not ifnil(_obj.XmlChildTextpath) then + {self.}Textpath.Copy(_obj.XmlChildTextpath); + if not ifnil(_obj.XmlChildImagedata) then + {self.}Imagedata.Copy(_obj.XmlChildImagedata); + if not ifnil(_obj.XmlChildWrap) then + {self.}Wrap.Copy(_obj.XmlChildWrap); + tslassigning := tslassigning_backup; +end; + +function Shape.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Shape.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Shape.ReadXmlAttrStyle(); +begin + return {self.}XmlAttrStyle.Value; +end; + +function Shape.WriteXmlAttrStyle(_value); +begin + if ifnil({self.}XmlAttrStyle) then + begin + {self.}XmlAttrStyle := new OpenXmlAttribute("", "style", nil); + attributes_[length(attributes_)] := {self.}XmlAttrStyle; + end + {self.}XmlAttrStyle.Value := _value; +end; + +function Shape.ReadXmlAttrSpid(); +begin + return {self.}XmlAttrSpid.Value; +end; + +function Shape.WriteXmlAttrSpid(_value); +begin + if ifnil({self.}XmlAttrSpid) then + begin + {self.}XmlAttrSpid := new OpenXmlAttribute("o", "spid", nil); + attributes_[length(attributes_)] := {self.}XmlAttrSpid; + end + {self.}XmlAttrSpid.Value := _value; +end; + +function Shape.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function Shape.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute("", "type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function Shape.ReadXmlAttrGfxdata(); +begin + return {self.}XmlAttrGfxdata.Value; +end; + +function Shape.WriteXmlAttrGfxdata(_value); +begin + if ifnil({self.}XmlAttrGfxdata) then + begin + {self.}XmlAttrGfxdata := new OpenXmlAttribute("o", "gfxdata", nil); + attributes_[length(attributes_)] := {self.}XmlAttrGfxdata; + end + {self.}XmlAttrGfxdata.Value := _value; +end; + +function Shape.ReadXmlAttrFilled(); +begin + return {self.}XmlAttrFilled.Value; +end; + +function Shape.WriteXmlAttrFilled(_value); +begin + if ifnil({self.}XmlAttrFilled) then + begin + {self.}XmlAttrFilled := new OpenXmlAttribute("", "filled", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFilled; + end + {self.}XmlAttrFilled.Value := _value; +end; + +function Shape.ReadXmlAttrAllowincell(); +begin + return {self.}XmlAttrAllowincell.Value; +end; + +function Shape.WriteXmlAttrAllowincell(_value); +begin + if ifnil({self.}XmlAttrAllowincell) then + begin + {self.}XmlAttrAllowincell := new OpenXmlAttribute("o", "allowincell", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAllowincell; + end + {self.}XmlAttrAllowincell.Value := _value; +end; + +function Shape.ReadXmlAttrFillcolor(); +begin + return {self.}XmlAttrFillcolor.Value; +end; + +function Shape.WriteXmlAttrFillcolor(_value); +begin + if ifnil({self.}XmlAttrFillcolor) then + begin + {self.}XmlAttrFillcolor := new OpenXmlAttribute("", "fillcolor", nil); + attributes_[length(attributes_)] := {self.}XmlAttrFillcolor; + end + {self.}XmlAttrFillcolor.Value := _value; +end; + +function Shape.ReadXmlAttrStroked(); +begin + return {self.}XmlAttrStroked.Value; +end; + +function Shape.WriteXmlAttrStroked(_value); +begin + if ifnil({self.}XmlAttrStroked) then + begin + {self.}XmlAttrStroked := new OpenXmlAttribute("", "stroked", nil); + attributes_[length(attributes_)] := {self.}XmlAttrStroked; + end + {self.}XmlAttrStroked.Value := _value; +end; + +function Shape.ReadXmlAttrOle(); +begin + return {self.}XmlAttrOle.Value; +end; + +function Shape.WriteXmlAttrOle(_value); +begin + if ifnil({self.}XmlAttrOle) then + begin + {self.}XmlAttrOle := new OpenXmlAttribute("o", "ole", nil); + attributes_[length(attributes_)] := {self.}XmlAttrOle; + end + {self.}XmlAttrOle.Value := _value; +end; + +function Shape.ReadXmlChildFill(): Fill; +begin + if tslassigning and ifnil({self.}XmlChildFill) then + begin + {self.}XmlChildFill := new Fill(self, {self.}Prefix, "fill"); + container_.Set({self.}XmlChildFill); + end + return {self.}XmlChildFill; +end; + +function Shape.ReadXmlChildTextbox(): Textbox; +begin + if tslassigning and ifnil({self.}XmlChildTextbox) then + begin + {self.}XmlChildTextbox := new Textbox(self, {self.}Prefix, "textbox"); + container_.Set({self.}XmlChildTextbox); + end + return {self.}XmlChildTextbox; +end; + +function Shape.ReadXmlChildTextpath(): Textpath; +begin + if tslassigning and ifnil({self.}XmlChildTextpath) then + begin + {self.}XmlChildTextpath := new Textpath(self, {self.}Prefix, "textpath"); + container_.Set({self.}XmlChildTextpath); + end + return {self.}XmlChildTextpath; +end; + +function Shape.ReadXmlChildImagedata(): Imagedata; +begin + if tslassigning and ifnil({self.}XmlChildImagedata) then + begin + {self.}XmlChildImagedata := new Imagedata(self, {self.}Prefix, "imagedata"); + container_.Set({self.}XmlChildImagedata); + end + return {self.}XmlChildImagedata; +end; + +function Shape.ReadXmlChildWrap(): Wrap; +begin + if tslassigning and ifnil({self.}XmlChildWrap) then + begin + {self.}XmlChildWrap := new Wrap(self, "w10", "wrap"); + container_.Set({self.}XmlChildWrap); + end + return {self.}XmlChildWrap; +end; + +function Wrap.Create();overload; +begin + {self.}Create(nil, "w10", "wrap"); +end; + +function Wrap.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Wrap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Wrap.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "anchorx": makeweakref(thisFunction(WriteXmlAttrAnchorx)), + "anchory": makeweakref(thisFunction(WriteXmlAttrAnchory)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Wrap.Copy(_obj: Wrap);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Anchorx) then + {self.}Anchorx := _obj.Anchorx; + if not ifnil(_obj.Anchory) then + {self.}Anchory := _obj.Anchory; + tslassigning := tslassigning_backup; +end; + +function Wrap.ReadXmlAttrAnchorx(); +begin + return {self.}XmlAttrAnchorx.Value; +end; + +function Wrap.WriteXmlAttrAnchorx(_value); +begin + if ifnil({self.}XmlAttrAnchorx) then + begin + {self.}XmlAttrAnchorx := new OpenXmlAttribute("", "anchorx", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchorx; + end + {self.}XmlAttrAnchorx.Value := _value; +end; + +function Wrap.ReadXmlAttrAnchory(); +begin + return {self.}XmlAttrAnchory.Value; +end; + +function Wrap.WriteXmlAttrAnchory(_value); +begin + if ifnil({self.}XmlAttrAnchory) then + begin + {self.}XmlAttrAnchory := new OpenXmlAttribute("", "anchory", nil); + attributes_[length(attributes_)] := {self.}XmlAttrAnchory; + end + {self.}XmlAttrAnchory.Value := _value; +end; + +function Fill.Create();overload; +begin + {self.}Create(nil, "v", "fill"); +end; + +function Fill.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Fill.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Fill.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "opacity": makeweakref(thisFunction(WriteXmlAttrOpacity)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Fill.Copy(_obj: Fill);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Opacity) then + {self.}Opacity := _obj.Opacity; + tslassigning := tslassigning_backup; +end; + +function Fill.ReadXmlAttrOpacity(); +begin + return {self.}XmlAttrOpacity.Value; +end; + +function Fill.WriteXmlAttrOpacity(_value); +begin + if ifnil({self.}XmlAttrOpacity) then + begin + {self.}XmlAttrOpacity := new OpenXmlAttribute("", "opacity", nil); + attributes_[length(attributes_)] := {self.}XmlAttrOpacity; + end + {self.}XmlAttrOpacity.Value := _value; +end; + +function Imagedata.Create();overload; +begin + {self.}Create(nil, "v", "imagedata"); +end; + +function Imagedata.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Imagedata.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Imagedata.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + "r:id": makeweakref(thisFunction(WriteXmlAttrId)), + "o:title": makeweakref(thisFunction(WriteXmlAttrTitle)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Imagedata.Copy(_obj: Imagedata);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + if not ifnil(_obj.Title) then + {self.}Title := _obj.Title; + tslassigning := tslassigning_backup; +end; + +function Imagedata.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function Imagedata.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +function Imagedata.ReadXmlAttrTitle(); +begin + return {self.}XmlAttrTitle.Value; +end; + +function Imagedata.WriteXmlAttrTitle(_value); +begin + if ifnil({self.}XmlAttrTitle) then + begin + {self.}XmlAttrTitle := new OpenXmlAttribute("o", "title", nil); + attributes_[length(attributes_)] := {self.}XmlAttrTitle; + end + {self.}XmlAttrTitle.Value := _value; +end; + +function Textbox.Create();overload; +begin + {self.}Create(nil, "v", "textbox"); +end; + +function Textbox.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function Textbox.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function Textbox.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + ); + sorted_child_ := array( + "w:txbxContent": array(0, makeweakref(thisFunction(ReadXmlChildTxbxContent))), + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function Textbox.Copy(_obj: Textbox);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.XmlChildTxbxContent) then + {self.}TxbxContent.Copy(_obj.XmlChildTxbxContent); + tslassigning := tslassigning_backup; +end; + +function Textbox.ReadXmlChildTxbxContent(): TxbxContent; +begin + if tslassigning and ifnil({self.}XmlChildTxbxContent) then + begin + {self.}XmlChildTxbxContent := new DocxML.TxbxContent(self, "w", "txbxContent"); + container_.Set({self.}XmlChildTxbxContent); + end + return {self.}XmlChildTxbxContent; +end; + +function OLEObject.Create();overload; +begin + {self.}Create(nil, "o", "OLEObject"); +end; + +function OLEObject.Create(_node: XmlNode);overload; +begin + class(OpenXmlElement).Create(_node: XmlNode); +end; + +function OLEObject.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; +begin + setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200); + class(OpenXmlElement).Create(_parent, _prefix, _local_name); +end; + +function OLEObject.Init();override; +begin + pre := {self.}Prefix ? {self.}Prefix + ":" : ""; + attributes_ := array(); + attributes_pf_ := array( + pre + "Type": makeweakref(thisFunction(WriteXmlAttrType)), + pre + "ProgID": makeweakref(thisFunction(WriteXmlAttrProgID)), + pre + "ShapeID": makeweakref(thisFunction(WriteXmlAttrShapeID)), + pre + "DrawAspect": makeweakref(thisFunction(WriteXmlAttrDrawAspect)), + pre + "DrawAspect": makeweakref(thisFunction(WriteXmlAttrObjectID)), + "r:id": makeweakref(thisFunction(WriteXmlAttrId)), + ); + sorted_child_ := array( + ); + container_ := new TSOfficeContainer(sorted_child_); +end; + +function OLEObject.Copy(_obj: OLEObject);override; +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + class(OpenXmlElement).Copy(_obj); + if not ifnil(_obj.Type) then + {self.}Type := _obj.Type; + if not ifnil(_obj.ProgID) then + {self.}ProgID := _obj.ProgID; + if not ifnil(_obj.ShapeID) then + {self.}ShapeID := _obj.ShapeID; + if not ifnil(_obj.DrawAspect) then + {self.}DrawAspect := _obj.DrawAspect; + if not ifnil(_obj.ObjectID) then + {self.}ObjectID := _obj.ObjectID; + if not ifnil(_obj.Id) then + {self.}Id := _obj.Id; + tslassigning := tslassigning_backup; +end; + +function OLEObject.ReadXmlAttrType(); +begin + return {self.}XmlAttrType.Value; +end; + +function OLEObject.WriteXmlAttrType(_value); +begin + if ifnil({self.}XmlAttrType) then + begin + {self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "Type", nil); + attributes_[length(attributes_)] := {self.}XmlAttrType; + end + {self.}XmlAttrType.Value := _value; +end; + +function OLEObject.ReadXmlAttrProgID(); +begin + return {self.}XmlAttrProgID.Value; +end; + +function OLEObject.WriteXmlAttrProgID(_value); +begin + if ifnil({self.}XmlAttrProgID) then + begin + {self.}XmlAttrProgID := new OpenXmlAttribute({self.}Prefix, "ProgID", nil); + attributes_[length(attributes_)] := {self.}XmlAttrProgID; + end + {self.}XmlAttrProgID.Value := _value; +end; + +function OLEObject.ReadXmlAttrShapeID(); +begin + return {self.}XmlAttrShapeID.Value; +end; + +function OLEObject.WriteXmlAttrShapeID(_value); +begin + if ifnil({self.}XmlAttrShapeID) then + begin + {self.}XmlAttrShapeID := new OpenXmlAttribute({self.}Prefix, "ShapeID", nil); + attributes_[length(attributes_)] := {self.}XmlAttrShapeID; + end + {self.}XmlAttrShapeID.Value := _value; +end; + +function OLEObject.ReadXmlAttrDrawAspect(); +begin + return {self.}XmlAttrDrawAspect.Value; +end; + +function OLEObject.WriteXmlAttrDrawAspect(_value); +begin + if ifnil({self.}XmlAttrDrawAspect) then + begin + {self.}XmlAttrDrawAspect := new OpenXmlAttribute({self.}Prefix, "DrawAspect", nil); + attributes_[length(attributes_)] := {self.}XmlAttrDrawAspect; + end + {self.}XmlAttrDrawAspect.Value := _value; +end; + +function OLEObject.ReadXmlAttrObjectID(); +begin + return {self.}XmlAttrObjectID.Value; +end; + +function OLEObject.WriteXmlAttrObjectID(_value); +begin + if ifnil({self.}XmlAttrObjectID) then + begin + {self.}XmlAttrObjectID := new OpenXmlAttribute({self.}Prefix, "DrawAspect", nil); + attributes_[length(attributes_)] := {self.}XmlAttrObjectID; + end + {self.}XmlAttrObjectID.Value := _value; +end; + +function OLEObject.ReadXmlAttrId(); +begin + return {self.}XmlAttrId.Value; +end; + +function OLEObject.WriteXmlAttrId(_value); +begin + if ifnil({self.}XmlAttrId) then + begin + {self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil); + attributes_[length(attributes_)] := {self.}XmlAttrId; + end + {self.}XmlAttrId.Value := _value; +end; + +end. \ No newline at end of file diff --git a/autounit/VXmlAdapter.tsf b/autounit/VXmlAdapter.tsf new file mode 100644 index 0000000..a698c2f --- /dev/null +++ b/autounit/VXmlAdapter.tsf @@ -0,0 +1,6 @@ +unit VXmlAdapter; +interface + +implementation + +end. \ No newline at end of file diff --git a/autounit/VXmlUnitDecorator.tsf b/autounit/VXmlUnitDecorator.tsf new file mode 100644 index 0000000..9947b25 --- /dev/null +++ b/autounit/VXmlUnitDecorator.tsf @@ -0,0 +1,544 @@ +unit VXmlUnitDecorator; +interface +uses VXml, TSSafeUnitConverter; + +type ShapetypeUnitDecorator = class(Shapetype) +public + function Create(_obj: Shapetype); + function GetObject(); + function Convert(); +private + object_: Shapetype; +end; + +type FormulasUnitDecorator = class(Formulas) +public + function Create(_obj: Formulas); + function GetObject(); + function Convert(); +private + object_: Formulas; +end; + +type LockUnitDecorator = class(Lock) +public + function Create(_obj: Lock); + function GetObject(); + function Convert(); +private + object_: Lock; +end; + +type FUnitDecorator = class(F) +public + function Create(_obj: F); + function GetObject(); + function Convert(); +private + object_: F; +end; + +type StrokeUnitDecorator = class(Stroke) +public + function Create(_obj: Stroke); + function GetObject(); + function Convert(); +private + object_: Stroke; +end; + +type PathUnitDecorator = class(Path) +public + function Create(_obj: Path); + function GetObject(); + function Convert(); +private + object_: Path; +end; + +type TextpathUnitDecorator = class(Textpath) +public + function Create(_obj: Textpath); + function GetObject(); + function Convert(); +private + object_: Textpath; +end; + +type HandlesUnitDecorator = class(Handles) +public + function Create(_obj: Handles); + function GetObject(); + function Convert(); +private + object_: Handles; +end; + +type HUnitDecorator = class(H) +public + function Create(_obj: H); + function GetObject(); + function Convert(); +private + object_: H; +end; + +type ShapeUnitDecorator = class(Shape) +public + function Create(_obj: Shape); + function GetObject(); + function Convert(); +private + object_: Shape; +end; + +type WrapUnitDecorator = class(Wrap) +public + function Create(_obj: Wrap); + function GetObject(); + function Convert(); +private + object_: Wrap; +end; + +type FillUnitDecorator = class(Fill) +public + function Create(_obj: Fill); + function GetObject(); + function Convert(); +private + object_: Fill; +end; + +type ImagedataUnitDecorator = class(Imagedata) +public + function Create(_obj: Imagedata); + function GetObject(); + function Convert(); +private + object_: Imagedata; +end; + +type TextboxUnitDecorator = class(Textbox) +public + function Create(_obj: Textbox); + function GetObject(); + function Convert(); +private + object_: Textbox; +end; + +type OLEObjectUnitDecorator = class(OLEObject) +public + function Create(_obj: OLEObject); + function GetObject(); + function Convert(); +private + object_: OLEObject; +end; + +implementation + +function ShapetypeUnitDecorator.Create(_obj: Shapetype); +begin + class(Shapetype).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ShapetypeUnitDecorator.GetObject(); +begin + return object_; +end; + +function ShapetypeUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrAnchorId) then + {self.}AnchorId := object_.XmlAttrAnchorId.Value; + if not ifnil(object_.XmlAttrId) then + {self.}Id := object_.XmlAttrId.Value; + if not ifnil(object_.XmlAttrCoordsize) then + {self.}Coordsize := object_.XmlAttrCoordsize.Value; + if not ifnil(object_.XmlAttrSpt) then + {self.}Spt := object_.XmlAttrSpt.Value; + if not ifnil(object_.XmlAttrAdj) then + {self.}Adj := object_.XmlAttrAdj.Value; + if not ifnil(object_.XmlAttrPreferrelative) then + {self.}Preferrelative := object_.XmlAttrPreferrelative.Value; + if not ifnil(object_.XmlAttrPath) then + {self.}Path := object_.XmlAttrPath.Value; + if not ifnil(object_.XmlAttrFilled) then + {self.}Filled := object_.XmlAttrFilled.Value; + if not ifnil(object_.XmlAttrStroked) then + {self.}Stroked := object_.XmlAttrStroked.Value; + if not ifnil(object_.XmlChildStroke) then + {self.}XmlChildStroke := new StrokeUnitDecorator(object_.XmlChildStroke); + if not ifnil(object_.XmlChildFormulas) then + {self.}XmlChildFormulas := new formulasUnitDecorator(object_.XmlChildFormulas); + if not ifnil(object_.XmlChildPath) then + {self.}XmlChildPath := new PathUnitDecorator(object_.XmlChildPath); + if not ifnil(object_.XmlChildTextpath) then + {self.}XmlChildTextpath := new TextpathUnitDecorator(object_.XmlChildTextpath); + if not ifnil(object_.XmlChildHandles) then + {self.}XmlChildHandles := new HandlesUnitDecorator(object_.XmlChildHandles); + if not ifnil(object_.XmlChildLock) then + {self.}XmlChildLock := new LockUnitDecorator(object_.XmlChildLock); + tslassigning := tslassigning_backup; +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; + +function LockUnitDecorator.Create(_obj: Lock); +begin + class(Lock).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function LockUnitDecorator.GetObject(); +begin + return object_; +end; + +function LockUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrExt) then + {self.}Ext := object_.XmlAttrExt.Value; + if not ifnil(object_.XmlAttrAspectration) then + {self.}Aspectration := object_.XmlAttrAspectration.Value; + tslassigning := tslassigning_backup; +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; + +function StrokeUnitDecorator.Create(_obj: Stroke); +begin + class(Stroke).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function StrokeUnitDecorator.GetObject(); +begin + return object_; +end; + +function StrokeUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrJoinstyle) then + {self.}Joinstyle := object_.XmlAttrJoinstyle.Value; + tslassigning := tslassigning_backup; +end; + +function PathUnitDecorator.Create(_obj: Path); +begin + class(Path).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function PathUnitDecorator.GetObject(); +begin + return object_; +end; + +function PathUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrExtrusionok) then + {self.}Extrusionok := object_.XmlAttrExtrusionok.Value; + if not ifnil(object_.XmlAttrTextpathok) then + {self.}Textpathok := object_.XmlAttrTextpathok.Value; + if not ifnil(object_.XmlAttrGradientshapeok) then + {self.}Gradientshapeok := object_.XmlAttrGradientshapeok.Value; + if not ifnil(object_.XmlAttrConnecttype) then + {self.}Connecttype := object_.XmlAttrConnecttype.Value; + if not ifnil(object_.XmlAttrConnectlocs) then + {self.}Connectlocs := object_.XmlAttrConnectlocs.Value; + if not ifnil(object_.XmlAttrConnectangles) then + {self.}Connectangles := object_.XmlAttrConnectangles.Value; + tslassigning := tslassigning_backup; +end; + +function TextpathUnitDecorator.Create(_obj: Textpath); +begin + class(Textpath).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TextpathUnitDecorator.GetObject(); +begin + return object_; +end; + +function TextpathUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrOn) then + {self.}On := object_.XmlAttrOn.Value; + if not ifnil(object_.XmlAttrFitshape) then + {self.}Fitshape := object_.XmlAttrFitshape.Value; + tslassigning := tslassigning_backup; +end; + +function HandlesUnitDecorator.Create(_obj: Handles); +begin + class(Handles).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function HandlesUnitDecorator.GetObject(); +begin + return object_; +end; + +function HandlesUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildH) then + {self.}XmlChildH := new HUnitDecorator(object_.XmlChildH); + tslassigning := tslassigning_backup; +end; + +function HUnitDecorator.Create(_obj: H); +begin + class(H).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function HUnitDecorator.GetObject(); +begin + return object_; +end; + +function HUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrXrange) then + {self.}Xrange := object_.XmlAttrXrange.Value; + if not ifnil(object_.XmlAttrPosition) then + {self.}Position := object_.XmlAttrPosition.Value; + tslassigning := tslassigning_backup; +end; + +function ShapeUnitDecorator.Create(_obj: Shape); +begin + class(Shape).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function ShapeUnitDecorator.GetObject(); +begin + return object_; +end; + +function ShapeUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrId) then + {self.}Id := object_.XmlAttrId.Value; + if not ifnil(object_.XmlAttrStyle) then + {self.}Style := object_.XmlAttrStyle.Value; + if not ifnil(object_.XmlAttrSpid) then + {self.}Spid := object_.XmlAttrSpid.Value; + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + if not ifnil(object_.XmlAttrGfxdata) then + {self.}Gfxdata := object_.XmlAttrGfxdata.Value; + if not ifnil(object_.XmlAttrFilled) then + {self.}Filled := object_.XmlAttrFilled.Value; + if not ifnil(object_.XmlAttrAllowincell) then + {self.}Allowincell := object_.XmlAttrAllowincell.Value; + if not ifnil(object_.XmlAttrFillcolor) then + {self.}Fillcolor := object_.XmlAttrFillcolor.Value; + if not ifnil(object_.XmlAttrStroked) then + {self.}Stroked := object_.XmlAttrStroked.Value; + if not ifnil(object_.XmlAttrOle) then + {self.}Ole := object_.XmlAttrOle.Value; + if not ifnil(object_.XmlChildFill) then + {self.}XmlChildFill := new FillUnitDecorator(object_.XmlChildFill); + if not ifnil(object_.XmlChildTextbox) then + {self.}XmlChildTextbox := new TextboxUnitDecorator(object_.XmlChildTextbox); + if not ifnil(object_.XmlChildTextpath) then + {self.}XmlChildTextpath := new TextpathUnitDecorator(object_.XmlChildTextpath); + if not ifnil(object_.XmlChildImagedata) then + {self.}XmlChildImagedata := new ImagedataUnitDecorator(object_.XmlChildImagedata); + if not ifnil(object_.XmlChildWrap) then + {self.}XmlChildWrap := new WrapUnitDecorator(object_.XmlChildWrap); + tslassigning := tslassigning_backup; +end; + +function WrapUnitDecorator.Create(_obj: Wrap); +begin + class(Wrap).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function WrapUnitDecorator.GetObject(); +begin + return object_; +end; + +function WrapUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrAnchorx) then + {self.}Anchorx := object_.XmlAttrAnchorx.Value; + if not ifnil(object_.XmlAttrAnchory) then + {self.}Anchory := object_.XmlAttrAnchory.Value; + tslassigning := tslassigning_backup; +end; + +function FillUnitDecorator.Create(_obj: Fill); +begin + class(Fill).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function FillUnitDecorator.GetObject(); +begin + return object_; +end; + +function FillUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrOpacity) then + {self.}Opacity := object_.XmlAttrOpacity.Value; + tslassigning := tslassigning_backup; +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; + +function TextboxUnitDecorator.Create(_obj: Textbox); +begin + class(Textbox).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function TextboxUnitDecorator.GetObject(); +begin + return object_; +end; + +function TextboxUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlChildTxbxContent) then + {self.}XmlChildTxbxContent := new TxbxContentUnitDecorator(object_.XmlChildTxbxContent); + tslassigning := tslassigning_backup; +end; + +function OLEObjectUnitDecorator.Create(_obj: OLEObject); +begin + class(OLEObject).Create(); + object_ := _obj; + {self.}Convert(); +end; + +function OLEObjectUnitDecorator.GetObject(); +begin + return object_; +end; + +function OLEObjectUnitDecorator.Convert(); +begin + tslassigning_backup := tslassigning; + tslassigning := 1; + if not ifnil(object_.XmlAttrType) then + {self.}Type := object_.XmlAttrType.Value; + if not ifnil(object_.XmlAttrProgID) then + {self.}ProgID := object_.XmlAttrProgID.Value; + if not ifnil(object_.XmlAttrShapeID) then + {self.}ShapeID := object_.XmlAttrShapeID.Value; + if not ifnil(object_.XmlAttrDrawAspect) then + {self.}DrawAspect := object_.XmlAttrDrawAspect.Value; + if not ifnil(object_.XmlAttrObjectID) then + {self.}ObjectID := object_.XmlAttrObjectID.Value; + if not ifnil(object_.XmlAttrId) then + {self.}Id := object_.XmlAttrId.Value; + tslassigning := tslassigning_backup; +end; + +end. \ No newline at end of file diff --git a/docx/Components@DOCX.tsf b/docx/DocxComponents.tsf similarity index 85% rename from docx/Components@DOCX.tsf rename to docx/DocxComponents.tsf index cb56f3a..d53a0b3 100644 --- a/docx/Components@DOCX.tsf +++ b/docx/DocxComponents.tsf @@ -1,4 +1,5 @@ -type Components = class(TSComponentsBase) +type DocxComponents = class(TSComponentsBase) +uses DocxML, DrawingML, SharedML; public function Create(); function Init();override; @@ -76,12 +77,12 @@ private end; -function Components.Create(); +function DocxComponents.Create(); begin Class(TSComponentsBase).Create(); end; -function Components.Init();override; +function DocxComponents.Init();override; begin conf_ := array ( @@ -129,7 +130,7 @@ begin footer_rels_array_ := array(); end; -function Components.NewObject(_name: string): tslobj;override; +function DocxComponents.NewObject(_name: string): tslobj;override; begin case _name of "rels", "document_rels", "chart_rels", "footer_rels", "header_rels": @@ -152,8 +153,6 @@ begin return new Styles(); "web_settings": return new WebSettings(); - "theme": - return new Theme(); "content_types": return new Types(); "chart": @@ -166,110 +165,113 @@ begin return new Hdr(); "numbering": return new Numbering(); + "theme": + return new Theme(); end; end; -function Components.ReadRels(); +function DocxComponents.ReadRels(); begin return {self.}GetProp(rels_, "rels"); end; -function Components.ReadApp(); +function DocxComponents.ReadApp(); begin return {self.}GetProp(app_, "app"); end; -function Components.ReadCore(); +function DocxComponents.ReadCore(); begin return {self.}GetProp(core_, "core"); end; -function Components.ReadDocumentRels(); +function DocxComponents.ReadDocumentRels(); begin return {self.}GetProp(document_rels_, "document_rels"); end; -function Components.ReadDocument(); +function DocxComponents.ReadDocument(); begin return {self.}GetProp(document_, "document"); end; -function Components.ReadEndnotes(); +function DocxComponents.ReadEndnotes(); begin return {self.}GetProp(endnotes_, "endnotes"); end; -function Components.ReadFontTable(); +function DocxComponents.ReadFontTable(); begin return {self.}GetProp(font_table_, "font_table"); end; -function Components.ReadFootnotes(); +function DocxComponents.ReadFootnotes(); begin return {self.}GetProp(footnotes_, "footnotes"); end; -function Components.ReadSettings(); +function DocxComponents.ReadSettings(); begin return {self.}GetProp(settings_, "settings"); end; -function Components.ReadStyles(); +function DocxComponents.ReadStyles(); begin return {self.}GetProp(styles_, "styles"); end; -function Components.ReadWebSettings(); +function DocxComponents.ReadWebSettings(); begin return {self.}GetProp(web_settings_, "web_settings"); end; -function Components.ReadThemes(_index); +function DocxComponents.ReadThemes(_index); begin + uses DrawingXml; return {self.}GetPropArr(theme_array_, "theme", _index); end; -function Components.ReadContentTypes(); +function DocxComponents.ReadContentTypes(); begin return {self.}GetProp(content_types_, "content_types"); end; -function Components.ReadChartRels(_index: integer); +function DocxComponents.ReadChartRels(_index: integer); begin return {self.}GetPropArr(chart_rels_array_, "chart_rels", _index); end; -function Components.ReadCharts(_index: integer); +function DocxComponents.ReadCharts(_index: integer); begin return {self.}GetPropArr(chart_array_, "chart", _index); end; -function Components.ReadComments(); +function DocxComponents.ReadComments(); begin return {self.}GetProp(comments_, "comments"); end; -function Components.ReadHeaders(_index: integer); +function DocxComponents.ReadHeaders(_index: integer); begin return {self.}GetPropArr(header_array_, "header", _index); end; -function Components.ReadFooters(_index: integer); +function DocxComponents.ReadFooters(_index: integer); begin return {self.}GetPropArr(footer_array_, "footer", _index); end; -function Components.ReadNumbering(); +function DocxComponents.ReadNumbering(); begin return {self.}GetProp(numbering_, "numbering"); end; -function Components.ReadHeaderReals(_index: integer); +function DocxComponents.ReadHeaderReals(_index: integer); begin return {self.}GetPropArr(header_rels_array_, "header_rels", _index); end; -function Components.ReadFooterRels(_index: integer); +function DocxComponents.ReadFooterRels(_index: integer); begin return {self.}GetPropArr(footer_rels_array_, "footer_rels", _index); end; diff --git a/docx/DocxEnumerations.tsf b/docx/DocxEnumerations.tsf new file mode 100644 index 0000000..15657f2 --- /dev/null +++ b/docx/DocxEnumerations.tsf @@ -0,0 +1,19590 @@ +unit DocxEnumerations; +interface + + // WdAlertLevel + function wdAlertsAll(); + function wdAlertsMessageBox(); + function wdAlertsNone(); + + // WdAlignmentTabAlignment + function wdCenter(); + function wdLeft(); + function wdRight(); + + // WdAlignmentTabRelative + function wdIndent(); + function wdMargin(); + + // WdApplyQuickStyleSets + function wdSessionStartSet(); + function wdTemplateSet(); + + // WdArabicNumeral + function wdNumeralArabic(); + function wdNumeralContext(); + function wdNumeralHindi(); + function wdNumeralSystem(); + + // WdAraSpeller + function wdBoth(); + function wdFinalYaa(); + function wdInitialAlef(); + function wdNone(); + + // WdArrangeStyle + function wdIcons(); + function wdTiled(); + + // WdAutoFitBehavior + function wdAutoFitContent(); + function wdAutoFitFixed(); + function wdAutoFitWindow(); + + // WdAutoMacros + function wdAutoClose(); + function wdAutoExec(); + function wdAutoExit(); + function wdAutoNew(); + function wdAutoOpen(); + function wdAutoSync(); + + // WdAutoVersions + function wdAutoVersionOff(); + function wdAutoVersionOnClose(); + + // WdBaselineAlignment + function wdBaselineAlignAuto(); + function wdBaselineAlignBaseline(); + function wdBaselineAlignCenter(); + function wdBaselineAlignFarEast50(); + function wdBaselineAlignTop(); + + // WdBookmarkSortBy + function wdSortByLocation(); + function wdSortByName(); + + // WdBorderDistanceFrom + function wdBorderDistanceFromPageEdge(); + function wdBorderDistanceFromText(); + + // WdBorderType + function wdBorderBottom(); + function wdBorderDiagonalDown(); + function wdBorderDiagonalUp(); + function wdBorderHorizontal(); + function wdBorderLeft(); + function wdBorderRight(); + function wdBorderTop(); + function wdBorderVertical(); + + // WdBreakType + function wdColumnBreak(); + function wdLineBreak(); + function wdLineBreakClearLeft(); + function wdLineBreakClearRight(); + function wdPageBreak(); + function wdSectionBreakContinuous(); + function wdSectionBreakEvenPage(); + function wdSectionBreakNextPage(); + function wdSectionBreakOddPage(); + function wdTextWrappingBreak(); + + // WdBrowserLevel + function wdBrowserLevelMicrosoftInternetExplorer5(); + function wdBrowserLevelMicrosoftInternetExplorer6(); + function wdBrowserLevelV4(); + + // WdBrowseTarget + function wdBrowseComment(); + function wdBrowseEdit(); + function wdBrowseEndnote(); + function wdBrowseField(); + function wdBrowseFind(); + function wdBrowseFootnote(); + function wdBrowseGoTo(); + function wdBrowseGraphic(); + function wdBrowseHeading(); + function wdBrowsePage(); + function wdBrowseSection(); + function wdBrowseTable(); + + // WdBuildingBlockTypes + function wdTypeAutoText(); + function wdTypeBibliography(); + function wdTypeCoverPage(); + function wdTypeCustom1(); + function wdTypeCustom2(); + function wdTypeCustom3(); + function wdTypeCustom4(); + function wdTypeCustom5(); + function wdTypeCustomAutoText(); + function wdTypeCustomBibliography(); + function wdTypeCustomCoverPage(); + function wdTypeCustomEquations(); + function wdTypeCustomFooters(); + function wdTypeCustomHeaders(); + function wdTypeCustomPageNumber(); + function wdTypeCustomPageNumberBottom(); + function wdTypeCustomPageNumberPage(); + function wdTypeCustomPageNumberTop(); + function wdTypeCustomQuickParts(); + function wdTypeCustomTableOfContents(); + function wdTypeCustomTables(); + function wdTypeCustomTextBox(); + function wdTypeCustomWatermarks(); + function wdTypeEquations(); + function wdTypeFooters(); + function wdTypeHeaders(); + function wdTypePageNumber(); + function wdTypePageNumberBottom(); + function wdTypePageNumberPage(); + function wdTypePageNumberTop(); + function wdTypeQuickParts(); + function wdTypeTableOfContents(); + function wdTypeTables(); + function wdTypeTextBox(); + function wdTypeWatermarks(); + + // WdBuiltInProperty + function wdPropertyAppName(); + function wdPropertyAuthor(); + function wdPropertyBytes(); + function wdPropertyCategory(); + function wdPropertyCharacters(); + function wdPropertyCharsWSpaces(); + function wdPropertyComments(); + function wdPropertyCompany(); + function wdPropertyFormat(); + function wdPropertyHiddenSlides(); + function wdPropertyHyperlinkBase(); + function wdPropertyKeywords(); + function wdPropertyLastAuthor(); + function wdPropertyLines(); + function wdPropertyManager(); + function wdPropertyMMClips(); + function wdPropertyNotes(); + function wdPropertyPages(); + function wdPropertyParas(); + function wdPropertyRevision(); + function wdPropertySecurity(); + function wdPropertySlides(); + function wdPropertySubject(); + function wdPropertyTemplate(); + function wdPropertyTimeCreated(); + function wdPropertyTimeLastPrinted(); + function wdPropertyTimeLastSaved(); + function wdPropertyTitle(); + function wdPropertyVBATotalEdit(); + function wdPropertyWords(); + + // WdBuiltinStyle + function wdStyleBlockQuotation(); + function wdStyleBodyText(); + function wdStyleBodyText2(); + function wdStyleBodyText3(); + function wdStyleBodyTextFirstIndent(); + function wdStyleBodyTextFirstIndent2(); + function wdStyleBodyTextIndent(); + function wdStyleBodyTextIndent2(); + function wdStyleBodyTextIndent3(); + function wdStyleBookTitle(); + function wdStyleCaption(); + function wdStyleClosing(); + function wdStyleCommentReference(); + function wdStyleCommentText(); + function wdStyleDate(); + function wdStyleDefaultParagraphFont(); + function wdStyleEmphasis(); + function wdStyleEndnoteReference(); + function wdStyleEndnoteText(); + function wdStyleEnvelopeAddress(); + function wdStyleEnvelopeReturn(); + function wdStyleFooter(); + function wdStyleFootnoteReference(); + function wdStyleFootnoteText(); + function wdStyleHeader(); + function wdStyleHeading1(); + function wdStyleHeading2(); + function wdStyleHeading3(); + function wdStyleHeading4(); + function wdStyleHeading5(); + function wdStyleHeading6(); + function wdStyleHeading7(); + function wdStyleHeading8(); + function wdStyleHeading9(); + function wdStyleHtmlAcronym(); + function wdStyleHtmlAddress(); + function wdStyleHtmlCite(); + function wdStyleHtmlCode(); + function wdStyleHtmlDfn(); + function wdStyleHtmlKbd(); + function wdStyleHtmlNormal(); + function wdStyleHtmlPre(); + function wdStyleHtmlSamp(); + function wdStyleHtmlTt(); + function wdStyleHtmlVar(); + function wdStyleHyperlink(); + function wdStyleHyperlinkFollowed(); + function wdStyleIndex1(); + function wdStyleIndex2(); + function wdStyleIndex3(); + function wdStyleIndex4(); + function wdStyleIndex5(); + function wdStyleIndex6(); + function wdStyleIndex7(); + function wdStyleIndex8(); + function wdStyleIndex9(); + function wdStyleIndexHeading(); + function wdStyleIntenseEmphasis(); + function wdStyleIntenseQuote(); + function wdStyleIntenseReference(); + function wdStyleLineNumber(); + function wdStyleList(); + function wdStyleList2(); + function wdStyleList3(); + function wdStyleList4(); + function wdStyleList5(); + function wdStyleListBullet(); + function wdStyleListBullet2(); + function wdStyleListBullet3(); + function wdStyleListBullet4(); + function wdStyleListBullet5(); + function wdStyleListContinue(); + function wdStyleListContinue2(); + function wdStyleListContinue3(); + function wdStyleListContinue4(); + function wdStyleListContinue5(); + function wdStyleListNumber(); + function wdStyleListNumber2(); + function wdStyleListNumber3(); + function wdStyleListNumber4(); + function wdStyleListNumber5(); + function wdStyleListParagraph(); + function wdStyleMacroText(); + function wdStyleMessageHeader(); + function wdStyleNavPane(); + function wdStyleNormal(); + function wdStyleNormalIndent(); + function wdStyleNormalObject(); + function wdStyleNormalTable(); + function wdStyleNoteHeading(); + function wdStylePageNumber(); + function wdStylePlainText(); + function wdStyleQuote(); + function wdStyleSalutation(); + function wdStyleSignature(); + function wdStyleStrong(); + function wdStyleSubtitle(); + function wdStyleSubtleEmphasis(); + function wdStyleSubtleReference(); + function wdStyleTableColorfulGrid(); + function wdStyleTableColorfulList(); + function wdStyleTableColorfulShading(); + function wdStyleTableDarkList(); + function wdStyleTableLightGrid(); + function wdStyleTableLightGridAccent1(); + function wdStyleTableLightList(); + function wdStyleTableLightListAccent1(); + function wdStyleTableLightShading(); + function wdStyleTableLightShadingAccent1(); + function wdStyleTableMediumGrid1(); + function wdStyleTableMediumGrid2(); + function wdStyleTableMediumGrid3(); + function wdStyleTableMediumList1(); + function wdStyleTableMediumList1Accent1(); + function wdStyleTableMediumList2(); + function wdStyleTableMediumShading1(); + function wdStyleTableMediumShading1Accent1(); + function wdStyleTableMediumShading2(); + function wdStyleTableMediumShading2Accent1(); + function wdStyleTableOfAuthorities(); + function wdStyleTableOfFigures(); + function wdStyleTitle(); + function wdStyleTOAHeading(); + function wdStyleTOC1(); + function wdStyleTOC2(); + function wdStyleTOC3(); + function wdStyleTOC4(); + function wdStyleTOC5(); + function wdStyleTOC6(); + function wdStyleTOC7(); + function wdStyleTOC8(); + function wdStyleTOC9(); + + // WdCalendarType + function wdCalendarArabic(); + function wdCalendarHebrew(); + function wdCalendarJapan(); + function wdCalendarKorean(); + function wdCalendarSakaEra(); + function wdCalendarTaiwan(); + function wdCalendarThai(); + function wdCalendarTranslitEnglish(); + function wdCalendarTranslitFrench(); + function wdCalendarUmalqura(); + function wdCalendarWestern(); + + // WdCalendarTypeBi + function wdCalendarTypeBidi(); + function wdCalendarTypeGregorian(); + + // WdCaptionLabelID + function wdCaptionEquation(); + function wdCaptionFigure(); + function wdCaptionTable(); + + // WdCaptionNumberStyle + function wdCaptionNumberStyleArabic(); + function wdCaptionNumberStyleArabicFullWidth(); + function wdCaptionNumberStyleArabicLetter1(); + function wdCaptionNumberStyleArabicLetter2(); + function wdCaptionNumberStyleChosung(); + function wdCaptionNumberStyleGanada(); + function wdCaptionNumberStyleHanjaRead(); + function wdCaptionNumberStyleHanjaReadDigit(); + function wdCaptionNumberStyleHebrewLetter1(); + function wdCaptionNumberStyleHebrewLetter2(); + function wdCaptionNumberStyleHindiArabic(); + function wdCaptionNumberStyleHindiCardinalText(); + function wdCaptionNumberStyleHindiLetter1(); + function wdCaptionNumberStyleHindiLetter2(); + function wdCaptionNumberStyleKanji(); + function wdCaptionNumberStyleKanjiDigit(); + function wdCaptionNumberStyleKanjiTraditional(); + function wdCaptionNumberStyleLowercaseLetter(); + function wdCaptionNumberStyleLowercaseRoman(); + function wdCaptionNumberStyleNumberInCircle(); + function wdCaptionNumberStyleSimpChinNum2(); + function wdCaptionNumberStyleSimpChinNum3(); + function wdCaptionNumberStyleThaiArabic(); + function wdCaptionNumberStyleThaiCardinalText(); + function wdCaptionNumberStyleThaiLetter(); + function wdCaptionNumberStyleTradChinNum2(); + function wdCaptionNumberStyleTradChinNum3(); + function wdCaptionNumberStyleUppercaseLetter(); + function wdCaptionNumberStyleUppercaseRoman(); + function wdCaptionNumberStyleVietCardinalText(); + function wdCaptionNumberStyleZodiac1(); + function wdCaptionNumberStyleZodiac2(); + + // WdCaptionPosition + function wdCaptionPositionAbove(); + function wdCaptionPositionBelow(); + + // WdCellColor + function wdCellColorByAuthor(); + function wdCellColorLightBlue(); + function wdCellColorLightGray(); + function wdCellColorLightGreen(); + function wdCellColorLightOrange(); + function wdCellColorLightPurple(); + function wdCellColorLightYellow(); + function wdCellColorNoHighlight(); + function wdCellColorPink(); + + // WdCellVerticalAlignment + function wdCellAlignVerticalBottom(); + function wdCellAlignVerticalCenter(); + function wdCellAlignVerticalTop(); + + // WdCharacterCase + function wdFullWidth(); + function wdHalfWidth(); + function wdHiragana(); + function wdKatakana(); + function wdLowerCase(); + function wdNextCase(); + function wdTitleSentence(); + function wdTitleWord(); + function wdToggleCase(); + function wdUpperCase(); + + // WdCharacterWidth + function wdWidthFullWidth(); + function wdWidthHalfWidth(); + + // WdCheckInVersionType + function wdCheckInMajorVersion(); + function wdCheckInMinorVersion(); + function wdCheckInOverwriteVersion(); + + // WdChevronConvertRule + function wdAlwaysConvert(); + function wdAskToConvert(); + function wdAskToNotConvert(); + function wdNeverConvert(); + + // WdCollapseDirection + function wdCollapseEnd(); + function wdCollapseStart(); + + // WdColor + function wdColorAqua(); + function wdColorAutomatic(); + function wdColorBlack(); + function wdColorBlue(); + function wdColorBlueGray(); + function wdColorBrightGreen(); + function wdColorBrown(); + function wdColorDarkBlue(); + function wdColorDarkGreen(); + function wdColorDarkRed(); + function wdColorDarkTeal(); + function wdColorDarkYellow(); + function wdColorGold(); + function wdColorGray05(); + function wdColorGray10(); + function wdColorGray125(); + function wdColorGray15(); + function wdColorGray20(); + function wdColorGray25(); + function wdColorGray30(); + function wdColorGray35(); + function wdColorGray375(); + function wdColorGray40(); + function wdColorGray45(); + function wdColorGray50(); + function wdColorGray55(); + function wdColorGray60(); + function wdColorGray625(); + function wdColorGray65(); + function wdColorGray70(); + function wdColorGray75(); + function wdColorGray80(); + function wdColorGray85(); + function wdColorGray875(); + function wdColorGray90(); + function wdColorGray95(); + function wdColorGreen(); + function wdColorIndigo(); + function wdColorLavender(); + function wdColorLightBlue(); + function wdColorLightGreen(); + function wdColorLightOrange(); + function wdColorLightTurquoise(); + function wdColorLightYellow(); + function wdColorLime(); + function wdColorOliveGreen(); + function wdColorOrange(); + function wdColorPaleBlue(); + function wdColorPink(); + function wdColorPlum(); + function wdColorRed(); + function wdColorRose(); + function wdColorSeaGreen(); + function wdColorSkyBlue(); + function wdColorTan(); + function wdColorTeal(); + function wdColorTurquoise(); + function wdColorViolet(); + function wdColorWhite(); + function wdColorYellow(); + + // WdColorIndex + function wdAuto(); + function wdBlack(); + function wdBlue(); + function wdBrightGreen(); + function wdByAuthor(); + function wdDarkBlue(); + function wdDarkRed(); + function wdDarkYellow(); + function wdGray25(); + function wdGray50(); + function wdGreen(); + function wdNoHighlight(); + function wdPink(); + function wdRed(); + function wdTeal(); + function wdTurquoise(); + function wdViolet(); + function wdWhite(); + function wdYellow(); + + // WdColumnWidth + function wdColumnWidthDefault(); + function wdColumnWidthNarrow(); + function wdColumnWidthWide(); + + // WdCompareDestination + function wdCompareDestinationNew(); + function wdCompareDestinationOriginal(); + function wdCompareDestinationRevised(); + + // WdCompareTarget + function wdCompareTargetCurrent(); + function wdCompareTargetNew(); + function wdCompareTargetSelected(); + + // WdCompatibility + function wdAlignTablesRowByRow(); + function wdApplyBreakingRules(); + function wdAutospaceLikeWW7(); + function wdConvMailMergeEsc(); + function wdDontAdjustLineHeightInTable(); + function wdDontBalanceSingleByteDoubleByteWidth(); + function wdDontBreakWrappedTables(); + function wdDontSnapTextToGridInTableWithObjects(); + function wdDontULTrailSpace(); + function wdDontUseAsianBreakRulesInGrid(); + function wdDontUseHTMLParagraphAutoSpacing(); + function wdDontWrapTextWithPunctuation(); + function wdExactOnTop(); + function wdExpandShiftReturn(); + function wdFootnoteLayoutLikeWW8(); + function wdForgetLastTabAlignment(); + function wdGrowAutofit(); + function wdLayoutRawTableWidth(); + function wdLayoutTableRowsApart(); + function wdLeaveBackslashAlone(); + function wdLineWrapLikeWord6(); + function wdMWSmallCaps(); + function wdNoColumnBalance(); + function wdNoExtraLineSpacing(); + function wdNoLeading(); + function wdNoSpaceForUL(); + function wdNoSpaceRaiseLower(); + function wdNoTabHangIndent(); + function wdOrigWordTableRules(); + function wdPrintBodyTextBeforeHeader(); + function wdPrintColBlack(); + function wdSelectFieldWithFirstOrLastCharacter(); + function wdShapeLayoutLikeWW8(); + function wdShowBreaksInFrames(); + function wdSpacingInWholePoints(); + function wdSubFontBySize(); + function wdSuppressBottomSpacing(); + function wdSuppressSpBfAfterPgBrk(); + function wdSuppressTopSpacing(); + function wdSuppressTopSpacingMac5(); + function wdSwapBordersFacingPages(); + function wdTransparentMetafiles(); + function wdTruncateFontHeight(); + function wdUsePrinterMetrics(); + function wdUseWord2002TableStyleRules(); + function wdUseWord2010TableStyleRules(); + function wdUseWord97LineBreakingRules(); + function wdWPJustification(); + function wdWPSpaceWidth(); + function wdWrapTrailSpaces(); + function wdWW6BorderRules(); + function wdAllowSpaceOfSameStyleInTable(); + function wdAutofitLikeWW11(); + function wdDontAutofitConstrainedTables(); + function wdDontUseIndentAsNumberingTabStop(); + function wdFELineBreak11(); + function wdHangulWidthLikeWW11(); + function wdSplitPgBreakAndParaMark(); + function wdUnderlineTabInNumList(); + function wdUseNormalStyleForList(); + function wdWW11IndentRules(); + + // WdCompatibilityMode + function wdCurrent(); + function wdWord2003(); + function wdWord2007(); + function wdWord2010(); + function wdWord2013(); + + // WdConditionCode + function wdEvenColumnBanding(); + function wdEvenRowBanding(); + function wdFirstColumn(); + function wdFirstRow(); + function wdLastColumn(); + function wdLastRow(); + function wdNECell(); + function wdNWCell(); + function wdOddColumnBanding(); + function wdOddRowBanding(); + function wdSECell(); + function wdSWCell(); + + // WdConstants + function wdAutoPosition(); + function wdBackward(); + function wdCreatorCode(); + function wdFirst(); + function wdForward(); + function wdToggle(); + function wdUndefined(); + + // WdContentControlAppearance + function wdContentControlBoundingBox(); + function wdContentControlTags(); + function wdContentControlHidden(); + + // WdContentControlDateStorageFormat + function wdContentControlDateStorageDate(); + function wdContentControlDateStorageDateTime(); + function wdContentControlDateStorageText(); + + // WdContentControlLevel + function wdContentControlLevelCell(); + function wdContentControlLevelInline(); + function wdContentControlLevelParagraph(); + function wdContentControlLevelRow(); + + // WdContentControlType + function wdContentControlBuildingBlockGallery(); + function wdContentControlCheckbox(); + function wdContentControlComboBox(); + function wdContentControlDate(); + function wdContentControlGroup(); + function wdContentControlDropdownList(); + function wdContentControlPicture(); + function wdContentControlRepeatingSection(); + function wdContentControlRichText(); + function wdContentControlText(); + + // WdContinue + function wdContinueDisabled(); + function wdContinueList(); + function wdResetList(); + + // WdCountry + function wdArgentina(); + function wdBrazil(); + function wdCanada(); + function wdChile(); + function wdChina(); + function wdDenmark(); + function wdFinland(); + function wdFrance(); + function wdGermany(); + function wdIceland(); + function wdItaly(); + function wdJapan(); + function wdKorea(); + function wdLatinAmerica(); + function wdMexico(); + function wdNetherlands(); + function wdNorway(); + function wdPeru(); + function wdSpain(); + function wdSweden(); + function wdTaiwan(); + function wdUK(); + function wdUS(); + function wdVenezuela(); + + // WdCursorMovement + function wdCursorMovementLogical(); + function wdCursorMovementVisual(); + + // WdCursorType + function wdCursorIBeam(); + function wdCursorNormal(); + function wdCursorNorthwestArrow(); + function wdCursorWait(); + + // WdCustomLabelPageSize + function wdCustomLabelA4(); + function wdCustomLabelA4LS(); + function wdCustomLabelA5(); + function wdCustomLabelA5LS(); + function wdCustomLabelB4JIS(); + function wdCustomLabelB5(); + function wdCustomLabelFanfold(); + function wdCustomLabelHigaki(); + function wdCustomLabelHigakiLS(); + function wdCustomLabelLetter(); + function wdCustomLabelLetterLS(); + function wdCustomLabelMini(); + function wdCustomLabelVertHalfSheet(); + function wdCustomLabelVertHalfSheetLS(); + + // WdDateLanguage + function wdDateLanguageBidi(); + function wdDateLanguageLatin(); + + // WdDefaultFilePath + function wdAutoRecoverPath(); + function wdBorderArtPath(); + function wdCurrentFolderPath(); + function wdDocumentsPath(); + function wdGraphicsFiltersPath(); + function wdPicturesPath(); + function wdProgramPath(); + function wdProofingToolsPath(); + function wdStartupPath(); + function wdStyleGalleryPath(); + function wdTempFilePath(); + function wdTextConvertersPath(); + function wdToolsPath(); + function wdTutorialPath(); + function wdUserOptionsPath(); + function wdUserTemplatesPath(); + function wdWorkgroupTemplatesPath(); + + // WdDefaultListBehavior + function wdWord10ListBehavior(); + function wdWord8ListBehavior(); + function wdWord9ListBehavior(); + + // WdDefaultTableBehavior + function wdWord8TableBehavior(); + function wdWord9TableBehavior(); + + // WdDeleteCells + function wdDeleteCellsEntireColumn(); + function wdDeleteCellsEntireRow(); + function wdDeleteCellsShiftLeft(); + function wdDeleteCellsShiftUp(); + + // WdDeletedTextMark + function wdDeletedTextMarkBold(); + function wdDeletedTextMarkCaret(); + function wdDeletedTextMarkColorOnly(); + function wdDeletedTextMarkDoubleUnderline(); + function wdDeletedTextMarkHidden(); + function wdDeletedTextMarkItalic(); + function wdDeletedTextMarkNone(); + function wdDeletedTextMarkPound(); + function wdDeletedTextMarkStrikeThrough(); + function wdDeletedTextMarkUnderline(); + function wdDeletedTextMarkDoubleStrikeThrough(); + + // WdDiacriticColor + function wdDiacriticColorBidi(); + function wdDiacriticColorLatin(); + + // WdDictionaryType + function wdGrammar(); + function wdHangulHanjaConversion(); + function wdHangulHanjaConversionCustom(); + function wdHyphenation(); + function wdSpelling(); + function wdSpellingComplete(); + function wdSpellingCustom(); + function wdSpellingLegal(); + function wdSpellingMedical(); + function wdThesaurus(); + + // WdDisableFeaturesIntroducedAfter + function wd70(); + function wd70FE(); + function wd80(); + + // WdDocPartInsertOptions + function wdInsertContent(); + function wdInsertPage(); + function wdInsertParagraph(); + + // WdDocumentDirection + function wdLeftToRight(); + function wdRightToLeft(); + + // WdDocumentKind + function wdDocumentEmail(); + function wdDocumentLetter(); + function wdDocumentNotSpecified(); + + // WdDocumentMedium + function wdDocument(); + function wdEmailMessage(); + function wdWebPage(); + + // WdDocumentType + function wdTypeDocument(); + function wdTypeFrameset(); + function wdTypeTemplate(); + + // WdDocumentViewDirection + function wdDocumentViewLtr(); + function wdDocumentViewRtl(); + + // WdDropPosition + function wdDropMargin(); + function wdDropNone(); + function wdDropNormal(); + + // WdEditionOption + function wdAutomaticUpdate(); + function wdCancelPublisher(); + function wdChangeAttributes(); + function wdManualUpdate(); + function wdOpenSource(); + function wdSelectPublisher(); + function wdSendPublisher(); + function wdUpdateSubscriber(); + + // WdEditionType + function wdPublisher(); + function wdSubscriber(); + + // WdEditorType + function wdEditorCurrent(); + function wdEditorEditors(); + function wdEditorEveryone(); + function wdEditorOwners(); + + // WdEmailHTMLFidelity + function wdEmailHTMLFidelityHigh(); + function wdEmailHTMLFidelityLow(); + function wdEmailHTMLFidelityMedium(); + + // WdEmphasisMark + function wdEmphasisMarkNone(); + function wdEmphasisMarkOverComma(); + function wdEmphasisMarkOverSolidCircle(); + function wdEmphasisMarkOverWhiteCircle(); + function wdEmphasisMarkUnderSolidCircle(); + + // WdEnableCancelKey + function wdCancelDisabled(); + function wdCancelInterrupt(); + + // WdEncloseStyle + function wdEncloseStyleLarge(); + function wdEncloseStyleNone(); + function wdEncloseStyleSmall(); + + // WdEnclosureType + function wdEnclosureCircle(); + function wdEnclosureDiamond(); + function wdEnclosureSquare(); + function wdEnclosureTriangle(); + + // WdEndnoteLocation + function wdEndOfDocument(); + function wdEndOfSection(); + + // WdEnvelopeOrientation + function wdCenterClockwise(); + function wdCenterLandscape(); + function wdCenterPortrait(); + function wdLeftClockwise(); + function wdLeftLandscape(); + function wdLeftPortrait(); + function wdRightClockwise(); + function wdRightLandscape(); + function wdRightPortrait(); + + // WdExportCreateBookmarks + function wdExportCreateHeadingBookmarks(); + function wdExportCreateNoBookmarks(); + function wdExportCreateWordBookmarks(); + + // WdExportFormat + function wdExportFormatPDF(); + function wdExportFormatXPS(); + + // WdExportItem + function wdExportDocumentContent(); + function wdExportDocumentWithMarkup(); + + // WdExportOptimizeFor + function wdExportOptimizeForOnScreen(); + function wdExportOptimizeForPrint(); + + // WdExportRange + function wdExportAllDocument(); + function wdExportCurrentPage(); + function wdExportFromTo(); + function wdExportSelection(); + + // WdFarEastLineBreakLanguageID + function wdLineBreakJapanese(); + function wdLineBreakKorean(); + function wdLineBreakSimplifiedChinese(); + function wdLineBreakTraditionalChinese(); + + // WdFarEastLineBreakLevel + function wdFarEastLineBreakLevelCustom(); + function wdFarEastLineBreakLevelNormal(); + function wdFarEastLineBreakLevelStrict(); + + // WdFieldKind + function wdFieldKindCold(); + function wdFieldKindHot(); + function wdFieldKindNone(); + function wdFieldKindWarm(); + + // WdFieldShading + function wdFieldShadingAlways(); + function wdFieldShadingNever(); + function wdFieldShadingWhenSelected(); + + // WdFieldType + function wdFieldAddin(); + function wdFieldAddressBlock(); + function wdFieldAdvance(); + function wdFieldAsk(); + function wdFieldAuthor(); + function wdFieldAutoNum(); + function wdFieldAutoNumLegal(); + function wdFieldAutoNumOutline(); + function wdFieldAutoText(); + function wdFieldAutoTextList(); + function wdFieldBarCode(); + function wdFieldBidiOutline(); + function wdFieldComments(); + function wdFieldCompare(); + function wdFieldCreateDate(); + function wdFieldData(); + function wdFieldDatabase(); + function wdFieldDate(); + function wdFieldDDE(); + function wdFieldDDEAuto(); + function wdFieldDisplayBarcode(); + function wdFieldDocProperty(); + function wdFieldDocVariable(); + function wdFieldEditTime(); + function wdFieldEmbed(); + function wdFieldEmpty(); + function wdFieldExpression(); + function wdFieldFileName(); + function wdFieldFileSize(); + function wdFieldFillIn(); + function wdFieldFootnoteRef(); + function wdFieldFormCheckBox(); + function wdFieldFormDropDown(); + function wdFieldFormTextInput(); + function wdFieldFormula(); + function wdFieldGlossary(); + function wdFieldGoToButton(); + function wdFieldGreetingLine(); + function wdFieldHTMLActiveX(); + function wdFieldHyperlink(); + function wdFieldIf(); + function wdFieldImport(); + function wdFieldInclude(); + function wdFieldIncludePicture(); + function wdFieldIncludeText(); + function wdFieldIndex(); + function wdFieldIndexEntry(); + function wdFieldInfo(); + function wdFieldKeyWord(); + function wdFieldLastSavedBy(); + function wdFieldLink(); + function wdFieldListNum(); + function wdFieldMacroButton(); + function wdFieldMergeBarcode(); + function wdFieldMergeField(); + function wdFieldMergeRec(); + function wdFieldMergeSeq(); + function wdFieldNext(); + function wdFieldNextIf(); + function wdFieldNoteRef(); + function wdFieldNumChars(); + function wdFieldNumPages(); + function wdFieldNumWords(); + function wdFieldOCX(); + function wdFieldPage(); + function wdFieldPageRef(); + function wdFieldPrint(); + function wdFieldPrintDate(); + function wdFieldPrivate(); + function wdFieldQuote(); + function wdFieldRef(); + function wdFieldRefDoc(); + function wdFieldRevisionNum(); + function wdFieldSaveDate(); + function wdFieldSection(); + function wdFieldSectionPages(); + function wdFieldSequence(); + function wdFieldSet(); + function wdFieldShape(); + function wdFieldSkipIf(); + function wdFieldStyleRef(); + function wdFieldSubject(); + function wdFieldSubscriber(); + function wdFieldSymbol(); + function wdFieldTemplate(); + function wdFieldTime(); + function wdFieldTitle(); + function wdFieldTOA(); + function wdFieldTOAEntry(); + function wdFieldTOC(); + function wdFieldTOCEntry(); + function wdFieldUserAddress(); + function wdFieldUserInitials(); + function wdFieldUserName(); + function wdFieldBibliography(); + function wdFieldCitation(); + + // WdFindMatch + function wdMatchAnyCharacter(); + function wdMatchAnyDigit(); + function wdMatchAnyLetter(); + function wdMatchCaretCharacter(); + function wdMatchColumnBreak(); + function wdMatchCommentMark(); + function wdMatchEmDash(); + function wdMatchEnDash(); + function wdMatchEndnoteMark(); + function wdMatchField(); + function wdMatchFootnoteMark(); + function wdMatchGraphic(); + function wdMatchManualLineBreak(); + function wdMatchManualPageBreak(); + function wdMatchNonbreakingHyphen(); + function wdMatchNonbreakingSpace(); + function wdMatchOptionalHyphen(); + function wdMatchParagraphMark(); + function wdMatchSectionBreak(); + function wdMatchTabCharacter(); + function wdMatchWhiteSpace(); + + // WdFindWrap + function wdFindAsk(); + function wdFindContinue(); + function wdFindStop(); + + // WdFlowDirection + function wdFlowLtr(); + function wdFlowRtl(); + + // WdFontBias + function wdFontBiasDefault(); + function wdFontBiasDontCare(); + function wdFontBiasFareast(); + + // WdFootnoteLocation + function wdBeneathText(); + function wdBottomOfPage(); + + // WdFramePosition + function wdFrameBottom(); + function wdFrameCenter(); + function wdFrameInside(); + function wdFrameLeft(); + function wdFrameOutside(); + function wdFrameRight(); + function wdFrameTop(); + + // WdFramesetNewFrameLocation + function wdFramesetNewFrameAbove(); + function wdFramesetNewFrameBelow(); + function wdFramesetNewFrameLeft(); + function wdFramesetNewFrameRight(); + + // WdFramesetSizeType + function wdFramesetSizeTypeFixed(); + function wdFramesetSizeTypePercent(); + function wdFramesetSizeTypeRelative(); + + // WdFramesetType + function wdFramesetTypeFrame(); + function wdFramesetTypeFrameset(); + + // WdFrameSizeRule + function wdFrameAtLeast(); + function wdFrameAuto(); + function wdFrameExact(); + + // WdFrenchSpeller + function wdFrenchBoth(); + function wdFrenchPostReform(); + function wdFrenchPreReform(); + + // WdGoToDirection + function wdGoToAbsolute(); + function wdGoToFirst(); + function wdGoToLast(); + function wdGoToNext(); + function wdGoToPrevious(); + function wdGoToRelative(); + + // WdGoToItem + function wdGoToBookmark(); + function wdGoToComment(); + function wdGoToEndnote(); + function wdGoToEquation(); + function wdGoToField(); + function wdGoToFootnote(); + function wdGoToGrammaticalError(); + function wdGoToGraphic(); + function wdGoToHeading(); + function wdGoToLine(); + function wdGoToObject(); + function wdGoToPage(); + function wdGoToPercent(); + function wdGoToProofreadingError(); + function wdGoToSection(); + function wdGoToSpellingError(); + function wdGoToTable(); + + // WdGranularity + function wdGranularityCharLevel(); + function wdGranularityWordLevel(); + + // WdGutterStyle + function wdGutterPosLeft(); + function wdGutterPosRight(); + function wdGutterPosTop(); + + // WdGutterStyleOld + function wdGutterStyleBidi(); + function wdGutterStyleLatin(); + + // WdHeaderFooterIndex + function wdHeaderFooterEvenPages(); + function wdHeaderFooterFirstPage(); + function wdHeaderFooterPrimary(); + + // WdHeadingSeparator + function wdHeadingSeparatorBlankLine(); + function wdHeadingSeparatorLetter(); + function wdHeadingSeparatorLetterFull(); + function wdHeadingSeparatorLetterLow(); + function wdHeadingSeparatorNone(); + + // WdHebSpellStart + function wdFullScript(); + function wdMixedAuthorizedScript(); + function wdMixedScript(); + function wdPartialScript(); + + // WdHelpType + function wdHelp(); + function wdHelpAbout(); + function wdHelpActiveWindow(); + function wdHelpContents(); + function wdHelpExamplesAndDemos(); + function wdHelpHWP(); + function wdHelpIchitaro(); + function wdHelpIndex(); + function wdHelpKeyboard(); + function wdHelpPE2(); + function wdHelpPSSHelp(); + function wdHelpQuickPreview(); + function wdHelpSearch(); + function wdHelpUsingHelp(); + + // WdHighAnsiText + function wdAutoDetectHighAnsiFarEast(); + function wdHighAnsiIsFarEast(); + function wdHighAnsiIsHighAnsi(); + + // WdHorizontalInVerticalType + function wdHorizontalInVerticalFitInLine(); + function wdHorizontalInVerticalNone(); + function wdHorizontalInVerticalResizeLine(); + + // WdHorizontalLineAlignment + function wdHorizontalLineAlignCenter(); + function wdHorizontalLineAlignLeft(); + function wdHorizontalLineAlignRight(); + + // WdHorizontalLineWidthType + function wdHorizontalLineFixedWidth(); + function wdHorizontalLinePercentWidth(); + + // WdIMEMode + function wdIMEModeAlpha(); + function wdIMEModeAlphaFull(); + function wdIMEModeHangul(); + function wdIMEModeHangulFull(); + function wdIMEModeHiragana(); + function wdIMEModeKatakana(); + function wdIMEModeKatakanaHalf(); + function wdIMEModeNoControl(); + function wdIMEModeOff(); + function wdIMEModeOn(); + + // WdIndexFilter + function wdIndexFilterAiueo(); + function wdIndexFilterAkasatana(); + function wdIndexFilterChosung(); + function wdIndexFilterFull(); + function wdIndexFilterLow(); + function wdIndexFilterMedium(); + function wdIndexFilterNone(); + + // WdIndexFormat + function wdIndexBulleted(); + function wdIndexClassic(); + function wdIndexFancy(); + function wdIndexFormal(); + function wdIndexModern(); + function wdIndexSimple(); + function wdIndexTemplate(); + + // WdIndexSortBy + function wdIndexSortByStroke(); + function wdIndexSortBySyllable(); + + // WdIndexType + function wdIndexIndent(); + function wdIndexRunin(); + + // WdInformation + function wdActiveEndAdjustedPageNumber(); + function wdActiveEndPageNumber(); + function wdActiveEndSectionNumber(); + function wdAtEndOfRowMarker(); + function wdCapsLock(); + function wdEndOfRangeColumnNumber(); + function wdEndOfRangeRowNumber(); + function wdFirstCharacterColumnNumber(); + function wdFirstCharacterLineNumber(); + function wdFrameIsSelected(); + function wdHeaderFooterType(); + function wdHorizontalPositionRelativeToPage(); + function wdHorizontalPositionRelativeToTextBoundary(); + function wdInBibliography(); + function wdInCitation(); + function wdInClipboard(); + function wdInCommentPane(); + function wdInContentControl(); + function wdInCoverPage(); + function wdInEndnote(); + function wdInFieldCode(); + function wdInFieldResult(); + function wdInFootnote(); + function wdInFootnoteEndnotePane(); + function wdInHeaderFooter(); + function wdInMasterDocument(); + function wdInWordMail(); + function wdMaximumNumberOfColumns(); + function wdMaximumNumberOfRows(); + function wdNumberOfPagesInDocument(); + function wdNumLock(); + function wdOverType(); + function wdReferenceOfType(); + function wdRevisionMarking(); + function wdSelectionMode(); + function wdStartOfRangeColumnNumber(); + function wdStartOfRangeRowNumber(); + function wdVerticalPositionRelativeToPage(); + function wdVerticalPositionRelativeToTextBoundary(); + function wdWithInTable(); + function wdZoomPercentage(); + + // WdInlineShapeType + function wdInlineShape3DModel(); + function wdInlineShapeChart(); + function wdInlineShapeDiagram(); + function wdInlineShapeEmbeddedOLEObject(); + function wdInlineShapeHorizontalLine(); + function wdInlineShapeLinked3DModel(); + function wdInlineShapeLinkedOLEObject(); + function wdInlineShapeLinkedPicture(); + function wdInlineShapeLinkedPictureHorizontalLine(); + function wdInlineShapeLockedCanvas(); + function wdInlineShapeOLEControlObject(); + function wdInlineShapeOWSAnchor(); + function wdInlineShapePicture(); + function wdInlineShapePictureBullet(); + function wdInlineShapePictureHorizontalLine(); + function wdInlineShapeScriptAnchor(); + function wdInlineShapeSmartArt(); + function wdInlineShapeWebVideo(); + + // WdInsertCells + function wdInsertCellsEntireColumn(); + function wdInsertCellsEntireRow(); + function wdInsertCellsShiftDown(); + function wdInsertCellsShiftRight(); + + // WdInsertedTextMark + function wdInsertedTextMarkBold(); + function wdInsertedTextMarkColorOnly(); + function wdInsertedTextMarkDoubleUnderline(); + function wdInsertedTextMarkItalic(); + function wdInsertedTextMarkNone(); + function wdInsertedTextMarkStrikeThrough(); + function wdInsertedTextMarkUnderline(); + function wdInsertedTextMarkDoubleStrikeThrough(); + + // WdInternationalIndex + function wd24HourClock(); + function wdCurrencyCode(); + function wdDateSeparator(); + function wdDecimalSeparator(); + function wdInternationalAM(); + function wdInternationalPM(); + function wdListSeparator(); + function wdProductLanguageID(); + function wdThousandsSeparator(); + function wdTimeSeparator(); + + // WdJustificationMode + function wdJustificationModeCompress(); + function wdJustificationModeCompressKana(); + function wdJustificationModeExpand(); + + // WdKana + function wdKanaHiragana(); + function wdKanaKatakana(); + + // WdKey + function wdKey0(); + function wdKey1(); + function wdKey2(); + function wdKey3(); + function wdKey4(); + function wdKey5(); + function wdKey6(); + function wdKey7(); + function wdKey8(); + function wdKey9(); + function wdKeyA(); + function wdKeyAlt(); + function wdKeyB(); + function wdKeyBackSingleQuote(); + function wdKeyBackSlash(); + function wdKeyBackspace(); + function wdKeyC(); + function wdKeyCloseSquareBrace(); + function wdKeyComma(); + function wdKeyCommand(); + function wdKeyControl(); + function wdKeyD(); + function wdKeyDelete(); + function wdKeyE(); + function wdKeyEnd(); + function wdKeyEquals(); + function wdKeyEsc(); + function wdKeyF(); + function wdKeyF1(); + function wdKeyF10(); + function wdKeyF11(); + function wdKeyF12(); + function wdKeyF13(); + function wdKeyF14(); + function wdKeyF15(); + function wdKeyF16(); + function wdKeyF2(); + function wdKeyF3(); + function wdKeyF4(); + function wdKeyF5(); + function wdKeyF6(); + function wdKeyF7(); + function wdKeyF8(); + function wdKeyF9(); + function wdKeyG(); + function wdKeyH(); + function wdKeyHome(); + function wdKeyHyphen(); + function wdKeyI(); + function wdKeyInsert(); + function wdKeyJ(); + function wdKeyK(); + function wdKeyL(); + function wdKeyM(); + function wdKeyN(); + function wdKeyNumeric0(); + function wdKeyNumeric1(); + function wdKeyNumeric2(); + function wdKeyNumeric3(); + function wdKeyNumeric4(); + function wdKeyNumeric5(); + function wdKeyNumeric5Special(); + function wdKeyNumeric6(); + function wdKeyNumeric7(); + function wdKeyNumeric8(); + function wdKeyNumeric9(); + function wdKeyNumericAdd(); + function wdKeyNumericDecimal(); + function wdKeyNumericDivide(); + function wdKeyNumericMultiply(); + function wdKeyNumericSubtract(); + function wdKeyO(); + function wdKeyOpenSquareBrace(); + function wdKeyOption(); + function wdKeyP(); + function wdKeyPageDown(); + function wdKeyPageUp(); + function wdKeyPause(); + function wdKeyPeriod(); + function wdKeyQ(); + function wdKeyR(); + function wdKeyReturn(); + function wdKeyS(); + function wdKeyScrollLock(); + function wdKeySemiColon(); + function wdKeyShift(); + function wdKeySingleQuote(); + function wdKeySlash(); + function wdKeySpacebar(); + function wdKeyT(); + function wdKeyTab(); + function wdKeyU(); + function wdKeyV(); + function wdKeyW(); + function wdKeyX(); + function wdKeyY(); + function wdKeyZ(); + function wdNoKey(); + + // WdKeyCategory + function wdKeyCategoryAutoText(); + function wdKeyCategoryCommand(); + function wdKeyCategoryDisable(); + function wdKeyCategoryFont(); + function wdKeyCategoryMacro(); + function wdKeyCategoryNil(); + function wdKeyCategoryPrefix(); + function wdKeyCategoryStyle(); + function wdKeyCategorySymbol(); + + // WdLanguageID + function wdAfrikaans(); + function wdAlbanian(); + function wdAmharic(); + function wdArabic(); + function wdArabicAlgeria(); + function wdArabicBahrain(); + function wdArabicEgypt(); + function wdArabicIraq(); + function wdArabicJordan(); + function wdArabicKuwait(); + function wdArabicLebanon(); + function wdArabicLibya(); + function wdArabicMorocco(); + function wdArabicOman(); + function wdArabicQatar(); + function wdArabicSyria(); + function wdArabicTunisia(); + function wdArabicUAE(); + function wdArabicYemen(); + function wdArmenian(); + function wdAssamese(); + function wdAzeriCyrillic(); + function wdAzeriLatin(); + function wdBasque(); + function wdBelgianDutch(); + function wdBelgianFrench(); + function wdBengali(); + function wdBulgarian(); + function wdBurmese(); + function wdByelorussian(); + function wdCatalan(); + function wdCherokee(); + function wdChineseHongKongSAR(); + function wdChineseMacaoSAR(); + function wdChineseSingapore(); + function wdCroatian(); + function wdCzech(); + function wdDanish(); + function wdDivehi(); + function wdDutch(); + function wdEdo(); + function wdEnglishAUS(); + function wdEnglishBelize(); + function wdEnglishCanadian(); + function wdEnglishCaribbean(); + function wdEnglishIndonesia(); + function wdEnglishIreland(); + function wdEnglishJamaica(); + function wdEnglishNewZealand(); + function wdEnglishPhilippines(); + function wdEnglishSouthAfrica(); + function wdEnglishTrinidadTobago(); + function wdEnglishUK(); + function wdEnglishUS(); + function wdEnglishZimbabwe(); + function wdEstonian(); + function wdFaeroese(); + function wdFilipino(); + function wdFinnish(); + function wdFrench(); + function wdFrenchCameroon(); + function wdFrenchCanadian(); + function wdFrenchCongoDRC(); + function wdFrenchCotedIvoire(); + function wdFrenchHaiti(); + function wdFrenchLuxembourg(); + function wdFrenchMali(); + function wdFrenchMonaco(); + function wdFrenchMorocco(); + function wdFrenchReunion(); + function wdFrenchSenegal(); + function wdFrenchWestIndies(); + function wdFrisianNetherlands(); + function wdFulfulde(); + function wdGaelicIreland(); + function wdGaelicScotland(); + function wdGalician(); + function wdGeorgian(); + function wdGerman(); + function wdGermanAustria(); + function wdGermanLiechtenstein(); + function wdGermanLuxembourg(); + function wdGreek(); + function wdGuarani(); + function wdGujarati(); + function wdHausa(); + function wdHawaiian(); + function wdHebrew(); + function wdHindi(); + function wdHungarian(); + function wdIbibio(); + function wdIcelandic(); + function wdIgbo(); + function wdIndonesian(); + function wdInuktitut(); + function wdItalian(); + function wdJapanese(); + function wdKannada(); + function wdKanuri(); + function wdKashmiri(); + function wdKazakh(); + function wdKhmer(); + function wdKirghiz(); + function wdKonkani(); + function wdKorean(); + function wdKyrgyz(); + function wdLanguageNone(); + function wdLao(); + function wdLatin(); + function wdLatvian(); + function wdLithuanian(); + function wdMacedonianFYROM(); + function wdMalayalam(); + function wdMalayBruneiDarussalam(); + function wdMalaysian(); + function wdMaltese(); + function wdManipuri(); + function wdMarathi(); + function wdMexicanSpanish(); + function wdMongolian(); + function wdNepali(); + function wdNoProofing(); + function wdNorwegianBokmol(); + function wdNorwegianNynorsk(); + function wdOriya(); + function wdOromo(); + function wdPashto(); + function wdPersian(); + function wdPolish(); + function wdPortuguese(); + function wdPortugueseBrazil(); + function wdPunjabi(); + function wdRhaetoRomanic(); + function wdRomanian(); + function wdRomanianMoldova(); + function wdRussian(); + function wdRussianMoldova(); + function wdSamiLappish(); + function wdSanskrit(); + function wdSerbianCyrillic(); + function wdSerbianLatin(); + function wdSesotho(); + function wdSimplifiedChinese(); + function wdSindhi(); + function wdSindhiPakistan(); + function wdSinhalese(); + function wdSlovak(); + function wdSlovenian(); + function wdSomali(); + function wdSorbian(); + function wdSpanish(); + function wdSpanishArgentina(); + function wdSpanishBolivia(); + function wdSpanishChile(); + function wdSpanishColombia(); + function wdSpanishCostaRica(); + function wdSpanishDominicanRepublic(); + function wdSpanishEcuador(); + function wdSpanishElSalvador(); + function wdSpanishGuatemala(); + function wdSpanishHonduras(); + function wdSpanishModernSort(); + function wdSpanishNicaragua(); + function wdSpanishPanama(); + function wdSpanishParaguay(); + function wdSpanishPeru(); + function wdSpanishPuertoRico(); + function wdSpanishUruguay(); + function wdSpanishVenezuela(); + function wdSutu(); + function wdSwahili(); + function wdSwedish(); + function wdSwedishFinland(); + function wdSwissFrench(); + function wdSwissGerman(); + function wdSwissItalian(); + function wdSyriac(); + function wdTajik(); + function wdTamazight(); + function wdTamazightLatin(); + function wdTamil(); + function wdTatar(); + function wdTelugu(); + function wdThai(); + function wdTibetan(); + function wdTigrignaEritrea(); + function wdTigrignaEthiopic(); + function wdTraditionalChinese(); + function wdTsonga(); + function wdTswana(); + function wdTurkish(); + function wdTurkmen(); + function wdUkrainian(); + function wdUrdu(); + function wdUzbekCyrillic(); + function wdUzbekLatin(); + function wdVenda(); + function wdVietnamese(); + function wdWelsh(); + function wdXhosa(); + function wdYi(); + function wdYiddish(); + function wdYoruba(); + function wdZulu(); + + // WdLayoutMode + function wdLayoutModeDefault(); + function wdLayoutModeGenko(); + function wdLayoutModeGrid(); + function wdLayoutModeLineGrid(); + + // WdLetterheadLocation + function wdLetterBottom(); + function wdLetterLeft(); + function wdLetterRight(); + function wdLetterTop(); + + // WdLetterStyle + function wdFullBlock(); + function wdModifiedBlock(); + function wdSemiBlock(); + + // WdLigatures + function wdLigaturesAll(); + function wdLigaturesContextual(); + function wdLigaturesContextualDiscretional(); + function wdLigaturesContextualHistorical(); + function wdLigaturesContextualHistoricalDiscretional(); + function wdLigaturesDiscretional(); + function wdLigaturesHistorical(); + function wdLigaturesHistoricalDiscretional(); + function wdLigaturesNone(); + function wdLigaturesStandard(); + function wdLigaturesStandardContextual(); + function wdLigaturesStandardContextualDiscretional(); + function wdLigaturesStandardContextualHistorical(); + function wdLigaturesStandardDiscretional(); + function wdLigaturesStandardHistorical(); + function wdLigaturesStandardHistoricalDiscretional(); + + // WdLineEndingType + function wdCRLF(); + function wdCROnly(); + function wdLFCR(); + function wdLFOnly(); + function wdLSPS(); + + // WdLineSpacing + function wdLineSpace1pt5(); + function wdLineSpaceAtLeast(); + function wdLineSpaceDouble(); + function wdLineSpaceExactly(); + function wdLineSpaceMultiple(); + function wdLineSpaceSingle(); + + // WdLineStyle + function wdLineStyleDashDot(); + function wdLineStyleDashDotDot(); + function wdLineStyleDashDotStroked(); + function wdLineStyleDashLargeGap(); + function wdLineStyleDashSmallGap(); + function wdLineStyleDot(); + function wdLineStyleDouble(); + function wdLineStyleDoubleWavy(); + function wdLineStyleEmboss3D(); + function wdLineStyleEngrave3D(); + function wdLineStyleInset(); + function wdLineStyleNone(); + function wdLineStyleOutset(); + function wdLineStyleSingle(); + function wdLineStyleSingleWavy(); + function wdLineStyleThickThinLargeGap(); + function wdLineStyleThickThinMedGap(); + function wdLineStyleThickThinSmallGap(); + function wdLineStyleThinThickLargeGap(); + function wdLineStyleThinThickMedGap(); + function wdLineStyleThinThickSmallGap(); + function wdLineStyleThinThickThinLargeGap(); + function wdLineStyleThinThickThinMedGap(); + function wdLineStyleThinThickThinSmallGap(); + function wdLineStyleTriple(); + + // WdLineType + function wdTableRow(); + function wdTextLine(); + + // WdLineWidth + function wdLineWidth025pt(); + function wdLineWidth050pt(); + function wdLineWidth075pt(); + function wdLineWidth100pt(); + function wdLineWidth150pt(); + function wdLineWidth225pt(); + function wdLineWidth300pt(); + function wdLineWidth450pt(); + function wdLineWidth600pt(); + + // WdLinkType + function wdLinkTypeChart(); + function wdLinkTypeDDE(); + function wdLinkTypeDDEAuto(); + function wdLinkTypeImport(); + function wdLinkTypeInclude(); + function wdLinkTypeOLE(); + function wdLinkTypePicture(); + function wdLinkTypeReference(); + function wdLinkTypeText(); + + // WdListApplyTo + function wdListApplyToSelection(); + function wdListApplyToThisPointForward(); + function wdListApplyToWholeList(); + + // WdListGalleryType + function wdBulletGallery(); + function wdNumberGallery(); + function wdOutlineNumberGallery(); + + // WdListLevelAlignment + function wdListLevelAlignCenter(); + function wdListLevelAlignLeft(); + function wdListLevelAlignRight(); + + // WdListNumberStyle + function wdListNumberStyleAiueo(); + function wdListNumberStyleAiueoHalfWidth(); + function wdListNumberStyleArabic(); + function wdListNumberStyleArabic1(); + function wdListNumberStyleArabic2(); + function wdListNumberStyleArabicFullWidth(); + function wdListNumberStyleArabicLZ(); + function wdListNumberStyleArabicLZ2(); + function wdListNumberStyleArabicLZ3(); + function wdListNumberStyleArabicLZ4(); + function wdListNumberStyleBullet(); + function wdListNumberStyleCardinalText(); + function wdListNumberStyleChosung(); + function wdListNumberStyleGanada(); + function wdListNumberStyleGBNum1(); + function wdListNumberStyleGBNum2(); + function wdListNumberStyleGBNum3(); + function wdListNumberStyleGBNum4(); + function wdListNumberStyleHangul(); + function wdListNumberStyleHanja(); + function wdListNumberStyleHanjaRead(); + function wdListNumberStyleHanjaReadDigit(); + function wdListNumberStyleHebrew1(); + function wdListNumberStyleHebrew2(); + function wdListNumberStyleHindiArabic(); + function wdListNumberStyleHindiCardinalText(); + function wdListNumberStyleHindiLetter1(); + function wdListNumberStyleHindiLetter2(); + function wdListNumberStyleIroha(); + function wdListNumberStyleIrohaHalfWidth(); + function wdListNumberStyleKanji(); + function wdListNumberStyleKanjiDigit(); + function wdListNumberStyleKanjiTraditional(); + function wdListNumberStyleKanjiTraditional2(); + function wdListNumberStyleLegal(); + function wdListNumberStyleLegalLZ(); + function wdListNumberStyleLowercaseBulgarian(); + function wdListNumberStyleLowercaseGreek(); + function wdListNumberStyleLowercaseLetter(); + function wdListNumberStyleLowercaseRoman(); + function wdListNumberStyleLowercaseRussian(); + function wdListNumberStyleLowercaseTurkish(); + function wdListNumberStyleNone(); + function wdListNumberStyleNumberInCircle(); + function wdListNumberStyleOrdinal(); + function wdListNumberStyleOrdinalText(); + function wdListNumberStylePictureBullet(); + function wdListNumberStyleSimpChinNum1(); + function wdListNumberStyleSimpChinNum2(); + function wdListNumberStyleSimpChinNum3(); + function wdListNumberStyleSimpChinNum4(); + function wdListNumberStyleThaiArabic(); + function wdListNumberStyleThaiCardinalText(); + function wdListNumberStyleThaiLetter(); + function wdListNumberStyleTradChinNum1(); + function wdListNumberStyleTradChinNum2(); + function wdListNumberStyleTradChinNum3(); + function wdListNumberStyleTradChinNum4(); + function wdListNumberStyleUppercaseBulgarian(); + function wdListNumberStyleUppercaseGreek(); + function wdListNumberStyleUppercaseLetter(); + function wdListNumberStyleUppercaseRoman(); + function wdListNumberStyleUppercaseRussian(); + function wdListNumberStyleUppercaseTurkish(); + function wdListNumberStyleVietCardinalText(); + function wdListNumberStyleZodiac1(); + function wdListNumberStyleZodiac2(); + function wdListNumberStyleZodiac3(); + + // WdListType + function wdListBullet(); + function wdListListNumOnly(); + function wdListMixedNumbering(); + function wdListNoNumbering(); + function wdListOutlineNumbering(); + function wdListPictureBullet(); + function wdListSimpleNumbering(); + + // WdLockType + function wdLockChanged(); + function wdLockEphemeral(); + function wdLockNone(); + function wdLockReservation(); + + // WdMailerPriority + function wdPriorityHigh(); + function wdPriorityLow(); + function wdPriorityNormal(); + + // WdMailMergeActiveRecord + function wdFirstDataSourceRecord(); + function wdFirstRecord(); + function wdLastDataSourceRecord(); + function wdLastRecord(); + function wdNextDataSourceRecord(); + function wdNextRecord(); + function wdNoActiveRecord(); + function wdPreviousDataSourceRecord(); + function wdPreviousRecord(); + + // WdMailMergeComparison + function wdMergeIfEqual(); + function wdMergeIfGreaterThan(); + function wdMergeIfGreaterThanOrEqual(); + function wdMergeIfIsBlank(); + function wdMergeIfIsNotBlank(); + function wdMergeIfLessThan(); + function wdMergeIfLessThanOrEqual(); + function wdMergeIfNotEqual(); + + // WdMailMergeDataSource + function wdMergeInfoFromAccessDDE(); + function wdMergeInfoFromExcelDDE(); + function wdMergeInfoFromMSQueryDDE(); + function wdMergeInfoFromODBC(); + function wdMergeInfoFromODSO(); + function wdMergeInfoFromWord(); + function wdNoMergeInfo(); + + // WdMailMergeDefaultRecord + function wdDefaultFirstRecord(); + function wdDefaultLastRecord(); + + // WdMailMergeDestination + function wdSendToEmail(); + function wdSendToFax(); + function wdSendToNewDocument(); + function wdSendToPrinter(); + + // WdMailMergeMailFormat + function wdMailFormatHTML(); + function wdMailFormatPlainText(); + + // WdMailMergeMainDocType + function wdCatalog(); + function wdDirectory(); + function wdEMail(); + function wdEnvelopes(); + function wdFax(); + function wdFormLetters(); + function wdMailingLabels(); + function wdNotAMergeDocument(); + + // WdMailMergeState + function wdDataSource(); + function wdMainAndDataSource(); + function wdMainAndHeader(); + function wdMainAndSourceAndHeader(); + function wdMainDocumentOnly(); + function wdNormalDocument(); + + // WdMailSystem + function wdMAPI(); + function wdMAPIandPowerTalk(); + function wdNoMailSystem(); + function wdPowerTalk(); + + // WdMappedDataFields + function wdAddress1(); + function wdAddress2(); + function wdAddress3(); + function wdBusinessFax(); + function wdBusinessPhone(); + function wdCity(); + function wdCompany(); + function wdCountryRegion(); + function wdCourtesyTitle(); + function wdDepartment(); + function wdEmailAddress(); + function wdFirstName(); + function wdHomeFax(); + function wdHomePhone(); + function wdJobTitle(); + function wdLastName(); + function wdMiddleName(); + function wdNickname(); + function wdPostalCode(); + function wdRubyFirstName(); + function wdRubyLastName(); + function wdSpouseCourtesyTitle(); + function wdSpouseFirstName(); + function wdSpouseLastName(); + function wdSpouseMiddleName(); + function wdSpouseNickname(); + function wdState(); + function wdSuffix(); + function wdUniqueIdentifier(); + function wdWebPageURL(); + + // WdMeasurementUnits + function wdCentimeters(); + function wdInches(); + function wdMillimeters(); + function wdPicas(); + function wdPoints(); + + // WdMergeFormatFrom + function wdMergeFormatFromOriginal(); + function wdMergeFormatFromPrompt(); + function wdMergeFormatFromRevised(); + + // WdMergeSubType + function wdMergeSubTypeAccess(); + function wdMergeSubTypeOAL(); + function wdMergeSubTypeOLEDBText(); + function wdMergeSubTypeOLEDBWord(); + function wdMergeSubTypeOther(); + function wdMergeSubTypeOutlook(); + function wdMergeSubTypeWord(); + function wdMergeSubTypeWord2000(); + function wdMergeSubTypeWorks(); + + // WdMergeTarget + function wdMergeTargetCurrent(); + function wdMergeTargetNew(); + function wdMergeTargetSelected(); + + // WdMonthNames + function wdMonthNamesArabic(); + function wdMonthNamesEnglish(); + function wdMonthNamesFrench(); + + // WdMoveFromTextMark + function wdMoveFromTextMarkBold(); + function wdMoveFromTextMarkCaret(); + function wdMoveFromTextMarkColorOnly(); + function wdMoveFromTextMarkDoubleStrikeThrough(); + function wdMoveFromTextMarkDoubleUnderline(); + function wdMoveFromTextMarkHidden(); + function wdMoveFromTextMarkItalic(); + function wdMoveFromTextMarkNone(); + function wdMoveFromTextMarkPound(); + function wdMoveFromTextMarkStrikeThrough(); + function wdMoveFromTextMarkUnderline(); + + // WdMovementType + function wdExtend(); + function wdMove(); + + // WdMoveToTextMark + function wdMoveToTextMarkBold(); + function wdMoveToTextMarkColorOnly(); + function wdMoveToTextMarkDoubleStrikeThrough(); + function wdMoveToTextMarkDoubleUnderline(); + function wdMoveToTextMarkItalic(); + function wdMoveToTextMarkNone(); + function wdMoveToTextMarkStrikeThrough(); + function wdMoveToTextMarkUnderline(); + + // WdMultipleWordConversionsMode + function wdHangulToHanja(); + function wdHanjaToHangul(); + + // WdNewDocumentType + function wdNewBlankDocument(); + function wdNewEmailMessage(); + function wdNewFrameset(); + function wdNewWebPage(); + function wdNewXMLDocument(); + + // WdNoteNumberStyle + function wdNoteNumberStyleArabic(); + function wdNoteNumberStyleArabicFullWidth(); + function wdNoteNumberStyleArabicLetter1(); + function wdNoteNumberStyleArabicLetter2(); + function wdNoteNumberStyleHanjaRead(); + function wdNoteNumberStyleHanjaReadDigit(); + function wdNoteNumberStyleHebrewLetter1(); + function wdNoteNumberStyleHebrewLetter2(); + function wdNoteNumberStyleHindiArabic(); + function wdNoteNumberStyleHindiCardinalText(); + function wdNoteNumberStyleHindiLetter1(); + function wdNoteNumberStyleHindiLetter2(); + function wdNoteNumberStyleKanji(); + function wdNoteNumberStyleKanjiDigit(); + function wdNoteNumberStyleKanjiTraditional(); + function wdNoteNumberStyleLowercaseLetter(); + function wdNoteNumberStyleLowercaseRoman(); + function wdNoteNumberStyleNumberInCircle(); + function wdNoteNumberStyleSimpChinNum1(); + function wdNoteNumberStyleSimpChinNum2(); + function wdNoteNumberStyleSymbol(); + function wdNoteNumberStyleThaiArabic(); + function wdNoteNumberStyleThaiCardinalText(); + function wdNoteNumberStyleThaiLetter(); + function wdNoteNumberStyleTradChinNum1(); + function wdNoteNumberStyleTradChinNum2(); + function wdNoteNumberStyleUppercaseLetter(); + function wdNoteNumberStyleUppercaseRoman(); + function wdNoteNumberStyleVietCardinalText(); + + // WdNumberForm + function wdNumberFormDefault(); + function wdNumberFormLining(); + function wdNumberFormOldstyle(); + + // WdNumberingRule + function wdRestartContinuous(); + function wdRestartPage(); + function wdRestartSection(); + + // WdNumberSpacing + function wdNumberSpacingDefault(); + function wdNumberSpacingProportional(); + function wdNumberSpacingTabular(); + + // WdNumberStyleWordBasicBiDi + function wdCaptionNumberStyleBidiLetter1(); + function wdCaptionNumberStyleBidiLetter2(); + function wdListNumberStyleBidi1(); + function wdListNumberStyleBidi2(); + function wdNoteNumberStyleBidiLetter1(); + function wdNoteNumberStyleBidiLetter2(); + function wdPageNumberStyleBidiLetter1(); + function wdPageNumberStyleBidiLetter2(); + + // WdNumberType + function wdNumberAllNumbers(); + function wdNumberListNum(); + function wdNumberParagraph(); + + // WdOLEPlacement + function wdFloatOverText(); + function wdInLine(); + + // WdOLEType + function wdOLEControl(); + function wdOLEEmbed(); + function wdOLELink(); + + // WdOLEVerb + function wdOLEVerbDiscardUndoState(); + function wdOLEVerbHide(); + function wdOLEVerbInPlaceActivate(); + function wdOLEVerbOpen(); + function wdOLEVerbPrimary(); + function wdOLEVerbShow(); + function wdOLEVerbUIActivate(); + + // WdOMathBreakBin + function wdOMathBreakBinAfter(); + function wdOMathBreakBinBefore(); + function wdOMathBreakBinRepeat(); + + // WdOMathBreakSub + function wdOMathBreakSubMinusMinus(); + function wdOMathBreakSubMinusPlus(); + function wdOMathBreakSubPlusMinus(); + + // WdOMathFracType + function wdOMathFracBar(); + function wdOMathFracLin(); + function wdOMathFracNoBar(); + function wdOMathFracSkw(); + + // WdOMathFunctionType + function wdOMathFunctionAcc(); + function wdOMathFunctionBar(); + function wdOMathFunctionBorderBox(); + function wdOMathFunctionBox(); + function wdOMathFunctionDelim(); + function wdOMathFunctionEqArray(); + function wdOMathFunctionFrac(); + function wdOMathFunctionFunc(); + function wdOMathFunctionGroupChar(); + function wdOMathFunctionLimLow(); + function wdOMathFunctionLimUpp(); + function wdOMathFunctionMat(); + function wdOMathFunctionNary(); + function wdOMathFunctionNormalText(); + function wdOMathFunctionPhantom(); + function wdOMathFunctionRad(); + function wdOMathFunctionScrPre(); + function wdOMathFunctionScrSub(); + function wdOMathFunctionScrSubSup(); + function wdOMathFunctionScrSup(); + function wdOMathFunctionText(); + + // WdOMathHorizAlignType + function wdOMathHorizAlignCenter(); + function wdOMathHorizAlignLeft(); + function wdOMathHorizAlignRight(); + + // WdOMathJc + function wdOMathJcCenter(); + function wdOMathJcCenterGroup(); + function wdOMathJcInline(); + function wdOMathJcLeft(); + function wdOMathJcRight(); + + // WdOMathShapeType + function wdOMathShapeCentered(); + function wdOMathShapeMatch(); + + // WdOMathSpacingRule + function wdOMathSpacing1pt5(); + function wdOMathSpacingDouble(); + function wdOMathSpacingExactly(); + function wdOMathSpacingMultiple(); + function wdOMathSpacingSingle(); + + // WdOMathType + function wdOMathDisplay(); + function wdOMathInline(); + + // WdOMathVertAlignType + function wdOMathVertAlignBottom(); + function wdOMathVertAlignCenter(); + function wdOMathVertAlignTop(); + + // WdOpenFormat + function wdOpenFormatAllWord(); + function wdOpenFormatAuto(); + function wdOpenFormatDocument(); + function wdOpenFormatEncodedText(); + function wdOpenFormatRTF(); + function wdOpenFormatTemplate(); + function wdOpenFormatText(); + function wdOpenFormatOpenDocumentText(); + function wdOpenFormatUnicodeText(); + function wdOpenFormatWebPages(); + function wdOpenFormatXML(); + function wdOpenFormatAllWordTemplates(); + function wdOpenFormatDocument97(); + function wdOpenFormatTemplate97(); + function wdOpenFormatXMLDocument(); + function wdOpenFormatXMLDocumentSerialized(); + function wdOpenFormatXMLDocumentMacroEnabled(); + function wdOpenFormatXMLDocumentMacroEnabledSerialized(); + function wdOpenFormatXMLTemplate(); + function wdOpenFormatXMLTemplateSerialized(); + function wdOpenFormatXMLTemplateMacroEnabled(); + function wdOpenFormatXMLTemplateMacroEnabledSerialized(); + + // WdOrganizerObject + function wdOrganizerObjectAutoText(); + function wdOrganizerObjectCommandBars(); + function wdOrganizerObjectProjectItems(); + function wdOrganizerObjectStyles(); + + // WdOrientation + function wdOrientLandscape(); + function wdOrientPortrait(); + + // WdOriginalFormat + function wdOriginalDocumentFormat(); + function wdPromptUser(); + function wdWordDocument(); + + // WdOutlineLevel + function wdOutlineLevel1(); + function wdOutlineLevel2(); + function wdOutlineLevel3(); + function wdOutlineLevel4(); + function wdOutlineLevel5(); + function wdOutlineLevel6(); + function wdOutlineLevel7(); + function wdOutlineLevel8(); + function wdOutlineLevel9(); + function wdOutlineLevelBodyText(); + + // WdPageBorderArt + function wdArtApples(); + function wdArtArchedScallops(); + function wdArtBabyPacifier(); + function wdArtBabyRattle(); + function wdArtBalloons3Colors(); + function wdArtBalloonsHotAir(); + function wdArtBasicBlackDashes(); + function wdArtBasicBlackDots(); + function wdArtBasicBlackSquares(); + function wdArtBasicThinLines(); + function wdArtBasicWhiteDashes(); + function wdArtBasicWhiteDots(); + function wdArtBasicWhiteSquares(); + function wdArtBasicWideInline(); + function wdArtBasicWideMidline(); + function wdArtBasicWideOutline(); + function wdArtBats(); + function wdArtBirds(); + function wdArtBirdsFlight(); + function wdArtCabins(); + function wdArtCakeSlice(); + function wdArtCandyCorn(); + function wdArtCelticKnotwork(); + function wdArtCertificateBanner(); + function wdArtChainLink(); + function wdArtChampagneBottle(); + function wdArtCheckedBarBlack(); + function wdArtCheckedBarColor(); + function wdArtCheckered(); + function wdArtChristmasTree(); + function wdArtCirclesLines(); + function wdArtCirclesRectangles(); + function wdArtClassicalWave(); + function wdArtClocks(); + function wdArtCompass(); + function wdArtConfetti(); + function wdArtConfettiGrays(); + function wdArtConfettiOutline(); + function wdArtConfettiStreamers(); + function wdArtConfettiWhite(); + function wdArtCornerTriangles(); + function wdArtCouponCutoutDashes(); + function wdArtCouponCutoutDots(); + function wdArtCrazyMaze(); + function wdArtCreaturesButterfly(); + function wdArtCreaturesFish(); + function wdArtCreaturesInsects(); + function wdArtCreaturesLadyBug(); + function wdArtCrossStitch(); + function wdArtCup(); + function wdArtDecoArch(); + function wdArtDecoArchColor(); + function wdArtDecoBlocks(); + function wdArtDiamondsGray(); + function wdArtDoubleD(); + function wdArtDoubleDiamonds(); + function wdArtEarth1(); + function wdArtEarth2(); + function wdArtEclipsingSquares1(); + function wdArtEclipsingSquares2(); + function wdArtEggsBlack(); + function wdArtFans(); + function wdArtFilm(); + function wdArtFirecrackers(); + function wdArtFlowersBlockPrint(); + function wdArtFlowersDaisies(); + function wdArtFlowersModern1(); + function wdArtFlowersModern2(); + function wdArtFlowersPansy(); + function wdArtFlowersRedRose(); + function wdArtFlowersRoses(); + function wdArtFlowersTeacup(); + function wdArtFlowersTiny(); + function wdArtGems(); + function wdArtGingerbreadMan(); + function wdArtGradient(); + function wdArtHandmade1(); + function wdArtHandmade2(); + function wdArtHeartBalloon(); + function wdArtHeartGray(); + function wdArtHearts(); + function wdArtHeebieJeebies(); + function wdArtHolly(); + function wdArtHouseFunky(); + function wdArtHypnotic(); + function wdArtIceCreamCones(); + function wdArtLightBulb(); + function wdArtLightning1(); + function wdArtLightning2(); + function wdArtMapleLeaf(); + function wdArtMapleMuffins(); + function wdArtMapPins(); + function wdArtMarquee(); + function wdArtMarqueeToothed(); + function wdArtMoons(); + function wdArtMosaic(); + function wdArtMusicNotes(); + function wdArtNorthwest(); + function wdArtOvals(); + function wdArtPackages(); + function wdArtPalmsBlack(); + function wdArtPalmsColor(); + function wdArtPaperClips(); + function wdArtPapyrus(); + function wdArtPartyFavor(); + function wdArtPartyGlass(); + function wdArtPencils(); + function wdArtPeople(); + function wdArtPeopleHats(); + function wdArtPeopleWaving(); + function wdArtPoinsettias(); + function wdArtPostageStamp(); + function wdArtPumpkin1(); + function wdArtPushPinNote1(); + function wdArtPushPinNote2(); + function wdArtPyramids(); + function wdArtPyramidsAbove(); + function wdArtQuadrants(); + function wdArtRings(); + function wdArtSafari(); + function wdArtSawtooth(); + function wdArtSawtoothGray(); + function wdArtScaredCat(); + function wdArtSeattle(); + function wdArtShadowedSquares(); + function wdArtSharksTeeth(); + function wdArtShorebirdTracks(); + function wdArtSkyrocket(); + function wdArtSnowflakeFancy(); + function wdArtSnowflakes(); + function wdArtSombrero(); + function wdArtSouthwest(); + function wdArtStars(); + function wdArtStars3D(); + function wdArtStarsBlack(); + function wdArtStarsShadowed(); + function wdArtStarsTop(); + function wdArtSun(); + function wdArtSwirligig(); + function wdArtTornPaper(); + function wdArtTornPaperBlack(); + function wdArtTrees(); + function wdArtTriangleParty(); + function wdArtTriangles(); + function wdArtTribal1(); + function wdArtTribal2(); + function wdArtTribal3(); + function wdArtTribal4(); + function wdArtTribal5(); + function wdArtTribal6(); + function wdArtTwistedLines1(); + function wdArtTwistedLines2(); + function wdArtVine(); + function wdArtWaveline(); + function wdArtWeavingAngles(); + function wdArtWeavingBraid(); + function wdArtWeavingRibbon(); + function wdArtWeavingStrips(); + function wdArtWhiteFlowers(); + function wdArtWoodwork(); + function wdArtXIllusions(); + function wdArtZanyTriangles(); + function wdArtZigZag(); + function wdArtZigZagStitch(); + + // WdPageColor + function wdPageColorInverse(); + function wdPageColorNone(); + function wdPageColorSepia(); + + // WdPageFit + function wdPageFitBestFit(); + function wdPageFitFullPage(); + function wdPageFitNone(); + function wdPageFitTextFit(); + + // WdPageMovementType + function wdVertical(); + function wdSideToSide(); + + // WdPageNumberAlignment + function wdAlignPageNumberCenter(); + function wdAlignPageNumberInside(); + function wdAlignPageNumberLeft(); + function wdAlignPageNumberOutside(); + function wdAlignPageNumberRight(); + + // WdPageNumberStyle + function wdPageNumberStyleArabic(); + function wdPageNumberStyleArabicFullWidth(); + function wdPageNumberStyleArabicLetter1(); + function wdPageNumberStyleArabicLetter2(); + function wdPageNumberStyleHanjaRead(); + function wdPageNumberStyleHanjaReadDigit(); + function wdPageNumberStyleHebrewLetter1(); + function wdPageNumberStyleHebrewLetter2(); + function wdPageNumberStyleHindiArabic(); + function wdPageNumberStyleHindiCardinalText(); + function wdPageNumberStyleHindiLetter1(); + function wdPageNumberStyleHindiLetter2(); + function wdPageNumberStyleKanji(); + function wdPageNumberStyleKanjiDigit(); + function wdPageNumberStyleKanjiTraditional(); + function wdPageNumberStyleLowercaseLetter(); + function wdPageNumberStyleLowercaseRoman(); + function wdPageNumberStyleNumberInCircle(); + function wdPageNumberStyleNumberInDash(); + function wdPageNumberStyleSimpChinNum1(); + function wdPageNumberStyleSimpChinNum2(); + function wdPageNumberStyleThaiArabic(); + function wdPageNumberStyleThaiCardinalText(); + function wdPageNumberStyleThaiLetter(); + function wdPageNumberStyleTradChinNum1(); + function wdPageNumberStyleTradChinNum2(); + function wdPageNumberStyleUppercaseLetter(); + function wdPageNumberStyleUppercaseRoman(); + function wdPageNumberStyleVietCardinalText(); + + // WdPaperSize + function wdPaper10x14(); + function wdPaper11x17(); + function wdPaperA3(); + function wdPaperA4(); + function wdPaperA4Small(); + function wdPaperA5(); + function wdPaperB4(); + function wdPaperB5(); + function wdPaperCSheet(); + function wdPaperCustom(); + function wdPaperDSheet(); + function wdPaperEnvelope10(); + function wdPaperEnvelope11(); + function wdPaperEnvelope12(); + function wdPaperEnvelope14(); + function wdPaperEnvelope9(); + function wdPaperEnvelopeB4(); + function wdPaperEnvelopeB5(); + function wdPaperEnvelopeB6(); + function wdPaperEnvelopeC3(); + function wdPaperEnvelopeC4(); + function wdPaperEnvelopeC5(); + function wdPaperEnvelopeC6(); + function wdPaperEnvelopeC65(); + function wdPaperEnvelopeDL(); + function wdPaperEnvelopeItaly(); + function wdPaperEnvelopeMonarch(); + function wdPaperEnvelopePersonal(); + function wdPaperESheet(); + function wdPaperExecutive(); + function wdPaperFanfoldLegalGerman(); + function wdPaperFanfoldStdGerman(); + function wdPaperFanfoldUS(); + function wdPaperFolio(); + function wdPaperLedger(); + function wdPaperLegal(); + function wdPaperLetter(); + function wdPaperLetterSmall(); + function wdPaperNote(); + function wdPaperQuarto(); + function wdPaperStatement(); + function wdPaperTabloid(); + + // WdPaperTray + function wdPrinterAutomaticSheetFeed(); + function wdPrinterDefaultBin(); + function wdPrinterEnvelopeFeed(); + function wdPrinterFormSource(); + function wdPrinterLargeCapacityBin(); + function wdPrinterLargeFormatBin(); + function wdPrinterLowerBin(); + function wdPrinterManualEnvelopeFeed(); + function wdPrinterManualFeed(); + function wdPrinterMiddleBin(); + function wdPrinterOnlyBin(); + function wdPrinterPaperCassette(); + function wdPrinterSmallFormatBin(); + function wdPrinterTractorFeed(); + function wdPrinterUpperBin(); + + // WdParagraphAlignment + function wdAlignParagraphCenter(); + function wdAlignParagraphDistribute(); + function wdAlignParagraphJustify(); + function wdAlignParagraphJustifyHi(); + function wdAlignParagraphJustifyLow(); + function wdAlignParagraphJustifyMed(); + function wdAlignParagraphLeft(); + function wdAlignParagraphRight(); + function wdAlignParagraphThaiJustify(); + + // WdPartOfSpeech + function wdAdjective(); + function wdAdverb(); + function wdConjunction(); + function wdIdiom(); + function wdInterjection(); + function wdNoun(); + function wdOther(); + function wdPreposition(); + function wdPronoun(); + function wdVerb(); + + // WdPasteDataType + function wdPasteBitmap(); + function wdPasteDeviceIndependentBitmap(); + function wdPasteEnhancedMetafile(); + function wdPasteHTML(); + function wdPasteHyperlink(); + function wdPasteMetafilePicture(); + function wdPasteOLEObject(); + function wdPasteRTF(); + function wdPasteShape(); + function wdPasteText(); + + // WdPasteOptions + function wdKeepSourceFormatting(); + function wdKeepTextOnly(); + function wdMatchDestinationFormatting(); + function wdUseDestinationStyles(); + + // WdPhoneticGuideAlignmentType + function wdPhoneticGuideAlignmentCenter(); + function wdPhoneticGuideAlignmentLeft(); + function wdPhoneticGuideAlignmentOneTwoOne(); + function wdPhoneticGuideAlignmentRight(); + function wdPhoneticGuideAlignmentRightVertical(); + function wdPhoneticGuideAlignmentZeroOneZero(); + + // WdPictureLinkType + function wdLinkDataInDoc(); + function wdLinkDataOnDisk(); + function wdLinkNone(); + + // WdPortugueseReform + function wdPortugueseBoth(); + function wdPortuguesePostReform(); + function wdPortuguesePreReform(); + + // WdPreferredWidthType + function wdPreferredWidthAuto(); + function wdPreferredWidthPercent(); + function wdPreferredWidthPoints(); + + // WdPrintOutItem + function wdPrintAutoTextEntries(); + function wdPrintComments(); + function wdPrintDocumentContent(); + function wdPrintDocumentWithMarkup(); + function wdPrintEnvelope(); + function wdPrintKeyAssignments(); + function wdPrintMarkup(); + function wdPrintProperties(); + function wdPrintStyles(); + + // WdPrintOutPages + function wdPrintAllPages(); + function wdPrintEvenPagesOnly(); + function wdPrintOddPagesOnly(); + + // WdPrintOutRange + function wdPrintAllDocument(); + function wdPrintCurrentPage(); + function wdPrintFromTo(); + function wdPrintRangeOfPages(); + function wdPrintSelection(); + + // WdProofreadingErrorType + function wdGrammaticalError(); + function wdSpellingError(); + + // WdProtectedViewCloseReason + function wdProtectedViewCloseEdit(); + function wdProtectedViewCloseForced(); + function wdProtectedViewCloseNormal(); + + // WdProtectionType + function wdAllowOnlyComments(); + function wdAllowOnlyFormFields(); + function wdAllowOnlyReading(); + function wdAllowOnlyRevisions(); + function wdNoProtection(); + + // WdReadingLayoutMargin + function wdAutomaticMargin(); + function wdFullMargin(); + function wdSuppressMargin(); + + // WdReadingOrder + function wdReadingOrderLtr(); + function wdReadingOrderRtl(); + + // WdRecoveryType + function wdChart(); + function wdChartLinked(); + function wdChartPicture(); + function wdFormatOriginalFormatting(); + function wdFormatPlainText(); + function wdFormatSurroundingFormattingWithEmphasis(); + function wdListCombineWithExistingList(); + function wdListContinueNumbering(); + function wdListDontMerge(); + function wdListRestartNumbering(); + function wdPasteDefault(); + function wdSingleCellTable(); + function wdSingleCellText(); + function wdTableAppendTable(); + function wdTableInsertAsRows(); + function wdTableOriginalFormatting(); + function wdTableOverwriteCells(); + function wdUseDestinationStylesRecovery(); + + // WdRectangleType + function wdLineBetweenColumnRectangle(); + function wdMarkupRectangle(); + function wdMarkupRectangleButton(); + function wdPageBorderRectangle(); + function wdSelection(); + function wdShapeRectangle(); + function wdSystem(); + function wdTextRectangle(); + function wdDocumentControlRectangle(); + function wdMailNavArea(); + function wdMarkupRectangleArea(); + function wdMarkupRectangleMoveMatch(); + function wdReadingModeNavigation(); + function wdReadingModePanningArea(); + + // WdReferenceKind + function wdContentText(); + function wdEndnoteNumber(); + function wdEndnoteNumberFormatted(); + function wdEntireCaption(); + function wdFootnoteNumber(); + function wdFootnoteNumberFormatted(); + function wdNumberFullContext(); + function wdNumberNoContext(); + function wdNumberRelativeContext(); + function wdOnlyCaptionText(); + function wdOnlyLabelAndNumber(); + function wdPageNumber(); + function wdPosition(); + + // WdReferenceType + function wdRefTypeBookmark(); + function wdRefTypeEndnote(); + function wdRefTypeFootnote(); + function wdRefTypeHeading(); + function wdRefTypeNumberedItem(); + + // WdRelativeHorizontalPosition + function wdRelativeHorizontalPositionCharacter(); + function wdRelativeHorizontalPositionColumn(); + function wdRelativeHorizontalPositionMargin(); + function wdRelativeHorizontalPositionPage(); + function wdRelativeHorizontalPositionInnerMarginArea(); + function wdRelativeHorizontalPositionLeftMarginArea(); + function wdRelativeHorizontalPositionOuterMarginArea(); + function wdRelativeHorizontalPositionRightMarginArea(); + + // WdRelativeHorizontalSize + function wdRelativeHorizontalSizeInnerMarginArea(); + function wdRelativeHorizontalSizeLeftMarginArea(); + function wdRelativeHorizontalSizeMargin(); + function wdRelativeHorizontalSizeOuterMarginArea(); + function wdRelativeHorizontalSizePage(); + function wdRelativeHorizontalSizeRightMarginArea(); + + // WdRelativeVerticalPosition + function wdRelativeVerticalPositionLine(); + function wdRelativeVerticalPositionMargin(); + function wdRelativeVerticalPositionPage(); + function wdRelativeVerticalPositionParagraph(); + function wdRelativeVerticalPositionBottomMarginArea(); + function wdRelativeVerticalPositionInnerMarginArea(); + function wdRelativeVerticalPositionOuterMarginArea(); + function wdRelativeVerticalPositionTopMarginArea(); + + // WdRelativeVerticalSize + function wdRelativeVerticalSizeBottomMarginArea(); + function wdRelativeVerticalSizeInnerMarginArea(); + function wdRelativeVerticalSizeMargin(); + function wdRelativeVerticalSizeOuterMarginArea(); + function wdRelativeVerticalSizePage(); + function wdRelativeVerticalSizeTopMarginArea(); + + // WdRelocate + function wdRelocateDown(); + function wdRelocateUp(); + + // WdRemoveDocInfoType + function wdRDIAll(); + function wdRDIComments(); + function wdRDIContentType(); + function wdRDIDocumentManagementPolicy(); + function wdRDIDocumentProperties(); + function wdRDIDocumentServerProperties(); + function wdRDIDocumentWorkspace(); + function wdRDIEmailHeader(); + function wdRDIInkAnnotations(); + function wdRDIRemovePersonalInformation(); + function wdRDIRevisions(); + function wdRDIRoutingSlip(); + function wdRDISendForReview(); + function wdRDITemplate(); + function wdRDITaskpaneWebExtensions(); + function wdRDIVersions(); + + // WdReplace + function wdReplaceAll(); + function wdReplaceNone(); + function wdReplaceOne(); + + // WdRevisedLinesMark + function wdRevisedLinesMarkLeftBorder(); + function wdRevisedLinesMarkNone(); + function wdRevisedLinesMarkOutsideBorder(); + function wdRevisedLinesMarkRightBorder(); + + // WdRevisedPropertiesMark + function wdRevisedPropertiesMarkBold(); + function wdRevisedPropertiesMarkColorOnly(); + function wdRevisedPropertiesMarkDoubleStrikeThrough(); + function wdRevisedPropertiesMarkDoubleUnderline(); + function wdRevisedPropertiesMarkItalic(); + function wdRevisedPropertiesMarkNone(); + function wdRevisedPropertiesMarkStrikeThrough(); + function wdRevisedPropertiesMarkUnderline(); + + // WdRevisionsBalloonMargin + function wdLeftMargin(); + function wdRightMargin(); + + // WdRevisionsBalloonPrintOrientation + function wdBalloonPrintOrientationAuto(); + function wdBalloonPrintOrientationForceLandscape(); + function wdBalloonPrintOrientationPreserve(); + + // WdRevisionsBalloonWidthType + function wdBalloonWidthPercent(); + function wdBalloonWidthPoints(); + + // WdRevisionsMarkup + function wdRevisionsMarkupAll(); + function wdRevisionsMarkupNone(); + function wdRevisionsMarkupSimple(); + + // WdRevisionsMode + function wdBalloonRevisions(); + function wdInLineRevisions(); + function wdMixedRevisions(); + + // WdRevisionsView + function wdRevisionsViewFinal(); + function wdRevisionsViewOriginal(); + + // WdRevisionsWrap + function wdWrapAlways(); + function wdWrapAsk(); + function wdWrapNever(); + + // WdRevisionType + function wdNoRevision(); + function wdRevisionCellDeletion(); + function wdRevisionCellInsertion(); + function wdRevisionCellMerge(); + function wdRevisionCellSplit(); + function wdRevisionConflict(); + function wdRevisionConflictDelete(); + function wdRevisionConflictInsert(); + function wdRevisionDelete(); + function wdRevisionDisplayField(); + function wdRevisionInsert(); + function wdRevisionMovedFrom(); + function wdRevisionMovedTo(); + function wdRevisionParagraphNumber(); + function wdRevisionParagraphProperty(); + function wdRevisionProperty(); + function wdRevisionReconcile(); + function wdRevisionReplace(); + function wdRevisionSectionProperty(); + function wdRevisionStyle(); + function wdRevisionStyleDefinition(); + function wdRevisionTableProperty(); + + // WdRowAlignment + function wdAlignRowCenter(); + function wdAlignRowLeft(); + function wdAlignRowRight(); + + // WdRowHeightRule + function wdRowHeightAtLeast(); + function wdRowHeightAuto(); + function wdRowHeightExactly(); + + // WdRulerStyle + function wdAdjustFirstColumn(); + function wdAdjustNone(); + function wdAdjustProportional(); + function wdAdjustSameWidth(); + + // WdSalutationGender + function wdGenderFemale(); + function wdGenderMale(); + function wdGenderNeutral(); + function wdGenderUnknown(); + + // WdSalutationType + function wdSalutationBusiness(); + function wdSalutationFormal(); + function wdSalutationInformal(); + function wdSalutationOther(); + + // WdSaveFormat + function wdFormatDocument(); + function wdFormatDOSText(); + function wdFormatDOSTextLineBreaks(); + function wdFormatEncodedText(); + function wdFormatFilteredHTML(); + function wdFormatFlatXML(); + function wdFormatFlatXMLMacroEnabled(); + function wdFormatFlatXMLTemplate(); + function wdFormatFlatXMLTemplateMacroEnabled(); + function wdFormatOpenDocumentText(); + function wdFormatHTML(); + function wdFormatRTF(); + function wdFormatStrictOpenXMLDocument(); + function wdFormatTemplate(); + function wdFormatText(); + function wdFormatTextLineBreaks(); + function wdFormatUnicodeText(); + function wdFormatWebArchive(); + function wdFormatXML(); + function wdFormatDocument97(); + function wdFormatDocumentDefault(); + function wdFormatPDF(); + function wdFormatTemplate97(); + function wdFormatXMLDocument(); + function wdFormatXMLDocumentMacroEnabled(); + function wdFormatXMLTemplate(); + function wdFormatXMLTemplateMacroEnabled(); + function wdFormatXPS(); + + // WdSaveOptions + function wdDoNotSaveChanges(); + function wdPromptToSaveChanges(); + function wdSaveChanges(); + + // WdScrollbarType + function wdScrollbarTypeAuto(); + function wdScrollbarTypeNo(); + function wdScrollbarTypeYes(); + + // WdSectionDirection + function wdSectionDirectionLtr(); + function wdSectionDirectionRtl(); + + // WdSectionStart + function wdSectionContinuous(); + function wdSectionEvenPage(); + function wdSectionNewColumn(); + function wdSectionNewPage(); + function wdSectionOddPage(); + + // WdSeekView + function wdSeekCurrentPageFooter(); + function wdSeekCurrentPageHeader(); + function wdSeekEndnotes(); + function wdSeekEvenPagesFooter(); + function wdSeekEvenPagesHeader(); + function wdSeekFirstPageFooter(); + function wdSeekFirstPageHeader(); + function wdSeekFootnotes(); + function wdSeekMainDocument(); + function wdSeekPrimaryFooter(); + function wdSeekPrimaryHeader(); + + // WdSelectionFlags + function wdSelActive(); + function wdSelAtEOL(); + function wdSelOvertype(); + function wdSelReplace(); + function wdSelStartActive(); + + // WdSelectionType + function wdNoSelection(); + function wdSelectionBlock(); + function wdSelectionColumn(); + function wdSelectionFrame(); + function wdSelectionInlineShape(); + function wdSelectionIP(); + function wdSelectionNormal(); + function wdSelectionRow(); + function wdSelectionShape(); + + // WdSeparatorType + function wdSeparatorColon(); + function wdSeparatorEmDash(); + function wdSeparatorEnDash(); + function wdSeparatorHyphen(); + function wdSeparatorPeriod(); + + // WdShapePosition + function wdShapeBottom(); + function wdShapeCenter(); + function wdShapeInside(); + function wdShapeLeft(); + function wdShapeOutside(); + function wdShapeRight(); + function wdShapeTop(); + + // WdShapePositionRelative + function wdShapePositionRelativeNone(); + + // WdShapeSizeRelative + function wdShapeSizeRelativeNone(); + + // WdShowFilter + function wdShowFilterFormattingAvailable(); + function wdShowFilterFormattingInUse(); + function wdShowFilterStylesAll(); + function wdShowFilterStylesAvailable(); + function wdShowFilterStylesInUse(); + function wdShowFilterFormattingRecommended(); + + // WdShowSourceDocuments + function wdShowSourceDocumentsBoth(); + function wdShowSourceDocumentsNone(); + function wdShowSourceDocumentsOriginal(); + function wdShowSourceDocumentsRevised(); + + // WdSmartTagControlType + function wdControlActiveX(); + function wdControlButton(); + function wdControlCheckbox(); + function wdControlCombo(); + function wdControlDocumentFragment(); + function wdControlDocumentFragmentURL(); + function wdControlHelp(); + function wdControlHelpURL(); + function wdControlImage(); + function wdControlLabel(); + function wdControlLink(); + function wdControlListbox(); + function wdControlRadioGroup(); + function wdControlSeparator(); + function wdControlSmartTag(); + function wdControlTextbox(); + + // WdSortFieldType + function wdSortFieldAlphanumeric(); + function wdSortFieldDate(); + function wdSortFieldJapanJIS(); + function wdSortFieldKoreaKS(); + function wdSortFieldNumeric(); + function wdSortFieldStroke(); + function wdSortFieldSyllable(); + + // WdSortOrder + function wdSortOrderAscending(); + function wdSortOrderDescending(); + + // WdSortSeparator + function wdSortSeparateByCommas(); + function wdSortSeparateByDefaultTableSeparator(); + function wdSortSeparateByTabs(); + + // WdSpanishSpeller + function wdSpanishTuteoAndVoseo(); + function wdSpanishTuteoOnly(); + function wdSpanishVoseoOnly(); + + // WdSpecialPane + function wdPaneComments(); + function wdPaneCurrentPageFooter(); + function wdPaneCurrentPageHeader(); + function wdPaneEndnoteContinuationNotice(); + function wdPaneEndnoteContinuationSeparator(); + function wdPaneEndnotes(); + function wdPaneEndnoteSeparator(); + function wdPaneEvenPagesFooter(); + function wdPaneEvenPagesHeader(); + function wdPaneFirstPageFooter(); + function wdPaneFirstPageHeader(); + function wdPaneFootnoteContinuationNotice(); + function wdPaneFootnoteContinuationSeparator(); + function wdPaneFootnotes(); + function wdPaneFootnoteSeparator(); + function wdPaneNone(); + function wdPanePrimaryFooter(); + function wdPanePrimaryHeader(); + function wdPaneRevisions(); + function wdPaneRevisionsHoriz(); + function wdPaneRevisionsVert(); + + // WdSpellingErrorType + function wdSpellingCapitalization(); + function wdSpellingCorrect(); + function wdSpellingNotInDictionary(); + + // WdSpellingWordType + function wdAnagram(); + function wdSpellword(); + function wdWildcard(); + + // WdStatistic + function wdStatisticCharacters(); + function wdStatisticCharactersWithSpaces(); + function wdStatisticFarEastCharacters(); + function wdStatisticLines(); + function wdStatisticPages(); + function wdStatisticParagraphs(); + function wdStatisticWords(); + + // WdStoryType + function wdCommentsStory(); + function wdEndnoteContinuationNoticeStory(); + function wdEndnoteContinuationSeparatorStory(); + function wdEndnoteSeparatorStory(); + function wdEndnotesStory(); + function wdEvenPagesFooterStory(); + function wdEvenPagesHeaderStory(); + function wdFirstPageFooterStory(); + function wdFirstPageHeaderStory(); + function wdFootnoteContinuationNoticeStory(); + function wdFootnoteContinuationSeparatorStory(); + function wdFootnoteSeparatorStory(); + function wdFootnotesStory(); + function wdMainTextStory(); + function wdPrimaryFooterStory(); + function wdPrimaryHeaderStory(); + function wdTextFrameStory(); + + // WdStyleSheetLinkType + function wdStyleSheetLinkTypeImported(); + function wdStyleSheetLinkTypeLinked(); + + // WdStyleSheetPrecedence + function wdStyleSheetPrecedenceHigher(); + function wdStyleSheetPrecedenceHighest(); + function wdStyleSheetPrecedenceLower(); + function wdStyleSheetPrecedenceLowest(); + + // WdStyleSort + function wdStyleSortByBasedOn(); + function wdStyleSortByFont(); + function wdStyleSortByName(); + function wdStyleSortByType(); + function wdStyleSortRecommended(); + + // WdStyleType + function wdStyleTypeCharacter(); + function wdStyleTypeList(); + function wdStyleTypeParagraph(); + function wdStyleTypeTable(); + + // WdStylisticSet + function wdStylisticSet01(); + function wdStylisticSet02(); + function wdStylisticSet03(); + function wdStylisticSet04(); + function wdStylisticSet05(); + function wdStylisticSet06(); + function wdStylisticSet07(); + function wdStylisticSet08(); + function wdStylisticSet09(); + function wdStylisticSet10(); + function wdStylisticSet11(); + function wdStylisticSet12(); + function wdStylisticSet13(); + function wdStylisticSet14(); + function wdStylisticSet15(); + function wdStylisticSet16(); + function wdStylisticSet17(); + function wdStylisticSet18(); + function wdStylisticSet19(); + function wdStylisticSet20(); + function wdStylisticSetDefault(); + + // WdSubscriberFormats + function wdSubscriberBestFormat(); + function wdSubscriberPict(); + function wdSubscriberRTF(); + function wdSubscriberText(); + + // WdTabAlignment + function wdAlignTabBar(); + function wdAlignTabCenter(); + function wdAlignTabDecimal(); + function wdAlignTabLeft(); + function wdAlignTabList(); + function wdAlignTabRight(); + + // WdTabLeader + function wdTabLeaderDashes(); + function wdTabLeaderDots(); + function wdTabLeaderHeavy(); + function wdTabLeaderLines(); + function wdTabLeaderMiddleDot(); + function wdTabLeaderSpaces(); + + // WdTableDirection + function wdTableDirectionLtr(); + function wdTableDirectionRtl(); + + // WdTableFieldSeparator + function wdSeparateByCommas(); + function wdSeparateByDefaultListSeparator(); + function wdSeparateByParagraphs(); + function wdSeparateByTabs(); + + // WdTableFormat + function wdTableFormat3DEffects1(); + function wdTableFormat3DEffects2(); + function wdTableFormat3DEffects3(); + function wdTableFormatClassic1(); + function wdTableFormatClassic2(); + function wdTableFormatClassic3(); + function wdTableFormatClassic4(); + function wdTableFormatColorful1(); + function wdTableFormatColorful2(); + function wdTableFormatColorful3(); + function wdTableFormatColumns1(); + function wdTableFormatColumns2(); + function wdTableFormatColumns3(); + function wdTableFormatColumns4(); + function wdTableFormatColumns5(); + function wdTableFormatContemporary(); + function wdTableFormatElegant(); + function wdTableFormatGrid1(); + function wdTableFormatGrid2(); + function wdTableFormatGrid3(); + function wdTableFormatGrid4(); + function wdTableFormatGrid5(); + function wdTableFormatGrid6(); + function wdTableFormatGrid7(); + function wdTableFormatGrid8(); + function wdTableFormatList1(); + function wdTableFormatList2(); + function wdTableFormatList3(); + function wdTableFormatList4(); + function wdTableFormatList5(); + function wdTableFormatList6(); + function wdTableFormatList7(); + function wdTableFormatList8(); + function wdTableFormatNone(); + function wdTableFormatProfessional(); + function wdTableFormatSimple1(); + function wdTableFormatSimple2(); + function wdTableFormatSimple3(); + function wdTableFormatSubtle1(); + function wdTableFormatSubtle2(); + function wdTableFormatWeb1(); + function wdTableFormatWeb2(); + function wdTableFormatWeb3(); + + // WdTableFormatApply + function wdTableFormatApplyAutoFit(); + function wdTableFormatApplyBorders(); + function wdTableFormatApplyColor(); + function wdTableFormatApplyFirstColumn(); + function wdTableFormatApplyFont(); + function wdTableFormatApplyHeadingRows(); + function wdTableFormatApplyLastColumn(); + function wdTableFormatApplyLastRow(); + function wdTableFormatApplyShading(); + + // WdTablePosition + function wdTableBottom(); + function wdTableCenter(); + function wdTableInside(); + function wdTableLeft(); + function wdTableOutside(); + function wdTableRight(); + function wdTableTop(); + + // WdTaskPanes + function wdTaskPaneApplyStyles(); + function wdTaskPaneDocumentActions(); + function wdTaskPaneDocumentProtection(); + function wdTaskPaneFaxService(); + function wdTaskPaneFormatting(); + function wdTaskPaneHelp(); + function wdTaskPaneMailMerge(); + function wdTaskPaneProofing(); + function wdTaskPaneResearch(); + function wdTaskPaneRevealFormatting(); + function wdTaskPaneRevPaneFlex(); + function wdTaskPaneSearch(); + function wdTaskPaneSignature(); + function wdTaskPaneStyleInspector(); + function wdTaskPaneThesaurus(); + function wdTaskPaneTranslate(); + function wdTaskPaneXMLDocument(); + function wdTaskPaneXMLMapping(); + function wdTaskPaneXMLStructure(); + + // WdTCSCConverterDirection + function wdTCSCConverterDirectionAuto(); + function wdTCSCConverterDirectionSCTC(); + function wdTCSCConverterDirectionTCSC(); + + // WdTemplateType + function wdAttachedTemplate(); + function wdGlobalTemplate(); + function wdNormalTemplate(); + + // WdTextboxTightWrap + function wdTightAll(); + function wdTightFirstAndLastLines(); + function wdTightFirstLineOnly(); + function wdTightLastLineOnly(); + function wdTightNone(); + + // WdTextFormFieldType + function wdCalculationText(); + function wdCurrentDateText(); + function wdCurrentTimeText(); + function wdDateText(); + function wdNumberText(); + function wdRegularText(); + + // WdTextOrientation + function wdTextOrientationDownward(); + function wdTextOrientationHorizontal(); + function wdTextOrientationHorizontalRotatedFarEast(); + function wdTextOrientationUpward(); + function wdTextOrientationVerticalFarEast(); + function wdTextOrientationVertical(); + + // WdTextureIndex + function wdTexture10Percent(); + function wdTexture12Pt5Percent(); + function wdTexture15Percent(); + function wdTexture17Pt5Percent(); + function wdTexture20Percent(); + function wdTexture22Pt5Percent(); + function wdTexture25Percent(); + function wdTexture27Pt5Percent(); + function wdTexture2Pt5Percent(); + function wdTexture30Percent(); + function wdTexture32Pt5Percent(); + function wdTexture35Percent(); + function wdTexture37Pt5Percent(); + function wdTexture40Percent(); + function wdTexture42Pt5Percent(); + function wdTexture45Percent(); + function wdTexture47Pt5Percent(); + function wdTexture50Percent(); + function wdTexture52Pt5Percent(); + function wdTexture55Percent(); + function wdTexture57Pt5Percent(); + function wdTexture5Percent(); + function wdTexture60Percent(); + function wdTexture62Pt5Percent(); + function wdTexture65Percent(); + function wdTexture67Pt5Percent(); + function wdTexture70Percent(); + function wdTexture72Pt5Percent(); + function wdTexture75Percent(); + function wdTexture77Pt5Percent(); + function wdTexture7Pt5Percent(); + function wdTexture80Percent(); + function wdTexture82Pt5Percent(); + function wdTexture85Percent(); + function wdTexture87Pt5Percent(); + function wdTexture90Percent(); + function wdTexture92Pt5Percent(); + function wdTexture95Percent(); + function wdTexture97Pt5Percent(); + function wdTextureCross(); + function wdTextureDarkCross(); + function wdTextureDarkDiagonalCross(); + function wdTextureDarkDiagonalDown(); + function wdTextureDarkDiagonalUp(); + function wdTextureDarkHorizontal(); + function wdTextureDarkVertical(); + function wdTextureDiagonalCross(); + function wdTextureDiagonalDown(); + function wdTextureDiagonalUp(); + function wdTextureHorizontal(); + function wdTextureNone(); + function wdTextureSolid(); + function wdTextureVertical(); + + // WdThemeColorIndex + function wdNotThemeColor(); + function wdThemeColorAccent1(); + function wdThemeColorAccent2(); + function wdThemeColorAccent3(); + function wdThemeColorAccent4(); + function wdThemeColorAccent5(); + function wdThemeColorAccent6(); + function wdThemeColorBackground1(); + function wdThemeColorBackground2(); + function wdThemeColorHyperlink(); + function wdThemeColorHyperlinkFollowed(); + function wdThemeColorMainDark1(); + function wdThemeColorMainDark2(); + function wdThemeColorMainLight1(); + function wdThemeColorMainLight2(); + function wdThemeColorText1(); + function wdThemeColorText2(); + + // WdToaFormat + function wdTOAClassic(); + function wdTOADistinctive(); + function wdTOAFormal(); + function wdTOASimple(); + function wdTOATemplate(); + + // WdTocFormat + function wdTOCClassic(); + function wdTOCDistinctive(); + function wdTOCFancy(); + function wdTOCFormal(); + function wdTOCModern(); + function wdTOCSimple(); + function wdTOCTemplate(); + + // WdTofFormat + function wdTOFCentered(); + function wdTOFClassic(); + function wdTOFDistinctive(); + function wdTOFFormal(); + function wdTOFSimple(); + function wdTOFTemplate(); + + // WdTrailingCharacter + function wdTrailingNone(); + function wdTrailingSpace(); + function wdTrailingTab(); + + // WdTwoLinesInOneType + function wdTwoLinesInOneAngleBrackets(); + function wdTwoLinesInOneCurlyBrackets(); + function wdTwoLinesInOneNoBrackets(); + function wdTwoLinesInOneNone(); + function wdTwoLinesInOneParentheses(); + function wdTwoLinesInOneSquareBrackets(); + + // WdUnderline + function wdUnderlineDash(); + function wdUnderlineDashHeavy(); + function wdUnderlineDashLong(); + function wdUnderlineDashLongHeavy(); + function wdUnderlineDotDash(); + function wdUnderlineDotDashHeavy(); + function wdUnderlineDotDotDash(); + function wdUnderlineDotDotDashHeavy(); + function wdUnderlineDotted(); + function wdUnderlineDottedHeavy(); + function wdUnderlineDouble(); + function wdUnderlineNone(); + function wdUnderlineSingle(); + function wdUnderlineThick(); + function wdUnderlineWavy(); + function wdUnderlineWavyDouble(); + function wdUnderlineWavyHeavy(); + function wdUnderlineWords(); + + // WdUnits + function wdCell(); + function wdCharacter(); + function wdCharacterFormatting(); + function wdColumn(); + function wdItem(); + function wdLine(); + function wdParagraph(); + function wdParagraphFormatting(); + function wdRow(); + function wdScreen(); + function wdSection(); + function wdSentence(); + function wdStory(); + function wdTable(); + function wdWindow(); + function wdWord(); + + // WdUpdateStyleListBehavior + function wdListBehaviorAddBulletsNumbering(); + function wdListBehaviorKeepPreviousPattern(); + + // WdUseFormattingFrom + function wdFormattingFromCurrent(); + function wdFormattingFromPrompt(); + function wdFormattingFromSelected(); + + // WdVerticalAlignment + function wdAlignVerticalBottom(); + function wdAlignVerticalCenter(); + function wdAlignVerticalJustify(); + function wdAlignVerticalTop(); + + // WdViewType + function wdMasterView(); + function wdNormalView(); + function wdOutlineView(); + function wdPrintPreview(); + function wdPrintView(); + function wdReadingView(); + function wdWebView(); + + // WdVisualSelection + function wdVisualSelectionBlock(); + function wdVisualSelectionContinuous(); + + // WdWindowState + function wdWindowStateMaximize(); + function wdWindowStateMinimize(); + function wdWindowStateNormal(); + + // WdWindowType + function wdWindowDocument(); + function wdWindowTemplate(); + + // WdWordDialog + function wdDialogBuildingBlockOrganizer(); + function wdDialogConnect(); + function wdDialogConsistencyChecker(); + function wdDialogContentControlProperties(); + function wdDialogControlRun(); + function wdDialogConvertObject(); + function wdDialogCopyFile(); + function wdDialogCreateAutoText(); + function wdDialogCreateSource(); + function wdDialogCSSLinks(); + function wdDialogDocumentInspector(); + function wdDialogDocumentStatistics(); + function wdDialogDrawAlign(); + function wdDialogDrawSnapToGrid(); + function wdDialogEditAutoText(); + function wdDialogEditCreatePublisher(); + function wdDialogEditFind(); + function wdDialogEditFrame(); + function wdDialogEditGoTo(); + function wdDialogEditGoToOld(); + function wdDialogEditLinks(); + function wdDialogEditObject(); + function wdDialogEditPasteSpecial(); + function wdDialogEditPublishOptions(); + function wdDialogEditReplace(); + function wdDialogEditStyle(); + function wdDialogEditSubscribeOptions(); + function wdDialogEditSubscribeTo(); + function wdDialogEditTOACategory(); + function wdDialogEmailOptions(); + function wdDialogFileDocumentLayout(); + function wdDialogFileFind(); + function wdDialogFileMacCustomPageSetupGX(); + function wdDialogFileMacPageSetup(); + function wdDialogFileMacPageSetupGX(); + function wdDialogFileNew(); + function wdDialogFileOpen(); + function wdDialogFilePageSetup(); + function wdDialogFilePrint(); + function wdDialogFilePrintOneCopy(); + function wdDialogFilePrintSetup(); + function wdDialogFileRoutingSlip(); + function wdDialogFileSaveAs(); + function wdDialogFileSaveVersion(); + function wdDialogFileSummaryInfo(); + function wdDialogFileVersions(); + function wdDialogFitText(); + function wdDialogFontSubstitution(); + function wdDialogFormatAddrFonts(); + function wdDialogFormatBordersAndShading(); + function wdDialogFormatBulletsAndNumbering(); + function wdDialogFormatCallout(); + function wdDialogFormatChangeCase(); + function wdDialogFormatColumns(); + function wdDialogFormatDefineStyleBorders(); + function wdDialogFormatDefineStyleFont(); + function wdDialogFormatDefineStyleFrame(); + function wdDialogFormatDefineStyleLang(); + function wdDialogFormatDefineStylePara(); + function wdDialogFormatDefineStyleTabs(); + function wdDialogFormatDrawingObject(); + function wdDialogFormatDropCap(); + function wdDialogFormatEncloseCharacters(); + function wdDialogFormatFont(); + function wdDialogFormatFrame(); + function wdDialogFormatPageNumber(); + function wdDialogFormatParagraph(); + function wdDialogFormatPicture(); + function wdDialogFormatRetAddrFonts(); + function wdDialogFormatSectionLayout(); + function wdDialogFormatStyle(); + function wdDialogFormatStyleGallery(); + function wdDialogFormatStylesCustom(); + function wdDialogFormatTabs(); + function wdDialogFormatTheme(); + function wdDialogFormattingRestrictions(); + function wdDialogFormFieldHelp(); + function wdDialogFormFieldOptions(); + function wdDialogFrameSetProperties(); + function wdDialogHelpAbout(); + function wdDialogHelpWordPerfectHelp(); + function wdDialogHelpWordPerfectHelpOptions(); + function wdDialogHorizontalInVertical(); + function wdDialogIMESetDefault(); + function wdDialogInsertAddCaption(); + function wdDialogInsertAutoCaption(); + function wdDialogInsertBookmark(); + function wdDialogInsertBreak(); + function wdDialogInsertCaption(); + function wdDialogInsertCaptionNumbering(); + function wdDialogInsertCrossReference(); + function wdDialogInsertDatabase(); + function wdDialogInsertDateTime(); + function wdDialogInsertField(); + function wdDialogInsertFile(); + function wdDialogInsertFootnote(); + function wdDialogInsertFormField(); + function wdDialogInsertHyperlink(); + function wdDialogInsertIndex(); + function wdDialogInsertIndexAndTables(); + function wdDialogInsertMergeField(); + function wdDialogInsertNumber(); + function wdDialogInsertObject(); + function wdDialogInsertPageNumbers(); + function wdDialogInsertPicture(); + function wdDialogInsertPlaceholder(); + function wdDialogInsertSource(); + function wdDialogInsertSubdocument(); + function wdDialogInsertSymbol(); + function wdDialogInsertTableOfAuthorities(); + function wdDialogInsertTableOfContents(); + function wdDialogInsertTableOfFigures(); + function wdDialogInsertWebComponent(); + function wdDialogLabelOptions(); + function wdDialogLetterWizard(); + function wdDialogListCommands(); + function wdDialogMailMerge(); + function wdDialogMailMergeCheck(); + function wdDialogMailMergeCreateDataSource(); + function wdDialogMailMergeCreateHeaderSource(); + function wdDialogMailMergeFieldMapping(); + function wdDialogMailMergeFindRecipient(); + function wdDialogMailMergeFindRecord(); + function wdDialogMailMergeHelper(); + function wdDialogMailMergeInsertAddressBlock(); + function wdDialogMailMergeInsertAsk(); + function wdDialogMailMergeInsertFields(); + function wdDialogMailMergeInsertFillIn(); + function wdDialogMailMergeInsertGreetingLine(); + function wdDialogMailMergeInsertIf(); + function wdDialogMailMergeInsertNextIf(); + function wdDialogMailMergeInsertSet(); + function wdDialogMailMergeInsertSkipIf(); + function wdDialogMailMergeOpenDataSource(); + function wdDialogMailMergeOpenHeaderSource(); + function wdDialogMailMergeQueryOptions(); + function wdDialogMailMergeRecipients(); + function wdDialogMailMergeSetDocumentType(); + function wdDialogMailMergeUseAddressBook(); + function wdDialogMarkCitation(); + function wdDialogMarkIndexEntry(); + function wdDialogMarkTableOfContentsEntry(); + function wdDialogMyPermission(); + function wdDialogNewToolbar(); + function wdDialogNoteOptions(); + function wdDialogOMathRecognizedFunctions(); + function wdDialogOrganizer(); + function wdDialogPermission(); + function wdDialogPhoneticGuide(); + function wdDialogReviewAfmtRevisions(); + function wdDialogSchemaLibrary(); + function wdDialogSearch(); + function wdDialogShowRepairs(); + function wdDialogSourceManager(); + function wdDialogStyleManagement(); + function wdDialogTableAutoFormat(); + function wdDialogTableCellOptions(); + function wdDialogTableColumnWidth(); + function wdDialogTableDeleteCells(); + function wdDialogTableFormatCell(); + function wdDialogTableFormula(); + function wdDialogTableInsertCells(); + function wdDialogTableInsertRow(); + function wdDialogTableInsertTable(); + function wdDialogTableOfCaptionsOptions(); + function wdDialogTableOfContentsOptions(); + function wdDialogTableProperties(); + function wdDialogTableRowHeight(); + function wdDialogTableSort(); + function wdDialogTableSplitCells(); + function wdDialogTableTableOptions(); + function wdDialogTableToText(); + function wdDialogTableWrapping(); + function wdDialogTCSCTranslator(); + function wdDialogTextToTable(); + function wdDialogToolsAcceptRejectChanges(); + function wdDialogToolsAdvancedSettings(); + function wdDialogToolsAutoCorrect(); + function wdDialogToolsAutoCorrectExceptions(); + function wdDialogToolsAutoManager(); + function wdDialogToolsAutoSummarize(); + function wdDialogToolsBulletsNumbers(); + function wdDialogToolsCompareDocuments(); + function wdDialogToolsCreateDirectory(); + function wdDialogToolsCreateEnvelope(); + function wdDialogToolsCreateLabels(); + function wdDialogToolsCustomize(); + function wdDialogToolsCustomizeKeyboard(); + function wdDialogToolsCustomizeMenuBar(); + function wdDialogToolsCustomizeMenus(); + function wdDialogToolsDictionary(); + function wdDialogToolsEnvelopesAndLabels(); + function wdDialogToolsGrammarSettings(); + function wdDialogToolsHangulHanjaConversion(); + function wdDialogToolsHighlightChanges(); + function wdDialogToolsHyphenation(); + function wdDialogToolsLanguage(); + function wdDialogToolsMacro(); + function wdDialogToolsMacroRecord(); + function wdDialogToolsManageFields(); + function wdDialogToolsMergeDocuments(); + function wdDialogToolsOptions(); + function wdDialogToolsOptionsAutoFormat(); + function wdDialogToolsOptionsAutoFormatAsYouType(); + function wdDialogToolsOptionsBidi(); + function wdDialogToolsOptionsCompatibility(); + function wdDialogToolsOptionsEdit(); + function wdDialogToolsOptionsEditCopyPaste(); + function wdDialogToolsOptionsFileLocations(); + function wdDialogToolsOptionsFuzzy(); + function wdDialogToolsOptionsGeneral(); + function wdDialogToolsOptionsPrint(); + function wdDialogToolsOptionsSave(); + function wdDialogToolsOptionsSecurity(); + function wdDialogToolsOptionsSmartTag(); + function wdDialogToolsOptionsSpellingAndGrammar(); + function wdDialogToolsOptionsTrackChanges(); + function wdDialogToolsOptionsTypography(); + function wdDialogToolsOptionsUserInfo(); + function wdDialogToolsOptionsView(); + function wdDialogToolsProtectDocument(); + function wdDialogToolsProtectSection(); + function wdDialogToolsRevisions(); + function wdDialogToolsSpellingAndGrammar(); + function wdDialogToolsTemplates(); + function wdDialogToolsThesaurus(); + function wdDialogToolsUnprotectDocument(); + function wdDialogToolsWordCount(); + function wdDialogTwoLinesInOne(); + function wdDialogUpdateTOC(); + function wdDialogViewZoom(); + function wdDialogWebOptions(); + function wdDialogWindowActivate(); + function wdDialogXMLElementAttributes(); + function wdDialogXMLOptions(); + + // WdWordDialogTab + function wdDialogEmailOptionsTabQuoting(); + function wdDialogEmailOptionsTabSignature(); + function wdDialogEmailOptionsTabStationary(); + function wdDialogFilePageSetupTabCharsLines(); + function wdDialogFilePageSetupTabLayout(); + function wdDialogFilePageSetupTabMargins(); + function wdDialogFilePageSetupTabPaper(); + function wdDialogFormatBordersAndShadingTabBorders(); + function wdDialogFormatBordersAndShadingTabPageBorder(); + function wdDialogFormatBordersAndShadingTabShading(); + function wdDialogFormatBulletsAndNumberingTabBulleted(); + function wdDialogFormatBulletsAndNumberingTabNumbered(); + function wdDialogFormatBulletsAndNumberingTabOutlineNumbered(); + function wdDialogFormatDrawingObjectTabColorsAndLines(); + function wdDialogFormatDrawingObjectTabHR(); + function wdDialogFormatDrawingObjectTabPicture(); + function wdDialogFormatDrawingObjectTabPosition(); + function wdDialogFormatDrawingObjectTabSize(); + function wdDialogFormatDrawingObjectTabTextbox(); + function wdDialogFormatDrawingObjectTabWeb(); + function wdDialogFormatDrawingObjectTabWrapping(); + function wdDialogFormatFontTabAnimation(); + function wdDialogFormatFontTabCharacterSpacing(); + function wdDialogFormatFontTabFont(); + function wdDialogFormatParagraphTabIndentsAndSpacing(); + function wdDialogFormatParagraphTabTeisai(); + function wdDialogFormatParagraphTabTextFlow(); + function wdDialogInsertIndexAndTablesTabIndex(); + function wdDialogInsertIndexAndTablesTabTableOfAuthorities(); + function wdDialogInsertIndexAndTablesTabTableOfContents(); + function wdDialogInsertIndexAndTablesTabTableOfFigures(); + function wdDialogInsertSymbolTabSpecialCharacters(); + function wdDialogInsertSymbolTabSymbols(); + function wdDialogLetterWizardTabLetterFormat(); + function wdDialogLetterWizardTabOtherElements(); + function wdDialogLetterWizardTabRecipientInfo(); + function wdDialogLetterWizardTabSenderInfo(); + function wdDialogNoteOptionsTabAllEndnotes(); + function wdDialogNoteOptionsTabAllFootnotes(); + function wdDialogOrganizerTabAutoText(); + function wdDialogOrganizerTabCommandBars(); + function wdDialogOrganizerTabMacros(); + function wdDialogOrganizerTabStyles(); + function wdDialogTablePropertiesTabCell(); + function wdDialogTablePropertiesTabColumn(); + function wdDialogTablePropertiesTabRow(); + function wdDialogTablePropertiesTabTable(); + function wdDialogTemplates(); + function wdDialogTemplatesLinkedCSS(); + function wdDialogTemplatesXMLExpansionPacks(); + function wdDialogTemplatesXMLSchema(); + function wdDialogToolsAutoCorrectExceptionsTabFirstLetter(); + function wdDialogToolsAutoCorrectExceptionsTabHangulAndAlphabet(); + function wdDialogToolsAutoCorrectExceptionsTabIac(); + function wdDialogToolsAutoCorrectExceptionsTabInitialCaps(); + function wdDialogToolsAutoManagerTabAutoCorrect(); + function wdDialogToolsAutoManagerTabAutoFormat(); + function wdDialogToolsAutoManagerTabAutoFormatAsYouType(); + function wdDialogToolsAutoManagerTabAutoText(); + function wdDialogToolsAutoManagerTabSmartTags(); + function wdDialogToolsEnvelopesAndLabelsTabEnvelopes(); + function wdDialogToolsEnvelopesAndLabelsTabLabels(); + function wdDialogToolsOptionsTabAcetate(); + function wdDialogToolsOptionsTabBidi(); + function wdDialogToolsOptionsTabCompatibility(); + function wdDialogToolsOptionsTabEdit(); + function wdDialogToolsOptionsTabFileLocations(); + function wdDialogToolsOptionsTabFuzzy(); + function wdDialogToolsOptionsTabGeneral(); + function wdDialogToolsOptionsTabHangulHanjaConversion(); + function wdDialogToolsOptionsTabPrint(); + function wdDialogToolsOptionsTabProofread(); + function wdDialogToolsOptionsTabSave(); + function wdDialogToolsOptionsTabSecurity(); + function wdDialogToolsOptionsTabTrackChanges(); + function wdDialogToolsOptionsTabTypography(); + function wdDialogToolsOptionsTabUserInfo(); + function wdDialogToolsOptionsTabView(); + function wdDialogWebOptionsBrowsers(); + function wdDialogWebOptionsEncoding(); + function wdDialogWebOptionsFiles(); + function wdDialogWebOptionsFonts(); + function wdDialogWebOptionsGeneral(); + function wdDialogWebOptionsPictures(); + function wdDialogStyleManagementTabEdit(); + function wdDialogStyleManagementTabRecommend(); + function wdDialogStyleManagementTabRestrict(); + + // WdWrapSideType + function wdWrapBoth(); + function wdWrapLargest(); + function wdWrapLeft(); + function wdWrapRight(); + + // WdWrapType + function wdWrapInline(); + function wdWrapNone(); + function wdWrapSquare(); + function wdWrapThrough(); + function wdWrapTight(); + function wdWrapTopBottom(); + function wdWrapBehind(); + function wdWrapFront(); + + // WdWrapTypeMerged + function wdWrapMergeBehind(); + function wdWrapMergeFront(); + function wdWrapMergeInline(); + function wdWrapMergeSquare(); + function wdWrapMergeThrough(); + function wdWrapMergeTight(); + function wdWrapMergeTopBottom(); + + // XlAxisCrosses + function xlAxisCrossesAutomatic(); + function xlAxisCrossesCustom(); + function xlAxisCrossesMaximum(); + function xlAxisCrossesMinimum(); + + // XlAxisGroup + function xlPrimary(); + function xlSecondary(); + + // XlAxisType + function xlCategory(); + function xlSeriesAxis(); + function xlValue(); + + // XlBackground + function xlBackgroundAutomatic(); + function xlBackgroundOpaque(); + function xlBackgroundTransparent(); + + // XlBarShape + function xlBox(); + function xlConeToMax(); + function xlConeToPoint(); + function xlCylinder(); + function xlPyramidToMax(); + function xlPyramidToPoint(); + + // XlBinsType + function xlBinsTypeAutomatic(); + function xlBinsTypeCategorical(); + function xlBinsTypeManual(); + function xlBinsTypeBinSize(); + function xlBinsTypeBinCount(); + + // XlBorderWeight + function xlHairline(); + function xlMedium(); + function xlThick(); + function xlThin(); + + // XlCategoryLabelLevel + function xlCategoryLabelLevelAll(); + function xlCategoryLabelLevelCustom(); + function xlCategoryLabelLevelNone(); + + // XlCategoryType + function xlAutomaticScale(); + function xlCategoryScale(); + function xlTimeScale(); + + // XlChartElementPosition + function xlChartElementPositionAutomatic(); + function xlChartElementPositionCustom(); + + // XlChartGallery + function xlAnyGallery(); + function xlBuiltIn(); + function xlUserDefined(); + + // XlChartItem + function xlAxis(); + function xlAxisTitle(); + function xlChartArea(); + function xlChartTitle(); + function xlCorners(); + function xlDataLabel(); + function xlDataTable(); + function xlDisplayUnitLabel(); + function xlDownBars(); + function xlDropLines(); + function xlErrorBars(); + function xlFloor(); + function xlHiLoLines(); + function xlLeaderLines(); + function xlLegend(); + function xlLegendEntry(); + function xlLegendKey(); + function xlMajorGridlines(); + function xlMinorGridlines(); + function xlNothing(); + function xlPivotChartDropZone(); + function xlPivotChartFieldButton(); + function xlPlotArea(); + function xlRadarAxisLabels(); + function xlSeries(); + function xlSeriesLines(); + function xlShape(); + function xlTrendline(); + function xlUpBars(); + function xlWalls(); + function xlXErrorBars(); + function xlYErrorBars(); + + // XlChartPicturePlacement + function xlAllFaces(); + function xlEnd(); + function xlEndSides(); + function xlFront(); + function xlFrontEnd(); + function xlFrontSides(); + function xlSides(); + + // XlChartPictureType + function xlStack(); + function xlStackScale(); + function xlStretch(); + + // XlChartSplitType + function xlSplitByCustomSplit(); + function xlSplitByPercentValue(); + function xlSplitByPosition(); + function xlSplitByValue(); + + // XlColorIndex + function xlColorIndexAutomatic(); + function xlColorIndexNone(); + + // XlConstants + function xl3DBar(); + function xl3DSurface(); + function xlAbove(); + function xlAutomatic(); + function xlBar(); + function xlBelow(); + function xlBoth(); + function xlBottom(); + function xlCenter(); + function xlChecker(); + function xlCircle(); + function xlColumn(); + function xlCombination(); + function xlCorner(); + function xlCrissCross(); + function xlCross(); + function xlCustom(); + function xlDefaultAutoFormat(); + function xlDiamond(); + function xlDistributed(); + function xlFill(); + function xlFixedValue(); + function xlGeneral(); + function xlGray16(); + function xlGray25(); + function xlGray50(); + function xlGray75(); + function xlGray8(); + function xlGrid(); + function xlHigh(); + function xlInside(); + function xlJustify(); + function xlLeft(); + function xlLightDown(); + function xlLightHorizontal(); + function xlLightUp(); + function xlLightVertical(); + function xlLow(); + function xlMaximum(); + function xlMinimum(); + function xlMinusValues(); + function xlNextToAxis(); + function xlNone(); + function xlOpaque(); + function xlOutside(); + function xlPercent(); + function xlPlus(); + function xlPlusValues(); + function xlRight(); + function xlScale(); + function xlSemiGray75(); + function xlShowLabel(); + function xlShowLabelAndPercent(); + function xlShowPercent(); + function xlShowValue(); + function xlSingle(); + function xlSolid(); + function xlSquare(); + function xlStar(); + function xlStError(); + function xlTop(); + function xlTransparent(); + function xlTriangle(); + + // XlCopyPictureFormat + function xlBitmap(); + function xlPicture(); + + // XlDataLabelPosition + function xlLabelPositionAbove(); + function xlLabelPositionBelow(); + function xlLabelPositionBestFit(); + function xlLabelPositionCenter(); + function xlLabelPositionCustom(); + function xlLabelPositionInsideBase(); + function xlLabelPositionInsideEnd(); + function xlLabelPositionLeft(); + function xlLabelPositionMixed(); + function xlLabelPositionOutsideEnd(); + function xlLabelPositionRight(); + + // XlDataLabelSeparator + function xlDataLabelSeparatorDefault(); + + // XlDataLabelsType + function xlDataLabelsShowBubbleSizes(); + function xlDataLabelsShowLabel(); + function xlDataLabelsShowLabelAndPercent(); + function xlDataLabelsShowNone(); + function xlDataLabelsShowPercent(); + function xlDataLabelsShowValue(); + + // XlDisplayBlanksAs + function xlInterpolated(); + function xlNotPlotted(); + function xlZero(); + + // XlDisplayUnit + function xlHundredMillions(); + function xlHundreds(); + function xlHundredThousands(); + function xlMillionMillions(); + function xlMillions(); + function xlTenMillions(); + function xlTenThousands(); + function xlThousandMillions(); + function xlThousands(); + + // XlEndStyleCap + function xlCap(); + function xlNoCap(); + + // XlErrorBarDirection + function xlChartX(); + function xlChartY(); + + // XlErrorBarInclude + function xlErrorBarIncludeBoth(); + function xlErrorBarIncludeMinusValues(); + function xlErrorBarIncludeNone(); + function xlErrorBarIncludePlusValues(); + + // XlErrorBarType + function xlErrorBarTypeCustom(); + function xlErrorBarTypeFixedValue(); + function xlErrorBarTypePercent(); + function xlErrorBarTypeStDev(); + function xlErrorBarTypeStError(); + + // XlHAlign + function xlHAlignCenter(); + function xlHAlignCenterAcrossSelection(); + function xlHAlignDistributed(); + function xlHAlignFill(); + function xlHAlignGeneral(); + function xlHAlignJustify(); + function xlHAlignLeft(); + function xlHAlignRight(); + + // XlLegendPosition + function xlLegendPositionBottom(); + function xlLegendPositionCorner(); + function xlLegendPositionCustom(); + function xlLegendPositionLeft(); + function xlLegendPositionRight(); + function xlLegendPositionTop(); + + // XlLineStyle + function xlContinuous(); + function xlDash(); + function xlDashDot(); + function xlDashDotDot(); + function xlDot(); + function xlDouble(); + function xlLineStyleNone(); + function xlSlantDashDot(); + + // XlMarkerStyle + function xlMarkerStyleAutomatic(); + function xlMarkerStyleCircle(); + function xlMarkerStyleDash(); + function xlMarkerStyleDiamond(); + function xlMarkerStyleDot(); + function xlMarkerStyleNone(); + function xlMarkerStylePicture(); + function xlMarkerStylePlus(); + function xlMarkerStyleSquare(); + function xlMarkerStyleStar(); + function xlMarkerStyleTriangle(); + function xlMarkerStyleX(); + + // XlOrientation + function xlDownward(); + function xlHorizontal(); + function xlUpward(); + function xlVertical(); + + // XlParentDataLabelOptions + function xlParentDataLabelOptionsNone(); + function xlParentDataLabelOptionsBanner(); + function xlParentDataLabelOptionsOverlapping(); + + // XlPattern + function xlPatternAutomatic(); + function xlPatternChecker(); + function xlPatternCrissCross(); + function xlPatternDown(); + function xlPatternGray16(); + function xlPatternGray25(); + function xlPatternGray50(); + function xlPatternGray75(); + function xlPatternGray8(); + function xlPatternGrid(); + function xlPatternHorizontal(); + function xlPatternLightDown(); + function xlPatternLightHorizontal(); + function xlPatternLightUp(); + function xlPatternLightVertical(); + function xlPatternLinearGradient(); + function xlPatternNone(); + function xlPatternRectangularGradient(); + function xlPatternSemiGray75(); + function xlPatternSolid(); + function xlPatternUp(); + function xlPatternVertical(); + + // XlPictureAppearance + function xlPrinter(); + function xlScreen(); + + // XlPieSliceIndex + function xlCenterPoint(); + function xlInnerCenterPoint(); + function xlInnerClockwisePoint(); + function xlInnerCounterClockwisePoint(); + function xlMidClockwiseRadiusPoint(); + function xlMidCounterClockwiseRadiusPoint(); + function xlOuterCenterPoint(); + function xlOuterClockwisePoint(); + function xlOuterCounterClockwisePoint(); + + // XlPieSliceLocation + function xlHorizontalCoordinate(); + function xlVerticalCoordinate(); + + // XlPivotFieldOrientation + function xlColumnField(); + function xlDataField(); + function xlHidden(); + function xlPageField(); + function xlRowField(); + + // XlReadingOrder + function xlContext(); + function xlLTR(); + function xlRTL(); + + // XlRgbColor + function xlAliceBlue(); + function xlAntiqueWhite(); + function xlAqua(); + function xlAquamarine(); + function xlAzure(); + function xlBeige(); + function xlBisque(); + function xlBlack(); + function xlBlanchedAlmond(); + function xlBlue(); + function xlBlueViolet(); + function xlBrown(); + function xlBurlyWood(); + function xlCadetBlue(); + function xlChartreuse(); + function xlCoral(); + function xlCornflowerBlue(); + function xlCornsilk(); + function xlCrimson(); + function xlDarkBlue(); + function xlDarkCyan(); + function xlDarkGoldenrod(); + function xlDarkGray(); + function xlDarkGreen(); + function xlDarkGrey(); + function xlDarkKhaki(); + function xlDarkMagenta(); + function xlDarkOliveGreen(); + function xlDarkOrange(); + function xlDarkOrchid(); + function xlDarkRed(); + function xlDarkSalmon(); + function xlDarkSeaGreen(); + function xlDarkSlateBlue(); + function xlDarkSlateGray(); + function xlDarkSlateGrey(); + function xlDarkTurquoise(); + function xlDarkViolet(); + function xlDeepPink(); + function xlDeepSkyBlue(); + function xlDimGray(); + function xlDimGrey(); + function xlDodgerBlue(); + function xlFireBrick(); + function xlFloralWhite(); + function xlForestGreen(); + function xlFuchsia(); + function xlGainsboro(); + function xlGhostWhite(); + function xlGold(); + function xlGoldenrod(); + function xlGray(); + function xlGreen(); + function xlGreenYellow(); + function xlGrey(); + function xlHoneydew(); + function xlHotPink(); + function xlIndianRed(); + function xlIndigo(); + function xlIvory(); + function xlKhaki(); + function xlLavender(); + function xlLavenderBlush(); + function xlLawnGreen(); + function xlLemonChiffon(); + function xlLightBlue(); + function xlLightCoral(); + function xlLightCyan(); + function xlLightGoldenrodYellow(); + function xlLightGray(); + function xlLightGreen(); + function xlLightGrey(); + function xlLightPink(); + function xlLightSalmon(); + function xlLightSeaGreen(); + function xlLightSkyBlue(); + function xlLightSlateGray(); + function xlLightSlateGrey(); + function xlLightSteelBlue(); + function xlLightYellow(); + function xlLime(); + function xlLimeGreen(); + function xlLinen(); + function xlMaroon(); + function xlMediumAquamarine(); + function xlMediumBlue(); + function xlMediumOrchid(); + function xlMediumPurple(); + function xlMediumSeaGreen(); + function xlMediumSlateBlue(); + function xlMediumSpringGreen(); + function xlMediumTurquoise(); + function xlMediumVioletRed(); + function xlMidnightBlue(); + function xlMintCream(); + function xlMistyRose(); + function xlMoccasin(); + function xlNavajoWhite(); + function xlNavy(); + function xlNavyBlue(); + function xlOldLace(); + function xlOlive(); + function xlOliveDrab(); + function xlOrange(); + function xlOrangeRed(); + function xlOrchid(); + function xlPaleGoldenrod(); + function xlPaleGreen(); + function xlPaleTurquoise(); + function xlPaleVioletRed(); + function xlPapayaWhip(); + function xlPeachPuff(); + function xlPeru(); + function xlPink(); + function xlPlum(); + function xlPowderBlue(); + function xlPurple(); + function xlRed(); + function xlRosyBrown(); + function xlRoyalBlue(); + function xlSalmon(); + function xlSandyBrown(); + function xlSeaGreen(); + function xlSeashell(); + function xlSienna(); + function xlSilver(); + function xlSkyBlue(); + function xlSlateBlue(); + function xlSlateGray(); + function xlSlateGrey(); + function xlSnow(); + function xlSpringGreen(); + function xlSteelBlue(); + function xlTan(); + function xlTeal(); + function xlThistle(); + function xlTomato(); + function xlTurquoise(); + function xlViolet(); + function xlWheat(); + function xlWhite(); + function xlWhiteSmoke(); + function xlYellow(); + function xlYellowGreen(); + + // XlRowCol + function xlColumns(); + function xlRows(); + + // XlScaleType + function xlScaleLinear(); + function xlScaleLogarithmic(); + + // XlSeriesNameLevel + function xlSeriesNameLevelAll(); + function xlSeriesNameLevelCustom(); + function xlSeriesNameLevelNone(); + + // XlSizeRepresents + function xlSizeIsArea(); + function xlSizeIsWidth(); + + // XlTickLabelOrientation + function xlTickLabelOrientationAutomatic(); + function xlTickLabelOrientationDownward(); + function xlTickLabelOrientationHorizontal(); + function xlTickLabelOrientationUpward(); + function xlTickLabelOrientationVertical(); + + // XlTickLabelPosition + function xlTickLabelPositionHigh(); + function xlTickLabelPositionLow(); + function xlTickLabelPositionNextToAxis(); + function xlTickLabelPositionNone(); + + // XlTickMark + function xlTickMarkCross(); + function xlTickMarkInside(); + function xlTickMarkNone(); + function xlTickMarkOutside(); + + // XlTimeUnit + function xlDays(); + function xlMonths(); + function xlYears(); + + // XlTrendlineType + function xlExponential(); + function xlLinear(); + function xlLogarithmic(); + function xlMovingAvg(); + function xlPolynomial(); + function xlPower(); + + // XlUnderlineStyle + function xlUnderlineStyleDouble(); + function xlUnderlineStyleDoubleAccounting(); + function xlUnderlineStyleNone(); + function xlUnderlineStyleSingle(); + function xlUnderlineStyleSingleAccounting(); + + // XlVAlign + function xlVAlignBottom(); + function xlVAlignCenter(); + function xlVAlignDistributed(); + function xlVAlignJustify(); + function xlVAlignTop(); + +implementation + + // WdAlertLevel + function wdAlertsAll(); + begin + return -1; + end; + function wdAlertsMessageBox(); + begin + return -2; + end; + function wdAlertsNone(); + begin + return 0; + end; + + // WdAlignmentTabAlignment + function wdCenter(); + begin + return 1; + end; + function wdLeft(); + begin + return 0; + end; + function wdRight(); + begin + return 2; + end; + + // WdAlignmentTabRelative + function wdIndent(); + begin + return 1; + end; + function wdMargin(); + begin + return 0; + end; + + // WdApplyQuickStyleSets + function wdSessionStartSet(); + begin + return 1; + end; + function wdTemplateSet(); + begin + return 2; + end; + + // WdArabicNumeral + function wdNumeralArabic(); + begin + return 0; + end; + function wdNumeralContext(); + begin + return 2; + end; + function wdNumeralHindi(); + begin + return 1; + end; + function wdNumeralSystem(); + begin + return 3; + end; + + // WdAraSpeller + function wdBoth(); + begin + return 3; + end; + function wdFinalYaa(); + begin + return 2; + end; + function wdInitialAlef(); + begin + return 1; + end; + function wdNone(); + begin + return 0; + end; + + // WdArrangeStyle + function wdIcons(); + begin + return 1; + end; + function wdTiled(); + begin + return 0; + end; + + // WdAutoFitBehavior + function wdAutoFitContent(); + begin + return 1; + end; + function wdAutoFitFixed(); + begin + return 0; + end; + function wdAutoFitWindow(); + begin + return 2; + end; + + // WdAutoMacros + function wdAutoClose(); + begin + return 3; + end; + function wdAutoExec(); + begin + return 0; + end; + function wdAutoExit(); + begin + return 4; + end; + function wdAutoNew(); + begin + return 1; + end; + function wdAutoOpen(); + begin + return 2; + end; + function wdAutoSync(); + begin + return 5; + end; + + // WdAutoVersions + function wdAutoVersionOff(); + begin + return 0; + end; + function wdAutoVersionOnClose(); + begin + return 1; + end; + + // WdBaselineAlignment + function wdBaselineAlignAuto(); + begin + return 4; + end; + function wdBaselineAlignBaseline(); + begin + return 2; + end; + function wdBaselineAlignCenter(); + begin + return 1; + end; + function wdBaselineAlignFarEast50(); + begin + return 3; + end; + function wdBaselineAlignTop(); + begin + return 0; + end; + + // WdBookmarkSortBy + function wdSortByLocation(); + begin + return 1; + end; + function wdSortByName(); + begin + return 0; + end; + + // WdBorderDistanceFrom + function wdBorderDistanceFromPageEdge(); + begin + return 1; + end; + function wdBorderDistanceFromText(); + begin + return 0; + end; + + // WdBorderType + function wdBorderBottom(); + begin + return -3; + end; + function wdBorderDiagonalDown(); + begin + return -7; + end; + function wdBorderDiagonalUp(); + begin + return -8; + end; + function wdBorderHorizontal(); + begin + return -5; + end; + function wdBorderLeft(); + begin + return -2; + end; + function wdBorderRight(); + begin + return -4; + end; + function wdBorderTop(); + begin + return -1; + end; + function wdBorderVertical(); + begin + return -6; + end; + + // WdBreakType + function wdColumnBreak(); + begin + return 8; + end; + function wdLineBreak(); + begin + return 6; + end; + function wdLineBreakClearLeft(); + begin + return 9; + end; + function wdLineBreakClearRight(); + begin + return 10; + end; + function wdPageBreak(); + begin + return 7; + end; + function wdSectionBreakContinuous(); + begin + return 3; + end; + function wdSectionBreakEvenPage(); + begin + return 4; + end; + function wdSectionBreakNextPage(); + begin + return 2; + end; + function wdSectionBreakOddPage(); + begin + return 5; + end; + function wdTextWrappingBreak(); + begin + return 11; + end; + + // WdBrowserLevel + function wdBrowserLevelMicrosoftInternetExplorer5(); + begin + return 1; + end; + function wdBrowserLevelMicrosoftInternetExplorer6(); + begin + return 2; + end; + function wdBrowserLevelV4(); + begin + return 0; + end; + + // WdBrowseTarget + function wdBrowseComment(); + begin + return 3; + end; + function wdBrowseEdit(); + begin + return 10; + end; + function wdBrowseEndnote(); + begin + return 5; + end; + function wdBrowseField(); + begin + return 6; + end; + function wdBrowseFind(); + begin + return 11; + end; + function wdBrowseFootnote(); + begin + return 4; + end; + function wdBrowseGoTo(); + begin + return 12; + end; + function wdBrowseGraphic(); + begin + return 8; + end; + function wdBrowseHeading(); + begin + return 9; + end; + function wdBrowsePage(); + begin + return 1; + end; + function wdBrowseSection(); + begin + return 2; + end; + function wdBrowseTable(); + begin + return 7; + end; + + // WdBuildingBlockTypes + function wdTypeAutoText(); + begin + return 9; + end; + function wdTypeBibliography(); + begin + return 34; + end; + function wdTypeCoverPage(); + begin + return 2; + end; + function wdTypeCustom1(); + begin + return 29; + end; + function wdTypeCustom2(); + begin + return 30; + end; + function wdTypeCustom3(); + begin + return 31; + end; + function wdTypeCustom4(); + begin + return 32; + end; + function wdTypeCustom5(); + begin + return 33; + end; + function wdTypeCustomAutoText(); + begin + return 23; + end; + function wdTypeCustomBibliography(); + begin + return 35; + end; + function wdTypeCustomCoverPage(); + begin + return 16; + end; + function wdTypeCustomEquations(); + begin + return 17; + end; + function wdTypeCustomFooters(); + begin + return 18; + end; + function wdTypeCustomHeaders(); + begin + return 19; + end; + function wdTypeCustomPageNumber(); + begin + return 20; + end; + function wdTypeCustomPageNumberBottom(); + begin + return 26; + end; + function wdTypeCustomPageNumberPage(); + begin + return 27; + end; + function wdTypeCustomPageNumberTop(); + begin + return 25; + end; + function wdTypeCustomQuickParts(); + begin + return 15; + end; + function wdTypeCustomTableOfContents(); + begin + return 28; + end; + function wdTypeCustomTables(); + begin + return 21; + end; + function wdTypeCustomTextBox(); + begin + return 24; + end; + function wdTypeCustomWatermarks(); + begin + return 22; + end; + function wdTypeEquations(); + begin + return 3; + end; + function wdTypeFooters(); + begin + return 4; + end; + function wdTypeHeaders(); + begin + return 5; + end; + function wdTypePageNumber(); + begin + return 6; + end; + function wdTypePageNumberBottom(); + begin + return 12; + end; + function wdTypePageNumberPage(); + begin + return 13; + end; + function wdTypePageNumberTop(); + begin + return 11; + end; + function wdTypeQuickParts(); + begin + return 1; + end; + function wdTypeTableOfContents(); + begin + return 14; + end; + function wdTypeTables(); + begin + return 7; + end; + function wdTypeTextBox(); + begin + return 10; + end; + function wdTypeWatermarks(); + begin + return 8; + end; + + // WdBuiltInProperty + function wdPropertyAppName(); + begin + return 9; + end; + function wdPropertyAuthor(); + begin + return 3; + end; + function wdPropertyBytes(); + begin + return 22; + end; + function wdPropertyCategory(); + begin + return 18; + end; + function wdPropertyCharacters(); + begin + return 16; + end; + function wdPropertyCharsWSpaces(); + begin + return 30; + end; + function wdPropertyComments(); + begin + return 5; + end; + function wdPropertyCompany(); + begin + return 21; + end; + function wdPropertyFormat(); + begin + return 19; + end; + function wdPropertyHiddenSlides(); + begin + return 27; + end; + function wdPropertyHyperlinkBase(); + begin + return 29; + end; + function wdPropertyKeywords(); + begin + return 4; + end; + function wdPropertyLastAuthor(); + begin + return 7; + end; + function wdPropertyLines(); + begin + return 23; + end; + function wdPropertyManager(); + begin + return 20; + end; + function wdPropertyMMClips(); + begin + return 28; + end; + function wdPropertyNotes(); + begin + return 26; + end; + function wdPropertyPages(); + begin + return 14; + end; + function wdPropertyParas(); + begin + return 24; + end; + function wdPropertyRevision(); + begin + return 8; + end; + function wdPropertySecurity(); + begin + return 17; + end; + function wdPropertySlides(); + begin + return 25; + end; + function wdPropertySubject(); + begin + return 2; + end; + function wdPropertyTemplate(); + begin + return 6; + end; + function wdPropertyTimeCreated(); + begin + return 11; + end; + function wdPropertyTimeLastPrinted(); + begin + return 10; + end; + function wdPropertyTimeLastSaved(); + begin + return 12; + end; + function wdPropertyTitle(); + begin + return 1; + end; + function wdPropertyVBATotalEdit(); + begin + return 13; + end; + function wdPropertyWords(); + begin + return 15; + end; + + // WdBuiltinStyle + function wdStyleBlockQuotation(); + begin + return -85; + end; + function wdStyleBodyText(); + begin + return -67; + end; + function wdStyleBodyText2(); + begin + return -81; + end; + function wdStyleBodyText3(); + begin + return -82; + end; + function wdStyleBodyTextFirstIndent(); + begin + return -78; + end; + function wdStyleBodyTextFirstIndent2(); + begin + return -79; + end; + function wdStyleBodyTextIndent(); + begin + return -68; + end; + function wdStyleBodyTextIndent2(); + begin + return -83; + end; + function wdStyleBodyTextIndent3(); + begin + return -84; + end; + function wdStyleBookTitle(); + begin + return -265; + end; + function wdStyleCaption(); + begin + return -35; + end; + function wdStyleClosing(); + begin + return -64; + end; + function wdStyleCommentReference(); + begin + return -40; + end; + function wdStyleCommentText(); + begin + return -31; + end; + function wdStyleDate(); + begin + return -77; + end; + function wdStyleDefaultParagraphFont(); + begin + return -66; + end; + function wdStyleEmphasis(); + begin + return -89; + end; + function wdStyleEndnoteReference(); + begin + return -43; + end; + function wdStyleEndnoteText(); + begin + return -44; + end; + function wdStyleEnvelopeAddress(); + begin + return -37; + end; + function wdStyleEnvelopeReturn(); + begin + return -38; + end; + function wdStyleFooter(); + begin + return -33; + end; + function wdStyleFootnoteReference(); + begin + return -39; + end; + function wdStyleFootnoteText(); + begin + return -30; + end; + function wdStyleHeader(); + begin + return -32; + end; + function wdStyleHeading1(); + begin + return -2; + end; + function wdStyleHeading2(); + begin + return -3; + end; + function wdStyleHeading3(); + begin + return -4; + end; + function wdStyleHeading4(); + begin + return -5; + end; + function wdStyleHeading5(); + begin + return -6; + end; + function wdStyleHeading6(); + begin + return -7; + end; + function wdStyleHeading7(); + begin + return -8; + end; + function wdStyleHeading8(); + begin + return -9; + end; + function wdStyleHeading9(); + begin + return -10; + end; + function wdStyleHtmlAcronym(); + begin + return -96; + end; + function wdStyleHtmlAddress(); + begin + return -97; + end; + function wdStyleHtmlCite(); + begin + return -98; + end; + function wdStyleHtmlCode(); + begin + return -99; + end; + function wdStyleHtmlDfn(); + begin + return -100; + end; + function wdStyleHtmlKbd(); + begin + return -101; + end; + function wdStyleHtmlNormal(); + begin + return -95; + end; + function wdStyleHtmlPre(); + begin + return -102; + end; + function wdStyleHtmlSamp(); + begin + return -103; + end; + function wdStyleHtmlTt(); + begin + return -104; + end; + function wdStyleHtmlVar(); + begin + return -105; + end; + function wdStyleHyperlink(); + begin + return -86; + end; + function wdStyleHyperlinkFollowed(); + begin + return -87; + end; + function wdStyleIndex1(); + begin + return -11; + end; + function wdStyleIndex2(); + begin + return -12; + end; + function wdStyleIndex3(); + begin + return -13; + end; + function wdStyleIndex4(); + begin + return -14; + end; + function wdStyleIndex5(); + begin + return -15; + end; + function wdStyleIndex6(); + begin + return -16; + end; + function wdStyleIndex7(); + begin + return -17; + end; + function wdStyleIndex8(); + begin + return -18; + end; + function wdStyleIndex9(); + begin + return -19; + end; + function wdStyleIndexHeading(); + begin + return -34; + end; + function wdStyleIntenseEmphasis(); + begin + return -262; + end; + function wdStyleIntenseQuote(); + begin + return -182; + end; + function wdStyleIntenseReference(); + begin + return -264; + end; + function wdStyleLineNumber(); + begin + return -41; + end; + function wdStyleList(); + begin + return -48; + end; + function wdStyleList2(); + begin + return -51; + end; + function wdStyleList3(); + begin + return -52; + end; + function wdStyleList4(); + begin + return -53; + end; + function wdStyleList5(); + begin + return -54; + end; + function wdStyleListBullet(); + begin + return -49; + end; + function wdStyleListBullet2(); + begin + return -55; + end; + function wdStyleListBullet3(); + begin + return -56; + end; + function wdStyleListBullet4(); + begin + return -57; + end; + function wdStyleListBullet5(); + begin + return -58; + end; + function wdStyleListContinue(); + begin + return -69; + end; + function wdStyleListContinue2(); + begin + return -70; + end; + function wdStyleListContinue3(); + begin + return -71; + end; + function wdStyleListContinue4(); + begin + return -72; + end; + function wdStyleListContinue5(); + begin + return -73; + end; + function wdStyleListNumber(); + begin + return -50; + end; + function wdStyleListNumber2(); + begin + return -59; + end; + function wdStyleListNumber3(); + begin + return -60; + end; + function wdStyleListNumber4(); + begin + return -61; + end; + function wdStyleListNumber5(); + begin + return -62; + end; + function wdStyleListParagraph(); + begin + return -180; + end; + function wdStyleMacroText(); + begin + return -46; + end; + function wdStyleMessageHeader(); + begin + return -74; + end; + function wdStyleNavPane(); + begin + return -90; + end; + function wdStyleNormal(); + begin + return -1; + end; + function wdStyleNormalIndent(); + begin + return -29; + end; + function wdStyleNormalObject(); + begin + return -158; + end; + function wdStyleNormalTable(); + begin + return -106; + end; + function wdStyleNoteHeading(); + begin + return -80; + end; + function wdStylePageNumber(); + begin + return -42; + end; + function wdStylePlainText(); + begin + return -91; + end; + function wdStyleQuote(); + begin + return -181; + end; + function wdStyleSalutation(); + begin + return -76; + end; + function wdStyleSignature(); + begin + return -65; + end; + function wdStyleStrong(); + begin + return -88; + end; + function wdStyleSubtitle(); + begin + return -75; + end; + function wdStyleSubtleEmphasis(); + begin + return -261; + end; + function wdStyleSubtleReference(); + begin + return -263; + end; + function wdStyleTableColorfulGrid(); + begin + return -172; + end; + function wdStyleTableColorfulList(); + begin + return -171; + end; + function wdStyleTableColorfulShading(); + begin + return -170; + end; + function wdStyleTableDarkList(); + begin + return -169; + end; + function wdStyleTableLightGrid(); + begin + return -161; + end; + function wdStyleTableLightGridAccent1(); + begin + return -175; + end; + function wdStyleTableLightList(); + begin + return -160; + end; + function wdStyleTableLightListAccent1(); + begin + return -174; + end; + function wdStyleTableLightShading(); + begin + return -159; + end; + function wdStyleTableLightShadingAccent1(); + begin + return -173; + end; + function wdStyleTableMediumGrid1(); + begin + return -166; + end; + function wdStyleTableMediumGrid2(); + begin + return -167; + end; + function wdStyleTableMediumGrid3(); + begin + return -168; + end; + function wdStyleTableMediumList1(); + begin + return -164; + end; + function wdStyleTableMediumList1Accent1(); + begin + return -178; + end; + function wdStyleTableMediumList2(); + begin + return -165; + end; + function wdStyleTableMediumShading1(); + begin + return -162; + end; + function wdStyleTableMediumShading1Accent1(); + begin + return -176; + end; + function wdStyleTableMediumShading2(); + begin + return -163; + end; + function wdStyleTableMediumShading2Accent1(); + begin + return -177; + end; + function wdStyleTableOfAuthorities(); + begin + return -45; + end; + function wdStyleTableOfFigures(); + begin + return -36; + end; + function wdStyleTitle(); + begin + return -63; + end; + function wdStyleTOAHeading(); + begin + return -47; + end; + function wdStyleTOC1(); + begin + return -20; + end; + function wdStyleTOC2(); + begin + return -21; + end; + function wdStyleTOC3(); + begin + return -22; + end; + function wdStyleTOC4(); + begin + return -23; + end; + function wdStyleTOC5(); + begin + return -24; + end; + function wdStyleTOC6(); + begin + return -25; + end; + function wdStyleTOC7(); + begin + return -26; + end; + function wdStyleTOC8(); + begin + return -27; + end; + function wdStyleTOC9(); + begin + return -28; + end; + + // WdCalendarType + function wdCalendarArabic(); + begin + return 1; + end; + function wdCalendarHebrew(); + begin + return 2; + end; + function wdCalendarJapan(); + begin + return 4; + end; + function wdCalendarKorean(); + begin + return 6; + end; + function wdCalendarSakaEra(); + begin + return 7; + end; + function wdCalendarTaiwan(); + begin + return 3; + end; + function wdCalendarThai(); + begin + return 5; + end; + function wdCalendarTranslitEnglish(); + begin + return 8; + end; + function wdCalendarTranslitFrench(); + begin + return 9; + end; + function wdCalendarUmalqura(); + begin + return 13; + end; + function wdCalendarWestern(); + begin + return 0; + end; + + // WdCalendarTypeBi + function wdCalendarTypeBidi(); + begin + return 99; + end; + function wdCalendarTypeGregorian(); + begin + return 100; + end; + + // WdCaptionLabelID + function wdCaptionEquation(); + begin + return -3; + end; + function wdCaptionFigure(); + begin + return -1; + end; + function wdCaptionTable(); + begin + return -2; + end; + + // WdCaptionNumberStyle + function wdCaptionNumberStyleArabic(); + begin + return 0; + end; + function wdCaptionNumberStyleArabicFullWidth(); + begin + return 14; + end; + function wdCaptionNumberStyleArabicLetter1(); + begin + return 46; + end; + function wdCaptionNumberStyleArabicLetter2(); + begin + return 48; + end; + function wdCaptionNumberStyleChosung(); + begin + return 25; + end; + function wdCaptionNumberStyleGanada(); + begin + return 24; + end; + function wdCaptionNumberStyleHanjaRead(); + begin + return 41; + end; + function wdCaptionNumberStyleHanjaReadDigit(); + begin + return 42; + end; + function wdCaptionNumberStyleHebrewLetter1(); + begin + return 45; + end; + function wdCaptionNumberStyleHebrewLetter2(); + begin + return 47; + end; + function wdCaptionNumberStyleHindiArabic(); + begin + return 51; + end; + function wdCaptionNumberStyleHindiCardinalText(); + begin + return 52; + end; + function wdCaptionNumberStyleHindiLetter1(); + begin + return 49; + end; + function wdCaptionNumberStyleHindiLetter2(); + begin + return 50; + end; + function wdCaptionNumberStyleKanji(); + begin + return 10; + end; + function wdCaptionNumberStyleKanjiDigit(); + begin + return 11; + end; + function wdCaptionNumberStyleKanjiTraditional(); + begin + return 16; + end; + function wdCaptionNumberStyleLowercaseLetter(); + begin + return 4; + end; + function wdCaptionNumberStyleLowercaseRoman(); + begin + return 2; + end; + function wdCaptionNumberStyleNumberInCircle(); + begin + return 18; + end; + function wdCaptionNumberStyleSimpChinNum2(); + begin + return 38; + end; + function wdCaptionNumberStyleSimpChinNum3(); + begin + return 39; + end; + function wdCaptionNumberStyleThaiArabic(); + begin + return 54; + end; + function wdCaptionNumberStyleThaiCardinalText(); + begin + return 55; + end; + function wdCaptionNumberStyleThaiLetter(); + begin + return 53; + end; + function wdCaptionNumberStyleTradChinNum2(); + begin + return 34; + end; + function wdCaptionNumberStyleTradChinNum3(); + begin + return 35; + end; + function wdCaptionNumberStyleUppercaseLetter(); + begin + return 3; + end; + function wdCaptionNumberStyleUppercaseRoman(); + begin + return 1; + end; + function wdCaptionNumberStyleVietCardinalText(); + begin + return 56; + end; + function wdCaptionNumberStyleZodiac1(); + begin + return 30; + end; + function wdCaptionNumberStyleZodiac2(); + begin + return 31; + end; + + // WdCaptionPosition + function wdCaptionPositionAbove(); + begin + return 0; + end; + function wdCaptionPositionBelow(); + begin + return 1; + end; + + // WdCellColor + function wdCellColorByAuthor(); + begin + return -1; + end; + function wdCellColorLightBlue(); + begin + return 2; + end; + function wdCellColorLightGray(); + begin + return 7; + end; + function wdCellColorLightGreen(); + begin + return 6; + end; + function wdCellColorLightOrange(); + begin + return 5; + end; + function wdCellColorLightPurple(); + begin + return 4; + end; + function wdCellColorLightYellow(); + begin + return 3; + end; + function wdCellColorNoHighlight(); + begin + return 0; + end; + function wdCellColorPink(); + begin + return 1; + end; + + // WdCellVerticalAlignment + function wdCellAlignVerticalBottom(); + begin + return 3; + end; + function wdCellAlignVerticalCenter(); + begin + return 1; + end; + function wdCellAlignVerticalTop(); + begin + return 0; + end; + + // WdCharacterCase + function wdFullWidth(); + begin + return 7; + end; + function wdHalfWidth(); + begin + return 6; + end; + function wdHiragana(); + begin + return 9; + end; + function wdKatakana(); + begin + return 8; + end; + function wdLowerCase(); + begin + return 0; + end; + function wdNextCase(); + begin + return -1; + end; + function wdTitleSentence(); + begin + return 4; + end; + function wdTitleWord(); + begin + return 2; + end; + function wdToggleCase(); + begin + return 5; + end; + function wdUpperCase(); + begin + return 1; + end; + + // WdCharacterWidth + function wdWidthFullWidth(); + begin + return 7; + end; + function wdWidthHalfWidth(); + begin + return 6; + end; + + // WdCheckInVersionType + function wdCheckInMajorVersion(); + begin + return 1; + end; + function wdCheckInMinorVersion(); + begin + return 0; + end; + function wdCheckInOverwriteVersion(); + begin + return 2; + end; + + // WdChevronConvertRule + function wdAlwaysConvert(); + begin + return 1; + end; + function wdAskToConvert(); + begin + return 3; + end; + function wdAskToNotConvert(); + begin + return 2; + end; + function wdNeverConvert(); + begin + return 0; + end; + + // WdCollapseDirection + function wdCollapseEnd(); + begin + return 0; + end; + function wdCollapseStart(); + begin + return 1; + end; + + // WdColor + function wdColorAqua(); + begin + return 13421619; + end; + function wdColorAutomatic(); + begin + return -16777216; + end; + function wdColorBlack(); + begin + return 0; + end; + function wdColorBlue(); + begin + return 16711680; + end; + function wdColorBlueGray(); + begin + return 10053222; + end; + function wdColorBrightGreen(); + begin + return 65280; + end; + function wdColorBrown(); + begin + return 13209; + end; + function wdColorDarkBlue(); + begin + return 8388608; + end; + function wdColorDarkGreen(); + begin + return 13056; + end; + function wdColorDarkRed(); + begin + return 128; + end; + function wdColorDarkTeal(); + begin + return 6697728; + end; + function wdColorDarkYellow(); + begin + return 32896; + end; + function wdColorGold(); + begin + return 52479; + end; + function wdColorGray05(); + begin + return 15987699; + end; + function wdColorGray10(); + begin + return 15132390; + end; + function wdColorGray125(); + begin + return 14737632; + end; + function wdColorGray15(); + begin + return 14277081; + end; + function wdColorGray20(); + begin + return 13421772; + end; + function wdColorGray25(); + begin + return 12632256; + end; + function wdColorGray30(); + begin + return 11776947; + end; + function wdColorGray35(); + begin + return 10921638; + end; + function wdColorGray375(); + begin + return 10526880; + end; + function wdColorGray40(); + begin + return 10066329; + end; + function wdColorGray45(); + begin + return 9211020; + end; + function wdColorGray50(); + begin + return 8421504; + end; + function wdColorGray55(); + begin + return 7566195; + end; + function wdColorGray60(); + begin + return 6710886; + end; + function wdColorGray625(); + begin + return 6316128; + end; + function wdColorGray65(); + begin + return 5855577; + end; + function wdColorGray70(); + begin + return 5000268; + end; + function wdColorGray75(); + begin + return 4210752; + end; + function wdColorGray80(); + begin + return 3355443; + end; + function wdColorGray85(); + begin + return 2500134; + end; + function wdColorGray875(); + begin + return 2105376; + end; + function wdColorGray90(); + begin + return 1644825; + end; + function wdColorGray95(); + begin + return 789516; + end; + function wdColorGreen(); + begin + return 32768; + end; + function wdColorIndigo(); + begin + return 10040115; + end; + function wdColorLavender(); + begin + return 16751052; + end; + function wdColorLightBlue(); + begin + return 16737843; + end; + function wdColorLightGreen(); + begin + return 13434828; + end; + function wdColorLightOrange(); + begin + return 39423; + end; + function wdColorLightTurquoise(); + begin + return 16777164; + end; + function wdColorLightYellow(); + begin + return 10092543; + end; + function wdColorLime(); + begin + return 52377; + end; + function wdColorOliveGreen(); + begin + return 13107; + end; + function wdColorOrange(); + begin + return 26367; + end; + function wdColorPaleBlue(); + begin + return 16764057; + end; + function wdColorPink(); + begin + return 16711935; + end; + function wdColorPlum(); + begin + return 6697881; + end; + function wdColorRed(); + begin + return 255; + end; + function wdColorRose(); + begin + return 13408767; + end; + function wdColorSeaGreen(); + begin + return 6723891; + end; + function wdColorSkyBlue(); + begin + return 16763904; + end; + function wdColorTan(); + begin + return 10079487; + end; + function wdColorTeal(); + begin + return 8421376; + end; + function wdColorTurquoise(); + begin + return 16776960; + end; + function wdColorViolet(); + begin + return 8388736; + end; + function wdColorWhite(); + begin + return 16777215; + end; + function wdColorYellow(); + begin + return 65535; + end; + + // WdColorIndex + function wdAuto(); + begin + return 0; + end; + function wdBlack(); + begin + return 1; + end; + function wdBlue(); + begin + return 2; + end; + function wdBrightGreen(); + begin + return 4; + end; + function wdByAuthor(); + begin + return -1; + end; + function wdDarkBlue(); + begin + return 9; + end; + function wdDarkRed(); + begin + return 13; + end; + function wdDarkYellow(); + begin + return 14; + end; + function wdGray25(); + begin + return 16; + end; + function wdGray50(); + begin + return 15; + end; + function wdGreen(); + begin + return 11; + end; + function wdNoHighlight(); + begin + return 0; + end; + function wdPink(); + begin + return 5; + end; + function wdRed(); + begin + return 6; + end; + function wdTeal(); + begin + return 10; + end; + function wdTurquoise(); + begin + return 3; + end; + function wdViolet(); + begin + return 12; + end; + function wdWhite(); + begin + return 8; + end; + function wdYellow(); + begin + return 7; + end; + + // WdColumnWidth + function wdColumnWidthDefault(); + begin + return 2; + end; + function wdColumnWidthNarrow(); + begin + return 1; + end; + function wdColumnWidthWide(); + begin + return 3; + end; + + // WdCompareDestination + function wdCompareDestinationNew(); + begin + return 2; + end; + function wdCompareDestinationOriginal(); + begin + return 0; + end; + function wdCompareDestinationRevised(); + begin + return 1; + end; + + // WdCompareTarget + function wdCompareTargetCurrent(); + begin + return 1; + end; + function wdCompareTargetNew(); + begin + return 2; + end; + function wdCompareTargetSelected(); + begin + return 0; + end; + + // WdCompatibility + function wdAlignTablesRowByRow(); + begin + return 39; + end; + function wdApplyBreakingRules(); + begin + return 46; + end; + function wdAutospaceLikeWW7(); + begin + return 38; + end; + function wdConvMailMergeEsc(); + begin + return 6; + end; + function wdDontAdjustLineHeightInTable(); + begin + return 36; + end; + function wdDontBalanceSingleByteDoubleByteWidth(); + begin + return 16; + end; + function wdDontBreakWrappedTables(); + begin + return 43; + end; + function wdDontSnapTextToGridInTableWithObjects(); + begin + return 44; + end; + function wdDontULTrailSpace(); + begin + return 15; + end; + function wdDontUseAsianBreakRulesInGrid(); + begin + return 48; + end; + function wdDontUseHTMLParagraphAutoSpacing(); + begin + return 35; + end; + function wdDontWrapTextWithPunctuation(); + begin + return 47; + end; + function wdExactOnTop(); + begin + return 28; + end; + function wdExpandShiftReturn(); + begin + return 14; + end; + function wdFootnoteLayoutLikeWW8(); + begin + return 34; + end; + function wdForgetLastTabAlignment(); + begin + return 37; + end; + function wdGrowAutofit(); + begin + return 50; + end; + function wdLayoutRawTableWidth(); + begin + return 40; + end; + function wdLayoutTableRowsApart(); + begin + return 41; + end; + function wdLeaveBackslashAlone(); + begin + return 13; + end; + function wdLineWrapLikeWord6(); + begin + return 32; + end; + function wdMWSmallCaps(); + begin + return 22; + end; + function wdNoColumnBalance(); + begin + return 5; + end; + function wdNoExtraLineSpacing(); + begin + return 23; + end; + function wdNoLeading(); + begin + return 20; + end; + function wdNoSpaceForUL(); + begin + return 21; + end; + function wdNoSpaceRaiseLower(); + begin + return 2; + end; + function wdNoTabHangIndent(); + begin + return 1; + end; + function wdOrigWordTableRules(); + begin + return 9; + end; + function wdPrintBodyTextBeforeHeader(); + begin + return 19; + end; + function wdPrintColBlack(); + begin + return 3; + end; + function wdSelectFieldWithFirstOrLastCharacter(); + begin + return 45; + end; + function wdShapeLayoutLikeWW8(); + begin + return 33; + end; + function wdShowBreaksInFrames(); + begin + return 11; + end; + function wdSpacingInWholePoints(); + begin + return 18; + end; + function wdSubFontBySize(); + begin + return 25; + end; + function wdSuppressBottomSpacing(); + begin + return 29; + end; + function wdSuppressSpBfAfterPgBrk(); + begin + return 7; + end; + function wdSuppressTopSpacing(); + begin + return 8; + end; + function wdSuppressTopSpacingMac5(); + begin + return 17; + end; + function wdSwapBordersFacingPages(); + begin + return 12; + end; + function wdTransparentMetafiles(); + begin + return 10; + end; + function wdTruncateFontHeight(); + begin + return 24; + end; + function wdUsePrinterMetrics(); + begin + return 26; + end; + function wdUseWord2002TableStyleRules(); + begin + return 49; + end; + function wdUseWord2010TableStyleRules(); + begin + return 69; + end; + function wdUseWord97LineBreakingRules(); + begin + return 42; + end; + function wdWPJustification(); + begin + return 31; + end; + function wdWPSpaceWidth(); + begin + return 30; + end; + function wdWrapTrailSpaces(); + begin + return 4; + end; + function wdWW6BorderRules(); + begin + return 27; + end; + function wdAllowSpaceOfSameStyleInTable(); + begin + return 54; + end; + function wdAutofitLikeWW11(); + begin + return 57; + end; + function wdDontAutofitConstrainedTables(); + begin + return 56; + end; + function wdDontUseIndentAsNumberingTabStop(); + begin + return 52; + end; + function wdFELineBreak11(); + begin + return 53; + end; + function wdHangulWidthLikeWW11(); + begin + return 59; + end; + function wdSplitPgBreakAndParaMark(); + begin + return 60; + end; + function wdUnderlineTabInNumList(); + begin + return 58; + end; + function wdUseNormalStyleForList(); + begin + return 51; + end; + function wdWW11IndentRules(); + begin + return 55; + end; + + // WdCompatibilityMode + function wdCurrent(); + begin + return 65535; + end; + function wdWord2003(); + begin + return 11; + end; + function wdWord2007(); + begin + return 12; + end; + function wdWord2010(); + begin + return 14; + end; + function wdWord2013(); + begin + return 15; + end; + + // WdConditionCode + function wdEvenColumnBanding(); + begin + return 7; + end; + function wdEvenRowBanding(); + begin + return 3; + end; + function wdFirstColumn(); + begin + return 4; + end; + function wdFirstRow(); + begin + return 0; + end; + function wdLastColumn(); + begin + return 5; + end; + function wdLastRow(); + begin + return 1; + end; + function wdNECell(); + begin + return 8; + end; + function wdNWCell(); + begin + return 9; + end; + function wdOddColumnBanding(); + begin + return 6; + end; + function wdOddRowBanding(); + begin + return 2; + end; + function wdSECell(); + begin + return 10; + end; + function wdSWCell(); + begin + return 11; + end; + + // WdConstants + function wdAutoPosition(); + begin + return 0; + end; + function wdBackward(); + begin + return -1073741823; + end; + function wdCreatorCode(); + begin + return 1297307460; + end; + function wdFirst(); + begin + return 1; + end; + function wdForward(); + begin + return 1073741823; + end; + function wdToggle(); + begin + return 9999998; + end; + function wdUndefined(); + begin + return 9999999; + end; + + // WdContentControlAppearance + function wdContentControlBoundingBox(); + begin + return 0; + end; + function wdContentControlTags(); + begin + return 1; + end; + function wdContentControlHidden(); + begin + return 2; + end; + + // WdContentControlDateStorageFormat + function wdContentControlDateStorageDate(); + begin + return 1; + end; + function wdContentControlDateStorageDateTime(); + begin + return 2; + end; + function wdContentControlDateStorageText(); + begin + return 0; + end; + + // WdContentControlLevel + function wdContentControlLevelCell(); + begin + return 3; + end; + function wdContentControlLevelInline(); + begin + return 0; + end; + function wdContentControlLevelParagraph(); + begin + return 1; + end; + function wdContentControlLevelRow(); + begin + return 2; + end; + + // WdContentControlType + function wdContentControlBuildingBlockGallery(); + begin + return 5; + end; + function wdContentControlCheckbox(); + begin + return 8; + end; + function wdContentControlComboBox(); + begin + return 3; + end; + function wdContentControlDate(); + begin + return 6; + end; + function wdContentControlGroup(); + begin + return 7; + end; + function wdContentControlDropdownList(); + begin + return 4; + end; + function wdContentControlPicture(); + begin + return 2; + end; + function wdContentControlRepeatingSection(); + begin + return 9; + end; + function wdContentControlRichText(); + begin + return 0; + end; + function wdContentControlText(); + begin + return 1; + end; + + // WdContinue + function wdContinueDisabled(); + begin + return 0; + end; + function wdContinueList(); + begin + return 2; + end; + function wdResetList(); + begin + return 1; + end; + + // WdCountry + function wdArgentina(); + begin + return 54; + end; + function wdBrazil(); + begin + return 55; + end; + function wdCanada(); + begin + return 2; + end; + function wdChile(); + begin + return 56; + end; + function wdChina(); + begin + return 86; + end; + function wdDenmark(); + begin + return 45; + end; + function wdFinland(); + begin + return 358; + end; + function wdFrance(); + begin + return 33; + end; + function wdGermany(); + begin + return 49; + end; + function wdIceland(); + begin + return 354; + end; + function wdItaly(); + begin + return 39; + end; + function wdJapan(); + begin + return 81; + end; + function wdKorea(); + begin + return 82; + end; + function wdLatinAmerica(); + begin + return 3; + end; + function wdMexico(); + begin + return 52; + end; + function wdNetherlands(); + begin + return 31; + end; + function wdNorway(); + begin + return 47; + end; + function wdPeru(); + begin + return 51; + end; + function wdSpain(); + begin + return 34; + end; + function wdSweden(); + begin + return 46; + end; + function wdTaiwan(); + begin + return 886; + end; + function wdUK(); + begin + return 44; + end; + function wdUS(); + begin + return 1; + end; + function wdVenezuela(); + begin + return 58; + end; + + // WdCursorMovement + function wdCursorMovementLogical(); + begin + return 0; + end; + function wdCursorMovementVisual(); + begin + return 1; + end; + + // WdCursorType + function wdCursorIBeam(); + begin + return 1; + end; + function wdCursorNormal(); + begin + return 2; + end; + function wdCursorNorthwestArrow(); + begin + return 3; + end; + function wdCursorWait(); + begin + return 0; + end; + + // WdCustomLabelPageSize + function wdCustomLabelA4(); + begin + return 2; + end; + function wdCustomLabelA4LS(); + begin + return 3; + end; + function wdCustomLabelA5(); + begin + return 4; + end; + function wdCustomLabelA5LS(); + begin + return 5; + end; + function wdCustomLabelB4JIS(); + begin + return 13; + end; + function wdCustomLabelB5(); + begin + return 6; + end; + function wdCustomLabelFanfold(); + begin + return 8; + end; + function wdCustomLabelHigaki(); + begin + return 11; + end; + function wdCustomLabelHigakiLS(); + begin + return 12; + end; + function wdCustomLabelLetter(); + begin + return 0; + end; + function wdCustomLabelLetterLS(); + begin + return 1; + end; + function wdCustomLabelMini(); + begin + return 7; + end; + function wdCustomLabelVertHalfSheet(); + begin + return 9; + end; + function wdCustomLabelVertHalfSheetLS(); + begin + return 10; + end; + + // WdDateLanguage + function wdDateLanguageBidi(); + begin + return 10; + end; + function wdDateLanguageLatin(); + begin + return 1033; + end; + + // WdDefaultFilePath + function wdAutoRecoverPath(); + begin + return 5; + end; + function wdBorderArtPath(); + begin + return 19; + end; + function wdCurrentFolderPath(); + begin + return 14; + end; + function wdDocumentsPath(); + begin + return 0; + end; + function wdGraphicsFiltersPath(); + begin + return 10; + end; + function wdPicturesPath(); + begin + return 1; + end; + function wdProgramPath(); + begin + return 9; + end; + function wdProofingToolsPath(); + begin + return 12; + end; + function wdStartupPath(); + begin + return 8; + end; + function wdStyleGalleryPath(); + begin + return 15; + end; + function wdTempFilePath(); + begin + return 13; + end; + function wdTextConvertersPath(); + begin + return 11; + end; + function wdToolsPath(); + begin + return 6; + end; + function wdTutorialPath(); + begin + return 7; + end; + function wdUserOptionsPath(); + begin + return 4; + end; + function wdUserTemplatesPath(); + begin + return 2; + end; + function wdWorkgroupTemplatesPath(); + begin + return 3; + end; + + // WdDefaultListBehavior + function wdWord10ListBehavior(); + begin + return 2; + end; + function wdWord8ListBehavior(); + begin + return 0; + end; + function wdWord9ListBehavior(); + begin + return 1; + end; + + // WdDefaultTableBehavior + function wdWord8TableBehavior(); + begin + return 0; + end; + function wdWord9TableBehavior(); + begin + return 1; + end; + + // WdDeleteCells + function wdDeleteCellsEntireColumn(); + begin + return 3; + end; + function wdDeleteCellsEntireRow(); + begin + return 2; + end; + function wdDeleteCellsShiftLeft(); + begin + return 0; + end; + function wdDeleteCellsShiftUp(); + begin + return 1; + end; + + // WdDeletedTextMark + function wdDeletedTextMarkBold(); + begin + return 5; + end; + function wdDeletedTextMarkCaret(); + begin + return 2; + end; + function wdDeletedTextMarkColorOnly(); + begin + return 9; + end; + function wdDeletedTextMarkDoubleUnderline(); + begin + return 8; + end; + function wdDeletedTextMarkHidden(); + begin + return 0; + end; + function wdDeletedTextMarkItalic(); + begin + return 6; + end; + function wdDeletedTextMarkNone(); + begin + return 4; + end; + function wdDeletedTextMarkPound(); + begin + return 3; + end; + function wdDeletedTextMarkStrikeThrough(); + begin + return 1; + end; + function wdDeletedTextMarkUnderline(); + begin + return 7; + end; + function wdDeletedTextMarkDoubleStrikeThrough(); + begin + return 10; + end; + + // WdDiacriticColor + function wdDiacriticColorBidi(); + begin + return 0; + end; + function wdDiacriticColorLatin(); + begin + return 1; + end; + + // WdDictionaryType + function wdGrammar(); + begin + return 1; + end; + function wdHangulHanjaConversion(); + begin + return 8; + end; + function wdHangulHanjaConversionCustom(); + begin + return 9; + end; + function wdHyphenation(); + begin + return 3; + end; + function wdSpelling(); + begin + return 0; + end; + function wdSpellingComplete(); + begin + return 4; + end; + function wdSpellingCustom(); + begin + return 5; + end; + function wdSpellingLegal(); + begin + return 6; + end; + function wdSpellingMedical(); + begin + return 7; + end; + function wdThesaurus(); + begin + return 2; + end; + + // WdDisableFeaturesIntroducedAfter + function wd70(); + begin + return 0; + end; + function wd70FE(); + begin + return 1; + end; + function wd80(); + begin + return 2; + end; + + // WdDocPartInsertOptions + function wdInsertContent(); + begin + return 0; + end; + function wdInsertPage(); + begin + return 2; + end; + function wdInsertParagraph(); + begin + return 1; + end; + + // WdDocumentDirection + function wdLeftToRight(); + begin + return 0; + end; + function wdRightToLeft(); + begin + return 1; + end; + + // WdDocumentKind + function wdDocumentEmail(); + begin + return 2; + end; + function wdDocumentLetter(); + begin + return 1; + end; + function wdDocumentNotSpecified(); + begin + return 0; + end; + + // WdDocumentMedium + function wdDocument(); + begin + return 1; + end; + function wdEmailMessage(); + begin + return 0; + end; + function wdWebPage(); + begin + return 2; + end; + + // WdDocumentType + function wdTypeDocument(); + begin + return 0; + end; + function wdTypeFrameset(); + begin + return 2; + end; + function wdTypeTemplate(); + begin + return 1; + end; + + // WdDocumentViewDirection + function wdDocumentViewLtr(); + begin + return 1; + end; + function wdDocumentViewRtl(); + begin + return 0; + end; + + // WdDropPosition + function wdDropMargin(); + begin + return 2; + end; + function wdDropNone(); + begin + return 0; + end; + function wdDropNormal(); + begin + return 1; + end; + + // WdEditionOption + function wdAutomaticUpdate(); + begin + return 3; + end; + function wdCancelPublisher(); + begin + return 0; + end; + function wdChangeAttributes(); + begin + return 5; + end; + function wdManualUpdate(); + begin + return 4; + end; + function wdOpenSource(); + begin + return 7; + end; + function wdSelectPublisher(); + begin + return 2; + end; + function wdSendPublisher(); + begin + return 1; + end; + function wdUpdateSubscriber(); + begin + return 6; + end; + + // WdEditionType + function wdPublisher(); + begin + return 0; + end; + function wdSubscriber(); + begin + return 1; + end; + + // WdEditorType + function wdEditorCurrent(); + begin + return -6; + end; + function wdEditorEditors(); + begin + return -5; + end; + function wdEditorEveryone(); + begin + return -1; + end; + function wdEditorOwners(); + begin + return -4; + end; + + // WdEmailHTMLFidelity + function wdEmailHTMLFidelityHigh(); + begin + return 3; + end; + function wdEmailHTMLFidelityLow(); + begin + return 1; + end; + function wdEmailHTMLFidelityMedium(); + begin + return 2; + end; + + // WdEmphasisMark + function wdEmphasisMarkNone(); + begin + return 0; + end; + function wdEmphasisMarkOverComma(); + begin + return 2; + end; + function wdEmphasisMarkOverSolidCircle(); + begin + return 1; + end; + function wdEmphasisMarkOverWhiteCircle(); + begin + return 3; + end; + function wdEmphasisMarkUnderSolidCircle(); + begin + return 4; + end; + + // WdEnableCancelKey + function wdCancelDisabled(); + begin + return 0; + end; + function wdCancelInterrupt(); + begin + return 1; + end; + + // WdEncloseStyle + function wdEncloseStyleLarge(); + begin + return 2; + end; + function wdEncloseStyleNone(); + begin + return 0; + end; + function wdEncloseStyleSmall(); + begin + return 1; + end; + + // WdEnclosureType + function wdEnclosureCircle(); + begin + return 0; + end; + function wdEnclosureDiamond(); + begin + return 3; + end; + function wdEnclosureSquare(); + begin + return 1; + end; + function wdEnclosureTriangle(); + begin + return 2; + end; + + // WdEndnoteLocation + function wdEndOfDocument(); + begin + return 1; + end; + function wdEndOfSection(); + begin + return 0; + end; + + // WdEnvelopeOrientation + function wdCenterClockwise(); + begin + return 7; + end; + function wdCenterLandscape(); + begin + return 4; + end; + function wdCenterPortrait(); + begin + return 1; + end; + function wdLeftClockwise(); + begin + return 6; + end; + function wdLeftLandscape(); + begin + return 3; + end; + function wdLeftPortrait(); + begin + return 0; + end; + function wdRightClockwise(); + begin + return 8; + end; + function wdRightLandscape(); + begin + return 5; + end; + function wdRightPortrait(); + begin + return 2; + end; + + // WdExportCreateBookmarks + function wdExportCreateHeadingBookmarks(); + begin + return 1; + end; + function wdExportCreateNoBookmarks(); + begin + return 0; + end; + function wdExportCreateWordBookmarks(); + begin + return 2; + end; + + // WdExportFormat + function wdExportFormatPDF(); + begin + return 17; + end; + function wdExportFormatXPS(); + begin + return 18; + end; + + // WdExportItem + function wdExportDocumentContent(); + begin + return 0; + end; + function wdExportDocumentWithMarkup(); + begin + return 7; + end; + + // WdExportOptimizeFor + function wdExportOptimizeForOnScreen(); + begin + return 1; + end; + function wdExportOptimizeForPrint(); + begin + return 0; + end; + + // WdExportRange + function wdExportAllDocument(); + begin + return 0; + end; + function wdExportCurrentPage(); + begin + return 2; + end; + function wdExportFromTo(); + begin + return 3; + end; + function wdExportSelection(); + begin + return 1; + end; + + // WdFarEastLineBreakLanguageID + function wdLineBreakJapanese(); + begin + return 1041; + end; + function wdLineBreakKorean(); + begin + return 1042; + end; + function wdLineBreakSimplifiedChinese(); + begin + return 2052; + end; + function wdLineBreakTraditionalChinese(); + begin + return 1028; + end; + + // WdFarEastLineBreakLevel + function wdFarEastLineBreakLevelCustom(); + begin + return 2; + end; + function wdFarEastLineBreakLevelNormal(); + begin + return 0; + end; + function wdFarEastLineBreakLevelStrict(); + begin + return 1; + end; + + // WdFieldKind + function wdFieldKindCold(); + begin + return 3; + end; + function wdFieldKindHot(); + begin + return 1; + end; + function wdFieldKindNone(); + begin + return 0; + end; + function wdFieldKindWarm(); + begin + return 2; + end; + + // WdFieldShading + function wdFieldShadingAlways(); + begin + return 1; + end; + function wdFieldShadingNever(); + begin + return 0; + end; + function wdFieldShadingWhenSelected(); + begin + return 2; + end; + + // WdFieldType + function wdFieldAddin(); + begin + return 81; + end; + function wdFieldAddressBlock(); + begin + return 93; + end; + function wdFieldAdvance(); + begin + return 84; + end; + function wdFieldAsk(); + begin + return 38; + end; + function wdFieldAuthor(); + begin + return 17; + end; + function wdFieldAutoNum(); + begin + return 54; + end; + function wdFieldAutoNumLegal(); + begin + return 53; + end; + function wdFieldAutoNumOutline(); + begin + return 52; + end; + function wdFieldAutoText(); + begin + return 79; + end; + function wdFieldAutoTextList(); + begin + return 89; + end; + function wdFieldBarCode(); + begin + return 63; + end; + function wdFieldBidiOutline(); + begin + return 92; + end; + function wdFieldComments(); + begin + return 19; + end; + function wdFieldCompare(); + begin + return 80; + end; + function wdFieldCreateDate(); + begin + return 21; + end; + function wdFieldData(); + begin + return 40; + end; + function wdFieldDatabase(); + begin + return 78; + end; + function wdFieldDate(); + begin + return 31; + end; + function wdFieldDDE(); + begin + return 45; + end; + function wdFieldDDEAuto(); + begin + return 46; + end; + function wdFieldDisplayBarcode(); + begin + return 99; + end; + function wdFieldDocProperty(); + begin + return 85; + end; + function wdFieldDocVariable(); + begin + return 64; + end; + function wdFieldEditTime(); + begin + return 25; + end; + function wdFieldEmbed(); + begin + return 58; + end; + function wdFieldEmpty(); + begin + return -1; + end; + function wdFieldExpression(); + begin + return 34; + end; + function wdFieldFileName(); + begin + return 29; + end; + function wdFieldFileSize(); + begin + return 69; + end; + function wdFieldFillIn(); + begin + return 39; + end; + function wdFieldFootnoteRef(); + begin + return 5; + end; + function wdFieldFormCheckBox(); + begin + return 71; + end; + function wdFieldFormDropDown(); + begin + return 83; + end; + function wdFieldFormTextInput(); + begin + return 70; + end; + function wdFieldFormula(); + begin + return 49; + end; + function wdFieldGlossary(); + begin + return 47; + end; + function wdFieldGoToButton(); + begin + return 50; + end; + function wdFieldGreetingLine(); + begin + return 94; + end; + function wdFieldHTMLActiveX(); + begin + return 91; + end; + function wdFieldHyperlink(); + begin + return 88; + end; + function wdFieldIf(); + begin + return 7; + end; + function wdFieldImport(); + begin + return 55; + end; + function wdFieldInclude(); + begin + return 36; + end; + function wdFieldIncludePicture(); + begin + return 67; + end; + function wdFieldIncludeText(); + begin + return 68; + end; + function wdFieldIndex(); + begin + return 8; + end; + function wdFieldIndexEntry(); + begin + return 4; + end; + function wdFieldInfo(); + begin + return 14; + end; + function wdFieldKeyWord(); + begin + return 18; + end; + function wdFieldLastSavedBy(); + begin + return 20; + end; + function wdFieldLink(); + begin + return 56; + end; + function wdFieldListNum(); + begin + return 90; + end; + function wdFieldMacroButton(); + begin + return 51; + end; + function wdFieldMergeBarcode(); + begin + return 98; + end; + function wdFieldMergeField(); + begin + return 59; + end; + function wdFieldMergeRec(); + begin + return 44; + end; + function wdFieldMergeSeq(); + begin + return 75; + end; + function wdFieldNext(); + begin + return 41; + end; + function wdFieldNextIf(); + begin + return 42; + end; + function wdFieldNoteRef(); + begin + return 72; + end; + function wdFieldNumChars(); + begin + return 28; + end; + function wdFieldNumPages(); + begin + return 26; + end; + function wdFieldNumWords(); + begin + return 27; + end; + function wdFieldOCX(); + begin + return 87; + end; + function wdFieldPage(); + begin + return 33; + end; + function wdFieldPageRef(); + begin + return 37; + end; + function wdFieldPrint(); + begin + return 48; + end; + function wdFieldPrintDate(); + begin + return 23; + end; + function wdFieldPrivate(); + begin + return 77; + end; + function wdFieldQuote(); + begin + return 35; + end; + function wdFieldRef(); + begin + return 3; + end; + function wdFieldRefDoc(); + begin + return 11; + end; + function wdFieldRevisionNum(); + begin + return 24; + end; + function wdFieldSaveDate(); + begin + return 22; + end; + function wdFieldSection(); + begin + return 65; + end; + function wdFieldSectionPages(); + begin + return 66; + end; + function wdFieldSequence(); + begin + return 12; + end; + function wdFieldSet(); + begin + return 6; + end; + function wdFieldShape(); + begin + return 95; + end; + function wdFieldSkipIf(); + begin + return 43; + end; + function wdFieldStyleRef(); + begin + return 10; + end; + function wdFieldSubject(); + begin + return 16; + end; + function wdFieldSubscriber(); + begin + return 82; + end; + function wdFieldSymbol(); + begin + return 57; + end; + function wdFieldTemplate(); + begin + return 30; + end; + function wdFieldTime(); + begin + return 32; + end; + function wdFieldTitle(); + begin + return 15; + end; + function wdFieldTOA(); + begin + return 73; + end; + function wdFieldTOAEntry(); + begin + return 74; + end; + function wdFieldTOC(); + begin + return 13; + end; + function wdFieldTOCEntry(); + begin + return 9; + end; + function wdFieldUserAddress(); + begin + return 62; + end; + function wdFieldUserInitials(); + begin + return 61; + end; + function wdFieldUserName(); + begin + return 60; + end; + function wdFieldBibliography(); + begin + return 97; + end; + function wdFieldCitation(); + begin + return 96; + end; + + // WdFindMatch + function wdMatchAnyCharacter(); + begin + return 65599; + end; + function wdMatchAnyDigit(); + begin + return 65567; + end; + function wdMatchAnyLetter(); + begin + return 65583; + end; + function wdMatchCaretCharacter(); + begin + return 11; + end; + function wdMatchColumnBreak(); + begin + return 14; + end; + function wdMatchCommentMark(); + begin + return 5; + end; + function wdMatchEmDash(); + begin + return 8212; + end; + function wdMatchEnDash(); + begin + return 8211; + end; + function wdMatchEndnoteMark(); + begin + return 65555; + end; + function wdMatchField(); + begin + return 19; + end; + function wdMatchFootnoteMark(); + begin + return 65554; + end; + function wdMatchGraphic(); + begin + return 1; + end; + function wdMatchManualLineBreak(); + begin + return 65551; + end; + function wdMatchManualPageBreak(); + begin + return 65564; + end; + function wdMatchNonbreakingHyphen(); + begin + return 30; + end; + function wdMatchNonbreakingSpace(); + begin + return 160; + end; + function wdMatchOptionalHyphen(); + begin + return 31; + end; + function wdMatchParagraphMark(); + begin + return 65551; + end; + function wdMatchSectionBreak(); + begin + return 65580; + end; + function wdMatchTabCharacter(); + begin + return 9; + end; + function wdMatchWhiteSpace(); + begin + return 65655; + end; + + // WdFindWrap + function wdFindAsk(); + begin + return 2; + end; + function wdFindContinue(); + begin + return 1; + end; + function wdFindStop(); + begin + return 0; + end; + + // WdFlowDirection + function wdFlowLtr(); + begin + return 0; + end; + function wdFlowRtl(); + begin + return 1; + end; + + // WdFontBias + function wdFontBiasDefault(); + begin + return 0; + end; + function wdFontBiasDontCare(); + begin + return 255; + end; + function wdFontBiasFareast(); + begin + return 1; + end; + + // WdFootnoteLocation + function wdBeneathText(); + begin + return 1; + end; + function wdBottomOfPage(); + begin + return 0; + end; + + // WdFramePosition + function wdFrameBottom(); + begin + return -999997; + end; + function wdFrameCenter(); + begin + return -999995; + end; + function wdFrameInside(); + begin + return -999994; + end; + function wdFrameLeft(); + begin + return -999998; + end; + function wdFrameOutside(); + begin + return -999993; + end; + function wdFrameRight(); + begin + return -999996; + end; + function wdFrameTop(); + begin + return -999999; + end; + + // WdFramesetNewFrameLocation + function wdFramesetNewFrameAbove(); + begin + return 0; + end; + function wdFramesetNewFrameBelow(); + begin + return 1; + end; + function wdFramesetNewFrameLeft(); + begin + return 3; + end; + function wdFramesetNewFrameRight(); + begin + return 2; + end; + + // WdFramesetSizeType + function wdFramesetSizeTypeFixed(); + begin + return 1; + end; + function wdFramesetSizeTypePercent(); + begin + return 0; + end; + function wdFramesetSizeTypeRelative(); + begin + return 2; + end; + + // WdFramesetType + function wdFramesetTypeFrame(); + begin + return 1; + end; + function wdFramesetTypeFrameset(); + begin + return 0; + end; + + // WdFrameSizeRule + function wdFrameAtLeast(); + begin + return 1; + end; + function wdFrameAuto(); + begin + return 0; + end; + function wdFrameExact(); + begin + return 2; + end; + + // WdFrenchSpeller + function wdFrenchBoth(); + begin + return 0; + end; + function wdFrenchPostReform(); + begin + return 2; + end; + function wdFrenchPreReform(); + begin + return 1; + end; + + // WdGoToDirection + function wdGoToAbsolute(); + begin + return 1; + end; + function wdGoToFirst(); + begin + return 1; + end; + function wdGoToLast(); + begin + return -1; + end; + function wdGoToNext(); + begin + return 2; + end; + function wdGoToPrevious(); + begin + return 3; + end; + function wdGoToRelative(); + begin + return 2; + end; + + // WdGoToItem + function wdGoToBookmark(); + begin + return -1; + end; + function wdGoToComment(); + begin + return 6; + end; + function wdGoToEndnote(); + begin + return 5; + end; + function wdGoToEquation(); + begin + return 10; + end; + function wdGoToField(); + begin + return 7; + end; + function wdGoToFootnote(); + begin + return 4; + end; + function wdGoToGrammaticalError(); + begin + return 14; + end; + function wdGoToGraphic(); + begin + return 8; + end; + function wdGoToHeading(); + begin + return 11; + end; + function wdGoToLine(); + begin + return 3; + end; + function wdGoToObject(); + begin + return 9; + end; + function wdGoToPage(); + begin + return 1; + end; + function wdGoToPercent(); + begin + return 12; + end; + function wdGoToProofreadingError(); + begin + return 15; + end; + function wdGoToSection(); + begin + return 0; + end; + function wdGoToSpellingError(); + begin + return 13; + end; + function wdGoToTable(); + begin + return 2; + end; + + // WdGranularity + function wdGranularityCharLevel(); + begin + return 0; + end; + function wdGranularityWordLevel(); + begin + return 1; + end; + + // WdGutterStyle + function wdGutterPosLeft(); + begin + return 0; + end; + function wdGutterPosRight(); + begin + return 2; + end; + function wdGutterPosTop(); + begin + return 1; + end; + + // WdGutterStyleOld + function wdGutterStyleBidi(); + begin + return 2; + end; + function wdGutterStyleLatin(); + begin + return -10; + end; + + // WdHeaderFooterIndex + function wdHeaderFooterEvenPages(); + begin + return 3; + end; + function wdHeaderFooterFirstPage(); + begin + return 2; + end; + function wdHeaderFooterPrimary(); + begin + return 1; + end; + + // WdHeadingSeparator + function wdHeadingSeparatorBlankLine(); + begin + return 1; + end; + function wdHeadingSeparatorLetter(); + begin + return 2; + end; + function wdHeadingSeparatorLetterFull(); + begin + return 4; + end; + function wdHeadingSeparatorLetterLow(); + begin + return 3; + end; + function wdHeadingSeparatorNone(); + begin + return 0; + end; + + // WdHebSpellStart + function wdFullScript(); + begin + return 0; + end; + function wdMixedAuthorizedScript(); + begin + return 3; + end; + function wdMixedScript(); + begin + return 2; + end; + function wdPartialScript(); + begin + return 1; + end; + + // WdHelpType + function wdHelp(); + begin + return 0; + end; + function wdHelpAbout(); + begin + return 1; + end; + function wdHelpActiveWindow(); + begin + return 2; + end; + function wdHelpContents(); + begin + return 3; + end; + function wdHelpExamplesAndDemos(); + begin + return 4; + end; + function wdHelpHWP(); + begin + return 13; + end; + function wdHelpIchitaro(); + begin + return 11; + end; + function wdHelpIndex(); + begin + return 5; + end; + function wdHelpKeyboard(); + begin + return 6; + end; + function wdHelpPE2(); + begin + return 12; + end; + function wdHelpPSSHelp(); + begin + return 7; + end; + function wdHelpQuickPreview(); + begin + return 8; + end; + function wdHelpSearch(); + begin + return 9; + end; + function wdHelpUsingHelp(); + begin + return 10; + end; + + // WdHighAnsiText + function wdAutoDetectHighAnsiFarEast(); + begin + return 2; + end; + function wdHighAnsiIsFarEast(); + begin + return 0; + end; + function wdHighAnsiIsHighAnsi(); + begin + return 1; + end; + + // WdHorizontalInVerticalType + function wdHorizontalInVerticalFitInLine(); + begin + return 1; + end; + function wdHorizontalInVerticalNone(); + begin + return 0; + end; + function wdHorizontalInVerticalResizeLine(); + begin + return 2; + end; + + // WdHorizontalLineAlignment + function wdHorizontalLineAlignCenter(); + begin + return 1; + end; + function wdHorizontalLineAlignLeft(); + begin + return 0; + end; + function wdHorizontalLineAlignRight(); + begin + return 2; + end; + + // WdHorizontalLineWidthType + function wdHorizontalLineFixedWidth(); + begin + return -2; + end; + function wdHorizontalLinePercentWidth(); + begin + return -1; + end; + + // WdIMEMode + function wdIMEModeAlpha(); + begin + return 8; + end; + function wdIMEModeAlphaFull(); + begin + return 7; + end; + function wdIMEModeHangul(); + begin + return 10; + end; + function wdIMEModeHangulFull(); + begin + return 9; + end; + function wdIMEModeHiragana(); + begin + return 4; + end; + function wdIMEModeKatakana(); + begin + return 5; + end; + function wdIMEModeKatakanaHalf(); + begin + return 6; + end; + function wdIMEModeNoControl(); + begin + return 0; + end; + function wdIMEModeOff(); + begin + return 2; + end; + function wdIMEModeOn(); + begin + return 1; + end; + + // WdIndexFilter + function wdIndexFilterAiueo(); + begin + return 1; + end; + function wdIndexFilterAkasatana(); + begin + return 2; + end; + function wdIndexFilterChosung(); + begin + return 3; + end; + function wdIndexFilterFull(); + begin + return 6; + end; + function wdIndexFilterLow(); + begin + return 4; + end; + function wdIndexFilterMedium(); + begin + return 5; + end; + function wdIndexFilterNone(); + begin + return 0; + end; + + // WdIndexFormat + function wdIndexBulleted(); + begin + return 4; + end; + function wdIndexClassic(); + begin + return 1; + end; + function wdIndexFancy(); + begin + return 2; + end; + function wdIndexFormal(); + begin + return 5; + end; + function wdIndexModern(); + begin + return 3; + end; + function wdIndexSimple(); + begin + return 6; + end; + function wdIndexTemplate(); + begin + return 0; + end; + + // WdIndexSortBy + function wdIndexSortByStroke(); + begin + return 0; + end; + function wdIndexSortBySyllable(); + begin + return 1; + end; + + // WdIndexType + function wdIndexIndent(); + begin + return 0; + end; + function wdIndexRunin(); + begin + return 1; + end; + + // WdInformation + function wdActiveEndAdjustedPageNumber(); + begin + return 1; + end; + function wdActiveEndPageNumber(); + begin + return 3; + end; + function wdActiveEndSectionNumber(); + begin + return 2; + end; + function wdAtEndOfRowMarker(); + begin + return 31; + end; + function wdCapsLock(); + begin + return 21; + end; + function wdEndOfRangeColumnNumber(); + begin + return 17; + end; + function wdEndOfRangeRowNumber(); + begin + return 14; + end; + function wdFirstCharacterColumnNumber(); + begin + return 9; + end; + function wdFirstCharacterLineNumber(); + begin + return 10; + end; + function wdFrameIsSelected(); + begin + return 11; + end; + function wdHeaderFooterType(); + begin + return 33; + end; + function wdHorizontalPositionRelativeToPage(); + begin + return 5; + end; + function wdHorizontalPositionRelativeToTextBoundary(); + begin + return 7; + end; + function wdInBibliography(); + begin + return 42; + end; + function wdInCitation(); + begin + return 43; + end; + function wdInClipboard(); + begin + return 38; + end; + function wdInCommentPane(); + begin + return 26; + end; + function wdInContentControl(); + begin + return 46; + end; + function wdInCoverPage(); + begin + return 41; + end; + function wdInEndnote(); + begin + return 36; + end; + function wdInFieldCode(); + begin + return 44; + end; + function wdInFieldResult(); + begin + return 45; + end; + function wdInFootnote(); + begin + return 35; + end; + function wdInFootnoteEndnotePane(); + begin + return 25; + end; + function wdInHeaderFooter(); + begin + return 28; + end; + function wdInMasterDocument(); + begin + return 34; + end; + function wdInWordMail(); + begin + return 37; + end; + function wdMaximumNumberOfColumns(); + begin + return 18; + end; + function wdMaximumNumberOfRows(); + begin + return 15; + end; + function wdNumberOfPagesInDocument(); + begin + return 4; + end; + function wdNumLock(); + begin + return 22; + end; + function wdOverType(); + begin + return 23; + end; + function wdReferenceOfType(); + begin + return 32; + end; + function wdRevisionMarking(); + begin + return 24; + end; + function wdSelectionMode(); + begin + return 20; + end; + function wdStartOfRangeColumnNumber(); + begin + return 16; + end; + function wdStartOfRangeRowNumber(); + begin + return 13; + end; + function wdVerticalPositionRelativeToPage(); + begin + return 6; + end; + function wdVerticalPositionRelativeToTextBoundary(); + begin + return 8; + end; + function wdWithInTable(); + begin + return 12; + end; + function wdZoomPercentage(); + begin + return 19; + end; + + // WdInlineShapeType + function wdInlineShape3DModel(); + begin + return 19; + end; + function wdInlineShapeChart(); + begin + return 12; + end; + function wdInlineShapeDiagram(); + begin + return 13; + end; + function wdInlineShapeEmbeddedOLEObject(); + begin + return 1; + end; + function wdInlineShapeHorizontalLine(); + begin + return 6; + end; + function wdInlineShapeLinked3DModel(); + begin + return 20; + end; + function wdInlineShapeLinkedOLEObject(); + begin + return 2; + end; + function wdInlineShapeLinkedPicture(); + begin + return 4; + end; + function wdInlineShapeLinkedPictureHorizontalLine(); + begin + return 8; + end; + function wdInlineShapeLockedCanvas(); + begin + return 14; + end; + function wdInlineShapeOLEControlObject(); + begin + return 5; + end; + function wdInlineShapeOWSAnchor(); + begin + return 11; + end; + function wdInlineShapePicture(); + begin + return 3; + end; + function wdInlineShapePictureBullet(); + begin + return 9; + end; + function wdInlineShapePictureHorizontalLine(); + begin + return 7; + end; + function wdInlineShapeScriptAnchor(); + begin + return 10; + end; + function wdInlineShapeSmartArt(); + begin + return 15; + end; + function wdInlineShapeWebVideo(); + begin + return 16; + end; + + // WdInsertCells + function wdInsertCellsEntireColumn(); + begin + return 3; + end; + function wdInsertCellsEntireRow(); + begin + return 2; + end; + function wdInsertCellsShiftDown(); + begin + return 1; + end; + function wdInsertCellsShiftRight(); + begin + return 0; + end; + + // WdInsertedTextMark + function wdInsertedTextMarkBold(); + begin + return 1; + end; + function wdInsertedTextMarkColorOnly(); + begin + return 5; + end; + function wdInsertedTextMarkDoubleUnderline(); + begin + return 4; + end; + function wdInsertedTextMarkItalic(); + begin + return 2; + end; + function wdInsertedTextMarkNone(); + begin + return 0; + end; + function wdInsertedTextMarkStrikeThrough(); + begin + return 6; + end; + function wdInsertedTextMarkUnderline(); + begin + return 3; + end; + function wdInsertedTextMarkDoubleStrikeThrough(); + begin + return 7; + end; + + // WdInternationalIndex + function wd24HourClock(); + begin + return 21; + end; + function wdCurrencyCode(); + begin + return 20; + end; + function wdDateSeparator(); + begin + return 25; + end; + function wdDecimalSeparator(); + begin + return 18; + end; + function wdInternationalAM(); + begin + return 22; + end; + function wdInternationalPM(); + begin + return 23; + end; + function wdListSeparator(); + begin + return 17; + end; + function wdProductLanguageID(); + begin + return 26; + end; + function wdThousandsSeparator(); + begin + return 19; + end; + function wdTimeSeparator(); + begin + return 24; + end; + + // WdJustificationMode + function wdJustificationModeCompress(); + begin + return 1; + end; + function wdJustificationModeCompressKana(); + begin + return 2; + end; + function wdJustificationModeExpand(); + begin + return 0; + end; + + // WdKana + function wdKanaHiragana(); + begin + return 9; + end; + function wdKanaKatakana(); + begin + return 8; + end; + + // WdKey + function wdKey0(); + begin + return 48; + end; + function wdKey1(); + begin + return 49; + end; + function wdKey2(); + begin + return 50; + end; + function wdKey3(); + begin + return 51; + end; + function wdKey4(); + begin + return 52; + end; + function wdKey5(); + begin + return 53; + end; + function wdKey6(); + begin + return 54; + end; + function wdKey7(); + begin + return 55; + end; + function wdKey8(); + begin + return 56; + end; + function wdKey9(); + begin + return 57; + end; + function wdKeyA(); + begin + return 65; + end; + function wdKeyAlt(); + begin + return 1024; + end; + function wdKeyB(); + begin + return 66; + end; + function wdKeyBackSingleQuote(); + begin + return 192; + end; + function wdKeyBackSlash(); + begin + return 220; + end; + function wdKeyBackspace(); + begin + return 8; + end; + function wdKeyC(); + begin + return 67; + end; + function wdKeyCloseSquareBrace(); + begin + return 221; + end; + function wdKeyComma(); + begin + return 188; + end; + function wdKeyCommand(); + begin + return 512; + end; + function wdKeyControl(); + begin + return 512; + end; + function wdKeyD(); + begin + return 68; + end; + function wdKeyDelete(); + begin + return 46; + end; + function wdKeyE(); + begin + return 69; + end; + function wdKeyEnd(); + begin + return 35; + end; + function wdKeyEquals(); + begin + return 187; + end; + function wdKeyEsc(); + begin + return 27; + end; + function wdKeyF(); + begin + return 70; + end; + function wdKeyF1(); + begin + return 112; + end; + function wdKeyF10(); + begin + return 121; + end; + function wdKeyF11(); + begin + return 122; + end; + function wdKeyF12(); + begin + return 123; + end; + function wdKeyF13(); + begin + return 124; + end; + function wdKeyF14(); + begin + return 125; + end; + function wdKeyF15(); + begin + return 126; + end; + function wdKeyF16(); + begin + return 127; + end; + function wdKeyF2(); + begin + return 113; + end; + function wdKeyF3(); + begin + return 114; + end; + function wdKeyF4(); + begin + return 115; + end; + function wdKeyF5(); + begin + return 116; + end; + function wdKeyF6(); + begin + return 117; + end; + function wdKeyF7(); + begin + return 118; + end; + function wdKeyF8(); + begin + return 119; + end; + function wdKeyF9(); + begin + return 120; + end; + function wdKeyG(); + begin + return 71; + end; + function wdKeyH(); + begin + return 72; + end; + function wdKeyHome(); + begin + return 36; + end; + function wdKeyHyphen(); + begin + return 189; + end; + function wdKeyI(); + begin + return 73; + end; + function wdKeyInsert(); + begin + return 45; + end; + function wdKeyJ(); + begin + return 74; + end; + function wdKeyK(); + begin + return 75; + end; + function wdKeyL(); + begin + return 76; + end; + function wdKeyM(); + begin + return 77; + end; + function wdKeyN(); + begin + return 78; + end; + function wdKeyNumeric0(); + begin + return 96; + end; + function wdKeyNumeric1(); + begin + return 97; + end; + function wdKeyNumeric2(); + begin + return 98; + end; + function wdKeyNumeric3(); + begin + return 99; + end; + function wdKeyNumeric4(); + begin + return 100; + end; + function wdKeyNumeric5(); + begin + return 101; + end; + function wdKeyNumeric5Special(); + begin + return 12; + end; + function wdKeyNumeric6(); + begin + return 102; + end; + function wdKeyNumeric7(); + begin + return 103; + end; + function wdKeyNumeric8(); + begin + return 104; + end; + function wdKeyNumeric9(); + begin + return 105; + end; + function wdKeyNumericAdd(); + begin + return 107; + end; + function wdKeyNumericDecimal(); + begin + return 110; + end; + function wdKeyNumericDivide(); + begin + return 111; + end; + function wdKeyNumericMultiply(); + begin + return 106; + end; + function wdKeyNumericSubtract(); + begin + return 109; + end; + function wdKeyO(); + begin + return 79; + end; + function wdKeyOpenSquareBrace(); + begin + return 219; + end; + function wdKeyOption(); + begin + return 1024; + end; + function wdKeyP(); + begin + return 80; + end; + function wdKeyPageDown(); + begin + return 34; + end; + function wdKeyPageUp(); + begin + return 33; + end; + function wdKeyPause(); + begin + return 19; + end; + function wdKeyPeriod(); + begin + return 190; + end; + function wdKeyQ(); + begin + return 81; + end; + function wdKeyR(); + begin + return 82; + end; + function wdKeyReturn(); + begin + return 13; + end; + function wdKeyS(); + begin + return 83; + end; + function wdKeyScrollLock(); + begin + return 145; + end; + function wdKeySemiColon(); + begin + return 186; + end; + function wdKeyShift(); + begin + return 256; + end; + function wdKeySingleQuote(); + begin + return 222; + end; + function wdKeySlash(); + begin + return 191; + end; + function wdKeySpacebar(); + begin + return 32; + end; + function wdKeyT(); + begin + return 84; + end; + function wdKeyTab(); + begin + return 9; + end; + function wdKeyU(); + begin + return 85; + end; + function wdKeyV(); + begin + return 86; + end; + function wdKeyW(); + begin + return 87; + end; + function wdKeyX(); + begin + return 88; + end; + function wdKeyY(); + begin + return 89; + end; + function wdKeyZ(); + begin + return 90; + end; + function wdNoKey(); + begin + return 255; + end; + + // WdKeyCategory + function wdKeyCategoryAutoText(); + begin + return 4; + end; + function wdKeyCategoryCommand(); + begin + return 1; + end; + function wdKeyCategoryDisable(); + begin + return 0; + end; + function wdKeyCategoryFont(); + begin + return 3; + end; + function wdKeyCategoryMacro(); + begin + return 2; + end; + function wdKeyCategoryNil(); + begin + return -1; + end; + function wdKeyCategoryPrefix(); + begin + return 7; + end; + function wdKeyCategoryStyle(); + begin + return 5; + end; + function wdKeyCategorySymbol(); + begin + return 6; + end; + + // WdLanguageID + function wdAfrikaans(); + begin + return 1078; + end; + function wdAlbanian(); + begin + return 1052; + end; + function wdAmharic(); + begin + return 1118; + end; + function wdArabic(); + begin + return 1025; + end; + function wdArabicAlgeria(); + begin + return 5121; + end; + function wdArabicBahrain(); + begin + return 15361; + end; + function wdArabicEgypt(); + begin + return 3073; + end; + function wdArabicIraq(); + begin + return 2049; + end; + function wdArabicJordan(); + begin + return 11265; + end; + function wdArabicKuwait(); + begin + return 13313; + end; + function wdArabicLebanon(); + begin + return 12289; + end; + function wdArabicLibya(); + begin + return 4097; + end; + function wdArabicMorocco(); + begin + return 6145; + end; + function wdArabicOman(); + begin + return 8193; + end; + function wdArabicQatar(); + begin + return 16385; + end; + function wdArabicSyria(); + begin + return 10241; + end; + function wdArabicTunisia(); + begin + return 7169; + end; + function wdArabicUAE(); + begin + return 14337; + end; + function wdArabicYemen(); + begin + return 9217; + end; + function wdArmenian(); + begin + return 1067; + end; + function wdAssamese(); + begin + return 1101; + end; + function wdAzeriCyrillic(); + begin + return 2092; + end; + function wdAzeriLatin(); + begin + return 1068; + end; + function wdBasque(); + begin + return 1069; + end; + function wdBelgianDutch(); + begin + return 2067; + end; + function wdBelgianFrench(); + begin + return 2060; + end; + function wdBengali(); + begin + return 1093; + end; + function wdBulgarian(); + begin + return 1026; + end; + function wdBurmese(); + begin + return 1109; + end; + function wdByelorussian(); + begin + return 1059; + end; + function wdCatalan(); + begin + return 1027; + end; + function wdCherokee(); + begin + return 1116; + end; + function wdChineseHongKongSAR(); + begin + return 3076; + end; + function wdChineseMacaoSAR(); + begin + return 5124; + end; + function wdChineseSingapore(); + begin + return 4100; + end; + function wdCroatian(); + begin + return 1050; + end; + function wdCzech(); + begin + return 1029; + end; + function wdDanish(); + begin + return 1030; + end; + function wdDivehi(); + begin + return 1125; + end; + function wdDutch(); + begin + return 1043; + end; + function wdEdo(); + begin + return 1126; + end; + function wdEnglishAUS(); + begin + return 3081; + end; + function wdEnglishBelize(); + begin + return 10249; + end; + function wdEnglishCanadian(); + begin + return 4105; + end; + function wdEnglishCaribbean(); + begin + return 9225; + end; + function wdEnglishIndonesia(); + begin + return 14345; + end; + function wdEnglishIreland(); + begin + return 6153; + end; + function wdEnglishJamaica(); + begin + return 8201; + end; + function wdEnglishNewZealand(); + begin + return 5129; + end; + function wdEnglishPhilippines(); + begin + return 13321; + end; + function wdEnglishSouthAfrica(); + begin + return 7177; + end; + function wdEnglishTrinidadTobago(); + begin + return 11273; + end; + function wdEnglishUK(); + begin + return 2057; + end; + function wdEnglishUS(); + begin + return 1033; + end; + function wdEnglishZimbabwe(); + begin + return 12297; + end; + function wdEstonian(); + begin + return 1061; + end; + function wdFaeroese(); + begin + return 1080; + end; + function wdFilipino(); + begin + return 1124; + end; + function wdFinnish(); + begin + return 1035; + end; + function wdFrench(); + begin + return 1036; + end; + function wdFrenchCameroon(); + begin + return 11276; + end; + function wdFrenchCanadian(); + begin + return 3084; + end; + function wdFrenchCongoDRC(); + begin + return 9228; + end; + function wdFrenchCotedIvoire(); + begin + return 12300; + end; + function wdFrenchHaiti(); + begin + return 15372; + end; + function wdFrenchLuxembourg(); + begin + return 5132; + end; + function wdFrenchMali(); + begin + return 13324; + end; + function wdFrenchMonaco(); + begin + return 6156; + end; + function wdFrenchMorocco(); + begin + return 14348; + end; + function wdFrenchReunion(); + begin + return 8204; + end; + function wdFrenchSenegal(); + begin + return 10252; + end; + function wdFrenchWestIndies(); + begin + return 7180; + end; + function wdFrisianNetherlands(); + begin + return 1122; + end; + function wdFulfulde(); + begin + return 1127; + end; + function wdGaelicIreland(); + begin + return 2108; + end; + function wdGaelicScotland(); + begin + return 1084; + end; + function wdGalician(); + begin + return 1110; + end; + function wdGeorgian(); + begin + return 1079; + end; + function wdGerman(); + begin + return 1031; + end; + function wdGermanAustria(); + begin + return 3079; + end; + function wdGermanLiechtenstein(); + begin + return 5127; + end; + function wdGermanLuxembourg(); + begin + return 4103; + end; + function wdGreek(); + begin + return 1032; + end; + function wdGuarani(); + begin + return 1140; + end; + function wdGujarati(); + begin + return 1095; + end; + function wdHausa(); + begin + return 1128; + end; + function wdHawaiian(); + begin + return 1141; + end; + function wdHebrew(); + begin + return 1037; + end; + function wdHindi(); + begin + return 1081; + end; + function wdHungarian(); + begin + return 1038; + end; + function wdIbibio(); + begin + return 1129; + end; + function wdIcelandic(); + begin + return 1039; + end; + function wdIgbo(); + begin + return 1136; + end; + function wdIndonesian(); + begin + return 1057; + end; + function wdInuktitut(); + begin + return 1117; + end; + function wdItalian(); + begin + return 1040; + end; + function wdJapanese(); + begin + return 1041; + end; + function wdKannada(); + begin + return 1099; + end; + function wdKanuri(); + begin + return 1137; + end; + function wdKashmiri(); + begin + return 1120; + end; + function wdKazakh(); + begin + return 1087; + end; + function wdKhmer(); + begin + return 1107; + end; + function wdKirghiz(); + begin + return 1088; + end; + function wdKonkani(); + begin + return 1111; + end; + function wdKorean(); + begin + return 1042; + end; + function wdKyrgyz(); + begin + return 1088; + end; + function wdLanguageNone(); + begin + return 0; + end; + function wdLao(); + begin + return 1108; + end; + function wdLatin(); + begin + return 1142; + end; + function wdLatvian(); + begin + return 1062; + end; + function wdLithuanian(); + begin + return 1063; + end; + function wdMacedonianFYROM(); + begin + return 1071; + end; + function wdMalayalam(); + begin + return 1100; + end; + function wdMalayBruneiDarussalam(); + begin + return 2110; + end; + function wdMalaysian(); + begin + return 1086; + end; + function wdMaltese(); + begin + return 1082; + end; + function wdManipuri(); + begin + return 1112; + end; + function wdMarathi(); + begin + return 1102; + end; + function wdMexicanSpanish(); + begin + return 2058; + end; + function wdMongolian(); + begin + return 1104; + end; + function wdNepali(); + begin + return 1121; + end; + function wdNoProofing(); + begin + return 1024; + end; + function wdNorwegianBokmol(); + begin + return 1044; + end; + function wdNorwegianNynorsk(); + begin + return 2068; + end; + function wdOriya(); + begin + return 1096; + end; + function wdOromo(); + begin + return 1138; + end; + function wdPashto(); + begin + return 1123; + end; + function wdPersian(); + begin + return 1065; + end; + function wdPolish(); + begin + return 1045; + end; + function wdPortuguese(); + begin + return 2070; + end; + function wdPortugueseBrazil(); + begin + return 1046; + end; + function wdPunjabi(); + begin + return 1094; + end; + function wdRhaetoRomanic(); + begin + return 1047; + end; + function wdRomanian(); + begin + return 1048; + end; + function wdRomanianMoldova(); + begin + return 2072; + end; + function wdRussian(); + begin + return 1049; + end; + function wdRussianMoldova(); + begin + return 2073; + end; + function wdSamiLappish(); + begin + return 1083; + end; + function wdSanskrit(); + begin + return 1103; + end; + function wdSerbianCyrillic(); + begin + return 3098; + end; + function wdSerbianLatin(); + begin + return 2074; + end; + function wdSesotho(); + begin + return 1072; + end; + function wdSimplifiedChinese(); + begin + return 2052; + end; + function wdSindhi(); + begin + return 1113; + end; + function wdSindhiPakistan(); + begin + return 2137; + end; + function wdSinhalese(); + begin + return 1115; + end; + function wdSlovak(); + begin + return 1051; + end; + function wdSlovenian(); + begin + return 1060; + end; + function wdSomali(); + begin + return 1143; + end; + function wdSorbian(); + begin + return 1070; + end; + function wdSpanish(); + begin + return 1034; + end; + function wdSpanishArgentina(); + begin + return 11274; + end; + function wdSpanishBolivia(); + begin + return 16394; + end; + function wdSpanishChile(); + begin + return 13322; + end; + function wdSpanishColombia(); + begin + return 9226; + end; + function wdSpanishCostaRica(); + begin + return 5130; + end; + function wdSpanishDominicanRepublic(); + begin + return 7178; + end; + function wdSpanishEcuador(); + begin + return 12298; + end; + function wdSpanishElSalvador(); + begin + return 17418; + end; + function wdSpanishGuatemala(); + begin + return 4106; + end; + function wdSpanishHonduras(); + begin + return 18442; + end; + function wdSpanishModernSort(); + begin + return 3082; + end; + function wdSpanishNicaragua(); + begin + return 19466; + end; + function wdSpanishPanama(); + begin + return 6154; + end; + function wdSpanishParaguay(); + begin + return 15370; + end; + function wdSpanishPeru(); + begin + return 10250; + end; + function wdSpanishPuertoRico(); + begin + return 20490; + end; + function wdSpanishUruguay(); + begin + return 14346; + end; + function wdSpanishVenezuela(); + begin + return 8202; + end; + function wdSutu(); + begin + return 1072; + end; + function wdSwahili(); + begin + return 1089; + end; + function wdSwedish(); + begin + return 1053; + end; + function wdSwedishFinland(); + begin + return 2077; + end; + function wdSwissFrench(); + begin + return 4108; + end; + function wdSwissGerman(); + begin + return 2055; + end; + function wdSwissItalian(); + begin + return 2064; + end; + function wdSyriac(); + begin + return 1114; + end; + function wdTajik(); + begin + return 1064; + end; + function wdTamazight(); + begin + return 1119; + end; + function wdTamazightLatin(); + begin + return 2143; + end; + function wdTamil(); + begin + return 1097; + end; + function wdTatar(); + begin + return 1092; + end; + function wdTelugu(); + begin + return 1098; + end; + function wdThai(); + begin + return 1054; + end; + function wdTibetan(); + begin + return 1105; + end; + function wdTigrignaEritrea(); + begin + return 2163; + end; + function wdTigrignaEthiopic(); + begin + return 1139; + end; + function wdTraditionalChinese(); + begin + return 1028; + end; + function wdTsonga(); + begin + return 1073; + end; + function wdTswana(); + begin + return 1074; + end; + function wdTurkish(); + begin + return 1055; + end; + function wdTurkmen(); + begin + return 1090; + end; + function wdUkrainian(); + begin + return 1058; + end; + function wdUrdu(); + begin + return 1056; + end; + function wdUzbekCyrillic(); + begin + return 2115; + end; + function wdUzbekLatin(); + begin + return 1091; + end; + function wdVenda(); + begin + return 1075; + end; + function wdVietnamese(); + begin + return 1066; + end; + function wdWelsh(); + begin + return 1106; + end; + function wdXhosa(); + begin + return 1076; + end; + function wdYi(); + begin + return 1144; + end; + function wdYiddish(); + begin + return 1085; + end; + function wdYoruba(); + begin + return 1130; + end; + function wdZulu(); + begin + return 1077; + end; + + // WdLayoutMode + function wdLayoutModeDefault(); + begin + return 0; + end; + function wdLayoutModeGenko(); + begin + return 3; + end; + function wdLayoutModeGrid(); + begin + return 1; + end; + function wdLayoutModeLineGrid(); + begin + return 2; + end; + + // WdLetterheadLocation + function wdLetterBottom(); + begin + return 1; + end; + function wdLetterLeft(); + begin + return 2; + end; + function wdLetterRight(); + begin + return 3; + end; + function wdLetterTop(); + begin + return 0; + end; + + // WdLetterStyle + function wdFullBlock(); + begin + return 0; + end; + function wdModifiedBlock(); + begin + return 1; + end; + function wdSemiBlock(); + begin + return 2; + end; + + // WdLigatures + function wdLigaturesAll(); + begin + return 15; + end; + function wdLigaturesContextual(); + begin + return 2; + end; + function wdLigaturesContextualDiscretional(); + begin + return 10; + end; + function wdLigaturesContextualHistorical(); + begin + return 6; + end; + function wdLigaturesContextualHistoricalDiscretional(); + begin + return 14; + end; + function wdLigaturesDiscretional(); + begin + return 8; + end; + function wdLigaturesHistorical(); + begin + return 4; + end; + function wdLigaturesHistoricalDiscretional(); + begin + return 12; + end; + function wdLigaturesNone(); + begin + return 0; + end; + function wdLigaturesStandard(); + begin + return 1; + end; + function wdLigaturesStandardContextual(); + begin + return 3; + end; + function wdLigaturesStandardContextualDiscretional(); + begin + return 11; + end; + function wdLigaturesStandardContextualHistorical(); + begin + return 7; + end; + function wdLigaturesStandardDiscretional(); + begin + return 9; + end; + function wdLigaturesStandardHistorical(); + begin + return 5; + end; + function wdLigaturesStandardHistoricalDiscretional(); + begin + return 13; + end; + + // WdLineEndingType + function wdCRLF(); + begin + return 0; + end; + function wdCROnly(); + begin + return 1; + end; + function wdLFCR(); + begin + return 3; + end; + function wdLFOnly(); + begin + return 2; + end; + function wdLSPS(); + begin + return 4; + end; + + // WdLineSpacing + function wdLineSpace1pt5(); + begin + return 1; + end; + function wdLineSpaceAtLeast(); + begin + return 3; + end; + function wdLineSpaceDouble(); + begin + return 2; + end; + function wdLineSpaceExactly(); + begin + return 4; + end; + function wdLineSpaceMultiple(); + begin + return 5; + end; + function wdLineSpaceSingle(); + begin + return 0; + end; + + // WdLineStyle + function wdLineStyleDashDot(); + begin + return 5; + end; + function wdLineStyleDashDotDot(); + begin + return 6; + end; + function wdLineStyleDashDotStroked(); + begin + return 20; + end; + function wdLineStyleDashLargeGap(); + begin + return 4; + end; + function wdLineStyleDashSmallGap(); + begin + return 3; + end; + function wdLineStyleDot(); + begin + return 2; + end; + function wdLineStyleDouble(); + begin + return 7; + end; + function wdLineStyleDoubleWavy(); + begin + return 19; + end; + function wdLineStyleEmboss3D(); + begin + return 21; + end; + function wdLineStyleEngrave3D(); + begin + return 22; + end; + function wdLineStyleInset(); + begin + return 24; + end; + function wdLineStyleNone(); + begin + return 0; + end; + function wdLineStyleOutset(); + begin + return 23; + end; + function wdLineStyleSingle(); + begin + return 1; + end; + function wdLineStyleSingleWavy(); + begin + return 18; + end; + function wdLineStyleThickThinLargeGap(); + begin + return 16; + end; + function wdLineStyleThickThinMedGap(); + begin + return 13; + end; + function wdLineStyleThickThinSmallGap(); + begin + return 10; + end; + function wdLineStyleThinThickLargeGap(); + begin + return 15; + end; + function wdLineStyleThinThickMedGap(); + begin + return 12; + end; + function wdLineStyleThinThickSmallGap(); + begin + return 9; + end; + function wdLineStyleThinThickThinLargeGap(); + begin + return 17; + end; + function wdLineStyleThinThickThinMedGap(); + begin + return 14; + end; + function wdLineStyleThinThickThinSmallGap(); + begin + return 11; + end; + function wdLineStyleTriple(); + begin + return 8; + end; + + // WdLineType + function wdTableRow(); + begin + return 1; + end; + function wdTextLine(); + begin + return 0; + end; + + // WdLineWidth + function wdLineWidth025pt(); + begin + return 2; + end; + function wdLineWidth050pt(); + begin + return 4; + end; + function wdLineWidth075pt(); + begin + return 6; + end; + function wdLineWidth100pt(); + begin + return 8; + end; + function wdLineWidth150pt(); + begin + return 12; + end; + function wdLineWidth225pt(); + begin + return 18; + end; + function wdLineWidth300pt(); + begin + return 24; + end; + function wdLineWidth450pt(); + begin + return 36; + end; + function wdLineWidth600pt(); + begin + return 48; + end; + + // WdLinkType + function wdLinkTypeChart(); + begin + return 8; + end; + function wdLinkTypeDDE(); + begin + return 6; + end; + function wdLinkTypeDDEAuto(); + begin + return 7; + end; + function wdLinkTypeImport(); + begin + return 5; + end; + function wdLinkTypeInclude(); + begin + return 4; + end; + function wdLinkTypeOLE(); + begin + return 0; + end; + function wdLinkTypePicture(); + begin + return 1; + end; + function wdLinkTypeReference(); + begin + return 3; + end; + function wdLinkTypeText(); + begin + return 2; + end; + + // WdListApplyTo + function wdListApplyToSelection(); + begin + return 2; + end; + function wdListApplyToThisPointForward(); + begin + return 1; + end; + function wdListApplyToWholeList(); + begin + return 0; + end; + + // WdListGalleryType + function wdBulletGallery(); + begin + return 1; + end; + function wdNumberGallery(); + begin + return 2; + end; + function wdOutlineNumberGallery(); + begin + return 3; + end; + + // WdListLevelAlignment + function wdListLevelAlignCenter(); + begin + return 1; + end; + function wdListLevelAlignLeft(); + begin + return 0; + end; + function wdListLevelAlignRight(); + begin + return 2; + end; + + // WdListNumberStyle + function wdListNumberStyleAiueo(); + begin + return 20; + end; + function wdListNumberStyleAiueoHalfWidth(); + begin + return 12; + end; + function wdListNumberStyleArabic(); + begin + return 0; + end; + function wdListNumberStyleArabic1(); + begin + return 46; + end; + function wdListNumberStyleArabic2(); + begin + return 48; + end; + function wdListNumberStyleArabicFullWidth(); + begin + return 14; + end; + function wdListNumberStyleArabicLZ(); + begin + return 22; + end; + function wdListNumberStyleArabicLZ2(); + begin + return 62; + end; + function wdListNumberStyleArabicLZ3(); + begin + return 63; + end; + function wdListNumberStyleArabicLZ4(); + begin + return 64; + end; + function wdListNumberStyleBullet(); + begin + return 23; + end; + function wdListNumberStyleCardinalText(); + begin + return 6; + end; + function wdListNumberStyleChosung(); + begin + return 25; + end; + function wdListNumberStyleGanada(); + begin + return 24; + end; + function wdListNumberStyleGBNum1(); + begin + return 26; + end; + function wdListNumberStyleGBNum2(); + begin + return 27; + end; + function wdListNumberStyleGBNum3(); + begin + return 28; + end; + function wdListNumberStyleGBNum4(); + begin + return 29; + end; + function wdListNumberStyleHangul(); + begin + return 43; + end; + function wdListNumberStyleHanja(); + begin + return 44; + end; + function wdListNumberStyleHanjaRead(); + begin + return 41; + end; + function wdListNumberStyleHanjaReadDigit(); + begin + return 42; + end; + function wdListNumberStyleHebrew1(); + begin + return 45; + end; + function wdListNumberStyleHebrew2(); + begin + return 47; + end; + function wdListNumberStyleHindiArabic(); + begin + return 51; + end; + function wdListNumberStyleHindiCardinalText(); + begin + return 52; + end; + function wdListNumberStyleHindiLetter1(); + begin + return 49; + end; + function wdListNumberStyleHindiLetter2(); + begin + return 50; + end; + function wdListNumberStyleIroha(); + begin + return 21; + end; + function wdListNumberStyleIrohaHalfWidth(); + begin + return 13; + end; + function wdListNumberStyleKanji(); + begin + return 10; + end; + function wdListNumberStyleKanjiDigit(); + begin + return 11; + end; + function wdListNumberStyleKanjiTraditional(); + begin + return 16; + end; + function wdListNumberStyleKanjiTraditional2(); + begin + return 17; + end; + function wdListNumberStyleLegal(); + begin + return 253; + end; + function wdListNumberStyleLegalLZ(); + begin + return 254; + end; + function wdListNumberStyleLowercaseBulgarian(); + begin + return 67; + end; + function wdListNumberStyleLowercaseGreek(); + begin + return 60; + end; + function wdListNumberStyleLowercaseLetter(); + begin + return 4; + end; + function wdListNumberStyleLowercaseRoman(); + begin + return 2; + end; + function wdListNumberStyleLowercaseRussian(); + begin + return 58; + end; + function wdListNumberStyleLowercaseTurkish(); + begin + return 65; + end; + function wdListNumberStyleNone(); + begin + return 255; + end; + function wdListNumberStyleNumberInCircle(); + begin + return 18; + end; + function wdListNumberStyleOrdinal(); + begin + return 5; + end; + function wdListNumberStyleOrdinalText(); + begin + return 7; + end; + function wdListNumberStylePictureBullet(); + begin + return 249; + end; + function wdListNumberStyleSimpChinNum1(); + begin + return 37; + end; + function wdListNumberStyleSimpChinNum2(); + begin + return 38; + end; + function wdListNumberStyleSimpChinNum3(); + begin + return 39; + end; + function wdListNumberStyleSimpChinNum4(); + begin + return 40; + end; + function wdListNumberStyleThaiArabic(); + begin + return 54; + end; + function wdListNumberStyleThaiCardinalText(); + begin + return 55; + end; + function wdListNumberStyleThaiLetter(); + begin + return 53; + end; + function wdListNumberStyleTradChinNum1(); + begin + return 33; + end; + function wdListNumberStyleTradChinNum2(); + begin + return 34; + end; + function wdListNumberStyleTradChinNum3(); + begin + return 35; + end; + function wdListNumberStyleTradChinNum4(); + begin + return 36; + end; + function wdListNumberStyleUppercaseBulgarian(); + begin + return 68; + end; + function wdListNumberStyleUppercaseGreek(); + begin + return 61; + end; + function wdListNumberStyleUppercaseLetter(); + begin + return 3; + end; + function wdListNumberStyleUppercaseRoman(); + begin + return 1; + end; + function wdListNumberStyleUppercaseRussian(); + begin + return 59; + end; + function wdListNumberStyleUppercaseTurkish(); + begin + return 66; + end; + function wdListNumberStyleVietCardinalText(); + begin + return 56; + end; + function wdListNumberStyleZodiac1(); + begin + return 30; + end; + function wdListNumberStyleZodiac2(); + begin + return 31; + end; + function wdListNumberStyleZodiac3(); + begin + return 32; + end; + + // WdListType + function wdListBullet(); + begin + return 2; + end; + function wdListListNumOnly(); + begin + return 1; + end; + function wdListMixedNumbering(); + begin + return 5; + end; + function wdListNoNumbering(); + begin + return 0; + end; + function wdListOutlineNumbering(); + begin + return 4; + end; + function wdListPictureBullet(); + begin + return 6; + end; + function wdListSimpleNumbering(); + begin + return 3; + end; + + // WdLockType + function wdLockChanged(); + begin + return 3; + end; + function wdLockEphemeral(); + begin + return 2; + end; + function wdLockNone(); + begin + return 0; + end; + function wdLockReservation(); + begin + return 1; + end; + + // WdMailerPriority + function wdPriorityHigh(); + begin + return 3; + end; + function wdPriorityLow(); + begin + return 2; + end; + function wdPriorityNormal(); + begin + return 1; + end; + + // WdMailMergeActiveRecord + function wdFirstDataSourceRecord(); + begin + return -6; + end; + function wdFirstRecord(); + begin + return -4; + end; + function wdLastDataSourceRecord(); + begin + return -7; + end; + function wdLastRecord(); + begin + return -5; + end; + function wdNextDataSourceRecord(); + begin + return -8; + end; + function wdNextRecord(); + begin + return -2; + end; + function wdNoActiveRecord(); + begin + return -1; + end; + function wdPreviousDataSourceRecord(); + begin + return -9; + end; + function wdPreviousRecord(); + begin + return -3; + end; + + // WdMailMergeComparison + function wdMergeIfEqual(); + begin + return 0; + end; + function wdMergeIfGreaterThan(); + begin + return 3; + end; + function wdMergeIfGreaterThanOrEqual(); + begin + return 5; + end; + function wdMergeIfIsBlank(); + begin + return 6; + end; + function wdMergeIfIsNotBlank(); + begin + return 7; + end; + function wdMergeIfLessThan(); + begin + return 2; + end; + function wdMergeIfLessThanOrEqual(); + begin + return 4; + end; + function wdMergeIfNotEqual(); + begin + return 1; + end; + + // WdMailMergeDataSource + function wdMergeInfoFromAccessDDE(); + begin + return 1; + end; + function wdMergeInfoFromExcelDDE(); + begin + return 2; + end; + function wdMergeInfoFromMSQueryDDE(); + begin + return 3; + end; + function wdMergeInfoFromODBC(); + begin + return 4; + end; + function wdMergeInfoFromODSO(); + begin + return 5; + end; + function wdMergeInfoFromWord(); + begin + return 0; + end; + function wdNoMergeInfo(); + begin + return -1; + end; + + // WdMailMergeDefaultRecord + function wdDefaultFirstRecord(); + begin + return 1; + end; + function wdDefaultLastRecord(); + begin + return -16; + end; + + // WdMailMergeDestination + function wdSendToEmail(); + begin + return 2; + end; + function wdSendToFax(); + begin + return 3; + end; + function wdSendToNewDocument(); + begin + return 0; + end; + function wdSendToPrinter(); + begin + return 1; + end; + + // WdMailMergeMailFormat + function wdMailFormatHTML(); + begin + return 1; + end; + function wdMailFormatPlainText(); + begin + return 0; + end; + + // WdMailMergeMainDocType + function wdCatalog(); + begin + return 3; + end; + function wdDirectory(); + begin + return 3; + end; + function wdEMail(); + begin + return 4; + end; + function wdEnvelopes(); + begin + return 2; + end; + function wdFax(); + begin + return 5; + end; + function wdFormLetters(); + begin + return 0; + end; + function wdMailingLabels(); + begin + return 1; + end; + function wdNotAMergeDocument(); + begin + return -1; + end; + + // WdMailMergeState + function wdDataSource(); + begin + return 5; + end; + function wdMainAndDataSource(); + begin + return 2; + end; + function wdMainAndHeader(); + begin + return 3; + end; + function wdMainAndSourceAndHeader(); + begin + return 4; + end; + function wdMainDocumentOnly(); + begin + return 1; + end; + function wdNormalDocument(); + begin + return 0; + end; + + // WdMailSystem + function wdMAPI(); + begin + return 1; + end; + function wdMAPIandPowerTalk(); + begin + return 3; + end; + function wdNoMailSystem(); + begin + return 0; + end; + function wdPowerTalk(); + begin + return 2; + end; + + // WdMappedDataFields + function wdAddress1(); + begin + return 10; + end; + function wdAddress2(); + begin + return 11; + end; + function wdAddress3(); + begin + return 29; + end; + function wdBusinessFax(); + begin + return 17; + end; + function wdBusinessPhone(); + begin + return 16; + end; + function wdCity(); + begin + return 12; + end; + function wdCompany(); + begin + return 9; + end; + function wdCountryRegion(); + begin + return 15; + end; + function wdCourtesyTitle(); + begin + return 2; + end; + function wdDepartment(); + begin + return 30; + end; + function wdEmailAddress(); + begin + return 20; + end; + function wdFirstName(); + begin + return 3; + end; + function wdHomeFax(); + begin + return 19; + end; + function wdHomePhone(); + begin + return 18; + end; + function wdJobTitle(); + begin + return 8; + end; + function wdLastName(); + begin + return 5; + end; + function wdMiddleName(); + begin + return 4; + end; + function wdNickname(); + begin + return 7; + end; + function wdPostalCode(); + begin + return 14; + end; + function wdRubyFirstName(); + begin + return 27; + end; + function wdRubyLastName(); + begin + return 28; + end; + function wdSpouseCourtesyTitle(); + begin + return 22; + end; + function wdSpouseFirstName(); + begin + return 23; + end; + function wdSpouseLastName(); + begin + return 25; + end; + function wdSpouseMiddleName(); + begin + return 24; + end; + function wdSpouseNickname(); + begin + return 26; + end; + function wdState(); + begin + return 13; + end; + function wdSuffix(); + begin + return 6; + end; + function wdUniqueIdentifier(); + begin + return 1; + end; + function wdWebPageURL(); + begin + return 21; + end; + + // WdMeasurementUnits + function wdCentimeters(); + begin + return 1; + end; + function wdInches(); + begin + return 0; + end; + function wdMillimeters(); + begin + return 2; + end; + function wdPicas(); + begin + return 4; + end; + function wdPoints(); + begin + return 3; + end; + + // WdMergeFormatFrom + function wdMergeFormatFromOriginal(); + begin + return 0; + end; + function wdMergeFormatFromPrompt(); + begin + return 2; + end; + function wdMergeFormatFromRevised(); + begin + return 1; + end; + + // WdMergeSubType + function wdMergeSubTypeAccess(); + begin + return 1; + end; + function wdMergeSubTypeOAL(); + begin + return 2; + end; + function wdMergeSubTypeOLEDBText(); + begin + return 5; + end; + function wdMergeSubTypeOLEDBWord(); + begin + return 3; + end; + function wdMergeSubTypeOther(); + begin + return 0; + end; + function wdMergeSubTypeOutlook(); + begin + return 6; + end; + function wdMergeSubTypeWord(); + begin + return 7; + end; + function wdMergeSubTypeWord2000(); + begin + return 8; + end; + function wdMergeSubTypeWorks(); + begin + return 4; + end; + + // WdMergeTarget + function wdMergeTargetCurrent(); + begin + return 1; + end; + function wdMergeTargetNew(); + begin + return 2; + end; + function wdMergeTargetSelected(); + begin + return 0; + end; + + // WdMonthNames + function wdMonthNamesArabic(); + begin + return 0; + end; + function wdMonthNamesEnglish(); + begin + return 1; + end; + function wdMonthNamesFrench(); + begin + return 2; + end; + + // WdMoveFromTextMark + function wdMoveFromTextMarkBold(); + begin + return 6; + end; + function wdMoveFromTextMarkCaret(); + begin + return 3; + end; + function wdMoveFromTextMarkColorOnly(); + begin + return 10; + end; + function wdMoveFromTextMarkDoubleStrikeThrough(); + begin + return 1; + end; + function wdMoveFromTextMarkDoubleUnderline(); + begin + return 9; + end; + function wdMoveFromTextMarkHidden(); + begin + return 0; + end; + function wdMoveFromTextMarkItalic(); + begin + return 7; + end; + function wdMoveFromTextMarkNone(); + begin + return 5; + end; + function wdMoveFromTextMarkPound(); + begin + return 4; + end; + function wdMoveFromTextMarkStrikeThrough(); + begin + return 2; + end; + function wdMoveFromTextMarkUnderline(); + begin + return 8; + end; + + // WdMovementType + function wdExtend(); + begin + return 1; + end; + function wdMove(); + begin + return 0; + end; + + // WdMoveToTextMark + function wdMoveToTextMarkBold(); + begin + return 1; + end; + function wdMoveToTextMarkColorOnly(); + begin + return 5; + end; + function wdMoveToTextMarkDoubleStrikeThrough(); + begin + return 7; + end; + function wdMoveToTextMarkDoubleUnderline(); + begin + return 4; + end; + function wdMoveToTextMarkItalic(); + begin + return 2; + end; + function wdMoveToTextMarkNone(); + begin + return 0; + end; + function wdMoveToTextMarkStrikeThrough(); + begin + return 6; + end; + function wdMoveToTextMarkUnderline(); + begin + return 3; + end; + + // WdMultipleWordConversionsMode + function wdHangulToHanja(); + begin + return 0; + end; + function wdHanjaToHangul(); + begin + return 1; + end; + + // WdNewDocumentType + function wdNewBlankDocument(); + begin + return 0; + end; + function wdNewEmailMessage(); + begin + return 2; + end; + function wdNewFrameset(); + begin + return 3; + end; + function wdNewWebPage(); + begin + return 1; + end; + function wdNewXMLDocument(); + begin + return 4; + end; + + // WdNoteNumberStyle + function wdNoteNumberStyleArabic(); + begin + return 0; + end; + function wdNoteNumberStyleArabicFullWidth(); + begin + return 14; + end; + function wdNoteNumberStyleArabicLetter1(); + begin + return 46; + end; + function wdNoteNumberStyleArabicLetter2(); + begin + return 48; + end; + function wdNoteNumberStyleHanjaRead(); + begin + return 41; + end; + function wdNoteNumberStyleHanjaReadDigit(); + begin + return 42; + end; + function wdNoteNumberStyleHebrewLetter1(); + begin + return 45; + end; + function wdNoteNumberStyleHebrewLetter2(); + begin + return 47; + end; + function wdNoteNumberStyleHindiArabic(); + begin + return 51; + end; + function wdNoteNumberStyleHindiCardinalText(); + begin + return 52; + end; + function wdNoteNumberStyleHindiLetter1(); + begin + return 49; + end; + function wdNoteNumberStyleHindiLetter2(); + begin + return 50; + end; + function wdNoteNumberStyleKanji(); + begin + return 10; + end; + function wdNoteNumberStyleKanjiDigit(); + begin + return 11; + end; + function wdNoteNumberStyleKanjiTraditional(); + begin + return 16; + end; + function wdNoteNumberStyleLowercaseLetter(); + begin + return 4; + end; + function wdNoteNumberStyleLowercaseRoman(); + begin + return 2; + end; + function wdNoteNumberStyleNumberInCircle(); + begin + return 18; + end; + function wdNoteNumberStyleSimpChinNum1(); + begin + return 37; + end; + function wdNoteNumberStyleSimpChinNum2(); + begin + return 38; + end; + function wdNoteNumberStyleSymbol(); + begin + return 9; + end; + function wdNoteNumberStyleThaiArabic(); + begin + return 54; + end; + function wdNoteNumberStyleThaiCardinalText(); + begin + return 55; + end; + function wdNoteNumberStyleThaiLetter(); + begin + return 53; + end; + function wdNoteNumberStyleTradChinNum1(); + begin + return 33; + end; + function wdNoteNumberStyleTradChinNum2(); + begin + return 34; + end; + function wdNoteNumberStyleUppercaseLetter(); + begin + return 3; + end; + function wdNoteNumberStyleUppercaseRoman(); + begin + return 1; + end; + function wdNoteNumberStyleVietCardinalText(); + begin + return 56; + end; + + // WdNumberForm + function wdNumberFormDefault(); + begin + return 0; + end; + function wdNumberFormLining(); + begin + return 1; + end; + function wdNumberFormOldstyle(); + begin + return 2; + end; + + // WdNumberingRule + function wdRestartContinuous(); + begin + return 0; + end; + function wdRestartPage(); + begin + return 2; + end; + function wdRestartSection(); + begin + return 1; + end; + + // WdNumberSpacing + function wdNumberSpacingDefault(); + begin + return 0; + end; + function wdNumberSpacingProportional(); + begin + return 1; + end; + function wdNumberSpacingTabular(); + begin + return 2; + end; + + // WdNumberStyleWordBasicBiDi + function wdCaptionNumberStyleBidiLetter1(); + begin + return 49; + end; + function wdCaptionNumberStyleBidiLetter2(); + begin + return 50; + end; + function wdListNumberStyleBidi1(); + begin + return 49; + end; + function wdListNumberStyleBidi2(); + begin + return 50; + end; + function wdNoteNumberStyleBidiLetter1(); + begin + return 49; + end; + function wdNoteNumberStyleBidiLetter2(); + begin + return 50; + end; + function wdPageNumberStyleBidiLetter1(); + begin + return 49; + end; + function wdPageNumberStyleBidiLetter2(); + begin + return 50; + end; + + // WdNumberType + function wdNumberAllNumbers(); + begin + return 3; + end; + function wdNumberListNum(); + begin + return 2; + end; + function wdNumberParagraph(); + begin + return 1; + end; + + // WdOLEPlacement + function wdFloatOverText(); + begin + return 1; + end; + function wdInLine(); + begin + return 0; + end; + + // WdOLEType + function wdOLEControl(); + begin + return 2; + end; + function wdOLEEmbed(); + begin + return 1; + end; + function wdOLELink(); + begin + return 0; + end; + + // WdOLEVerb + function wdOLEVerbDiscardUndoState(); + begin + return -6; + end; + function wdOLEVerbHide(); + begin + return -3; + end; + function wdOLEVerbInPlaceActivate(); + begin + return -5; + end; + function wdOLEVerbOpen(); + begin + return -2; + end; + function wdOLEVerbPrimary(); + begin + return 0; + end; + function wdOLEVerbShow(); + begin + return -1; + end; + function wdOLEVerbUIActivate(); + begin + return -4; + end; + + // WdOMathBreakBin + function wdOMathBreakBinAfter(); + begin + return 1; + end; + function wdOMathBreakBinBefore(); + begin + return 0; + end; + function wdOMathBreakBinRepeat(); + begin + return 2; + end; + + // WdOMathBreakSub + function wdOMathBreakSubMinusMinus(); + begin + return 0; + end; + function wdOMathBreakSubMinusPlus(); + begin + return 2; + end; + function wdOMathBreakSubPlusMinus(); + begin + return 1; + end; + + // WdOMathFracType + function wdOMathFracBar(); + begin + return 0; + end; + function wdOMathFracLin(); + begin + return 3; + end; + function wdOMathFracNoBar(); + begin + return 1; + end; + function wdOMathFracSkw(); + begin + return 2; + end; + + // WdOMathFunctionType + function wdOMathFunctionAcc(); + begin + return 1; + end; + function wdOMathFunctionBar(); + begin + return 2; + end; + function wdOMathFunctionBorderBox(); + begin + return 4; + end; + function wdOMathFunctionBox(); + begin + return 3; + end; + function wdOMathFunctionDelim(); + begin + return 5; + end; + function wdOMathFunctionEqArray(); + begin + return 6; + end; + function wdOMathFunctionFrac(); + begin + return 7; + end; + function wdOMathFunctionFunc(); + begin + return 8; + end; + function wdOMathFunctionGroupChar(); + begin + return 9; + end; + function wdOMathFunctionLimLow(); + begin + return 10; + end; + function wdOMathFunctionLimUpp(); + begin + return 11; + end; + function wdOMathFunctionMat(); + begin + return 12; + end; + function wdOMathFunctionNary(); + begin + return 13; + end; + function wdOMathFunctionNormalText(); + begin + return 21; + end; + function wdOMathFunctionPhantom(); + begin + return 14; + end; + function wdOMathFunctionRad(); + begin + return 16; + end; + function wdOMathFunctionScrPre(); + begin + return 15; + end; + function wdOMathFunctionScrSub(); + begin + return 17; + end; + function wdOMathFunctionScrSubSup(); + begin + return 18; + end; + function wdOMathFunctionScrSup(); + begin + return 19; + end; + function wdOMathFunctionText(); + begin + return 20; + end; + + // WdOMathHorizAlignType + function wdOMathHorizAlignCenter(); + begin + return 0; + end; + function wdOMathHorizAlignLeft(); + begin + return 1; + end; + function wdOMathHorizAlignRight(); + begin + return 2; + end; + + // WdOMathJc + function wdOMathJcCenter(); + begin + return 2; + end; + function wdOMathJcCenterGroup(); + begin + return 1; + end; + function wdOMathJcInline(); + begin + return 7; + end; + function wdOMathJcLeft(); + begin + return 3; + end; + function wdOMathJcRight(); + begin + return 4; + end; + + // WdOMathShapeType + function wdOMathShapeCentered(); + begin + return 0; + end; + function wdOMathShapeMatch(); + begin + return 1; + end; + + // WdOMathSpacingRule + function wdOMathSpacing1pt5(); + begin + return 1; + end; + function wdOMathSpacingDouble(); + begin + return 2; + end; + function wdOMathSpacingExactly(); + begin + return 3; + end; + function wdOMathSpacingMultiple(); + begin + return 4; + end; + function wdOMathSpacingSingle(); + begin + return 0; + end; + + // WdOMathType + function wdOMathDisplay(); + begin + return 0; + end; + function wdOMathInline(); + begin + return 1; + end; + + // WdOMathVertAlignType + function wdOMathVertAlignBottom(); + begin + return 2; + end; + function wdOMathVertAlignCenter(); + begin + return 0; + end; + function wdOMathVertAlignTop(); + begin + return 1; + end; + + // WdOpenFormat + function wdOpenFormatAllWord(); + begin + return 6; + end; + function wdOpenFormatAuto(); + begin + return 0; + end; + function wdOpenFormatDocument(); + begin + return 1; + end; + function wdOpenFormatEncodedText(); + begin + return 5; + end; + function wdOpenFormatRTF(); + begin + return 3; + end; + function wdOpenFormatTemplate(); + begin + return 2; + end; + function wdOpenFormatText(); + begin + return 4; + end; + function wdOpenFormatOpenDocumentText(); + begin + return 18; + end; + function wdOpenFormatUnicodeText(); + begin + return 5; + end; + function wdOpenFormatWebPages(); + begin + return 7; + end; + function wdOpenFormatXML(); + begin + return 8; + end; + function wdOpenFormatAllWordTemplates(); + begin + return 13; + end; + function wdOpenFormatDocument97(); + begin + return 1; + end; + function wdOpenFormatTemplate97(); + begin + return 2; + end; + function wdOpenFormatXMLDocument(); + begin + return 9; + end; + function wdOpenFormatXMLDocumentSerialized(); + begin + return 14; + end; + function wdOpenFormatXMLDocumentMacroEnabled(); + begin + return 10; + end; + function wdOpenFormatXMLDocumentMacroEnabledSerialized(); + begin + return 15; + end; + function wdOpenFormatXMLTemplate(); + begin + return 11; + end; + function wdOpenFormatXMLTemplateSerialized(); + begin + return 16; + end; + function wdOpenFormatXMLTemplateMacroEnabled(); + begin + return 12; + end; + function wdOpenFormatXMLTemplateMacroEnabledSerialized(); + begin + return 17; + end; + + // WdOrganizerObject + function wdOrganizerObjectAutoText(); + begin + return 1; + end; + function wdOrganizerObjectCommandBars(); + begin + return 2; + end; + function wdOrganizerObjectProjectItems(); + begin + return 3; + end; + function wdOrganizerObjectStyles(); + begin + return 0; + end; + + // WdOrientation + function wdOrientLandscape(); + begin + return 1; + end; + function wdOrientPortrait(); + begin + return 0; + end; + + // WdOriginalFormat + function wdOriginalDocumentFormat(); + begin + return 1; + end; + function wdPromptUser(); + begin + return 2; + end; + function wdWordDocument(); + begin + return 0; + end; + + // WdOutlineLevel + function wdOutlineLevel1(); + begin + return 1; + end; + function wdOutlineLevel2(); + begin + return 2; + end; + function wdOutlineLevel3(); + begin + return 3; + end; + function wdOutlineLevel4(); + begin + return 4; + end; + function wdOutlineLevel5(); + begin + return 5; + end; + function wdOutlineLevel6(); + begin + return 6; + end; + function wdOutlineLevel7(); + begin + return 7; + end; + function wdOutlineLevel8(); + begin + return 8; + end; + function wdOutlineLevel9(); + begin + return 9; + end; + function wdOutlineLevelBodyText(); + begin + return 10; + end; + + // WdPageBorderArt + function wdArtApples(); + begin + return 1; + end; + function wdArtArchedScallops(); + begin + return 97; + end; + function wdArtBabyPacifier(); + begin + return 70; + end; + function wdArtBabyRattle(); + begin + return 71; + end; + function wdArtBalloons3Colors(); + begin + return 11; + end; + function wdArtBalloonsHotAir(); + begin + return 12; + end; + function wdArtBasicBlackDashes(); + begin + return 155; + end; + function wdArtBasicBlackDots(); + begin + return 156; + end; + function wdArtBasicBlackSquares(); + begin + return 154; + end; + function wdArtBasicThinLines(); + begin + return 151; + end; + function wdArtBasicWhiteDashes(); + begin + return 152; + end; + function wdArtBasicWhiteDots(); + begin + return 147; + end; + function wdArtBasicWhiteSquares(); + begin + return 153; + end; + function wdArtBasicWideInline(); + begin + return 150; + end; + function wdArtBasicWideMidline(); + begin + return 148; + end; + function wdArtBasicWideOutline(); + begin + return 149; + end; + function wdArtBats(); + begin + return 37; + end; + function wdArtBirds(); + begin + return 102; + end; + function wdArtBirdsFlight(); + begin + return 35; + end; + function wdArtCabins(); + begin + return 72; + end; + function wdArtCakeSlice(); + begin + return 3; + end; + function wdArtCandyCorn(); + begin + return 4; + end; + function wdArtCelticKnotwork(); + begin + return 99; + end; + function wdArtCertificateBanner(); + begin + return 158; + end; + function wdArtChainLink(); + begin + return 128; + end; + function wdArtChampagneBottle(); + begin + return 6; + end; + function wdArtCheckedBarBlack(); + begin + return 145; + end; + function wdArtCheckedBarColor(); + begin + return 61; + end; + function wdArtCheckered(); + begin + return 144; + end; + function wdArtChristmasTree(); + begin + return 8; + end; + function wdArtCirclesLines(); + begin + return 91; + end; + function wdArtCirclesRectangles(); + begin + return 140; + end; + function wdArtClassicalWave(); + begin + return 56; + end; + function wdArtClocks(); + begin + return 27; + end; + function wdArtCompass(); + begin + return 54; + end; + function wdArtConfetti(); + begin + return 31; + end; + function wdArtConfettiGrays(); + begin + return 115; + end; + function wdArtConfettiOutline(); + begin + return 116; + end; + function wdArtConfettiStreamers(); + begin + return 14; + end; + function wdArtConfettiWhite(); + begin + return 117; + end; + function wdArtCornerTriangles(); + begin + return 141; + end; + function wdArtCouponCutoutDashes(); + begin + return 163; + end; + function wdArtCouponCutoutDots(); + begin + return 164; + end; + function wdArtCrazyMaze(); + begin + return 100; + end; + function wdArtCreaturesButterfly(); + begin + return 32; + end; + function wdArtCreaturesFish(); + begin + return 34; + end; + function wdArtCreaturesInsects(); + begin + return 142; + end; + function wdArtCreaturesLadyBug(); + begin + return 33; + end; + function wdArtCrossStitch(); + begin + return 138; + end; + function wdArtCup(); + begin + return 67; + end; + function wdArtDecoArch(); + begin + return 89; + end; + function wdArtDecoArchColor(); + begin + return 50; + end; + function wdArtDecoBlocks(); + begin + return 90; + end; + function wdArtDiamondsGray(); + begin + return 88; + end; + function wdArtDoubleD(); + begin + return 55; + end; + function wdArtDoubleDiamonds(); + begin + return 127; + end; + function wdArtEarth1(); + begin + return 22; + end; + function wdArtEarth2(); + begin + return 21; + end; + function wdArtEclipsingSquares1(); + begin + return 101; + end; + function wdArtEclipsingSquares2(); + begin + return 86; + end; + function wdArtEggsBlack(); + begin + return 66; + end; + function wdArtFans(); + begin + return 51; + end; + function wdArtFilm(); + begin + return 52; + end; + function wdArtFirecrackers(); + begin + return 28; + end; + function wdArtFlowersBlockPrint(); + begin + return 49; + end; + function wdArtFlowersDaisies(); + begin + return 48; + end; + function wdArtFlowersModern1(); + begin + return 45; + end; + function wdArtFlowersModern2(); + begin + return 44; + end; + function wdArtFlowersPansy(); + begin + return 43; + end; + function wdArtFlowersRedRose(); + begin + return 39; + end; + function wdArtFlowersRoses(); + begin + return 38; + end; + function wdArtFlowersTeacup(); + begin + return 103; + end; + function wdArtFlowersTiny(); + begin + return 42; + end; + function wdArtGems(); + begin + return 139; + end; + function wdArtGingerbreadMan(); + begin + return 69; + end; + function wdArtGradient(); + begin + return 122; + end; + function wdArtHandmade1(); + begin + return 159; + end; + function wdArtHandmade2(); + begin + return 160; + end; + function wdArtHeartBalloon(); + begin + return 16; + end; + function wdArtHeartGray(); + begin + return 68; + end; + function wdArtHearts(); + begin + return 15; + end; + function wdArtHeebieJeebies(); + begin + return 120; + end; + function wdArtHolly(); + begin + return 41; + end; + function wdArtHouseFunky(); + begin + return 73; + end; + function wdArtHypnotic(); + begin + return 87; + end; + function wdArtIceCreamCones(); + begin + return 5; + end; + function wdArtLightBulb(); + begin + return 121; + end; + function wdArtLightning1(); + begin + return 53; + end; + function wdArtLightning2(); + begin + return 119; + end; + function wdArtMapleLeaf(); + begin + return 81; + end; + function wdArtMapleMuffins(); + begin + return 2; + end; + function wdArtMapPins(); + begin + return 30; + end; + function wdArtMarquee(); + begin + return 146; + end; + function wdArtMarqueeToothed(); + begin + return 131; + end; + function wdArtMoons(); + begin + return 125; + end; + function wdArtMosaic(); + begin + return 118; + end; + function wdArtMusicNotes(); + begin + return 79; + end; + function wdArtNorthwest(); + begin + return 104; + end; + function wdArtOvals(); + begin + return 126; + end; + function wdArtPackages(); + begin + return 26; + end; + function wdArtPalmsBlack(); + begin + return 80; + end; + function wdArtPalmsColor(); + begin + return 10; + end; + function wdArtPaperClips(); + begin + return 82; + end; + function wdArtPapyrus(); + begin + return 92; + end; + function wdArtPartyFavor(); + begin + return 13; + end; + function wdArtPartyGlass(); + begin + return 7; + end; + function wdArtPencils(); + begin + return 25; + end; + function wdArtPeople(); + begin + return 84; + end; + function wdArtPeopleHats(); + begin + return 23; + end; + function wdArtPeopleWaving(); + begin + return 85; + end; + function wdArtPoinsettias(); + begin + return 40; + end; + function wdArtPostageStamp(); + begin + return 135; + end; + function wdArtPumpkin1(); + begin + return 65; + end; + function wdArtPushPinNote1(); + begin + return 63; + end; + function wdArtPushPinNote2(); + begin + return 64; + end; + function wdArtPyramids(); + begin + return 113; + end; + function wdArtPyramidsAbove(); + begin + return 114; + end; + function wdArtQuadrants(); + begin + return 60; + end; + function wdArtRings(); + begin + return 29; + end; + function wdArtSafari(); + begin + return 98; + end; + function wdArtSawtooth(); + begin + return 133; + end; + function wdArtSawtoothGray(); + begin + return 134; + end; + function wdArtScaredCat(); + begin + return 36; + end; + function wdArtSeattle(); + begin + return 78; + end; + function wdArtShadowedSquares(); + begin + return 57; + end; + function wdArtSharksTeeth(); + begin + return 132; + end; + function wdArtShorebirdTracks(); + begin + return 83; + end; + function wdArtSkyrocket(); + begin + return 77; + end; + function wdArtSnowflakeFancy(); + begin + return 76; + end; + function wdArtSnowflakes(); + begin + return 75; + end; + function wdArtSombrero(); + begin + return 24; + end; + function wdArtSouthwest(); + begin + return 105; + end; + function wdArtStars(); + begin + return 19; + end; + function wdArtStars3D(); + begin + return 17; + end; + function wdArtStarsBlack(); + begin + return 74; + end; + function wdArtStarsShadowed(); + begin + return 18; + end; + function wdArtStarsTop(); + begin + return 157; + end; + function wdArtSun(); + begin + return 20; + end; + function wdArtSwirligig(); + begin + return 62; + end; + function wdArtTornPaper(); + begin + return 161; + end; + function wdArtTornPaperBlack(); + begin + return 162; + end; + function wdArtTrees(); + begin + return 9; + end; + function wdArtTriangleParty(); + begin + return 123; + end; + function wdArtTriangles(); + begin + return 129; + end; + function wdArtTribal1(); + begin + return 130; + end; + function wdArtTribal2(); + begin + return 109; + end; + function wdArtTribal3(); + begin + return 108; + end; + function wdArtTribal4(); + begin + return 107; + end; + function wdArtTribal5(); + begin + return 110; + end; + function wdArtTribal6(); + begin + return 106; + end; + function wdArtTwistedLines1(); + begin + return 58; + end; + function wdArtTwistedLines2(); + begin + return 124; + end; + function wdArtVine(); + begin + return 47; + end; + function wdArtWaveline(); + begin + return 59; + end; + function wdArtWeavingAngles(); + begin + return 96; + end; + function wdArtWeavingBraid(); + begin + return 94; + end; + function wdArtWeavingRibbon(); + begin + return 95; + end; + function wdArtWeavingStrips(); + begin + return 136; + end; + function wdArtWhiteFlowers(); + begin + return 46; + end; + function wdArtWoodwork(); + begin + return 93; + end; + function wdArtXIllusions(); + begin + return 111; + end; + function wdArtZanyTriangles(); + begin + return 112; + end; + function wdArtZigZag(); + begin + return 137; + end; + function wdArtZigZagStitch(); + begin + return 143; + end; + + // WdPageColor + function wdPageColorInverse(); + begin + return 2; + end; + function wdPageColorNone(); + begin + return 0; + end; + function wdPageColorSepia(); + begin + return 1; + end; + + // WdPageFit + function wdPageFitBestFit(); + begin + return 2; + end; + function wdPageFitFullPage(); + begin + return 1; + end; + function wdPageFitNone(); + begin + return 0; + end; + function wdPageFitTextFit(); + begin + return 3; + end; + + // WdPageMovementType + function wdVertical(); + begin + return 1; + end; + function wdSideToSide(); + begin + return 2; + end; + + // WdPageNumberAlignment + function wdAlignPageNumberCenter(); + begin + return 1; + end; + function wdAlignPageNumberInside(); + begin + return 3; + end; + function wdAlignPageNumberLeft(); + begin + return 0; + end; + function wdAlignPageNumberOutside(); + begin + return 4; + end; + function wdAlignPageNumberRight(); + begin + return 2; + end; + + // WdPageNumberStyle + function wdPageNumberStyleArabic(); + begin + return 0; + end; + function wdPageNumberStyleArabicFullWidth(); + begin + return 14; + end; + function wdPageNumberStyleArabicLetter1(); + begin + return 46; + end; + function wdPageNumberStyleArabicLetter2(); + begin + return 48; + end; + function wdPageNumberStyleHanjaRead(); + begin + return 41; + end; + function wdPageNumberStyleHanjaReadDigit(); + begin + return 42; + end; + function wdPageNumberStyleHebrewLetter1(); + begin + return 45; + end; + function wdPageNumberStyleHebrewLetter2(); + begin + return 47; + end; + function wdPageNumberStyleHindiArabic(); + begin + return 51; + end; + function wdPageNumberStyleHindiCardinalText(); + begin + return 52; + end; + function wdPageNumberStyleHindiLetter1(); + begin + return 49; + end; + function wdPageNumberStyleHindiLetter2(); + begin + return 50; + end; + function wdPageNumberStyleKanji(); + begin + return 10; + end; + function wdPageNumberStyleKanjiDigit(); + begin + return 11; + end; + function wdPageNumberStyleKanjiTraditional(); + begin + return 16; + end; + function wdPageNumberStyleLowercaseLetter(); + begin + return 4; + end; + function wdPageNumberStyleLowercaseRoman(); + begin + return 2; + end; + function wdPageNumberStyleNumberInCircle(); + begin + return 18; + end; + function wdPageNumberStyleNumberInDash(); + begin + return 57; + end; + function wdPageNumberStyleSimpChinNum1(); + begin + return 37; + end; + function wdPageNumberStyleSimpChinNum2(); + begin + return 38; + end; + function wdPageNumberStyleThaiArabic(); + begin + return 54; + end; + function wdPageNumberStyleThaiCardinalText(); + begin + return 55; + end; + function wdPageNumberStyleThaiLetter(); + begin + return 53; + end; + function wdPageNumberStyleTradChinNum1(); + begin + return 33; + end; + function wdPageNumberStyleTradChinNum2(); + begin + return 34; + end; + function wdPageNumberStyleUppercaseLetter(); + begin + return 3; + end; + function wdPageNumberStyleUppercaseRoman(); + begin + return 1; + end; + function wdPageNumberStyleVietCardinalText(); + begin + return 56; + end; + + // WdPaperSize + function wdPaper10x14(); + begin + return 0; + end; + function wdPaper11x17(); + begin + return 1; + end; + function wdPaperA3(); + begin + return 6; + end; + function wdPaperA4(); + begin + return 7; + end; + function wdPaperA4Small(); + begin + return 8; + end; + function wdPaperA5(); + begin + return 9; + end; + function wdPaperB4(); + begin + return 10; + end; + function wdPaperB5(); + begin + return 11; + end; + function wdPaperCSheet(); + begin + return 12; + end; + function wdPaperCustom(); + begin + return 41; + end; + function wdPaperDSheet(); + begin + return 13; + end; + function wdPaperEnvelope10(); + begin + return 25; + end; + function wdPaperEnvelope11(); + begin + return 26; + end; + function wdPaperEnvelope12(); + begin + return 27; + end; + function wdPaperEnvelope14(); + begin + return 28; + end; + function wdPaperEnvelope9(); + begin + return 24; + end; + function wdPaperEnvelopeB4(); + begin + return 29; + end; + function wdPaperEnvelopeB5(); + begin + return 30; + end; + function wdPaperEnvelopeB6(); + begin + return 31; + end; + function wdPaperEnvelopeC3(); + begin + return 32; + end; + function wdPaperEnvelopeC4(); + begin + return 33; + end; + function wdPaperEnvelopeC5(); + begin + return 34; + end; + function wdPaperEnvelopeC6(); + begin + return 35; + end; + function wdPaperEnvelopeC65(); + begin + return 36; + end; + function wdPaperEnvelopeDL(); + begin + return 37; + end; + function wdPaperEnvelopeItaly(); + begin + return 38; + end; + function wdPaperEnvelopeMonarch(); + begin + return 39; + end; + function wdPaperEnvelopePersonal(); + begin + return 40; + end; + function wdPaperESheet(); + begin + return 14; + end; + function wdPaperExecutive(); + begin + return 5; + end; + function wdPaperFanfoldLegalGerman(); + begin + return 15; + end; + function wdPaperFanfoldStdGerman(); + begin + return 16; + end; + function wdPaperFanfoldUS(); + begin + return 17; + end; + function wdPaperFolio(); + begin + return 18; + end; + function wdPaperLedger(); + begin + return 19; + end; + function wdPaperLegal(); + begin + return 4; + end; + function wdPaperLetter(); + begin + return 2; + end; + function wdPaperLetterSmall(); + begin + return 3; + end; + function wdPaperNote(); + begin + return 20; + end; + function wdPaperQuarto(); + begin + return 21; + end; + function wdPaperStatement(); + begin + return 22; + end; + function wdPaperTabloid(); + begin + return 23; + end; + + // WdPaperTray + function wdPrinterAutomaticSheetFeed(); + begin + return 7; + end; + function wdPrinterDefaultBin(); + begin + return 0; + end; + function wdPrinterEnvelopeFeed(); + begin + return 5; + end; + function wdPrinterFormSource(); + begin + return 15; + end; + function wdPrinterLargeCapacityBin(); + begin + return 11; + end; + function wdPrinterLargeFormatBin(); + begin + return 10; + end; + function wdPrinterLowerBin(); + begin + return 2; + end; + function wdPrinterManualEnvelopeFeed(); + begin + return 6; + end; + function wdPrinterManualFeed(); + begin + return 4; + end; + function wdPrinterMiddleBin(); + begin + return 3; + end; + function wdPrinterOnlyBin(); + begin + return 1; + end; + function wdPrinterPaperCassette(); + begin + return 14; + end; + function wdPrinterSmallFormatBin(); + begin + return 9; + end; + function wdPrinterTractorFeed(); + begin + return 8; + end; + function wdPrinterUpperBin(); + begin + return 1; + end; + + // WdParagraphAlignment + function wdAlignParagraphCenter(); + begin + return 1; + end; + function wdAlignParagraphDistribute(); + begin + return 4; + end; + function wdAlignParagraphJustify(); + begin + return 3; + end; + function wdAlignParagraphJustifyHi(); + begin + return 7; + end; + function wdAlignParagraphJustifyLow(); + begin + return 8; + end; + function wdAlignParagraphJustifyMed(); + begin + return 5; + end; + function wdAlignParagraphLeft(); + begin + return 0; + end; + function wdAlignParagraphRight(); + begin + return 2; + end; + function wdAlignParagraphThaiJustify(); + begin + return 9; + end; + + // WdPartOfSpeech + function wdAdjective(); + begin + return 0; + end; + function wdAdverb(); + begin + return 2; + end; + function wdConjunction(); + begin + return 5; + end; + function wdIdiom(); + begin + return 8; + end; + function wdInterjection(); + begin + return 7; + end; + function wdNoun(); + begin + return 1; + end; + function wdOther(); + begin + return 9; + end; + function wdPreposition(); + begin + return 6; + end; + function wdPronoun(); + begin + return 4; + end; + function wdVerb(); + begin + return 3; + end; + + // WdPasteDataType + function wdPasteBitmap(); + begin + return 4; + end; + function wdPasteDeviceIndependentBitmap(); + begin + return 5; + end; + function wdPasteEnhancedMetafile(); + begin + return 9; + end; + function wdPasteHTML(); + begin + return 10; + end; + function wdPasteHyperlink(); + begin + return 7; + end; + function wdPasteMetafilePicture(); + begin + return 3; + end; + function wdPasteOLEObject(); + begin + return 0; + end; + function wdPasteRTF(); + begin + return 1; + end; + function wdPasteShape(); + begin + return 8; + end; + function wdPasteText(); + begin + return 2; + end; + + // WdPasteOptions + function wdKeepSourceFormatting(); + begin + return 0; + end; + function wdKeepTextOnly(); + begin + return 2; + end; + function wdMatchDestinationFormatting(); + begin + return 1; + end; + function wdUseDestinationStyles(); + begin + return 3; + end; + + // WdPhoneticGuideAlignmentType + function wdPhoneticGuideAlignmentCenter(); + begin + return 0; + end; + function wdPhoneticGuideAlignmentLeft(); + begin + return 3; + end; + function wdPhoneticGuideAlignmentOneTwoOne(); + begin + return 2; + end; + function wdPhoneticGuideAlignmentRight(); + begin + return 4; + end; + function wdPhoneticGuideAlignmentRightVertical(); + begin + return 5; + end; + function wdPhoneticGuideAlignmentZeroOneZero(); + begin + return 1; + end; + + // WdPictureLinkType + function wdLinkDataInDoc(); + begin + return 1; + end; + function wdLinkDataOnDisk(); + begin + return 2; + end; + function wdLinkNone(); + begin + return 0; + end; + + // WdPortugueseReform + function wdPortugueseBoth(); + begin + return 3; + end; + function wdPortuguesePostReform(); + begin + return 2; + end; + function wdPortuguesePreReform(); + begin + return 1; + end; + + // WdPreferredWidthType + function wdPreferredWidthAuto(); + begin + return 1; + end; + function wdPreferredWidthPercent(); + begin + return 2; + end; + function wdPreferredWidthPoints(); + begin + return 3; + end; + + // WdPrintOutItem + function wdPrintAutoTextEntries(); + begin + return 4; + end; + function wdPrintComments(); + begin + return 2; + end; + function wdPrintDocumentContent(); + begin + return 0; + end; + function wdPrintDocumentWithMarkup(); + begin + return 7; + end; + function wdPrintEnvelope(); + begin + return 6; + end; + function wdPrintKeyAssignments(); + begin + return 5; + end; + function wdPrintMarkup(); + begin + return 2; + end; + function wdPrintProperties(); + begin + return 1; + end; + function wdPrintStyles(); + begin + return 3; + end; + + // WdPrintOutPages + function wdPrintAllPages(); + begin + return 0; + end; + function wdPrintEvenPagesOnly(); + begin + return 2; + end; + function wdPrintOddPagesOnly(); + begin + return 1; + end; + + // WdPrintOutRange + function wdPrintAllDocument(); + begin + return 0; + end; + function wdPrintCurrentPage(); + begin + return 2; + end; + function wdPrintFromTo(); + begin + return 3; + end; + function wdPrintRangeOfPages(); + begin + return 4; + end; + function wdPrintSelection(); + begin + return 1; + end; + + // WdProofreadingErrorType + function wdGrammaticalError(); + begin + return 1; + end; + function wdSpellingError(); + begin + return 0; + end; + + // WdProtectedViewCloseReason + function wdProtectedViewCloseEdit(); + begin + return 1; + end; + function wdProtectedViewCloseForced(); + begin + return 2; + end; + function wdProtectedViewCloseNormal(); + begin + return 0; + end; + + // WdProtectionType + function wdAllowOnlyComments(); + begin + return 1; + end; + function wdAllowOnlyFormFields(); + begin + return 2; + end; + function wdAllowOnlyReading(); + begin + return 3; + end; + function wdAllowOnlyRevisions(); + begin + return 0; + end; + function wdNoProtection(); + begin + return -1; + end; + + // WdReadingLayoutMargin + function wdAutomaticMargin(); + begin + return 0; + end; + function wdFullMargin(); + begin + return 2; + end; + function wdSuppressMargin(); + begin + return 1; + end; + + // WdReadingOrder + function wdReadingOrderLtr(); + begin + return 1; + end; + function wdReadingOrderRtl(); + begin + return 0; + end; + + // WdRecoveryType + function wdChart(); + begin + return 14; + end; + function wdChartLinked(); + begin + return 15; + end; + function wdChartPicture(); + begin + return 13; + end; + function wdFormatOriginalFormatting(); + begin + return 16; + end; + function wdFormatPlainText(); + begin + return 22; + end; + function wdFormatSurroundingFormattingWithEmphasis(); + begin + return 20; + end; + function wdListCombineWithExistingList(); + begin + return 24; + end; + function wdListContinueNumbering(); + begin + return 7; + end; + function wdListDontMerge(); + begin + return 25; + end; + function wdListRestartNumbering(); + begin + return 8; + end; + function wdPasteDefault(); + begin + return 0; + end; + function wdSingleCellTable(); + begin + return 6; + end; + function wdSingleCellText(); + begin + return 5; + end; + function wdTableAppendTable(); + begin + return 10; + end; + function wdTableInsertAsRows(); + begin + return 11; + end; + function wdTableOriginalFormatting(); + begin + return 12; + end; + function wdTableOverwriteCells(); + begin + return 23; + end; + function wdUseDestinationStylesRecovery(); + begin + return 19; + end; + + // WdRectangleType + function wdLineBetweenColumnRectangle(); + begin + return 5; + end; + function wdMarkupRectangle(); + begin + return 2; + end; + function wdMarkupRectangleButton(); + begin + return 3; + end; + function wdPageBorderRectangle(); + begin + return 4; + end; + function wdSelection(); + begin + return 6; + end; + function wdShapeRectangle(); + begin + return 1; + end; + function wdSystem(); + begin + return 7; + end; + function wdTextRectangle(); + begin + return 0; + end; + function wdDocumentControlRectangle(); + begin + return 13; + end; + function wdMailNavArea(); + begin + return 12; + end; + function wdMarkupRectangleArea(); + begin + return 8; + end; + function wdMarkupRectangleMoveMatch(); + begin + return 10; + end; + function wdReadingModeNavigation(); + begin + return 9; + end; + function wdReadingModePanningArea(); + begin + return 11; + end; + + // WdReferenceKind + function wdContentText(); + begin + return -1; + end; + function wdEndnoteNumber(); + begin + return 6; + end; + function wdEndnoteNumberFormatted(); + begin + return 17; + end; + function wdEntireCaption(); + begin + return 2; + end; + function wdFootnoteNumber(); + begin + return 5; + end; + function wdFootnoteNumberFormatted(); + begin + return 16; + end; + function wdNumberFullContext(); + begin + return -4; + end; + function wdNumberNoContext(); + begin + return -3; + end; + function wdNumberRelativeContext(); + begin + return -2; + end; + function wdOnlyCaptionText(); + begin + return 4; + end; + function wdOnlyLabelAndNumber(); + begin + return 3; + end; + function wdPageNumber(); + begin + return 7; + end; + function wdPosition(); + begin + return 15; + end; + + // WdReferenceType + function wdRefTypeBookmark(); + begin + return 2; + end; + function wdRefTypeEndnote(); + begin + return 4; + end; + function wdRefTypeFootnote(); + begin + return 3; + end; + function wdRefTypeHeading(); + begin + return 1; + end; + function wdRefTypeNumberedItem(); + begin + return 0; + end; + + // WdRelativeHorizontalPosition + function wdRelativeHorizontalPositionCharacter(); + begin + return 3; + end; + function wdRelativeHorizontalPositionColumn(); + begin + return 2; + end; + function wdRelativeHorizontalPositionMargin(); + begin + return 0; + end; + function wdRelativeHorizontalPositionPage(); + begin + return 1; + end; + function wdRelativeHorizontalPositionInnerMarginArea(); + begin + return 6; + end; + function wdRelativeHorizontalPositionLeftMarginArea(); + begin + return 4; + end; + function wdRelativeHorizontalPositionOuterMarginArea(); + begin + return 7; + end; + function wdRelativeHorizontalPositionRightMarginArea(); + begin + return 5; + end; + + // WdRelativeHorizontalSize + function wdRelativeHorizontalSizeInnerMarginArea(); + begin + return 4; + end; + function wdRelativeHorizontalSizeLeftMarginArea(); + begin + return 2; + end; + function wdRelativeHorizontalSizeMargin(); + begin + return 0; + end; + function wdRelativeHorizontalSizeOuterMarginArea(); + begin + return 5; + end; + function wdRelativeHorizontalSizePage(); + begin + return 1; + end; + function wdRelativeHorizontalSizeRightMarginArea(); + begin + return 3; + end; + + // WdRelativeVerticalPosition + function wdRelativeVerticalPositionLine(); + begin + return 3; + end; + function wdRelativeVerticalPositionMargin(); + begin + return 0; + end; + function wdRelativeVerticalPositionPage(); + begin + return 1; + end; + function wdRelativeVerticalPositionParagraph(); + begin + return 2; + end; + function wdRelativeVerticalPositionBottomMarginArea(); + begin + return 5; + end; + function wdRelativeVerticalPositionInnerMarginArea(); + begin + return 6; + end; + function wdRelativeVerticalPositionOuterMarginArea(); + begin + return 7; + end; + function wdRelativeVerticalPositionTopMarginArea(); + begin + return 4; + end; + + // WdRelativeVerticalSize + function wdRelativeVerticalSizeBottomMarginArea(); + begin + return 3; + end; + function wdRelativeVerticalSizeInnerMarginArea(); + begin + return 4; + end; + function wdRelativeVerticalSizeMargin(); + begin + return 0; + end; + function wdRelativeVerticalSizeOuterMarginArea(); + begin + return 5; + end; + function wdRelativeVerticalSizePage(); + begin + return 1; + end; + function wdRelativeVerticalSizeTopMarginArea(); + begin + return 2; + end; + + // WdRelocate + function wdRelocateDown(); + begin + return 1; + end; + function wdRelocateUp(); + begin + return 0; + end; + + // WdRemoveDocInfoType + function wdRDIAll(); + begin + return 99; + end; + function wdRDIComments(); + begin + return 1; + end; + function wdRDIContentType(); + begin + return 16; + end; + function wdRDIDocumentManagementPolicy(); + begin + return 15; + end; + function wdRDIDocumentProperties(); + begin + return 8; + end; + function wdRDIDocumentServerProperties(); + begin + return 14; + end; + function wdRDIDocumentWorkspace(); + begin + return 10; + end; + function wdRDIEmailHeader(); + begin + return 5; + end; + function wdRDIInkAnnotations(); + begin + return 11; + end; + function wdRDIRemovePersonalInformation(); + begin + return 4; + end; + function wdRDIRevisions(); + begin + return 2; + end; + function wdRDIRoutingSlip(); + begin + return 6; + end; + function wdRDISendForReview(); + begin + return 7; + end; + function wdRDITemplate(); + begin + return 9; + end; + function wdRDITaskpaneWebExtensions(); + begin + return 17; + end; + function wdRDIVersions(); + begin + return 3; + end; + + // WdReplace + function wdReplaceAll(); + begin + return 2; + end; + function wdReplaceNone(); + begin + return 0; + end; + function wdReplaceOne(); + begin + return 1; + end; + + // WdRevisedLinesMark + function wdRevisedLinesMarkLeftBorder(); + begin + return 1; + end; + function wdRevisedLinesMarkNone(); + begin + return 0; + end; + function wdRevisedLinesMarkOutsideBorder(); + begin + return 3; + end; + function wdRevisedLinesMarkRightBorder(); + begin + return 2; + end; + + // WdRevisedPropertiesMark + function wdRevisedPropertiesMarkBold(); + begin + return 1; + end; + function wdRevisedPropertiesMarkColorOnly(); + begin + return 5; + end; + function wdRevisedPropertiesMarkDoubleStrikeThrough(); + begin + return 7; + end; + function wdRevisedPropertiesMarkDoubleUnderline(); + begin + return 4; + end; + function wdRevisedPropertiesMarkItalic(); + begin + return 2; + end; + function wdRevisedPropertiesMarkNone(); + begin + return 0; + end; + function wdRevisedPropertiesMarkStrikeThrough(); + begin + return 6; + end; + function wdRevisedPropertiesMarkUnderline(); + begin + return 3; + end; + + // WdRevisionsBalloonMargin + function wdLeftMargin(); + begin + return 0; + end; + function wdRightMargin(); + begin + return 1; + end; + + // WdRevisionsBalloonPrintOrientation + function wdBalloonPrintOrientationAuto(); + begin + return 0; + end; + function wdBalloonPrintOrientationForceLandscape(); + begin + return 2; + end; + function wdBalloonPrintOrientationPreserve(); + begin + return 1; + end; + + // WdRevisionsBalloonWidthType + function wdBalloonWidthPercent(); + begin + return 0; + end; + function wdBalloonWidthPoints(); + begin + return 1; + end; + + // WdRevisionsMarkup + function wdRevisionsMarkupAll(); + begin + return 2; + end; + function wdRevisionsMarkupNone(); + begin + return 0; + end; + function wdRevisionsMarkupSimple(); + begin + return 1; + end; + + // WdRevisionsMode + function wdBalloonRevisions(); + begin + return 0; + end; + function wdInLineRevisions(); + begin + return 1; + end; + function wdMixedRevisions(); + begin + return 2; + end; + + // WdRevisionsView + function wdRevisionsViewFinal(); + begin + return 0; + end; + function wdRevisionsViewOriginal(); + begin + return 1; + end; + + // WdRevisionsWrap + function wdWrapAlways(); + begin + return 1; + end; + function wdWrapAsk(); + begin + return 2; + end; + function wdWrapNever(); + begin + return 0; + end; + + // WdRevisionType + function wdNoRevision(); + begin + return 0; + end; + function wdRevisionCellDeletion(); + begin + return 17; + end; + function wdRevisionCellInsertion(); + begin + return 16; + end; + function wdRevisionCellMerge(); + begin + return 18; + end; + function wdRevisionCellSplit(); + begin + return 19; + end; + function wdRevisionConflict(); + begin + return 7; + end; + function wdRevisionConflictDelete(); + begin + return 21; + end; + function wdRevisionConflictInsert(); + begin + return 20; + end; + function wdRevisionDelete(); + begin + return 2; + end; + function wdRevisionDisplayField(); + begin + return 5; + end; + function wdRevisionInsert(); + begin + return 1; + end; + function wdRevisionMovedFrom(); + begin + return 14; + end; + function wdRevisionMovedTo(); + begin + return 15; + end; + function wdRevisionParagraphNumber(); + begin + return 4; + end; + function wdRevisionParagraphProperty(); + begin + return 10; + end; + function wdRevisionProperty(); + begin + return 3; + end; + function wdRevisionReconcile(); + begin + return 6; + end; + function wdRevisionReplace(); + begin + return 9; + end; + function wdRevisionSectionProperty(); + begin + return 12; + end; + function wdRevisionStyle(); + begin + return 8; + end; + function wdRevisionStyleDefinition(); + begin + return 13; + end; + function wdRevisionTableProperty(); + begin + return 11; + end; + + // WdRowAlignment + function wdAlignRowCenter(); + begin + return 1; + end; + function wdAlignRowLeft(); + begin + return 0; + end; + function wdAlignRowRight(); + begin + return 2; + end; + + // WdRowHeightRule + function wdRowHeightAtLeast(); + begin + return 1; + end; + function wdRowHeightAuto(); + begin + return 0; + end; + function wdRowHeightExactly(); + begin + return 2; + end; + + // WdRulerStyle + function wdAdjustFirstColumn(); + begin + return 2; + end; + function wdAdjustNone(); + begin + return 0; + end; + function wdAdjustProportional(); + begin + return 1; + end; + function wdAdjustSameWidth(); + begin + return 3; + end; + + // WdSalutationGender + function wdGenderFemale(); + begin + return 0; + end; + function wdGenderMale(); + begin + return 1; + end; + function wdGenderNeutral(); + begin + return 2; + end; + function wdGenderUnknown(); + begin + return 3; + end; + + // WdSalutationType + function wdSalutationBusiness(); + begin + return 2; + end; + function wdSalutationFormal(); + begin + return 1; + end; + function wdSalutationInformal(); + begin + return 0; + end; + function wdSalutationOther(); + begin + return 3; + end; + + // WdSaveFormat + function wdFormatDocument(); + begin + return 0; + end; + function wdFormatDOSText(); + begin + return 4; + end; + function wdFormatDOSTextLineBreaks(); + begin + return 5; + end; + function wdFormatEncodedText(); + begin + return 7; + end; + function wdFormatFilteredHTML(); + begin + return 10; + end; + function wdFormatFlatXML(); + begin + return 19; + end; + function wdFormatFlatXMLMacroEnabled(); + begin + return 20; + end; + function wdFormatFlatXMLTemplate(); + begin + return 21; + end; + function wdFormatFlatXMLTemplateMacroEnabled(); + begin + return 22; + end; + function wdFormatOpenDocumentText(); + begin + return 23; + end; + function wdFormatHTML(); + begin + return 8; + end; + function wdFormatRTF(); + begin + return 6; + end; + function wdFormatStrictOpenXMLDocument(); + begin + return 24; + end; + function wdFormatTemplate(); + begin + return 1; + end; + function wdFormatText(); + begin + return 2; + end; + function wdFormatTextLineBreaks(); + begin + return 3; + end; + function wdFormatUnicodeText(); + begin + return 7; + end; + function wdFormatWebArchive(); + begin + return 9; + end; + function wdFormatXML(); + begin + return 11; + end; + function wdFormatDocument97(); + begin + return 0; + end; + function wdFormatDocumentDefault(); + begin + return 16; + end; + function wdFormatPDF(); + begin + return 17; + end; + function wdFormatTemplate97(); + begin + return 1; + end; + function wdFormatXMLDocument(); + begin + return 12; + end; + function wdFormatXMLDocumentMacroEnabled(); + begin + return 13; + end; + function wdFormatXMLTemplate(); + begin + return 14; + end; + function wdFormatXMLTemplateMacroEnabled(); + begin + return 15; + end; + function wdFormatXPS(); + begin + return 18; + end; + + // WdSaveOptions + function wdDoNotSaveChanges(); + begin + return 0; + end; + function wdPromptToSaveChanges(); + begin + return -2; + end; + function wdSaveChanges(); + begin + return -1; + end; + + // WdScrollbarType + function wdScrollbarTypeAuto(); + begin + return 0; + end; + function wdScrollbarTypeNo(); + begin + return 2; + end; + function wdScrollbarTypeYes(); + begin + return 1; + end; + + // WdSectionDirection + function wdSectionDirectionLtr(); + begin + return 1; + end; + function wdSectionDirectionRtl(); + begin + return 0; + end; + + // WdSectionStart + function wdSectionContinuous(); + begin + return 0; + end; + function wdSectionEvenPage(); + begin + return 3; + end; + function wdSectionNewColumn(); + begin + return 1; + end; + function wdSectionNewPage(); + begin + return 2; + end; + function wdSectionOddPage(); + begin + return 4; + end; + + // WdSeekView + function wdSeekCurrentPageFooter(); + begin + return 10; + end; + function wdSeekCurrentPageHeader(); + begin + return 9; + end; + function wdSeekEndnotes(); + begin + return 8; + end; + function wdSeekEvenPagesFooter(); + begin + return 6; + end; + function wdSeekEvenPagesHeader(); + begin + return 3; + end; + function wdSeekFirstPageFooter(); + begin + return 5; + end; + function wdSeekFirstPageHeader(); + begin + return 2; + end; + function wdSeekFootnotes(); + begin + return 7; + end; + function wdSeekMainDocument(); + begin + return 0; + end; + function wdSeekPrimaryFooter(); + begin + return 4; + end; + function wdSeekPrimaryHeader(); + begin + return 1; + end; + + // WdSelectionFlags + function wdSelActive(); + begin + return 8; + end; + function wdSelAtEOL(); + begin + return 2; + end; + function wdSelOvertype(); + begin + return 4; + end; + function wdSelReplace(); + begin + return 16; + end; + function wdSelStartActive(); + begin + return 1; + end; + + // WdSelectionType + function wdNoSelection(); + begin + return 0; + end; + function wdSelectionBlock(); + begin + return 6; + end; + function wdSelectionColumn(); + begin + return 4; + end; + function wdSelectionFrame(); + begin + return 3; + end; + function wdSelectionInlineShape(); + begin + return 7; + end; + function wdSelectionIP(); + begin + return 1; + end; + function wdSelectionNormal(); + begin + return 2; + end; + function wdSelectionRow(); + begin + return 5; + end; + function wdSelectionShape(); + begin + return 8; + end; + + // WdSeparatorType + function wdSeparatorColon(); + begin + return 2; + end; + function wdSeparatorEmDash(); + begin + return 3; + end; + function wdSeparatorEnDash(); + begin + return 4; + end; + function wdSeparatorHyphen(); + begin + return 0; + end; + function wdSeparatorPeriod(); + begin + return 1; + end; + + // WdShapePosition + function wdShapeBottom(); + begin + return -999997; + end; + function wdShapeCenter(); + begin + return -999995; + end; + function wdShapeInside(); + begin + return -999994; + end; + function wdShapeLeft(); + begin + return -999998; + end; + function wdShapeOutside(); + begin + return -999993; + end; + function wdShapeRight(); + begin + return -999996; + end; + function wdShapeTop(); + begin + return -999999; + end; + + // WdShapePositionRelative + function wdShapePositionRelativeNone(); + begin + return -999999; + end; + + // WdShapeSizeRelative + function wdShapeSizeRelativeNone(); + begin + return -999999; + end; + + // WdShowFilter + function wdShowFilterFormattingAvailable(); + begin + return 4; + end; + function wdShowFilterFormattingInUse(); + begin + return 3; + end; + function wdShowFilterStylesAll(); + begin + return 2; + end; + function wdShowFilterStylesAvailable(); + begin + return 0; + end; + function wdShowFilterStylesInUse(); + begin + return 1; + end; + function wdShowFilterFormattingRecommended(); + begin + return 5; + end; + + // WdShowSourceDocuments + function wdShowSourceDocumentsBoth(); + begin + return 3; + end; + function wdShowSourceDocumentsNone(); + begin + return 0; + end; + function wdShowSourceDocumentsOriginal(); + begin + return 1; + end; + function wdShowSourceDocumentsRevised(); + begin + return 2; + end; + + // WdSmartTagControlType + function wdControlActiveX(); + begin + return 13; + end; + function wdControlButton(); + begin + return 6; + end; + function wdControlCheckbox(); + begin + return 9; + end; + function wdControlCombo(); + begin + return 12; + end; + function wdControlDocumentFragment(); + begin + return 14; + end; + function wdControlDocumentFragmentURL(); + begin + return 15; + end; + function wdControlHelp(); + begin + return 3; + end; + function wdControlHelpURL(); + begin + return 4; + end; + function wdControlImage(); + begin + return 8; + end; + function wdControlLabel(); + begin + return 7; + end; + function wdControlLink(); + begin + return 2; + end; + function wdControlListbox(); + begin + return 11; + end; + function wdControlRadioGroup(); + begin + return 16; + end; + function wdControlSeparator(); + begin + return 5; + end; + function wdControlSmartTag(); + begin + return 1; + end; + function wdControlTextbox(); + begin + return 10; + end; + + // WdSortFieldType + function wdSortFieldAlphanumeric(); + begin + return 0; + end; + function wdSortFieldDate(); + begin + return 2; + end; + function wdSortFieldJapanJIS(); + begin + return 4; + end; + function wdSortFieldKoreaKS(); + begin + return 6; + end; + function wdSortFieldNumeric(); + begin + return 1; + end; + function wdSortFieldStroke(); + begin + return 5; + end; + function wdSortFieldSyllable(); + begin + return 3; + end; + + // WdSortOrder + function wdSortOrderAscending(); + begin + return 0; + end; + function wdSortOrderDescending(); + begin + return 1; + end; + + // WdSortSeparator + function wdSortSeparateByCommas(); + begin + return 1; + end; + function wdSortSeparateByDefaultTableSeparator(); + begin + return 2; + end; + function wdSortSeparateByTabs(); + begin + return 0; + end; + + // WdSpanishSpeller + function wdSpanishTuteoAndVoseo(); + begin + return 1; + end; + function wdSpanishTuteoOnly(); + begin + return 0; + end; + function wdSpanishVoseoOnly(); + begin + return 2; + end; + + // WdSpecialPane + function wdPaneComments(); + begin + return 15; + end; + function wdPaneCurrentPageFooter(); + begin + return 17; + end; + function wdPaneCurrentPageHeader(); + begin + return 16; + end; + function wdPaneEndnoteContinuationNotice(); + begin + return 12; + end; + function wdPaneEndnoteContinuationSeparator(); + begin + return 13; + end; + function wdPaneEndnotes(); + begin + return 8; + end; + function wdPaneEndnoteSeparator(); + begin + return 14; + end; + function wdPaneEvenPagesFooter(); + begin + return 6; + end; + function wdPaneEvenPagesHeader(); + begin + return 3; + end; + function wdPaneFirstPageFooter(); + begin + return 5; + end; + function wdPaneFirstPageHeader(); + begin + return 2; + end; + function wdPaneFootnoteContinuationNotice(); + begin + return 9; + end; + function wdPaneFootnoteContinuationSeparator(); + begin + return 10; + end; + function wdPaneFootnotes(); + begin + return 7; + end; + function wdPaneFootnoteSeparator(); + begin + return 11; + end; + function wdPaneNone(); + begin + return 0; + end; + function wdPanePrimaryFooter(); + begin + return 4; + end; + function wdPanePrimaryHeader(); + begin + return 1; + end; + function wdPaneRevisions(); + begin + return 18; + end; + function wdPaneRevisionsHoriz(); + begin + return 19; + end; + function wdPaneRevisionsVert(); + begin + return 20; + end; + + // WdSpellingErrorType + function wdSpellingCapitalization(); + begin + return 2; + end; + function wdSpellingCorrect(); + begin + return 0; + end; + function wdSpellingNotInDictionary(); + begin + return 1; + end; + + // WdSpellingWordType + function wdAnagram(); + begin + return 2; + end; + function wdSpellword(); + begin + return 0; + end; + function wdWildcard(); + begin + return 1; + end; + + // WdStatistic + function wdStatisticCharacters(); + begin + return 3; + end; + function wdStatisticCharactersWithSpaces(); + begin + return 5; + end; + function wdStatisticFarEastCharacters(); + begin + return 6; + end; + function wdStatisticLines(); + begin + return 1; + end; + function wdStatisticPages(); + begin + return 2; + end; + function wdStatisticParagraphs(); + begin + return 4; + end; + function wdStatisticWords(); + begin + return 0; + end; + + // WdStoryType + function wdCommentsStory(); + begin + return 4; + end; + function wdEndnoteContinuationNoticeStory(); + begin + return 17; + end; + function wdEndnoteContinuationSeparatorStory(); + begin + return 16; + end; + function wdEndnoteSeparatorStory(); + begin + return 15; + end; + function wdEndnotesStory(); + begin + return 3; + end; + function wdEvenPagesFooterStory(); + begin + return 8; + end; + function wdEvenPagesHeaderStory(); + begin + return 6; + end; + function wdFirstPageFooterStory(); + begin + return 11; + end; + function wdFirstPageHeaderStory(); + begin + return 10; + end; + function wdFootnoteContinuationNoticeStory(); + begin + return 14; + end; + function wdFootnoteContinuationSeparatorStory(); + begin + return 13; + end; + function wdFootnoteSeparatorStory(); + begin + return 12; + end; + function wdFootnotesStory(); + begin + return 2; + end; + function wdMainTextStory(); + begin + return 1; + end; + function wdPrimaryFooterStory(); + begin + return 9; + end; + function wdPrimaryHeaderStory(); + begin + return 7; + end; + function wdTextFrameStory(); + begin + return 5; + end; + + // WdStyleSheetLinkType + function wdStyleSheetLinkTypeImported(); + begin + return 1; + end; + function wdStyleSheetLinkTypeLinked(); + begin + return 0; + end; + + // WdStyleSheetPrecedence + function wdStyleSheetPrecedenceHigher(); + begin + return -1; + end; + function wdStyleSheetPrecedenceHighest(); + begin + return 1; + end; + function wdStyleSheetPrecedenceLower(); + begin + return -2; + end; + function wdStyleSheetPrecedenceLowest(); + begin + return 0; + end; + + // WdStyleSort + function wdStyleSortByBasedOn(); + begin + return 3; + end; + function wdStyleSortByFont(); + begin + return 2; + end; + function wdStyleSortByName(); + begin + return 0; + end; + function wdStyleSortByType(); + begin + return 4; + end; + function wdStyleSortRecommended(); + begin + return 1; + end; + + // WdStyleType + function wdStyleTypeCharacter(); + begin + return 2; + end; + function wdStyleTypeList(); + begin + return 4; + end; + function wdStyleTypeParagraph(); + begin + return 1; + end; + function wdStyleTypeTable(); + begin + return 3; + end; + + // WdStylisticSet + function wdStylisticSet01(); + begin + return 1; + end; + function wdStylisticSet02(); + begin + return 2; + end; + function wdStylisticSet03(); + begin + return 4; + end; + function wdStylisticSet04(); + begin + return 8; + end; + function wdStylisticSet05(); + begin + return 16; + end; + function wdStylisticSet06(); + begin + return 32; + end; + function wdStylisticSet07(); + begin + return 64; + end; + function wdStylisticSet08(); + begin + return 128; + end; + function wdStylisticSet09(); + begin + return 256; + end; + function wdStylisticSet10(); + begin + return 512; + end; + function wdStylisticSet11(); + begin + return 1024; + end; + function wdStylisticSet12(); + begin + return 2048; + end; + function wdStylisticSet13(); + begin + return 4096; + end; + function wdStylisticSet14(); + begin + return 8192; + end; + function wdStylisticSet15(); + begin + return 16384; + end; + function wdStylisticSet16(); + begin + return 32768; + end; + function wdStylisticSet17(); + begin + return 65536; + end; + function wdStylisticSet18(); + begin + return 131072; + end; + function wdStylisticSet19(); + begin + return 262144; + end; + function wdStylisticSet20(); + begin + return 524288; + end; + function wdStylisticSetDefault(); + begin + return 0; + end; + + // WdSubscriberFormats + function wdSubscriberBestFormat(); + begin + return 0; + end; + function wdSubscriberPict(); + begin + return 4; + end; + function wdSubscriberRTF(); + begin + return 1; + end; + function wdSubscriberText(); + begin + return 2; + end; + + // WdTabAlignment + function wdAlignTabBar(); + begin + return 4; + end; + function wdAlignTabCenter(); + begin + return 1; + end; + function wdAlignTabDecimal(); + begin + return 3; + end; + function wdAlignTabLeft(); + begin + return 0; + end; + function wdAlignTabList(); + begin + return 6; + end; + function wdAlignTabRight(); + begin + return 2; + end; + + // WdTabLeader + function wdTabLeaderDashes(); + begin + return 2; + end; + function wdTabLeaderDots(); + begin + return 1; + end; + function wdTabLeaderHeavy(); + begin + return 4; + end; + function wdTabLeaderLines(); + begin + return 3; + end; + function wdTabLeaderMiddleDot(); + begin + return 5; + end; + function wdTabLeaderSpaces(); + begin + return 0; + end; + + // WdTableDirection + function wdTableDirectionLtr(); + begin + return 1; + end; + function wdTableDirectionRtl(); + begin + return 0; + end; + + // WdTableFieldSeparator + function wdSeparateByCommas(); + begin + return 2; + end; + function wdSeparateByDefaultListSeparator(); + begin + return 3; + end; + function wdSeparateByParagraphs(); + begin + return 0; + end; + function wdSeparateByTabs(); + begin + return 1; + end; + + // WdTableFormat + function wdTableFormat3DEffects1(); + begin + return 32; + end; + function wdTableFormat3DEffects2(); + begin + return 33; + end; + function wdTableFormat3DEffects3(); + begin + return 34; + end; + function wdTableFormatClassic1(); + begin + return 4; + end; + function wdTableFormatClassic2(); + begin + return 5; + end; + function wdTableFormatClassic3(); + begin + return 6; + end; + function wdTableFormatClassic4(); + begin + return 7; + end; + function wdTableFormatColorful1(); + begin + return 8; + end; + function wdTableFormatColorful2(); + begin + return 9; + end; + function wdTableFormatColorful3(); + begin + return 10; + end; + function wdTableFormatColumns1(); + begin + return 11; + end; + function wdTableFormatColumns2(); + begin + return 12; + end; + function wdTableFormatColumns3(); + begin + return 13; + end; + function wdTableFormatColumns4(); + begin + return 14; + end; + function wdTableFormatColumns5(); + begin + return 15; + end; + function wdTableFormatContemporary(); + begin + return 35; + end; + function wdTableFormatElegant(); + begin + return 36; + end; + function wdTableFormatGrid1(); + begin + return 16; + end; + function wdTableFormatGrid2(); + begin + return 17; + end; + function wdTableFormatGrid3(); + begin + return 18; + end; + function wdTableFormatGrid4(); + begin + return 19; + end; + function wdTableFormatGrid5(); + begin + return 20; + end; + function wdTableFormatGrid6(); + begin + return 21; + end; + function wdTableFormatGrid7(); + begin + return 22; + end; + function wdTableFormatGrid8(); + begin + return 23; + end; + function wdTableFormatList1(); + begin + return 24; + end; + function wdTableFormatList2(); + begin + return 25; + end; + function wdTableFormatList3(); + begin + return 26; + end; + function wdTableFormatList4(); + begin + return 27; + end; + function wdTableFormatList5(); + begin + return 28; + end; + function wdTableFormatList6(); + begin + return 29; + end; + function wdTableFormatList7(); + begin + return 30; + end; + function wdTableFormatList8(); + begin + return 31; + end; + function wdTableFormatNone(); + begin + return 0; + end; + function wdTableFormatProfessional(); + begin + return 37; + end; + function wdTableFormatSimple1(); + begin + return 1; + end; + function wdTableFormatSimple2(); + begin + return 2; + end; + function wdTableFormatSimple3(); + begin + return 3; + end; + function wdTableFormatSubtle1(); + begin + return 38; + end; + function wdTableFormatSubtle2(); + begin + return 39; + end; + function wdTableFormatWeb1(); + begin + return 40; + end; + function wdTableFormatWeb2(); + begin + return 41; + end; + function wdTableFormatWeb3(); + begin + return 42; + end; + + // WdTableFormatApply + function wdTableFormatApplyAutoFit(); + begin + return 16; + end; + function wdTableFormatApplyBorders(); + begin + return 1; + end; + function wdTableFormatApplyColor(); + begin + return 8; + end; + function wdTableFormatApplyFirstColumn(); + begin + return 128; + end; + function wdTableFormatApplyFont(); + begin + return 4; + end; + function wdTableFormatApplyHeadingRows(); + begin + return 32; + end; + function wdTableFormatApplyLastColumn(); + begin + return 256; + end; + function wdTableFormatApplyLastRow(); + begin + return 64; + end; + function wdTableFormatApplyShading(); + begin + return 2; + end; + + // WdTablePosition + function wdTableBottom(); + begin + return -999997; + end; + function wdTableCenter(); + begin + return -999995; + end; + function wdTableInside(); + begin + return -999994; + end; + function wdTableLeft(); + begin + return -999998; + end; + function wdTableOutside(); + begin + return -999993; + end; + function wdTableRight(); + begin + return -999996; + end; + function wdTableTop(); + begin + return -999999; + end; + + // WdTaskPanes + function wdTaskPaneApplyStyles(); + begin + return 17; + end; + function wdTaskPaneDocumentActions(); + begin + return 7; + end; + function wdTaskPaneDocumentProtection(); + begin + return 6; + end; + function wdTaskPaneFaxService(); + begin + return 11; + end; + function wdTaskPaneFormatting(); + begin + return 0; + end; + function wdTaskPaneHelp(); + begin + return 9; + end; + function wdTaskPaneMailMerge(); + begin + return 2; + end; + function wdTaskPaneProofing(); + begin + return 20; + end; + function wdTaskPaneResearch(); + begin + return 10; + end; + function wdTaskPaneRevealFormatting(); + begin + return 1; + end; + function wdTaskPaneRevPaneFlex(); + begin + return 22; + end; + function wdTaskPaneSearch(); + begin + return 4; + end; + function wdTaskPaneSignature(); + begin + return 14; + end; + function wdTaskPaneStyleInspector(); + begin + return 15; + end; + function wdTaskPaneThesaurus(); + begin + return 23; + end; + function wdTaskPaneTranslate(); + begin + return 3; + end; + function wdTaskPaneXMLDocument(); + begin + return 12; + end; + function wdTaskPaneXMLMapping(); + begin + return 21; + end; + function wdTaskPaneXMLStructure(); + begin + return 5; + end; + + // WdTCSCConverterDirection + function wdTCSCConverterDirectionAuto(); + begin + return 2; + end; + function wdTCSCConverterDirectionSCTC(); + begin + return 0; + end; + function wdTCSCConverterDirectionTCSC(); + begin + return 1; + end; + + // WdTemplateType + function wdAttachedTemplate(); + begin + return 2; + end; + function wdGlobalTemplate(); + begin + return 1; + end; + function wdNormalTemplate(); + begin + return 0; + end; + + // WdTextboxTightWrap + function wdTightAll(); + begin + return 1; + end; + function wdTightFirstAndLastLines(); + begin + return 2; + end; + function wdTightFirstLineOnly(); + begin + return 3; + end; + function wdTightLastLineOnly(); + begin + return 4; + end; + function wdTightNone(); + begin + return 0; + end; + + // WdTextFormFieldType + function wdCalculationText(); + begin + return 5; + end; + function wdCurrentDateText(); + begin + return 3; + end; + function wdCurrentTimeText(); + begin + return 4; + end; + function wdDateText(); + begin + return 2; + end; + function wdNumberText(); + begin + return 1; + end; + function wdRegularText(); + begin + return 0; + end; + + // WdTextOrientation + function wdTextOrientationDownward(); + begin + return 3; + end; + function wdTextOrientationHorizontal(); + begin + return 0; + end; + function wdTextOrientationHorizontalRotatedFarEast(); + begin + return 4; + end; + function wdTextOrientationUpward(); + begin + return 2; + end; + function wdTextOrientationVerticalFarEast(); + begin + return 1; + end; + function wdTextOrientationVertical(); + begin + return 5; + end; + + // WdTextureIndex + function wdTexture10Percent(); + begin + return 100; + end; + function wdTexture12Pt5Percent(); + begin + return 125; + end; + function wdTexture15Percent(); + begin + return 150; + end; + function wdTexture17Pt5Percent(); + begin + return 175; + end; + function wdTexture20Percent(); + begin + return 200; + end; + function wdTexture22Pt5Percent(); + begin + return 225; + end; + function wdTexture25Percent(); + begin + return 250; + end; + function wdTexture27Pt5Percent(); + begin + return 275; + end; + function wdTexture2Pt5Percent(); + begin + return 25; + end; + function wdTexture30Percent(); + begin + return 300; + end; + function wdTexture32Pt5Percent(); + begin + return 325; + end; + function wdTexture35Percent(); + begin + return 350; + end; + function wdTexture37Pt5Percent(); + begin + return 375; + end; + function wdTexture40Percent(); + begin + return 400; + end; + function wdTexture42Pt5Percent(); + begin + return 425; + end; + function wdTexture45Percent(); + begin + return 450; + end; + function wdTexture47Pt5Percent(); + begin + return 475; + end; + function wdTexture50Percent(); + begin + return 500; + end; + function wdTexture52Pt5Percent(); + begin + return 525; + end; + function wdTexture55Percent(); + begin + return 550; + end; + function wdTexture57Pt5Percent(); + begin + return 575; + end; + function wdTexture5Percent(); + begin + return 50; + end; + function wdTexture60Percent(); + begin + return 600; + end; + function wdTexture62Pt5Percent(); + begin + return 625; + end; + function wdTexture65Percent(); + begin + return 650; + end; + function wdTexture67Pt5Percent(); + begin + return 675; + end; + function wdTexture70Percent(); + begin + return 700; + end; + function wdTexture72Pt5Percent(); + begin + return 725; + end; + function wdTexture75Percent(); + begin + return 750; + end; + function wdTexture77Pt5Percent(); + begin + return 775; + end; + function wdTexture7Pt5Percent(); + begin + return 75; + end; + function wdTexture80Percent(); + begin + return 800; + end; + function wdTexture82Pt5Percent(); + begin + return 825; + end; + function wdTexture85Percent(); + begin + return 850; + end; + function wdTexture87Pt5Percent(); + begin + return 875; + end; + function wdTexture90Percent(); + begin + return 900; + end; + function wdTexture92Pt5Percent(); + begin + return 925; + end; + function wdTexture95Percent(); + begin + return 950; + end; + function wdTexture97Pt5Percent(); + begin + return 975; + end; + function wdTextureCross(); + begin + return -11; + end; + function wdTextureDarkCross(); + begin + return -5; + end; + function wdTextureDarkDiagonalCross(); + begin + return -6; + end; + function wdTextureDarkDiagonalDown(); + begin + return -3; + end; + function wdTextureDarkDiagonalUp(); + begin + return -4; + end; + function wdTextureDarkHorizontal(); + begin + return -1; + end; + function wdTextureDarkVertical(); + begin + return -2; + end; + function wdTextureDiagonalCross(); + begin + return -12; + end; + function wdTextureDiagonalDown(); + begin + return -9; + end; + function wdTextureDiagonalUp(); + begin + return -10; + end; + function wdTextureHorizontal(); + begin + return -7; + end; + function wdTextureNone(); + begin + return 0; + end; + function wdTextureSolid(); + begin + return 1000; + end; + function wdTextureVertical(); + begin + return -8; + end; + + // WdThemeColorIndex + function wdNotThemeColor(); + begin + return -1; + end; + function wdThemeColorAccent1(); + begin + return 4; + end; + function wdThemeColorAccent2(); + begin + return 5; + end; + function wdThemeColorAccent3(); + begin + return 6; + end; + function wdThemeColorAccent4(); + begin + return 7; + end; + function wdThemeColorAccent5(); + begin + return 8; + end; + function wdThemeColorAccent6(); + begin + return 9; + end; + function wdThemeColorBackground1(); + begin + return 12; + end; + function wdThemeColorBackground2(); + begin + return 14; + end; + function wdThemeColorHyperlink(); + begin + return 10; + end; + function wdThemeColorHyperlinkFollowed(); + begin + return 11; + end; + function wdThemeColorMainDark1(); + begin + return 0; + end; + function wdThemeColorMainDark2(); + begin + return 2; + end; + function wdThemeColorMainLight1(); + begin + return 1; + end; + function wdThemeColorMainLight2(); + begin + return 3; + end; + function wdThemeColorText1(); + begin + return 13; + end; + function wdThemeColorText2(); + begin + return 15; + end; + + // WdToaFormat + function wdTOAClassic(); + begin + return 1; + end; + function wdTOADistinctive(); + begin + return 2; + end; + function wdTOAFormal(); + begin + return 3; + end; + function wdTOASimple(); + begin + return 4; + end; + function wdTOATemplate(); + begin + return 0; + end; + + // WdTocFormat + function wdTOCClassic(); + begin + return 1; + end; + function wdTOCDistinctive(); + begin + return 2; + end; + function wdTOCFancy(); + begin + return 3; + end; + function wdTOCFormal(); + begin + return 5; + end; + function wdTOCModern(); + begin + return 4; + end; + function wdTOCSimple(); + begin + return 6; + end; + function wdTOCTemplate(); + begin + return 0; + end; + + // WdTofFormat + function wdTOFCentered(); + begin + return 3; + end; + function wdTOFClassic(); + begin + return 1; + end; + function wdTOFDistinctive(); + begin + return 2; + end; + function wdTOFFormal(); + begin + return 4; + end; + function wdTOFSimple(); + begin + return 5; + end; + function wdTOFTemplate(); + begin + return 0; + end; + + // WdTrailingCharacter + function wdTrailingNone(); + begin + return 2; + end; + function wdTrailingSpace(); + begin + return 1; + end; + function wdTrailingTab(); + begin + return 0; + end; + + // WdTwoLinesInOneType + function wdTwoLinesInOneAngleBrackets(); + begin + return 4; + end; + function wdTwoLinesInOneCurlyBrackets(); + begin + return 5; + end; + function wdTwoLinesInOneNoBrackets(); + begin + return 1; + end; + function wdTwoLinesInOneNone(); + begin + return 0; + end; + function wdTwoLinesInOneParentheses(); + begin + return 2; + end; + function wdTwoLinesInOneSquareBrackets(); + begin + return 3; + end; + + // WdUnderline + function wdUnderlineDash(); + begin + return 7; + end; + function wdUnderlineDashHeavy(); + begin + return 23; + end; + function wdUnderlineDashLong(); + begin + return 39; + end; + function wdUnderlineDashLongHeavy(); + begin + return 55; + end; + function wdUnderlineDotDash(); + begin + return 9; + end; + function wdUnderlineDotDashHeavy(); + begin + return 25; + end; + function wdUnderlineDotDotDash(); + begin + return 10; + end; + function wdUnderlineDotDotDashHeavy(); + begin + return 26; + end; + function wdUnderlineDotted(); + begin + return 4; + end; + function wdUnderlineDottedHeavy(); + begin + return 20; + end; + function wdUnderlineDouble(); + begin + return 3; + end; + function wdUnderlineNone(); + begin + return 0; + end; + function wdUnderlineSingle(); + begin + return 1; + end; + function wdUnderlineThick(); + begin + return 6; + end; + function wdUnderlineWavy(); + begin + return 11; + end; + function wdUnderlineWavyDouble(); + begin + return 43; + end; + function wdUnderlineWavyHeavy(); + begin + return 27; + end; + function wdUnderlineWords(); + begin + return 2; + end; + + // WdUnits + function wdCell(); + begin + return 12; + end; + function wdCharacter(); + begin + return 1; + end; + function wdCharacterFormatting(); + begin + return 13; + end; + function wdColumn(); + begin + return 9; + end; + function wdItem(); + begin + return 16; + end; + function wdLine(); + begin + return 5; + end; + function wdParagraph(); + begin + return 4; + end; + function wdParagraphFormatting(); + begin + return 14; + end; + function wdRow(); + begin + return 10; + end; + function wdScreen(); + begin + return 7; + end; + function wdSection(); + begin + return 8; + end; + function wdSentence(); + begin + return 3; + end; + function wdStory(); + begin + return 6; + end; + function wdTable(); + begin + return 15; + end; + function wdWindow(); + begin + return 11; + end; + function wdWord(); + begin + return 2; + end; + + // WdUpdateStyleListBehavior + function wdListBehaviorAddBulletsNumbering(); + begin + return 1; + end; + function wdListBehaviorKeepPreviousPattern(); + begin + return 0; + end; + + // WdUseFormattingFrom + function wdFormattingFromCurrent(); + begin + return 0; + end; + function wdFormattingFromPrompt(); + begin + return 2; + end; + function wdFormattingFromSelected(); + begin + return 1; + end; + + // WdVerticalAlignment + function wdAlignVerticalBottom(); + begin + return 3; + end; + function wdAlignVerticalCenter(); + begin + return 1; + end; + function wdAlignVerticalJustify(); + begin + return 2; + end; + function wdAlignVerticalTop(); + begin + return 0; + end; + + // WdViewType + function wdMasterView(); + begin + return 5; + end; + function wdNormalView(); + begin + return 1; + end; + function wdOutlineView(); + begin + return 2; + end; + function wdPrintPreview(); + begin + return 4; + end; + function wdPrintView(); + begin + return 3; + end; + function wdReadingView(); + begin + return 7; + end; + function wdWebView(); + begin + return 6; + end; + + // WdVisualSelection + function wdVisualSelectionBlock(); + begin + return 0; + end; + function wdVisualSelectionContinuous(); + begin + return 1; + end; + + // WdWindowState + function wdWindowStateMaximize(); + begin + return 1; + end; + function wdWindowStateMinimize(); + begin + return 2; + end; + function wdWindowStateNormal(); + begin + return 0; + end; + + // WdWindowType + function wdWindowDocument(); + begin + return 0; + end; + function wdWindowTemplate(); + begin + return 1; + end; + + // WdWordDialog + function wdDialogBuildingBlockOrganizer(); + begin + return 2067; + end; + function wdDialogConnect(); + begin + return 420; + end; + function wdDialogConsistencyChecker(); + begin + return 1121; + end; + function wdDialogContentControlProperties(); + begin + return 2394; + end; + function wdDialogControlRun(); + begin + return 235; + end; + function wdDialogConvertObject(); + begin + return 392; + end; + function wdDialogCopyFile(); + begin + return 300; + end; + function wdDialogCreateAutoText(); + begin + return 872; + end; + function wdDialogCreateSource(); + begin + return 1922; + end; + function wdDialogCSSLinks(); + begin + return 1261; + end; + function wdDialogDocumentInspector(); + begin + return 1482; + end; + function wdDialogDocumentStatistics(); + begin + return 78; + end; + function wdDialogDrawAlign(); + begin + return 634; + end; + function wdDialogDrawSnapToGrid(); + begin + return 633; + end; + function wdDialogEditAutoText(); + begin + return 985; + end; + function wdDialogEditCreatePublisher(); + begin + return 732; + end; + function wdDialogEditFind(); + begin + return 112; + end; + function wdDialogEditFrame(); + begin + return 458; + end; + function wdDialogEditGoTo(); + begin + return 896; + end; + function wdDialogEditGoToOld(); + begin + return 811; + end; + function wdDialogEditLinks(); + begin + return 124; + end; + function wdDialogEditObject(); + begin + return 125; + end; + function wdDialogEditPasteSpecial(); + begin + return 111; + end; + function wdDialogEditPublishOptions(); + begin + return 735; + end; + function wdDialogEditReplace(); + begin + return 117; + end; + function wdDialogEditStyle(); + begin + return 120; + end; + function wdDialogEditSubscribeOptions(); + begin + return 736; + end; + function wdDialogEditSubscribeTo(); + begin + return 733; + end; + function wdDialogEditTOACategory(); + begin + return 625; + end; + function wdDialogEmailOptions(); + begin + return 863; + end; + function wdDialogFileDocumentLayout(); + begin + return 178; + end; + function wdDialogFileFind(); + begin + return 99; + end; + function wdDialogFileMacCustomPageSetupGX(); + begin + return 737; + end; + function wdDialogFileMacPageSetup(); + begin + return 685; + end; + function wdDialogFileMacPageSetupGX(); + begin + return 444; + end; + function wdDialogFileNew(); + begin + return 79; + end; + function wdDialogFileOpen(); + begin + return 80; + end; + function wdDialogFilePageSetup(); + begin + return 178; + end; + function wdDialogFilePrint(); + begin + return 88; + end; + function wdDialogFilePrintOneCopy(); + begin + return 445; + end; + function wdDialogFilePrintSetup(); + begin + return 97; + end; + function wdDialogFileRoutingSlip(); + begin + return 624; + end; + function wdDialogFileSaveAs(); + begin + return 84; + end; + function wdDialogFileSaveVersion(); + begin + return 1007; + end; + function wdDialogFileSummaryInfo(); + begin + return 86; + end; + function wdDialogFileVersions(); + begin + return 945; + end; + function wdDialogFitText(); + begin + return 983; + end; + function wdDialogFontSubstitution(); + begin + return 581; + end; + function wdDialogFormatAddrFonts(); + begin + return 103; + end; + function wdDialogFormatBordersAndShading(); + begin + return 189; + end; + function wdDialogFormatBulletsAndNumbering(); + begin + return 824; + end; + function wdDialogFormatCallout(); + begin + return 610; + end; + function wdDialogFormatChangeCase(); + begin + return 322; + end; + function wdDialogFormatColumns(); + begin + return 177; + end; + function wdDialogFormatDefineStyleBorders(); + begin + return 185; + end; + function wdDialogFormatDefineStyleFont(); + begin + return 181; + end; + function wdDialogFormatDefineStyleFrame(); + begin + return 184; + end; + function wdDialogFormatDefineStyleLang(); + begin + return 186; + end; + function wdDialogFormatDefineStylePara(); + begin + return 182; + end; + function wdDialogFormatDefineStyleTabs(); + begin + return 183; + end; + function wdDialogFormatDrawingObject(); + begin + return 960; + end; + function wdDialogFormatDropCap(); + begin + return 488; + end; + function wdDialogFormatEncloseCharacters(); + begin + return 1162; + end; + function wdDialogFormatFont(); + begin + return 174; + end; + function wdDialogFormatFrame(); + begin + return 190; + end; + function wdDialogFormatPageNumber(); + begin + return 298; + end; + function wdDialogFormatParagraph(); + begin + return 175; + end; + function wdDialogFormatPicture(); + begin + return 187; + end; + function wdDialogFormatRetAddrFonts(); + begin + return 221; + end; + function wdDialogFormatSectionLayout(); + begin + return 176; + end; + function wdDialogFormatStyle(); + begin + return 180; + end; + function wdDialogFormatStyleGallery(); + begin + return 505; + end; + function wdDialogFormatStylesCustom(); + begin + return 1248; + end; + function wdDialogFormatTabs(); + begin + return 179; + end; + function wdDialogFormatTheme(); + begin + return 855; + end; + function wdDialogFormattingRestrictions(); + begin + return 1427; + end; + function wdDialogFormFieldHelp(); + begin + return 361; + end; + function wdDialogFormFieldOptions(); + begin + return 353; + end; + function wdDialogFrameSetProperties(); + begin + return 1074; + end; + function wdDialogHelpAbout(); + begin + return 9; + end; + function wdDialogHelpWordPerfectHelp(); + begin + return 10; + end; + function wdDialogHelpWordPerfectHelpOptions(); + begin + return 511; + end; + function wdDialogHorizontalInVertical(); + begin + return 1160; + end; + function wdDialogIMESetDefault(); + begin + return 1094; + end; + function wdDialogInsertAddCaption(); + begin + return 402; + end; + function wdDialogInsertAutoCaption(); + begin + return 359; + end; + function wdDialogInsertBookmark(); + begin + return 168; + end; + function wdDialogInsertBreak(); + begin + return 159; + end; + function wdDialogInsertCaption(); + begin + return 357; + end; + function wdDialogInsertCaptionNumbering(); + begin + return 358; + end; + function wdDialogInsertCrossReference(); + begin + return 367; + end; + function wdDialogInsertDatabase(); + begin + return 341; + end; + function wdDialogInsertDateTime(); + begin + return 165; + end; + function wdDialogInsertField(); + begin + return 166; + end; + function wdDialogInsertFile(); + begin + return 164; + end; + function wdDialogInsertFootnote(); + begin + return 370; + end; + function wdDialogInsertFormField(); + begin + return 483; + end; + function wdDialogInsertHyperlink(); + begin + return 925; + end; + function wdDialogInsertIndex(); + begin + return 170; + end; + function wdDialogInsertIndexAndTables(); + begin + return 473; + end; + function wdDialogInsertMergeField(); + begin + return 167; + end; + function wdDialogInsertNumber(); + begin + return 812; + end; + function wdDialogInsertObject(); + begin + return 172; + end; + function wdDialogInsertPageNumbers(); + begin + return 294; + end; + function wdDialogInsertPicture(); + begin + return 163; + end; + function wdDialogInsertPlaceholder(); + begin + return 2348; + end; + function wdDialogInsertSource(); + begin + return 2120; + end; + function wdDialogInsertSubdocument(); + begin + return 583; + end; + function wdDialogInsertSymbol(); + begin + return 162; + end; + function wdDialogInsertTableOfAuthorities(); + begin + return 471; + end; + function wdDialogInsertTableOfContents(); + begin + return 171; + end; + function wdDialogInsertTableOfFigures(); + begin + return 472; + end; + function wdDialogInsertWebComponent(); + begin + return 1324; + end; + function wdDialogLabelOptions(); + begin + return 1367; + end; + function wdDialogLetterWizard(); + begin + return 821; + end; + function wdDialogListCommands(); + begin + return 723; + end; + function wdDialogMailMerge(); + begin + return 676; + end; + function wdDialogMailMergeCheck(); + begin + return 677; + end; + function wdDialogMailMergeCreateDataSource(); + begin + return 642; + end; + function wdDialogMailMergeCreateHeaderSource(); + begin + return 643; + end; + function wdDialogMailMergeFieldMapping(); + begin + return 1304; + end; + function wdDialogMailMergeFindRecipient(); + begin + return 1326; + end; + function wdDialogMailMergeFindRecord(); + begin + return 569; + end; + function wdDialogMailMergeHelper(); + begin + return 680; + end; + function wdDialogMailMergeInsertAddressBlock(); + begin + return 1305; + end; + function wdDialogMailMergeInsertAsk(); + begin + return 4047; + end; + function wdDialogMailMergeInsertFields(); + begin + return 1307; + end; + function wdDialogMailMergeInsertFillIn(); + begin + return 4048; + end; + function wdDialogMailMergeInsertGreetingLine(); + begin + return 1306; + end; + function wdDialogMailMergeInsertIf(); + begin + return 4049; + end; + function wdDialogMailMergeInsertNextIf(); + begin + return 4053; + end; + function wdDialogMailMergeInsertSet(); + begin + return 4054; + end; + function wdDialogMailMergeInsertSkipIf(); + begin + return 4055; + end; + function wdDialogMailMergeOpenDataSource(); + begin + return 81; + end; + function wdDialogMailMergeOpenHeaderSource(); + begin + return 82; + end; + function wdDialogMailMergeQueryOptions(); + begin + return 681; + end; + function wdDialogMailMergeRecipients(); + begin + return 1308; + end; + function wdDialogMailMergeSetDocumentType(); + begin + return 1339; + end; + function wdDialogMailMergeUseAddressBook(); + begin + return 779; + end; + function wdDialogMarkCitation(); + begin + return 463; + end; + function wdDialogMarkIndexEntry(); + begin + return 169; + end; + function wdDialogMarkTableOfContentsEntry(); + begin + return 442; + end; + function wdDialogMyPermission(); + begin + return 1437; + end; + function wdDialogNewToolbar(); + begin + return 586; + end; + function wdDialogNoteOptions(); + begin + return 373; + end; + function wdDialogOMathRecognizedFunctions(); + begin + return 2165; + end; + function wdDialogOrganizer(); + begin + return 222; + end; + function wdDialogPermission(); + begin + return 1469; + end; + function wdDialogPhoneticGuide(); + begin + return 986; + end; + function wdDialogReviewAfmtRevisions(); + begin + return 570; + end; + function wdDialogSchemaLibrary(); + begin + return 1417; + end; + function wdDialogSearch(); + begin + return 1363; + end; + function wdDialogShowRepairs(); + begin + return 1381; + end; + function wdDialogSourceManager(); + begin + return 1920; + end; + function wdDialogStyleManagement(); + begin + return 1948; + end; + function wdDialogTableAutoFormat(); + begin + return 563; + end; + function wdDialogTableCellOptions(); + begin + return 1081; + end; + function wdDialogTableColumnWidth(); + begin + return 143; + end; + function wdDialogTableDeleteCells(); + begin + return 133; + end; + function wdDialogTableFormatCell(); + begin + return 612; + end; + function wdDialogTableFormula(); + begin + return 348; + end; + function wdDialogTableInsertCells(); + begin + return 130; + end; + function wdDialogTableInsertRow(); + begin + return 131; + end; + function wdDialogTableInsertTable(); + begin + return 129; + end; + function wdDialogTableOfCaptionsOptions(); + begin + return 551; + end; + function wdDialogTableOfContentsOptions(); + begin + return 470; + end; + function wdDialogTableProperties(); + begin + return 861; + end; + function wdDialogTableRowHeight(); + begin + return 142; + end; + function wdDialogTableSort(); + begin + return 199; + end; + function wdDialogTableSplitCells(); + begin + return 137; + end; + function wdDialogTableTableOptions(); + begin + return 1080; + end; + function wdDialogTableToText(); + begin + return 128; + end; + function wdDialogTableWrapping(); + begin + return 854; + end; + function wdDialogTCSCTranslator(); + begin + return 1156; + end; + function wdDialogTextToTable(); + begin + return 127; + end; + function wdDialogToolsAcceptRejectChanges(); + begin + return 506; + end; + function wdDialogToolsAdvancedSettings(); + begin + return 206; + end; + function wdDialogToolsAutoCorrect(); + begin + return 378; + end; + function wdDialogToolsAutoCorrectExceptions(); + begin + return 762; + end; + function wdDialogToolsAutoManager(); + begin + return 915; + end; + function wdDialogToolsAutoSummarize(); + begin + return 874; + end; + function wdDialogToolsBulletsNumbers(); + begin + return 196; + end; + function wdDialogToolsCompareDocuments(); + begin + return 198; + end; + function wdDialogToolsCreateDirectory(); + begin + return 833; + end; + function wdDialogToolsCreateEnvelope(); + begin + return 173; + end; + function wdDialogToolsCreateLabels(); + begin + return 489; + end; + function wdDialogToolsCustomize(); + begin + return 152; + end; + function wdDialogToolsCustomizeKeyboard(); + begin + return 432; + end; + function wdDialogToolsCustomizeMenuBar(); + begin + return 615; + end; + function wdDialogToolsCustomizeMenus(); + begin + return 433; + end; + function wdDialogToolsDictionary(); + begin + return 989; + end; + function wdDialogToolsEnvelopesAndLabels(); + begin + return 607; + end; + function wdDialogToolsGrammarSettings(); + begin + return 885; + end; + function wdDialogToolsHangulHanjaConversion(); + begin + return 784; + end; + function wdDialogToolsHighlightChanges(); + begin + return 197; + end; + function wdDialogToolsHyphenation(); + begin + return 195; + end; + function wdDialogToolsLanguage(); + begin + return 188; + end; + function wdDialogToolsMacro(); + begin + return 215; + end; + function wdDialogToolsMacroRecord(); + begin + return 214; + end; + function wdDialogToolsManageFields(); + begin + return 631; + end; + function wdDialogToolsMergeDocuments(); + begin + return 435; + end; + function wdDialogToolsOptions(); + begin + return 974; + end; + function wdDialogToolsOptionsAutoFormat(); + begin + return 959; + end; + function wdDialogToolsOptionsAutoFormatAsYouType(); + begin + return 778; + end; + function wdDialogToolsOptionsBidi(); + begin + return 1029; + end; + function wdDialogToolsOptionsCompatibility(); + begin + return 525; + end; + function wdDialogToolsOptionsEdit(); + begin + return 224; + end; + function wdDialogToolsOptionsEditCopyPaste(); + begin + return 1356; + end; + function wdDialogToolsOptionsFileLocations(); + begin + return 225; + end; + function wdDialogToolsOptionsFuzzy(); + begin + return 790; + end; + function wdDialogToolsOptionsGeneral(); + begin + return 203; + end; + function wdDialogToolsOptionsPrint(); + begin + return 208; + end; + function wdDialogToolsOptionsSave(); + begin + return 209; + end; + function wdDialogToolsOptionsSecurity(); + begin + return 1361; + end; + function wdDialogToolsOptionsSmartTag(); + begin + return 1395; + end; + function wdDialogToolsOptionsSpellingAndGrammar(); + begin + return 211; + end; + function wdDialogToolsOptionsTrackChanges(); + begin + return 386; + end; + function wdDialogToolsOptionsTypography(); + begin + return 739; + end; + function wdDialogToolsOptionsUserInfo(); + begin + return 213; + end; + function wdDialogToolsOptionsView(); + begin + return 204; + end; + function wdDialogToolsProtectDocument(); + begin + return 503; + end; + function wdDialogToolsProtectSection(); + begin + return 578; + end; + function wdDialogToolsRevisions(); + begin + return 197; + end; + function wdDialogToolsSpellingAndGrammar(); + begin + return 828; + end; + function wdDialogToolsTemplates(); + begin + return 87; + end; + function wdDialogToolsThesaurus(); + begin + return 194; + end; + function wdDialogToolsUnprotectDocument(); + begin + return 521; + end; + function wdDialogToolsWordCount(); + begin + return 228; + end; + function wdDialogTwoLinesInOne(); + begin + return 1161; + end; + function wdDialogUpdateTOC(); + begin + return 331; + end; + function wdDialogViewZoom(); + begin + return 577; + end; + function wdDialogWebOptions(); + begin + return 898; + end; + function wdDialogWindowActivate(); + begin + return 220; + end; + function wdDialogXMLElementAttributes(); + begin + return 1460; + end; + function wdDialogXMLOptions(); + begin + return 1425; + end; + + // WdWordDialogTab + function wdDialogEmailOptionsTabQuoting(); + begin + return 1900002; + end; + function wdDialogEmailOptionsTabSignature(); + begin + return 1900000; + end; + function wdDialogEmailOptionsTabStationary(); + begin + return 1900001; + end; + function wdDialogFilePageSetupTabCharsLines(); + begin + return 150004; + end; + function wdDialogFilePageSetupTabLayout(); + begin + return 150003; + end; + function wdDialogFilePageSetupTabMargins(); + begin + return 150000; + end; + function wdDialogFilePageSetupTabPaper(); + begin + return 150001; + end; + function wdDialogFormatBordersAndShadingTabBorders(); + begin + return 700000; + end; + function wdDialogFormatBordersAndShadingTabPageBorder(); + begin + return 700001; + end; + function wdDialogFormatBordersAndShadingTabShading(); + begin + return 700002; + end; + function wdDialogFormatBulletsAndNumberingTabBulleted(); + begin + return 1500000; + end; + function wdDialogFormatBulletsAndNumberingTabNumbered(); + begin + return 1500001; + end; + function wdDialogFormatBulletsAndNumberingTabOutlineNumbered(); + begin + return 1500002; + end; + function wdDialogFormatDrawingObjectTabColorsAndLines(); + begin + return 1200000; + end; + function wdDialogFormatDrawingObjectTabHR(); + begin + return 1200007; + end; + function wdDialogFormatDrawingObjectTabPicture(); + begin + return 1200004; + end; + function wdDialogFormatDrawingObjectTabPosition(); + begin + return 1200002; + end; + function wdDialogFormatDrawingObjectTabSize(); + begin + return 1200001; + end; + function wdDialogFormatDrawingObjectTabTextbox(); + begin + return 1200005; + end; + function wdDialogFormatDrawingObjectTabWeb(); + begin + return 1200006; + end; + function wdDialogFormatDrawingObjectTabWrapping(); + begin + return 1200003; + end; + function wdDialogFormatFontTabAnimation(); + begin + return 600002; + end; + function wdDialogFormatFontTabCharacterSpacing(); + begin + return 600001; + end; + function wdDialogFormatFontTabFont(); + begin + return 600000; + end; + function wdDialogFormatParagraphTabIndentsAndSpacing(); + begin + return 1000000; + end; + function wdDialogFormatParagraphTabTeisai(); + begin + return 1000002; + end; + function wdDialogFormatParagraphTabTextFlow(); + begin + return 1000001; + end; + function wdDialogInsertIndexAndTablesTabIndex(); + begin + return 400000; + end; + function wdDialogInsertIndexAndTablesTabTableOfAuthorities(); + begin + return 400003; + end; + function wdDialogInsertIndexAndTablesTabTableOfContents(); + begin + return 400001; + end; + function wdDialogInsertIndexAndTablesTabTableOfFigures(); + begin + return 400002; + end; + function wdDialogInsertSymbolTabSpecialCharacters(); + begin + return 200001; + end; + function wdDialogInsertSymbolTabSymbols(); + begin + return 200000; + end; + function wdDialogLetterWizardTabLetterFormat(); + begin + return 1600000; + end; + function wdDialogLetterWizardTabOtherElements(); + begin + return 1600002; + end; + function wdDialogLetterWizardTabRecipientInfo(); + begin + return 1600001; + end; + function wdDialogLetterWizardTabSenderInfo(); + begin + return 1600003; + end; + function wdDialogNoteOptionsTabAllEndnotes(); + begin + return 300001; + end; + function wdDialogNoteOptionsTabAllFootnotes(); + begin + return 300000; + end; + function wdDialogOrganizerTabAutoText(); + begin + return 500001; + end; + function wdDialogOrganizerTabCommandBars(); + begin + return 500002; + end; + function wdDialogOrganizerTabMacros(); + begin + return 500003; + end; + function wdDialogOrganizerTabStyles(); + begin + return 500000; + end; + function wdDialogTablePropertiesTabCell(); + begin + return 1800003; + end; + function wdDialogTablePropertiesTabColumn(); + begin + return 1800002; + end; + function wdDialogTablePropertiesTabRow(); + begin + return 1800001; + end; + function wdDialogTablePropertiesTabTable(); + begin + return 1800000; + end; + function wdDialogTemplates(); + begin + return 2100000; + end; + function wdDialogTemplatesLinkedCSS(); + begin + return 2100003; + end; + function wdDialogTemplatesXMLExpansionPacks(); + begin + return 2100002; + end; + function wdDialogTemplatesXMLSchema(); + begin + return 2100001; + end; + function wdDialogToolsAutoCorrectExceptionsTabFirstLetter(); + begin + return 1400000; + end; + function wdDialogToolsAutoCorrectExceptionsTabHangulAndAlphabet(); + begin + return 1400002; + end; + function wdDialogToolsAutoCorrectExceptionsTabIac(); + begin + return 1400003; + end; + function wdDialogToolsAutoCorrectExceptionsTabInitialCaps(); + begin + return 1400001; + end; + function wdDialogToolsAutoManagerTabAutoCorrect(); + begin + return 1700000; + end; + function wdDialogToolsAutoManagerTabAutoFormat(); + begin + return 1700003; + end; + function wdDialogToolsAutoManagerTabAutoFormatAsYouType(); + begin + return 1700001; + end; + function wdDialogToolsAutoManagerTabAutoText(); + begin + return 1700002; + end; + function wdDialogToolsAutoManagerTabSmartTags(); + begin + return 1700004; + end; + function wdDialogToolsEnvelopesAndLabelsTabEnvelopes(); + begin + return 800000; + end; + function wdDialogToolsEnvelopesAndLabelsTabLabels(); + begin + return 800001; + end; + function wdDialogToolsOptionsTabAcetate(); + begin + return 1266; + end; + function wdDialogToolsOptionsTabBidi(); + begin + return 1029; + end; + function wdDialogToolsOptionsTabCompatibility(); + begin + return 525; + end; + function wdDialogToolsOptionsTabEdit(); + begin + return 224; + end; + function wdDialogToolsOptionsTabFileLocations(); + begin + return 225; + end; + function wdDialogToolsOptionsTabFuzzy(); + begin + return 790; + end; + function wdDialogToolsOptionsTabGeneral(); + begin + return 203; + end; + function wdDialogToolsOptionsTabHangulHanjaConversion(); + begin + return 786; + end; + function wdDialogToolsOptionsTabPrint(); + begin + return 208; + end; + function wdDialogToolsOptionsTabProofread(); + begin + return 211; + end; + function wdDialogToolsOptionsTabSave(); + begin + return 209; + end; + function wdDialogToolsOptionsTabSecurity(); + begin + return 1361; + end; + function wdDialogToolsOptionsTabTrackChanges(); + begin + return 386; + end; + function wdDialogToolsOptionsTabTypography(); + begin + return 739; + end; + function wdDialogToolsOptionsTabUserInfo(); + begin + return 213; + end; + function wdDialogToolsOptionsTabView(); + begin + return 204; + end; + function wdDialogWebOptionsBrowsers(); + begin + return 2000000; + end; + function wdDialogWebOptionsEncoding(); + begin + return 2000003; + end; + function wdDialogWebOptionsFiles(); + begin + return 2000001; + end; + function wdDialogWebOptionsFonts(); + begin + return 2000004; + end; + function wdDialogWebOptionsGeneral(); + begin + return 2000000; + end; + function wdDialogWebOptionsPictures(); + begin + return 2000002; + end; + function wdDialogStyleManagementTabEdit(); + begin + return 2200000; + end; + function wdDialogStyleManagementTabRecommend(); + begin + return 2200001; + end; + function wdDialogStyleManagementTabRestrict(); + begin + return 2200002; + end; + + // WdWrapSideType + function wdWrapBoth(); + begin + return 0; + end; + function wdWrapLargest(); + begin + return 3; + end; + function wdWrapLeft(); + begin + return 1; + end; + function wdWrapRight(); + begin + return 2; + end; + + // WdWrapType + function wdWrapInline(); + begin + return 7; + end; + function wdWrapNone(); + begin + return 3; + end; + function wdWrapSquare(); + begin + return 0; + end; + function wdWrapThrough(); + begin + return 2; + end; + function wdWrapTight(); + begin + return 1; + end; + function wdWrapTopBottom(); + begin + return 4; + end; + function wdWrapBehind(); + begin + return 5; + end; + function wdWrapFront(); + begin + return 3; + end; + + // WdWrapTypeMerged + function wdWrapMergeBehind(); + begin + return 3; + end; + function wdWrapMergeFront(); + begin + return 4; + end; + function wdWrapMergeInline(); + begin + return 0; + end; + function wdWrapMergeSquare(); + begin + return 1; + end; + function wdWrapMergeThrough(); + begin + return 5; + end; + function wdWrapMergeTight(); + begin + return 2; + end; + function wdWrapMergeTopBottom(); + begin + return 6; + end; + + // XlAxisCrosses + function xlAxisCrossesAutomatic(); + begin + return -4105; + end; + function xlAxisCrossesCustom(); + begin + return -4114; + end; + function xlAxisCrossesMaximum(); + begin + return 2; + end; + function xlAxisCrossesMinimum(); + begin + return 4; + end; + + // XlAxisGroup + function xlPrimary(); + begin + return 1; + end; + function xlSecondary(); + begin + return 2; + end; + + // XlAxisType + function xlCategory(); + begin + return 1; + end; + function xlSeriesAxis(); + begin + return 3; + end; + function xlValue(); + begin + return 2; + end; + + // XlBackground + function xlBackgroundAutomatic(); + begin + return -4105; + end; + function xlBackgroundOpaque(); + begin + return 3; + end; + function xlBackgroundTransparent(); + begin + return 2; + end; + + // XlBarShape + function xlBox(); + begin + return 0; + end; + function xlConeToMax(); + begin + return 5; + end; + function xlConeToPoint(); + begin + return 4; + end; + function xlCylinder(); + begin + return 3; + end; + function xlPyramidToMax(); + begin + return 2; + end; + function xlPyramidToPoint(); + begin + return 1; + end; + + // XlBinsType + function xlBinsTypeAutomatic(); + begin + return 0; + end; + function xlBinsTypeCategorical(); + begin + return 1; + end; + function xlBinsTypeManual(); + begin + return 2; + end; + function xlBinsTypeBinSize(); + begin + return 3; + end; + function xlBinsTypeBinCount(); + begin + return 4; + end; + + // XlBorderWeight + function xlHairline(); + begin + return 1; + end; + function xlMedium(); + begin + return -4138; + end; + function xlThick(); + begin + return 4; + end; + function xlThin(); + begin + return 2; + end; + + // XlCategoryLabelLevel + function xlCategoryLabelLevelAll(); + begin + return -1; + end; + function xlCategoryLabelLevelCustom(); + begin + return -2; + end; + function xlCategoryLabelLevelNone(); + begin + return -3; + end; + + // XlCategoryType + function xlAutomaticScale(); + begin + return -4105; + end; + function xlCategoryScale(); + begin + return 2; + end; + function xlTimeScale(); + begin + return 3; + end; + + // XlChartElementPosition + function xlChartElementPositionAutomatic(); + begin + return -4105; + end; + function xlChartElementPositionCustom(); + begin + return -4114; + end; + + // XlChartGallery + function xlAnyGallery(); + begin + return 23; + end; + function xlBuiltIn(); + begin + return 21; + end; + function xlUserDefined(); + begin + return 22; + end; + + // XlChartItem + function xlAxis(); + begin + return 21; + end; + function xlAxisTitle(); + begin + return 17; + end; + function xlChartArea(); + begin + return 2; + end; + function xlChartTitle(); + begin + return 4; + end; + function xlCorners(); + begin + return 6; + end; + function xlDataLabel(); + begin + return 0; + end; + function xlDataTable(); + begin + return 7; + end; + function xlDisplayUnitLabel(); + begin + return 30; + end; + function xlDownBars(); + begin + return 20; + end; + function xlDropLines(); + begin + return 26; + end; + function xlErrorBars(); + begin + return 9; + end; + function xlFloor(); + begin + return 23; + end; + function xlHiLoLines(); + begin + return 25; + end; + function xlLeaderLines(); + begin + return 29; + end; + function xlLegend(); + begin + return 24; + end; + function xlLegendEntry(); + begin + return 12; + end; + function xlLegendKey(); + begin + return 13; + end; + function xlMajorGridlines(); + begin + return 15; + end; + function xlMinorGridlines(); + begin + return 16; + end; + function xlNothing(); + begin + return 28; + end; + function xlPivotChartDropZone(); + begin + return 32; + end; + function xlPivotChartFieldButton(); + begin + return 31; + end; + function xlPlotArea(); + begin + return 19; + end; + function xlRadarAxisLabels(); + begin + return 27; + end; + function xlSeries(); + begin + return 3; + end; + function xlSeriesLines(); + begin + return 22; + end; + function xlShape(); + begin + return 14; + end; + function xlTrendline(); + begin + return 8; + end; + function xlUpBars(); + begin + return 18; + end; + function xlWalls(); + begin + return 5; + end; + function xlXErrorBars(); + begin + return 10; + end; + function xlYErrorBars(); + begin + return 11; + end; + + // XlChartPicturePlacement + function xlAllFaces(); + begin + return 7; + end; + function xlEnd(); + begin + return 2; + end; + function xlEndSides(); + begin + return 3; + end; + function xlFront(); + begin + return 4; + end; + function xlFrontEnd(); + begin + return 6; + end; + function xlFrontSides(); + begin + return 5; + end; + function xlSides(); + begin + return 1; + end; + + // XlChartPictureType + function xlStack(); + begin + return 2; + end; + function xlStackScale(); + begin + return 3; + end; + function xlStretch(); + begin + return 1; + end; + + // XlChartSplitType + function xlSplitByCustomSplit(); + begin + return 4; + end; + function xlSplitByPercentValue(); + begin + return 3; + end; + function xlSplitByPosition(); + begin + return 1; + end; + function xlSplitByValue(); + begin + return 2; + end; + + // XlColorIndex + function xlColorIndexAutomatic(); + begin + return -4105; + end; + function xlColorIndexNone(); + begin + return -4142; + end; + + // XlConstants + function xl3DBar(); + begin + return -4099; + end; + function xl3DSurface(); + begin + return -4103; + end; + function xlAbove(); + begin + return 0; + end; + function xlAutomatic(); + begin + return -4105; + end; + function xlBar(); + begin + return 2; + end; + function xlBelow(); + begin + return 1; + end; + function xlBoth(); + begin + return 1; + end; + function xlBottom(); + begin + return -4107; + end; + function xlCenter(); + begin + return -4108; + end; + function xlChecker(); + begin + return 9; + end; + function xlCircle(); + begin + return 8; + end; + function xlColumn(); + begin + return 3; + end; + function xlCombination(); + begin + return -4111; + end; + function xlCorner(); + begin + return 2; + end; + function xlCrissCross(); + begin + return 16; + end; + function xlCross(); + begin + return 4; + end; + function xlCustom(); + begin + return -4114; + end; + function xlDefaultAutoFormat(); + begin + return -1; + end; + function xlDiamond(); + begin + return 2; + end; + function xlDistributed(); + begin + return -4117; + end; + function xlFill(); + begin + return 5; + end; + function xlFixedValue(); + begin + return 1; + end; + function xlGeneral(); + begin + return 1; + end; + function xlGray16(); + begin + return 17; + end; + function xlGray25(); + begin + return -4124; + end; + function xlGray50(); + begin + return -4125; + end; + function xlGray75(); + begin + return -4126; + end; + function xlGray8(); + begin + return 18; + end; + function xlGrid(); + begin + return 15; + end; + function xlHigh(); + begin + return -4127; + end; + function xlInside(); + begin + return 2; + end; + function xlJustify(); + begin + return -4130; + end; + function xlLeft(); + begin + return -4131; + end; + function xlLightDown(); + begin + return 13; + end; + function xlLightHorizontal(); + begin + return 11; + end; + function xlLightUp(); + begin + return 14; + end; + function xlLightVertical(); + begin + return 12; + end; + function xlLow(); + begin + return -4134; + end; + function xlMaximum(); + begin + return 2; + end; + function xlMinimum(); + begin + return 4; + end; + function xlMinusValues(); + begin + return 3; + end; + function xlNextToAxis(); + begin + return 4; + end; + function xlNone(); + begin + return -4142; + end; + function xlOpaque(); + begin + return 3; + end; + function xlOutside(); + begin + return 3; + end; + function xlPercent(); + begin + return 2; + end; + function xlPlus(); + begin + return 9; + end; + function xlPlusValues(); + begin + return 2; + end; + function xlRight(); + begin + return -4152; + end; + function xlScale(); + begin + return 3; + end; + function xlSemiGray75(); + begin + return 10; + end; + function xlShowLabel(); + begin + return 4; + end; + function xlShowLabelAndPercent(); + begin + return 5; + end; + function xlShowPercent(); + begin + return 3; + end; + function xlShowValue(); + begin + return 2; + end; + function xlSingle(); + begin + return 2; + end; + function xlSolid(); + begin + return 1; + end; + function xlSquare(); + begin + return 1; + end; + function xlStar(); + begin + return 5; + end; + function xlStError(); + begin + return 4; + end; + function xlTop(); + begin + return -4160; + end; + function xlTransparent(); + begin + return 2; + end; + function xlTriangle(); + begin + return 3; + end; + + // XlCopyPictureFormat + function xlBitmap(); + begin + return 2; + end; + function xlPicture(); + begin + return -4147; + end; + + // XlDataLabelPosition + function xlLabelPositionAbove(); + begin + return 0; + end; + function xlLabelPositionBelow(); + begin + return 1; + end; + function xlLabelPositionBestFit(); + begin + return 5; + end; + function xlLabelPositionCenter(); + begin + return -4108; + end; + function xlLabelPositionCustom(); + begin + return 7; + end; + function xlLabelPositionInsideBase(); + begin + return 4; + end; + function xlLabelPositionInsideEnd(); + begin + return 3; + end; + function xlLabelPositionLeft(); + begin + return -4131; + end; + function xlLabelPositionMixed(); + begin + return 6; + end; + function xlLabelPositionOutsideEnd(); + begin + return 2; + end; + function xlLabelPositionRight(); + begin + return -4152; + end; + + // XlDataLabelSeparator + function xlDataLabelSeparatorDefault(); + begin + return 1; + end; + + // XlDataLabelsType + function xlDataLabelsShowBubbleSizes(); + begin + return 6; + end; + function xlDataLabelsShowLabel(); + begin + return 4; + end; + function xlDataLabelsShowLabelAndPercent(); + begin + return 5; + end; + function xlDataLabelsShowNone(); + begin + return -4142; + end; + function xlDataLabelsShowPercent(); + begin + return 3; + end; + function xlDataLabelsShowValue(); + begin + return 2; + end; + + // XlDisplayBlanksAs + function xlInterpolated(); + begin + return 3; + end; + function xlNotPlotted(); + begin + return 1; + end; + function xlZero(); + begin + return 2; + end; + + // XlDisplayUnit + function xlHundredMillions(); + begin + return -8; + end; + function xlHundreds(); + begin + return -2; + end; + function xlHundredThousands(); + begin + return -5; + end; + function xlMillionMillions(); + begin + return -10; + end; + function xlMillions(); + begin + return -6; + end; + function xlTenMillions(); + begin + return -7; + end; + function xlTenThousands(); + begin + return -4; + end; + function xlThousandMillions(); + begin + return -9; + end; + function xlThousands(); + begin + return -3; + end; + + // XlEndStyleCap + function xlCap(); + begin + return 1; + end; + function xlNoCap(); + begin + return 2; + end; + + // XlErrorBarDirection + function xlChartX(); + begin + return -4168; + end; + function xlChartY(); + begin + return 1; + end; + + // XlErrorBarInclude + function xlErrorBarIncludeBoth(); + begin + return 1; + end; + function xlErrorBarIncludeMinusValues(); + begin + return 3; + end; + function xlErrorBarIncludeNone(); + begin + return -4142; + end; + function xlErrorBarIncludePlusValues(); + begin + return 2; + end; + + // XlErrorBarType + function xlErrorBarTypeCustom(); + begin + return -4114; + end; + function xlErrorBarTypeFixedValue(); + begin + return 1; + end; + function xlErrorBarTypePercent(); + begin + return 2; + end; + function xlErrorBarTypeStDev(); + begin + return -4155; + end; + function xlErrorBarTypeStError(); + begin + return 4; + end; + + // XlHAlign + function xlHAlignCenter(); + begin + return -4108; + end; + function xlHAlignCenterAcrossSelection(); + begin + return 7; + end; + function xlHAlignDistributed(); + begin + return -4117; + end; + function xlHAlignFill(); + begin + return 5; + end; + function xlHAlignGeneral(); + begin + return 1; + end; + function xlHAlignJustify(); + begin + return -4130; + end; + function xlHAlignLeft(); + begin + return -4131; + end; + function xlHAlignRight(); + begin + return -4152; + end; + + // XlLegendPosition + function xlLegendPositionBottom(); + begin + return -4107; + end; + function xlLegendPositionCorner(); + begin + return 2; + end; + function xlLegendPositionCustom(); + begin + return -4161; + end; + function xlLegendPositionLeft(); + begin + return -4131; + end; + function xlLegendPositionRight(); + begin + return -4152; + end; + function xlLegendPositionTop(); + begin + return -4160; + end; + + // XlLineStyle + function xlContinuous(); + begin + return 1; + end; + function xlDash(); + begin + return -4115; + end; + function xlDashDot(); + begin + return 4; + end; + function xlDashDotDot(); + begin + return 5; + end; + function xlDot(); + begin + return -4118; + end; + function xlDouble(); + begin + return -4119; + end; + function xlLineStyleNone(); + begin + return -4142; + end; + function xlSlantDashDot(); + begin + return 13; + end; + + // XlMarkerStyle + function xlMarkerStyleAutomatic(); + begin + return -4105; + end; + function xlMarkerStyleCircle(); + begin + return 8; + end; + function xlMarkerStyleDash(); + begin + return -4115; + end; + function xlMarkerStyleDiamond(); + begin + return 2; + end; + function xlMarkerStyleDot(); + begin + return -4118; + end; + function xlMarkerStyleNone(); + begin + return -4142; + end; + function xlMarkerStylePicture(); + begin + return -4147; + end; + function xlMarkerStylePlus(); + begin + return 9; + end; + function xlMarkerStyleSquare(); + begin + return 1; + end; + function xlMarkerStyleStar(); + begin + return 5; + end; + function xlMarkerStyleTriangle(); + begin + return 3; + end; + function xlMarkerStyleX(); + begin + return -4168; + end; + + // XlOrientation + function xlDownward(); + begin + return -4170; + end; + function xlHorizontal(); + begin + return -4128; + end; + function xlUpward(); + begin + return -4171; + end; + function xlVertical(); + begin + return -4166; + end; + + // XlParentDataLabelOptions + function xlParentDataLabelOptionsNone(); + begin + return 0; + end; + function xlParentDataLabelOptionsBanner(); + begin + return 1; + end; + function xlParentDataLabelOptionsOverlapping(); + begin + return 2; + end; + + // XlPattern + function xlPatternAutomatic(); + begin + return -4105; + end; + function xlPatternChecker(); + begin + return 9; + end; + function xlPatternCrissCross(); + begin + return 16; + end; + function xlPatternDown(); + begin + return -4121; + end; + function xlPatternGray16(); + begin + return 17; + end; + function xlPatternGray25(); + begin + return -4124; + end; + function xlPatternGray50(); + begin + return -4125; + end; + function xlPatternGray75(); + begin + return -4126; + end; + function xlPatternGray8(); + begin + return 18; + end; + function xlPatternGrid(); + begin + return 15; + end; + function xlPatternHorizontal(); + begin + return -4128; + end; + function xlPatternLightDown(); + begin + return 13; + end; + function xlPatternLightHorizontal(); + begin + return 11; + end; + function xlPatternLightUp(); + begin + return 14; + end; + function xlPatternLightVertical(); + begin + return 12; + end; + function xlPatternLinearGradient(); + begin + return 4000; + end; + function xlPatternNone(); + begin + return -4142; + end; + function xlPatternRectangularGradient(); + begin + return 4001; + end; + function xlPatternSemiGray75(); + begin + return 10; + end; + function xlPatternSolid(); + begin + return 1; + end; + function xlPatternUp(); + begin + return -4162; + end; + function xlPatternVertical(); + begin + return -4166; + end; + + // XlPictureAppearance + function xlPrinter(); + begin + return 2; + end; + function xlScreen(); + begin + return 1; + end; + + // XlPieSliceIndex + function xlCenterPoint(); + begin + return 5; + end; + function xlInnerCenterPoint(); + begin + return 8; + end; + function xlInnerClockwisePoint(); + begin + return 7; + end; + function xlInnerCounterClockwisePoint(); + begin + return 9; + end; + function xlMidClockwiseRadiusPoint(); + begin + return 4; + end; + function xlMidCounterClockwiseRadiusPoint(); + begin + return 6; + end; + function xlOuterCenterPoint(); + begin + return 2; + end; + function xlOuterClockwisePoint(); + begin + return 3; + end; + function xlOuterCounterClockwisePoint(); + begin + return 1; + end; + + // XlPieSliceLocation + function xlHorizontalCoordinate(); + begin + return 1; + end; + function xlVerticalCoordinate(); + begin + return 2; + end; + + // XlPivotFieldOrientation + function xlColumnField(); + begin + return 2; + end; + function xlDataField(); + begin + return 4; + end; + function xlHidden(); + begin + return 0; + end; + function xlPageField(); + begin + return 3; + end; + function xlRowField(); + begin + return 1; + end; + + // XlReadingOrder + function xlContext(); + begin + return -5002; + end; + function xlLTR(); + begin + return -5003; + end; + function xlRTL(); + begin + return -5004; + end; + + // XlRgbColor + function xlAliceBlue(); + begin + return 16775408; + end; + function xlAntiqueWhite(); + begin + return 14150650; + end; + function xlAqua(); + begin + return 16776960; + end; + function xlAquamarine(); + begin + return 13959039; + end; + function xlAzure(); + begin + return 16777200; + end; + function xlBeige(); + begin + return 14480885; + end; + function xlBisque(); + begin + return 12903679; + end; + function xlBlack(); + begin + return 0; + end; + function xlBlanchedAlmond(); + begin + return 13495295; + end; + function xlBlue(); + begin + return 16711680; + end; + function xlBlueViolet(); + begin + return 14822282; + end; + function xlBrown(); + begin + return 2763429; + end; + function xlBurlyWood(); + begin + return 8894686; + end; + function xlCadetBlue(); + begin + return 10526303; + end; + function xlChartreuse(); + begin + return 65407; + end; + function xlCoral(); + begin + return 5275647; + end; + function xlCornflowerBlue(); + begin + return 15570276; + end; + function xlCornsilk(); + begin + return 14481663; + end; + function xlCrimson(); + begin + return 3937500; + end; + function xlDarkBlue(); + begin + return 9109504; + end; + function xlDarkCyan(); + begin + return 9145088; + end; + function xlDarkGoldenrod(); + begin + return 755384; + end; + function xlDarkGray(); + begin + return 11119017; + end; + function xlDarkGreen(); + begin + return 25600; + end; + function xlDarkGrey(); + begin + return 11119017; + end; + function xlDarkKhaki(); + begin + return 7059389; + end; + function xlDarkMagenta(); + begin + return 9109643; + end; + function xlDarkOliveGreen(); + begin + return 3107669; + end; + function xlDarkOrange(); + begin + return 36095; + end; + function xlDarkOrchid(); + begin + return 13382297; + end; + function xlDarkRed(); + begin + return 139; + end; + function xlDarkSalmon(); + begin + return 8034025; + end; + function xlDarkSeaGreen(); + begin + return 9419919; + end; + function xlDarkSlateBlue(); + begin + return 9125192; + end; + function xlDarkSlateGray(); + begin + return 5197615; + end; + function xlDarkSlateGrey(); + begin + return 5197615; + end; + function xlDarkTurquoise(); + begin + return 13749760; + end; + function xlDarkViolet(); + begin + return 13828244; + end; + function xlDeepPink(); + begin + return 9639167; + end; + function xlDeepSkyBlue(); + begin + return 16760576; + end; + function xlDimGray(); + begin + return 6908265; + end; + function xlDimGrey(); + begin + return 6908265; + end; + function xlDodgerBlue(); + begin + return 16748574; + end; + function xlFireBrick(); + begin + return 2237106; + end; + function xlFloralWhite(); + begin + return 15792895; + end; + function xlForestGreen(); + begin + return 2263842; + end; + function xlFuchsia(); + begin + return 16711935; + end; + function xlGainsboro(); + begin + return 14474460; + end; + function xlGhostWhite(); + begin + return 16775416; + end; + function xlGold(); + begin + return 55295; + end; + function xlGoldenrod(); + begin + return 2139610; + end; + function xlGray(); + begin + return 8421504; + end; + function xlGreen(); + begin + return 32768; + end; + function xlGreenYellow(); + begin + return 3145645; + end; + function xlGrey(); + begin + return 8421504; + end; + function xlHoneydew(); + begin + return 15794160; + end; + function xlHotPink(); + begin + return 11823615; + end; + function xlIndianRed(); + begin + return 6053069; + end; + function xlIndigo(); + begin + return 8519755; + end; + function xlIvory(); + begin + return 15794175; + end; + function xlKhaki(); + begin + return 9234160; + end; + function xlLavender(); + begin + return 16443110; + end; + function xlLavenderBlush(); + begin + return 16118015; + end; + function xlLawnGreen(); + begin + return 64636; + end; + function xlLemonChiffon(); + begin + return 13499135; + end; + function xlLightBlue(); + begin + return 15128749; + end; + function xlLightCoral(); + begin + return 8421616; + end; + function xlLightCyan(); + begin + return 9145088; + end; + function xlLightGoldenrodYellow(); + begin + return 13826810; + end; + function xlLightGray(); + begin + return 13882323; + end; + function xlLightGreen(); + begin + return 9498256; + end; + function xlLightGrey(); + begin + return 13882323; + end; + function xlLightPink(); + begin + return 12695295; + end; + function xlLightSalmon(); + begin + return 8036607; + end; + function xlLightSeaGreen(); + begin + return 11186720; + end; + function xlLightSkyBlue(); + begin + return 16436871; + end; + function xlLightSlateGray(); + begin + return 10061943; + end; + function xlLightSlateGrey(); + begin + return 10061943; + end; + function xlLightSteelBlue(); + begin + return 14599344; + end; + function xlLightYellow(); + begin + return 14745599; + end; + function xlLime(); + begin + return 65280; + end; + function xlLimeGreen(); + begin + return 3329330; + end; + function xlLinen(); + begin + return 15134970; + end; + function xlMaroon(); + begin + return 128; + end; + function xlMediumAquamarine(); + begin + return 11206502; + end; + function xlMediumBlue(); + begin + return 13434880; + end; + function xlMediumOrchid(); + begin + return 13850042; + end; + function xlMediumPurple(); + begin + return 14381203; + end; + function xlMediumSeaGreen(); + begin + return 7451452; + end; + function xlMediumSlateBlue(); + begin + return 15624315; + end; + function xlMediumSpringGreen(); + begin + return 10156544; + end; + function xlMediumTurquoise(); + begin + return 13422920; + end; + function xlMediumVioletRed(); + begin + return 8721863; + end; + function xlMidnightBlue(); + begin + return 7346457; + end; + function xlMintCream(); + begin + return 16449525; + end; + function xlMistyRose(); + begin + return 14804223; + end; + function xlMoccasin(); + begin + return 11920639; + end; + function xlNavajoWhite(); + begin + return 11394815; + end; + function xlNavy(); + begin + return 8388608; + end; + function xlNavyBlue(); + begin + return 8388608; + end; + function xlOldLace(); + begin + return 15136253; + end; + function xlOlive(); + begin + return 32896; + end; + function xlOliveDrab(); + begin + return 2330219; + end; + function xlOrange(); + begin + return 42495; + end; + function xlOrangeRed(); + begin + return 17919; + end; + function xlOrchid(); + begin + return 14053594; + end; + function xlPaleGoldenrod(); + begin + return 7071982; + end; + function xlPaleGreen(); + begin + return 10025880; + end; + function xlPaleTurquoise(); + begin + return 15658671; + end; + function xlPaleVioletRed(); + begin + return 9662683; + end; + function xlPapayaWhip(); + begin + return 14020607; + end; + function xlPeachPuff(); + begin + return 12180223; + end; + function xlPeru(); + begin + return 4163021; + end; + function xlPink(); + begin + return 13353215; + end; + function xlPlum(); + begin + return 14524637; + end; + function xlPowderBlue(); + begin + return 15130800; + end; + function xlPurple(); + begin + return 8388736; + end; + function xlRed(); + begin + return 255; + end; + function xlRosyBrown(); + begin + return 9408444; + end; + function xlRoyalBlue(); + begin + return 14772545; + end; + function xlSalmon(); + begin + return 7504122; + end; + function xlSandyBrown(); + begin + return 6333684; + end; + function xlSeaGreen(); + begin + return 5737262; + end; + function xlSeashell(); + begin + return 15660543; + end; + function xlSienna(); + begin + return 2970272; + end; + function xlSilver(); + begin + return 12632256; + end; + function xlSkyBlue(); + begin + return 15453831; + end; + function xlSlateBlue(); + begin + return 13458026; + end; + function xlSlateGray(); + begin + return 9470064; + end; + function xlSlateGrey(); + begin + return 9470064; + end; + function xlSnow(); + begin + return 16448255; + end; + function xlSpringGreen(); + begin + return 8388352; + end; + function xlSteelBlue(); + begin + return 11829830; + end; + function xlTan(); + begin + return 9221330; + end; + function xlTeal(); + begin + return 8421376; + end; + function xlThistle(); + begin + return 14204888; + end; + function xlTomato(); + begin + return 4678655; + end; + function xlTurquoise(); + begin + return 13688896; + end; + function xlViolet(); + begin + return 15631086; + end; + function xlWheat(); + begin + return 11788021; + end; + function xlWhite(); + begin + return 16777215; + end; + function xlWhiteSmoke(); + begin + return 16119285; + end; + function xlYellow(); + begin + return 65535; + end; + function xlYellowGreen(); + begin + return 3329434; + end; + + // XlRowCol + function xlColumns(); + begin + return 2; + end; + function xlRows(); + begin + return 1; + end; + + // XlScaleType + function xlScaleLinear(); + begin + return -4132; + end; + function xlScaleLogarithmic(); + begin + return -4133; + end; + + // XlSeriesNameLevel + function xlSeriesNameLevelAll(); + begin + return -1; + end; + function xlSeriesNameLevelCustom(); + begin + return -2; + end; + function xlSeriesNameLevelNone(); + begin + return -3; + end; + + // XlSizeRepresents + function xlSizeIsArea(); + begin + return 1; + end; + function xlSizeIsWidth(); + begin + return 2; + end; + + // XlTickLabelOrientation + function xlTickLabelOrientationAutomatic(); + begin + return -4105; + end; + function xlTickLabelOrientationDownward(); + begin + return -4170; + end; + function xlTickLabelOrientationHorizontal(); + begin + return -4128; + end; + function xlTickLabelOrientationUpward(); + begin + return -4171; + end; + function xlTickLabelOrientationVertical(); + begin + return -4166; + end; + + // XlTickLabelPosition + function xlTickLabelPositionHigh(); + begin + return -4127; + end; + function xlTickLabelPositionLow(); + begin + return -4134; + end; + function xlTickLabelPositionNextToAxis(); + begin + return 4; + end; + function xlTickLabelPositionNone(); + begin + return -4142; + end; + + // XlTickMark + function xlTickMarkCross(); + begin + return 4; + end; + function xlTickMarkInside(); + begin + return 2; + end; + function xlTickMarkNone(); + begin + return -4142; + end; + function xlTickMarkOutside(); + begin + return 3; + end; + + // XlTimeUnit + function xlDays(); + begin + return 0; + end; + function xlMonths(); + begin + return 1; + end; + function xlYears(); + begin + return 2; + end; + + // XlTrendlineType + function xlExponential(); + begin + return 5; + end; + function xlLinear(); + begin + return -4132; + end; + function xlLogarithmic(); + begin + return -4133; + end; + function xlMovingAvg(); + begin + return 6; + end; + function xlPolynomial(); + begin + return 3; + end; + function xlPower(); + begin + return 4; + end; + + // XlUnderlineStyle + function xlUnderlineStyleDouble(); + begin + return -4119; + end; + function xlUnderlineStyleDoubleAccounting(); + begin + return 5; + end; + function xlUnderlineStyleNone(); + begin + return -4142; + end; + function xlUnderlineStyleSingle(); + begin + return 2; + end; + function xlUnderlineStyleSingleAccounting(); + begin + return 4; + end; + + // XlVAlign + function xlVAlignBottom(); + begin + return -4107; + end; + function xlVAlignCenter(); + begin + return -4108; + end; + function xlVAlignDistributed(); + begin + return -4117; + end; + function xlVAlignJustify(); + begin + return -4130; + end; + function xlVAlignTop(); + begin + return -4160; + end; + +end. diff --git a/docx/DocxVba.tsf b/docx/DocxVba.tsf new file mode 100644 index 0000000..bb017c5 --- /dev/null +++ b/docx/DocxVba.tsf @@ -0,0 +1,13146 @@ +unit DocxVba; +interface + +type AddIn = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Autoload read ReadAutoload; + property Compiled read ReadCompiled; + property Index read ReadIndex; + property Installed read ReadInstalled write WriteInstalled; + property Name read ReadName; + property Path read ReadPath; + function ReadAutoload(); + function ReadCompiled(); + function ReadIndex(); + function ReadInstalled(); + function WriteInstalled(_value); + function ReadName(); + function ReadPath(); +end; + +type AddIns = class(VbaBase) +public + function Init(); + +public + // methods + function Add(FileName, Install); + function Item(Index); + function Unload(RemoveFromList); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Adjustments = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Application = class(VbaBase) +public + function Create(); + function Init(); + +public + // methods + function Activate(); + function AddAddress(TagID: StringArray; Value: StringArray); + function AutomaticChange(); + function BuildKeyCode(Arg1: WdKey; Arg2: WdKey; Arg3: WdKey; Arg4: WdKey); + function CentimetersToPoints(Centimeters); + function ChangeFileOpenDirectory(Path); + function CheckGrammar(String); + function CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10); + function CleanString(String); + function CompareDocuments(OriginalDocument, RevisedDocument, Destination, Granularity, CompareFormatting, CompareCaseChanges, CompareWhitespace, CompareTables, CompareHeaders, CompareFootnotes, CompareTextboxes, CompareFields, CompareComments, CompareMoves, RevisedAuthor, IgnoreAllComparisonWarnings); + function DDEExecute(Channel, Command); + function DDEInitiate(App, Topic); + function DDEPoke(Channel, Item, Data); + function DDERequest(Channel, Item); + function DDETerminate(Channel); + function DDETerminateAll(); + function DefaultWebOptions(); + function GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses); + function GetDefaultTheme(DocumentType); + function GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10); + function GoBack(); + function GoForward(); + function Help(HelpType); + function InchesToPoints(Inches); + function Keyboard(LangId); + function KeyboardBidi(); + function KeyboardLatin(); + function KeyString(KeyCode, KeyCode2); + function LinesToPoints(Lines); + function ListCommands(ListAllCommands); + function LoadMasterList(FileName); + function LookupNameProperties(Name); + function MergeDocuments(OriginalDocument, RevisedDocument, Destination, Granularity, CompareFormatting, CompareCaseChanges, CompareWhitespace, CompareTables, CompareHeaders, CompareFootnotes, CompareTextboxes, CompareFields, CompareComments, OriginalAuthor, RevisedAuthor, FormatFrom); + function MillimetersToPoints(Millimeters); + function Move(Left, Top); + function NewWindow(); + function OnTime(When, Name, Tolerance); + function OrganizerCopy(Source, Destination, Name, Object); + function OrganizerDelete(Source, Name, Object); + function OrganizerRename(Source, Name, NewName, Object); + function PicasToPoints(Picas); + function PixelsToPoints(Pixels, fVertical); + function PointsToCentimeters(Points); + function PointsToInches(Points); + function PointsToLines(Points); + function PointsToMillimeters(Points); + function PointsToPicas(Points); + function PointsToPixels(Points, fVertical); + function PrintOut(Background, Append, Range, OutputFileName, _From, _To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight); + function ProductCode(); + function PutFocusInMailHeader(); + function Quit(SaveChanges, OriginalFormat, RouteDocument); + function Repeat(Times); + function ResetIgnoreAll(); + function Resize (Width, Height); + function Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, varg25, varg26, varg27, varg28, varg29, varg30); + function ScreenRefresh(); + function SetDefaultTheme(Name, DocumentType); + function ShowClipboard(); + function SubstituteFont(UnavailableFont, SubstituteFont); + function ToggleKeyboard(); + + // properties + property ActiveDocument read ReadActiveDocument; + property ActiveEncryptionSession read ReadActiveEncryptionSession; + property ActivePrinter read ReadActivePrinter write WriteActivePrinter; + property ActiveProtectedViewWindow read ReadActiveProtectedViewWindow; + property ActiveWindow read ReadActiveWindow; + property AddIns read ReadAddIns; + property ArbitraryXMLSupportAvailable read ReadArbitraryXMLSupportAvailable; + property Assistance read ReadAssistance; + property AutoCaptions read ReadAutoCaptions; + property AutoCorrect read ReadAutoCorrect; + property AutoCorrectEmail read ReadAutoCorrectEmail; + property AutomationSecurity read ReadAutomationSecurity write WriteAutomationSecurity; + property BackgroundPrintingStatus read ReadBackgroundPrintingStatus; + property BackgroundSavingStatus read ReadBackgroundSavingStatus; + property Bibliography read ReadBibliography; + property BrowseExtraFileTypes read ReadBrowseExtraFileTypes write WriteBrowseExtraFileTypes; + property Browser read ReadBrowser; + property Build read ReadBuild; + property CapsLock read ReadCapsLock; + property Caption read ReadCaption write WriteCaption; + property CaptionLabels read ReadCaptionLabels; + property ChartDataPointTrack read ReadChartDataPointTrack write WriteChartDataPointTrack; + property CheckLanguage read ReadCheckLanguage write WriteCheckLanguage; + property COMAddIns read ReadCOMAddIns; + property CommandBars read ReadCommandBars; + property CustomDictionaries read ReadCustomDictionaries; + property CustomizationContext read ReadCustomizationContext write WriteCustomizationContext; + property DefaultLegalBlackline read ReadDefaultLegalBlackline write WriteDefaultLegalBlackline; + property DefaultSaveFormat read ReadDefaultSaveFormat write WriteDefaultSaveFormat; + property DefaultTableSeparator read ReadDefaultTableSeparator write WriteDefaultTableSeparator; + property Dialogs read ReadDialogs; + property DisplayAlerts read ReadDisplayAlerts write WriteDisplayAlerts; + property DisplayAutoCompleteTips read ReadDisplayAutoCompleteTips write WriteDisplayAutoCompleteTips; + property DisplayDocumentInformationPanel read ReadDisplayDocumentInformationPanel write WriteDisplayDocumentInformationPanel; + property DisplayRecentFiles read ReadDisplayRecentFiles write WriteDisplayRecentFiles; + property DisplayScreenTips read ReadDisplayScreenTips write WriteDisplayScreenTips; + property DisplayScrollBars read ReadDisplayScrollBars write WriteDisplayScrollBars; + property Documents read ReadDocuments; + property DontResetInsertionPointProperties read ReadDontResetInsertionPointProperties write WriteDontResetInsertionPointProperties; + property EmailOptions read ReadEmailOptions; + property EmailTemplate read ReadEmailTemplate write WriteEmailTemplate; + property EnableCancelKey read ReadEnableCancelKey write WriteEnableCancelKey; + property FeatureInstall read ReadFeatureInstall write WriteFeatureInstall; + property FileConverters read ReadFileConverters; + property FileDialog read ReadFileDialog; + property FileValidation read ReadFileValidation write WriteFileValidation; + property FindKey read ReadFindKey; + property FocusInMailHeader read ReadFocusInMailHeader; + property FontNames read ReadFontNames; + property HangulHanjaDictionaries read ReadHangulHanjaDictionaries; + property Height read ReadHeight write WriteHeight; + property International read ReadInternational; + property IsObjectValid read ReadIsObjectValid; + property IsSandboxed read ReadIsSandboxed; + property KeyBindings read ReadKeyBindings; + property KeysBoundTo read ReadKeysBoundTo; + property LandscapeFontNames read ReadLandscapeFontNames; + property Language read ReadLanguage; + property Languages read ReadLanguages; + property LanguageSettings read ReadLanguageSettings; + property Left read ReadLeft write WriteLeft; + property ListGalleries read ReadListGalleries; + property MacroContainer read ReadMacroContainer; + property MailingLabel read ReadMailingLabel; + property MailMessage read ReadMailMessage; + property MailSystem read ReadMailSystem; + property MAPIAvailable read ReadMAPIAvailable; + property MathCoprocessorAvailable read ReadMathCoprocessorAvailable; + property MouseAvailable read ReadMouseAvailable; + property Name read ReadName; + property NewDocument read ReadNewDocument; + property NormalTemplate read ReadNormalTemplate; + property NumLock read ReadNumLock; + property OMathAutoCorrect read ReadOMathAutoCorrect; + property OpenAttachmentsInFullScreen read ReadOpenAttachmentsInFullScreen write WriteOpenAttachmentsInFullScreen; + property Options read ReadOptions; + property Path read ReadPath; + property PathSeparator read ReadPathSeparator; + property PickerDialog read ReadPickerDialog; + property PortraitFontNames read ReadPortraitFontNames; + property PrintPreview read ReadPrintPreview write WritePrintPreview; + property ProtectedViewWindows read ReadProtectedViewWindows; + property RecentFiles read ReadRecentFiles; + property RestrictLinkedStyles read ReadRestrictLinkedStyles write WriteRestrictLinkedStyles; + property ScreenUpdating read ReadScreenUpdating write WriteScreenUpdating; + property Selection read ReadSelection; + property SensitivityLabelPolicy read ReadSensitivityLabelPolicy; + property ShowStartupDialog read ReadShowStartupDialog write WriteShowStartupDialog; + property ShowStylePreviews read ReadShowStylePreviews write WriteShowStylePreviews; + property ShowVisualBasicEditor read ReadShowVisualBasicEditor write WriteShowVisualBasicEditor; + property SmartArtColors read ReadSmartArtColors; + property SmartArtLayouts read ReadSmartArtLayouts; + property SmartArtQuickStyles read ReadSmartArtQuickStyles; + property SpecialMode read ReadSpecialMode; + property StartupPath read ReadStartupPath write WriteStartupPath; + property SynonymInfo read ReadSynonymInfo; + property System read ReadSystem; + property TaskPanes read ReadTaskPanes; + property Tasks read ReadTasks; + property Templates read ReadTemplates; + property Top read ReadTop write WriteTop; + property UndoRecord read ReadUndoRecord; + property UsableHeight read ReadUsableHeight; + property UsableWidth read ReadUsableWidth; + property UserAddress read ReadUserAddress write WriteUserAddress; + property UserControl read ReadUserControl; + property UserInitials read ReadUserInitials write WriteUserInitials; + property UserName read ReadUserName write WriteUserName; + property VBE read ReadVBE; + property Version read ReadVersion; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property Windows read ReadWindows; + property WindowState read ReadWindowState write WriteWindowState; + property WordBasic read ReadWordBasic; + property XMLNamespaces read ReadXMLNamespaces; + function ReadXMLNamespaces(); + function ReadWordBasic(); + function WriteWindowState(_value); + function ReadWindowState(); + function ReadWindows(); + function WriteWidth(_value); + function ReadWidth(); + function WriteVisible(_value); + function ReadVisible(); + function ReadVersion(); + function ReadVBE(); + function WriteUserName(_value); + function ReadUserName(); + function WriteUserInitials(_value); + function ReadUserInitials(); + function ReadUserControl(); + function WriteUserAddress(_value); + function ReadUserAddress(); + function ReadUsableWidth(); + function ReadUsableHeight(); + function ReadUndoRecord(); + function WriteTop(_value); + function ReadTop(); + function ReadTemplates(); + function ReadTasks(); + function ReadTaskPanes(); + function ReadSystem(); + function ReadSynonymInfo(); + function WriteStartupPath(_value); + function ReadStartupPath(); + function ReadSpecialMode(); + function ReadSmartArtQuickStyles(); + function ReadSmartArtLayouts(); + function ReadSmartArtColors(); + function WriteShowVisualBasicEditor(_value); + function ReadShowVisualBasicEditor(); + function WriteShowStylePreviews(_value); + function ReadShowStylePreviews(); + function WriteShowStartupDialog(_value); + function ReadShowStartupDialog(); + function ReadSensitivityLabelPolicy(); + function ReadSelection(); + function WriteScreenUpdating(_value); + function ReadScreenUpdating(); + function WriteRestrictLinkedStyles(_value); + function ReadRestrictLinkedStyles(); + function ReadRecentFiles(); + function ReadProtectedViewWindows(); + function WritePrintPreview(_value); + function ReadPrintPreview(); + function ReadPortraitFontNames(); + function ReadPickerDialog(); + function ReadPathSeparator(); + function ReadPath(); + function ReadOptions(); + function WriteOpenAttachmentsInFullScreen(_value); + function ReadOpenAttachmentsInFullScreen(); + function ReadOMathAutoCorrect(); + function ReadNumLock(); + function ReadNormalTemplate(); + function ReadNewDocument(); + function ReadName(); + function ReadMouseAvailable(); + function ReadMathCoprocessorAvailable(); + function ReadMAPIAvailable(); + function ReadMailSystem(); + function ReadMailMessage(); + function ReadMailingLabel(); + function ReadMacroContainer(); + function ReadListGalleries(); + function WriteLeft(_value); + function ReadLeft(); + function ReadLanguageSettings(); + function ReadLanguages(); + function ReadLanguage(); + function ReadLandscapeFontNames(); + function ReadKeysBoundTo(); + function ReadKeyBindings(); + function ReadIsSandboxed(); + function ReadIsObjectValid(); + function ReadInternational(); + function WriteHeight(_value); + function ReadHeight(); + function ReadHangulHanjaDictionaries(); + function ReadFontNames(); + function ReadFocusInMailHeader(); + function ReadFindKey(); + function WriteFileValidation(_value); + function ReadFileValidation(); + function ReadFileDialog(); + function ReadFileConverters(); + function WriteFeatureInstall(_value); + function ReadFeatureInstall(); + function WriteEnableCancelKey(_value); + function ReadEnableCancelKey(); + function WriteEmailTemplate(_value); + function ReadEmailTemplate(); + function ReadEmailOptions(); + function WriteDontResetInsertionPointProperties(_value); + function ReadDontResetInsertionPointProperties(); + function ReadDocuments(index: string_or_integer); + function WriteDisplayScrollBars(_value); + function ReadDisplayScrollBars(); + function WriteDisplayScreenTips(_value); + function ReadDisplayScreenTips(); + function WriteDisplayRecentFiles(_value); + function ReadDisplayRecentFiles(); + function WriteDisplayDocumentInformationPanel(_value); + function ReadDisplayDocumentInformationPanel(); + function WriteDisplayAutoCompleteTips(_value); + function ReadDisplayAutoCompleteTips(); + function WriteDisplayAlerts(_value); + function ReadDisplayAlerts(); + function ReadDialogs(); + function WriteDefaultTableSeparator(_value); + function ReadDefaultTableSeparator(); + function WriteDefaultSaveFormat(_value); + function ReadDefaultSaveFormat(); + function WriteDefaultLegalBlackline(_value); + function ReadDefaultLegalBlackline(); + function WriteCustomizationContext(_value); + function ReadCustomizationContext(); + function ReadCustomDictionaries(); + function ReadCommandBars(); + function ReadCOMAddIns(); + function WriteCheckLanguage(_value); + function ReadCheckLanguage(); + function WriteChartDataPointTrack(_value); + function ReadChartDataPointTrack(); + function ReadCaptionLabels(); + function WriteCaption(_value); + function ReadCaption(); + function ReadCapsLock(); + function ReadBuild(); + function ReadBrowser(); + function WriteBrowseExtraFileTypes(_value); + function ReadBrowseExtraFileTypes(); + function ReadBibliography(); + function ReadBackgroundSavingStatus(); + function ReadBackgroundPrintingStatus(); + function WriteAutomationSecurity(_value); + function ReadAutomationSecurity(); + function ReadAutoCorrectEmail(); + function ReadAutoCorrect(); + function ReadAutoCaptions(); + function ReadAssistance(); + function ReadArbitraryXMLSupportAvailable(); + function ReadAddIns(); + function ReadActiveWindow(); + function ReadActiveProtectedViewWindow(); + function WriteActivePrinter(_value); + function ReadActivePrinter(); + function ReadActiveEncryptionSession(); + function ReadActiveDocument(); + +private + documents_: Documents; +end; + +type AutoCaption = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AutoInsert read ReadAutoInsert write WriteAutoInsert; + property CaptionLabel read ReadCaptionLabel write WriteCaptionLabel; + property Index read ReadIndex; + property Name read ReadName write WriteName; + function ReadAutoInsert(); + function WriteAutoInsert(_value); + function ReadCaptionLabel(); + function WriteCaptionLabel(_value); + function ReadIndex(); + function ReadName(); + function WriteName(_value); +end; + +type AutoCaptions = class(VbaBase) +public + function Init(); + +public + // methods + function CancelAutoInsert(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type AutoCorrect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property CorrectCapsLock read ReadCorrectCapsLock write WriteCorrectCapsLock; + property CorrectDays read ReadCorrectDays write WriteCorrectDays; + property CorrectHangulAndAlphabet read ReadCorrectHangulAndAlphabet write WriteCorrectHangulAndAlphabet; + property CorrectInitialCaps read ReadCorrectInitialCaps write WriteCorrectInitialCaps; + property CorrectKeyboardSetting read ReadCorrectKeyboardSetting write WriteCorrectKeyboardSetting; + property CorrectSentenceCaps read ReadCorrectSentenceCaps write WriteCorrectSentenceCaps; + property CorrectTableCells read ReadCorrectTableCells write WriteCorrectTableCells; + property DisplayAutoCorrectOptions read ReadDisplayAutoCorrectOptions write WriteDisplayAutoCorrectOptions; + property Entries read ReadEntries; + property FirstLetterAutoAdd read ReadFirstLetterAutoAdd write WriteFirstLetterAutoAdd; + property FirstLetterExceptions read ReadFirstLetterExceptions; + property HangulAndAlphabetAutoAdd read ReadHangulAndAlphabetAutoAdd write WriteHangulAndAlphabetAutoAdd; + property HangulAndAlphabetExceptions read ReadHangulAndAlphabetExceptions; + property OtherCorrectionsAutoAdd read ReadOtherCorrectionsAutoAdd write WriteOtherCorrectionsAutoAdd; + property OtherCorrectionsExceptions read ReadOtherCorrectionsExceptions; + property ReplaceText read ReadReplaceText write WriteReplaceText; + property ReplaceTextFromSpellingChecker read ReadReplaceTextFromSpellingChecker write WriteReplaceTextFromSpellingChecker; + property TwoInitialCapsAutoAdd read ReadTwoInitialCapsAutoAdd write WriteTwoInitialCapsAutoAdd; + property TwoInitialCapsExceptions read ReadTwoInitialCapsExceptions; + function ReadCorrectCapsLock(); + function WriteCorrectCapsLock(_value); + function ReadCorrectDays(); + function WriteCorrectDays(_value); + function ReadCorrectHangulAndAlphabet(); + function WriteCorrectHangulAndAlphabet(_value); + function ReadCorrectInitialCaps(); + function WriteCorrectInitialCaps(_value); + function ReadCorrectKeyboardSetting(); + function WriteCorrectKeyboardSetting(_value); + function ReadCorrectSentenceCaps(); + function WriteCorrectSentenceCaps(_value); + function ReadCorrectTableCells(); + function WriteCorrectTableCells(_value); + function ReadDisplayAutoCorrectOptions(); + function WriteDisplayAutoCorrectOptions(_value); + function ReadEntries(); + function ReadFirstLetterAutoAdd(); + function WriteFirstLetterAutoAdd(_value); + function ReadFirstLetterExceptions(); + function ReadHangulAndAlphabetAutoAdd(); + function WriteHangulAndAlphabetAutoAdd(_value); + function ReadHangulAndAlphabetExceptions(); + function ReadOtherCorrectionsAutoAdd(); + function WriteOtherCorrectionsAutoAdd(_value); + function ReadOtherCorrectionsExceptions(); + function ReadReplaceText(); + function WriteReplaceText(_value); + function ReadReplaceTextFromSpellingChecker(); + function WriteReplaceTextFromSpellingChecker(_value); + function ReadTwoInitialCapsAutoAdd(); + function WriteTwoInitialCapsAutoAdd(_value); + function ReadTwoInitialCapsExceptions(); +end; + +type AutoCorrectEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Value); + function AddRichText(Name, Range); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type AutoCorrectEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Apply(Range); + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName write WriteName; + property RichText read ReadRichText; + property Value read ReadValue write WriteValue; + function ReadIndex(); + function ReadName(); + function WriteName(_value); + function ReadRichText(); + function ReadValue(); + function WriteValue(_value); +end; + +type AutoTextEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Range); + function AppendToSpike(Range); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type AutoTextEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Insert(Where, RichText); + + // properties + property Index read ReadIndex; + property Name read ReadName write WriteName; + property StyleName read ReadStyleName; + property Value read ReadValue write WriteValue; + function ReadIndex(); + function ReadName(); + function WriteName(_value); + function ReadStyleName(); + function ReadValue(); + function WriteValue(_value); +end; + +type Axes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Type, AxisGroup); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Axis = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property AxisBetweenCategories read ReadAxisBetweenCategories write WriteAxisBetweenCategories; + property AxisGroup read ReadAxisGroup; + property AxisTitle read ReadAxisTitle; + property BaseUnit read ReadBaseUnit write WriteBaseUnit; + property BaseUnitIsAuto read ReadBaseUnitIsAuto write WriteBaseUnitIsAuto; + property Border read ReadBorder; + property CategoryNames read ReadCategoryNames write WriteCategoryNames; + property CategoryType read ReadCategoryType write WriteCategoryType; + property Crosses read ReadCrosses write WriteCrosses; + property CrossesAt read ReadCrossesAt write WriteCrossesAt; + property DisplayUnit read ReadDisplayUnit write WriteDisplayUnit; + property DisplayUnitCustom read ReadDisplayUnitCustom write WriteDisplayUnitCustom; + property DisplayUnitLabel read ReadDisplayUnitLabel; + property Format read ReadFormat; + property HasDisplayUnitLabel read ReadHasDisplayUnitLabel write WriteHasDisplayUnitLabel; + property HasMajorGridlines read ReadHasMajorGridlines write WriteHasMajorGridlines; + property HasMinorGridlines read ReadHasMinorGridlines write WriteHasMinorGridlines; + property HasTitle read ReadHasTitle write WriteHasTitle; + property Height read ReadHeight; + property Left read ReadLeft; + property LogBase read ReadLogBase write WriteLogBase; + property MajorGridlines read ReadMajorGridlines; + property MajorTickMark read ReadMajorTickMark write WriteMajorTickMark; + property MajorUnit read ReadMajorUnit write WriteMajorUnit; + property MajorUnitIsAuto read ReadMajorUnitIsAuto write WriteMajorUnitIsAuto; + property MajorUnitScale read ReadMajorUnitScale write WriteMajorUnitScale; + property MaximumScale read ReadMaximumScale write WriteMaximumScale; + property MaximumScaleIsAuto read ReadMaximumScaleIsAuto write WriteMaximumScaleIsAuto; + property MinimumScale read ReadMinimumScale write WriteMinimumScale; + property MinimumScaleIsAuto read ReadMinimumScaleIsAuto write WriteMinimumScaleIsAuto; + property MinorGridlines read ReadMinorGridlines; + property MinorTickMark read ReadMinorTickMark write WriteMinorTickMark; + property MinorUnit read ReadMinorUnit write WriteMinorUnit; + property MinorUnitIsAuto read ReadMinorUnitIsAuto write WriteMinorUnitIsAuto; + property MinorUnitScale read ReadMinorUnitScale write WriteMinorUnitScale; + property ReversePlotOrder read ReadReversePlotOrder write WriteReversePlotOrder; + property ScaleType read ReadScaleType write WriteScaleType; + property TickLabelPosition read ReadTickLabelPosition write WriteTickLabelPosition; + property TickLabels read ReadTickLabels; + property TickLabelSpacing read ReadTickLabelSpacing write WriteTickLabelSpacing; + property TickLabelSpacingIsAuto read ReadTickLabelSpacingIsAuto write WriteTickLabelSpacingIsAuto; + property TickMarkSpacing read ReadTickMarkSpacing write WriteTickMarkSpacing; + property Top read ReadTop; + property Type read ReadType; + property Width read ReadWidth; + function ReadAxisBetweenCategories(); + function WriteAxisBetweenCategories(_value); + function ReadAxisGroup(); + function ReadAxisTitle(); + function ReadBaseUnit(); + function WriteBaseUnit(_value); + function ReadBaseUnitIsAuto(); + function WriteBaseUnitIsAuto(_value); + function ReadBorder(); + function ReadCategoryNames(); + function WriteCategoryNames(_value); + function ReadCategoryType(); + function WriteCategoryType(_value); + function ReadCrosses(); + function WriteCrosses(_value); + function ReadCrossesAt(); + function WriteCrossesAt(_value); + function ReadDisplayUnit(); + function WriteDisplayUnit(_value); + function ReadDisplayUnitCustom(); + function WriteDisplayUnitCustom(_value); + function ReadDisplayUnitLabel(); + function ReadFormat(); + function ReadHasDisplayUnitLabel(); + function WriteHasDisplayUnitLabel(_value); + function ReadHasMajorGridlines(); + function WriteHasMajorGridlines(_value); + function ReadHasMinorGridlines(); + function WriteHasMinorGridlines(_value); + function ReadHasTitle(); + function WriteHasTitle(_value); + function ReadHeight(); + function ReadLeft(); + function ReadLogBase(); + function WriteLogBase(_value); + function ReadMajorGridlines(); + function ReadMajorTickMark(); + function WriteMajorTickMark(_value); + function ReadMajorUnit(); + function WriteMajorUnit(_value); + function ReadMajorUnitIsAuto(); + function WriteMajorUnitIsAuto(_value); + function ReadMajorUnitScale(); + function WriteMajorUnitScale(_value); + function ReadMaximumScale(); + function WriteMaximumScale(_value); + function ReadMaximumScaleIsAuto(); + function WriteMaximumScaleIsAuto(_value); + function ReadMinimumScale(); + function WriteMinimumScale(_value); + function ReadMinimumScaleIsAuto(); + function WriteMinimumScaleIsAuto(_value); + function ReadMinorGridlines(); + function ReadMinorTickMark(); + function WriteMinorTickMark(_value); + function ReadMinorUnit(); + function WriteMinorUnit(_value); + function ReadMinorUnitIsAuto(); + function WriteMinorUnitIsAuto(_value); + function ReadMinorUnitScale(); + function WriteMinorUnitScale(_value); + function ReadReversePlotOrder(); + function WriteReversePlotOrder(_value); + function ReadScaleType(); + function WriteScaleType(_value); + function ReadTickLabelPosition(); + function WriteTickLabelPosition(_value); + function ReadTickLabels(); + function ReadTickLabelSpacing(); + function WriteTickLabelSpacing(_value); + function ReadTickLabelSpacingIsAuto(); + function WriteTickLabelSpacingIsAuto(_value); + function ReadTickMarkSpacing(); + function WriteTickMarkSpacing(_value); + function ReadTop(); + function ReadType(); + function ReadWidth(); +end; + +type AxisTitle = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property IncludeInLayout read ReadIncludeInLayout write WriteIncludeInLayout; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Shadow read ReadShadow write WriteShadow; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth; + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadIncludeInLayout(); + function WriteIncludeInLayout(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); +end; + +type Bibliography = class(VbaBase) +public + function Init(); + +public + // methods + function GenerateUniqueTag(); + + // properties + property BibliographyStyle read ReadBibliographyStyle write WriteBibliographyStyle; + property Sources read ReadSources; + function ReadBibliographyStyle(); + function WriteBibliographyStyle(_value); + function ReadSources(); +end; + +type Bookmark = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(Name); + function Delete(); + function Select(); + + // properties + property Column read ReadColumn; + property Empty read ReadEmpty; + property End read ReadEnd write WriteEnd; + property Name read ReadName; + property Range read ReadRange; + property Start read ReadStart write WriteStart; + property StoryType read ReadStoryType; + function ReadColumn(); + function ReadEmpty(); + function ReadEnd(); + function WriteEnd(_value); + function ReadName(); + function ReadRange(); + function ReadStart(); + function WriteStart(_value); + function ReadStoryType(); +end; + +type Bookmarks = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Range); + function Exists(Name); + function Item(Index); + + // properties + property Count read ReadCount; + property DefaultSorting read ReadDefaultSorting write WriteDefaultSorting; + property ShowHidden read ReadShowHidden write WriteShowHidden; + function ReadCount(); + function ReadDefaultSorting(); + function WriteDefaultSorting(_value); + function ReadShowHidden(); + function WriteShowHidden(_value); +end; + +type Border = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ArtStyle read ReadArtStyle write WriteArtStyle; + property ArtWidth read ReadArtWidth write WriteArtWidth; + property Color read ReadColor write WriteColor; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property Inside read ReadInside; + property LineStyle read ReadLineStyle write WriteLineStyle; + property LineWidth read ReadLineWidth write WriteLineWidth; + property Visible read ReadVisible write WriteVisible; + function ReadArtStyle(); + function WriteArtStyle(_value); + function ReadArtWidth(); + function WriteArtWidth(_value); + function ReadColor(); + function WriteColor(_value); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadInside(); + function ReadLineStyle(); + function WriteLineStyle(_value); + function ReadLineWidth(); + function WriteLineWidth(_value); + function ReadVisible(); + function WriteVisible(_value); +end; + +type Borders = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyPageBordersToAllSections(); + function Item(Index); + + // properties + property AlwaysInFront read ReadAlwaysInFront write WriteAlwaysInFront; + property Count read ReadCount; + property DistanceFrom read ReadDistanceFrom write WriteDistanceFrom; + property DistanceFromBottom read ReadDistanceFromBottom write WriteDistanceFromBottom; + property DistanceFromLeft read ReadDistanceFromLeft write WriteDistanceFromLeft; + property DistanceFromRight read ReadDistanceFromRight write WriteDistanceFromRight; + property DistanceFromTop read ReadDistanceFromTop write WriteDistanceFromTop; + property Enable read ReadEnable write WriteEnable; + property EnableFirstPageInSection read ReadEnableFirstPageInSection write WriteEnableFirstPageInSection; + property EnableOtherPagesInSection read ReadEnableOtherPagesInSection write WriteEnableOtherPagesInSection; + property HasHorizontal read ReadHasHorizontal; + property HasVertical read ReadHasVertical; + property InsideColor read ReadInsideColor write WriteInsideColor; + property InsideColorIndex read ReadInsideColorIndex write WriteInsideColorIndex; + property InsideLineStyle read ReadInsideLineStyle write WriteInsideLineStyle; + property InsideLineWidth read ReadInsideLineWidth write WriteInsideLineWidth; + property JoinBorders read ReadJoinBorders write WriteJoinBorders; + property OutsideColor read ReadOutsideColor write WriteOutsideColor; + property OutsideColorIndex read ReadOutsideColorIndex write WriteOutsideColorIndex; + property OutsideLineStyle read ReadOutsideLineStyle write WriteOutsideLineStyle; + property OutsideLineWidth read ReadOutsideLineWidth write WriteOutsideLineWidth; + property Shadow read ReadShadow write WriteShadow; + property SurroundFooter read ReadSurroundFooter write WriteSurroundFooter; + property SurroundHeader read ReadSurroundHeader write WriteSurroundHeader; + function ReadAlwaysInFront(); + function WriteAlwaysInFront(_value); + function ReadCount(); + function ReadDistanceFrom(); + function WriteDistanceFrom(_value); + function ReadDistanceFromBottom(); + function WriteDistanceFromBottom(_value); + function ReadDistanceFromLeft(); + function WriteDistanceFromLeft(_value); + function ReadDistanceFromRight(); + function WriteDistanceFromRight(_value); + function ReadDistanceFromTop(); + function WriteDistanceFromTop(_value); + function ReadEnable(); + function WriteEnable(_value); + function ReadEnableFirstPageInSection(); + function WriteEnableFirstPageInSection(_value); + function ReadEnableOtherPagesInSection(); + function WriteEnableOtherPagesInSection(_value); + function ReadHasHorizontal(); + function ReadHasVertical(); + function ReadInsideColor(); + function WriteInsideColor(_value); + function ReadInsideColorIndex(); + function WriteInsideColorIndex(_value); + function ReadInsideLineStyle(); + function WriteInsideLineStyle(_value); + function ReadInsideLineWidth(); + function WriteInsideLineWidth(_value); + function ReadJoinBorders(); + function WriteJoinBorders(_value); + function ReadOutsideColor(); + function WriteOutsideColor(_value); + function ReadOutsideColorIndex(); + function WriteOutsideColorIndex(_value); + function ReadOutsideLineStyle(); + function WriteOutsideLineStyle(_value); + function ReadOutsideLineWidth(); + function WriteOutsideLineWidth(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadSurroundFooter(); + function WriteSurroundFooter(_value); + function ReadSurroundHeader(); + function WriteSurroundHeader(_value); +end; + +type Break = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property PageIndex read ReadPageIndex; + property Range read ReadRange; + function ReadPageIndex(); + function ReadRange(); +end; + +type Breaks = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Broadcast = class(VbaBase) +public + function Init(); + +public + // methods + function AddMeetingNotes(notesUrl, notesWacUrl); + function End(); + function Pause(); + function Resume(); + function Start(serverUrl); + + // properties + property AttendeeUrl read ReadAttendeeUrl; + property Capabilities read ReadCapabilities; + property PresenterServiceUrl read ReadPresenterServiceUrl; + property SessionID read ReadSessionID; + property State read ReadState; + function ReadAttendeeUrl(); + function ReadCapabilities(); + function ReadPresenterServiceUrl(); + function ReadSessionID(); + function ReadState(); +end; + +type Browser = class(VbaBase) +public + function Init(); + +public + // methods + function Next(); + function Previous(); + + // properties + property Target read ReadTarget write WriteTarget; + function ReadTarget(); + function WriteTarget(_value); +end; + +type BuildingBlock = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Insert(Where, RichText); + + // properties + property Category read ReadCategory; + property Description read ReadDescription write WriteDescription; + property ID read ReadID; + property Index read ReadIndex; + property InsertOptions read ReadInsertOptions write WriteInsertOptions; + property Name read ReadName write WriteName; + property Type read ReadType; + property Value read ReadValue write WriteValue; + function ReadCategory(); + function ReadDescription(); + function WriteDescription(_value); + function ReadID(); + function ReadIndex(); + function ReadInsertOptions(); + function WriteInsertOptions(_value); + function ReadName(); + function WriteName(_value); + function ReadType(); + function ReadValue(); + function WriteValue(_value); +end; + +type BuildingBlockEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Type, Category, Range, Description, InsertOptions); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type BuildingBlocks = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Range, Description, InsertOptions); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type BuildingBlockType = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Categories read ReadCategories; + property Index read ReadIndex; + property Name read ReadName; + function ReadCategories(); + function ReadIndex(); + function ReadName(); +end; + +type BuildingBlockTypes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CalloutFormat = class(VbaBase) +public + function Init(); + +public + // methods + function CustomDrop(Drop); + function CustomLength(Length); + function PresetDrop(DropType); + + // properties + property Accent read ReadAccent write WriteAccent; + property Angle read ReadAngle write WriteAngle; + property AutoLength read ReadAutoLength; + property Border read ReadBorder write WriteBorder; + property Drop read ReadDrop; + property DropType read ReadDropType; + property Gap read ReadGap write WriteGap; + property Length read ReadLength; + property Type read ReadType write WriteType; + function ReadAccent(); + function WriteAccent(_value); + function ReadAngle(); + function WriteAngle(_value); + function ReadAutoLength(); + function ReadBorder(); + function WriteBorder(_value); + function ReadDrop(); + function ReadDropType(); + function ReadGap(); + function WriteGap(_value); + function ReadLength(); + function ReadType(); + function WriteType(_value); +end; + +type CanvasShapes = class(VbaBase) +public + function Init(); + +public + // methods + function AddCallout(Type, Left, Top, Width, Height); + function AddConnector(Type, BeginX, BeginY, EndX, EndY); + function AddCurve(SafeArrayOfPoints); + function AddLabel(Orientation, Left, Top, Width, Height); + function AddLine(BeginX, BeginY, EndX, EndY); + function AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height); + function AddPolyline(SafeArrayOfPoints); + function AddShape(Type, Left, Top, Width, Height); + function AddTextbox(Orientation, Left, Top, Width, Height); + function AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top); + function BuildFreeform(EditingType, X1, Y1); + function Item(Index); + function Range(Index); + function SelectAll(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CaptionLabel = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property BuiltIn read ReadBuiltIn; + property ChapterStyleLevel read ReadChapterStyleLevel write WriteChapterStyleLevel; + property ID read ReadID; + property IncludeChapterNumber read ReadIncludeChapterNumber write WriteIncludeChapterNumber; + property Name read ReadName; + property NumberStyle read ReadNumberStyle write WriteNumberStyle; + property Position read ReadPosition write WritePosition; + property Separator read ReadSeparator write WriteSeparator; + function ReadBuiltIn(); + function ReadChapterStyleLevel(); + function WriteChapterStyleLevel(_value); + function ReadID(); + function ReadIncludeChapterNumber(); + function WriteIncludeChapterNumber(_value); + function ReadName(); + function ReadNumberStyle(); + function WriteNumberStyle(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadSeparator(); + function WriteSeparator(_value); +end; + +type CaptionLabels = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Categories = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Category = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property BuildingBlocks read ReadBuildingBlocks; + property Index read ReadIndex; + property Name read ReadName; + property Type read ReadType; + function ReadBuildingBlocks(); + function ReadIndex(); + function ReadName(); + function ReadType(); +end; + +type CategoryCollection = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Cell = class(VbaBase) +public + function Init(); + +public + // methods + function AutoSum(); + function Delete(ShiftCells); + function Formula(Formula, NumFormat); + function Merge(MergeTo); + function Select(); + function SetHeight(RowHeight, HeightRule); + function SetWidth(ColumnWidth, RulerStyle); + function Split(NumRows, NumColumns); + + // properties + property Borders read ReadBorders; + property BottomPadding read ReadBottomPadding write WriteBottomPadding; + property Column read ReadColumn; + property ColumnIndex read ReadColumnIndex; + property FitText read ReadFitText write WriteFitText; + property Height read ReadHeight write WriteHeight; + property HeightRule read ReadHeightRule write WriteHeightRule; + property ID read ReadID write WriteID; + property LeftPadding read ReadLeftPadding write WriteLeftPadding; + property NestingLevel read ReadNestingLevel; + property Next read ReadNext; + property PreferredWidth read ReadPreferredWidth write WritePreferredWidth; + property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType; + property Previous read ReadPrevious; + property Range read ReadRange; + property RightPadding read ReadRightPadding write WriteRightPadding; + property Row read ReadRow; + property RowIndex read ReadRowIndex; + property Shading read ReadShading; + property Tables read ReadTables; + property TopPadding read ReadTopPadding write WriteTopPadding; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth write WriteWidth; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadBorders(); + function ReadBottomPadding(); + function WriteBottomPadding(_value); + function ReadColumn(); + function ReadColumnIndex(); + function ReadFitText(); + function WriteFitText(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightRule(); + function WriteHeightRule(_value); + function ReadID(); + function WriteID(_value); + function ReadLeftPadding(); + function WriteLeftPadding(_value); + function ReadNestingLevel(); + function ReadNext(); + function ReadPreferredWidth(); + function WritePreferredWidth(_value); + function ReadPreferredWidthType(); + function WritePreferredWidthType(_value); + function ReadPrevious(); + function ReadRange(); + function ReadRightPadding(); + function WriteRightPadding(_value); + function ReadRow(); + function ReadRowIndex(); + function ReadShading(); + function ReadTables(); + function ReadTopPadding(); + function WriteTopPadding(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); +end; + +type Cells = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeCell); + function AutoFit(); + function Delete(ShiftCells); + function DistributeHeight(); + function DistributeWidth(); + function Item(Index); + function Merge(); + function SetHeight(RowHeight, HeightRule); + function SetWidth(ColumnWidth, RulerStyle); + function Split(NumRows, NumColumns, MergeBeforeSplit); + + // properties + property Borders read ReadBorders; + property Count read ReadCount; + property Height read ReadHeight write WriteHeight; + property HeightRule read ReadHeightRule write WriteHeightRule; + property NestingLevel read ReadNestingLevel; + property PreferredWidth read ReadPreferredWidth write WritePreferredWidth; + property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType; + property Shading read ReadShading; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth write WriteWidth; + function ReadBorders(); + function ReadCount(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightRule(); + function WriteHeightRule(_value); + function ReadNestingLevel(); + function ReadPreferredWidth(); + function WritePreferredWidth(_value); + function ReadPreferredWidthType(); + function WritePreferredWidthType(_value); + function ReadShading(); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Characters = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + property First read ReadFirst; + property Last read ReadLast; + function ReadCount(); + function ReadFirst(); + function ReadLast(); +end; + +type Chart = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyChartTemplate(FileName); + function ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator); + function ApplyLayout(Layout, ChartType); + function Axes(Type, AxisGroup); + function ChartWizard(Source, Gallery, Format, PlotBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle); + function ClearToMatchColorStyle(); + function ClearToMatchStyle(); + function Copy(Before, After); + function CopyPicture(Appearance, Format, Size); + function Delete(); + function Export(FileName, FilterName, Interactive); + function FullSeriesCollection(Index); + function GetChartElement(x, y, ElementID, Arg1, Arg2); + function Paste(Type); + function Refresh(); + function SaveChartTemplate(FileName); + function Select(Replace); + function SeriesCollection(Index); + function SetBackgroundPicture(FileName); + function SetDefaultChart(Name); + function SetElement(Element); + function SetSourceData(Source, PlotBy); + function ChartGroups(Index); + function HasAxis(Index1, Index2); + + // properties + property AutoScaling read ReadAutoScaling write WriteAutoScaling; + property BackWall read ReadBackWall; + property BarShape read ReadBarShape write WriteBarShape; + property CategoryLabelLevel read ReadCategoryLabelLevel write WriteCategoryLabelLevel; + property ChartArea read ReadChartArea; + property ChartColor read ReadChartColor write WriteChartColor; + property ChartData read ReadChartData; + property ChartStyle read ReadChartStyle write WriteChartStyle; + property ChartTitle read ReadChartTitle; + property ChartType read ReadChartType write WriteChartType; + property DataTable read ReadDataTable; + property DepthPercent read ReadDepthPercent write WriteDepthPercent; + property DisplayBlanksAs read ReadDisplayBlanksAs write WriteDisplayBlanksAs; + property Elevation read ReadElevation write WriteElevation; + property Floor read ReadFloor; + property GapDepth read ReadGapDepth write WriteGapDepth; + property HasDataTable read ReadHasDataTable write WriteHasDataTable; + property HasLegend read ReadHasLegend write WriteHasLegend; + property HasTitle read ReadHasTitle write WriteHasTitle; + property HeightPercent read ReadHeightPercent write WriteHeightPercent; + property Legend read ReadLegend; + property Perspective read ReadPerspective write WritePerspective; + property PivotLayout read ReadPivotLayout; + property PlotArea read ReadPlotArea; + property PlotBy read ReadPlotBy write WritePlotBy; + property PlotVisibleOnly read ReadPlotVisibleOnly write WritePlotVisibleOnly; + property RightAngleAxes read ReadRightAngleAxes write WriteRightAngleAxes; + property Rotation read ReadRotation write WriteRotation; + property SeriesNameLevel read ReadSeriesNameLevel write WriteSeriesNameLevel; + property Shapes read ReadShapes; + property ShowAllFieldButtons read ReadShowAllFieldButtons write WriteShowAllFieldButtons; + property ShowAxisFieldButtons read ReadShowAxisFieldButtons write WriteShowAxisFieldButtons; + property ShowDataLabelsOverMaximum read ReadShowDataLabelsOverMaximum write WriteShowDataLabelsOverMaximum; + property ShowLegendFieldButtons read ReadShowLegendFieldButtons write WriteShowLegendFieldButtons; + property ShowReportFilterFieldButtons read ReadShowReportFilterFieldButtons write WriteShowReportFilterFieldButtons; + property ShowValueFieldButtons read ReadShowValueFieldButtons write WriteShowValueFieldButtons; + property SideWall read ReadSideWall; + property Walls read ReadWalls; + function ReadAutoScaling(); + function WriteAutoScaling(_value); + function ReadBackWall(); + function ReadBarShape(); + function WriteBarShape(_value); + function ReadCategoryLabelLevel(); + function WriteCategoryLabelLevel(_value); + function ReadChartArea(); + function ReadChartColor(); + function WriteChartColor(_value); + function ReadChartData(); + function ReadChartStyle(); + function WriteChartStyle(_value); + function ReadChartTitle(); + function ReadChartType(); + function WriteChartType(_value); + function ReadDataTable(); + function ReadDepthPercent(); + function WriteDepthPercent(_value); + function ReadDisplayBlanksAs(); + function WriteDisplayBlanksAs(_value); + function ReadElevation(); + function WriteElevation(_value); + function ReadFloor(); + function ReadGapDepth(); + function WriteGapDepth(_value); + function ReadHasDataTable(); + function WriteHasDataTable(_value); + function ReadHasLegend(); + function WriteHasLegend(_value); + function ReadHasTitle(); + function WriteHasTitle(_value); + function ReadHeightPercent(); + function WriteHeightPercent(_value); + function ReadLegend(); + function ReadPerspective(); + function WritePerspective(_value); + function ReadPivotLayout(); + function ReadPlotArea(); + function ReadPlotBy(); + function WritePlotBy(_value); + function ReadPlotVisibleOnly(); + function WritePlotVisibleOnly(_value); + function ReadRightAngleAxes(); + function WriteRightAngleAxes(_value); + function ReadRotation(); + function WriteRotation(_value); + function ReadSeriesNameLevel(); + function WriteSeriesNameLevel(_value); + function ReadShapes(); + function ReadShowAllFieldButtons(); + function WriteShowAllFieldButtons(_value); + function ReadShowAxisFieldButtons(); + function WriteShowAxisFieldButtons(_value); + function ReadShowDataLabelsOverMaximum(); + function WriteShowDataLabelsOverMaximum(_value); + function ReadShowLegendFieldButtons(); + function WriteShowLegendFieldButtons(_value); + function ReadShowReportFilterFieldButtons(); + function WriteShowReportFilterFieldButtons(_value); + function ReadShowValueFieldButtons(); + function WriteShowValueFieldButtons(_value); + function ReadSideWall(); + function ReadWalls(); +end; + +type ChartArea = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + function ClearContents(); + function ClearFormats(); + function Copy(); + function Select(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight write WriteHeight; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Shadow read ReadShadow write WriteShadow; + property Top read ReadTop write WriteTop; + property Width read ReadWidth write WriteWidth; + function ReadFormat(); + function ReadHeight(); + function WriteHeight(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadShadow(); + function WriteShadow(_value); + function ReadTop(); + function WriteTop(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type ChartBorder = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Color read ReadColor write WriteColor; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property LineStyle read ReadLineStyle write WriteLineStyle; + property Weight read ReadWeight write WriteWeight; + function ReadColor(); + function WriteColor(_value); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadLineStyle(); + function WriteLineStyle(_value); + function ReadWeight(); + function WriteWeight(_value); +end; + +type ChartCategory = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property IsFiltered read ReadIsFiltered write WriteIsFiltered; + property Name read ReadName write WriteName; + function ReadIsFiltered(); + function WriteIsFiltered(_value); + function ReadName(); + function WriteName(_value); +end; + +type ChartCharacters = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Insert(String); + + // properties + property Caption read ReadCaption; + property Count read ReadCount; + property Font read ReadFont; + property PhoneticCharacters read ReadPhoneticCharacters write WritePhoneticCharacters; + property Text read ReadText write WriteText; + function ReadCaption(); + function ReadCount(); + function ReadFont(); + function ReadPhoneticCharacters(); + function WritePhoneticCharacters(_value); + function ReadText(); + function WriteText(_value); +end; + +type ChartColorFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property RGB read ReadRGB; + property SchemeColor read ReadSchemeColor write WriteSchemeColor; + property Type read ReadType; + function ReadRGB(); + function ReadSchemeColor(); + function WriteSchemeColor(_value); + function ReadType(); +end; + +type ChartData = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function ActivateChartDataWindow(); + function BreakLink(); + + // properties + property IsLinked read ReadIsLinked; + property Workbook read ReadWorkbook; + function ReadIsLinked(); + function ReadWorkbook(); +end; + +type ChartFont = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Background read ReadBackground write WriteBackground; + property Bold read ReadBold write WriteBold; + property Color read ReadColor write WriteColor; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property FontStyle read ReadFontStyle write WriteFontStyle; + property Italic read ReadItalic write WriteItalic; + property Name read ReadName write WriteName; + property Size read ReadSize write WriteSize; + property StrikeThrough read ReadStrikeThrough write WriteStrikeThrough; + property Subscript read ReadSubscript write WriteSubscript; + property Superscript read ReadSuperscript write WriteSuperscript; + property Underline read ReadUnderline write WriteUnderline; + function ReadBackground(); + function WriteBackground(_value); + function ReadBold(); + function WriteBold(_value); + function ReadColor(); + function WriteColor(_value); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadFontStyle(); + function WriteFontStyle(_value); + function ReadItalic(); + function WriteItalic(_value); + function ReadName(); + function WriteName(_value); + function ReadSize(); + function WriteSize(_value); + function ReadStrikeThrough(); + function WriteStrikeThrough(_value); + function ReadSubscript(); + function WriteSubscript(_value); + function ReadSuperscript(); + function WriteSuperscript(_value); + function ReadUnderline(); + function WriteUnderline(_value); +end; + +type ChartFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Adjustments read ReadAdjustments; + property AutoShapeType read ReadAutoShapeType write WriteAutoShapeType; + property Fill read ReadFill; + property Glow read ReadGlow; + property Line read ReadLine; + property PictureFormat read ReadPictureFormat; + property Shadow read ReadShadow; + property SoftEdge read ReadSoftEdge; + property TextFrame2 read ReadTextFrame2; + property ThreeD read ReadThreeD; + function ReadAdjustments(); + function ReadAutoShapeType(); + function WriteAutoShapeType(_value); + function ReadFill(); + function ReadGlow(); + function ReadLine(); + function ReadPictureFormat(); + function ReadShadow(); + function ReadSoftEdge(); + function ReadTextFrame2(); + function ReadThreeD(); +end; + +type ChartGroup = class(VbaBase) +public + function Init(); + +public + // methods + function CategoryCollection(Index); + function FullCategoryCollection(Index); + function SeriesCollection(Index); + + // properties + property AxisGroup read ReadAxisGroup write WriteAxisGroup; + property BinsCountValue read ReadBinsCountValue write WriteBinsCountValue; + property BinsOverflowEnabled read ReadBinsOverflowEnabled write WriteBinsOverflowEnabled; + property BinsOverflowValue read ReadBinsOverflowValue write WriteBinsOverflowValue; + property BinsType read ReadBinsType write WriteBinsType; + property BinsUnderflowEnabled read ReadBinsUnderflowEnabled write WriteBinsUnderflowEnabled; + property BinsUnderflowValue read ReadBinsUnderflowValue write WriteBinsUnderflowValue; + property BinWidthValue read ReadBinWidthValue write WriteBinWidthValue; + property BubbleScale read ReadBubbleScale write WriteBubbleScale; + property DoughnutHoleSize read ReadDoughnutHoleSize write WriteDoughnutHoleSize; + property DownBars read ReadDownBars; + property DropLines read ReadDropLines; + property FirstSliceAngle read ReadFirstSliceAngle write WriteFirstSliceAngle; + property GapWidth read ReadGapWidth write WriteGapWidth; + property Has3DShading read ReadHas3DShading write WriteHas3DShading; + property HasDropLines read ReadHasDropLines write WriteHasDropLines; + property HasHiLoLines read ReadHasHiLoLines write WriteHasHiLoLines; + property HasRadarAxisLabels read ReadHasRadarAxisLabels write WriteHasRadarAxisLabels; + property HasSeriesLines read ReadHasSeriesLines write WriteHasSeriesLines; + property HasUpDownBars read ReadHasUpDownBars write WriteHasUpDownBars; + property HiLoLines read ReadHiLoLines; + property Index read ReadIndex; + property Overlap read ReadOverlap write WriteOverlap; + property RadarAxisLabels read ReadRadarAxisLabels; + property SecondPlotSize read ReadSecondPlotSize write WriteSecondPlotSize; + property SeriesLines read ReadSeriesLines; + property ShowNegativeBubbles read ReadShowNegativeBubbles write WriteShowNegativeBubbles; + property SizeRepresents read ReadSizeRepresents write WriteSizeRepresents; + property SplitType read ReadSplitType write WriteSplitType; + property SplitValue read ReadSplitValue write WriteSplitValue; + property UpBars read ReadUpBars; + property VaryByCategories read ReadVaryByCategories write WriteVaryByCategories; + function ReadAxisGroup(); + function WriteAxisGroup(_value); + function ReadBinsCountValue(); + function WriteBinsCountValue(_value); + function ReadBinsOverflowEnabled(); + function WriteBinsOverflowEnabled(_value); + function ReadBinsOverflowValue(); + function WriteBinsOverflowValue(_value); + function ReadBinsType(); + function WriteBinsType(_value); + function ReadBinsUnderflowEnabled(); + function WriteBinsUnderflowEnabled(_value); + function ReadBinsUnderflowValue(); + function WriteBinsUnderflowValue(_value); + function ReadBinWidthValue(); + function WriteBinWidthValue(_value); + function ReadBubbleScale(); + function WriteBubbleScale(_value); + function ReadDoughnutHoleSize(); + function WriteDoughnutHoleSize(_value); + function ReadDownBars(); + function ReadDropLines(); + function ReadFirstSliceAngle(); + function WriteFirstSliceAngle(_value); + function ReadGapWidth(); + function WriteGapWidth(_value); + function ReadHas3DShading(); + function WriteHas3DShading(_value); + function ReadHasDropLines(); + function WriteHasDropLines(_value); + function ReadHasHiLoLines(); + function WriteHasHiLoLines(_value); + function ReadHasRadarAxisLabels(); + function WriteHasRadarAxisLabels(_value); + function ReadHasSeriesLines(); + function WriteHasSeriesLines(_value); + function ReadHasUpDownBars(); + function WriteHasUpDownBars(_value); + function ReadHiLoLines(); + function ReadIndex(); + function ReadOverlap(); + function WriteOverlap(_value); + function ReadRadarAxisLabels(); + function ReadSecondPlotSize(); + function WriteSecondPlotSize(_value); + function ReadSeriesLines(); + function ReadShowNegativeBubbles(); + function WriteShowNegativeBubbles(_value); + function ReadSizeRepresents(); + function WriteSizeRepresents(_value); + function ReadSplitType(); + function WriteSplitType(_value); + function ReadSplitValue(); + function WriteSplitValue(_value); + function ReadUpBars(); + function ReadVaryByCategories(); + function WriteVaryByCategories(_value); +end; + +type ChartGroups = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ChartTitle = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property IncludeInLayout read ReadIncludeInLayout write WriteIncludeInLayout; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Shadow read ReadShadow write WriteShadow; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth; + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadIncludeInLayout(); + function WriteIncludeInLayout(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); +end; + +type CheckBox = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AutoSize read ReadAutoSize write WriteAutoSize; + property Default read ReadDefault write WriteDefault; + property Size read ReadSize write WriteSize; + property Valid read ReadValid; + property Value read ReadValue write WriteValue; + function ReadAutoSize(); + function WriteAutoSize(_value); + function ReadDefault(); + function WriteDefault(_value); + function ReadSize(); + function WriteSize(_value); + function ReadValid(); + function ReadValue(); + function WriteValue(_value); +end; + +type CoAuthLock = class(VbaBase) +public + function Init(); + +public + // methods + function Unlock(); + + // properties + property Owner read ReadOwner; + property Range read ReadRange; + property Type read ReadType; + function ReadOwner(); + function ReadRange(); + function ReadType(); +end; + +type CoAuthLocks = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Type); + function Item(Index); + function RemoveEphemeralLocks(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CoAuthor = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property EmailAddress read ReadEmailAddress; + property ID read ReadID; + property IsMe read ReadIsMe; + property Locks read ReadLocks; + property Name read ReadName; + function ReadEmailAddress(); + function ReadID(); + function ReadIsMe(); + function ReadLocks(); + function ReadName(); +end; + +type CoAuthoring = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Authors read ReadAuthors; + property CanMerge read ReadCanMerge; + property CanShare read ReadCanShare; + property Conflicts read ReadConflicts; + property Locks read ReadLocks; + property Me read ReadMe; + property PendingUpdates read ReadPendingUpdates; + property Updates read ReadUpdates; + function ReadAuthors(); + function ReadCanMerge(); + function ReadCanShare(); + function ReadConflicts(); + function ReadLocks(); + function ReadMe(); + function ReadPendingUpdates(); + function ReadUpdates(); +end; + +type CoAuthors = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CoAuthUpdate = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Range read ReadRange; + function ReadRange(); +end; + +type CoAuthUpdates = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ColorFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Brightness read ReadBrightness write WriteBrightness; + property ObjectThemeColor read ReadObjectThemeColor write WriteObjectThemeColor; + property RGB read ReadRGB write WriteRGB; + property TintAndShade read ReadTintAndShade write WriteTintAndShade; + property Type read ReadType write WriteType; + function ReadBrightness(); + function WriteBrightness(_value); + function ReadObjectThemeColor(); + function WriteObjectThemeColor(_value); + function ReadRGB(); + function WriteRGB(_value); + function ReadTintAndShade(); + function WriteTintAndShade(_value); + function ReadType(); + function WriteType(_value); +end; + +type Column = class(VbaBase) +public + function Init(); + +public + // methods + function AutoFit(); + function Delete(); + function Select(); + function SetWidth(ColumnWidth, RulerStyle); + function Sort(ExcludeHeader, SortFieldType, SortOrder, CaseSensitive, BidiSort, IgnoreThe, IgnoreKashida, IgnoreDiacritics, IgnoreHe, LanguageID); + + // properties + property Borders read ReadBorders; + property Cells read ReadCells; + property Index read ReadIndex; + property IsFirst read ReadIsFirst; + property IsLast read ReadIsLast; + property NestingLevel read ReadNestingLevel; + property Next read ReadNext; + property PreferredWidth read ReadPreferredWidth write WritePreferredWidth; + property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType; + property Previous read ReadPrevious; + property Shading read ReadShading; + property Width read ReadWidth write WriteWidth; + function ReadBorders(); + function ReadCells(); + function ReadIndex(); + function ReadIsFirst(); + function ReadIsLast(); + function ReadNestingLevel(); + function ReadNext(); + function ReadPreferredWidth(); + function WritePreferredWidth(_value); + function ReadPreferredWidthType(); + function WritePreferredWidthType(_value); + function ReadPrevious(); + function ReadShading(); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Columns = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeColumn); + function AutoFit(); + function Delete(); + function DistributeWidth(); + function Item(Index); + function Select(); + function SetWidth(ColumnWidth, RulerStyle); + + // properties + property Borders read ReadBorders; + property Count read ReadCount; + property First read ReadFirst; + property Last read ReadLast; + property NestingLevel read ReadNestingLevel; + property PreferredWidth read ReadPreferredWidth write WritePreferredWidth; + property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType; + property Shading read ReadShading; + property Width read ReadWidth write WriteWidth; + function ReadBorders(); + function ReadCount(); + function ReadFirst(); + function ReadLast(); + function ReadNestingLevel(); + function ReadPreferredWidth(); + function WritePreferredWidth(_value); + function ReadPreferredWidthType(); + function WritePreferredWidthType(_value); + function ReadShading(); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Comment = class(VbaBase) +public + function Init(); + +public + // methods + function DeleteRecursively(); + function Edit(); + + // properties + property Ancestor read ReadAncestor; + property Contact read ReadContact; + property Date read ReadDate; + property Done read ReadDone write WriteDone; + property Index read ReadIndex; + property IsInk read ReadIsInk; + property Range read ReadRange; + property Reference read ReadReference; + property Replies read ReadReplies; + property Scope read ReadScope; + function ReadAncestor(); + function ReadContact(); + function ReadDate(); + function ReadDone(); + function WriteDone(_value); + function ReadIndex(); + function ReadIsInk(); + function ReadRange(); + function ReadReference(); + function ReadReplies(); + function ReadScope(); +end; + +type Comments = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Text); + function Item(Index); + + // properties + property Count read ReadCount; + property ShowBy read ReadShowBy write WriteShowBy; + function ReadCount(); + function ReadShowBy(); + function WriteShowBy(_value); +end; + +type ConditionalStyle = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Borders read ReadBorders; + property BottomPadding read ReadBottomPadding write WriteBottomPadding; + property Font read ReadFont write WriteFont; + property LeftPadding read ReadLeftPadding write WriteLeftPadding; + property ParagraphFormat read ReadParagraphFormat write WriteParagraphFormat; + property RightPadding read ReadRightPadding write WriteRightPadding; + property Shading read ReadShading; + property TopPadding read ReadTopPadding write WriteTopPadding; + function ReadBorders(); + function ReadBottomPadding(); + function WriteBottomPadding(_value); + function ReadFont(); + function WriteFont(_value); + function ReadLeftPadding(); + function WriteLeftPadding(_value); + function ReadParagraphFormat(); + function WriteParagraphFormat(_value); + function ReadRightPadding(); + function WriteRightPadding(_value); + function ReadShading(); + function ReadTopPadding(); + function WriteTopPadding(_value); +end; + +type Conflict = class(VbaBase) +public + function Init(); + +public + // methods + function Accept(); + function Reject(); + + // properties + property Index read ReadIndex; + property Range read ReadRange; + property Type read ReadType; + function ReadIndex(); + function ReadRange(); + function ReadType(); +end; + +type Conflicts = class(VbaBase) +public + function Init(); + +public + // methods + function AcceptAll(); + function Item(Index); + function RejectAll(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ContentControl = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(DeleteContents); + function SetCheckedSymbol(CharacterNumber, Font); + function SetPlaceholderText(BuildingBlock, Range, Text); + function SetCheckedSymbol(CharacterNumber, Font); + function Ungroup(); + + // properties + property AllowInsertDeleteSection read ReadAllowInsertDeleteSection; + property Appearance read ReadAppearance write WriteAppearance; + property BuildingBlockCategory read ReadBuildingBlockCategory write WriteBuildingBlockCategory; + property BuildingBlockType read ReadBuildingBlockType write WriteBuildingBlockType; + property Checked read ReadChecked write WriteChecked; + property Color read ReadColor write WriteColor; + property DateCalendarType read ReadDateCalendarType write WriteDateCalendarType; + property DateDisplayFormat read ReadDateDisplayFormat write WriteDateDisplayFormat; + property DateDisplayLocale read ReadDateDisplayLocale write WriteDateDisplayLocale; + property DateStorageFormat read ReadDateStorageFormat write WriteDateStorageFormat; + property DefaultTextStyle read ReadDefaultTextStyle write WriteDefaultTextStyle; + property DropdownListEntries read ReadDropdownListEntries; + property ID read ReadID; + property Level read ReadLevel; + property LockContentControl read ReadLockContentControl write WriteLockContentControl; + property LockContents read ReadLockContents write WriteLockContents; + property MultiLine read ReadMultiLine write WriteMultiLine; + property ParentContentControl read ReadParentContentControl; + property PlaceholderText read ReadPlaceholderText; + property Range read ReadRange; + property RepeatingSectionItems read ReadRepeatingSectionItems; + property RepeatingSectionItemTitle read ReadRepeatingSectionItemTitle write WriteRepeatingSectionItemTitle; + property ShowingPlaceholderText read ReadShowingPlaceholderText; + property Tag read ReadTag write WriteTag; + property Temporary read ReadTemporary write WriteTemporary; + property Title read ReadTitle write WriteTitle; + property Type read ReadType write WriteType; + property XMLMapping read ReadXMLMapping; + function ReadAllowInsertDeleteSection(); + function ReadAppearance(); + function WriteAppearance(_value); + function ReadBuildingBlockCategory(); + function WriteBuildingBlockCategory(_value); + function ReadBuildingBlockType(); + function WriteBuildingBlockType(_value); + function ReadChecked(); + function WriteChecked(_value); + function ReadColor(); + function WriteColor(_value); + function ReadDateCalendarType(); + function WriteDateCalendarType(_value); + function ReadDateDisplayFormat(); + function WriteDateDisplayFormat(_value); + function ReadDateDisplayLocale(); + function WriteDateDisplayLocale(_value); + function ReadDateStorageFormat(); + function WriteDateStorageFormat(_value); + function ReadDefaultTextStyle(); + function WriteDefaultTextStyle(_value); + function ReadDropdownListEntries(); + function ReadID(); + function ReadLevel(); + function ReadLockContentControl(); + function WriteLockContentControl(_value); + function ReadLockContents(); + function WriteLockContents(_value); + function ReadMultiLine(); + function WriteMultiLine(_value); + function ReadParentContentControl(); + function ReadPlaceholderText(); + function ReadRange(); + function ReadRepeatingSectionItems(); + function ReadRepeatingSectionItemTitle(); + function WriteRepeatingSectionItemTitle(_value); + function ReadShowingPlaceholderText(); + function ReadTag(); + function WriteTag(_value); + function ReadTemporary(); + function WriteTemporary(_value); + function ReadTitle(); + function WriteTitle(_value); + function ReadType(); + function WriteType(_value); + function ReadXMLMapping(); +end; + +type ContentControlListEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Text, Value, Index); + function Clear(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ContentControlListEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function MoveDown(); + function MoveUp(); + function Select(); + + // properties + property Index read ReadIndex write WriteIndex; + property Text read ReadText write WriteText; + property Value read ReadValue write WriteValue; + function ReadIndex(); + function WriteIndex(_value); + function ReadText(); + function WriteText(_value); + function ReadValue(); + function WriteValue(_value); +end; + +type ContentControls = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Type, Range); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CustomLabel = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property DotMatrix read ReadDotMatrix; + property Height read ReadHeight write WriteHeight; + property HorizontalPitch read ReadHorizontalPitch write WriteHorizontalPitch; + property Index read ReadIndex; + property Name read ReadName write WriteName; + property NumberAcross read ReadNumberAcross write WriteNumberAcross; + property NumberDown read ReadNumberDown write WriteNumberDown; + property PageSize read ReadPageSize write WritePageSize; + property SideMargin read ReadSideMargin write WriteSideMargin; + property TopMargin read ReadTopMargin write WriteTopMargin; + property Valid read ReadValid; + property VerticalPitch read ReadVerticalPitch write WriteVerticalPitch; + property Width read ReadWidth write WriteWidth; + function ReadDotMatrix(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHorizontalPitch(); + function WriteHorizontalPitch(_value); + function ReadIndex(); + function ReadName(); + function WriteName(_value); + function ReadNumberAcross(); + function WriteNumberAcross(_value); + function ReadNumberDown(); + function WriteNumberDown(_value); + function ReadPageSize(); + function WritePageSize(_value); + function ReadSideMargin(); + function WriteSideMargin(_value); + function ReadTopMargin(); + function WriteTopMargin(_value); + function ReadValid(); + function ReadVerticalPitch(); + function WriteVerticalPitch(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type CustomLabels = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, DotMatrix); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CustomProperty = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Name read ReadName; + property Value read ReadValue write WriteValue; + function ReadName(); + function ReadValue(); + function WriteValue(_value); +end; + +type CustomProperties = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Value); + function Item(Index); + function Application(); + function Count(); + function Creator(); + function Parent(); + + // properties +end; + +type DataLabel = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property AutoText read ReadAutoText write WriteAutoText; + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight write WriteHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property NumberFormat read ReadNumberFormat write WriteNumberFormat; + property NumberFormatLinked read ReadNumberFormatLinked write WriteNumberFormatLinked; + property NumberFormatLocal read ReadNumberFormatLocal write WriteNumberFormatLocal; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Separator read ReadSeparator write WriteSeparator; + property Shadow read ReadShadow write WriteShadow; + property ShowBubbleSize read ReadShowBubbleSize write WriteShowBubbleSize; + property ShowCategoryName read ReadShowCategoryName write WriteShowCategoryName; + property ShowLegendKey read ReadShowLegendKey write WriteShowLegendKey; + property ShowPercentage read ReadShowPercentage write WriteShowPercentage; + property ShowRange read ReadShowRange write WriteShowRange; + property ShowSeriesName read ReadShowSeriesName write WriteShowSeriesName; + property ShowValue read ReadShowValue write WriteShowValue; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth write WriteWidth; + function ReadAutoText(); + function WriteAutoText(_value); + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadNumberFormat(); + function WriteNumberFormat(_value); + function ReadNumberFormatLinked(); + function WriteNumberFormatLinked(_value); + function ReadNumberFormatLocal(); + function WriteNumberFormatLocal(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadSeparator(); + function WriteSeparator(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadShowBubbleSize(); + function WriteShowBubbleSize(_value); + function ReadShowCategoryName(); + function WriteShowCategoryName(_value); + function ReadShowLegendKey(); + function WriteShowLegendKey(_value); + function ReadShowPercentage(); + function WriteShowPercentage(_value); + function ReadShowRange(); + function WriteShowRange(_value); + function ReadShowSeriesName(); + function WriteShowSeriesName(_value); + function ReadShowValue(); + function WriteShowValue(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type DataLabels = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Item(Index); + function Propagate(Index); + function Select(); + + // properties + property AutoText read ReadAutoText write WriteAutoText; + property Count read ReadCount; + property Format read ReadFormat; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property Name read ReadName; + property NumberFormat read ReadNumberFormat write WriteNumberFormat; + property NumberFormatLinked read ReadNumberFormatLinked write WriteNumberFormatLinked; + property NumberFormatLocal read ReadNumberFormatLocal write WriteNumberFormatLocal; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Separator read ReadSeparator write WriteSeparator; + property Shadow read ReadShadow write WriteShadow; + property ShowBubbleSize read ReadShowBubbleSize write WriteShowBubbleSize; + property ShowCategoryName read ReadShowCategoryName write WriteShowCategoryName; + property ShowLegendKey read ReadShowLegendKey write WriteShowLegendKey; + property ShowPercentage read ReadShowPercentage write WriteShowPercentage; + property ShowRange read ReadShowRange write WriteShowRange; + property ShowSeriesName read ReadShowSeriesName write WriteShowSeriesName; + property ShowValue read ReadShowValue write WriteShowValue; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + function ReadAutoText(); + function WriteAutoText(_value); + function ReadCount(); + function ReadFormat(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadName(); + function ReadNumberFormat(); + function WriteNumberFormat(_value); + function ReadNumberFormatLinked(); + function WriteNumberFormatLinked(_value); + function ReadNumberFormatLocal(); + function WriteNumberFormatLocal(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadSeparator(); + function WriteSeparator(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadShowBubbleSize(); + function WriteShowBubbleSize(_value); + function ReadShowCategoryName(); + function WriteShowCategoryName(_value); + function ReadShowLegendKey(); + function WriteShowLegendKey(_value); + function ReadShowPercentage(); + function WriteShowPercentage(_value); + function ReadShowRange(); + function WriteShowRange(_value); + function ReadShowSeriesName(); + function WriteShowSeriesName(_value); + function ReadShowValue(); + function WriteShowValue(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); +end; + +type DataTable = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Font read ReadFont; + property Format read ReadFormat; + property HasBorderHorizontal read ReadHasBorderHorizontal write WriteHasBorderHorizontal; + property HasBorderOutline read ReadHasBorderOutline write WriteHasBorderOutline; + property HasBorderVertical read ReadHasBorderVertical write WriteHasBorderVertical; + property ShowLegendKey read ReadShowLegendKey write WriteShowLegendKey; + function ReadBorder(); + function ReadFont(); + function ReadFormat(); + function ReadHasBorderHorizontal(); + function WriteHasBorderHorizontal(_value); + function ReadHasBorderOutline(); + function WriteHasBorderOutline(_value); + function ReadHasBorderVertical(); + function WriteHasBorderVertical(_value); + function ReadShowLegendKey(); + function WriteShowLegendKey(_value); +end; + +type DefaultWebOptions = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AllowPNG read ReadAllowPNG write WriteAllowPNG; + property AlwaysSaveInDefaultEncoding read ReadAlwaysSaveInDefaultEncoding write WriteAlwaysSaveInDefaultEncoding; + property BrowserLevel read ReadBrowserLevel write WriteBrowserLevel; + property CheckIfOfficeIsHTMLEditor read ReadCheckIfOfficeIsHTMLEditor write WriteCheckIfOfficeIsHTMLEditor; + property CheckIfWordIsDefaultHTMLEditor read ReadCheckIfWordIsDefaultHTMLEditor write WriteCheckIfWordIsDefaultHTMLEditor; + property Encoding read ReadEncoding write WriteEncoding; + property FolderSuffix read ReadFolderSuffix; + property Fonts read ReadFonts; + property OptimizeForBrowser read ReadOptimizeForBrowser write WriteOptimizeForBrowser; + property OrganizeInFolder read ReadOrganizeInFolder write WriteOrganizeInFolder; + property PixelsPerInch read ReadPixelsPerInch write WritePixelsPerInch; + property RelyOnCSS read ReadRelyOnCSS write WriteRelyOnCSS; + property RelyOnVML read ReadRelyOnVML write WriteRelyOnVML; + property SaveNewWebPagesAsWebArchives read ReadSaveNewWebPagesAsWebArchives write WriteSaveNewWebPagesAsWebArchives; + property ScreenSize read ReadScreenSize write WriteScreenSize; + property TargetBrowser read ReadTargetBrowser write WriteTargetBrowser; + property UpdateLinksOnSave read ReadUpdateLinksOnSave write WriteUpdateLinksOnSave; + property UseLongFileNames read ReadUseLongFileNames write WriteUseLongFileNames; + function ReadAllowPNG(); + function WriteAllowPNG(_value); + function ReadAlwaysSaveInDefaultEncoding(); + function WriteAlwaysSaveInDefaultEncoding(_value); + function ReadBrowserLevel(); + function WriteBrowserLevel(_value); + function ReadCheckIfOfficeIsHTMLEditor(); + function WriteCheckIfOfficeIsHTMLEditor(_value); + function ReadCheckIfWordIsDefaultHTMLEditor(); + function WriteCheckIfWordIsDefaultHTMLEditor(_value); + function ReadEncoding(); + function WriteEncoding(_value); + function ReadFolderSuffix(); + function ReadFonts(); + function ReadOptimizeForBrowser(); + function WriteOptimizeForBrowser(_value); + function ReadOrganizeInFolder(); + function WriteOrganizeInFolder(_value); + function ReadPixelsPerInch(); + function WritePixelsPerInch(_value); + function ReadRelyOnCSS(); + function WriteRelyOnCSS(_value); + function ReadRelyOnVML(); + function WriteRelyOnVML(_value); + function ReadSaveNewWebPagesAsWebArchives(); + function WriteSaveNewWebPagesAsWebArchives(_value); + function ReadScreenSize(); + function WriteScreenSize(_value); + function ReadTargetBrowser(); + function WriteTargetBrowser(_value); + function ReadUpdateLinksOnSave(); + function WriteUpdateLinksOnSave(_value); + function ReadUseLongFileNames(); + function WriteUseLongFileNames(_value); +end; + +type Dialog = class(VbaBase) +public + function Init(); + +public + // methods + function Display(TimeOut); + function Execute(); + function Show(TimeOut); + function Update(); + + // properties + property CommandBarId read ReadCommandBarId; + property CommandName read ReadCommandName; + property DefaultTab read ReadDefaultTab write WriteDefaultTab; + property Type read ReadType; + function ReadCommandBarId(); + function ReadCommandName(); + function ReadDefaultTab(); + function WriteDefaultTab(_value); + function ReadType(); +end; + +type Dialogs = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Dictionaries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(FileName); + function ClearAll(); + function Item(Index); + + // properties + property ActiveCustomDictionary read ReadActiveCustomDictionary write WriteActiveCustomDictionary; + property Count read ReadCount; + property Maximum read ReadMaximum; + function ReadActiveCustomDictionary(); + function WriteActiveCustomDictionary(_value); + function ReadCount(); + function ReadMaximum(); +end; + +type Dictionary = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property LanguageID read ReadLanguageID write WriteLanguageID; + property LanguageSpecific read ReadLanguageSpecific write WriteLanguageSpecific; + property Name read ReadName; + property Path read ReadPath; + property ReadOnly read ReadReadOnly write WriteReadOnly; + property Type read ReadType; + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLanguageSpecific(); + function WriteLanguageSpecific(_value); + function ReadName(); + function ReadPath(); + function ReadReadOnly(); + function WriteReadOnly(_value); + function ReadType(); +end; + +type DisplayUnitLabel = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property IncludeInLayout read ReadIncludeInLayout write WriteIncludeInLayout; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Shadow read ReadShadow write WriteShadow; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth; + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadIncludeInLayout(); + function WriteIncludeInLayout(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); +end; + +type Document = class(VbaBase) +uses DocxEnumerations; +public + function Init(components: DocxComponents; collection: Collection; full_name: string); + +public + // methods + function AcceptAllRevisions(); + function AcceptAllRevisionsShown(); + function Activate(); + function AddToFavorites(); + function ApplyDocumentTheme(FileName); + function ApplyQuickStyleSet2(Style); + function ApplyTheme(Name); + function AutoFormat(); + function CanCheckin(); + function CheckConsistency(); + function CheckGrammar(); + function CheckIn(SaveChanges, Comments, MakePublic); + function CheckInWithVersion(SaveChanges, Comments, MakePublic, VersionType); + function CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10); + function Close(SaveChanges: WdSaveOptions; OriginalFormat: WdOriginalFormat; RouteDocxDocument: boolean); + function ClosePrintPreview(); + function Compare(Name, AuthorName, CompareTarget, DetectFormatChanges, IgnoreAllComparisonWarnings, AddToRecentFiles, RemovePersonalInformation, RemoveDateAndTime); + function ComputeStatistics(Statistic, IncludeFootnotesAndEndnotes); + function Convert(); + function ConvertAutoHyphens(); + function ConvertNumbersToText(); + function ConvertVietDoc(CodePageOrigin); + function CopyStylesFromTemplate(Template); + function CountNumberedItems(NumberType, Level); + function CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, LetterStyle, Letterhead, LetterheadLocation, LetterheadSize, RecipientName, RecipientAddress, Salutation, SalutationType, RecipientReference, MailingInstructions, AttentionLine, Subject, CCList, ReturnAddress, SenderName, Closing, SenderCompany, SenderJobTitle, SenderInitials, EnclosureNumber, InfoBlock, RecipientCode, RecipientGender, ReturnAddressShortForm, SenderCity, SenderCode, SenderGender, SenderReference); + function DataForm(); + function DeleteAllComments(); + function DeleteAllCommentsShown(); + function DeleteAllEditableRanges(EditorID); + function DeleteAllInkAnnotations(); + function DetectLanguage(); + function DowngradeDocument(); + function EndReview(); + function ExportAsFixedFormat(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, Range, From, To, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO190051, FixedFormatExtClassPtr); + function ExportAsFixedFormat2(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, Range, From, To, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO190051, OptimizeForImageQuality, FixedFormatExtClassPtr); + function FitToPages(); + function FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo); + function FreezeLayout(); + function GetCrossReferenceItems(ReferenceType); + function GetLetterContent(); + function GetWorkflowTasks(); + function GetWorkflowTemplates(); + function GoTo(What, Which, Count, Name); + function LockServerFile(); + function MakeCompatibilityDefault(); + function ManualHyphenation(); + function Merge(Name, MergeTarget, DetectFormatChanges, UseFormattingFrom, AddToRecentFiles); + function Post(); + function PresentIt(); + function PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight); + function PrintPreview(); + function Protect(Type, NoReset, Password, UseIRM, EnforceStyleLock); + function Range(Start, End); + function Redo(Times); + function RejectAllRevisions(); + function RejectAllRevisionsShown(); + function Reload(); + function ReloadAs(Encoding); + function RemoveDocumentInformation(RemoveDocInfoType); + function RemoveLockedStyles(); + function RemoveNumbers(NumberType); + function RemoveTheme(); + function Repaginate(); + function ReplyWithChanges(ShowMessage); + function ResetFormFields(); + function ReturnToLastReadPosition(); + function RunAutoMacro(Which); + function RunLetterWizard(LetterContent, WizardMode); + function Save(); + function SaveAs2(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks, CompatibilityMode); + function SaveAsQuickStyleSet(FileName); + function Select(); + function SelectAllEditableRanges(EditorID); + function SelectContentControlsByTag(Tag); + function SelectContentControlsByTitle(Title); + function SelectLinkedControls(Node); + function SelectNodes(XPath, PrefixMapping, FastSearchSkippingTextNodes); + function SelectSingleNode(XPath, PrefixMapping, FastSearchSkippingTextNodes); + function SelectUnlinkedControls(Stream); + function SendFax(Address, Subject); + function SendFaxOverInternet(Recipients, Subject, ShowMessage); + function SendForReview(Recipients, Subject, ShowMessage, IncludeAttachment); + function SendMail(); + function SetCompatibilityMode(Mode); + function SetDefaultTableStyle(Style, SetInTemplate); + function SetLetterContent(LetterContent); + function SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, PasswordEncryptionFileProperties); + function ToggleFormsDesign(); + function TransformDocument(Path, DataOnly); + function Undo(Times); + function UndoClear(); + function Unprotect(Password); + function UpdateStyles(); + function ViewCode(); + function ViewPropertyBrowser(); + function WebPagePreview(); + function ActiveWritingStyle(LanguageID); + function Compatibility(Type); + + // properties + property ActiveTheme read ReadActiveTheme; + property ActiveThemeDisplayName read ReadActiveThemeDisplayName; + property ActiveWindow read ReadActiveWindow; + property AttachedTemplate read ReadAttachedTemplate write WriteAttachedTemplate; + property AutoFormatOverride read ReadAutoFormatOverride write WriteAutoFormatOverride; + property AutoHyphenation read ReadAutoHyphenation write WriteAutoHyphenation; + property AutoSaveOn read ReadAutoSaveOn write WriteAutoSaveOn; + property Background read ReadBackground; + property Bibliography read ReadBibliography; + property Bookmarks read ReadBookmarks; + property Broadcast read ReadBroadcast; + property BuiltInDocumentProperties read ReadBuiltInDocumentProperties; + property Characters read ReadCharacters; + property ChartDataPointTrack read ReadChartDataPointTrack write WriteChartDataPointTrack; + property ClickAndTypeParagraphStyle read ReadClickAndTypeParagraphStyle write WriteClickAndTypeParagraphStyle; + property CoAuthoring read ReadCoAuthoring; + property CodeName read ReadCodeName; + property CommandBars read ReadCommandBars; + property Comments read ReadComments; + property CompatibilityMode read ReadCompatibilityMode; + property ConsecutiveHyphensLimit read ReadConsecutiveHyphensLimit write WriteConsecutiveHyphensLimit; + property Container read ReadContainer; + property Content read ReadContent; + property ContentControls read ReadContentControls; + property ContentTypeProperties read ReadContentTypeProperties; + property CurrentRsid read ReadCurrentRsid; + property CustomDocumentProperties read ReadCustomDocumentProperties; + property CustomXMLParts read ReadCustomXMLParts; + property DefaultTableStyle read ReadDefaultTableStyle; + property DefaultTabStop read ReadDefaultTabStop write WriteDefaultTabStop; + property DefaultTargetFrame read ReadDefaultTargetFrame write WriteDefaultTargetFrame; + property DisableFeatures read ReadDisableFeatures write WriteDisableFeatures; + property DisableFeaturesIntroducedAfter read ReadDisableFeaturesIntroducedAfter write WriteDisableFeaturesIntroducedAfter; + property DocumentInspectors read ReadDocumentInspectors; + property DocumentLibraryVersions read ReadDocumentLibraryVersions; + property DocumentTheme read ReadDocumentTheme; + property DoNotEmbedSystemFonts read ReadDoNotEmbedSystemFonts write WriteDoNotEmbedSystemFonts; + property Email read ReadEmail; + property EmbedLinguisticData read ReadEmbedLinguisticData write WriteEmbedLinguisticData; + property EmbedTrueTypeFonts read ReadEmbedTrueTypeFonts write WriteEmbedTrueTypeFonts; + property EncryptionProvider read ReadEncryptionProvider write WriteEncryptionProvider; + property Endnotes read ReadEndnotes; + property EnforceStyle read ReadEnforceStyle write WriteEnforceStyle; + property Envelope read ReadEnvelope; + property FarEastLineBreakLanguage read ReadFarEastLineBreakLanguage write WriteFarEastLineBreakLanguage; + property FarEastLineBreakLevel read ReadFarEastLineBreakLevel write WriteFarEastLineBreakLevel; + property Fields read ReadFields; + property Final read ReadFinal write WriteFinal; + property Footnotes read ReadFootnotes; + property FormattingShowClear read ReadFormattingShowClear write WriteFormattingShowClear; + property FormattingShowFilter read ReadFormattingShowFilter write WriteFormattingShowFilter; + property FormattingShowFont read ReadFormattingShowFont write WriteFormattingShowFont; + property FormattingShowNextLevel read ReadFormattingShowNextLevel write WriteFormattingShowNextLevel; + property FormattingShowNumbering read ReadFormattingShowNumbering write WriteFormattingShowNumbering; + property FormattingShowParagraph read ReadFormattingShowParagraph write WriteFormattingShowParagraph; + property FormattingShowUserStyleName read ReadFormattingShowUserStyleName write WriteFormattingShowUserStyleName; + property FormFields read ReadFormFields; + property FormsDesign read ReadFormsDesign; + property Frames read ReadFrames; + property Frameset read ReadFrameset; + property FullName read ReadFullName; + property GrammarChecked read ReadGrammarChecked write WriteGrammarChecked; + property GrammaticalErrors read ReadGrammaticalErrors; + property GridDistanceHorizontal read ReadGridDistanceHorizontal write WriteGridDistanceHorizontal; + property GridDistanceVertical read ReadGridDistanceVertical write WriteGridDistanceVertical; + property GridOriginFromMargin read ReadGridOriginFromMargin write WriteGridOriginFromMargin; + property GridOriginHorizontal read ReadGridOriginHorizontal write WriteGridOriginHorizontal; + property GridOriginVertical read ReadGridOriginVertical write WriteGridOriginVertical; + property GridSpaceBetweenHorizontalLines read ReadGridSpaceBetweenHorizontalLines write WriteGridSpaceBetweenHorizontalLines; + property GridSpaceBetweenVerticalLines read ReadGridSpaceBetweenVerticalLines write WriteGridSpaceBetweenVerticalLines; + property HasPassword read ReadHasPassword; + property HasVBProject read ReadHasVBProject; + property HTMLDivisions read ReadHTMLDivisions; + property Hyperlinks read ReadHyperlinks; + property HyphenateCaps read ReadHyphenateCaps write WriteHyphenateCaps; + property HyphenationZone read ReadHyphenationZone write WriteHyphenationZone; + property Indexes read ReadIndexes; + property InlineShapes read ReadInlineShapes; + property IsInAutosave read ReadIsInAutosave; + property IsMasterDocument read ReadIsMasterDocument; + property IsSubdocument read ReadIsSubdocument; + property JustificationMode read ReadJustificationMode write WriteJustificationMode; + property KerningByAlgorithm read ReadKerningByAlgorithm write WriteKerningByAlgorithm; + property Kind read ReadKind write WriteKind; + property LanguageDetected read ReadLanguageDetected write WriteLanguageDetected; + property ListParagraphs read ReadListParagraphs; + property Lists read ReadLists; + property ListTemplates read ReadListTemplates; + property LockQuickStyleSet read ReadLockQuickStyleSet write WriteLockQuickStyleSet; + property LockTheme read ReadLockTheme write WriteLockTheme; + property MailEnvelope read ReadMailEnvelope; + property MailMerge read ReadMailMerge; + property Name read ReadName; + property NoLineBreakAfter read ReadNoLineBreakAfter write WriteNoLineBreakAfter; + property NoLineBreakBefore read ReadNoLineBreakBefore write WriteNoLineBreakBefore; + property OMathBreakBin read ReadOMathBreakBin write WriteOMathBreakBin; + property OMathBreakSub read ReadOMathBreakSub write WriteOMathBreakSub; + property OMathFontName read ReadOMathFontName write WriteOMathFontName; + property OMathIntSubSupLim read ReadOMathIntSubSupLim write WriteOMathIntSubSupLim; + property OMathJc read ReadOMathJc write WriteOMathJc; + property OMathLeftMargin read ReadOMathLeftMargin write WriteOMathLeftMargin; + property OMathNarySupSubLim read ReadOMathNarySupSubLim write WriteOMathNarySupSubLim; + property OMathRightMargin read ReadOMathRightMargin write WriteOMathRightMargin; + property OMaths read ReadOMaths; + property OMathSmallFrac read ReadOMathSmallFrac write WriteOMathSmallFrac; + property OMathWrap read ReadOMathWrap write WriteOMathWrap; + property OpenEncoding read ReadOpenEncoding; + property OptimizeForWord97 read ReadOptimizeForWord97 write WriteOptimizeForWord97; + property OriginalDocumentTitle read ReadOriginalDocumentTitle; + property PageSetup read ReadPageSetup; + property Paragraphs read ReadParagraphs; + property Password read WritePassword; + property PasswordEncryptionAlgorithm read ReadPasswordEncryptionAlgorithm; + property PasswordEncryptionFileProperties read ReadPasswordEncryptionFileProperties; + property PasswordEncryptionKeyLength read ReadPasswordEncryptionKeyLength; + property PasswordEncryptionProvider read ReadPasswordEncryptionProvider; + property Path read ReadPath; + property Permission read ReadPermission; + property PrintFormsData read ReadPrintFormsData write WritePrintFormsData; + property PrintPostScriptOverText read ReadPrintPostScriptOverText write WritePrintPostScriptOverText; + property PrintRevisions read ReadPrintRevisions write WritePrintRevisions; + property ProtectionType read ReadProtectionType; + property ReadabilityStatistics read ReadReadabilityStatistics; + property ReadingLayoutSizeX read ReadReadingLayoutSizeX; + property ReadingLayoutSizeY read ReadReadingLayoutSizeY; + property ReadingModeLayoutFrozen read ReadReadingModeLayoutFrozen; + property ReadOnly read ReadReadOnly; + property ReadOnlyRecommended read ReadReadOnlyRecommended write WriteReadOnlyRecommended; + property RemoveDateAndTime read ReadRemoveDateAndTime; + property RemovePersonalInformation read ReadRemovePersonalInformation write WriteRemovePersonalInformation; + property Research read ReadResearch; + property RevisedDocumentTitle read ReadRevisedDocumentTitle; + property Revisions read ReadRevisions; + property Saved read ReadSaved write WriteSaved; + property SaveEncoding read ReadSaveEncoding write WriteSaveEncoding; + property SaveFormat read ReadSaveFormat; + property SaveFormsData read ReadSaveFormsData write WriteSaveFormsData; + property SaveSubsetFonts read ReadSaveSubsetFonts write WriteSaveSubsetFonts; + property Scripts read ReadScripts; + property Sections read ReadSections; + property SensitivityLabel read ReadSensitivityLabel; + property Sentences read ReadSentences; + property ServerPolicy read ReadServerPolicy; + property Shapes read ReadShapes; + property ShowGrammaticalErrors read ReadShowGrammaticalErrors write WriteShowGrammaticalErrors; + property ShowSpellingErrors read ReadShowSpellingErrors write WriteShowSpellingErrors; + property Signatures read ReadSignatures; + property SmartDocument read ReadSmartDocument; + property SnapToGrid read ReadSnapToGrid write WriteSnapToGrid; + property SnapToShapes read ReadSnapToShapes write WriteSnapToShapes; + property SpellingChecked read ReadSpellingChecked write WriteSpellingChecked; + property SpellingErrors read ReadSpellingErrors; + property StoryRanges read ReadStoryRanges; + property Styles read ReadStyles; + property StyleSheets read ReadStyleSheets; + property StyleSortMethod read ReadStyleSortMethod write WriteStyleSortMethod; + property Subdocuments read ReadSubdocuments; + property Sync read ReadSync; + property Tables read ReadTables; + property TablesOfAuthorities read ReadTablesOfAuthorities; + property TablesOfAuthoritiesCategories read ReadTablesOfAuthoritiesCategories; + property TablesOfContents read ReadTablesOfContents; + property TablesOfFigures read ReadTablesOfFigures; + property TextEncoding read ReadTextEncoding write WriteTextEncoding; + property TextLineEnding read ReadTextLineEnding write WriteTextLineEnding; + property TrackFormatting read ReadTrackFormatting write WriteTrackFormatting; + property TrackMoves read ReadTrackMoves write WriteTrackMoves; + property TrackRevisions read ReadTrackRevisions write WriteTrackRevisions; + property Type read ReadType; + property UpdateStylesOnOpen read ReadUpdateStylesOnOpen write WriteUpdateStylesOnOpen; + property UseMathDefaults read ReadUseMathDefaults write WriteUseMathDefaults; + property UserControl read ReadUserControl write WriteUserControl; + property Variables read ReadVariables; + property VbaSigned read ReadVbaSigned; + property VBProject read ReadVBProject; + property WebOptions read ReadWebOptions; + property Windows read ReadWindows; + property WordOpenXML read ReadWordOpenXML; + property Words read ReadWords; + property WritePassword read ReadWritePassword; + property WriteReserved read ReadWriteReserved; + property XMLSaveThroughXSLT read ReadXMLSaveThroughXSLT; + property XMLSchemaReferences read ReadXMLSchemaReferences; + property XMLShowAdvancedErrors read ReadXMLShowAdvancedErrors write WriteXMLShowAdvancedErrors; + property XMLUseXSLTWhenSaving read ReadXMLUseXSLTWhenSaving; + function ReadActiveTheme(); + function ReadActiveThemeDisplayName(); + function ReadActiveWindow(); + function ReadAttachedTemplate(); + function WriteAttachedTemplate(_value); + function ReadAutoFormatOverride(); + function WriteAutoFormatOverride(_value); + function ReadAutoHyphenation(); + function WriteAutoHyphenation(_value); + function ReadAutoSaveOn(); + function WriteAutoSaveOn(_value); + function ReadBackground(); + function ReadBibliography(); + function ReadBookmarks(); + function ReadBroadcast(); + function ReadBuiltInDocumentProperties(); + function ReadCharacters(); + function ReadChartDataPointTrack(); + function WriteChartDataPointTrack(_value); + function ReadClickAndTypeParagraphStyle(); + function WriteClickAndTypeParagraphStyle(_value); + function ReadCoAuthoring(); + function ReadCodeName(); + function ReadCommandBars(); + function ReadComments(); + function ReadCompatibilityMode(); + function ReadConsecutiveHyphensLimit(); + function WriteConsecutiveHyphensLimit(_value); + function ReadContainer(); + function ReadContent(); + function ReadContentControls(); + function ReadContentTypeProperties(); + function ReadCurrentRsid(); + function ReadCustomDocumentProperties(); + function ReadCustomXMLParts(); + function ReadDefaultTableStyle(); + function ReadDefaultTabStop(); + function WriteDefaultTabStop(_value); + function ReadDefaultTargetFrame(); + function WriteDefaultTargetFrame(_value); + function ReadDisableFeatures(); + function WriteDisableFeatures(_value); + function ReadDisableFeaturesIntroducedAfter(); + function WriteDisableFeaturesIntroducedAfter(_value); + function ReadDocumentInspectors(); + function ReadDocumentLibraryVersions(); + function ReadDocumentTheme(); + function ReadDoNotEmbedSystemFonts(); + function WriteDoNotEmbedSystemFonts(_value); + function ReadEmail(); + function ReadEmbedLinguisticData(); + function WriteEmbedLinguisticData(_value); + function ReadEmbedTrueTypeFonts(); + function WriteEmbedTrueTypeFonts(_value); + function ReadEncryptionProvider(); + function WriteEncryptionProvider(_value); + function ReadEndnotes(); + function ReadEnforceStyle(); + function WriteEnforceStyle(_value); + function ReadEnvelope(); + function ReadFarEastLineBreakLanguage(); + function WriteFarEastLineBreakLanguage(_value); + function ReadFarEastLineBreakLevel(); + function WriteFarEastLineBreakLevel(_value); + function ReadFields(); + function ReadFinal(); + function WriteFinal(_value); + function ReadFootnotes(); + function ReadFormattingShowClear(); + function WriteFormattingShowClear(_value); + function ReadFormattingShowFilter(); + function WriteFormattingShowFilter(_value); + function ReadFormattingShowFont(); + function WriteFormattingShowFont(_value); + function ReadFormattingShowNextLevel(); + function WriteFormattingShowNextLevel(_value); + function ReadFormattingShowNumbering(); + function WriteFormattingShowNumbering(_value); + function ReadFormattingShowParagraph(); + function WriteFormattingShowParagraph(_value); + function ReadFormattingShowUserStyleName(); + function WriteFormattingShowUserStyleName(_value); + function ReadFormFields(); + function ReadFormsDesign(); + function ReadFrames(); + function ReadFrameset(); + function ReadFullName(); + function ReadGrammarChecked(); + function WriteGrammarChecked(_value); + function ReadGrammaticalErrors(); + function ReadGridDistanceHorizontal(); + function WriteGridDistanceHorizontal(_value); + function ReadGridDistanceVertical(); + function WriteGridDistanceVertical(_value); + function ReadGridOriginFromMargin(); + function WriteGridOriginFromMargin(_value); + function ReadGridOriginHorizontal(); + function WriteGridOriginHorizontal(_value); + function ReadGridOriginVertical(); + function WriteGridOriginVertical(_value); + function ReadGridSpaceBetweenHorizontalLines(); + function WriteGridSpaceBetweenHorizontalLines(_value); + function ReadGridSpaceBetweenVerticalLines(); + function WriteGridSpaceBetweenVerticalLines(_value); + function ReadHasPassword(); + function ReadHasVBProject(); + function ReadHTMLDivisions(); + function ReadHyperlinks(); + function ReadHyphenateCaps(); + function WriteHyphenateCaps(_value); + function ReadHyphenationZone(); + function WriteHyphenationZone(_value); + function ReadIndexes(); + function ReadInlineShapes(); + function ReadIsInAutosave(); + function ReadIsMasterDocument(); + function ReadIsSubdocument(); + function ReadJustificationMode(); + function WriteJustificationMode(_value); + function ReadKerningByAlgorithm(); + function WriteKerningByAlgorithm(_value); + function ReadKind(); + function WriteKind(_value); + function ReadLanguageDetected(); + function WriteLanguageDetected(_value); + function ReadListParagraphs(); + function ReadLists(); + function ReadListTemplates(); + function ReadLockQuickStyleSet(); + function WriteLockQuickStyleSet(_value); + function ReadLockTheme(); + function WriteLockTheme(_value); + function ReadMailEnvelope(); + function ReadMailMerge(); + function ReadName(); + function ReadNoLineBreakAfter(); + function WriteNoLineBreakAfter(_value); + function ReadNoLineBreakBefore(); + function WriteNoLineBreakBefore(_value); + function ReadOMathBreakBin(); + function WriteOMathBreakBin(_value); + function ReadOMathBreakSub(); + function WriteOMathBreakSub(_value); + function ReadOMathFontName(); + function WriteOMathFontName(_value); + function ReadOMathIntSubSupLim(); + function WriteOMathIntSubSupLim(_value); + function ReadOMathJc(); + function WriteOMathJc(_value); + function ReadOMathLeftMargin(); + function WriteOMathLeftMargin(_value); + function ReadOMathNarySupSubLim(); + function WriteOMathNarySupSubLim(_value); + function ReadOMathRightMargin(); + function WriteOMathRightMargin(_value); + function ReadOMaths(); + function ReadOMathSmallFrac(); + function WriteOMathSmallFrac(_value); + function ReadOMathWrap(); + function WriteOMathWrap(_value); + function ReadOpenEncoding(); + function ReadOptimizeForWord97(); + function WriteOptimizeForWord97(_value); + function ReadOriginalDocumentTitle(); + function ReadPageSetup(); + function ReadParagraphs(); + function WritePassword(_value: string); + function ReadPasswordEncryptionAlgorithm(); + function ReadPasswordEncryptionFileProperties(); + function ReadPasswordEncryptionKeyLength(); + function ReadPasswordEncryptionProvider(); + function ReadPath(); + function ReadPermission(); + function ReadPrintFormsData(); + function WritePrintFormsData(_value); + function ReadPrintPostScriptOverText(); + function WritePrintPostScriptOverText(_value); + function ReadPrintRevisions(); + function WritePrintRevisions(_value); + function ReadProtectionType(); + function ReadReadabilityStatistics(); + function ReadReadingLayoutSizeX(); + function ReadReadingLayoutSizeY(); + function ReadReadingModeLayoutFrozen(); + function ReadReadOnly(); + function ReadReadOnlyRecommended(); + function WriteReadOnlyRecommended(_value); + function ReadRemoveDateAndTime(); + function ReadRemovePersonalInformation(); + function WriteRemovePersonalInformation(_value); + function ReadResearch(); + function ReadRevisedDocumentTitle(); + function ReadRevisions(); + function ReadSaved(); + function WriteSaved(_value); + function ReadSaveEncoding(); + function WriteSaveEncoding(_value); + function ReadSaveFormat(); + function ReadSaveFormsData(); + function WriteSaveFormsData(_value); + function ReadSaveSubsetFonts(); + function WriteSaveSubsetFonts(_value); + function ReadScripts(); + function ReadSections(); + function ReadSensitivityLabel(); + function ReadSentences(); + function ReadServerPolicy(); + function ReadShapes(); + function ReadShowGrammaticalErrors(); + function WriteShowGrammaticalErrors(_value); + function ReadShowSpellingErrors(); + function WriteShowSpellingErrors(_value); + function ReadSignatures(); + function ReadSmartDocument(); + function ReadSnapToGrid(); + function WriteSnapToGrid(_value); + function ReadSnapToShapes(); + function WriteSnapToShapes(_value); + function ReadSpellingChecked(); + function WriteSpellingChecked(_value); + function ReadSpellingErrors(); + function ReadStoryRanges(); + function ReadStyles(); + function ReadStyleSheets(); + function ReadStyleSortMethod(); + function WriteStyleSortMethod(_value); + function ReadSubdocuments(); + function ReadSync(); + function ReadTables(); + function ReadTablesOfAuthorities(); + function ReadTablesOfAuthoritiesCategories(); + function ReadTablesOfContents(); + function ReadTablesOfFigures(); + function ReadTextEncoding(); + function WriteTextEncoding(_value); + function ReadTextLineEnding(); + function WriteTextLineEnding(_value); + function ReadTrackFormatting(); + function WriteTrackFormatting(_value); + function ReadTrackMoves(); + function WriteTrackMoves(_value); + function ReadTrackRevisions(); + function WriteTrackRevisions(_value); + function ReadType(); + function ReadUpdateStylesOnOpen(); + function WriteUpdateStylesOnOpen(_value); + function ReadUseMathDefaults(); + function WriteUseMathDefaults(_value); + function ReadUserControl(); + function WriteUserControl(_value); + function ReadVariables(); + function ReadVbaSigned(); + function ReadVBProject(); + function ReadWebOptions(); + function ReadWindows(); + function ReadWordOpenXML(); + function ReadWords(); + function ReadWritePassword(); + function ReadWriteReserved(); + function ReadXMLSaveThroughXSLT(); + function ReadXMLSchemaReferences(); + function ReadXMLShowAdvancedErrors(); + function WriteXMLShowAdvancedErrors(_value); + function ReadXMLUseXSLTWhenSaving(); + +private + components_: Components; + [weakref]collection: Collection; + full_name_: string; + document_: Document; + + tables_: Tables; + paragraphs_: Paragraphs; + inline_shapes_: InlineShapes; +end; + +type Documents = Class(VbaBase) +public + function Operator[](index: string_or_integer): Document; + function Init(); + function GetActivation(): Document; + +public + // methods + function Add(Template, NewTemplate, DocumentType, Visible): Document; + function AddBlogDocument(ProviderID, PostURL, BlogName, PostID); + function CanCheckOut(FileName); + function CheckOut(FileName); + function Close(SaveChanges, OriginalFormat, RouteDocument); + function Item(Index: string_or_integer): Document; + function Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, + PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, + Encoding, Visible, OpenConflictDocument, OpenAndRepair, DocumentDirection, NoEncodingDialog); overload; + function OpenNoRepairDialog(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, + PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, + WritePasswordTemplate, Format, Encoding, Visible, OpenAndRepair, + DocumentDirection, NoEncodingDialog, XMLTransform); + function Save(NoPrompt, OriginalFormat); // Completed + + // properties + property Count read ReadCount; + function ReadCount(); + +private + function AddDocument(components: DocxComponents; full_name: string): Document; + +private + collection_: Collection; +end; + +type DownBars = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Format read ReadFormat; + property Name read ReadName; + function ReadFormat(); + function ReadName(); +end; + +type DropCap = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + function Enable(); + + // properties + property DistanceFromText read ReadDistanceFromText write WriteDistanceFromText; + property FontName read ReadFontName write WriteFontName; + property LinesToDrop read ReadLinesToDrop write WriteLinesToDrop; + property Position read ReadPosition write WritePosition; + function ReadDistanceFromText(); + function WriteDistanceFromText(_value); + function ReadFontName(); + function WriteFontName(_value); + function ReadLinesToDrop(); + function WriteLinesToDrop(_value); + function ReadPosition(); + function WritePosition(_value); +end; + +type DropDown = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Default read ReadDefault write WriteDefault; + property ListEntries read ReadListEntries; + property Valid read ReadValid; + property Value read ReadValue write WriteValue; + function ReadDefault(); + function WriteDefault(_value); + function ReadListEntries(); + function ReadValid(); + function ReadValue(); + function WriteValue(_value); +end; + +type DropLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type Editor = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function DeleteAll(); + function SelectAll(); + + // properties + property ID read ReadID write WriteID; + property Name read ReadName write WriteName; + property NextRange read ReadNextRange; + property Range read ReadRange; + function ReadID(); + function WriteID(_value); + function ReadName(); + function WriteName(_value); + function ReadNextRange(); + function ReadRange(); +end; + +type Editors = class(VbaBase) +public + function Init(); + +public + // methods + function Add(EditorID); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Email = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property CurrentEmailAuthor read ReadCurrentEmailAuthor; + function ReadCurrentEmailAuthor(); +end; + +type EmailAuthor = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Style read ReadStyle; + function ReadStyle(); +end; + +type EmailOptions = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AutoFormatAsYouTypeApplyBorders read ReadAutoFormatAsYouTypeApplyBorders write WriteAutoFormatAsYouTypeApplyBorders; + property AutoFormatAsYouTypeApplyBulletedLists read ReadAutoFormatAsYouTypeApplyBulletedLists write WriteAutoFormatAsYouTypeApplyBulletedLists; + property AutoFormatAsYouTypeApplyClosings read ReadAutoFormatAsYouTypeApplyClosings write WriteAutoFormatAsYouTypeApplyClosings; + property AutoFormatAsYouTypeApplyDates read ReadAutoFormatAsYouTypeApplyDates write WriteAutoFormatAsYouTypeApplyDates; + property AutoFormatAsYouTypeApplyFirstIndents read ReadAutoFormatAsYouTypeApplyFirstIndents write WriteAutoFormatAsYouTypeApplyFirstIndents; + property AutoFormatAsYouTypeApplyHeadings read ReadAutoFormatAsYouTypeApplyHeadings write WriteAutoFormatAsYouTypeApplyHeadings; + property AutoFormatAsYouTypeApplyNumberedLists read ReadAutoFormatAsYouTypeApplyNumberedLists write WriteAutoFormatAsYouTypeApplyNumberedLists; + property AutoFormatAsYouTypeApplyTables read ReadAutoFormatAsYouTypeApplyTables write WriteAutoFormatAsYouTypeApplyTables; + property AutoFormatAsYouTypeAutoLetterWizard read ReadAutoFormatAsYouTypeAutoLetterWizard write WriteAutoFormatAsYouTypeAutoLetterWizard; + property AutoFormatAsYouTypeDefineStyles read ReadAutoFormatAsYouTypeDefineStyles write WriteAutoFormatAsYouTypeDefineStyles; + property AutoFormatAsYouTypeDeleteAutoSpaces read ReadAutoFormatAsYouTypeDeleteAutoSpaces write WriteAutoFormatAsYouTypeDeleteAutoSpaces; + property AutoFormatAsYouTypeFormatListItemBeginning read ReadAutoFormatAsYouTypeFormatListItemBeginning write WriteAutoFormatAsYouTypeFormatListItemBeginning; + property AutoFormatAsYouTypeInsertClosings read ReadAutoFormatAsYouTypeInsertClosings write WriteAutoFormatAsYouTypeInsertClosings; + property AutoFormatAsYouTypeInsertOvers read ReadAutoFormatAsYouTypeInsertOvers write WriteAutoFormatAsYouTypeInsertOvers; + property AutoFormatAsYouTypeMatchParentheses read ReadAutoFormatAsYouTypeMatchParentheses write WriteAutoFormatAsYouTypeMatchParentheses; + property AutoFormatAsYouTypeReplaceFarEastDashes read ReadAutoFormatAsYouTypeReplaceFarEastDashes write WriteAutoFormatAsYouTypeReplaceFarEastDashes; + property AutoFormatAsYouTypeReplaceFractions read ReadAutoFormatAsYouTypeReplaceFractions write WriteAutoFormatAsYouTypeReplaceFractions; + property AutoFormatAsYouTypeReplaceHyperlinks read ReadAutoFormatAsYouTypeReplaceHyperlinks write WriteAutoFormatAsYouTypeReplaceHyperlinks; + property AutoFormatAsYouTypeReplaceOrdinals read ReadAutoFormatAsYouTypeReplaceOrdinals write WriteAutoFormatAsYouTypeReplaceOrdinals; + property AutoFormatAsYouTypeReplacePlainTextEmphasis read ReadAutoFormatAsYouTypeReplacePlainTextEmphasis write WriteAutoFormatAsYouTypeReplacePlainTextEmphasis; + property AutoFormatAsYouTypeReplaceQuotes read ReadAutoFormatAsYouTypeReplaceQuotes write WriteAutoFormatAsYouTypeReplaceQuotes; + property AutoFormatAsYouTypeReplaceSymbols read ReadAutoFormatAsYouTypeReplaceSymbols write WriteAutoFormatAsYouTypeReplaceSymbols; + property ComposeStyle read ReadComposeStyle; + property EmailSignature read ReadEmailSignature; + property HTMLFidelity read ReadHTMLFidelity write WriteHTMLFidelity; + property MarkComments read ReadMarkComments write WriteMarkComments; + property MarkCommentsWith read ReadMarkCommentsWith write WriteMarkCommentsWith; + property NewColorOnReply read ReadNewColorOnReply write WriteNewColorOnReply; + property PlainTextStyle read ReadPlainTextStyle; + property RelyOnCSS read ReadRelyOnCSS write WriteRelyOnCSS; + property ReplyStyle read ReadReplyStyle; + property TabIndentKey read ReadTabIndentKey write WriteTabIndentKey; + property ThemeName read ReadThemeName write WriteThemeName; + property UseThemeStyle read ReadUseThemeStyle write WriteUseThemeStyle; + property UseThemeStyleOnReply read ReadUseThemeStyleOnReply write WriteUseThemeStyleOnReply; + function ReadAutoFormatAsYouTypeApplyBorders(); + function WriteAutoFormatAsYouTypeApplyBorders(_value); + function ReadAutoFormatAsYouTypeApplyBulletedLists(); + function WriteAutoFormatAsYouTypeApplyBulletedLists(_value); + function ReadAutoFormatAsYouTypeApplyClosings(); + function WriteAutoFormatAsYouTypeApplyClosings(_value); + function ReadAutoFormatAsYouTypeApplyDates(); + function WriteAutoFormatAsYouTypeApplyDates(_value); + function ReadAutoFormatAsYouTypeApplyFirstIndents(); + function WriteAutoFormatAsYouTypeApplyFirstIndents(_value); + function ReadAutoFormatAsYouTypeApplyHeadings(); + function WriteAutoFormatAsYouTypeApplyHeadings(_value); + function ReadAutoFormatAsYouTypeApplyNumberedLists(); + function WriteAutoFormatAsYouTypeApplyNumberedLists(_value); + function ReadAutoFormatAsYouTypeApplyTables(); + function WriteAutoFormatAsYouTypeApplyTables(_value); + function ReadAutoFormatAsYouTypeAutoLetterWizard(); + function WriteAutoFormatAsYouTypeAutoLetterWizard(_value); + function ReadAutoFormatAsYouTypeDefineStyles(); + function WriteAutoFormatAsYouTypeDefineStyles(_value); + function ReadAutoFormatAsYouTypeDeleteAutoSpaces(); + function WriteAutoFormatAsYouTypeDeleteAutoSpaces(_value); + function ReadAutoFormatAsYouTypeFormatListItemBeginning(); + function WriteAutoFormatAsYouTypeFormatListItemBeginning(_value); + function ReadAutoFormatAsYouTypeInsertClosings(); + function WriteAutoFormatAsYouTypeInsertClosings(_value); + function ReadAutoFormatAsYouTypeInsertOvers(); + function WriteAutoFormatAsYouTypeInsertOvers(_value); + function ReadAutoFormatAsYouTypeMatchParentheses(); + function WriteAutoFormatAsYouTypeMatchParentheses(_value); + function ReadAutoFormatAsYouTypeReplaceFarEastDashes(); + function WriteAutoFormatAsYouTypeReplaceFarEastDashes(_value); + function ReadAutoFormatAsYouTypeReplaceFractions(); + function WriteAutoFormatAsYouTypeReplaceFractions(_value); + function ReadAutoFormatAsYouTypeReplaceHyperlinks(); + function WriteAutoFormatAsYouTypeReplaceHyperlinks(_value); + function ReadAutoFormatAsYouTypeReplaceOrdinals(); + function WriteAutoFormatAsYouTypeReplaceOrdinals(_value); + function ReadAutoFormatAsYouTypeReplacePlainTextEmphasis(); + function WriteAutoFormatAsYouTypeReplacePlainTextEmphasis(_value); + function ReadAutoFormatAsYouTypeReplaceQuotes(); + function WriteAutoFormatAsYouTypeReplaceQuotes(_value); + function ReadAutoFormatAsYouTypeReplaceSymbols(); + function WriteAutoFormatAsYouTypeReplaceSymbols(_value); + function ReadComposeStyle(); + function ReadEmailSignature(); + function ReadHTMLFidelity(); + function WriteHTMLFidelity(_value); + function ReadMarkComments(); + function WriteMarkComments(_value); + function ReadMarkCommentsWith(); + function WriteMarkCommentsWith(_value); + function ReadNewColorOnReply(); + function WriteNewColorOnReply(_value); + function ReadPlainTextStyle(); + function ReadRelyOnCSS(); + function WriteRelyOnCSS(_value); + function ReadReplyStyle(); + function ReadTabIndentKey(); + function WriteTabIndentKey(_value); + function ReadThemeName(); + function WriteThemeName(_value); + function ReadUseThemeStyle(); + function WriteUseThemeStyle(_value); + function ReadUseThemeStyleOnReply(); + function WriteUseThemeStyleOnReply(_value); +end; + +type EmailSignature = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property EmailSignatureEntries read ReadEmailSignatureEntries; + property NewMessageSignature read ReadNewMessageSignature write WriteNewMessageSignature; + property ReplyMessageSignature read ReadReplyMessageSignature write WriteReplyMessageSignature; + function ReadEmailSignatureEntries(); + function ReadNewMessageSignature(); + function WriteNewMessageSignature(_value); + function ReadReplyMessageSignature(); + function WriteReplyMessageSignature(_value); +end; + +type EmailSignatureEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Range); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type EmailSignatureEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName write WriteName; + function ReadIndex(); + function ReadName(); + function WriteName(_value); +end; + +type Endnote = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Range read ReadRange; + property Reference read ReadReference; + function ReadIndex(); + function ReadRange(); + function ReadReference(); +end; + +type EndnoteOptions = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Location read ReadLocation write WriteLocation; + property NumberingRule read ReadNumberingRule write WriteNumberingRule; + property NumberStyle read ReadNumberStyle write WriteNumberStyle; + property StartingNumber read ReadStartingNumber write WriteStartingNumber; + function ReadLocation(); + function WriteLocation(_value); + function ReadNumberingRule(); + function WriteNumberingRule(_value); + function ReadNumberStyle(); + function WriteNumberStyle(_value); + function ReadStartingNumber(); + function WriteStartingNumber(_value); +end; + +type Endnotes = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Reference, Text); + function Convert(); + function Item(Index); + function ResetContinuationNotice(); + function ResetContinuationSeparator(); + function ResetSeparator(); + function SwapWithFootnotes(); + + // properties + property ContinuationNotice read ReadContinuationNotice; + property ContinuationSeparator read ReadContinuationSeparator; + property Count read ReadCount; + property Location read ReadLocation write WriteLocation; + property NumberingRule read ReadNumberingRule write WriteNumberingRule; + property NumberStyle read ReadNumberStyle write WriteNumberStyle; + property Separator read ReadSeparator; + property StartingNumber read ReadStartingNumber write WriteStartingNumber; + function ReadContinuationNotice(); + function ReadContinuationSeparator(); + function ReadCount(); + function ReadLocation(); + function WriteLocation(_value); + function ReadNumberingRule(); + function WriteNumberingRule(_value); + function ReadNumberStyle(); + function WriteNumberStyle(_value); + function ReadSeparator(); + function ReadStartingNumber(); + function WriteStartingNumber(_value); +end; + +type Envelope = class(VbaBase) +public + function Init(); + +public + // methods + function Insert(ExtractAddress, Address, AutoText, OmitReturnAddress, ReturnAddress, ReturnAutoText, PrintBarCode, PrintFIMA, Size, Height, Width, FeedSource, AddressFromLeft, AddressFromTop, ReturnAddressFromLeft, ReturnAddressFromTop, DefaultFaceUp, DefaultOrientation, PrintEPostage, Vertical, RecipientNamefromLeft, RecipientNamefromTop, RecipientPostalfromLeft, RecipientPostalfromTop, SenderNamefromLeft, SenderNamefromTop, SenderPostalfromLeft, SenderPostalfromTop); + function Options(); + function PrintOut(ExtractAddress, Address, AutoText, OmitReturnAddress, ReturnAddress, ReturnAutoText, PrintBarCode, PrintFIMA, Size, Height, Width, FeedSource, AddressFromLeft, AddressFromTop, ReturnAddressFromLeft, ReturnAddressFromTop, DefaultFaceUp, DefaultOrientation, PrintEPostage, Vertical, RecipientNamefromLeft, RecipientNamefromTop, RecipientPostalfromLeft, RecipientPostalfromTop, SenderNamefromLeft, SenderNamefromTop, SenderPostalfromLeft, SenderPostalfromTop); + function UpdateDocument(); + + // properties + property Address read ReadAddress; + property AddressFromLeft read ReadAddressFromLeft write WriteAddressFromLeft; + property AddressFromTop read ReadAddressFromTop write WriteAddressFromTop; + property AddressStyle read ReadAddressStyle; + property DefaultFaceUp read ReadDefaultFaceUp write WriteDefaultFaceUp; + property DefaultHeight read ReadDefaultHeight write WriteDefaultHeight; + property DefaultOmitReturnAddress read ReadDefaultOmitReturnAddress write WriteDefaultOmitReturnAddress; + property DefaultOrientation read ReadDefaultOrientation write WriteDefaultOrientation; + property DefaultPrintFIMA read ReadDefaultPrintFIMA write WriteDefaultPrintFIMA; + property DefaultSize read ReadDefaultSize write WriteDefaultSize; + property DefaultWidth read ReadDefaultWidth write WriteDefaultWidth; + property FeedSource read ReadFeedSource write WriteFeedSource; + property RecipientNamefromLeft read ReadRecipientNamefromLeft write WriteRecipientNamefromLeft; + property RecipientNamefromTop read ReadRecipientNamefromTop write WriteRecipientNamefromTop; + property RecipientPostalfromLeft read ReadRecipientPostalfromLeft write WriteRecipientPostalfromLeft; + property RecipientPostalfromTop read ReadRecipientPostalfromTop write WriteRecipientPostalfromTop; + property ReturnAddress read ReadReturnAddress; + property ReturnAddressFromLeft read ReadReturnAddressFromLeft write WriteReturnAddressFromLeft; + property ReturnAddressFromTop read ReadReturnAddressFromTop write WriteReturnAddressFromTop; + property ReturnAddressStyle read ReadReturnAddressStyle; + property SenderNamefromLeft read ReadSenderNamefromLeft write WriteSenderNamefromLeft; + property SenderNamefromTop read ReadSenderNamefromTop write WriteSenderNamefromTop; + property SenderPostalfromLeft read ReadSenderPostalfromLeft write WriteSenderPostalfromLeft; + property SenderPostalfromTop read ReadSenderPostalfromTop write WriteSenderPostalfromTop; + property Vertical read ReadVertical write WriteVertical; + function ReadAddress(); + function ReadAddressFromLeft(); + function WriteAddressFromLeft(_value); + function ReadAddressFromTop(); + function WriteAddressFromTop(_value); + function ReadAddressStyle(); + function ReadDefaultFaceUp(); + function WriteDefaultFaceUp(_value); + function ReadDefaultHeight(); + function WriteDefaultHeight(_value); + function ReadDefaultOmitReturnAddress(); + function WriteDefaultOmitReturnAddress(_value); + function ReadDefaultOrientation(); + function WriteDefaultOrientation(_value); + function ReadDefaultPrintFIMA(); + function WriteDefaultPrintFIMA(_value); + function ReadDefaultSize(); + function WriteDefaultSize(_value); + function ReadDefaultWidth(); + function WriteDefaultWidth(_value); + function ReadFeedSource(); + function WriteFeedSource(_value); + function ReadRecipientNamefromLeft(); + function WriteRecipientNamefromLeft(_value); + function ReadRecipientNamefromTop(); + function WriteRecipientNamefromTop(_value); + function ReadRecipientPostalfromLeft(); + function WriteRecipientPostalfromLeft(_value); + function ReadRecipientPostalfromTop(); + function WriteRecipientPostalfromTop(_value); + function ReadReturnAddress(); + function ReadReturnAddressFromLeft(); + function WriteReturnAddressFromLeft(_value); + function ReadReturnAddressFromTop(); + function WriteReturnAddressFromTop(_value); + function ReadReturnAddressStyle(); + function ReadSenderNamefromLeft(); + function WriteSenderNamefromLeft(_value); + function ReadSenderNamefromTop(); + function WriteSenderNamefromTop(_value); + function ReadSenderPostalfromLeft(); + function WriteSenderPostalfromLeft(_value); + function ReadSenderPostalfromTop(); + function WriteSenderPostalfromTop(_value); + function ReadVertical(); + function WriteVertical(_value); +end; + +type ErrorBars = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property EndStyle read ReadEndStyle write WriteEndStyle; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadEndStyle(); + function WriteEndStyle(_value); + function ReadFormat(); + function ReadName(); +end; + +type Field = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function DoClick(); + function Select(); + function Unlink(); + function Update(); + function UpdateSource(); + + // properties + property Code read ReadCode write WriteCode; + property Data read ReadData write WriteData; + property Index read ReadIndex; + property InlineShape read ReadInlineShape; + property Kind read ReadKind; + property LinkFormat read ReadLinkFormat; + property Locked read ReadLocked write WriteLocked; + property Next read ReadNext; + property OLEFormat read ReadOLEFormat; + property Previous read ReadPrevious; + property Result read ReadResult write WriteResult; + property ShowCodes read ReadShowCodes write WriteShowCodes; + property Type read ReadType; + function ReadCode(); + function WriteCode(_value); + function ReadData(); + function WriteData(_value); + function ReadIndex(); + function ReadInlineShape(); + function ReadKind(); + function ReadLinkFormat(); + function ReadLocked(); + function WriteLocked(_value); + function ReadNext(); + function ReadOLEFormat(); + function ReadPrevious(); + function ReadResult(); + function WriteResult(_value); + function ReadShowCodes(); + function WriteShowCodes(_value); + function ReadType(); +end; + +type Fields = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Type, Text, PreserveFormatting); + function Item(Index); + function ToggleShowCodes(); + function Unlink(); + function Update(); + function UpdateSource(); + + // properties + property Count read ReadCount; + property Locked read ReadLocked write WriteLocked; + function ReadCount(); + function ReadLocked(); + function WriteLocked(_value); +end; + +type FileConverter = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property CanOpen read ReadCanOpen; + property CanSave read ReadCanSave; + property ClassName read ReadClassName; + property Extensions read ReadExtensions; + property FormatName read ReadFormatName; + property Name read ReadName; + property OpenFormat read ReadOpenFormat; + property Path read ReadPath; + property SaveFormat read ReadSaveFormat; + function ReadCanOpen(); + function ReadCanSave(); + function ReadClassName(); + function ReadExtensions(); + function ReadFormatName(); + function ReadName(); + function ReadOpenFormat(); + function ReadPath(); + function ReadSaveFormat(); +end; + +type FileConverters = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property ConvertMacWordChevrons read ReadConvertMacWordChevrons write WriteConvertMacWordChevrons; + property Count read ReadCount; + function ReadConvertMacWordChevrons(); + function WriteConvertMacWordChevrons(_value); + function ReadCount(); +end; + +type FillFormat = class(VbaBase) +public + function Init(); + +public + // methods + function OneColorGradient(Style, Variant, Degree); + function Patterned(Pattern); + function PresetGradient(Style, Variant, PresetGradientType); + function PresetTextured(PresetTexture); + function Solid(); + function TwoColorGradient(Style, Variant); + function UserPicture(PictureFile); + function UserTextured(TextureFile); + + // properties + property BackColor read ReadBackColor write WriteBackColor; + property ForeColor read ReadForeColor write WriteForeColor; + property GradientAngle read ReadGradientAngle write WriteGradientAngle; + property GradientColorType read ReadGradientColorType; + property GradientDegree read ReadGradientDegree; + property GradientStops read ReadGradientStops; + property GradientStyle read ReadGradientStyle; + property GradientVariant read ReadGradientVariant; + property Pattern read ReadPattern write WritePattern; + property PictureEffects read ReadPictureEffects; + property PresetGradientType read ReadPresetGradientType; + property PresetTexture read ReadPresetTexture; + property RotateWithObject read ReadRotateWithObject write WriteRotateWithObject; + property TextureAlignment read ReadTextureAlignment write WriteTextureAlignment; + property TextureHorizontalScale read ReadTextureHorizontalScale write WriteTextureHorizontalScale; + property TextureName read ReadTextureName; + property TextureOffsetX read ReadTextureOffsetX write WriteTextureOffsetX; + property TextureOffsetY read ReadTextureOffsetY write WriteTextureOffsetY; + property TextureTile read ReadTextureTile write WriteTextureTile; + property TextureType read ReadTextureType; + property TextureVerticalScale read ReadTextureVerticalScale write WriteTextureVerticalScale; + property Transparency read ReadTransparency write WriteTransparency; + property Type read ReadType; + property Visible read ReadVisible write WriteVisible; + function ReadBackColor(); + function WriteBackColor(_value); + function ReadForeColor(); + function WriteForeColor(_value); + function ReadGradientAngle(); + function WriteGradientAngle(_value); + function ReadGradientColorType(); + function ReadGradientDegree(); + function ReadGradientStops(); + function ReadGradientStyle(); + function ReadGradientVariant(); + function ReadPattern(); + function WritePattern(_value); + function ReadPictureEffects(); + function ReadPresetGradientType(); + function ReadPresetTexture(); + function ReadRotateWithObject(); + function WriteRotateWithObject(_value); + function ReadTextureAlignment(); + function WriteTextureAlignment(_value); + function ReadTextureHorizontalScale(); + function WriteTextureHorizontalScale(_value); + function ReadTextureName(); + function ReadTextureOffsetX(); + function WriteTextureOffsetX(_value); + function ReadTextureOffsetY(); + function WriteTextureOffsetY(_value); + function ReadTextureTile(); + function WriteTextureTile(_value); + function ReadTextureType(); + function ReadTextureVerticalScale(); + function WriteTextureVerticalScale(_value); + function ReadTransparency(); + function WriteTransparency(_value); + function ReadType(); + function ReadVisible(); + function WriteVisible(_value); +end; + +type Find = class(VbaBase) +public + function Init(); + +public + // methods + function ClearAllFuzzyOptions(); + function ClearFormatting(); + function ClearHitHighlight(); + function Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl); + function Execute2007(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl, MatchPrefix, MatchSuffix, MatchPhrase, IgnoreSpace, IgnorePunct); + function HitHighlight(FindText, HighlightColor, TextColor, MatchCase, MatchWholeWord, MatchPrefix, MatchSuffix, MatchPhrase, MatchWildcards, MatchSoundsLike, MatchAllWordForms, MatchByte, MatchFuzzy, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl, IgnoreSpace, IgnorePunct, HanjaPhoneticHangul); + function SetAllFuzzyOptions(); + + // properties + property CorrectHangulEndings read ReadCorrectHangulEndings write WriteCorrectHangulEndings; + property Font read ReadFont write WriteFont; + property Format read ReadFormat write WriteFormat; + property Forward read ReadForward write WriteForward; + property Found read ReadFound; + property Frame read ReadFrame; + property HanjaPhoneticHangul read ReadHanjaPhoneticHangul write WriteHanjaPhoneticHangul; + property Highlight read ReadHighlight write WriteHighlight; + property IgnorePunct read ReadIgnorePunct write WriteIgnorePunct; + property IgnoreSpace read ReadIgnoreSpace write WriteIgnoreSpace; + property LanguageID read ReadLanguageID write WriteLanguageID; + property LanguageIDFarEast read ReadLanguageIDFarEast write WriteLanguageIDFarEast; + property LanguageIDOther read ReadLanguageIDOther write WriteLanguageIDOther; + property MatchAlefHamza read ReadMatchAlefHamza write WriteMatchAlefHamza; + property MatchAllWordForms read ReadMatchAllWordForms write WriteMatchAllWordForms; + property MatchByte read ReadMatchByte write WriteMatchByte; + property MatchCase read ReadMatchCase write WriteMatchCase; + property MatchControl read ReadMatchControl write WriteMatchControl; + property MatchDiacritics read ReadMatchDiacritics write WriteMatchDiacritics; + property MatchFuzzy read ReadMatchFuzzy write WriteMatchFuzzy; + property MatchKashida read ReadMatchKashida write WriteMatchKashida; + property MatchPhrase read ReadMatchPhrase write WriteMatchPhrase; + property MatchPrefix read ReadMatchPrefix write WriteMatchPrefix; + property MatchSoundsLike read ReadMatchSoundsLike write WriteMatchSoundsLike; + property MatchSuffix read ReadMatchSuffix write WriteMatchSuffix; + property MatchWholeWord read ReadMatchWholeWord write WriteMatchWholeWord; + property MatchWildcards read ReadMatchWildcards write WriteMatchWildcards; + property NoProofing read ReadNoProofing write WriteNoProofing; + property ParagraphFormat read ReadParagraphFormat write WriteParagraphFormat; + property Replacement read ReadReplacement; + property Style read ReadStyle write WriteStyle; + property Text read ReadText write WriteText; + property Wrap read ReadWrap write WriteWrap; + function ReadCorrectHangulEndings(); + function WriteCorrectHangulEndings(_value); + function ReadFont(); + function WriteFont(_value); + function ReadFormat(); + function WriteFormat(_value); + function ReadForward(); + function WriteForward(_value); + function ReadFound(); + function ReadFrame(); + function ReadHanjaPhoneticHangul(); + function WriteHanjaPhoneticHangul(_value); + function ReadHighlight(); + function WriteHighlight(_value); + function ReadIgnorePunct(); + function WriteIgnorePunct(_value); + function ReadIgnoreSpace(); + function WriteIgnoreSpace(_value); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLanguageIDFarEast(); + function WriteLanguageIDFarEast(_value); + function ReadLanguageIDOther(); + function WriteLanguageIDOther(_value); + function ReadMatchAlefHamza(); + function WriteMatchAlefHamza(_value); + function ReadMatchAllWordForms(); + function WriteMatchAllWordForms(_value); + function ReadMatchByte(); + function WriteMatchByte(_value); + function ReadMatchCase(); + function WriteMatchCase(_value); + function ReadMatchControl(); + function WriteMatchControl(_value); + function ReadMatchDiacritics(); + function WriteMatchDiacritics(_value); + function ReadMatchFuzzy(); + function WriteMatchFuzzy(_value); + function ReadMatchKashida(); + function WriteMatchKashida(_value); + function ReadMatchPhrase(); + function WriteMatchPhrase(_value); + function ReadMatchPrefix(); + function WriteMatchPrefix(_value); + function ReadMatchSoundsLike(); + function WriteMatchSoundsLike(_value); + function ReadMatchSuffix(); + function WriteMatchSuffix(_value); + function ReadMatchWholeWord(); + function WriteMatchWholeWord(_value); + function ReadMatchWildcards(); + function WriteMatchWildcards(_value); + function ReadNoProofing(); + function WriteNoProofing(_value); + function ReadParagraphFormat(); + function WriteParagraphFormat(_value); + function ReadReplacement(); + function ReadStyle(); + function WriteStyle(_value); + function ReadText(); + function WriteText(_value); + function ReadWrap(); + function WriteWrap(_value); +end; + +type FirstLetterException = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + function ReadIndex(); + function ReadName(); +end; + +type FirstLetterExceptions = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Floor = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Paste(); + function Select(); + + // properties + property Format read ReadFormat; + property Name read ReadName; + property PictureType read ReadPictureType write WritePictureType; + property Thickness read ReadThickness write WriteThickness; + function ReadFormat(); + function ReadName(); + function ReadPictureType(); + function WritePictureType(_value); + function ReadThickness(); + function WriteThickness(_value); +end; + +type Font = class(VbaBase) +public + function Init(); + +public + // methods + function Grow(); + function Reset(); + function SetAsTemplateDefault(); + function Shrink(); + + // properties + property AllCaps read ReadAllCaps write WriteAllCaps; + property Bold read ReadBold write WriteBold; + property BoldBi read ReadBoldBi write WriteBoldBi; + property Borders read ReadBorders; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property ColorIndexBi read ReadColorIndexBi write WriteColorIndexBi; + property ContextualAlternates read ReadContextualAlternates write WriteContextualAlternates; + property DiacriticColor read ReadDiacriticColor write WriteDiacriticColor; + property DisableCharacterSpaceGrid read ReadDisableCharacterSpaceGrid write WriteDisableCharacterSpaceGrid; + property DoubleStrikeThrough read ReadDoubleStrikeThrough write WriteDoubleStrikeThrough; + property Duplicate read ReadDuplicate; + property Emboss read ReadEmboss write WriteEmboss; + property EmphasisMark read ReadEmphasisMark write WriteEmphasisMark; + property Engrave read ReadEngrave write WriteEngrave; + property Fill read ReadFill; + property Glow read ReadGlow; + property Hidden read ReadHidden write WriteHidden; + property Italic read ReadItalic write WriteItalic; + property ItalicBi read ReadItalicBi write WriteItalicBi; + property Kerning read ReadKerning write WriteKerning; + property Ligatures read ReadLigatures write WriteLigatures; + property Line read ReadLine write WriteLine; + property Name read ReadName write WriteName; + property NameAscii read ReadNameAscii write WriteNameAscii; + property NameBi read ReadNameBi write WriteNameBi; + property NameFarEast read ReadNameFarEast write WriteNameFarEast; + property NameOther read ReadNameOther write WriteNameOther; + property NumberForm read ReadNumberForm write WriteNumberForm; + property NumberSpacing read ReadNumberSpacing write WriteNumberSpacing; + property Outline read ReadOutline write WriteOutline; + property Position read ReadPosition write WritePosition; + property Reflection read ReadReflection; + property Scaling read ReadScaling write WriteScaling; + property Shading read ReadShading; + property Shadow read ReadShadow write WriteShadow; + property Size read ReadSize write WriteSize; + property SizeBi read ReadSizeBi write WriteSizeBi; + property SmallCaps read ReadSmallCaps write WriteSmallCaps; + property Spacing read ReadSpacing write WriteSpacing; + property StrikeThrough read ReadStrikeThrough write WriteStrikeThrough; + property StylisticSet read ReadStylisticSet write WriteStylisticSet; + property Subscript read ReadSubscript write WriteSubscript; + property Superscript read ReadSuperscript write WriteSuperscript; + property TextColor read ReadTextColor; + property TextShadow read ReadTextShadow; + property ThreeD read ReadThreeD; + property Underline read ReadUnderline write WriteUnderline; + property UnderlineColor read ReadUnderlineColor write WriteUnderlineColor; + function ReadAllCaps(); + function WriteAllCaps(_value); + function ReadBold(); + function WriteBold(_value); + function ReadBoldBi(); + function WriteBoldBi(_value); + function ReadBorders(); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadColorIndexBi(); + function WriteColorIndexBi(_value); + function ReadContextualAlternates(); + function WriteContextualAlternates(_value); + function ReadDiacriticColor(); + function WriteDiacriticColor(_value); + function ReadDisableCharacterSpaceGrid(); + function WriteDisableCharacterSpaceGrid(_value); + function ReadDoubleStrikeThrough(); + function WriteDoubleStrikeThrough(_value); + function ReadDuplicate(); + function ReadEmboss(); + function WriteEmboss(_value); + function ReadEmphasisMark(); + function WriteEmphasisMark(_value); + function ReadEngrave(); + function WriteEngrave(_value); + function ReadFill(); + function ReadGlow(); + function ReadHidden(); + function WriteHidden(_value); + function ReadItalic(); + function WriteItalic(_value); + function ReadItalicBi(); + function WriteItalicBi(_value); + function ReadKerning(); + function WriteKerning(_value); + function ReadLigatures(); + function WriteLigatures(_value); + function ReadLine(); + function WriteLine(_value); + function ReadName(); + function WriteName(_value); + function ReadNameAscii(); + function WriteNameAscii(_value); + function ReadNameBi(); + function WriteNameBi(_value); + function ReadNameFarEast(); + function WriteNameFarEast(_value); + function ReadNameOther(); + function WriteNameOther(_value); + function ReadNumberForm(); + function WriteNumberForm(_value); + function ReadNumberSpacing(); + function WriteNumberSpacing(_value); + function ReadOutline(); + function WriteOutline(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReflection(); + function ReadScaling(); + function WriteScaling(_value); + function ReadShading(); + function ReadShadow(); + function WriteShadow(_value); + function ReadSize(); + function WriteSize(_value); + function ReadSizeBi(); + function WriteSizeBi(_value); + function ReadSmallCaps(); + function WriteSmallCaps(_value); + function ReadSpacing(); + function WriteSpacing(_value); + function ReadStrikeThrough(); + function WriteStrikeThrough(_value); + function ReadStylisticSet(); + function WriteStylisticSet(_value); + function ReadSubscript(); + function WriteSubscript(_value); + function ReadSuperscript(); + function WriteSuperscript(_value); + function ReadTextColor(); + function ReadTextShadow(); + function ReadThreeD(); + function ReadUnderline(); + function WriteUnderline(_value); + function ReadUnderlineColor(); + function WriteUnderlineColor(_value); +end; + +type FontNames = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Footnote = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Range read ReadRange; + property Reference read ReadReference; + function ReadIndex(); + function ReadRange(); + function ReadReference(); +end; + +type FootnoteOptions = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property LayoutColumns read ReadLayoutColumns write WriteLayoutColumns; + property Location read ReadLocation write WriteLocation; + property NumberingRule read ReadNumberingRule write WriteNumberingRule; + property NumberStyle read ReadNumberStyle write WriteNumberStyle; + property StartingNumber read ReadStartingNumber write WriteStartingNumber; + function ReadLayoutColumns(); + function WriteLayoutColumns(_value); + function ReadLocation(); + function WriteLocation(_value); + function ReadNumberingRule(); + function WriteNumberingRule(_value); + function ReadNumberStyle(); + function WriteNumberStyle(_value); + function ReadStartingNumber(); + function WriteStartingNumber(_value); +end; + +type Footnotes = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Reference, Text); + function Convert(); + function Item(Index); + function ResetContinuationNotice(); + function ResetContinuationSeparator(); + function ResetSeparator(); + function SwapWithEndnotes(); + + // properties + property ContinuationNotice read ReadContinuationNotice; + property ContinuationSeparator read ReadContinuationSeparator; + property Count read ReadCount; + property Location read ReadLocation write WriteLocation; + property NumberingRule read ReadNumberingRule write WriteNumberingRule; + property NumberStyle read ReadNumberStyle write WriteNumberStyle; + property Separator read ReadSeparator; + property StartingNumber read ReadStartingNumber write WriteStartingNumber; + function ReadContinuationNotice(); + function ReadContinuationSeparator(); + function ReadCount(); + function ReadLocation(); + function WriteLocation(_value); + function ReadNumberingRule(); + function WriteNumberingRule(_value); + function ReadNumberStyle(); + function WriteNumberStyle(_value); + function ReadSeparator(); + function ReadStartingNumber(); + function WriteStartingNumber(_value); +end; + +type FormField = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function Select(); + + // properties + property CalculateOnExit read ReadCalculateOnExit write WriteCalculateOnExit; + property CheckBox read ReadCheckBox; + property DropDown read ReadDropDown; + property Enabled read ReadEnabled write WriteEnabled; + property EntryMacro read ReadEntryMacro write WriteEntryMacro; + property ExitMacro read ReadExitMacro write WriteExitMacro; + property HelpText read ReadHelpText write WriteHelpText; + property Name read ReadName write WriteName; + property Next read ReadNext; + property OwnHelp read ReadOwnHelp write WriteOwnHelp; + property OwnStatus read ReadOwnStatus write WriteOwnStatus; + property Previous read ReadPrevious; + property Range read ReadRange; + property Result read ReadResult write WriteResult; + property StatusText read ReadStatusText write WriteStatusText; + property TextInput read ReadTextInput; + property Type read ReadType; + function ReadCalculateOnExit(); + function WriteCalculateOnExit(_value); + function ReadCheckBox(); + function ReadDropDown(); + function ReadEnabled(); + function WriteEnabled(_value); + function ReadEntryMacro(); + function WriteEntryMacro(_value); + function ReadExitMacro(); + function WriteExitMacro(_value); + function ReadHelpText(); + function WriteHelpText(_value); + function ReadName(); + function WriteName(_value); + function ReadNext(); + function ReadOwnHelp(); + function WriteOwnHelp(_value); + function ReadOwnStatus(); + function WriteOwnStatus(_value); + function ReadPrevious(); + function ReadRange(); + function ReadResult(); + function WriteResult(_value); + function ReadStatusText(); + function WriteStatusText(_value); + function ReadTextInput(); + function ReadType(); +end; + +type FormFields = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Type); + function Item(Index); + + // properties + property Count read ReadCount; + property Shaded read ReadShaded write WriteShaded; + function ReadCount(); + function ReadShaded(); + function WriteShaded(_value); +end; + +type Frame = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function Select(); + + // properties + property Borders read ReadBorders; + property Height read ReadHeight write WriteHeight; + property HeightRule read ReadHeightRule write WriteHeightRule; + property HorizontalDistanceFromText read ReadHorizontalDistanceFromText write WriteHorizontalDistanceFromText; + property HorizontalPosition read ReadHorizontalPosition write WriteHorizontalPosition; + property LockAnchor read ReadLockAnchor write WriteLockAnchor; + property Range read ReadRange; + property RelativeHorizontalPosition read ReadRelativeHorizontalPosition write WriteRelativeHorizontalPosition; + property RelativeVerticalPosition read ReadRelativeVerticalPosition write WriteRelativeVerticalPosition; + property Shading read ReadShading; + property TextWrap read ReadTextWrap write WriteTextWrap; + property VerticalDistanceFromText read ReadVerticalDistanceFromText write WriteVerticalDistanceFromText; + property VerticalPosition read ReadVerticalPosition write WriteVerticalPosition; + property Width read ReadWidth write WriteWidth; + property WidthRule read ReadWidthRule write WriteWidthRule; + function ReadBorders(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightRule(); + function WriteHeightRule(_value); + function ReadHorizontalDistanceFromText(); + function WriteHorizontalDistanceFromText(_value); + function ReadHorizontalPosition(); + function WriteHorizontalPosition(_value); + function ReadLockAnchor(); + function WriteLockAnchor(_value); + function ReadRange(); + function ReadRelativeHorizontalPosition(); + function WriteRelativeHorizontalPosition(_value); + function ReadRelativeVerticalPosition(); + function WriteRelativeVerticalPosition(_value); + function ReadShading(); + function ReadTextWrap(); + function WriteTextWrap(_value); + function ReadVerticalDistanceFromText(); + function WriteVerticalDistanceFromText(_value); + function ReadVerticalPosition(); + function WriteVerticalPosition(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWidthRule(); + function WriteWidthRule(_value); +end; + +type Frames = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range); + function Delete(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Frameset = class(VbaBase) +public + function Init(); + +public + // methods + function AddNewFrame(Where); + function Delete(); + function ChildFramesetItem(Index); + + // properties + property ChildFramesetCount read ReadChildFramesetCount; + property FrameDefaultURL read ReadFrameDefaultURL write WriteFrameDefaultURL; + property FrameDisplayBorders read ReadFrameDisplayBorders write WriteFrameDisplayBorders; + property FrameLinkToFile read ReadFrameLinkToFile write WriteFrameLinkToFile; + property FrameName read ReadFrameName write WriteFrameName; + property FrameResizable read ReadFrameResizable write WriteFrameResizable; + property FrameScrollbarType read ReadFrameScrollbarType write WriteFrameScrollbarType; + property FramesetBorderColor read ReadFramesetBorderColor write WriteFramesetBorderColor; + property FramesetBorderWidth read ReadFramesetBorderWidth write WriteFramesetBorderWidth; + property Height read ReadHeight write WriteHeight; + property HeightType read ReadHeightType write WriteHeightType; + property ParentFrameset read ReadParentFrameset; + property Type read ReadType; + property Width read ReadWidth write WriteWidth; + property WidthType read ReadWidthType write WriteWidthType; + function ReadChildFramesetCount(); + function ReadFrameDefaultURL(); + function WriteFrameDefaultURL(_value); + function ReadFrameDisplayBorders(); + function WriteFrameDisplayBorders(_value); + function ReadFrameLinkToFile(); + function WriteFrameLinkToFile(_value); + function ReadFrameName(); + function WriteFrameName(_value); + function ReadFrameResizable(); + function WriteFrameResizable(_value); + function ReadFrameScrollbarType(); + function WriteFrameScrollbarType(_value); + function ReadFramesetBorderColor(); + function WriteFramesetBorderColor(_value); + function ReadFramesetBorderWidth(); + function WriteFramesetBorderWidth(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightType(); + function WriteHeightType(_value); + function ReadParentFrameset(); + function ReadType(); + function ReadWidth(); + function WriteWidth(_value); + function ReadWidthType(); + function WriteWidthType(_value); +end; + +type FreeformBuilder = class(VbaBase) +public + function Init(); + +public + // methods + function AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3); + function ConvertToShape(Anchor); + + // properties +end; + +type FullSeriesCollection = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Global = class(VbaBase) +public + function Init(); + +public + // methods + function BuildKeyCode(Arg1, Arg2, Arg3, Arg4); + function CentimetersToPoints(Centimeters); + function ChangeFileOpenDirectory(Path); + function CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10); + function CleanString(String); + function DDEExecute(Channel, Command); + function DDEInitiate(App, Topic); + function DDEPoke(Channel, Item, Data); + function DDERequest(Channel, Item); + function DDETerminate(Channel); + function DDETerminateAll(); + function GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10); + function Help(HelpType); + function InchesToPoints(Inches); + function KeyString(KeyCode, KeyCode2); + function LinesToPoints(Lines); + function MillimetersToPoints(Millimeters); + function NewWindow(); + function PicasToPoints(Picas); + function PixelsToPoints(Pixels, fVertical); + function PointsToCentimeters(Points); + function PointsToInches(Points); + function PointsToLines(Points); + function PointsToMillimeters(Points); + function PointsToPicas(Points); + function PointsToPixels(Points, fVertical); + function Repeat(Times); + function FindKey(KeyCode, KeyCode2); + function IsObjectValid(Object); + function KeysBoundTo(KeyCategory, Command, CommandParameter); + function SynonymInfo(Word, LanguageID); + + // properties + property ActiveDocument read ReadActiveDocument; + property ActivePrinter read ReadActivePrinter write WriteActivePrinter; + property ActiveProtectedViewWindow read ReadActiveProtectedViewWindow; + property ActiveWindow read ReadActiveWindow; + property AddIns read ReadAddIns; + property AutoCaptions read ReadAutoCaptions; + property AutoCorrect read ReadAutoCorrect; + property AutoCorrectEmail read ReadAutoCorrectEmail; + property CaptionLabels read ReadCaptionLabels; + property CommandBars read ReadCommandBars; + property CustomDictionaries read ReadCustomDictionaries; + property CustomizationContext read ReadCustomizationContext write WriteCustomizationContext; + property Dialogs read ReadDialogs; + property Documents read ReadDocuments; + property FileConverters read ReadFileConverters; + property FontNames read ReadFontNames; + property HangulHanjaDictionaries read ReadHangulHanjaDictionaries; + property IsSandboxed read ReadIsSandboxed; + property KeyBindings read ReadKeyBindings; + property LandscapeFontNames read ReadLandscapeFontNames; + property Languages read ReadLanguages; + property LanguageSettings read ReadLanguageSettings; + property ListGalleries read ReadListGalleries; + property MacroContainer read ReadMacroContainer; + property Name read ReadName; + property NormalTemplate read ReadNormalTemplate; + property Options read ReadOptions; + property PortraitFontNames read ReadPortraitFontNames; + property PrintPreview read ReadPrintPreview write WritePrintPreview; + property ProtectedViewWindows read ReadProtectedViewWindows; + property RecentFiles read ReadRecentFiles; + property Selection read ReadSelection; + property ShowVisualBasicEditor read ReadShowVisualBasicEditor write WriteShowVisualBasicEditor; + property System read ReadSystem; + property Tasks read ReadTasks; + property Templates read ReadTemplates; + property VBE read ReadVBE; + property Windows read ReadWindows; + property WordBasic read ReadWordBasic; + function ReadActiveDocument(); + function ReadActivePrinter(); + function WriteActivePrinter(_value); + function ReadActiveProtectedViewWindow(); + function ReadActiveWindow(); + function ReadAddIns(); + function ReadAutoCaptions(); + function ReadAutoCorrect(); + function ReadAutoCorrectEmail(); + function ReadCaptionLabels(); + function ReadCommandBars(); + function ReadCustomDictionaries(); + function ReadCustomizationContext(); + function WriteCustomizationContext(_value); + function ReadDialogs(); + function ReadDocuments(); + function ReadFileConverters(); + function ReadFontNames(); + function ReadHangulHanjaDictionaries(); + function ReadIsSandboxed(); + function ReadKeyBindings(); + function ReadLandscapeFontNames(); + function ReadLanguages(); + function ReadLanguageSettings(); + function ReadListGalleries(); + function ReadMacroContainer(); + function ReadName(); + function ReadNormalTemplate(); + function ReadOptions(); + function ReadPortraitFontNames(); + function ReadPrintPreview(); + function WritePrintPreview(_value); + function ReadProtectedViewWindows(); + function ReadRecentFiles(); + function ReadSelection(); + function ReadShowVisualBasicEditor(); + function WriteShowVisualBasicEditor(_value); + function ReadSystem(); + function ReadTasks(); + function ReadTemplates(); + function ReadVBE(); + function ReadWindows(); + function ReadWordBasic(); +end; + +type GlowFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Color read ReadColor; + property Radius read ReadRadius write WriteRadius; + property Transparency read ReadTransparency write WriteTransparency; + function ReadColor(); + function ReadRadius(); + function WriteRadius(_value); + function ReadTransparency(); + function WriteTransparency(_value); +end; + +type Gridlines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type GroupShapes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + function Range(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type HangulAndAlphabetException = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + function ReadIndex(); + function ReadName(); +end; + +type HangulAndAlphabetExceptions = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type HeaderFooter = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Exists read ReadExists write WriteExists; + property Index read ReadIndex; + property IsHeader read ReadIsHeader; + property LinkToPrevious read ReadLinkToPrevious write WriteLinkToPrevious; + property PageNumbers read ReadPageNumbers; + property Range read ReadRange; + property Shapes read ReadShapes; + function ReadExists(); + function WriteExists(_value); + function ReadIndex(); + function ReadIsHeader(); + function ReadLinkToPrevious(); + function WriteLinkToPrevious(_value); + function ReadPageNumbers(); + function ReadRange(); + function ReadShapes(); +end; + +type HeadersFooters = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type HeadingStyle = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Level read ReadLevel write WriteLevel; + property Style read ReadStyle write WriteStyle; + function ReadLevel(); + function WriteLevel(_value); + function ReadStyle(); + function WriteStyle(_value); +end; + +type HeadingStyles = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Style, Level); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type HiLoLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type HorizontalLineFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property NoShade read ReadNoShade write WriteNoShade; + property PercentWidth read ReadPercentWidth write WritePercentWidth; + property WidthType read ReadWidthType write WriteWidthType; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadNoShade(); + function WriteNoShade(_value); + function ReadPercentWidth(); + function WritePercentWidth(_value); + function ReadWidthType(); + function WriteWidthType(_value); +end; + +type HTMLDivision = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function HTMLDivisionParent(LevelsUp); + + // properties + property Borders read ReadBorders; + property HTMLDivisions read ReadHTMLDivisions; + property LeftIndent read ReadLeftIndent write WriteLeftIndent; + property Range read ReadRange; + property RightIndent read ReadRightIndent write WriteRightIndent; + property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter; + property SpaceBefore read ReadSpaceBefore write WriteSpaceBefore; + function ReadBorders(); + function ReadHTMLDivisions(); + function ReadLeftIndent(); + function WriteLeftIndent(_value); + function ReadRange(); + function ReadRightIndent(); + function WriteRightIndent(_value); + function ReadSpaceAfter(); + function WriteSpaceAfter(_value); + function ReadSpaceBefore(); + function WriteSpaceBefore(_value); +end; + +type HTMLDivisions = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range); + function Item(Index); + + // properties + property Count read ReadCount; + property NestingLevel read ReadNestingLevel; + function ReadCount(); + function ReadNestingLevel(); +end; + +type Hyperlink = class(VbaBase) +public + function Init(); + +public + // methods + function AddToFavorites(); + function CreateNewDocument(FileName, EditNow, Overwrite); + function Delete(); + function Follow(NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo); + + // properties + property Address read ReadAddress write WriteAddress; + property EmailSubject read ReadEmailSubject write WriteEmailSubject; + property ExtraInfoRequired read ReadExtraInfoRequired; + property Name read ReadName; + property Range read ReadRange; + property ScreenTip read ReadScreenTip write WriteScreenTip; + property Shape read ReadShape; + property SubAddress read ReadSubAddress write WriteSubAddress; + property Target read ReadTarget write WriteTarget; + property TextToDisplay read ReadTextToDisplay write WriteTextToDisplay; + property Type read ReadType; + function ReadAddress(); + function WriteAddress(_value); + function ReadEmailSubject(); + function WriteEmailSubject(_value); + function ReadExtraInfoRequired(); + function ReadName(); + function ReadRange(); + function ReadScreenTip(); + function WriteScreenTip(_value); + function ReadShape(); + function ReadSubAddress(); + function WriteSubAddress(_value); + function ReadTarget(); + function WriteTarget(_value); + function ReadTextToDisplay(); + function WriteTextToDisplay(_value); + function ReadType(); +end; + +type Hyperlinks = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay, Target); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Index = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Update(); + + // properties + property AccentedLetters read ReadAccentedLetters write WriteAccentedLetters; + property Filter read ReadFilter write WriteFilter; + property HeadingSeparator read ReadHeadingSeparator write WriteHeadingSeparator; + property IndexLanguage read ReadIndexLanguage write WriteIndexLanguage; + property NumberOfColumns read ReadNumberOfColumns write WriteNumberOfColumns; + property Range read ReadRange; + property RightAlignPageNumbers read ReadRightAlignPageNumbers write WriteRightAlignPageNumbers; + property SortBy read ReadSortBy write WriteSortBy; + property TabLeader read ReadTabLeader write WriteTabLeader; + property Type read ReadType write WriteType; + function ReadAccentedLetters(); + function WriteAccentedLetters(_value); + function ReadFilter(); + function WriteFilter(_value); + function ReadHeadingSeparator(); + function WriteHeadingSeparator(_value); + function ReadIndexLanguage(); + function WriteIndexLanguage(_value); + function ReadNumberOfColumns(); + function WriteNumberOfColumns(_value); + function ReadRange(); + function ReadRightAlignPageNumbers(); + function WriteRightAlignPageNumbers(_value); + function ReadSortBy(); + function WriteSortBy(_value); + function ReadTabLeader(); + function WriteTabLeader(_value); + function ReadType(); + function WriteType(_value); +end; + +type Indexes = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, HeadingSeparator, RightAlignPageNumbers, Type, NumberOfColumns, AccentedLetters, SortBy, IndexLanguage); + function AutoMarkEntries(ConcordanceFileName); + function Item(Index); + function MarkAllEntries(Range, Entry, EntryAutoText, CrossReference, CrossReferenceAutoText, BookmarkName, Bold, Italic); + function MarkEntry(Range, Entry, EntryAutoText, CrossReference, CrossReferenceAutoText, BookmarkName, Bold, Italic, Reading); + + // properties + property Count read ReadCount; + property Format read ReadFormat write WriteFormat; + function ReadCount(); + function ReadFormat(); + function WriteFormat(_value); +end; + +type InlineShape = class(VbaBase) +public + function Init(); + +public + // methods + function ConvertToShape(); + function Delete(); + function Reset(); + function Select(); + + // properties + property AlternativeText read ReadAlternativeText write WriteAlternativeText; + property Borders read ReadBorders; + property Chart read ReadChart; + property Field read ReadField; + property Fill read ReadFill; + property Glow read ReadGlow; + property GroupItems read ReadGroupItems; + property HasChart read ReadHasChart; + property HasSmartArt read ReadHasSmartArt; + property Height read ReadHeight write WriteHeight; + property HorizontalLineFormat read ReadHorizontalLineFormat; + property Hyperlink read ReadHyperlink; + property IsPictureBullet read ReadIsPictureBullet; + property Line read ReadLine; + property LinkFormat read ReadLinkFormat; + property LockAspectRatio read ReadLockAspectRatio write WriteLockAspectRatio; + property OLEFormat read ReadOLEFormat; + property PictureFormat read ReadPictureFormat; + property Range read ReadRange; + property Reflection read ReadReflection; + property ScaleHeight read ReadScaleHeight write WriteScaleHeight; + property ScaleWidth read ReadScaleWidth write WriteScaleWidth; + property Script read ReadScript; + property Shadow read ReadShadow; + property SmartArt read ReadSmartArt; + property SoftEdge read ReadSoftEdge; + property TextEffect read ReadTextEffect; + property Title read ReadTitle write WriteTitle; + property Type read ReadType; + property Width read ReadWidth write WriteWidth; + function ReadAlternativeText(); + function WriteAlternativeText(_value); + function ReadBorders(); + function ReadChart(); + function ReadField(); + function ReadFill(); + function ReadGlow(); + function ReadGroupItems(); + function ReadHasChart(); + function ReadHasSmartArt(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHorizontalLineFormat(); + function ReadHyperlink(); + function ReadIsPictureBullet(); + function ReadLine(); + function ReadLinkFormat(); + function ReadLockAspectRatio(); + function WriteLockAspectRatio(_value); + function ReadOLEFormat(); + function ReadPictureFormat(); + function ReadRange(); + function ReadReflection(); + function ReadScaleHeight(); + function WriteScaleHeight(_value); + function ReadScaleWidth(); + function WriteScaleWidth(_value); + function ReadScript(); + function ReadShadow(); + function ReadSmartArt(); + function ReadSoftEdge(); + function ReadTextEffect(); + function ReadTitle(); + function WriteTitle(_value); + function ReadType(); + function ReadWidth(); + function WriteWidth(_value); +end; + +type InlineShapes = class(VbaBase) +public + function Init(); + +public + // methods + function AddChart2(Style, Type, Range, NewLayout); + function AddHorizontalLine(FileName, Range); + function AddHorizontalLineStandard(Range); + function AddOLEControl(ClassType, Range); + function AddOLEObject(ClassType, FileName, LinkToFile, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Range); + function AddPicture(FileName, LinkToFile, SaveWithDocument, Range); + function AddPictureBullet(FileName, Range); + function AddSmartArt(Layout, Range); + function AddWebVideo(EmbedCode, VideoWidth, VideoHeight, PosterFrameImage, Url, Range); + function Item(Index); + function New(Range); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Interior = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Color read ReadColor write WriteColor; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property Pattern read ReadPattern write WritePattern; + property PatternColor read ReadPatternColor write WritePatternColor; + property PatternColorIndex read ReadPatternColorIndex write WritePatternColorIndex; + function ReadColor(); + function WriteColor(_value); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadPattern(); + function WritePattern(_value); + function ReadPatternColor(); + function WritePatternColor(_value); + function ReadPatternColorIndex(); + function WritePatternColorIndex(_value); +end; + +type KeyBinding = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + function Disable(); + function Execute(); + function Rebind(KeyCategory, Command, CommandParameter); + + // properties + property Command read ReadCommand; + property CommandParameter read ReadCommandParameter; + property Context read ReadContext; + property KeyCategory read ReadKeyCategory; + property KeyCode read ReadKeyCode; + property KeyCode2 read ReadKeyCode2; + property KeyString read ReadKeyString; + property Protected read ReadProtected; + function ReadCommand(); + function ReadCommandParameter(); + function ReadContext(); + function ReadKeyCategory(); + function ReadKeyCode(); + function ReadKeyCode2(); + function ReadKeyString(); + function ReadProtected(); +end; + +type KeyBindings = class(VbaBase) +public + function Init(); + +public + // methods + function Add(KeyCategory, Command, KeyCode, KeyCode2, CommandParameter); + function ClearAll(); + function Item(Index); + function Key(KeyCode, KeyCode2); + + // properties + property Context read ReadContext; + property Count read ReadCount; + function ReadContext(); + function ReadCount(); +end; + +type KeysBoundTo = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + function Key(KeyCode, KeyCode2); + + // properties + property Command read ReadCommand; + property CommandParameter read ReadCommandParameter; + property Context read ReadContext; + property Count read ReadCount; + property KeyCategory read ReadKeyCategory; + function ReadCommand(); + function ReadCommandParameter(); + function ReadContext(); + function ReadCount(); + function ReadKeyCategory(); +end; + +type Language = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ActiveGrammarDictionary read ReadActiveGrammarDictionary; + property ActiveHyphenationDictionary read ReadActiveHyphenationDictionary; + property ActiveSpellingDictionary read ReadActiveSpellingDictionary; + property ActiveThesaurusDictionary read ReadActiveThesaurusDictionary; + property DefaultWritingStyle read ReadDefaultWritingStyle write WriteDefaultWritingStyle; + property ID read ReadID; + property Name read ReadName; + property NameLocal read ReadNameLocal; + property SpellingDictionaryType read ReadSpellingDictionaryType write WriteSpellingDictionaryType; + property WritingStyleList read ReadWritingStyleList; + function ReadActiveGrammarDictionary(); + function ReadActiveHyphenationDictionary(); + function ReadActiveSpellingDictionary(); + function ReadActiveThesaurusDictionary(); + function ReadDefaultWritingStyle(); + function WriteDefaultWritingStyle(_value); + function ReadID(); + function ReadName(); + function ReadNameLocal(); + function ReadSpellingDictionaryType(); + function WriteSpellingDictionaryType(_value); + function ReadWritingStyleList(); +end; + +type Languages = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type LeaderLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + function ReadBorder(); + function ReadFormat(); +end; + +type Legend = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + function Delete(); + function LegendEntries(); + function Select(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight write WriteHeight; + property IncludeInLayout read ReadIncludeInLayout write WriteIncludeInLayout; + property Left read ReadLeft; + property Name read ReadName; + property Position read ReadPosition write WritePosition; + property Shadow read ReadShadow write WriteShadow; + property Top read ReadTop write WriteTop; + property Width read ReadWidth write WriteWidth; + function ReadFormat(); + function ReadHeight(); + function WriteHeight(_value); + function ReadIncludeInLayout(); + function WriteIncludeInLayout(_value); + function ReadLeft(); + function ReadName(); + function ReadPosition(); + function WritePosition(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadTop(); + function WriteTop(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type LegendEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type LegendEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Font read ReadFont; + property Format read ReadFormat; + property Height read ReadHeight; + property Index read ReadIndex; + property Left read ReadLeft; + property LegendKey read ReadLegendKey; + property Top read ReadTop; + property Width read ReadWidth; + function ReadFont(); + function ReadFormat(); + function ReadHeight(); + function ReadIndex(); + function ReadLeft(); + function ReadLegendKey(); + function ReadTop(); + function ReadWidth(); +end; + +type LegendKey = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Delete(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property Left read ReadLeft; + property MarkerBackgroundColor read ReadMarkerBackgroundColor write WriteMarkerBackgroundColor; + property MarkerBackgroundColorIndex read ReadMarkerBackgroundColorIndex write WriteMarkerBackgroundColorIndex; + property MarkerForegroundColor read ReadMarkerForegroundColor write WriteMarkerForegroundColor; + property MarkerForegroundColorIndex read ReadMarkerForegroundColorIndex write WriteMarkerForegroundColorIndex; + property MarkerSize read ReadMarkerSize write WriteMarkerSize; + property MarkerStyle read ReadMarkerStyle write WriteMarkerStyle; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit2 read ReadPictureUnit2 write WritePictureUnit2; + property Shadow read ReadShadow write WriteShadow; + property Smooth read ReadSmooth write WriteSmooth; + property Top read ReadTop; + property Width read ReadWidth; + function ReadFormat(); + function ReadHeight(); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadLeft(); + function ReadMarkerBackgroundColor(); + function WriteMarkerBackgroundColor(_value); + function ReadMarkerBackgroundColorIndex(); + function WriteMarkerBackgroundColorIndex(_value); + function ReadMarkerForegroundColor(); + function WriteMarkerForegroundColor(_value); + function ReadMarkerForegroundColorIndex(); + function WriteMarkerForegroundColorIndex(_value); + function ReadMarkerSize(); + function WriteMarkerSize(_value); + function ReadMarkerStyle(); + function WriteMarkerStyle(_value); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit2(); + function WritePictureUnit2(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadSmooth(); + function WriteSmooth(_value); + function ReadTop(); + function ReadWidth(); +end; + +type LetterContent = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AttentionLine read ReadAttentionLine write WriteAttentionLine; + property CCList read ReadCCList write WriteCCList; + property Closing read ReadClosing write WriteClosing; + property DateFormat read ReadDateFormat write WriteDateFormat; + property Duplicate read ReadDuplicate; + property EnclosureNumber read ReadEnclosureNumber write WriteEnclosureNumber; + property IncludeHeaderFooter read ReadIncludeHeaderFooter write WriteIncludeHeaderFooter; + property InfoBlock read ReadInfoBlock; + property Letterhead read ReadLetterhead write WriteLetterhead; + property LetterheadLocation read ReadLetterheadLocation write WriteLetterheadLocation; + property LetterheadSize read ReadLetterheadSize write WriteLetterheadSize; + property LetterStyle read ReadLetterStyle write WriteLetterStyle; + property MailingInstructions read ReadMailingInstructions write WriteMailingInstructions; + property PageDesign read ReadPageDesign write WritePageDesign; + property RecipientAddress read ReadRecipientAddress write WriteRecipientAddress; + property RecipientCode read ReadRecipientCode write WriteRecipientCode; + property RecipientGender read ReadRecipientGender write WriteRecipientGender; + property RecipientName read ReadRecipientName write WriteRecipientName; + property RecipientReference read ReadRecipientReference write WriteRecipientReference; + property ReturnAddress read ReadReturnAddress write WriteReturnAddress; + property ReturnAddressShortForm read ReadReturnAddressShortForm write WriteReturnAddressShortForm; + property Salutation read ReadSalutation write WriteSalutation; + property SalutationType read ReadSalutationType write WriteSalutationType; + property SenderCity read ReadSenderCity write WriteSenderCity; + property SenderCode read ReadSenderCode write WriteSenderCode; + property SenderCompany read ReadSenderCompany write WriteSenderCompany; + property SenderGender read ReadSenderGender write WriteSenderGender; + property SenderInitials read ReadSenderInitials write WriteSenderInitials; + property SenderJobTitle read ReadSenderJobTitle write WriteSenderJobTitle; + property SenderName read ReadSenderName write WriteSenderName; + property SenderReference read ReadSenderReference write WriteSenderReference; + property Subject read ReadSubject write WriteSubject; + function ReadAttentionLine(); + function WriteAttentionLine(_value); + function ReadCCList(); + function WriteCCList(_value); + function ReadClosing(); + function WriteClosing(_value); + function ReadDateFormat(); + function WriteDateFormat(_value); + function ReadDuplicate(); + function ReadEnclosureNumber(); + function WriteEnclosureNumber(_value); + function ReadIncludeHeaderFooter(); + function WriteIncludeHeaderFooter(_value); + function ReadInfoBlock(); + function ReadLetterhead(); + function WriteLetterhead(_value); + function ReadLetterheadLocation(); + function WriteLetterheadLocation(_value); + function ReadLetterheadSize(); + function WriteLetterheadSize(_value); + function ReadLetterStyle(); + function WriteLetterStyle(_value); + function ReadMailingInstructions(); + function WriteMailingInstructions(_value); + function ReadPageDesign(); + function WritePageDesign(_value); + function ReadRecipientAddress(); + function WriteRecipientAddress(_value); + function ReadRecipientCode(); + function WriteRecipientCode(_value); + function ReadRecipientGender(); + function WriteRecipientGender(_value); + function ReadRecipientName(); + function WriteRecipientName(_value); + function ReadRecipientReference(); + function WriteRecipientReference(_value); + function ReadReturnAddress(); + function WriteReturnAddress(_value); + function ReadReturnAddressShortForm(); + function WriteReturnAddressShortForm(_value); + function ReadSalutation(); + function WriteSalutation(_value); + function ReadSalutationType(); + function WriteSalutationType(_value); + function ReadSenderCity(); + function WriteSenderCity(_value); + function ReadSenderCode(); + function WriteSenderCode(_value); + function ReadSenderCompany(); + function WriteSenderCompany(_value); + function ReadSenderGender(); + function WriteSenderGender(_value); + function ReadSenderInitials(); + function WriteSenderInitials(_value); + function ReadSenderJobTitle(); + function WriteSenderJobTitle(_value); + function ReadSenderName(); + function WriteSenderName(_value); + function ReadSenderReference(); + function WriteSenderReference(_value); + function ReadSubject(); + function WriteSubject(_value); +end; + +type Line = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Height read ReadHeight write WriteHeight; + property Left read ReadLeft; + property LineType read ReadLineType; + property Range read ReadRange; + property Rectangles read ReadRectangles; + property Top read ReadTop; + property Width read ReadWidth; + function ReadHeight(); + function WriteHeight(_value); + function ReadLeft(); + function ReadLineType(); + function ReadRange(); + function ReadRectangles(); + function ReadTop(); + function ReadWidth(); +end; + +type LineFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property BackColor read ReadBackColor write WriteBackColor; + property BeginArrowheadLength read ReadBeginArrowheadLength write WriteBeginArrowheadLength; + property BeginArrowheadStyle read ReadBeginArrowheadStyle write WriteBeginArrowheadStyle; + property BeginArrowheadWidth read ReadBeginArrowheadWidth write WriteBeginArrowheadWidth; + property DashStyle read ReadDashStyle write WriteDashStyle; + property EndArrowheadLength read ReadEndArrowheadLength write WriteEndArrowheadLength; + property EndArrowheadStyle read ReadEndArrowheadStyle write WriteEndArrowheadStyle; + property EndArrowheadWidth read ReadEndArrowheadWidth write WriteEndArrowheadWidth; + property ForeColor read ReadForeColor write WriteForeColor; + property InsetPen read ReadInsetPen write WriteInsetPen; + property Pattern read ReadPattern write WritePattern; + property Style read ReadStyle write WriteStyle; + property Transparency read ReadTransparency write WriteTransparency; + property Visible read ReadVisible write WriteVisible; + property Weight read ReadWeight write WriteWeight; + function ReadBackColor(); + function WriteBackColor(_value); + function ReadBeginArrowheadLength(); + function WriteBeginArrowheadLength(_value); + function ReadBeginArrowheadStyle(); + function WriteBeginArrowheadStyle(_value); + function ReadBeginArrowheadWidth(); + function WriteBeginArrowheadWidth(_value); + function ReadDashStyle(); + function WriteDashStyle(_value); + function ReadEndArrowheadLength(); + function WriteEndArrowheadLength(_value); + function ReadEndArrowheadStyle(); + function WriteEndArrowheadStyle(_value); + function ReadEndArrowheadWidth(); + function WriteEndArrowheadWidth(_value); + function ReadForeColor(); + function WriteForeColor(_value); + function ReadInsetPen(); + function WriteInsetPen(_value); + function ReadPattern(); + function WritePattern(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTransparency(); + function WriteTransparency(_value); + function ReadVisible(); + function WriteVisible(_value); + function ReadWeight(); + function WriteWeight(_value); +end; + +type LineNumbering = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Active read ReadActive write WriteActive; + property CountBy read ReadCountBy write WriteCountBy; + property DistanceFromText read ReadDistanceFromText write WriteDistanceFromText; + property RestartMode read ReadRestartMode write WriteRestartMode; + property StartingNumber read ReadStartingNumber write WriteStartingNumber; + function ReadActive(); + function WriteActive(_value); + function ReadCountBy(); + function WriteCountBy(_value); + function ReadDistanceFromText(); + function WriteDistanceFromText(_value); + function ReadRestartMode(); + function WriteRestartMode(_value); + function ReadStartingNumber(); + function WriteStartingNumber(_value); +end; + +type Lines = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type LinkFormat = class(VbaBase) +public + function Init(); + +public + // methods + function BreakLink(); + function Update(); + + // properties + property AutoUpdate read ReadAutoUpdate write WriteAutoUpdate; + property Locked read ReadLocked write WriteLocked; + property SavePictureWithDocument read ReadSavePictureWithDocument write WriteSavePictureWithDocument; + property SourceFullName read ReadSourceFullName write WriteSourceFullName; + property SourceName read ReadSourceName; + property SourcePath read ReadSourcePath; + property Type read ReadType; + function ReadAutoUpdate(); + function WriteAutoUpdate(_value); + function ReadLocked(); + function WriteLocked(_value); + function ReadSavePictureWithDocument(); + function WriteSavePictureWithDocument(_value); + function ReadSourceFullName(); + function WriteSourceFullName(_value); + function ReadSourceName(); + function ReadSourcePath(); + function ReadType(); +end; + +type List = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyListTemplate(ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior); + function ApplyListTemplateWithLevel(ListTemplate, ContinuePreviousList, DefaultListBehavior, ApplyLevel); + function CanContinuePreviousList(ListTemplate); + function ConvertNumbersToText(); + function CountNumberedItems(); + function RemoveNumbers(NumberType); + + // properties + property ListParagraphs read ReadListParagraphs; + property Range read ReadRange; + property SingleListTemplate read ReadSingleListTemplate; + property StyleName read ReadStyleName; + function ReadListParagraphs(); + function ReadRange(); + function ReadSingleListTemplate(); + function ReadStyleName(); +end; + +type ListEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Index); + function Clear(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ListEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName write WriteName; + function ReadIndex(); + function ReadName(); + function WriteName(_value); +end; + +type ListFormat = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyBulletDefault(DefaultListBehavior); + function ApplyListTemplate(ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior); + function ApplyListTemplateWithLevel(ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior, ApplyLevel); + function ApplyNumberDefault(DefaultListBehavior); + function ApplyOutlineNumberDefault(DefaultListBehavior); + function CanContinuePreviousList(ListTemplate); + function ConvertNumbersToText(); + function CountNumberedItems(); + function ListIndent(); + function ListOutdent(); + function RemoveNumbers(NumberType); + + // properties + property List read ReadList; + property ListLevelNumber read ReadListLevelNumber write WriteListLevelNumber; + property ListPictureBullet read ReadListPictureBullet; + property ListString read ReadListString; + property ListTemplate read ReadListTemplate; + property ListType read ReadListType; + property ListValue read ReadListValue; + property SingleList read ReadSingleList; + property SingleListTemplate read ReadSingleListTemplate; + function ReadList(); + function ReadListLevelNumber(); + function WriteListLevelNumber(_value); + function ReadListPictureBullet(); + function ReadListString(); + function ReadListTemplate(); + function ReadListType(); + function ReadListValue(); + function ReadSingleList(); + function ReadSingleListTemplate(); +end; + +type ListGalleries = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ListGallery = class(VbaBase) +public + function Init(); + +public + // methods + function Reset(Index); + function Modified(Index); + + // properties + property ListTemplates read ReadListTemplates; + function ReadListTemplates(); +end; + +type ListLevel = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyPictureBullet(FileName); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property Font read ReadFont write WriteFont; + property Index read ReadIndex; + property LinkedStyle read ReadLinkedStyle write WriteLinkedStyle; + property NumberFormat read ReadNumberFormat write WriteNumberFormat; + property NumberPosition read ReadNumberPosition write WriteNumberPosition; + property NumberStyle read ReadNumberStyle write WriteNumberStyle; + property PictureBullet read ReadPictureBullet; + property ResetOnHigher read ReadResetOnHigher write WriteResetOnHigher; + property StartAt read ReadStartAt write WriteStartAt; + property TabPosition read ReadTabPosition write WriteTabPosition; + property TextPosition read ReadTextPosition write WriteTextPosition; + property TrailingCharacter read ReadTrailingCharacter write WriteTrailingCharacter; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadFont(); + function WriteFont(_value); + function ReadIndex(); + function ReadLinkedStyle(); + function WriteLinkedStyle(_value); + function ReadNumberFormat(); + function WriteNumberFormat(_value); + function ReadNumberPosition(); + function WriteNumberPosition(_value); + function ReadNumberStyle(); + function WriteNumberStyle(_value); + function ReadPictureBullet(); + function ReadResetOnHigher(); + function WriteResetOnHigher(_value); + function ReadStartAt(); + function WriteStartAt(_value); + function ReadTabPosition(); + function WriteTabPosition(_value); + function ReadTextPosition(); + function WriteTextPosition(_value); + function ReadTrailingCharacter(); + function WriteTrailingCharacter(_value); +end; + +type ListLevels = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ListParagraphs = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Lists = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ListTemplate = class(VbaBase) +public + function Init(); + +public + // methods + function Convert(Level); + + // properties + property ListLevels read ReadListLevels; + property Name read ReadName write WriteName; + property OutlineNumbered read ReadOutlineNumbered write WriteOutlineNumbered; + function ReadListLevels(); + function ReadName(); + function WriteName(_value); + function ReadOutlineNumbered(); + function WriteOutlineNumbered(_value); +end; + +type ListTemplates = class(VbaBase) +public + function Init(); + +public + // methods + function Add(OutlineNumbered, Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type MailingLabel = class(VbaBase) +public + function Init(); + +public + // methods + function CreateNewDocument(Name, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical); + function CreateNewDocumentByID(LabelID, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical); + function LabelOptions(); + function PrintOut(Name, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical); + function PrintOutByID(LabelID, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column, PrintEPostageLabel, Vertical); + + // properties + property CustomLabels read ReadCustomLabels; + property DefaultLabelName read ReadDefaultLabelName write WriteDefaultLabelName; + property DefaultLaserTray read ReadDefaultLaserTray write WriteDefaultLaserTray; + property Vertical read ReadVertical write WriteVertical; + function ReadCustomLabels(); + function ReadDefaultLabelName(); + function WriteDefaultLabelName(_value); + function ReadDefaultLaserTray(); + function WriteDefaultLaserTray(_value); + function ReadVertical(); + function WriteVertical(_value); +end; + +type MailMerge = class(VbaBase) +public + function Init(); + +public + // methods + function Check(); + function CreateDataSource(Name, PasswordDocument, WritePasswordDocument, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource); + function CreateHeaderSource(Name, PasswordDocument, WritePasswordDocument, HeaderRecord); + function EditDataSource(); + function EditHeaderSource(); + function EditMainDocument(); + function Execute(Pause); + function OpenDataSource(Name, Format, ConfirmConversions, ReadOnly, LinkToSource, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Connection, SQLStatement, SQLStatement1, OpenExclusive, SubType); + function OpenHeaderSource(Name, Format, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, OpenExclusive); + function ShowWizard(InitialState, ShowDocumentStep, ShowTemplateStep, ShowDataStep, ShowWriteStep, ShowPreviewStep, ShowMergeStep); + + // properties + property DataSource read ReadDataSource; + property Destination read ReadDestination write WriteDestination; + property Fields read ReadFields; + property HighlightMergeFields read ReadHighlightMergeFields write WriteHighlightMergeFields; + property MailAddressFieldName read ReadMailAddressFieldName write WriteMailAddressFieldName; + property MailAsAttachment read ReadMailAsAttachment write WriteMailAsAttachment; + property MailFormat read ReadMailFormat write WriteMailFormat; + property MailSubject read ReadMailSubject write WriteMailSubject; + property MainDocumentType read ReadMainDocumentType write WriteMainDocumentType; + property ShowSendToCustom read ReadShowSendToCustom write WriteShowSendToCustom; + property State read ReadState; + property SuppressBlankLines read ReadSuppressBlankLines write WriteSuppressBlankLines; + property ViewMailMergeFieldCodes read ReadViewMailMergeFieldCodes write WriteViewMailMergeFieldCodes; + property WizardState read ReadWizardState write WriteWizardState; + function ReadDataSource(); + function ReadDestination(); + function WriteDestination(_value); + function ReadFields(); + function ReadHighlightMergeFields(); + function WriteHighlightMergeFields(_value); + function ReadMailAddressFieldName(); + function WriteMailAddressFieldName(_value); + function ReadMailAsAttachment(); + function WriteMailAsAttachment(_value); + function ReadMailFormat(); + function WriteMailFormat(_value); + function ReadMailSubject(); + function WriteMailSubject(_value); + function ReadMainDocumentType(); + function WriteMainDocumentType(_value); + function ReadShowSendToCustom(); + function WriteShowSendToCustom(_value); + function ReadState(); + function ReadSuppressBlankLines(); + function WriteSuppressBlankLines(_value); + function ReadViewMailMergeFieldCodes(); + function WriteViewMailMergeFieldCodes(_value); + function ReadWizardState(); + function WriteWizardState(_value); +end; + +type MailMergeDataField = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Index read ReadIndex; + property Name read ReadName; + property Value read ReadValue; + function ReadIndex(); + function ReadName(); + function ReadValue(); +end; + +type MailMergeDataFields = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type MailMergeDataSource = class(VbaBase) +public + function Init(); + +public + // methods + function Close(); + function FindRecord(FindText, Field); + function SetAllErrorFlags(Invalid, InvalidComment); + function SetAllIncludedFlags(Included); + + // properties + property ActiveRecord read ReadActiveRecord write WriteActiveRecord; + property ConnectString read ReadConnectString; + property DataFields read ReadDataFields; + property FieldNames read ReadFieldNames; + property FirstRecord read ReadFirstRecord write WriteFirstRecord; + property HeaderSourceName read ReadHeaderSourceName; + property HeaderSourceType read ReadHeaderSourceType; + property Included read ReadIncluded write WriteIncluded; + property InvalidAddress read ReadInvalidAddress write WriteInvalidAddress; + property InvalidComments read ReadInvalidComments write WriteInvalidComments; + property LastRecord read ReadLastRecord write WriteLastRecord; + property MappedDataFields read ReadMappedDataFields; + property Name read ReadName; + property QueryString read ReadQueryString write WriteQueryString; + property RecordCount read ReadRecordCount; + property TableName read ReadTableName; + property Type read ReadType; + function ReadActiveRecord(); + function WriteActiveRecord(_value); + function ReadConnectString(); + function ReadDataFields(); + function ReadFieldNames(); + function ReadFirstRecord(); + function WriteFirstRecord(_value); + function ReadHeaderSourceName(); + function ReadHeaderSourceType(); + function ReadIncluded(); + function WriteIncluded(_value); + function ReadInvalidAddress(); + function WriteInvalidAddress(_value); + function ReadInvalidComments(); + function WriteInvalidComments(_value); + function ReadLastRecord(); + function WriteLastRecord(_value); + function ReadMappedDataFields(); + function ReadName(); + function ReadQueryString(); + function WriteQueryString(_value); + function ReadRecordCount(); + function ReadTableName(); + function ReadType(); +end; + +type MailMergeField = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function Select(); + + // properties + property Code read ReadCode write WriteCode; + property Locked read ReadLocked write WriteLocked; + property Next read ReadNext; + property Previous read ReadPrevious; + property Type read ReadType; + function ReadCode(); + function WriteCode(_value); + function ReadLocked(); + function WriteLocked(_value); + function ReadNext(); + function ReadPrevious(); + function ReadType(); +end; + +type MailMergeFieldName = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Index read ReadIndex; + property Name read ReadName; + function ReadIndex(); + function ReadName(); +end; + +type MailMergeFieldNames = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type MailMergeFields = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Name); + function AddAsk(Range, Name, Prompt, DefaultAskText, AskOnce); + function AddFillIn(Range, Prompt, DefaultFillInText, AskOnce); + function AddIf(Range, MergeField, Comparison, CompareTo, TrueAutoText, TrueText, FalseAutoText, FalseText); + function AddMergeRec(Range); + function AddMergeSeq(Range); + function AddNext(Range); + function AddNextIf(Range, MergeField, Comparison, CompareTo); + function AddSet(Range, Name, ValueText, ValueAutoText); + function AddSkipIf(Range, MergeField, Comparison, CompareTo); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type MailMessage = class(VbaBase) +public + function Init(); + +public + // methods + function CheckName(); + function Delete(); + function DisplayMoveDialog(); + function DisplayProperties(); + function DisplaySelectNamesDialog(); + function Forward(); + function GoToNext(); + function GoToPrevious(); + function Reply(); + function ReplyAll(); + function ToggleHeader(); + + // properties +end; + +type MappedDataField = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property DataFieldIndex read ReadDataFieldIndex write WriteDataFieldIndex; + property DataFieldName read ReadDataFieldName write WriteDataFieldName; + property Index read ReadIndex; + property Name read ReadName; + property Value read ReadValue; + function ReadDataFieldIndex(); + function WriteDataFieldIndex(_value); + function ReadDataFieldName(); + function WriteDataFieldName(_value); + function ReadIndex(); + function ReadName(); + function ReadValue(); +end; + +type MappedDataFields = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OLEFormat = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function ActivateAs(ClassType); + function ConvertTo(ClassType, DisplayAsIcon, IconFileName, IconIndex, IconLabel); + function DoVerb(VerbIndex); + function Edit(); + function Open(); + + // properties + property ClassType read ReadClassType write WriteClassType; + property DisplayAsIcon read ReadDisplayAsIcon write WriteDisplayAsIcon; + property IconIndex read ReadIconIndex write WriteIconIndex; + property IconLabel read ReadIconLabel write WriteIconLabel; + property IconName read ReadIconName write WriteIconName; + property IconPath read ReadIconPath; + property Label read ReadLabel; + property Object read ReadObject; + property PreserveFormattingOnUpdate read ReadPreserveFormattingOnUpdate write WritePreserveFormattingOnUpdate; + property ProgID read ReadProgID; + function ReadClassType(); + function WriteClassType(_value); + function ReadDisplayAsIcon(); + function WriteDisplayAsIcon(_value); + function ReadIconIndex(); + function WriteIconIndex(_value); + function ReadIconLabel(); + function WriteIconLabel(_value); + function ReadIconName(); + function WriteIconName(_value); + function ReadIconPath(); + function ReadLabel(); + function ReadObject(); + function ReadPreserveFormattingOnUpdate(); + function WritePreserveFormattingOnUpdate(_value); + function ReadProgID(); +end; + +type OMath = class(VbaBase) +public + function Init(); + +public + // methods + function BuildUp(); + function ConvertToLiteralText(); + function ConvertToMathText(); + function ConvertToNormalText(); + function Linearize(); + function Remove(); + + // properties + property AlignPoint read ReadAlignPoint write WriteAlignPoint; + property ArgIndex read ReadArgIndex; + property ArgSize read ReadArgSize write WriteArgSize; + property Breaks read ReadBreaks; + property Functions read ReadFunctions; + property Justification read ReadJustification write WriteJustification; + property NestingLevel read ReadNestingLevel; + property ParentArg read ReadParentArg; + property ParentCol read ReadParentCol; + property ParentFunction read ReadParentFunction; + property ParentOMath read ReadParentOMath; + property ParentRow read ReadParentRow; + property Range read ReadRange; + property Type read ReadType write WriteType; + function ReadAlignPoint(); + function WriteAlignPoint(_value); + function ReadArgIndex(); + function ReadArgSize(); + function WriteArgSize(_value); + function ReadBreaks(); + function ReadFunctions(); + function ReadJustification(); + function WriteJustification(_value); + function ReadNestingLevel(); + function ReadParentArg(); + function ReadParentCol(); + function ReadParentFunction(); + function ReadParentOMath(); + function ReadParentRow(); + function ReadRange(); + function ReadType(); + function WriteType(_value); +end; + +type OMathAcc = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Char read ReadChar write WriteChar; + property E read ReadE; + function ReadChar(); + function WriteChar(_value); + function ReadE(); +end; + +type OMathArgs = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeArg); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMathAutoCorrect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Entries read ReadEntries; + property Functions read ReadFunctions; + property ReplaceText read ReadReplaceText write WriteReplaceText; + property UseOutsideOMath read ReadUseOutsideOMath write WriteUseOutsideOMath; + function ReadEntries(); + function ReadFunctions(); + function ReadReplaceText(); + function WriteReplaceText(_value); + function ReadUseOutsideOMath(); + function WriteUseOutsideOMath(_value); +end; + +type OMathAutoCorrectEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Value); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMathAutoCorrectEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName write WriteName; + property Value read ReadValue write WriteValue; + function ReadIndex(); + function ReadName(); + function WriteName(_value); + function ReadValue(); + function WriteValue(_value); +end; + +type OMathBar = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property BarTop read ReadBarTop write WriteBarTop; + property E read ReadE; + function ReadBarTop(); + function WriteBarTop(_value); + function ReadE(); +end; + +type OMathBorderBox = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property E read ReadE; + property HideBot read ReadHideBot write WriteHideBot; + property HideLeft read ReadHideLeft write WriteHideLeft; + property HideRight read ReadHideRight write WriteHideRight; + property HideTop read ReadHideTop write WriteHideTop; + property StrikeBLTR read ReadStrikeBLTR write WriteStrikeBLTR; + property StrikeH read ReadStrikeH write WriteStrikeH; + property StrikeTLBR read ReadStrikeTLBR write WriteStrikeTLBR; + property StrikeV read ReadStrikeV write WriteStrikeV; + function ReadE(); + function ReadHideBot(); + function WriteHideBot(_value); + function ReadHideLeft(); + function WriteHideLeft(_value); + function ReadHideRight(); + function WriteHideRight(_value); + function ReadHideTop(); + function WriteHideTop(_value); + function ReadStrikeBLTR(); + function WriteStrikeBLTR(_value); + function ReadStrikeH(); + function WriteStrikeH(_value); + function ReadStrikeTLBR(); + function WriteStrikeTLBR(_value); + function ReadStrikeV(); + function WriteStrikeV(_value); +end; + +type OMathBox = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Diff read ReadDiff write WriteDiff; + property E read ReadE; + property NoBreak read ReadNoBreak write WriteNoBreak; + property OpEmu read ReadOpEmu write WriteOpEmu; + function ReadDiff(); + function WriteDiff(_value); + function ReadE(); + function ReadNoBreak(); + function WriteNoBreak(_value); + function ReadOpEmu(); + function WriteOpEmu(_value); +end; + +type OMathBreak = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property AlignAt read ReadAlignAt write WriteAlignAt; + property Range read ReadRange; + function ReadAlignAt(); + function WriteAlignAt(_value); + function ReadRange(); +end; + +type OMathBreaks = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMathDelim = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property BegChar read ReadBegChar write WriteBegChar; + property E read ReadE; + property EndChar read ReadEndChar write WriteEndChar; + property Grow read ReadGrow write WriteGrow; + property NoLeftChar read ReadNoLeftChar write WriteNoLeftChar; + property NoRightChar read ReadNoRightChar write WriteNoRightChar; + property SepChar read ReadSepChar write WriteSepChar; + property Shape read ReadShape write WriteShape; + function ReadBegChar(); + function WriteBegChar(_value); + function ReadE(); + function ReadEndChar(); + function WriteEndChar(_value); + function ReadGrow(); + function WriteGrow(_value); + function ReadNoLeftChar(); + function WriteNoLeftChar(_value); + function ReadNoRightChar(); + function WriteNoRightChar(_value); + function ReadSepChar(); + function WriteSepChar(_value); + function ReadShape(); + function WriteShape(_value); +end; + +type OMathEqArray = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Align read ReadAlign write WriteAlign; + property E read ReadE; + property MaxDist read ReadMaxDist write WriteMaxDist; + property ObjDist read ReadObjDist write WriteObjDist; + property RowSpacing read ReadRowSpacing write WriteRowSpacing; + property RowSpacingRule read ReadRowSpacingRule write WriteRowSpacingRule; + function ReadAlign(); + function WriteAlign(_value); + function ReadE(); + function ReadMaxDist(); + function WriteMaxDist(_value); + function ReadObjDist(); + function WriteObjDist(_value); + function ReadRowSpacing(); + function WriteRowSpacing(_value); + function ReadRowSpacingRule(); + function WriteRowSpacingRule(_value); +end; + +type OMathFrac = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Den read ReadDen; + property Num read ReadNum; + property Type read ReadType write WriteType; + function ReadDen(); + function ReadNum(); + function ReadType(); + function WriteType(_value); +end; + +type OMathFunc = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property E read ReadE; + property FName read ReadFName; + function ReadE(); + function ReadFName(); +end; + +type OMathFunction = class(VbaBase) +public + function Init(); + +public + // methods + function Remove(); + + // properties + property Acc read ReadAcc; + property Args read ReadArgs; + property Bar read ReadBar; + property BorderBox read ReadBorderBox; + property Box read ReadBox; + property Delim read ReadDelim; + property EqArray read ReadEqArray; + property Frac read ReadFrac; + property Func read ReadFunc; + property GroupChar read ReadGroupChar; + property LimLow read ReadLimLow; + property LimUpp read ReadLimUpp; + property Mat read ReadMat; + property Nary read ReadNary; + property OMath read ReadOMath; + property Phantom read ReadPhantom; + property Rad read ReadRad; + property Range read ReadRange; + property ScrPre read ReadScrPre; + property ScrSub read ReadScrSub; + property ScrSubSup read ReadScrSubSup; + property ScrSup read ReadScrSup; + property Type read ReadType; + function ReadAcc(); + function ReadArgs(); + function ReadBar(); + function ReadBorderBox(); + function ReadBox(); + function ReadDelim(); + function ReadEqArray(); + function ReadFrac(); + function ReadFunc(); + function ReadGroupChar(); + function ReadLimLow(); + function ReadLimUpp(); + function ReadMat(); + function ReadNary(); + function ReadOMath(); + function ReadPhantom(); + function ReadRad(); + function ReadRange(); + function ReadScrPre(); + function ReadScrSub(); + function ReadScrSubSup(); + function ReadScrSup(); + function ReadType(); +end; + +type OMathFunctions = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Type, NumArgs, NumCols); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMathGroupChar = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AlignTop read ReadAlignTop write WriteAlignTop; + property Char read ReadChar write WriteChar; + property CharTop read ReadCharTop write WriteCharTop; + property E read ReadE; + function ReadAlignTop(); + function WriteAlignTop(_value); + function ReadChar(); + function WriteChar(_value); + function ReadCharTop(); + function WriteCharTop(_value); + function ReadE(); +end; + +type OMathLimLow = class(VbaBase) +public + function Init(); + +public + // methods + function ToLimUpp(); + + // properties + property E read ReadE; + property Lim read ReadLim; + function ReadE(); + function ReadLim(); +end; + +type OMathLimUpp = class(VbaBase) +public + function Init(); + +public + // methods + function ToLimLow(); + + // properties + property E read ReadE; + property Lim read ReadLim; + function ReadE(); + function ReadLim(); +end; + +type OMathMat = class(VbaBase) +public + function Init(); + +public + // methods + function Cell(Row, Col); + + // properties + property Align read ReadAlign write WriteAlign; + property ColGap read ReadColGap write WriteColGap; + property ColGapRule read ReadColGapRule write WriteColGapRule; + property Cols read ReadCols; + property ColSpacing read ReadColSpacing write WriteColSpacing; + property PlcHoldHidden read ReadPlcHoldHidden write WritePlcHoldHidden; + property Rows read ReadRows; + property RowSpacing read ReadRowSpacing write WriteRowSpacing; + property RowSpacingRule read ReadRowSpacingRule write WriteRowSpacingRule; + function ReadAlign(); + function WriteAlign(_value); + function ReadColGap(); + function WriteColGap(_value); + function ReadColGapRule(); + function WriteColGapRule(_value); + function ReadCols(); + function ReadColSpacing(); + function WriteColSpacing(_value); + function ReadPlcHoldHidden(); + function WritePlcHoldHidden(_value); + function ReadRows(); + function ReadRowSpacing(); + function WriteRowSpacing(_value); + function ReadRowSpacingRule(); + function WriteRowSpacingRule(_value); +end; + +type OMathMatCol = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Align read ReadAlign write WriteAlign; + property Args read ReadArgs; + property ColIndex read ReadColIndex; + function ReadAlign(); + function WriteAlign(_value); + function ReadArgs(); + function ReadColIndex(); +end; + +type OMathMatCols = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeCol); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMathMatRow = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Args read ReadArgs; + property RowIndex read ReadRowIndex write WriteRowIndex; + function ReadArgs(); + function ReadRowIndex(); + function WriteRowIndex(_value); +end; + +type OMathMatRows = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeRow); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMathNary = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Char read ReadChar write WriteChar; + property E read ReadE; + property Grow read ReadGrow write WriteGrow; + property HideSub read ReadHideSub write WriteHideSub; + property HideSup read ReadHideSup write WriteHideSup; + property Sub read ReadSub; + property SubSupLim read ReadSubSupLim write WriteSubSupLim; + property Sup read ReadSup; + function ReadChar(); + function WriteChar(_value); + function ReadE(); + function ReadGrow(); + function WriteGrow(_value); + function ReadHideSub(); + function WriteHideSub(_value); + function ReadHideSup(); + function WriteHideSup(_value); + function ReadSub(); + function ReadSubSupLim(); + function WriteSubSupLim(_value); + function ReadSup(); +end; + +type OMathPhantom = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property E read ReadE; + property Show read ReadShow write WriteShow; + property Smash read ReadSmash write WriteSmash; + property Transp read ReadTransp write WriteTransp; + property ZeroAsc read ReadZeroAsc write WriteZeroAsc; + property ZeroDesc read ReadZeroDesc write WriteZeroDesc; + property ZeroWid read ReadZeroWid write WriteZeroWid; + function ReadE(); + function ReadShow(); + function WriteShow(_value); + function ReadSmash(); + function WriteSmash(_value); + function ReadTransp(); + function WriteTransp(_value); + function ReadZeroAsc(); + function WriteZeroAsc(_value); + function ReadZeroDesc(); + function WriteZeroDesc(_value); + function ReadZeroWid(); + function WriteZeroWid(_value); +end; + +type OMathRad = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Deg read ReadDeg; + property E read ReadE; + property HideDeg read ReadHideDeg write WriteHideDeg; + function ReadDeg(); + function ReadE(); + function ReadHideDeg(); + function WriteHideDeg(_value); +end; + +type OMathRecognizedFunction = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + function ReadIndex(); + function ReadName(); +end; + +type OMathRecognizedFunctions = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMaths = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range); + function BuildUp(); + function Item(Index); + function Linearize(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OMathScrPre = class(VbaBase) +public + function Init(); + +public + // methods + function ToScrSubSup(); + + // properties + property E read ReadE; + property Sub read ReadSub; + property Sup read ReadSup; + function ReadE(); + function ReadSub(); + function ReadSup(); +end; + +type OMathScrSub = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property E read ReadE; + property Sub read ReadSub; + function ReadE(); + function ReadSub(); +end; + +type OMathScrSubSup = class(VbaBase) +public + function Init(); + +public + // methods + function RemoveSub(); + function RemoveSup(); + function ToScrPre(); + + // properties + property AlignScripts read ReadAlignScripts write WriteAlignScripts; + property E read ReadE; + property Sub read ReadSub; + property Sup read ReadSup; + function ReadAlignScripts(); + function WriteAlignScripts(_value); + function ReadE(); + function ReadSub(); + function ReadSup(); +end; + +type OMathScrSup = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property E read ReadE; + property Sup read ReadSup; + function ReadE(); + function ReadSup(); +end; + +type Options = class(VbaBase) +public + function Init(); + +public + // methods + function DefaultFilePath(Path); + + // properties + property AddBiDirectionalMarksWhenSavingTextFile read ReadAddBiDirectionalMarksWhenSavingTextFile write WriteAddBiDirectionalMarksWhenSavingTextFile; + property AddControlCharacters read ReadAddControlCharacters write WriteAddControlCharacters; + property AddHebDoubleQuote read ReadAddHebDoubleQuote write WriteAddHebDoubleQuote; + property AlertIfNotDefault read ReadAlertIfNotDefault write WriteAlertIfNotDefault; + property AllowAccentedUppercase read ReadAllowAccentedUppercase write WriteAllowAccentedUppercase; + property AllowClickAndTypeMouse read ReadAllowClickAndTypeMouse write WriteAllowClickAndTypeMouse; + property AllowCombinedAuxiliaryForms read ReadAllowCombinedAuxiliaryForms write WriteAllowCombinedAuxiliaryForms; + property AllowCompoundNounProcessing read ReadAllowCompoundNounProcessing write WriteAllowCompoundNounProcessing; + property AllowDragAndDrop read ReadAllowDragAndDrop write WriteAllowDragAndDrop; + property AllowOpenInDraftView read ReadAllowOpenInDraftView write WriteAllowOpenInDraftView; + property AllowPixelUnits read ReadAllowPixelUnits write WriteAllowPixelUnits; + property AllowReadingMode read ReadAllowReadingMode write WriteAllowReadingMode; + property AnimateScreenMovements read ReadAnimateScreenMovements write WriteAnimateScreenMovements; + property ApplyFarEastFontsToAscii read ReadApplyFarEastFontsToAscii write WriteApplyFarEastFontsToAscii; + property ArabicMode read ReadArabicMode write WriteArabicMode; + property ArabicNumeral read ReadArabicNumeral write WriteArabicNumeral; + property AutoCreateNewDrawings read ReadAutoCreateNewDrawings write WriteAutoCreateNewDrawings; + property AutoFormatApplyBulletedLists read ReadAutoFormatApplyBulletedLists write WriteAutoFormatApplyBulletedLists; + property AutoFormatApplyFirstIndents read ReadAutoFormatApplyFirstIndents write WriteAutoFormatApplyFirstIndents; + property AutoFormatApplyHeadings read ReadAutoFormatApplyHeadings write WriteAutoFormatApplyHeadings; + property AutoFormatApplyLists read ReadAutoFormatApplyLists write WriteAutoFormatApplyLists; + property AutoFormatApplyOtherParas read ReadAutoFormatApplyOtherParas write WriteAutoFormatApplyOtherParas; + property AutoFormatAsYouTypeApplyBorders read ReadAutoFormatAsYouTypeApplyBorders write WriteAutoFormatAsYouTypeApplyBorders; + property AutoFormatAsYouTypeApplyBulletedLists read ReadAutoFormatAsYouTypeApplyBulletedLists write WriteAutoFormatAsYouTypeApplyBulletedLists; + property AutoFormatAsYouTypeApplyClosings read ReadAutoFormatAsYouTypeApplyClosings write WriteAutoFormatAsYouTypeApplyClosings; + property AutoFormatAsYouTypeApplyDates read ReadAutoFormatAsYouTypeApplyDates write WriteAutoFormatAsYouTypeApplyDates; + property AutoFormatAsYouTypeApplyFirstIndents read ReadAutoFormatAsYouTypeApplyFirstIndents write WriteAutoFormatAsYouTypeApplyFirstIndents; + property AutoFormatAsYouTypeApplyHeadings read ReadAutoFormatAsYouTypeApplyHeadings write WriteAutoFormatAsYouTypeApplyHeadings; + property AutoFormatAsYouTypeApplyNumberedLists read ReadAutoFormatAsYouTypeApplyNumberedLists write WriteAutoFormatAsYouTypeApplyNumberedLists; + property AutoFormatAsYouTypeApplyTables read ReadAutoFormatAsYouTypeApplyTables write WriteAutoFormatAsYouTypeApplyTables; + property AutoFormatAsYouTypeAutoLetterWizard read ReadAutoFormatAsYouTypeAutoLetterWizard write WriteAutoFormatAsYouTypeAutoLetterWizard; + property AutoFormatAsYouTypeDefineStyles read ReadAutoFormatAsYouTypeDefineStyles write WriteAutoFormatAsYouTypeDefineStyles; + property AutoFormatAsYouTypeDeleteAutoSpaces read ReadAutoFormatAsYouTypeDeleteAutoSpaces write WriteAutoFormatAsYouTypeDeleteAutoSpaces; + property AutoFormatAsYouTypeFormatListItemBeginning read ReadAutoFormatAsYouTypeFormatListItemBeginning write WriteAutoFormatAsYouTypeFormatListItemBeginning; + property AutoFormatAsYouTypeInsertClosings read ReadAutoFormatAsYouTypeInsertClosings write WriteAutoFormatAsYouTypeInsertClosings; + property AutoFormatAsYouTypeInsertOvers read ReadAutoFormatAsYouTypeInsertOvers write WriteAutoFormatAsYouTypeInsertOvers; + property AutoFormatAsYouTypeMatchParentheses read ReadAutoFormatAsYouTypeMatchParentheses write WriteAutoFormatAsYouTypeMatchParentheses; + property AutoFormatAsYouTypeReplaceFarEastDashes read ReadAutoFormatAsYouTypeReplaceFarEastDashes write WriteAutoFormatAsYouTypeReplaceFarEastDashes; + property AutoFormatAsYouTypeReplaceFractions read ReadAutoFormatAsYouTypeReplaceFractions write WriteAutoFormatAsYouTypeReplaceFractions; + property AutoFormatAsYouTypeReplaceHyperlinks read ReadAutoFormatAsYouTypeReplaceHyperlinks write WriteAutoFormatAsYouTypeReplaceHyperlinks; + property AutoFormatAsYouTypeReplaceOrdinals read ReadAutoFormatAsYouTypeReplaceOrdinals write WriteAutoFormatAsYouTypeReplaceOrdinals; + property AutoFormatAsYouTypeReplacePlainTextEmphasis read ReadAutoFormatAsYouTypeReplacePlainTextEmphasis write WriteAutoFormatAsYouTypeReplacePlainTextEmphasis; + property AutoFormatAsYouTypeReplaceQuotes read ReadAutoFormatAsYouTypeReplaceQuotes write WriteAutoFormatAsYouTypeReplaceQuotes; + property AutoFormatAsYouTypeReplaceSymbols read ReadAutoFormatAsYouTypeReplaceSymbols write WriteAutoFormatAsYouTypeReplaceSymbols; + property AutoFormatDeleteAutoSpaces read ReadAutoFormatDeleteAutoSpaces write WriteAutoFormatDeleteAutoSpaces; + property AutoFormatMatchParentheses read ReadAutoFormatMatchParentheses write WriteAutoFormatMatchParentheses; + property AutoFormatPlainTextWordMail read ReadAutoFormatPlainTextWordMail write WriteAutoFormatPlainTextWordMail; + property AutoFormatPreserveStyles read ReadAutoFormatPreserveStyles write WriteAutoFormatPreserveStyles; + property AutoFormatReplaceFarEastDashes read ReadAutoFormatReplaceFarEastDashes write WriteAutoFormatReplaceFarEastDashes; + property AutoFormatReplaceFractions read ReadAutoFormatReplaceFractions write WriteAutoFormatReplaceFractions; + property AutoFormatReplaceHyperlinks read ReadAutoFormatReplaceHyperlinks write WriteAutoFormatReplaceHyperlinks; + property AutoFormatReplaceOrdinals read ReadAutoFormatReplaceOrdinals write WriteAutoFormatReplaceOrdinals; + property AutoFormatReplacePlainTextEmphasis read ReadAutoFormatReplacePlainTextEmphasis write WriteAutoFormatReplacePlainTextEmphasis; + property AutoFormatReplaceQuotes read ReadAutoFormatReplaceQuotes write WriteAutoFormatReplaceQuotes; + property AutoFormatReplaceSymbols read ReadAutoFormatReplaceSymbols write WriteAutoFormatReplaceSymbols; + property AutoKeyboardSwitching read ReadAutoKeyboardSwitching write WriteAutoKeyboardSwitching; + property AutoWordSelection read ReadAutoWordSelection write WriteAutoWordSelection; + property BackgroundSave read ReadBackgroundSave write WriteBackgroundSave; + property BibliographySort read ReadBibliographySort write WriteBibliographySort; + property BibliographyStyle read ReadBibliographyStyle write WriteBibliographyStyle; + property BrazilReform read ReadBrazilReform write WriteBrazilReform; + property ButtonFieldClicks read ReadButtonFieldClicks write WriteButtonFieldClicks; + property CheckGrammarAsYouType read ReadCheckGrammarAsYouType write WriteCheckGrammarAsYouType; + property CheckGrammarWithSpelling read ReadCheckGrammarWithSpelling write WriteCheckGrammarWithSpelling; + property CheckHangulEndings read ReadCheckHangulEndings write WriteCheckHangulEndings; + property CheckSpellingAsYouType read ReadCheckSpellingAsYouType write WriteCheckSpellingAsYouType; + property CloudSignInOption read ReadCloudSignInOption write WriteCloudSignInOption; + property CommentsColor read ReadCommentsColor write WriteCommentsColor; + property ConfirmConversions read ReadConfirmConversions write WriteConfirmConversions; + property ContextualSpeller read ReadContextualSpeller write WriteContextualSpeller; + property ConvertHighAnsiToFarEast read ReadConvertHighAnsiToFarEast write WriteConvertHighAnsiToFarEast; + property CreateBackup read ReadCreateBackup write WriteCreateBackup; + property CtrlClickHyperlinkToOpen read ReadCtrlClickHyperlinkToOpen write WriteCtrlClickHyperlinkToOpen; + property CursorMovement read ReadCursorMovement write WriteCursorMovement; + property DefaultBorderColor read ReadDefaultBorderColor write WriteDefaultBorderColor; + property DefaultBorderColorIndex read ReadDefaultBorderColorIndex write WriteDefaultBorderColorIndex; + property DefaultBorderLineStyle read ReadDefaultBorderLineStyle write WriteDefaultBorderLineStyle; + property DefaultBorderLineWidth read ReadDefaultBorderLineWidth write WriteDefaultBorderLineWidth; + property DefaultEPostageApp read ReadDefaultEPostageApp write WriteDefaultEPostageApp; + property DefaultHighlightColorIndex read ReadDefaultHighlightColorIndex write WriteDefaultHighlightColorIndex; + property DefaultOpenFormat read ReadDefaultOpenFormat write WriteDefaultOpenFormat; + property DefaultTextEncoding read ReadDefaultTextEncoding write WriteDefaultTextEncoding; + property DefaultTray read ReadDefaultTray write WriteDefaultTray; + property DefaultTrayID read ReadDefaultTrayID write WriteDefaultTrayID; + property DeletedCellColor read ReadDeletedCellColor write WriteDeletedCellColor; + property DeletedTextColor read ReadDeletedTextColor write WriteDeletedTextColor; + property DeletedTextMark read ReadDeletedTextMark write WriteDeletedTextMark; + property DiacriticColorVal read ReadDiacriticColorVal write WriteDiacriticColorVal; + property DisableFeaturesbyDefault read ReadDisableFeaturesbyDefault write WriteDisableFeaturesbyDefault; + property DisableFeaturesIntroducedAfterbyDefault read ReadDisableFeaturesIntroducedAfterbyDefault write WriteDisableFeaturesIntroducedAfterbyDefault; + property DisplayAlignmentGuides read ReadDisplayAlignmentGuides write WriteDisplayAlignmentGuides; + property DisplayGridLines read ReadDisplayGridLines write WriteDisplayGridLines; + property DisplayPasteOptions read ReadDisplayPasteOptions write WriteDisplayPasteOptions; + property DocumentViewDirection read ReadDocumentViewDirection write WriteDocumentViewDirection; + property DoNotPromptForConvert read ReadDoNotPromptForConvert write WriteDoNotPromptForConvert; + property EnableHangulHanjaRecentOrdering read ReadEnableHangulHanjaRecentOrdering write WriteEnableHangulHanjaRecentOrdering; + property EnableLegacyIMEMode read ReadEnableLegacyIMEMode write WriteEnableLegacyIMEMode; + property EnableLiveDrag read ReadEnableLiveDrag write WriteEnableLiveDrag; + property EnableLivePreview read ReadEnableLivePreview write WriteEnableLivePreview; + property EnableMisusedWordsDictionary read ReadEnableMisusedWordsDictionary write WriteEnableMisusedWordsDictionary; + property EnableProofingToolsAdvertisement read ReadEnableProofingToolsAdvertisement write WriteEnableProofingToolsAdvertisement; + property EnableSound read ReadEnableSound write WriteEnableSound; + property EnvelopeFeederInstalled read ReadEnvelopeFeederInstalled; + property ExpandHeadingsOnOpen read ReadExpandHeadingsOnOpen write WriteExpandHeadingsOnOpen; + property FormatScanning read ReadFormatScanning write WriteFormatScanning; + property FrenchReform read ReadFrenchReform write WriteFrenchReform; + property GridDistanceHorizontal read ReadGridDistanceHorizontal write WriteGridDistanceHorizontal; + property GridDistanceVertical read ReadGridDistanceVertical write WriteGridDistanceVertical; + property GridOriginHorizontal read ReadGridOriginHorizontal write WriteGridOriginHorizontal; + property GridOriginVertical read ReadGridOriginVertical write WriteGridOriginVertical; + property HangulHanjaFastConversion read ReadHangulHanjaFastConversion write WriteHangulHanjaFastConversion; + property HebrewMode read ReadHebrewMode write WriteHebrewMode; + property IgnoreInternetAndFileAddresses read ReadIgnoreInternetAndFileAddresses write WriteIgnoreInternetAndFileAddresses; + property IgnoreMixedDigits read ReadIgnoreMixedDigits write WriteIgnoreMixedDigits; + property IgnoreUppercase read ReadIgnoreUppercase write WriteIgnoreUppercase; + property IMEAutomaticControl read ReadIMEAutomaticControl write WriteIMEAutomaticControl; + property InlineConversion read ReadInlineConversion write WriteInlineConversion; + property InsertedCellColor read ReadInsertedCellColor write WriteInsertedCellColor; + property InsertedTextColor read ReadInsertedTextColor write WriteInsertedTextColor; + property InsertedTextMark read ReadInsertedTextMark write WriteInsertedTextMark; + property INSKeyForOvertype read ReadINSKeyForOvertype write WriteINSKeyForOvertype; + property INSKeyForPaste read ReadINSKeyForPaste write WriteINSKeyForPaste; + property InterpretHighAnsi read ReadInterpretHighAnsi write WriteInterpretHighAnsi; + property LocalNetworkFile read ReadLocalNetworkFile write WriteLocalNetworkFile; + property MapPaperSize read ReadMapPaperSize write WriteMapPaperSize; + property MarginAlignmentGuides read ReadMarginAlignmentGuides write WriteMarginAlignmentGuides; + property MatchFuzzyAY read ReadMatchFuzzyAY write WriteMatchFuzzyAY; + property MatchFuzzyBV read ReadMatchFuzzyBV write WriteMatchFuzzyBV; + property MatchFuzzyByte read ReadMatchFuzzyByte write WriteMatchFuzzyByte; + property MatchFuzzyCase read ReadMatchFuzzyCase write WriteMatchFuzzyCase; + property MatchFuzzyDash read ReadMatchFuzzyDash write WriteMatchFuzzyDash; + property MatchFuzzyDZ read ReadMatchFuzzyDZ write WriteMatchFuzzyDZ; + property MatchFuzzyHF read ReadMatchFuzzyHF write WriteMatchFuzzyHF; + property MatchFuzzyHiragana read ReadMatchFuzzyHiragana write WriteMatchFuzzyHiragana; + property MatchFuzzyIterationMark read ReadMatchFuzzyIterationMark write WriteMatchFuzzyIterationMark; + property MatchFuzzyKanji read ReadMatchFuzzyKanji write WriteMatchFuzzyKanji; + property MatchFuzzyKiKu read ReadMatchFuzzyKiKu write WriteMatchFuzzyKiKu; + property MatchFuzzyOldKana read ReadMatchFuzzyOldKana write WriteMatchFuzzyOldKana; + property MatchFuzzyProlongedSoundMark read ReadMatchFuzzyProlongedSoundMark write WriteMatchFuzzyProlongedSoundMark; + property MatchFuzzyPunctuation read ReadMatchFuzzyPunctuation write WriteMatchFuzzyPunctuation; + property MatchFuzzySmallKana read ReadMatchFuzzySmallKana write WriteMatchFuzzySmallKana; + property MatchFuzzySpace read ReadMatchFuzzySpace write WriteMatchFuzzySpace; + property MatchFuzzyTC read ReadMatchFuzzyTC write WriteMatchFuzzyTC; + property MatchFuzzyZJ read ReadMatchFuzzyZJ write WriteMatchFuzzyZJ; + property MeasurementUnit read ReadMeasurementUnit write WriteMeasurementUnit; + property MergedCellColor read ReadMergedCellColor write WriteMergedCellColor; + property MonthNames read ReadMonthNames write WriteMonthNames; + property MoveFromTextColor read ReadMoveFromTextColor write WriteMoveFromTextColor; + property MoveFromTextMark read ReadMoveFromTextMark write WriteMoveFromTextMark; + property MoveToTextColor read ReadMoveToTextColor write WriteMoveToTextColor; + property MoveToTextMark read ReadMoveToTextMark write WriteMoveToTextMark; + property MultipleWordConversionsMode read ReadMultipleWordConversionsMode write WriteMultipleWordConversionsMode; + property OMathAutoBuildUp read ReadOMathAutoBuildUp write WriteOMathAutoBuildUp; + property OMathCopyLF read ReadOMathCopyLF write WriteOMathCopyLF; + property OptimizeForWord97byDefault read ReadOptimizeForWord97byDefault write WriteOptimizeForWord97byDefault; + property Overtype read ReadOvertype write WriteOvertype; + property PageAlignmentGuides read ReadPageAlignmentGuides write WritePageAlignmentGuides; + property Pagination read ReadPagination write WritePagination; + property ParagraphAlignmentGuides read ReadParagraphAlignmentGuides write WriteParagraphAlignmentGuides; + property PasteAdjustParagraphSpacing read ReadPasteAdjustParagraphSpacing write WritePasteAdjustParagraphSpacing; + property PasteAdjustTableFormatting read ReadPasteAdjustTableFormatting write WritePasteAdjustTableFormatting; + property PasteAdjustWordSpacing read ReadPasteAdjustWordSpacing write WritePasteAdjustWordSpacing; + property PasteFormatBetweenDocuments read ReadPasteFormatBetweenDocuments write WritePasteFormatBetweenDocuments; + property PasteFormatBetweenStyledDocuments read ReadPasteFormatBetweenStyledDocuments write WritePasteFormatBetweenStyledDocuments; + property PasteFormatFromExternalSource read ReadPasteFormatFromExternalSource write WritePasteFormatFromExternalSource; + property PasteFormatWithinDocument read ReadPasteFormatWithinDocument write WritePasteFormatWithinDocument; + property PasteMergeFromPPT read ReadPasteMergeFromPPT write WritePasteMergeFromPPT; + property PasteMergeFromXL read ReadPasteMergeFromXL write WritePasteMergeFromXL; + property PasteMergeLists read ReadPasteMergeLists write WritePasteMergeLists; + property PasteOptionKeepBulletsAndNumbers read ReadPasteOptionKeepBulletsAndNumbers write WritePasteOptionKeepBulletsAndNumbers; + property PasteSmartCutPaste read ReadPasteSmartCutPaste write WritePasteSmartCutPaste; + property PasteSmartStyleBehavior read ReadPasteSmartStyleBehavior write WritePasteSmartStyleBehavior; + property PictureEditor read ReadPictureEditor write WritePictureEditor; + property PictureWrapType read ReadPictureWrapType write WritePictureWrapType; + property PortugalReform read ReadPortugalReform write WritePortugalReform; + property PrecisePositioning read ReadPrecisePositioning write WritePrecisePositioning; + property PreferCloudSaveLocations read ReadPreferCloudSaveLocations write WritePreferCloudSaveLocations; + property PrintBackground read ReadPrintBackground write WritePrintBackground; + property PrintBackgrounds read ReadPrintBackgrounds; + property PrintComments read ReadPrintComments write WritePrintComments; + property PrintDraft read ReadPrintDraft write WritePrintDraft; + property PrintDrawingObjects read ReadPrintDrawingObjects write WritePrintDrawingObjects; + property PrintEvenPagesInAscendingOrder read ReadPrintEvenPagesInAscendingOrder write WritePrintEvenPagesInAscendingOrder; + property PrintFieldCodes read ReadPrintFieldCodes write WritePrintFieldCodes; + property PrintHiddenText read ReadPrintHiddenText write WritePrintHiddenText; + property PrintOddPagesInAscendingOrder read ReadPrintOddPagesInAscendingOrder write WritePrintOddPagesInAscendingOrder; + property PrintProperties read ReadPrintProperties write WritePrintProperties; + property PrintReverse read ReadPrintReverse write WritePrintReverse; + property PrintXMLTag read ReadPrintXMLTag; + property PromptUpdateStyle read ReadPromptUpdateStyle write WritePromptUpdateStyle; + property RepeatWord read ReadRepeatWord write WriteRepeatWord; + property ReplaceSelection read ReadReplaceSelection write WriteReplaceSelection; + property RevisedLinesColor read ReadRevisedLinesColor write WriteRevisedLinesColor; + property RevisedLinesMark read ReadRevisedLinesMark write WriteRevisedLinesMark; + property RevisedPropertiesColor read ReadRevisedPropertiesColor write WriteRevisedPropertiesColor; + property RevisedPropertiesMark read ReadRevisedPropertiesMark write WriteRevisedPropertiesMark; + property RevisionsBalloonPrintOrientation read ReadRevisionsBalloonPrintOrientation write WriteRevisionsBalloonPrintOrientation; + property SaveInterval read ReadSaveInterval write WriteSaveInterval; + property SaveNormalPrompt read ReadSaveNormalPrompt write WriteSaveNormalPrompt; + property SavePropertiesPrompt read ReadSavePropertiesPrompt write WriteSavePropertiesPrompt; + property SendMailAttach read ReadSendMailAttach write WriteSendMailAttach; + property SequenceCheck read ReadSequenceCheck write WriteSequenceCheck; + property ShowControlCharacters read ReadShowControlCharacters write WriteShowControlCharacters; + property ShowDevTools read ReadShowDevTools write WriteShowDevTools; + property ShowDiacritics read ReadShowDiacritics write WriteShowDiacritics; + property ShowFormatError read ReadShowFormatError write WriteShowFormatError; + property ShowMarkupOpenSave read ReadShowMarkupOpenSave write WriteShowMarkupOpenSave; + property ShowMenuFloaties read ReadShowMenuFloaties write WriteShowMenuFloaties; + property ShowReadabilityStatistics read ReadShowReadabilityStatistics write WriteShowReadabilityStatistics; + property ShowSelectionFloaties read ReadShowSelectionFloaties write WriteShowSelectionFloaties; + property SkyDriveSignInOption read ReadSkyDriveSignInOption write WriteSkyDriveSignInOption; + property SmartCursoring read ReadSmartCursoring write WriteSmartCursoring; + property SmartCutPaste read ReadSmartCutPaste write WriteSmartCutPaste; + property SmartParaSelection read ReadSmartParaSelection write WriteSmartParaSelection; + property SnapToGrid read ReadSnapToGrid write WriteSnapToGrid; + property SnapToShapes read ReadSnapToShapes write WriteSnapToShapes; + property SpanishMode read ReadSpanishMode write WriteSpanishMode; + property SplitCellColor read ReadSplitCellColor write WriteSplitCellColor; + property StoreRSIDOnSave read ReadStoreRSIDOnSave write WriteStoreRSIDOnSave; + property StrictFinalYaa read ReadStrictFinalYaa write WriteStrictFinalYaa; + property StrictInitialAlefHamza read ReadStrictInitialAlefHamza write WriteStrictInitialAlefHamza; + property StrictRussianE read ReadStrictRussianE write WriteStrictRussianE; + property StrictTaaMarboota read ReadStrictTaaMarboota write WriteStrictTaaMarboota; + property SuggestFromMainDictionaryOnly read ReadSuggestFromMainDictionaryOnly write WriteSuggestFromMainDictionaryOnly; + property SuggestSpellingCorrections read ReadSuggestSpellingCorrections write WriteSuggestSpellingCorrections; + property TabIndentKey read ReadTabIndentKey write WriteTabIndentKey; + property TypeNReplace read ReadTypeNReplace write WriteTypeNReplace; + property UpdateFieldsAtPrint read ReadUpdateFieldsAtPrint write WriteUpdateFieldsAtPrint; + property UpdateFieldsWithTrackedChangesAtPrint read ReadUpdateFieldsWithTrackedChangesAtPrint write WriteUpdateFieldsWithTrackedChangesAtPrint; + property UpdateLinksAtOpen read ReadUpdateLinksAtOpen write WriteUpdateLinksAtOpen; + property UpdateLinksAtPrint read ReadUpdateLinksAtPrint write WriteUpdateLinksAtPrint; + property UpdateStyleListBehavior read ReadUpdateStyleListBehavior write WriteUpdateStyleListBehavior; + property UseCharacterUnit read ReadUseCharacterUnit write WriteUseCharacterUnit; + property UseDiffDiacColor read ReadUseDiffDiacColor write WriteUseDiffDiacColor; + property UseGermanSpellingReform read ReadUseGermanSpellingReform write WriteUseGermanSpellingReform; + property UseLocalUserInfo read ReadUseLocalUserInfo write WriteUseLocalUserInfo; + property UseNormalStyleForList read ReadUseNormalStyleForList write WriteUseNormalStyleForList; + property UseSubPixelPositioning read ReadUseSubPixelPositioning write WriteUseSubPixelPositioning; + property VisualSelection read ReadVisualSelection write WriteVisualSelection; + property WarnBeforeSavingPrintingSendingMarkup read ReadWarnBeforeSavingPrintingSendingMarkup write WriteWarnBeforeSavingPrintingSendingMarkup; + function ReadAddBiDirectionalMarksWhenSavingTextFile(); + function WriteAddBiDirectionalMarksWhenSavingTextFile(_value); + function ReadAddControlCharacters(); + function WriteAddControlCharacters(_value); + function ReadAddHebDoubleQuote(); + function WriteAddHebDoubleQuote(_value); + function ReadAlertIfNotDefault(); + function WriteAlertIfNotDefault(_value); + function ReadAllowAccentedUppercase(); + function WriteAllowAccentedUppercase(_value); + function ReadAllowClickAndTypeMouse(); + function WriteAllowClickAndTypeMouse(_value); + function ReadAllowCombinedAuxiliaryForms(); + function WriteAllowCombinedAuxiliaryForms(_value); + function ReadAllowCompoundNounProcessing(); + function WriteAllowCompoundNounProcessing(_value); + function ReadAllowDragAndDrop(); + function WriteAllowDragAndDrop(_value); + function ReadAllowOpenInDraftView(); + function WriteAllowOpenInDraftView(_value); + function ReadAllowPixelUnits(); + function WriteAllowPixelUnits(_value); + function ReadAllowReadingMode(); + function WriteAllowReadingMode(_value); + function ReadAnimateScreenMovements(); + function WriteAnimateScreenMovements(_value); + function ReadApplyFarEastFontsToAscii(); + function WriteApplyFarEastFontsToAscii(_value); + function ReadArabicMode(); + function WriteArabicMode(_value); + function ReadArabicNumeral(); + function WriteArabicNumeral(_value); + function ReadAutoCreateNewDrawings(); + function WriteAutoCreateNewDrawings(_value); + function ReadAutoFormatApplyBulletedLists(); + function WriteAutoFormatApplyBulletedLists(_value); + function ReadAutoFormatApplyFirstIndents(); + function WriteAutoFormatApplyFirstIndents(_value); + function ReadAutoFormatApplyHeadings(); + function WriteAutoFormatApplyHeadings(_value); + function ReadAutoFormatApplyLists(); + function WriteAutoFormatApplyLists(_value); + function ReadAutoFormatApplyOtherParas(); + function WriteAutoFormatApplyOtherParas(_value); + function ReadAutoFormatAsYouTypeApplyBorders(); + function WriteAutoFormatAsYouTypeApplyBorders(_value); + function ReadAutoFormatAsYouTypeApplyBulletedLists(); + function WriteAutoFormatAsYouTypeApplyBulletedLists(_value); + function ReadAutoFormatAsYouTypeApplyClosings(); + function WriteAutoFormatAsYouTypeApplyClosings(_value); + function ReadAutoFormatAsYouTypeApplyDates(); + function WriteAutoFormatAsYouTypeApplyDates(_value); + function ReadAutoFormatAsYouTypeApplyFirstIndents(); + function WriteAutoFormatAsYouTypeApplyFirstIndents(_value); + function ReadAutoFormatAsYouTypeApplyHeadings(); + function WriteAutoFormatAsYouTypeApplyHeadings(_value); + function ReadAutoFormatAsYouTypeApplyNumberedLists(); + function WriteAutoFormatAsYouTypeApplyNumberedLists(_value); + function ReadAutoFormatAsYouTypeApplyTables(); + function WriteAutoFormatAsYouTypeApplyTables(_value); + function ReadAutoFormatAsYouTypeAutoLetterWizard(); + function WriteAutoFormatAsYouTypeAutoLetterWizard(_value); + function ReadAutoFormatAsYouTypeDefineStyles(); + function WriteAutoFormatAsYouTypeDefineStyles(_value); + function ReadAutoFormatAsYouTypeDeleteAutoSpaces(); + function WriteAutoFormatAsYouTypeDeleteAutoSpaces(_value); + function ReadAutoFormatAsYouTypeFormatListItemBeginning(); + function WriteAutoFormatAsYouTypeFormatListItemBeginning(_value); + function ReadAutoFormatAsYouTypeInsertClosings(); + function WriteAutoFormatAsYouTypeInsertClosings(_value); + function ReadAutoFormatAsYouTypeInsertOvers(); + function WriteAutoFormatAsYouTypeInsertOvers(_value); + function ReadAutoFormatAsYouTypeMatchParentheses(); + function WriteAutoFormatAsYouTypeMatchParentheses(_value); + function ReadAutoFormatAsYouTypeReplaceFarEastDashes(); + function WriteAutoFormatAsYouTypeReplaceFarEastDashes(_value); + function ReadAutoFormatAsYouTypeReplaceFractions(); + function WriteAutoFormatAsYouTypeReplaceFractions(_value); + function ReadAutoFormatAsYouTypeReplaceHyperlinks(); + function WriteAutoFormatAsYouTypeReplaceHyperlinks(_value); + function ReadAutoFormatAsYouTypeReplaceOrdinals(); + function WriteAutoFormatAsYouTypeReplaceOrdinals(_value); + function ReadAutoFormatAsYouTypeReplacePlainTextEmphasis(); + function WriteAutoFormatAsYouTypeReplacePlainTextEmphasis(_value); + function ReadAutoFormatAsYouTypeReplaceQuotes(); + function WriteAutoFormatAsYouTypeReplaceQuotes(_value); + function ReadAutoFormatAsYouTypeReplaceSymbols(); + function WriteAutoFormatAsYouTypeReplaceSymbols(_value); + function ReadAutoFormatDeleteAutoSpaces(); + function WriteAutoFormatDeleteAutoSpaces(_value); + function ReadAutoFormatMatchParentheses(); + function WriteAutoFormatMatchParentheses(_value); + function ReadAutoFormatPlainTextWordMail(); + function WriteAutoFormatPlainTextWordMail(_value); + function ReadAutoFormatPreserveStyles(); + function WriteAutoFormatPreserveStyles(_value); + function ReadAutoFormatReplaceFarEastDashes(); + function WriteAutoFormatReplaceFarEastDashes(_value); + function ReadAutoFormatReplaceFractions(); + function WriteAutoFormatReplaceFractions(_value); + function ReadAutoFormatReplaceHyperlinks(); + function WriteAutoFormatReplaceHyperlinks(_value); + function ReadAutoFormatReplaceOrdinals(); + function WriteAutoFormatReplaceOrdinals(_value); + function ReadAutoFormatReplacePlainTextEmphasis(); + function WriteAutoFormatReplacePlainTextEmphasis(_value); + function ReadAutoFormatReplaceQuotes(); + function WriteAutoFormatReplaceQuotes(_value); + function ReadAutoFormatReplaceSymbols(); + function WriteAutoFormatReplaceSymbols(_value); + function ReadAutoKeyboardSwitching(); + function WriteAutoKeyboardSwitching(_value); + function ReadAutoWordSelection(); + function WriteAutoWordSelection(_value); + function ReadBackgroundSave(); + function WriteBackgroundSave(_value); + function ReadBibliographySort(); + function WriteBibliographySort(_value); + function ReadBibliographyStyle(); + function WriteBibliographyStyle(_value); + function ReadBrazilReform(); + function WriteBrazilReform(_value); + function ReadButtonFieldClicks(); + function WriteButtonFieldClicks(_value); + function ReadCheckGrammarAsYouType(); + function WriteCheckGrammarAsYouType(_value); + function ReadCheckGrammarWithSpelling(); + function WriteCheckGrammarWithSpelling(_value); + function ReadCheckHangulEndings(); + function WriteCheckHangulEndings(_value); + function ReadCheckSpellingAsYouType(); + function WriteCheckSpellingAsYouType(_value); + function ReadCloudSignInOption(); + function WriteCloudSignInOption(_value); + function ReadCommentsColor(); + function WriteCommentsColor(_value); + function ReadConfirmConversions(); + function WriteConfirmConversions(_value); + function ReadContextualSpeller(); + function WriteContextualSpeller(_value); + function ReadConvertHighAnsiToFarEast(); + function WriteConvertHighAnsiToFarEast(_value); + function ReadCreateBackup(); + function WriteCreateBackup(_value); + function ReadCtrlClickHyperlinkToOpen(); + function WriteCtrlClickHyperlinkToOpen(_value); + function ReadCursorMovement(); + function WriteCursorMovement(_value); + function ReadDefaultBorderColor(); + function WriteDefaultBorderColor(_value); + function ReadDefaultBorderColorIndex(); + function WriteDefaultBorderColorIndex(_value); + function ReadDefaultBorderLineStyle(); + function WriteDefaultBorderLineStyle(_value); + function ReadDefaultBorderLineWidth(); + function WriteDefaultBorderLineWidth(_value); + function ReadDefaultEPostageApp(); + function WriteDefaultEPostageApp(_value); + function ReadDefaultHighlightColorIndex(); + function WriteDefaultHighlightColorIndex(_value); + function ReadDefaultOpenFormat(); + function WriteDefaultOpenFormat(_value); + function ReadDefaultTextEncoding(); + function WriteDefaultTextEncoding(_value); + function ReadDefaultTray(); + function WriteDefaultTray(_value); + function ReadDefaultTrayID(); + function WriteDefaultTrayID(_value); + function ReadDeletedCellColor(); + function WriteDeletedCellColor(_value); + function ReadDeletedTextColor(); + function WriteDeletedTextColor(_value); + function ReadDeletedTextMark(); + function WriteDeletedTextMark(_value); + function ReadDiacriticColorVal(); + function WriteDiacriticColorVal(_value); + function ReadDisableFeaturesbyDefault(); + function WriteDisableFeaturesbyDefault(_value); + function ReadDisableFeaturesIntroducedAfterbyDefault(); + function WriteDisableFeaturesIntroducedAfterbyDefault(_value); + function ReadDisplayAlignmentGuides(); + function WriteDisplayAlignmentGuides(_value); + function ReadDisplayGridLines(); + function WriteDisplayGridLines(_value); + function ReadDisplayPasteOptions(); + function WriteDisplayPasteOptions(_value); + function ReadDocumentViewDirection(); + function WriteDocumentViewDirection(_value); + function ReadDoNotPromptForConvert(); + function WriteDoNotPromptForConvert(_value); + function ReadEnableHangulHanjaRecentOrdering(); + function WriteEnableHangulHanjaRecentOrdering(_value); + function ReadEnableLegacyIMEMode(); + function WriteEnableLegacyIMEMode(_value); + function ReadEnableLiveDrag(); + function WriteEnableLiveDrag(_value); + function ReadEnableLivePreview(); + function WriteEnableLivePreview(_value); + function ReadEnableMisusedWordsDictionary(); + function WriteEnableMisusedWordsDictionary(_value); + function ReadEnableProofingToolsAdvertisement(); + function WriteEnableProofingToolsAdvertisement(_value); + function ReadEnableSound(); + function WriteEnableSound(_value); + function ReadEnvelopeFeederInstalled(); + function ReadExpandHeadingsOnOpen(); + function WriteExpandHeadingsOnOpen(_value); + function ReadFormatScanning(); + function WriteFormatScanning(_value); + function ReadFrenchReform(); + function WriteFrenchReform(_value); + function ReadGridDistanceHorizontal(); + function WriteGridDistanceHorizontal(_value); + function ReadGridDistanceVertical(); + function WriteGridDistanceVertical(_value); + function ReadGridOriginHorizontal(); + function WriteGridOriginHorizontal(_value); + function ReadGridOriginVertical(); + function WriteGridOriginVertical(_value); + function ReadHangulHanjaFastConversion(); + function WriteHangulHanjaFastConversion(_value); + function ReadHebrewMode(); + function WriteHebrewMode(_value); + function ReadIgnoreInternetAndFileAddresses(); + function WriteIgnoreInternetAndFileAddresses(_value); + function ReadIgnoreMixedDigits(); + function WriteIgnoreMixedDigits(_value); + function ReadIgnoreUppercase(); + function WriteIgnoreUppercase(_value); + function ReadIMEAutomaticControl(); + function WriteIMEAutomaticControl(_value); + function ReadInlineConversion(); + function WriteInlineConversion(_value); + function ReadInsertedCellColor(); + function WriteInsertedCellColor(_value); + function ReadInsertedTextColor(); + function WriteInsertedTextColor(_value); + function ReadInsertedTextMark(); + function WriteInsertedTextMark(_value); + function ReadINSKeyForOvertype(); + function WriteINSKeyForOvertype(_value); + function ReadINSKeyForPaste(); + function WriteINSKeyForPaste(_value); + function ReadInterpretHighAnsi(); + function WriteInterpretHighAnsi(_value); + function ReadLocalNetworkFile(); + function WriteLocalNetworkFile(_value); + function ReadMapPaperSize(); + function WriteMapPaperSize(_value); + function ReadMarginAlignmentGuides(); + function WriteMarginAlignmentGuides(_value); + function ReadMatchFuzzyAY(); + function WriteMatchFuzzyAY(_value); + function ReadMatchFuzzyBV(); + function WriteMatchFuzzyBV(_value); + function ReadMatchFuzzyByte(); + function WriteMatchFuzzyByte(_value); + function ReadMatchFuzzyCase(); + function WriteMatchFuzzyCase(_value); + function ReadMatchFuzzyDash(); + function WriteMatchFuzzyDash(_value); + function ReadMatchFuzzyDZ(); + function WriteMatchFuzzyDZ(_value); + function ReadMatchFuzzyHF(); + function WriteMatchFuzzyHF(_value); + function ReadMatchFuzzyHiragana(); + function WriteMatchFuzzyHiragana(_value); + function ReadMatchFuzzyIterationMark(); + function WriteMatchFuzzyIterationMark(_value); + function ReadMatchFuzzyKanji(); + function WriteMatchFuzzyKanji(_value); + function ReadMatchFuzzyKiKu(); + function WriteMatchFuzzyKiKu(_value); + function ReadMatchFuzzyOldKana(); + function WriteMatchFuzzyOldKana(_value); + function ReadMatchFuzzyProlongedSoundMark(); + function WriteMatchFuzzyProlongedSoundMark(_value); + function ReadMatchFuzzyPunctuation(); + function WriteMatchFuzzyPunctuation(_value); + function ReadMatchFuzzySmallKana(); + function WriteMatchFuzzySmallKana(_value); + function ReadMatchFuzzySpace(); + function WriteMatchFuzzySpace(_value); + function ReadMatchFuzzyTC(); + function WriteMatchFuzzyTC(_value); + function ReadMatchFuzzyZJ(); + function WriteMatchFuzzyZJ(_value); + function ReadMeasurementUnit(); + function WriteMeasurementUnit(_value); + function ReadMergedCellColor(); + function WriteMergedCellColor(_value); + function ReadMonthNames(); + function WriteMonthNames(_value); + function ReadMoveFromTextColor(); + function WriteMoveFromTextColor(_value); + function ReadMoveFromTextMark(); + function WriteMoveFromTextMark(_value); + function ReadMoveToTextColor(); + function WriteMoveToTextColor(_value); + function ReadMoveToTextMark(); + function WriteMoveToTextMark(_value); + function ReadMultipleWordConversionsMode(); + function WriteMultipleWordConversionsMode(_value); + function ReadOMathAutoBuildUp(); + function WriteOMathAutoBuildUp(_value); + function ReadOMathCopyLF(); + function WriteOMathCopyLF(_value); + function ReadOptimizeForWord97byDefault(); + function WriteOptimizeForWord97byDefault(_value); + function ReadOvertype(); + function WriteOvertype(_value); + function ReadPageAlignmentGuides(); + function WritePageAlignmentGuides(_value); + function ReadPagination(); + function WritePagination(_value); + function ReadParagraphAlignmentGuides(); + function WriteParagraphAlignmentGuides(_value); + function ReadPasteAdjustParagraphSpacing(); + function WritePasteAdjustParagraphSpacing(_value); + function ReadPasteAdjustTableFormatting(); + function WritePasteAdjustTableFormatting(_value); + function ReadPasteAdjustWordSpacing(); + function WritePasteAdjustWordSpacing(_value); + function ReadPasteFormatBetweenDocuments(); + function WritePasteFormatBetweenDocuments(_value); + function ReadPasteFormatBetweenStyledDocuments(); + function WritePasteFormatBetweenStyledDocuments(_value); + function ReadPasteFormatFromExternalSource(); + function WritePasteFormatFromExternalSource(_value); + function ReadPasteFormatWithinDocument(); + function WritePasteFormatWithinDocument(_value); + function ReadPasteMergeFromPPT(); + function WritePasteMergeFromPPT(_value); + function ReadPasteMergeFromXL(); + function WritePasteMergeFromXL(_value); + function ReadPasteMergeLists(); + function WritePasteMergeLists(_value); + function ReadPasteOptionKeepBulletsAndNumbers(); + function WritePasteOptionKeepBulletsAndNumbers(_value); + function ReadPasteSmartCutPaste(); + function WritePasteSmartCutPaste(_value); + function ReadPasteSmartStyleBehavior(); + function WritePasteSmartStyleBehavior(_value); + function ReadPictureEditor(); + function WritePictureEditor(_value); + function ReadPictureWrapType(); + function WritePictureWrapType(_value); + function ReadPortugalReform(); + function WritePortugalReform(_value); + function ReadPrecisePositioning(); + function WritePrecisePositioning(_value); + function ReadPreferCloudSaveLocations(); + function WritePreferCloudSaveLocations(_value); + function ReadPrintBackground(); + function WritePrintBackground(_value); + function ReadPrintBackgrounds(); + function ReadPrintComments(); + function WritePrintComments(_value); + function ReadPrintDraft(); + function WritePrintDraft(_value); + function ReadPrintDrawingObjects(); + function WritePrintDrawingObjects(_value); + function ReadPrintEvenPagesInAscendingOrder(); + function WritePrintEvenPagesInAscendingOrder(_value); + function ReadPrintFieldCodes(); + function WritePrintFieldCodes(_value); + function ReadPrintHiddenText(); + function WritePrintHiddenText(_value); + function ReadPrintOddPagesInAscendingOrder(); + function WritePrintOddPagesInAscendingOrder(_value); + function ReadPrintProperties(); + function WritePrintProperties(_value); + function ReadPrintReverse(); + function WritePrintReverse(_value); + function ReadPrintXMLTag(); + function ReadPromptUpdateStyle(); + function WritePromptUpdateStyle(_value); + function ReadRepeatWord(); + function WriteRepeatWord(_value); + function ReadReplaceSelection(); + function WriteReplaceSelection(_value); + function ReadRevisedLinesColor(); + function WriteRevisedLinesColor(_value); + function ReadRevisedLinesMark(); + function WriteRevisedLinesMark(_value); + function ReadRevisedPropertiesColor(); + function WriteRevisedPropertiesColor(_value); + function ReadRevisedPropertiesMark(); + function WriteRevisedPropertiesMark(_value); + function ReadRevisionsBalloonPrintOrientation(); + function WriteRevisionsBalloonPrintOrientation(_value); + function ReadSaveInterval(); + function WriteSaveInterval(_value); + function ReadSaveNormalPrompt(); + function WriteSaveNormalPrompt(_value); + function ReadSavePropertiesPrompt(); + function WriteSavePropertiesPrompt(_value); + function ReadSendMailAttach(); + function WriteSendMailAttach(_value); + function ReadSequenceCheck(); + function WriteSequenceCheck(_value); + function ReadShowControlCharacters(); + function WriteShowControlCharacters(_value); + function ReadShowDevTools(); + function WriteShowDevTools(_value); + function ReadShowDiacritics(); + function WriteShowDiacritics(_value); + function ReadShowFormatError(); + function WriteShowFormatError(_value); + function ReadShowMarkupOpenSave(); + function WriteShowMarkupOpenSave(_value); + function ReadShowMenuFloaties(); + function WriteShowMenuFloaties(_value); + function ReadShowReadabilityStatistics(); + function WriteShowReadabilityStatistics(_value); + function ReadShowSelectionFloaties(); + function WriteShowSelectionFloaties(_value); + function ReadSkyDriveSignInOption(); + function WriteSkyDriveSignInOption(_value); + function ReadSmartCursoring(); + function WriteSmartCursoring(_value); + function ReadSmartCutPaste(); + function WriteSmartCutPaste(_value); + function ReadSmartParaSelection(); + function WriteSmartParaSelection(_value); + function ReadSnapToGrid(); + function WriteSnapToGrid(_value); + function ReadSnapToShapes(); + function WriteSnapToShapes(_value); + function ReadSpanishMode(); + function WriteSpanishMode(_value); + function ReadSplitCellColor(); + function WriteSplitCellColor(_value); + function ReadStoreRSIDOnSave(); + function WriteStoreRSIDOnSave(_value); + function ReadStrictFinalYaa(); + function WriteStrictFinalYaa(_value); + function ReadStrictInitialAlefHamza(); + function WriteStrictInitialAlefHamza(_value); + function ReadStrictRussianE(); + function WriteStrictRussianE(_value); + function ReadStrictTaaMarboota(); + function WriteStrictTaaMarboota(_value); + function ReadSuggestFromMainDictionaryOnly(); + function WriteSuggestFromMainDictionaryOnly(_value); + function ReadSuggestSpellingCorrections(); + function WriteSuggestSpellingCorrections(_value); + function ReadTabIndentKey(); + function WriteTabIndentKey(_value); + function ReadTypeNReplace(); + function WriteTypeNReplace(_value); + function ReadUpdateFieldsAtPrint(); + function WriteUpdateFieldsAtPrint(_value); + function ReadUpdateFieldsWithTrackedChangesAtPrint(); + function WriteUpdateFieldsWithTrackedChangesAtPrint(_value); + function ReadUpdateLinksAtOpen(); + function WriteUpdateLinksAtOpen(_value); + function ReadUpdateLinksAtPrint(); + function WriteUpdateLinksAtPrint(_value); + function ReadUpdateStyleListBehavior(); + function WriteUpdateStyleListBehavior(_value); + function ReadUseCharacterUnit(); + function WriteUseCharacterUnit(_value); + function ReadUseDiffDiacColor(); + function WriteUseDiffDiacColor(_value); + function ReadUseGermanSpellingReform(); + function WriteUseGermanSpellingReform(_value); + function ReadUseLocalUserInfo(); + function WriteUseLocalUserInfo(_value); + function ReadUseNormalStyleForList(); + function WriteUseNormalStyleForList(_value); + function ReadUseSubPixelPositioning(); + function WriteUseSubPixelPositioning(_value); + function ReadVisualSelection(); + function WriteVisualSelection(_value); + function ReadWarnBeforeSavingPrintingSendingMarkup(); + function WriteWarnBeforeSavingPrintingSendingMarkup(_value); +end; + +type OtherCorrectionsException = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + function ReadIndex(); + function ReadName(); +end; + +type OtherCorrectionsExceptions = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Page = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Breaks read ReadBreaks; + property EnhMetaFileBits read ReadEnhMetaFileBits; + property Height read ReadHeight; + property Left read ReadLeft; + property Rectangles read ReadRectangles; + property Top read ReadTop; + property Width read ReadWidth; + function ReadBreaks(); + function ReadEnhMetaFileBits(); + function ReadHeight(); + function ReadLeft(); + function ReadRectangles(); + function ReadTop(); + function ReadWidth(); +end; + +type PageNumber = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function Select(); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property Index read ReadIndex; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadIndex(); +end; + +type PageNumbers = class(VbaBase) +public + function Init(); + +public + // methods + function Add(PageNumberAlignment, FirstPage); + function Item(Index); + + // properties + property ChapterPageSeparator read ReadChapterPageSeparator write WriteChapterPageSeparator; + property Count read ReadCount; + property DoubleQuote read ReadDoubleQuote write WriteDoubleQuote; + property HeadingLevelForChapter read ReadHeadingLevelForChapter write WriteHeadingLevelForChapter; + property IncludeChapterNumber read ReadIncludeChapterNumber write WriteIncludeChapterNumber; + property NumberStyle read ReadNumberStyle write WriteNumberStyle; + property RestartNumberingAtSection read ReadRestartNumberingAtSection write WriteRestartNumberingAtSection; + property ShowFirstPageNumber read ReadShowFirstPageNumber write WriteShowFirstPageNumber; + property StartingNumber read ReadStartingNumber write WriteStartingNumber; + function ReadChapterPageSeparator(); + function WriteChapterPageSeparator(_value); + function ReadCount(); + function ReadDoubleQuote(); + function WriteDoubleQuote(_value); + function ReadHeadingLevelForChapter(); + function WriteHeadingLevelForChapter(_value); + function ReadIncludeChapterNumber(); + function WriteIncludeChapterNumber(_value); + function ReadNumberStyle(); + function WriteNumberStyle(_value); + function ReadRestartNumberingAtSection(); + function WriteRestartNumberingAtSection(_value); + function ReadShowFirstPageNumber(); + function WriteShowFirstPageNumber(_value); + function ReadStartingNumber(); + function WriteStartingNumber(_value); +end; + +type Pages = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type PageSetup = class(VbaBase) +public + function Init(); + +public + // methods + function SetAsTemplateDefault(); + function TogglePortrait(); + + // properties + property BookFoldPrinting read ReadBookFoldPrinting write WriteBookFoldPrinting; + property BookFoldPrintingSheets read ReadBookFoldPrintingSheets write WriteBookFoldPrintingSheets; + property BookFoldRevPrinting read ReadBookFoldRevPrinting write WriteBookFoldRevPrinting; + property BottomMargin read ReadBottomMargin write WriteBottomMargin; + property CharsLine read ReadCharsLine write WriteCharsLine; + property DifferentFirstPageHeaderFooter read ReadDifferentFirstPageHeaderFooter write WriteDifferentFirstPageHeaderFooter; + property FirstPageTray read ReadFirstPageTray write WriteFirstPageTray; + property FooterDistance read ReadFooterDistance write WriteFooterDistance; + property Gutter read ReadGutter write WriteGutter; + property GutterPos read ReadGutterPos write WriteGutterPos; + property GutterStyle read ReadGutterStyle write WriteGutterStyle; + property HeaderDistance read ReadHeaderDistance write WriteHeaderDistance; + property LayoutMode read ReadLayoutMode write WriteLayoutMode; + property LeftMargin read ReadLeftMargin write WriteLeftMargin; + property LineNumbering read ReadLineNumbering write WriteLineNumbering; + property LinesPage read ReadLinesPage write WriteLinesPage; + property MirrorMargins read ReadMirrorMargins write WriteMirrorMargins; + property OddAndEvenPagesHeaderFooter read ReadOddAndEvenPagesHeaderFooter write WriteOddAndEvenPagesHeaderFooter; + property Orientation read ReadOrientation write WriteOrientation; + property OtherPagesTray read ReadOtherPagesTray write WriteOtherPagesTray; + property PageHeight read ReadPageHeight write WritePageHeight; + property PageWidth read ReadPageWidth write WritePageWidth; + property PaperSize read ReadPaperSize write WritePaperSize; + property RightMargin read ReadRightMargin write WriteRightMargin; + property SectionDirection read ReadSectionDirection write WriteSectionDirection; + property SectionStart read ReadSectionStart write WriteSectionStart; + property ShowGrid read ReadShowGrid write WriteShowGrid; + property SuppressEndnotes read ReadSuppressEndnotes write WriteSuppressEndnotes; + property TextColumns read ReadTextColumns; + property TopMargin read ReadTopMargin write WriteTopMargin; + property TwoPagesOnOne read ReadTwoPagesOnOne write WriteTwoPagesOnOne; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + function ReadBookFoldPrinting(); + function WriteBookFoldPrinting(_value); + function ReadBookFoldPrintingSheets(); + function WriteBookFoldPrintingSheets(_value); + function ReadBookFoldRevPrinting(); + function WriteBookFoldRevPrinting(_value); + function ReadBottomMargin(); + function WriteBottomMargin(_value); + function ReadCharsLine(); + function WriteCharsLine(_value); + function ReadDifferentFirstPageHeaderFooter(); + function WriteDifferentFirstPageHeaderFooter(_value); + function ReadFirstPageTray(); + function WriteFirstPageTray(_value); + function ReadFooterDistance(); + function WriteFooterDistance(_value); + function ReadGutter(); + function WriteGutter(_value); + function ReadGutterPos(); + function WriteGutterPos(_value); + function ReadGutterStyle(); + function WriteGutterStyle(_value); + function ReadHeaderDistance(); + function WriteHeaderDistance(_value); + function ReadLayoutMode(); + function WriteLayoutMode(_value); + function ReadLeftMargin(); + function WriteLeftMargin(_value); + function ReadLineNumbering(); + function WriteLineNumbering(_value); + function ReadLinesPage(); + function WriteLinesPage(_value); + function ReadMirrorMargins(); + function WriteMirrorMargins(_value); + function ReadOddAndEvenPagesHeaderFooter(); + function WriteOddAndEvenPagesHeaderFooter(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadOtherPagesTray(); + function WriteOtherPagesTray(_value); + function ReadPageHeight(); + function WritePageHeight(_value); + function ReadPageWidth(); + function WritePageWidth(_value); + function ReadPaperSize(); + function WritePaperSize(_value); + function ReadRightMargin(); + function WriteRightMargin(_value); + function ReadSectionDirection(); + function WriteSectionDirection(_value); + function ReadSectionStart(); + function WriteSectionStart(_value); + function ReadShowGrid(); + function WriteShowGrid(_value); + function ReadSuppressEndnotes(); + function WriteSuppressEndnotes(_value); + function ReadTextColumns(); + function ReadTopMargin(); + function WriteTopMargin(_value); + function ReadTwoPagesOnOne(); + function WriteTwoPagesOnOne(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); +end; + +type Pane = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function AutoScroll(Velocity); + function Close(); + function LargeScroll(Down, Up, ToRight, ToLeft); + function NewFrameset(); + function PageScroll(Down, Up); + function SmallScroll(Down, Up, ToRight, ToLeft); + function TOCInFrameset(); + + // properties + property BrowseWidth read ReadBrowseWidth; + property DisplayRulers read ReadDisplayRulers write WriteDisplayRulers; + property DisplayVerticalRuler read ReadDisplayVerticalRuler write WriteDisplayVerticalRuler; + property Document read ReadDocument; + property Frameset read ReadFrameset; + property HorizontalPercentScrolled read ReadHorizontalPercentScrolled write WriteHorizontalPercentScrolled; + property Index read ReadIndex; + property MinimumFontSize read ReadMinimumFontSize write WriteMinimumFontSize; + property Next read ReadNext; + property Pages read ReadPages; + property Previous read ReadPrevious; + property Selection read ReadSelection; + property VerticalPercentScrolled read ReadVerticalPercentScrolled write WriteVerticalPercentScrolled; + property View read ReadView; + property Zooms read ReadZooms; + function ReadBrowseWidth(); + function ReadDisplayRulers(); + function WriteDisplayRulers(_value); + function ReadDisplayVerticalRuler(); + function WriteDisplayVerticalRuler(_value); + function ReadDocument(); + function ReadFrameset(); + function ReadHorizontalPercentScrolled(); + function WriteHorizontalPercentScrolled(_value); + function ReadIndex(); + function ReadMinimumFontSize(); + function WriteMinimumFontSize(_value); + function ReadNext(); + function ReadPages(); + function ReadPrevious(); + function ReadSelection(); + function ReadVerticalPercentScrolled(); + function WriteVerticalPercentScrolled(_value); + function ReadView(); + function ReadZooms(); +end; + +type Panes = class(VbaBase) +public + function Init(); + +public + // methods + function Add(SplitVertical); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Paragraph = class(VbaBase) +public + function Init(components: DocxComponents; p: P; index: integer); + +public + // methods + function CloseUp(); + function Indent(); + function IndentCharWidth(Count); + function IndentFirstLineCharWidth(Count); + function JoinList(); + function ListAdvanceTo(Level1, Level2, Level3, Level4, Level5, Level6, Level7, Level8, Level9); + function Next(Count: integer = 1); + function OpenOrCloseUp(); + function OpenUp(); + function Outdent(); + function OutlineDemote(); + function OutlineDemoteToBody(); + function OutlinePromote(); + function Previous(Count: integer = 1); + function Reset(); + function ResetAdvanceTo(); + function SelectNumber(); + function SeparateList(); + function Space1(); + function Space15(); + function Space2(); + function TabHangingIndent(Count); + function TabIndent(Count); + function ListNumberOriginal(Level); + + // properties + property AddSpaceBetweenFarEastAndAlpha read ReadAddSpaceBetweenFarEastAndAlpha write WriteAddSpaceBetweenFarEastAndAlpha; + property AddSpaceBetweenFarEastAndDigit read ReadAddSpaceBetweenFarEastAndDigit write WriteAddSpaceBetweenFarEastAndDigit; + property Alignment read ReadAlignment write WriteAlignment; + property AutoAdjustRightIndent read ReadAutoAdjustRightIndent write WriteAutoAdjustRightIndent; + property BaseLineAlignment read ReadBaseLineAlignment write WriteBaseLineAlignment; + property Borders read ReadBorders; + property CharacterUnitFirstLineIndent read ReadCharacterUnitFirstLineIndent write WriteCharacterUnitFirstLineIndent; + property CharacterUnitLeftIndent read ReadCharacterUnitLeftIndent write WriteCharacterUnitLeftIndent; + property CharacterUnitRightIndent read ReadCharacterUnitRightIndent write WriteCharacterUnitRightIndent; + property CollapsedState read ReadCollapsedState write WriteCollapsedState; + property CollapseHeadingByDefault read ReadCollapseHeadingByDefault write WriteCollapseHeadingByDefault; + property DisableLineHeightGrid read ReadDisableLineHeightGrid write WriteDisableLineHeightGrid; + property DropCap read ReadDropCap; + property FarEastLineBreakControl read ReadFarEastLineBreakControl write WriteFarEastLineBreakControl; + property FirstLineIndent read ReadFirstLineIndent write WriteFirstLineIndent; + property Format read ReadFormat write WriteFormat; + property HalfWidthPunctuationOnTopOfLine read ReadHalfWidthPunctuationOnTopOfLine write WriteHalfWidthPunctuationOnTopOfLine; + property HangingPunctuation read ReadHangingPunctuation write WriteHangingPunctuation; + property Hyphenation read ReadHyphenation write WriteHyphenation; + property ID read ReadID write WriteID; + property IsStyleSeparator read ReadIsStyleSeparator; + property KeepTogether read ReadKeepTogether write WriteKeepTogether; + property KeepWithNext read ReadKeepWithNext write WriteKeepWithNext; + property LeftIndent read ReadLeftIndent write WriteLeftIndent; + property LineSpacing read ReadLineSpacing write WriteLineSpacing; + property LineSpacingRule read ReadLineSpacingRule write WriteLineSpacingRule; + property LineUnitAfter read ReadLineUnitAfter write WriteLineUnitAfter; + property LineUnitBefore read ReadLineUnitBefore write WriteLineUnitBefore; + property MirrorIndents read ReadMirrorIndents write WriteMirrorIndents; + property NoLineNumber read ReadNoLineNumber write WriteNoLineNumber; + property OutlineLevel read ReadOutlineLevel write WriteOutlineLevel; + property PageBreakBefore read ReadPageBreakBefore write WritePageBreakBefore; + property Range read ReadRange; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property RightIndent read ReadRightIndent write WriteRightIndent; + property Shading read ReadShading; + property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter; + property SpaceAfterAuto read ReadSpaceAfterAuto write WriteSpaceAfterAuto; + property SpaceBefore read ReadSpaceBefore write WriteSpaceBefore; + property SpaceBeforeAuto read ReadSpaceBeforeAuto write WriteSpaceBeforeAuto; + property Style read ReadStyle write WriteStyle; + property TabStops read ReadTabStops write WriteTabStops; + property TextboxTightWrap read ReadTextboxTightWrap write WriteTextboxTightWrap; + property WidowControl read ReadWidowControl write WriteWidowControl; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadAddSpaceBetweenFarEastAndAlpha(); + function WriteAddSpaceBetweenFarEastAndAlpha(_value); + function ReadAddSpaceBetweenFarEastAndDigit(); + function WriteAddSpaceBetweenFarEastAndDigit(_value); + function ReadAlignment(); + function WriteAlignment(_value); + function ReadAutoAdjustRightIndent(); + function WriteAutoAdjustRightIndent(_value); + function ReadBaseLineAlignment(); + function WriteBaseLineAlignment(_value); + function ReadBorders(); + function ReadCharacterUnitFirstLineIndent(); + function WriteCharacterUnitFirstLineIndent(_value); + function ReadCharacterUnitLeftIndent(); + function WriteCharacterUnitLeftIndent(_value); + function ReadCharacterUnitRightIndent(); + function WriteCharacterUnitRightIndent(_value); + function ReadCollapsedState(); + function WriteCollapsedState(_value); + function ReadCollapseHeadingByDefault(); + function WriteCollapseHeadingByDefault(_value); + function ReadDisableLineHeightGrid(); + function WriteDisableLineHeightGrid(_value); + function ReadDropCap(); + function ReadFarEastLineBreakControl(); + function WriteFarEastLineBreakControl(_value); + function ReadFirstLineIndent(); + function WriteFirstLineIndent(_value); + function ReadFormat(); + function WriteFormat(_value); + function ReadHalfWidthPunctuationOnTopOfLine(); + function WriteHalfWidthPunctuationOnTopOfLine(_value); + function ReadHangingPunctuation(); + function WriteHangingPunctuation(_value); + function ReadHyphenation(); + function WriteHyphenation(_value); + function ReadID(); + function WriteID(_value); + function ReadIsStyleSeparator(); + function ReadKeepTogether(); + function WriteKeepTogether(_value); + function ReadKeepWithNext(); + function WriteKeepWithNext(_value); + function ReadLeftIndent(); + function WriteLeftIndent(_value); + function ReadLineSpacing(); + function WriteLineSpacing(_value); + function ReadLineSpacingRule(); + function WriteLineSpacingRule(_value); + function ReadLineUnitAfter(); + function WriteLineUnitAfter(_value); + function ReadLineUnitBefore(); + function WriteLineUnitBefore(_value); + function ReadMirrorIndents(); + function WriteMirrorIndents(_value); + function ReadNoLineNumber(); + function WriteNoLineNumber(_value); + function ReadOutlineLevel(); + function WriteOutlineLevel(_value); + function ReadPageBreakBefore(); + function WritePageBreakBefore(_value); + function ReadRange(); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadRightIndent(); + function WriteRightIndent(_value); + function ReadShading(); + function ReadSpaceAfter(); + function WriteSpaceAfter(_value); + function ReadSpaceAfterAuto(); + function WriteSpaceAfterAuto(_value); + function ReadSpaceBefore(); + function WriteSpaceBefore(_value); + function ReadSpaceBeforeAuto(); + function WriteSpaceBeforeAuto(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTabStops(); + function WriteTabStops(_value); + function ReadTextboxTightWrap(); + function WriteTextboxTightWrap(_value); + function ReadWidowControl(); + function WriteWidowControl(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); + +private + [weakref]components_: DocxComponents; + p_: P; + index_: integer; +end; + +type ParagraphFormat = class(VbaBase) +public + function Init(); + +public + // methods + function CloseUp(); + function IndentCharWidth(Count); + function IndentFirstLineCharWidth(Count); + function OpenOrCloseUp(); + function OpenUp(); + function Reset(); + function Space1(); + function Space15(); + function Space2(); + function TabHangingIndent(Count); + function TabIndent(Count); + + // properties + property AddSpaceBetweenFarEastAndAlpha read ReadAddSpaceBetweenFarEastAndAlpha write WriteAddSpaceBetweenFarEastAndAlpha; + property AddSpaceBetweenFarEastAndDigit read ReadAddSpaceBetweenFarEastAndDigit write WriteAddSpaceBetweenFarEastAndDigit; + property Alignment read ReadAlignment write WriteAlignment; + property AutoAdjustRightIndent read ReadAutoAdjustRightIndent write WriteAutoAdjustRightIndent; + property BaseLineAlignment read ReadBaseLineAlignment write WriteBaseLineAlignment; + property Borders read ReadBorders; + property CharacterUnitFirstLineIndent read ReadCharacterUnitFirstLineIndent write WriteCharacterUnitFirstLineIndent; + property CharacterUnitLeftIndent read ReadCharacterUnitLeftIndent write WriteCharacterUnitLeftIndent; + property CharacterUnitRightIndent read ReadCharacterUnitRightIndent write WriteCharacterUnitRightIndent; + property CollapsedByDefault read ReadCollapsedByDefault write WriteCollapsedByDefault; + property DisableLineHeightGrid read ReadDisableLineHeightGrid write WriteDisableLineHeightGrid; + property Duplicate read ReadDuplicate; + property FarEastLineBreakControl read ReadFarEastLineBreakControl write WriteFarEastLineBreakControl; + property FirstLineIndent read ReadFirstLineIndent write WriteFirstLineIndent; + property HalfWidthPunctuationOnTopOfLine read ReadHalfWidthPunctuationOnTopOfLine write WriteHalfWidthPunctuationOnTopOfLine; + property HangingPunctuation read ReadHangingPunctuation write WriteHangingPunctuation; + property Hyphenation read ReadHyphenation write WriteHyphenation; + property KeepTogether read ReadKeepTogether write WriteKeepTogether; + property KeepWithNext read ReadKeepWithNext write WriteKeepWithNext; + property LeftIndent read ReadLeftIndent write WriteLeftIndent; + property LineSpacing read ReadLineSpacing write WriteLineSpacing; + property LineSpacingRule read ReadLineSpacingRule write WriteLineSpacingRule; + property LineUnitAfter read ReadLineUnitAfter write WriteLineUnitAfter; + property LineUnitBefore read ReadLineUnitBefore write WriteLineUnitBefore; + property MirrorIndents read ReadMirrorIndents write WriteMirrorIndents; + property NoLineNumber read ReadNoLineNumber write WriteNoLineNumber; + property OutlineLevel read ReadOutlineLevel write WriteOutlineLevel; + property PageBreakBefore read ReadPageBreakBefore write WritePageBreakBefore; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property RightIndent read ReadRightIndent write WriteRightIndent; + property Shading read ReadShading; + property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter; + property SpaceAfterAuto read ReadSpaceAfterAuto write WriteSpaceAfterAuto; + property SpaceBefore read ReadSpaceBefore write WriteSpaceBefore; + property SpaceBeforeAuto read ReadSpaceBeforeAuto write WriteSpaceBeforeAuto; + property Style read ReadStyle write WriteStyle; + property TabStops read ReadTabStops write WriteTabStops; + property TextboxTightWrap read ReadTextboxTightWrap write WriteTextboxTightWrap; + property WidowControl read ReadWidowControl write WriteWidowControl; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadAddSpaceBetweenFarEastAndAlpha(); + function WriteAddSpaceBetweenFarEastAndAlpha(_value); + function ReadAddSpaceBetweenFarEastAndDigit(); + function WriteAddSpaceBetweenFarEastAndDigit(_value); + function ReadAlignment(); + function WriteAlignment(_value); + function ReadAutoAdjustRightIndent(); + function WriteAutoAdjustRightIndent(_value); + function ReadBaseLineAlignment(); + function WriteBaseLineAlignment(_value); + function ReadBorders(); + function ReadCharacterUnitFirstLineIndent(); + function WriteCharacterUnitFirstLineIndent(_value); + function ReadCharacterUnitLeftIndent(); + function WriteCharacterUnitLeftIndent(_value); + function ReadCharacterUnitRightIndent(); + function WriteCharacterUnitRightIndent(_value); + function ReadCollapsedByDefault(); + function WriteCollapsedByDefault(_value); + function ReadDisableLineHeightGrid(); + function WriteDisableLineHeightGrid(_value); + function ReadDuplicate(); + function ReadFarEastLineBreakControl(); + function WriteFarEastLineBreakControl(_value); + function ReadFirstLineIndent(); + function WriteFirstLineIndent(_value); + function ReadHalfWidthPunctuationOnTopOfLine(); + function WriteHalfWidthPunctuationOnTopOfLine(_value); + function ReadHangingPunctuation(); + function WriteHangingPunctuation(_value); + function ReadHyphenation(); + function WriteHyphenation(_value); + function ReadKeepTogether(); + function WriteKeepTogether(_value); + function ReadKeepWithNext(); + function WriteKeepWithNext(_value); + function ReadLeftIndent(); + function WriteLeftIndent(_value); + function ReadLineSpacing(); + function WriteLineSpacing(_value); + function ReadLineSpacingRule(); + function WriteLineSpacingRule(_value); + function ReadLineUnitAfter(); + function WriteLineUnitAfter(_value); + function ReadLineUnitBefore(); + function WriteLineUnitBefore(_value); + function ReadMirrorIndents(); + function WriteMirrorIndents(_value); + function ReadNoLineNumber(); + function WriteNoLineNumber(_value); + function ReadOutlineLevel(); + function WriteOutlineLevel(_value); + function ReadPageBreakBefore(); + function WritePageBreakBefore(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadRightIndent(); + function WriteRightIndent(_value); + function ReadShading(); + function ReadSpaceAfter(); + function WriteSpaceAfter(_value); + function ReadSpaceAfterAuto(); + function WriteSpaceAfterAuto(_value); + function ReadSpaceBefore(); + function WriteSpaceBefore(_value); + function ReadSpaceBeforeAuto(); + function WriteSpaceBeforeAuto(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTabStops(); + function WriteTabStops(_value); + function ReadTextboxTightWrap(); + function WriteTextboxTightWrap(_value); + function ReadWidowControl(); + function WriteWidowControl(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); +end; + +type Paragraphs = class(VbaBase) +public + function Init(components: DocxComponents); + function Operator[](index: integer); + +public + // methods + function Add(Range); + function CloseUp(); + function DecreaseSpacing(); + function IncreaseSpacing(); + function Indent(); + function IndentCharWidth(_Count); + function IndentFirstLineCharWidth(_Count); + function Item(Index: integer); + function OpenOrCloseUp(); + function OpenUp(); + function Outdent(); + function OutlineDemote(); + function OutlineDemoteToBody(); + function OutlinePromote(); + function Reset(); + function Space1(); + function Space15(); + function Space2(); + function TabHangingIndent(_Count); + function TabIndent(_Count); + + // properties + property AddSpaceBetweenFarEastAndAlpha read ReadAddSpaceBetweenFarEastAndAlpha write WriteAddSpaceBetweenFarEastAndAlpha; + property AddSpaceBetweenFarEastAndDigit read ReadAddSpaceBetweenFarEastAndDigit write WriteAddSpaceBetweenFarEastAndDigit; + property Alignment read ReadAlignment write WriteAlignment; + property AutoAdjustRightIndent read ReadAutoAdjustRightIndent write WriteAutoAdjustRightIndent; + property BaseLineAlignment read ReadBaseLineAlignment write WriteBaseLineAlignment; + property Borders read ReadBorders; + property CharacterUnitFirstLineIndent read ReadCharacterUnitFirstLineIndent write WriteCharacterUnitFirstLineIndent; + property CharacterUnitLeftIndent read ReadCharacterUnitLeftIndent write WriteCharacterUnitLeftIndent; + property CharacterUnitRightIndent read ReadCharacterUnitRightIndent write WriteCharacterUnitRightIndent; + property Count read ReadCount; + property DisableLineHeightGrid read ReadDisableLineHeightGrid write WriteDisableLineHeightGrid; + property FarEastLineBreakControl read ReadFarEastLineBreakControl write WriteFarEastLineBreakControl; + property First read ReadFirst; + property FirstLineIndent read ReadFirstLineIndent write WriteFirstLineIndent; + property Format read ReadFormat write WriteFormat; + property HalfWidthPunctuationOnTopOfLine read ReadHalfWidthPunctuationOnTopOfLine write WriteHalfWidthPunctuationOnTopOfLine; + property HangingPunctuation read ReadHangingPunctuation write WriteHangingPunctuation; + property Hyphenation read ReadHyphenation write WriteHyphenation; + property KeepTogether read ReadKeepTogether write WriteKeepTogether; + property KeepWithNext read ReadKeepWithNext write WriteKeepWithNext; + property Last read ReadLast; + property LeftIndent read ReadLeftIndent write WriteLeftIndent; + property LineSpacing read ReadLineSpacing write WriteLineSpacing; + property LineSpacingRule read ReadLineSpacingRule write WriteLineSpacingRule; + property LineUnitAfter read ReadLineUnitAfter write WriteLineUnitAfter; + property LineUnitBefore read ReadLineUnitBefore write WriteLineUnitBefore; + property NoLineNumber read ReadNoLineNumber write WriteNoLineNumber; + property OutlineLevel read ReadOutlineLevel write WriteOutlineLevel; + property PageBreakBefore read ReadPageBreakBefore write WritePageBreakBefore; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property RightIndent read ReadRightIndent write WriteRightIndent; + property Shading read ReadShading; + property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter; + property SpaceAfterAuto read ReadSpaceAfterAuto write WriteSpaceAfterAuto; + property SpaceBefore read ReadSpaceBefore write WriteSpaceBefore; + property SpaceBeforeAuto read ReadSpaceBeforeAuto write WriteSpaceBeforeAuto; + property Style read ReadStyle write WriteStyle; + property TabStops read ReadTabStops write WriteTabStops; + property WidowControl read ReadWidowControl write WriteWidowControl; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadAddSpaceBetweenFarEastAndAlpha(); + function WriteAddSpaceBetweenFarEastAndAlpha(_value); + function ReadAddSpaceBetweenFarEastAndDigit(); + function WriteAddSpaceBetweenFarEastAndDigit(_value); + function ReadAlignment(); + function WriteAlignment(_value); + function ReadAutoAdjustRightIndent(); + function WriteAutoAdjustRightIndent(_value); + function ReadBaseLineAlignment(); + function WriteBaseLineAlignment(_value); + function ReadBorders(); + function ReadCharacterUnitFirstLineIndent(); + function WriteCharacterUnitFirstLineIndent(_value); + function ReadCharacterUnitLeftIndent(); + function WriteCharacterUnitLeftIndent(_value); + function ReadCharacterUnitRightIndent(); + function WriteCharacterUnitRightIndent(_value); + function ReadCount(); + function ReadDisableLineHeightGrid(); + function WriteDisableLineHeightGrid(_value); + function ReadFarEastLineBreakControl(); + function WriteFarEastLineBreakControl(_value); + function ReadFirst(); + function ReadFirstLineIndent(); + function WriteFirstLineIndent(_value); + function ReadFormat(); + function WriteFormat(_value); + function ReadHalfWidthPunctuationOnTopOfLine(); + function WriteHalfWidthPunctuationOnTopOfLine(_value); + function ReadHangingPunctuation(); + function WriteHangingPunctuation(_value); + function ReadHyphenation(); + function WriteHyphenation(_value); + function ReadKeepTogether(); + function WriteKeepTogether(_value); + function ReadKeepWithNext(); + function WriteKeepWithNext(_value); + function ReadLast(); + function ReadLeftIndent(); + function WriteLeftIndent(_value); + function ReadLineSpacing(); + function WriteLineSpacing(_value); + function ReadLineSpacingRule(); + function WriteLineSpacingRule(_value); + function ReadLineUnitAfter(); + function WriteLineUnitAfter(_value); + function ReadLineUnitBefore(); + function WriteLineUnitBefore(_value); + function ReadNoLineNumber(); + function WriteNoLineNumber(_value); + function ReadOutlineLevel(); + function WriteOutlineLevel(_value); + function ReadPageBreakBefore(); + function WritePageBreakBefore(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadRightIndent(); + function WriteRightIndent(_value); + function ReadShading(); + function ReadSpaceAfter(); + function WriteSpaceAfter(_value); + function ReadSpaceAfterAuto(); + function WriteSpaceAfterAuto(_value); + function ReadSpaceBefore(); + function WriteSpaceBefore(_value); + function ReadSpaceBeforeAuto(); + function WriteSpaceBeforeAuto(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTabStops(); + function WriteTabStops(_value); + function ReadWidowControl(); + function WriteWidowControl(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); + +private + function InitParagraphs(elements: array of OpenXmlElement); + +private + [weakref]components_: DocxComponents; + paragraphs_: array of Paragraph; +end; + +type PictureFormat = class(VbaBase) +public + function Init(); + +public + // methods + function IncrementBrightness(Increment); + function IncrementContrast(Increment); + + // properties + property Brightness read ReadBrightness write WriteBrightness; + property ColorType read ReadColorType write WriteColorType; + property Contrast read ReadContrast write WriteContrast; + property Crop read ReadCrop write WriteCrop; + property CropBottom read ReadCropBottom write WriteCropBottom; + property CropLeft read ReadCropLeft write WriteCropLeft; + property CropRight read ReadCropRight write WriteCropRight; + property CropTop read ReadCropTop write WriteCropTop; + property TransparencyColor read ReadTransparencyColor write WriteTransparencyColor; + property TransparentBackground read ReadTransparentBackground write WriteTransparentBackground; + function ReadBrightness(); + function WriteBrightness(_value); + function ReadColorType(); + function WriteColorType(_value); + function ReadContrast(); + function WriteContrast(_value); + function ReadCrop(); + function WriteCrop(_value); + function ReadCropBottom(); + function WriteCropBottom(_value); + function ReadCropLeft(); + function WriteCropLeft(_value); + function ReadCropRight(); + function WriteCropRight(_value); + function ReadCropTop(); + function WriteCropTop(_value); + function ReadTransparencyColor(); + function WriteTransparencyColor(_value); + function ReadTransparentBackground(); + function WriteTransparentBackground(_value); +end; + +type PlotArea = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Select(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight write WriteHeight; + property InsideHeight read ReadInsideHeight write WriteInsideHeight; + property InsideLeft read ReadInsideLeft write WriteInsideLeft; + property InsideTop read ReadInsideTop write WriteInsideTop; + property InsideWidth read ReadInsideWidth write WriteInsideWidth; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Position read ReadPosition write WritePosition; + property Top read ReadTop write WriteTop; + property Width read ReadWidth write WriteWidth; + function ReadFormat(); + function ReadHeight(); + function WriteHeight(_value); + function ReadInsideHeight(); + function WriteInsideHeight(_value); + function ReadInsideLeft(); + function WriteInsideLeft(_value); + function ReadInsideTop(); + function WriteInsideTop(_value); + function ReadInsideWidth(); + function WriteInsideWidth(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadPosition(); + function WritePosition(_value); + function ReadTop(); + function WriteTop(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Point = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator); + function ClearFormats(); + function Copy(); + function Delete(); + function Paste(); + function PieSliceLocation(loc, Index); + function Select(); + + // properties + property ApplyPictToEnd read ReadApplyPictToEnd write WriteApplyPictToEnd; + property ApplyPictToFront read ReadApplyPictToFront write WriteApplyPictToFront; + property ApplyPictToSides read ReadApplyPictToSides write WriteApplyPictToSides; + property DataLabel read ReadDataLabel; + property Explosion read ReadExplosion write WriteExplosion; + property Format read ReadFormat; + property Has3DEffect read ReadHas3DEffect write WriteHas3DEffect; + property HasDataLabel read ReadHasDataLabel write WriteHasDataLabel; + property Height read ReadHeight; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property IsTotal read ReadIsTotal write WriteIsTotal; + property Left read ReadLeft; + property MarkerBackgroundColor read ReadMarkerBackgroundColor write WriteMarkerBackgroundColor; + property MarkerBackgroundColorIndex read ReadMarkerBackgroundColorIndex write WriteMarkerBackgroundColorIndex; + property MarkerForegroundColor read ReadMarkerForegroundColor write WriteMarkerForegroundColor; + property MarkerForegroundColorIndex read ReadMarkerForegroundColorIndex write WriteMarkerForegroundColorIndex; + property MarkerSize read ReadMarkerSize write WriteMarkerSize; + property MarkerStyle read ReadMarkerStyle write WriteMarkerStyle; + property Name read ReadName; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit2 read ReadPictureUnit2 write WritePictureUnit2; + property SecondaryPlot read ReadSecondaryPlot write WriteSecondaryPlot; + property Shadow read ReadShadow write WriteShadow; + property Top read ReadTop; + property Width read ReadWidth; + function ReadApplyPictToEnd(); + function WriteApplyPictToEnd(_value); + function ReadApplyPictToFront(); + function WriteApplyPictToFront(_value); + function ReadApplyPictToSides(); + function WriteApplyPictToSides(_value); + function ReadDataLabel(); + function ReadExplosion(); + function WriteExplosion(_value); + function ReadFormat(); + function ReadHas3DEffect(); + function WriteHas3DEffect(_value); + function ReadHasDataLabel(); + function WriteHasDataLabel(_value); + function ReadHeight(); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadIsTotal(); + function WriteIsTotal(_value); + function ReadLeft(); + function ReadMarkerBackgroundColor(); + function WriteMarkerBackgroundColor(_value); + function ReadMarkerBackgroundColorIndex(); + function WriteMarkerBackgroundColorIndex(_value); + function ReadMarkerForegroundColor(); + function WriteMarkerForegroundColor(_value); + function ReadMarkerForegroundColorIndex(); + function WriteMarkerForegroundColorIndex(_value); + function ReadMarkerSize(); + function WriteMarkerSize(_value); + function ReadMarkerStyle(); + function WriteMarkerStyle(_value); + function ReadName(); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit2(); + function WritePictureUnit2(_value); + function ReadSecondaryPlot(); + function WriteSecondaryPlot(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadTop(); + function ReadWidth(); +end; + +type Points = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ProofreadingErrors = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + property Type read ReadType; + function ReadCount(); + function ReadType(); +end; + +type ProtectedViewWindow = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function Close(); + function Edit(PasswordTemplate, WritePasswordDocument, WritePasswordTemplate); + function ToggleRibbon(); + + // properties + property Active read ReadActive; + property Caption read ReadCaption write WriteCaption; + property Document read ReadDocument; + property Height read ReadHeight write WriteHeight; + property Index read ReadIndex; + property Left read ReadLeft write WriteLeft; + property SourceName read ReadSourceName; + property SourcePath read ReadSourcePath; + property Top read ReadTop write WriteTop; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property WindowState read ReadWindowState write WriteWindowState; + function ReadActive(); + function ReadCaption(); + function WriteCaption(_value); + function ReadDocument(); + function ReadHeight(); + function WriteHeight(_value); + function ReadIndex(); + function ReadLeft(); + function WriteLeft(_value); + function ReadSourceName(); + function ReadSourcePath(); + function ReadTop(); + function WriteTop(_value); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWindowState(); + function WriteWindowState(_value); +end; + +type ProtectedViewWindows = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + function Open(FileName, AddToRecentFiles, PasswordDocument, Visible, OpenAndRepair); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Range = class(VbaBase) +public + function Init(); + +public + // methods + function AutoFormat(); + function Calculate(); + function CheckGrammar(); + function CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10); + function CheckSynonyms(); + function Collapse(Direction); + function ComputeStatistics(Statistic); + function ConvertHangulAndHanja(ConversionsMode, FastConversion, CheckHangulEnding, EnableRecentOrdering, CustomDictionary); + function ConvertToTable(Separator, NumRows, NumColumns, InitialColumnWidth, Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit, AutoFitBehavior, DefaultTableBehavior); + function Copy(); + function CopyAsPicture(); + function Cut(); + function Delete([Unit], [Count]); + function DetectLanguage(); + function EndOf(Unit, Extend); + function Expand(Unit); + function ExportAsFixedFormat(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, ExportCurrentPage, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO190051, FixedFormatExtClassPtr); + function ExportAsFixedFormat2(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, ExportCurrentPage, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO190051, OptimizeForImageQuality, FixedFormatExtClassPtr); + function ExportFragment(FileName, Format); + function GetSpellingSuggestions(CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10); + function GoTo(What, Which, Count, Name); + function GoToEditableRange(EditorID); + function GoToNext(What); + function GoToPrevious(What); + function ImportFragment(FileName, MatchDestination); + function InRange(Range); + function InsertAfter(Text); + function InsertAlignmentTab(Alignment, RelativeTo); + function InsertAutoText(); + function InsertBefore(Text); + function InsertBreak(Type); + function InsertCaption(Label, Title, TitleAutoText, Position, ExcludeLabel); + function InsertCrossReference(ReferenceType, ReferenceKind, ReferenceItem, InsertAsHyperlink, IncludePosition, SeparateNumbers, SeparatorString); + function InsertDatabase(Format, Style, LinkToSource, Connection, SQLStatement, SQLStatement1, PasswordDocument, PasswordTemplate, WritePasswordDocument, WritePasswordTemplate, DataSource, From, To, IncludeFields); + function InsertDateTime(DateTimeFormat, InsertAsField, InsertAsFullWidth, DateLanguage, CalendarType); + function InsertFile(FileName, Range, ConfirmConversions, Link, Attachment); + function InsertParagraph(); + function InsertParagraphAfter(); + function InsertParagraphBefore(); + function InsertSymbol(CharacterNumber, Font, Unicode, Bias); + function InsertXML(XML, Transform); + function InStory(Range); + function IsEqual(Range); + function LookupNameProperties(); + function ModifyEnclosure(Style, Symbol, EnclosedText); + function Move(Unit, Count); + function MoveEnd(Unit, Count); + function MoveEndUntil(Cset, Count); + function MoveEndWhile(Cset, Count); + function MoveStart(Unit, Count); + function MoveStartUntil(Cset, Count); + function MoveStartWhile(Cset, Count); + function MoveUntil(Cset, Count); + function MoveWhile(Cset, Count); + function Next(Unit, Count); + function NextSubdocument(); + function Paste(); + function PasteAndFormat(Type); + function PasteAppendTable(); + function PasteAsNestedTable(); + function PasteExcelTable(LinkedToExcel, WordFormatting, RTF); + function PasteSpecial(IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel); + function PhoneticGuide(Text, Alignment, Raise, FontSize, FontName); + function Previous(Unit, Count); + function PreviousSubdocument(); + function Relocate(Direction); + function Select(); + function SetListLevel(Level); + function SetRange(Start, End); + function Sort(ExcludeHeader, FieldNumber, SortFieldType, SortOrder, FieldNumber2, SortFieldType2, SortOrder2, FieldNumber3, SortFieldType3, SortOrder3, SortColumn, Separator, CaseSensitive, BidiSort, IgnoreThe, IgnoreKashida, IgnoreDiacritics, IgnoreHe, LanguageID); + function SortAscending(); + function SortByHeadings(SortFieldType, SortOrder, CaseSensitive, BidiSort, IgnoreThe, IgnoreKashida, IgnoreDiacritics, IgnoreHe, LanguageID); + function SortDescending(); + function StartOf(Unit, Extend); + function TCSCConverter(WdTCSCConverterDirection, CommonTerms, UseVariants); + function WholeStory(); + function Information(Type); + function XML(DataOnly); + + // properties + property Bold read ReadBold write WriteBold; + property BoldBi read ReadBoldBi write WriteBoldBi; + property BookmarkID read ReadBookmarkID; + property Bookmarks read ReadBookmarks; + property Borders read ReadBorders; + property Case read ReadCase write WriteCase; + property Cells read ReadCells; + property Characters read ReadCharacters; + property CharacterStyle read ReadCharacterStyle; + property CharacterWidth read ReadCharacterWidth write WriteCharacterWidth; + property Columns read ReadColumns; + property CombineCharacters read ReadCombineCharacters write WriteCombineCharacters; + property Comments read ReadComments; + property Conflicts read ReadConflicts; + property ContentControls read ReadContentControls; + property DisableCharacterSpaceGrid read ReadDisableCharacterSpaceGrid write WriteDisableCharacterSpaceGrid; + property Document read ReadDocument; + property Duplicate read ReadDuplicate; + property Editors read ReadEditors; + property EmphasisMark read ReadEmphasisMark write WriteEmphasisMark; + property End read ReadEnd write WriteEnd; + property EndnoteOptions read ReadEndnoteOptions; + property Endnotes read ReadEndnotes; + property EnhMetaFileBits read ReadEnhMetaFileBits; + property Fields read ReadFields; + property Find read ReadFind; + property FitTextWidth read ReadFitTextWidth write WriteFitTextWidth; + property Font read ReadFont write WriteFont; + property FootnoteOptions read ReadFootnoteOptions; + property Footnotes read ReadFootnotes; + property FormattedText read ReadFormattedText write WriteFormattedText; + property FormFields read ReadFormFields; + property Frames read ReadFrames; + property GrammarChecked read ReadGrammarChecked write WriteGrammarChecked; + property GrammaticalErrors read ReadGrammaticalErrors; + property HighlightColorIndex read ReadHighlightColorIndex write WriteHighlightColorIndex; + property HorizontalInVertical read ReadHorizontalInVertical write WriteHorizontalInVertical; + property HTMLDivisions read ReadHTMLDivisions; + property Hyperlinks read ReadHyperlinks; + property ID read ReadID write WriteID; + property InlineShapes read ReadInlineShapes; + property IsEndOfRowMark read ReadIsEndOfRowMark; + property Italic read ReadItalic write WriteItalic; + property ItalicBi read ReadItalicBi write WriteItalicBi; + property Kana read ReadKana write WriteKana; + property LanguageDetected read ReadLanguageDetected write WriteLanguageDetected; + property LanguageID read ReadLanguageID write WriteLanguageID; + property LanguageIDFarEast read ReadLanguageIDFarEast write WriteLanguageIDFarEast; + property LanguageIDOther read ReadLanguageIDOther write WriteLanguageIDOther; + property ListFormat read ReadListFormat; + property ListParagraphs read ReadListParagraphs; + property ListStyle read ReadListStyle; + property Locks read ReadLocks; + property NextStoryRange read ReadNextStoryRange; + property NoProofing read ReadNoProofing write WriteNoProofing; + property OMaths read ReadOMaths; + property Orientation read ReadOrientation write WriteOrientation; + property PageSetup read ReadPageSetup; + property ParagraphFormat read ReadParagraphFormat write WriteParagraphFormat; + property Paragraphs read ReadParagraphs; + property ParagraphStyle read ReadParagraphStyle; + property ParentContentControl read ReadParentContentControl; + property PreviousBookmarkID read ReadPreviousBookmarkID; + property ReadabilityStatistics read ReadReadabilityStatistics; + property Revisions read ReadRevisions; + property Rows read ReadRows; + property Scripts read ReadScripts; + property Sections read ReadSections; + property Sentences read ReadSentences; + property Shading read ReadShading; + property ShapeRange read ReadShapeRange; + property ShowAll read ReadShowAll write WriteShowAll; + property SpellingChecked read ReadSpellingChecked write WriteSpellingChecked; + property SpellingErrors read ReadSpellingErrors; + property Start read ReadStart write WriteStart; + property StoryLength read ReadStoryLength; + property StoryType read ReadStoryType; + property Style read ReadStyle write WriteStyle; + property Subdocuments read ReadSubdocuments; + property SynonymInfo read ReadSynonymInfo; + property Tables read ReadTables; + property TableStyle read ReadTableStyle; + property Text read ReadText write WriteText; + property TextRetrievalMode read ReadTextRetrievalMode write WriteTextRetrievalMode; + property TextVisibleOnScreen read ReadTextVisibleOnScreen; + property TopLevelTables read ReadTopLevelTables; + property TwoLinesInOne read ReadTwoLinesInOne write WriteTwoLinesInOne; + property Underline read ReadUnderline write WriteUnderline; + property Updates read ReadUpdates; + property WordOpenXML read ReadWordOpenXML; + property Words read ReadWords; + function ReadBold(); + function WriteBold(_value); + function ReadBoldBi(); + function WriteBoldBi(_value); + function ReadBookmarkID(); + function ReadBookmarks(); + function ReadBorders(); + function ReadCase(); + function WriteCase(_value); + function ReadCells(); + function ReadCharacters(); + function ReadCharacterStyle(); + function ReadCharacterWidth(); + function WriteCharacterWidth(_value); + function ReadColumns(); + function ReadCombineCharacters(); + function WriteCombineCharacters(_value); + function ReadComments(); + function ReadConflicts(); + function ReadContentControls(); + function ReadDisableCharacterSpaceGrid(); + function WriteDisableCharacterSpaceGrid(_value); + function ReadDocument(); + function ReadDuplicate(); + function ReadEditors(); + function ReadEmphasisMark(); + function WriteEmphasisMark(_value); + function ReadEnd(); + function WriteEnd(_value); + function ReadEndnoteOptions(); + function ReadEndnotes(); + function ReadEnhMetaFileBits(); + function ReadFields(); + function ReadFind(); + function ReadFitTextWidth(); + function WriteFitTextWidth(_value); + function ReadFont(); + function WriteFont(_value); + function ReadFootnoteOptions(); + function ReadFootnotes(); + function ReadFormattedText(); + function WriteFormattedText(_value); + function ReadFormFields(); + function ReadFrames(); + function ReadGrammarChecked(); + function WriteGrammarChecked(_value); + function ReadGrammaticalErrors(); + function ReadHighlightColorIndex(); + function WriteHighlightColorIndex(_value); + function ReadHorizontalInVertical(); + function WriteHorizontalInVertical(_value); + function ReadHTMLDivisions(); + function ReadHyperlinks(); + function ReadID(); + function WriteID(_value); + function ReadInlineShapes(); + function ReadIsEndOfRowMark(); + function ReadItalic(); + function WriteItalic(_value); + function ReadItalicBi(); + function WriteItalicBi(_value); + function ReadKana(); + function WriteKana(_value); + function ReadLanguageDetected(); + function WriteLanguageDetected(_value); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLanguageIDFarEast(); + function WriteLanguageIDFarEast(_value); + function ReadLanguageIDOther(); + function WriteLanguageIDOther(_value); + function ReadListFormat(); + function ReadListParagraphs(); + function ReadListStyle(); + function ReadLocks(); + function ReadNextStoryRange(); + function ReadNoProofing(); + function WriteNoProofing(_value); + function ReadOMaths(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPageSetup(); + function ReadParagraphFormat(); + function WriteParagraphFormat(_value); + function ReadParagraphs(); + function ReadParagraphStyle(); + function ReadParentContentControl(); + function ReadPreviousBookmarkID(); + function ReadReadabilityStatistics(); + function ReadRevisions(); + function ReadRows(); + function ReadScripts(); + function ReadSections(); + function ReadSentences(); + function ReadShading(); + function ReadShapeRange(); + function ReadShowAll(); + function WriteShowAll(_value); + function ReadSpellingChecked(); + function WriteSpellingChecked(_value); + function ReadSpellingErrors(); + function ReadStart(); + function WriteStart(_value); + function ReadStoryLength(); + function ReadStoryType(); + function ReadStyle(); + function WriteStyle(_value); + function ReadSubdocuments(); + function ReadSynonymInfo(); + function ReadTables(); + function ReadTableStyle(); + function ReadText(); + function WriteText(_value); + function ReadTextRetrievalMode(); + function WriteTextRetrievalMode(_value); + function ReadTextVisibleOnScreen(); + function ReadTopLevelTables(); + function ReadTwoLinesInOne(); + function WriteTwoLinesInOne(_value); + function ReadUnderline(); + function WriteUnderline(_value); + function ReadUpdates(); + function ReadWordOpenXML(); + function ReadWords(); +end; + +type ReadabilityStatistic = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Name read ReadName; + property Value read ReadValue; + function ReadName(); + function ReadValue(); +end; + +type ReadabilityStatistics = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type RecentFile = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Open(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + property Path read ReadPath; + property ReadOnly read ReadReadOnly write WriteReadOnly; + function ReadIndex(); + function ReadName(); + function ReadPath(); + function ReadReadOnly(); + function WriteReadOnly(_value); +end; + +type RecentFiles = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Document, ReadOnly); + function Item(Index); + + // properties + property Count read ReadCount; + property Maximum read ReadMaximum write WriteMaximum; + function ReadCount(); + function ReadMaximum(); + function WriteMaximum(_value); +end; + +type Rectangle = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Height read ReadHeight; + property Left read ReadLeft; + property Lines read ReadLines; + property Range read ReadRange; + property RectangleType read ReadRectangleType; + property Top read ReadTop; + property Width read ReadWidth write WriteWidth; + function ReadHeight(); + function ReadLeft(); + function ReadLines(); + function ReadRange(); + function ReadRectangleType(); + function ReadTop(); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Rectangles = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ReflectionFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Blur read ReadBlur write WriteBlur; + property Offset read ReadOffset write WriteOffset; + property Size read ReadSize write WriteSize; + property Transparency read ReadTransparency write WriteTransparency; + property Type read ReadType write WriteType; + function ReadBlur(); + function WriteBlur(_value); + function ReadOffset(); + function WriteOffset(_value); + function ReadSize(); + function WriteSize(_value); + function ReadTransparency(); + function WriteTransparency(_value); + function ReadType(); + function WriteType(_value); +end; + +type RepeatingSectionItem = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function InsertItemAfter(); + function InsertItemBefore(); + + // properties + property Range read ReadRange; + function ReadRange(); +end; + +type RepeatingSectionItemColl = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Replacement = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormatting(); + + // properties + property Font read ReadFont write WriteFont; + property Frame read ReadFrame; + property Highlight read ReadHighlight write WriteHighlight; + property LanguageID read ReadLanguageID write WriteLanguageID; + property LanguageIDFarEast read ReadLanguageIDFarEast write WriteLanguageIDFarEast; + property NoProofing read ReadNoProofing write WriteNoProofing; + property ParagraphFormat read ReadParagraphFormat write WriteParagraphFormat; + property Style read ReadStyle write WriteStyle; + property Text read ReadText write WriteText; + function ReadFont(); + function WriteFont(_value); + function ReadFrame(); + function ReadHighlight(); + function WriteHighlight(_value); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLanguageIDFarEast(); + function WriteLanguageIDFarEast(_value); + function ReadNoProofing(); + function WriteNoProofing(_value); + function ReadParagraphFormat(); + function WriteParagraphFormat(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadText(); + function WriteText(_value); +end; + +type Research = class(VbaBase) +public + function Init(); + +public + // methods + function IsResearchService(ServiceID); + function Query(ServiceID, QueryString, QueryLanguage, UseSelection, RequeryContextXML, NewQueryContextXML, LaunchQuery); + function SetLanguagePair(LanguageFrom, LanguageTo); + + // properties + property FavoriteService read ReadFavoriteService write WriteFavoriteService; + function ReadFavoriteService(); + function WriteFavoriteService(_value); +end; + +type Reviewer = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Visible read ReadVisible write WriteVisible; + function ReadVisible(); + function WriteVisible(_value); +end; + +type Reviewers = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Revision = class(VbaBase) +public + function Init(); + +public + // methods + function Accept(); + function Reject(); + + // properties + property Author read ReadAuthor; + property Cells read ReadCells; + property Date read ReadDate; + property FormatDescription read ReadFormatDescription; + property Index read ReadIndex; + property MovedRange read ReadMovedRange; + property Range read ReadRange; + property Style read ReadStyle; + property Type read ReadType; + function ReadAuthor(); + function ReadCells(); + function ReadDate(); + function ReadFormatDescription(); + function ReadIndex(); + function ReadMovedRange(); + function ReadRange(); + function ReadStyle(); + function ReadType(); +end; + +type Revisions = class(VbaBase) +public + function Init(); + +public + // methods + function AcceptAll(); + function Item(Index); + function RejectAll(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type RevisionsFilter = class(VbaBase) +public + function Init(); + +public + // methods + function ToggleShowAllReviewers(); + + // properties + property Markup read ReadMarkup write WriteMarkup; + property Reviewers read ReadReviewers; + property View read ReadView write WriteView; + function ReadMarkup(); + function WriteMarkup(_value); + function ReadReviewers(); + function ReadView(); + function WriteView(_value); +end; + +type Row = class(VbaBase) +public + function Init(); + +public + // methods + function ConvertToText(Separator, NestedTables); + function Delete(); + function Select(); + function SetHeight(RowHeight, HeightRule); + function SetLeftIndent(LeftIndent, RulerStyle); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property AllowBreakAcrossPages read ReadAllowBreakAcrossPages write WriteAllowBreakAcrossPages; + property Borders read ReadBorders; + property Cells read ReadCells; + property HeadingFormat read ReadHeadingFormat write WriteHeadingFormat; + property Height read ReadHeight write WriteHeight; + property HeightRule read ReadHeightRule write WriteHeightRule; + property ID read ReadID write WriteID; + property Index read ReadIndex; + property IsFirst read ReadIsFirst; + property IsLast read ReadIsLast; + property LeftIndent read ReadLeftIndent write WriteLeftIndent; + property NestingLevel read ReadNestingLevel; + property Next read ReadNext; + property Previous read ReadPrevious; + property Range read ReadRange; + property Shading read ReadShading; + property SpaceBetweenColumns read ReadSpaceBetweenColumns write WriteSpaceBetweenColumns; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadAllowBreakAcrossPages(); + function WriteAllowBreakAcrossPages(_value); + function ReadBorders(); + function ReadCells(); + function ReadHeadingFormat(); + function WriteHeadingFormat(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightRule(); + function WriteHeightRule(_value); + function ReadID(); + function WriteID(_value); + function ReadIndex(); + function ReadIsFirst(); + function ReadIsLast(); + function ReadLeftIndent(); + function WriteLeftIndent(_value); + function ReadNestingLevel(); + function ReadNext(); + function ReadPrevious(); + function ReadRange(); + function ReadShading(); + function ReadSpaceBetweenColumns(); + function WriteSpaceBetweenColumns(_value); +end; + +type Rows = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeRow); + function ConvertToText(Separator, NestedTables); + function Delete(); + function DistributeHeight(); + function Item(Index); + function Select(); + function SetHeight(RowHeight, HeightRule); + function SetLeftIndent(LeftIndent, RulerStyle); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property AllowBreakAcrossPages read ReadAllowBreakAcrossPages write WriteAllowBreakAcrossPages; + property AllowOverlap read ReadAllowOverlap write WriteAllowOverlap; + property Borders read ReadBorders; + property Count read ReadCount; + property DistanceBottom read ReadDistanceBottom write WriteDistanceBottom; + property DistanceLeft read ReadDistanceLeft write WriteDistanceLeft; + property DistanceRight read ReadDistanceRight write WriteDistanceRight; + property DistanceTop read ReadDistanceTop write WriteDistanceTop; + property First read ReadFirst; + property HeadingFormat read ReadHeadingFormat write WriteHeadingFormat; + property Height read ReadHeight write WriteHeight; + property HeightRule read ReadHeightRule write WriteHeightRule; + property HorizontalPosition read ReadHorizontalPosition write WriteHorizontalPosition; + property Last read ReadLast; + property LeftIndent read ReadLeftIndent write WriteLeftIndent; + property NestingLevel read ReadNestingLevel; + property RelativeHorizontalPosition read ReadRelativeHorizontalPosition write WriteRelativeHorizontalPosition; + property RelativeVerticalPosition read ReadRelativeVerticalPosition write WriteRelativeVerticalPosition; + property Shading read ReadShading; + property SpaceBetweenColumns read ReadSpaceBetweenColumns write WriteSpaceBetweenColumns; + property TableDirection read ReadTableDirection write WriteTableDirection; + property VerticalPosition read ReadVerticalPosition write WriteVerticalPosition; + property WrapAroundText read ReadWrapAroundText write WriteWrapAroundText; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadAllowBreakAcrossPages(); + function WriteAllowBreakAcrossPages(_value); + function ReadAllowOverlap(); + function WriteAllowOverlap(_value); + function ReadBorders(); + function ReadCount(); + function ReadDistanceBottom(); + function WriteDistanceBottom(_value); + function ReadDistanceLeft(); + function WriteDistanceLeft(_value); + function ReadDistanceRight(); + function WriteDistanceRight(_value); + function ReadDistanceTop(); + function WriteDistanceTop(_value); + function ReadFirst(); + function ReadHeadingFormat(); + function WriteHeadingFormat(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightRule(); + function WriteHeightRule(_value); + function ReadHorizontalPosition(); + function WriteHorizontalPosition(_value); + function ReadLast(); + function ReadLeftIndent(); + function WriteLeftIndent(_value); + function ReadNestingLevel(); + function ReadRelativeHorizontalPosition(); + function WriteRelativeHorizontalPosition(_value); + function ReadRelativeVerticalPosition(); + function WriteRelativeVerticalPosition(_value); + function ReadShading(); + function ReadSpaceBetweenColumns(); + function WriteSpaceBetweenColumns(_value); + function ReadTableDirection(); + function WriteTableDirection(_value); + function ReadVerticalPosition(); + function WriteVerticalPosition(_value); + function ReadWrapAroundText(); + function WriteWrapAroundText(_value); +end; + +type Section = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Borders read ReadBorders; + property Footers read ReadFooters; + property Headers read ReadHeaders; + property Index read ReadIndex; + property PageSetup read ReadPageSetup; + property ProtectedForForms read ReadProtectedForForms write WriteProtectedForForms; + property Range read ReadRange; + function ReadBorders(); + function ReadFooters(); + function ReadHeaders(); + function ReadIndex(); + function ReadPageSetup(); + function ReadProtectedForForms(); + function WriteProtectedForForms(_value); + function ReadRange(); +end; + +type Sections = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Start); + function Item(Index); + + // properties + property Count read ReadCount; + property First read ReadFirst; + property Last read ReadLast; + property PageSetup read ReadPageSetup; + function ReadCount(); + function ReadFirst(); + function ReadLast(); + function ReadPageSetup(); +end; + +type Selection = class(VbaBase) +public + function Init(); + +public + // methods + function BoldRun(); + function Calculate(); + function ClearCharacterAllFormatting(); + function ClearCharacterDirectFormatting(); + function ClearCharacterStyle(); + function ClearFormatting(); + function ClearParagraphAllFormatting(); + function ClearParagraphDirectFormatting(); + function ClearParagraphStyle(); + function Collapse(Direction); + function ConvertToTable(Separator, NumRows, NumColumns, InitialColumnWidth, Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit, AutoFitBehavior, DefaultTableBehavior); + function Copy(); + function CopyAsPicture(); + function CopyFormat(); + function CreateAutoTextEntry(Name, StyleName); + function CreateTextbox(); + function Cut(); + function Delete(Unit, Count); + function DetectLanguage(); + function EndKey(Unit, Extend); + function EndOf(Unit, Extend); + function EscapeKey(); + function Expand(Unit); + function ExportAsFixedFormat(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, ExportCurrentPage, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO190051, FixedFormatExtClassPtr); + function ExportAsFixedFormat2(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, ExportCurrentPage, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO190051, OptimizeForImageQuality, FixedFormatExtClassPtr); + function Extend(Character); + function GoTo(What, Which, Count, Name); + function GoToEditableRange(EditorID); + function GoToNext(What); + function GoToPrevious(What); + function HomeKey(Unit, Extend); + function InRange(Range); + function InsertAfter(Text); + function InsertBefore(Text); + function InsertBreak(Type); + function InsertCaption(Label, Title, TitleAutoText, Position, ExcludeLabel); + function InsertCells(ShiftCells); + function InsertColumns(); + function InsertColumnsRight(); + function InsertCrossReference(ReferenceType, ReferenceKind, ReferenceItem, InsertAsHyperlink, IncludePosition, SeparateNumbers, SeparatorString); + function InsertDateTime(DateTimeFormat, InsertAsField, InsertAsFullWidth, DateLanguage, CalendarType); + function InsertFile(FileName, Range, ConfirmConversions, Link, Attachment); + function Formula(Formula, NumberFormat); + function InsertNewPage(); + function InsertParagraph(); + function InsertParagraphAfter(); + function InsertParagraphBefore(); + function InsertRows(NumRows); + function InsertRowsAbove(); + function InsertRowsBelow(); + function InsertStyleSeparator(); + function InsertSymbol(CharacterNumber, Font, Unicode, Bias); + function InsertXML(XML, Transform); + function InStory(Range); + function IsEqual(Range); + function ItalicRun(); + function LtrPara(); + function LtrRun(); + function Move(Unit, Count); + function MoveDown(Unit, Count, Extend); + function MoveEnd(Unit, Count); + function MoveEndUntil(Cset, Count); + function MoveEndWhile(Cset, Count); + function MoveLeft(Unit, Count, Extend); + function MoveRight(Unit, Count, Extend); + function MoveStart(Unit, Count); + function MoveStartUntil(Cset, Count); + function MoveStartWhile(Cset, Count); + function MoveUntil(Cset, Count); + function MoveUp(Unit, Count, Extend); + function MoveWhile(Cset, Count); + function Next(Unit, Count); + function NextField(); + function NextRevision(Wrap); + function NextSubdocument(); + function Paste(); + function PasteAndFormat(Type); + function PasteAppendTable(); + function PasteAsNestedTable(); + function PasteExcelTable(LinkedToExcel, WordFormatting, RTF); + function PasteFormat(); + function PasteSpecial(IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel); + function Previous(Unit, Count); + function PreviousField(); + function PreviousRevision(Wrap); + function PreviousSubdocument(); + function ReadingModeGrowFont(); + function ReadingModeShrinkFont(); + function RtlPara(); + function RtlRun(); + function Select(); + function SelectCell(); + function SelectColumn(); + function SelectCurrentAlignment(); + function SelectCurrentColor(); + function SelectCurrentFont(); + function SelectCurrentIndent(); + function SelectCurrentSpacing(); + function SelectCurrentTabs(); + function SelectRow(); + function SetRange(Start, End); + function Shrink(); + function ShrinkDiscontiguousSelection(); + function Sort(ExcludeHeader, FieldNumber, SortFieldType, SortOrder, FieldNumber2, SortFieldType2, SortOrder2, FieldNumber3, SortFieldType3, SortOrder3, SortColumn, Separator, CaseSensitive, BidiSort, IgnoreThe, IgnoreKashida, IgnoreDiacritics, IgnoreHe, LanguageID, SubFieldNumber, SubFieldNumber2, SubFieldNumber3); + function SortAscending(); + function SortByHeadings(SortFieldType, SortOrder, CaseSensitive, BidiSort, IgnoreThe, IgnoreKashida, IgnoreDiacritics, IgnoreHe, LanguageID); + function SortDescending(); + function SplitTable(); + function StartOf(Unit, Extend); + function ToggleCharacterCode(); + function TypeBackspace(); + function TypeParagraph(); + function TypeText(Text); + function WholeStory(); + function Information(Type); + function XML(DataOnly); + + // properties + property Active read ReadActive; + property BookmarkID read ReadBookmarkID; + property Bookmarks read ReadBookmarks; + property Borders read ReadBorders; + property Cells read ReadCells; + property Characters read ReadCharacters; + property ChildShapeRange read ReadChildShapeRange; + property Columns read ReadColumns; + property ColumnSelectMode read ReadColumnSelectMode write WriteColumnSelectMode; + property Comments read ReadComments; + property Document read ReadDocument; + property Editors read ReadEditors; + property End read ReadEnd write WriteEnd; + property EndnoteOptions read ReadEndnoteOptions; + property Endnotes read ReadEndnotes; + property EnhMetaFileBits read ReadEnhMetaFileBits; + property ExtendMode read ReadExtendMode write WriteExtendMode; + property Fields read ReadFields; + property Find read ReadFind; + property FitTextWidth read ReadFitTextWidth write WriteFitTextWidth; + property Flags read ReadFlags write WriteFlags; + property Font read ReadFont write WriteFont; + property FootnoteOptions read ReadFootnoteOptions; + property Footnotes read ReadFootnotes; + property FormattedText read ReadFormattedText write WriteFormattedText; + property FormFields read ReadFormFields; + property Frames read ReadFrames; + property HasChildShapeRange read ReadHasChildShapeRange; + property HeaderFooter read ReadHeaderFooter; + property HTMLDivisions read ReadHTMLDivisions; + property Hyperlinks read ReadHyperlinks; + property InlineShapes read ReadInlineShapes; + property IPAtEndOfLine read ReadIPAtEndOfLine; + property IsEndOfRowMark read ReadIsEndOfRowMark; + property LanguageDetected read ReadLanguageDetected write WriteLanguageDetected; + property LanguageID read ReadLanguageID write WriteLanguageID; + property LanguageIDFarEast read ReadLanguageIDFarEast write WriteLanguageIDFarEast; + property LanguageIDOther read ReadLanguageIDOther write WriteLanguageIDOther; + property NoProofing read ReadNoProofing write WriteNoProofing; + property OMaths read ReadOMaths; + property Orientation read ReadOrientation write WriteOrientation; + property PageSetup read ReadPageSetup; + property ParagraphFormat read ReadParagraphFormat write WriteParagraphFormat; + property Paragraphs read ReadParagraphs; + property PreviousBookmarkID read ReadPreviousBookmarkID; + property Range read ReadRange; + property Rows read ReadRows; + property Sections read ReadSections; + property Sentences read ReadSentences; + property Shading read ReadShading; + property ShapeRange read ReadShapeRange; + property Start read ReadStart write WriteStart; + property StartIsActive read ReadStartIsActive write WriteStartIsActive; + property StoryLength read ReadStoryLength; + property StoryType read ReadStoryType; + property Style read ReadStyle write WriteStyle; + property Tables read ReadTables; + property Text read ReadText write WriteText; + property TopLevelTables read ReadTopLevelTables; + property Type read ReadType; + property WordOpenXML read ReadWordOpenXML; + property Words read ReadWords; + function ReadActive(); + function ReadBookmarkID(); + function ReadBookmarks(); + function ReadBorders(); + function ReadCells(); + function ReadCharacters(); + function ReadChildShapeRange(); + function ReadColumns(); + function ReadColumnSelectMode(); + function WriteColumnSelectMode(_value); + function ReadComments(); + function ReadDocument(); + function ReadEditors(); + function ReadEnd(); + function WriteEnd(_value); + function ReadEndnoteOptions(); + function ReadEndnotes(); + function ReadEnhMetaFileBits(); + function ReadExtendMode(); + function WriteExtendMode(_value); + function ReadFields(); + function ReadFind(); + function ReadFitTextWidth(); + function WriteFitTextWidth(_value); + function ReadFlags(); + function WriteFlags(_value); + function ReadFont(); + function WriteFont(_value); + function ReadFootnoteOptions(); + function ReadFootnotes(); + function ReadFormattedText(); + function WriteFormattedText(_value); + function ReadFormFields(); + function ReadFrames(); + function ReadHasChildShapeRange(); + function ReadHeaderFooter(); + function ReadHTMLDivisions(); + function ReadHyperlinks(); + function ReadInlineShapes(); + function ReadIPAtEndOfLine(); + function ReadIsEndOfRowMark(); + function ReadLanguageDetected(); + function WriteLanguageDetected(_value); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLanguageIDFarEast(); + function WriteLanguageIDFarEast(_value); + function ReadLanguageIDOther(); + function WriteLanguageIDOther(_value); + function ReadNoProofing(); + function WriteNoProofing(_value); + function ReadOMaths(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPageSetup(); + function ReadParagraphFormat(); + function WriteParagraphFormat(_value); + function ReadParagraphs(); + function ReadPreviousBookmarkID(); + function ReadRange(); + function ReadRows(); + function ReadSections(); + function ReadSentences(); + function ReadShading(); + function ReadShapeRange(); + function ReadStart(); + function WriteStart(_value); + function ReadStartIsActive(); + function WriteStartIsActive(_value); + function ReadStoryLength(); + function ReadStoryType(); + function ReadStyle(); + function WriteStyle(_value); + function ReadTables(); + function ReadText(); + function WriteText(_value); + function ReadTopLevelTables(); + function ReadType(); + function ReadWordOpenXML(); + function ReadWords(); +end; + +type Sentences = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + property First read ReadFirst; + property Last read ReadLast; + function ReadCount(); + function ReadFirst(); + function ReadLast(); +end; + +type Series = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator); + function ClearFormats(); + function Copy(); + function DataLabels(Index); + function Delete(); + function ErrorBar(Direction, Include, Type, Amount, MinusValues); + function Paste(); + function Points(Index); + function Select(); + function Trendlines(Index); + + // properties + property ApplyPictToEnd read ReadApplyPictToEnd write WriteApplyPictToEnd; + property ApplyPictToFront read ReadApplyPictToFront write WriteApplyPictToFront; + property ApplyPictToSides read ReadApplyPictToSides write WriteApplyPictToSides; + property AxisGroup read ReadAxisGroup write WriteAxisGroup; + property BarShape read ReadBarShape write WriteBarShape; + property Border read ReadBorder; + property BubbleSizes read ReadBubbleSizes write WriteBubbleSizes; + property ChartType read ReadChartType write WriteChartType; + property ErrorBars read ReadErrorBars; + property Explosion read ReadExplosion write WriteExplosion; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Has3DEffect read ReadHas3DEffect write WriteHas3DEffect; + property HasDataLabels read ReadHasDataLabels write WriteHasDataLabels; + property HasErrorBars read ReadHasErrorBars write WriteHasErrorBars; + property HasLeaderLines read ReadHasLeaderLines write WriteHasLeaderLines; + property InvertColor read ReadInvertColor write WriteInvertColor; + property InvertColorIndex read ReadInvertColorIndex write WriteInvertColorIndex; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property IsFiltered read ReadIsFiltered write WriteIsFiltered; + property LeaderLines read ReadLeaderLines; + property MarkerBackgroundColor read ReadMarkerBackgroundColor write WriteMarkerBackgroundColor; + property MarkerBackgroundColorIndex read ReadMarkerBackgroundColorIndex write WriteMarkerBackgroundColorIndex; + property MarkerForegroundColor read ReadMarkerForegroundColor write WriteMarkerForegroundColor; + property MarkerForegroundColorIndex read ReadMarkerForegroundColorIndex write WriteMarkerForegroundColorIndex; + property MarkerSize read ReadMarkerSize write WriteMarkerSize; + property MarkerStyle read ReadMarkerStyle write WriteMarkerStyle; + property Name read ReadName write WriteName; + property ParentDataLabelOption read ReadParentDataLabelOption write WriteParentDataLabelOption; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit2 read ReadPictureUnit2 write WritePictureUnit2; + property PlotColorIndex read ReadPlotColorIndex; + property PlotOrder read ReadPlotOrder write WritePlotOrder; + property QuartileCalculationInclusiveMedian read ReadQuartileCalculationInclusiveMedian write WriteQuartileCalculationInclusiveMedian; + property Shadow read ReadShadow write WriteShadow; + property Smooth read ReadSmooth write WriteSmooth; + property Type read ReadType write WriteType; + property Values read ReadValues write WriteValues; + property XValues read ReadXValues write WriteXValues; + function ReadApplyPictToEnd(); + function WriteApplyPictToEnd(_value); + function ReadApplyPictToFront(); + function WriteApplyPictToFront(_value); + function ReadApplyPictToSides(); + function WriteApplyPictToSides(_value); + function ReadAxisGroup(); + function WriteAxisGroup(_value); + function ReadBarShape(); + function WriteBarShape(_value); + function ReadBorder(); + function ReadBubbleSizes(); + function WriteBubbleSizes(_value); + function ReadChartType(); + function WriteChartType(_value); + function ReadErrorBars(); + function ReadExplosion(); + function WriteExplosion(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHas3DEffect(); + function WriteHas3DEffect(_value); + function ReadHasDataLabels(); + function WriteHasDataLabels(_value); + function ReadHasErrorBars(); + function WriteHasErrorBars(_value); + function ReadHasLeaderLines(); + function WriteHasLeaderLines(_value); + function ReadInvertColor(); + function WriteInvertColor(_value); + function ReadInvertColorIndex(); + function WriteInvertColorIndex(_value); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadIsFiltered(); + function WriteIsFiltered(_value); + function ReadLeaderLines(); + function ReadMarkerBackgroundColor(); + function WriteMarkerBackgroundColor(_value); + function ReadMarkerBackgroundColorIndex(); + function WriteMarkerBackgroundColorIndex(_value); + function ReadMarkerForegroundColor(); + function WriteMarkerForegroundColor(_value); + function ReadMarkerForegroundColorIndex(); + function WriteMarkerForegroundColorIndex(_value); + function ReadMarkerSize(); + function WriteMarkerSize(_value); + function ReadMarkerStyle(); + function WriteMarkerStyle(_value); + function ReadName(); + function WriteName(_value); + function ReadParentDataLabelOption(); + function WriteParentDataLabelOption(_value); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit2(); + function WritePictureUnit2(_value); + function ReadPlotColorIndex(); + function ReadPlotOrder(); + function WritePlotOrder(_value); + function ReadQuartileCalculationInclusiveMedian(); + function WriteQuartileCalculationInclusiveMedian(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadSmooth(); + function WriteSmooth(_value); + function ReadType(); + function WriteType(_value); + function ReadValues(); + function WriteValues(_value); + function ReadXValues(); + function WriteXValues(_value); +end; + +type SeriesCollection = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Source, Rowcol, SeriesLabels, CategoryLabels, Replace); + function Extend(Source, Rowcol, CategoryLabels); + function Item(Index); + function NewSeries(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type SeriesLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type Shading = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property BackgroundPatternColor read ReadBackgroundPatternColor write WriteBackgroundPatternColor; + property BackgroundPatternColorIndex read ReadBackgroundPatternColorIndex write WriteBackgroundPatternColorIndex; + property ForegroundPatternColor read ReadForegroundPatternColor write WriteForegroundPatternColor; + property ForegroundPatternColorIndex read ReadForegroundPatternColorIndex write WriteForegroundPatternColorIndex; + property Texture read ReadTexture write WriteTexture; + function ReadBackgroundPatternColor(); + function WriteBackgroundPatternColor(_value); + function ReadBackgroundPatternColorIndex(); + function WriteBackgroundPatternColorIndex(_value); + function ReadForegroundPatternColor(); + function WriteForegroundPatternColor(_value); + function ReadForegroundPatternColorIndex(); + function WriteForegroundPatternColorIndex(_value); + function ReadTexture(); + function WriteTexture(_value); +end; + +type ShadowFormat = class(VbaBase) +public + function Init(); + +public + // methods + function IncrementOffsetX(Increment); + function IncrementOffsetY(Increment); + + // properties + property Blur read ReadBlur write WriteBlur; + property ForeColor read ReadForeColor write WriteForeColor; + property Obscured read ReadObscured write WriteObscured; + property OffsetX read ReadOffsetX write WriteOffsetX; + property OffsetY read ReadOffsetY write WriteOffsetY; + property RotateWithShape read ReadRotateWithShape write WriteRotateWithShape; + property Size read ReadSize write WriteSize; + property Style read ReadStyle write WriteStyle; + property Transparency read ReadTransparency write WriteTransparency; + property Type read ReadType write WriteType; + property Visible read ReadVisible write WriteVisible; + function ReadBlur(); + function WriteBlur(_value); + function ReadForeColor(); + function WriteForeColor(_value); + function ReadObscured(); + function WriteObscured(_value); + function ReadOffsetX(); + function WriteOffsetX(_value); + function ReadOffsetY(); + function WriteOffsetY(_value); + function ReadRotateWithShape(); + function WriteRotateWithShape(_value); + function ReadSize(); + function WriteSize(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTransparency(); + function WriteTransparency(_value); + function ReadType(); + function WriteType(_value); + function ReadVisible(); + function WriteVisible(_value); +end; + +type Shape = class(VbaBase) +public + function Init(); + +public + // methods + function Apply(); + function CanvasCropBottom(Increment); + function CanvasCropBottom(Increment); + function CanvasCropBottom(Increment); + function CanvasCropBottom(Increment); + function ConvertToInlineShape(); + function Delete(Index); + function Duplicate(); + function Flip(FlipCmd); + function IncrementLeft(Increment); + function IncrementRotation(Increment); + function IncrementTop(Increment); + function PickUp(); + function ScaleHeight(Factor, RelativeToOriginalSize, Scale); + function ScaleWidth(Factor, RelativeToOriginalSize, Scale); + function Select(Replace); + function SetShapesDefaultProperties(); + function Ungroup(); + function ZOrder(ZOrderCmd); + + // properties + property Adjustments read ReadAdjustments; + property AlternativeText read ReadAlternativeText write WriteAlternativeText; + property Anchor read ReadAnchor; + property AutoShapeType read ReadAutoShapeType write WriteAutoShapeType; + property BackgroundStyle read ReadBackgroundStyle write WriteBackgroundStyle; + property Callout read ReadCallout; + property CanvasItems read ReadCanvasItems; + property Chart read ReadChart; + property Child read ReadChild; + property Decorative read ReadDecorative write WriteDecorative; + property Fill read ReadFill; + property Glow read ReadGlow; + property GraphicStyle read ReadGraphicStyle write WriteGraphicStyle; + property GroupItems read ReadGroupItems; + property HasChart read ReadHasChart; + property HasSmartArt read ReadHasSmartArt; + property Height read ReadHeight write WriteHeight; + property HeightRelative read ReadHeightRelative write WriteHeightRelative; + property HorizontalFlip read ReadHorizontalFlip; + property Hyperlink read ReadHyperlink; + property ID read ReadID; + property LayoutInCell read ReadLayoutInCell; + property Left read ReadLeft write WriteLeft; + property LeftRelative read ReadLeftRelative write WriteLeftRelative; + property Line read ReadLine; + property LinkFormat read ReadLinkFormat; + property LockAnchor read ReadLockAnchor write WriteLockAnchor; + property LockAspectRatio read ReadLockAspectRatio write WriteLockAspectRatio; + property Model3D read ReadModel3D; + property Name read ReadName write WriteName; + property Nodes read ReadNodes; + property OLEFormat read ReadOLEFormat; + property ParentGroup read ReadParentGroup; + property PictureFormat read ReadPictureFormat; + property Reflection read ReadReflection; + property RelativeHorizontalPosition read ReadRelativeHorizontalPosition write WriteRelativeHorizontalPosition; + property RelativeHorizontalSize read ReadRelativeHorizontalSize write WriteRelativeHorizontalSize; + property RelativeVerticalPosition read ReadRelativeVerticalPosition write WriteRelativeVerticalPosition; + property RelativeVerticalSize read ReadRelativeVerticalSize write WriteRelativeVerticalSize; + property Rotation read ReadRotation write WriteRotation; + property Script read ReadScript; + property Shadow read ReadShadow; + property ShapeStyle read ReadShapeStyle write WriteShapeStyle; + property SmartArt read ReadSmartArt; + property SoftEdge read ReadSoftEdge; + property TextEffect read ReadTextEffect; + property TextFrame read ReadTextFrame; + property TextFrame2 read ReadTextFrame2; + property ThreeD read ReadThreeD; + property Title read ReadTitle write WriteTitle; + property Top read ReadTop write WriteTop; + property TopRelative read ReadTopRelative write WriteTopRelative; + property Type read ReadType; + property VerticalFlip read ReadVerticalFlip; + property Vertices read ReadVertices; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property WidthRelative read ReadWidthRelative write WriteWidthRelative; + property WrapFormat read ReadWrapFormat; + property ZOrderPosition read ReadZOrderPosition; + function ReadAdjustments(); + function ReadAlternativeText(); + function WriteAlternativeText(_value); + function ReadAnchor(); + function ReadAutoShapeType(); + function WriteAutoShapeType(_value); + function ReadBackgroundStyle(); + function WriteBackgroundStyle(_value); + function ReadCallout(); + function ReadCanvasItems(); + function ReadChart(); + function ReadChild(); + function ReadDecorative(); + function WriteDecorative(_value); + function ReadFill(); + function ReadGlow(); + function ReadGraphicStyle(); + function WriteGraphicStyle(_value); + function ReadGroupItems(); + function ReadHasChart(); + function ReadHasSmartArt(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightRelative(); + function WriteHeightRelative(_value); + function ReadHorizontalFlip(); + function ReadHyperlink(); + function ReadID(); + function ReadLayoutInCell(); + function ReadLeft(); + function WriteLeft(_value); + function ReadLeftRelative(); + function WriteLeftRelative(_value); + function ReadLine(); + function ReadLinkFormat(); + function ReadLockAnchor(); + function WriteLockAnchor(_value); + function ReadLockAspectRatio(); + function WriteLockAspectRatio(_value); + function ReadModel3D(); + function ReadName(); + function WriteName(_value); + function ReadNodes(); + function ReadOLEFormat(); + function ReadParentGroup(); + function ReadPictureFormat(); + function ReadReflection(); + function ReadRelativeHorizontalPosition(); + function WriteRelativeHorizontalPosition(_value); + function ReadRelativeHorizontalSize(); + function WriteRelativeHorizontalSize(_value); + function ReadRelativeVerticalPosition(); + function WriteRelativeVerticalPosition(_value); + function ReadRelativeVerticalSize(); + function WriteRelativeVerticalSize(_value); + function ReadRotation(); + function WriteRotation(_value); + function ReadScript(); + function ReadShadow(); + function ReadShapeStyle(); + function WriteShapeStyle(_value); + function ReadSmartArt(); + function ReadSoftEdge(); + function ReadTextEffect(); + function ReadTextFrame(); + function ReadTextFrame2(); + function ReadThreeD(); + function ReadTitle(); + function WriteTitle(_value); + function ReadTop(); + function WriteTop(_value); + function ReadTopRelative(); + function WriteTopRelative(_value); + function ReadType(); + function ReadVerticalFlip(); + function ReadVertices(); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWidthRelative(); + function WriteWidthRelative(_value); + function ReadWrapFormat(); + function ReadZOrderPosition(); +end; + +type ShapeNode = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property EditingType read ReadEditingType; + property Points read ReadPoints; + property SegmentType read ReadSegmentType; + function ReadEditingType(); + function ReadPoints(); + function ReadSegmentType(); +end; + +type ShapeNodes = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(Index); + function Insert(Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3); + function Item(Index); + function SetEditingType(Index, EditingType); + function SetPosition(Index, X1, Y1); + function SetSegmentType(Index, SegmentType); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ShapeRange = class(VbaBase) +public + function Init(); + +public + // methods + function Align(Align, RelativeTo); + function Apply(); + function CanvasCropBottom(Increment); + function CanvasCropBottom(Increment); + function CanvasCropBottom(Increment); + function CanvasCropBottom(Increment); + function ConvertToInlineShape(); + function Delete(); + function Distribute(Distribute, RelativeTo); + function Duplicate(); + function Flip(FlipCmd); + function Group(); + function IncrementLeft(Increment); + function IncrementRotation(Increment); + function IncrementTop(Increment); + function Item(Index); + function PickUp(); + function ScaleHeight(Factor, RelativeToOriginalSize, Scale); + function ScaleWidth(Factor, RelativeToOriginalSize, Scale); + function Select(Replace); + function SetShapesDefaultProperties(); + function Ungroup(); + function ZOrder(ZOrderCmd); + + // properties + property Adjustments read ReadAdjustments; + property AlternativeText read ReadAlternativeText write WriteAlternativeText; + property Anchor read ReadAnchor; + property AutoShapeType read ReadAutoShapeType write WriteAutoShapeType; + property BackgroundStyle read ReadBackgroundStyle write WriteBackgroundStyle; + property Callout read ReadCallout; + property CanvasItems read ReadCanvasItems; + property Child read ReadChild; + property Count read ReadCount; + property Decorative read ReadDecorative write WriteDecorative; + property Fill read ReadFill; + property Glow read ReadGlow; + property GraphicStyle read ReadGraphicStyle write WriteGraphicStyle; + property GroupItems read ReadGroupItems; + property Height read ReadHeight write WriteHeight; + property HeightRelative read ReadHeightRelative write WriteHeightRelative; + property HorizontalFlip read ReadHorizontalFlip; + property Hyperlink read ReadHyperlink; + property ID read ReadID; + property LayoutInCell read ReadLayoutInCell; + property Left read ReadLeft write WriteLeft; + property LeftRelative read ReadLeftRelative write WriteLeftRelative; + property Line read ReadLine; + property LockAnchor read ReadLockAnchor write WriteLockAnchor; + property LockAspectRatio read ReadLockAspectRatio write WriteLockAspectRatio; + property Model3D read ReadModel3D; + property Name read ReadName write WriteName; + property Nodes read ReadNodes; + property ParentGroup read ReadParentGroup; + property PictureFormat read ReadPictureFormat; + property Reflection read ReadReflection; + property RelativeHorizontalPosition read ReadRelativeHorizontalPosition write WriteRelativeHorizontalPosition; + property RelativeHorizontalSize read ReadRelativeHorizontalSize write WriteRelativeHorizontalSize; + property RelativeVerticalPosition read ReadRelativeVerticalPosition write WriteRelativeVerticalPosition; + property RelativeVerticalSize read ReadRelativeVerticalSize write WriteRelativeVerticalSize; + property Rotation read ReadRotation write WriteRotation; + property Shadow read ReadShadow; + property ShapeStyle read ReadShapeStyle write WriteShapeStyle; + property SoftEdge read ReadSoftEdge; + property TextEffect read ReadTextEffect; + property TextFrame read ReadTextFrame; + property TextFrame2 read ReadTextFrame2; + property ThreeD read ReadThreeD; + property Title read ReadTitle write WriteTitle; + property Top read ReadTop write WriteTop; + property TopRelative read ReadTopRelative write WriteTopRelative; + property Type read ReadType; + property VerticalFlip read ReadVerticalFlip; + property Vertices read ReadVertices; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property WidthRelative read ReadWidthRelative write WriteWidthRelative; + property WrapFormat read ReadWrapFormat; + property ZOrderPosition read ReadZOrderPosition; + function ReadAdjustments(); + function ReadAlternativeText(); + function WriteAlternativeText(_value); + function ReadAnchor(); + function ReadAutoShapeType(); + function WriteAutoShapeType(_value); + function ReadBackgroundStyle(); + function WriteBackgroundStyle(_value); + function ReadCallout(); + function ReadCanvasItems(); + function ReadChild(); + function ReadCount(); + function ReadDecorative(); + function WriteDecorative(_value); + function ReadFill(); + function ReadGlow(); + function ReadGraphicStyle(); + function WriteGraphicStyle(_value); + function ReadGroupItems(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHeightRelative(); + function WriteHeightRelative(_value); + function ReadHorizontalFlip(); + function ReadHyperlink(); + function ReadID(); + function ReadLayoutInCell(); + function ReadLeft(); + function WriteLeft(_value); + function ReadLeftRelative(); + function WriteLeftRelative(_value); + function ReadLine(); + function ReadLockAnchor(); + function WriteLockAnchor(_value); + function ReadLockAspectRatio(); + function WriteLockAspectRatio(_value); + function ReadModel3D(); + function ReadName(); + function WriteName(_value); + function ReadNodes(); + function ReadParentGroup(); + function ReadPictureFormat(); + function ReadReflection(); + function ReadRelativeHorizontalPosition(); + function WriteRelativeHorizontalPosition(_value); + function ReadRelativeHorizontalSize(); + function WriteRelativeHorizontalSize(_value); + function ReadRelativeVerticalPosition(); + function WriteRelativeVerticalPosition(_value); + function ReadRelativeVerticalSize(); + function WriteRelativeVerticalSize(_value); + function ReadRotation(); + function WriteRotation(_value); + function ReadShadow(); + function ReadShapeStyle(); + function WriteShapeStyle(_value); + function ReadSoftEdge(); + function ReadTextEffect(); + function ReadTextFrame(); + function ReadTextFrame2(); + function ReadThreeD(); + function ReadTitle(); + function WriteTitle(_value); + function ReadTop(); + function WriteTop(_value); + function ReadTopRelative(); + function WriteTopRelative(_value); + function ReadType(); + function ReadVerticalFlip(); + function ReadVertices(); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWidthRelative(); + function WriteWidthRelative(_value); + function ReadWrapFormat(); + function ReadZOrderPosition(); +end; + +type Shapes = class(VbaBase) +public + function Init(); + +public + // methods + function AddCallout(Type, Left, Top, Width, Height); + function AddCanvas(Left, Top, Width, Height, Anchor); + function AddChart2(Style, Type, Left, Top, Width, Height, Anchor, NewLayout); + function AddCurve(SafeArrayOfPoints); + function AddLabel(Orientation, Left, Top, Width, Height); + function AddLine(BeginX, BeginY, EndX, EndY); + function AddOLEControl(ClassType, Range); + function AddOLEObject(ClassType, FileName, LinkToFile, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Range); + function AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor); + function AddPolyline(SafeArrayOfPoints); + function AddShape(Type, Left, Top, Width, Height); + function AddSmartArt(Layout, Left, Top, Width, Height, Anchor); + function AddTextbox(Orientation, Left, Top, Width, Height); + function AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top); + function Add3DModel(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height); + function AddWebVideo(EmbedCode, VideoWidth, VideoHeight, PosterFrameImage, Url, Left, Top, Width, Height, Anchor); + function BuildFreeform(EditingType, X1, Y1); + function Item(Index); + function Range(Index); + function SelectAll(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type SoftEdgeFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Radius read ReadRadius write WriteRadius; + property Type read ReadType write WriteType; + function ReadRadius(); + function WriteRadius(_value); + function ReadType(); + function WriteType(_value); +end; + +type Source = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Field(Name); + + // properties + property Cited read ReadCited; + property Tag read ReadTag; + property XML read ReadXML; + function ReadCited(); + function ReadTag(); + function ReadXML(); +end; + +type Sources = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Data); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type SpellingSuggestion = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Name read ReadName; + function ReadName(); +end; + +type SpellingSuggestions = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + property SpellingErrorType read ReadSpellingErrorType; + function ReadCount(); + function ReadSpellingErrorType(); +end; + +type StoryRanges = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Style = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function LinkToListTemplate(ListTemplate, ListLevelNumber); + + // properties + property AutomaticallyUpdate read ReadAutomaticallyUpdate write WriteAutomaticallyUpdate; + property BaseStyle read ReadBaseStyle write WriteBaseStyle; + property Borders read ReadBorders; + property BuiltIn read ReadBuiltIn; + property Description read ReadDescription; + property Font read ReadFont write WriteFont; + property Frame read ReadFrame; + property InUse read ReadInUse; + property LanguageID read ReadLanguageID write WriteLanguageID; + property LanguageIDFarEast read ReadLanguageIDFarEast write WriteLanguageIDFarEast; + property Linked read ReadLinked; + property LinkStyle read ReadLinkStyle write WriteLinkStyle; + property ListLevelNumber read ReadListLevelNumber; + property ListTemplate read ReadListTemplate; + property Locked read ReadLocked write WriteLocked; + property NameLocal read ReadNameLocal write WriteNameLocal; + property NextParagraphStyle read ReadNextParagraphStyle write WriteNextParagraphStyle; + property NoProofing read ReadNoProofing write WriteNoProofing; + property NoSpaceBetweenParagraphsOfSameStyle read ReadNoSpaceBetweenParagraphsOfSameStyle write WriteNoSpaceBetweenParagraphsOfSameStyle; + property ParagraphFormat read ReadParagraphFormat write WriteParagraphFormat; + property Priority read ReadPriority write WritePriority; + property QuickStyle read ReadQuickStyle write WriteQuickStyle; + property Shading read ReadShading; + property Table read ReadTable; + property Type read ReadType; + property UnhideWhenUsed read ReadUnhideWhenUsed write WriteUnhideWhenUsed; + property Visibility read ReadVisibility write WriteVisibility; + function ReadAutomaticallyUpdate(); + function WriteAutomaticallyUpdate(_value); + function ReadBaseStyle(); + function WriteBaseStyle(_value); + function ReadBorders(); + function ReadBuiltIn(); + function ReadDescription(); + function ReadFont(); + function WriteFont(_value); + function ReadFrame(); + function ReadInUse(); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLanguageIDFarEast(); + function WriteLanguageIDFarEast(_value); + function ReadLinked(); + function ReadLinkStyle(); + function WriteLinkStyle(_value); + function ReadListLevelNumber(); + function ReadListTemplate(); + function ReadLocked(); + function WriteLocked(_value); + function ReadNameLocal(); + function WriteNameLocal(_value); + function ReadNextParagraphStyle(); + function WriteNextParagraphStyle(_value); + function ReadNoProofing(); + function WriteNoProofing(_value); + function ReadNoSpaceBetweenParagraphsOfSameStyle(); + function WriteNoSpaceBetweenParagraphsOfSameStyle(_value); + function ReadParagraphFormat(); + function WriteParagraphFormat(_value); + function ReadPriority(); + function WritePriority(_value); + function ReadQuickStyle(); + function WriteQuickStyle(_value); + function ReadShading(); + function ReadTable(); + function ReadType(); + function ReadUnhideWhenUsed(); + function WriteUnhideWhenUsed(_value); + function ReadVisibility(); + function WriteVisibility(_value); +end; + +type Styles = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Type); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type StyleSheet = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Move(Precedence); + + // properties + property FullName read ReadFullName; + property Index read ReadIndex; + property Name read ReadName; + property Path read ReadPath; + property Title read ReadTitle write WriteTitle; + property Type read ReadType write WriteType; + function ReadFullName(); + function ReadIndex(); + function ReadName(); + function ReadPath(); + function ReadTitle(); + function WriteTitle(_value); + function ReadType(); + function WriteType(_value); +end; + +type StyleSheets = class(VbaBase) +public + function Init(); + +public + // methods + function Add(FileName, LinkType, Title, Precedence); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Subdocument = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Open(); + function Split(Range); + + // properties + property HasFile read ReadHasFile; + property Level read ReadLevel; + property Locked read ReadLocked write WriteLocked; + property Name read ReadName; + property Path read ReadPath; + property Range read ReadRange; + function ReadHasFile(); + function ReadLevel(); + function ReadLocked(); + function WriteLocked(_value); + function ReadName(); + function ReadPath(); + function ReadRange(); +end; + +type Subdocuments = class(VbaBase) +public + function Init(); + +public + // methods + function AddFromFile(Name, ConfirmConversions, ReadOnly, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate); + function AddFromRange(Range); + function Delete(); + function Item(Index); + function Merge(FirstSubdocument, LastSubdocument); + function Select(); + + // properties + property Count read ReadCount; + property Expanded read ReadExpanded write WriteExpanded; + function ReadCount(); + function ReadExpanded(); + function WriteExpanded(_value); +end; + +type SynonymInfo = class(VbaBase) +public + function Init(); + +public + // methods + function SynonymList(Meaning); + + // properties + property AntonymList read ReadAntonymList; + property Found read ReadFound; + property MeaningCount read ReadMeaningCount; + property MeaningList read ReadMeaningList; + property PartOfSpeechList read ReadPartOfSpeechList; + property RelatedExpressionList read ReadRelatedExpressionList; + property RelatedWordList read ReadRelatedWordList; + property Word read ReadWord; + function ReadAntonymList(); + function ReadFound(); + function ReadMeaningCount(); + function ReadMeaningList(); + function ReadPartOfSpeechList(); + function ReadRelatedExpressionList(); + function ReadRelatedWordList(); + function ReadWord(); +end; + +type System = class(VbaBase) +public + function Init(); + +public + // methods + function Connect(Path, Drive, Password); + function MSInfo(); + function PrivateProfileString(FileName, Section, Key); + function ProfileString(Section, Key); + + // properties + property CountryRegion read ReadCountryRegion; + property Cursor read ReadCursor write WriteCursor; + property FreeDiskSpace read ReadFreeDiskSpace; + property HorizontalResolution read ReadHorizontalResolution; + property LanguageDesignation read ReadLanguageDesignation; + property MathCoprocessorInstalled read ReadMathCoprocessorInstalled; + property OperatingSystem read ReadOperatingSystem; + property Version read ReadVersion; + property VerticalResolution read ReadVerticalResolution; + function ReadCountryRegion(); + function ReadCursor(); + function WriteCursor(_value); + function ReadFreeDiskSpace(); + function ReadHorizontalResolution(); + function ReadLanguageDesignation(); + function ReadMathCoprocessorInstalled(); + function ReadOperatingSystem(); + function ReadVersion(); + function ReadVerticalResolution(); +end; + +type Table = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyStyleDirectFormatting(StyleName); + function AutoFitBehavior(Behavior); + function AutoFormat(Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit); + function Cell(Row, Column); + function ConvertToText(Separator, NestedTables); + function Delete(); + function Select(); + function Sort(ExcludeHeader, FieldNumber, SortFieldType, SortOrder, FieldNumber2, SortFieldType2, SortOrder2, FieldNumber3, SortFieldType3, SortOrder3, CaseSensitive, BidiSort, IgnoreThe, IgnoreKashida, IgnoreDiacritics, IgnoreHe, LanguageID); + function SortAscending(); + function SortDescending(); + function Split(BeforeRow); + function UpdateAutoFormat(); + + // properties + property AllowAutoFit read ReadAllowAutoFit write WriteAllowAutoFit; + property ApplyStyleColumnBands read ReadApplyStyleColumnBands write WriteApplyStyleColumnBands; + property ApplyStyleFirstColumn read ReadApplyStyleFirstColumn write WriteApplyStyleFirstColumn; + property ApplyStyleHeadingRows read ReadApplyStyleHeadingRows write WriteApplyStyleHeadingRows; + property ApplyStyleLastColumn read ReadApplyStyleLastColumn write WriteApplyStyleLastColumn; + property ApplyStyleLastRow read ReadApplyStyleLastRow write WriteApplyStyleLastRow; + property ApplyStyleRowBands read ReadApplyStyleRowBands write WriteApplyStyleRowBands; + property AutoFormatType read ReadAutoFormatType; + property Borders read ReadBorders; + property BottomPadding read ReadBottomPadding write WriteBottomPadding; + property Columns read ReadColumns; + property Descr read ReadDescr write WriteDescr; + property ID read ReadID write WriteID; + property LeftPadding read ReadLeftPadding write WriteLeftPadding; + property NestingLevel read ReadNestingLevel; + property PreferredWidth read ReadPreferredWidth write WritePreferredWidth; + property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType; + property Range read ReadRange; + property RightPadding read ReadRightPadding write WriteRightPadding; + property Rows read ReadRows; + property Shading read ReadShading; + property Spacing read ReadSpacing write WriteSpacing; + property Style read ReadStyle write WriteStyle; + property TableDirection read ReadTableDirection write WriteTableDirection; + property Tables read ReadTables; + property Title read ReadTitle write WriteTitle; + property TopPadding read ReadTopPadding write WriteTopPadding; + property Uniform read ReadUniform; + function ReadAllowAutoFit(); + function WriteAllowAutoFit(_value); + function ReadApplyStyleColumnBands(); + function WriteApplyStyleColumnBands(_value); + function ReadApplyStyleFirstColumn(); + function WriteApplyStyleFirstColumn(_value); + function ReadApplyStyleHeadingRows(); + function WriteApplyStyleHeadingRows(_value); + function ReadApplyStyleLastColumn(); + function WriteApplyStyleLastColumn(_value); + function ReadApplyStyleLastRow(); + function WriteApplyStyleLastRow(_value); + function ReadApplyStyleRowBands(); + function WriteApplyStyleRowBands(_value); + function ReadAutoFormatType(); + function ReadBorders(); + function ReadBottomPadding(); + function WriteBottomPadding(_value); + function ReadColumns(); + function ReadDescr(); + function WriteDescr(_value); + function ReadID(); + function WriteID(_value); + function ReadLeftPadding(); + function WriteLeftPadding(_value); + function ReadNestingLevel(); + function ReadPreferredWidth(); + function WritePreferredWidth(_value); + function ReadPreferredWidthType(); + function WritePreferredWidthType(_value); + function ReadRange(); + function ReadRightPadding(); + function WriteRightPadding(_value); + function ReadRows(); + function ReadShading(); + function ReadSpacing(); + function WriteSpacing(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTableDirection(); + function WriteTableDirection(_value); + function ReadTables(); + function ReadTitle(); + function WriteTitle(_value); + function ReadTopPadding(); + function WriteTopPadding(_value); + function ReadUniform(); +end; + +type TableOfAuthorities = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Update(); + + // properties + property Bookmark read ReadBookmark write WriteBookmark; + property Category read ReadCategory write WriteCategory; + property EntrySeparator read ReadEntrySeparator write WriteEntrySeparator; + property IncludeCategoryHeader read ReadIncludeCategoryHeader write WriteIncludeCategoryHeader; + property IncludeSequenceName read ReadIncludeSequenceName write WriteIncludeSequenceName; + property KeepEntryFormatting read ReadKeepEntryFormatting write WriteKeepEntryFormatting; + property PageNumberSeparator read ReadPageNumberSeparator write WritePageNumberSeparator; + property PageRangeSeparator read ReadPageRangeSeparator write WritePageRangeSeparator; + property Passim read ReadPassim write WritePassim; + property Range read ReadRange; + property Separator read ReadSeparator write WriteSeparator; + property TabLeader read ReadTabLeader write WriteTabLeader; + function ReadBookmark(); + function WriteBookmark(_value); + function ReadCategory(); + function WriteCategory(_value); + function ReadEntrySeparator(); + function WriteEntrySeparator(_value); + function ReadIncludeCategoryHeader(); + function WriteIncludeCategoryHeader(_value); + function ReadIncludeSequenceName(); + function WriteIncludeSequenceName(_value); + function ReadKeepEntryFormatting(); + function WriteKeepEntryFormatting(_value); + function ReadPageNumberSeparator(); + function WritePageNumberSeparator(_value); + function ReadPageRangeSeparator(); + function WritePageRangeSeparator(_value); + function ReadPassim(); + function WritePassim(_value); + function ReadRange(); + function ReadSeparator(); + function WriteSeparator(_value); + function ReadTabLeader(); + function WriteTabLeader(_value); +end; + +type TableOfAuthoritiesCategory = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Index read ReadIndex; + property Name read ReadName; + function ReadIndex(); + function ReadName(); +end; + +type TableOfContents = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Update(); + function UpdatePageNumbers(); + + // properties + property HeadingStyles read ReadHeadingStyles; + property HidePageNumbersInWeb read ReadHidePageNumbersInWeb write WriteHidePageNumbersInWeb; + property IncludePageNumbers read ReadIncludePageNumbers write WriteIncludePageNumbers; + property LowerHeadingLevel read ReadLowerHeadingLevel write WriteLowerHeadingLevel; + property Range read ReadRange; + property RightAlignPageNumbers read ReadRightAlignPageNumbers write WriteRightAlignPageNumbers; + property TabLeader read ReadTabLeader write WriteTabLeader; + property TableID read ReadTableID write WriteTableID; + property UpperHeadingLevel read ReadUpperHeadingLevel write WriteUpperHeadingLevel; + property UseFields read ReadUseFields write WriteUseFields; + property UseHeadingStyles read ReadUseHeadingStyles write WriteUseHeadingStyles; + property UseHyperlinks read ReadUseHyperlinks write WriteUseHyperlinks; + function ReadHeadingStyles(); + function ReadHidePageNumbersInWeb(); + function WriteHidePageNumbersInWeb(_value); + function ReadIncludePageNumbers(); + function WriteIncludePageNumbers(_value); + function ReadLowerHeadingLevel(); + function WriteLowerHeadingLevel(_value); + function ReadRange(); + function ReadRightAlignPageNumbers(); + function WriteRightAlignPageNumbers(_value); + function ReadTabLeader(); + function WriteTabLeader(_value); + function ReadTableID(); + function WriteTableID(_value); + function ReadUpperHeadingLevel(); + function WriteUpperHeadingLevel(_value); + function ReadUseFields(); + function WriteUseFields(_value); + function ReadUseHeadingStyles(); + function WriteUseHeadingStyles(_value); + function ReadUseHyperlinks(); + function WriteUseHyperlinks(_value); +end; + +type TableOfFigures = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Update(); + function UpdatePageNumbers(); + + // properties + property Caption read ReadCaption write WriteCaption; + property HeadingStyles read ReadHeadingStyles; + property HidePageNumbersInWeb read ReadHidePageNumbersInWeb write WriteHidePageNumbersInWeb; + property IncludeLabel read ReadIncludeLabel write WriteIncludeLabel; + property IncludePageNumbers read ReadIncludePageNumbers write WriteIncludePageNumbers; + property LowerHeadingLevel read ReadLowerHeadingLevel write WriteLowerHeadingLevel; + property Range read ReadRange; + property RightAlignPageNumbers read ReadRightAlignPageNumbers write WriteRightAlignPageNumbers; + property TabLeader read ReadTabLeader write WriteTabLeader; + property TableID read ReadTableID write WriteTableID; + property UpperHeadingLevel read ReadUpperHeadingLevel write WriteUpperHeadingLevel; + property UseFields read ReadUseFields write WriteUseFields; + property UseHeadingStyles read ReadUseHeadingStyles write WriteUseHeadingStyles; + property UseHyperlinks read ReadUseHyperlinks write WriteUseHyperlinks; + function ReadCaption(); + function WriteCaption(_value); + function ReadHeadingStyles(); + function ReadHidePageNumbersInWeb(); + function WriteHidePageNumbersInWeb(_value); + function ReadIncludeLabel(); + function WriteIncludeLabel(_value); + function ReadIncludePageNumbers(); + function WriteIncludePageNumbers(_value); + function ReadLowerHeadingLevel(); + function WriteLowerHeadingLevel(_value); + function ReadRange(); + function ReadRightAlignPageNumbers(); + function WriteRightAlignPageNumbers(_value); + function ReadTabLeader(); + function WriteTabLeader(_value); + function ReadTableID(); + function WriteTableID(_value); + function ReadUpperHeadingLevel(); + function WriteUpperHeadingLevel(_value); + function ReadUseFields(); + function WriteUseFields(_value); + function ReadUseHeadingStyles(); + function WriteUseHeadingStyles(_value); + function ReadUseHyperlinks(); + function WriteUseHyperlinks(_value); +end; + +type Tables = class(VbaBase) +public + function Init(); + function Operator[](index); + +public + // methods + function Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior); + function Item(Index); + + // properties + property Count read ReadCount; + property NestingLevel read ReadNestingLevel; + function ReadCount(); + function ReadNestingLevel(); +end; + +type TablesOfAuthorities = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Category, Bookmark, Passim, KeepEntryFormatting, Separator, IncludeSequenceName, EntrySeparator, PageRangeSeparator, IncludeCategoryHeader, PageNumberSeparator); + function Item(Index); + function MarkAllCitations(ShortCitation, LongCitation, LongCitationAutoText, Category); + function MarkCitation(Range, ShortCitation, LongCitation, LongCitationAutoText, Category); + function NextCitation(ShortCitation); + + // properties + property Count read ReadCount; + property Format read ReadFormat write WriteFormat; + function ReadCount(); + function ReadFormat(); + function WriteFormat(_value); +end; + +type TablesOfAuthoritiesCategories = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type TablesOfContents = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, UseHeadingStyles, UpperHeadingLevel, LowerHeadingLevel, UseFields, TableID, RightAlignPageNumbers, IncludePageNumbers, AddedStyles, UseHyperlinks, HidePageNumbersInWeb, UseOutlineLevels); + function Item(Index); + function MarkEntry(Range, Entry, EntryAutoText, TableID, Level); + + // properties + property Count read ReadCount; + property Format read ReadFormat write WriteFormat; + function ReadCount(); + function ReadFormat(); + function WriteFormat(_value); +end; + +type TablesOfFigures = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Range, Caption, IncludeLabel, UseHeadingStyles, UpperHeadingLevel, LowerHeadingLevel, UseFields, TableID, RightAlignPageNumbers, IncludePageNumbers, AddedStyles, UseHyperlinks, HidePageNumbersInWeb); + function Item(Index); + function MarkEntry(Range, Entry, EntryAutoText, TableID, Level); + + // properties + property Count read ReadCount; + property Format read ReadFormat write WriteFormat; + function ReadCount(); + function ReadFormat(); + function WriteFormat(_value); +end; + +type TableStyle = class(VbaBase) +public + function Init(); + +public + // methods + function Condition(ConditionCode); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property AllowBreakAcrossPage read ReadAllowBreakAcrossPage write WriteAllowBreakAcrossPage; + property AllowPageBreaks read ReadAllowPageBreaks write WriteAllowPageBreaks; + property Borders read ReadBorders; + property BottomPadding read ReadBottomPadding write WriteBottomPadding; + property ColumnStripe read ReadColumnStripe write WriteColumnStripe; + property LeftIndent read ReadLeftIndent write WriteLeftIndent; + property LeftPadding read ReadLeftPadding write WriteLeftPadding; + property RightPadding read ReadRightPadding write WriteRightPadding; + property RowStripe read ReadRowStripe write WriteRowStripe; + property Shading read ReadShading; + property Spacing read ReadSpacing write WriteSpacing; + property TableDirection read ReadTableDirection write WriteTableDirection; + property TopPadding read ReadTopPadding write WriteTopPadding; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadAllowBreakAcrossPage(); + function WriteAllowBreakAcrossPage(_value); + function ReadAllowPageBreaks(); + function WriteAllowPageBreaks(_value); + function ReadBorders(); + function ReadBottomPadding(); + function WriteBottomPadding(_value); + function ReadColumnStripe(); + function WriteColumnStripe(_value); + function ReadLeftIndent(); + function WriteLeftIndent(_value); + function ReadLeftPadding(); + function WriteLeftPadding(_value); + function ReadRightPadding(); + function WriteRightPadding(_value); + function ReadRowStripe(); + function WriteRowStripe(_value); + function ReadShading(); + function ReadSpacing(); + function WriteSpacing(_value); + function ReadTableDirection(); + function WriteTableDirection(_value); + function ReadTopPadding(); + function WriteTopPadding(_value); +end; + +type TabStop = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property CustomTab read ReadCustomTab; + property Leader read ReadLeader write WriteLeader; + property Next read ReadNext; + property Position read ReadPosition write WritePosition; + property Previous read ReadPrevious; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadCustomTab(); + function ReadLeader(); + function WriteLeader(_value); + function ReadNext(); + function ReadPosition(); + function WritePosition(_value); + function ReadPrevious(); +end; + +type TabStops = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Position, Alignment, Leader); + function After(Position); + function Before(Position); + function ClearAll(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Task = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(Wait); + function Close(); + function Move(Left, Top); + function Resize(Width, Height); + function SendWindowMessage(Message, wParam, IParam); + + // properties + property Height read ReadHeight write WriteHeight; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Top read ReadTop write WriteTop; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property WindowState read ReadWindowState write WriteWindowState; + function ReadHeight(); + function WriteHeight(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadTop(); + function WriteTop(_value); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWindowState(); + function WriteWindowState(_value); +end; + +type TaskPane = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Visible read ReadVisible write WriteVisible; + function ReadVisible(); + function WriteVisible(_value); +end; + +type TaskPanes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Tasks = class(VbaBase) +public + function Init(); + +public + // methods + function Exists(Name); + function ExitWindows(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Template = class(VbaBase) +public + function Init(); + +public + // methods + function OpenAsDocument(); + function Save(); + + // properties + property BuildingBlockEntries read ReadBuildingBlockEntries; + property BuildingBlockTypes read ReadBuildingBlockTypes; + property BuiltInDocumentProperties read ReadBuiltInDocumentProperties; + property CustomDocumentProperties read ReadCustomDocumentProperties; + property FarEastLineBreakLanguage read ReadFarEastLineBreakLanguage write WriteFarEastLineBreakLanguage; + property FarEastLineBreakLevel read ReadFarEastLineBreakLevel write WriteFarEastLineBreakLevel; + property FullName read ReadFullName; + property JustificationMode read ReadJustificationMode write WriteJustificationMode; + property KerningByAlgorithm read ReadKerningByAlgorithm write WriteKerningByAlgorithm; + property LanguageID read ReadLanguageID write WriteLanguageID; + property LanguageIDFarEast read ReadLanguageIDFarEast write WriteLanguageIDFarEast; + property ListTemplates read ReadListTemplates; + property Name read ReadName; + property NoLineBreakAfter read ReadNoLineBreakAfter write WriteNoLineBreakAfter; + property NoLineBreakBefore read ReadNoLineBreakBefore write WriteNoLineBreakBefore; + property NoProofing read ReadNoProofing write WriteNoProofing; + property Path read ReadPath; + property Saved read ReadSaved write WriteSaved; + property Type read ReadType; + property VBProject read ReadVBProject; + function ReadBuildingBlockEntries(); + function ReadBuildingBlockTypes(); + function ReadBuiltInDocumentProperties(); + function ReadCustomDocumentProperties(); + function ReadFarEastLineBreakLanguage(); + function WriteFarEastLineBreakLanguage(_value); + function ReadFarEastLineBreakLevel(); + function WriteFarEastLineBreakLevel(_value); + function ReadFullName(); + function ReadJustificationMode(); + function WriteJustificationMode(_value); + function ReadKerningByAlgorithm(); + function WriteKerningByAlgorithm(_value); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLanguageIDFarEast(); + function WriteLanguageIDFarEast(_value); + function ReadListTemplates(); + function ReadName(); + function ReadNoLineBreakAfter(); + function WriteNoLineBreakAfter(_value); + function ReadNoLineBreakBefore(); + function WriteNoLineBreakBefore(_value); + function ReadNoProofing(); + function WriteNoProofing(_value); + function ReadPath(); + function ReadSaved(); + function WriteSaved(_value); + function ReadType(); + function ReadVBProject(); +end; + +type Templates = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + function LoadBuildingBlocks(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type TextColumn = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter; + property Width read ReadWidth write WriteWidth; + function ReadSpaceAfter(); + function WriteSpaceAfter(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type TextColumns = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Width, Spacing, EvenlySpaced); + function Item(Index); + function SetCount(NumColumns); + + // properties + property Count read ReadCount; + property EvenlySpaced read ReadEvenlySpaced write WriteEvenlySpaced; + property FlowDirection read ReadFlowDirection write WriteFlowDirection; + property LineBetween read ReadLineBetween write WriteLineBetween; + property Spacing read ReadSpacing write WriteSpacing; + property Width read ReadWidth write WriteWidth; + function ReadCount(); + function ReadEvenlySpaced(); + function WriteEvenlySpaced(_value); + function ReadFlowDirection(); + function WriteFlowDirection(_value); + function ReadLineBetween(); + function WriteLineBetween(_value); + function ReadSpacing(); + function WriteSpacing(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type TextEffectFormat = class(VbaBase) +public + function Init(); + +public + // methods + function ToggleVerticalText(); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property FontBold read ReadFontBold write WriteFontBold; + property FontItalic read ReadFontItalic write WriteFontItalic; + property FontName read ReadFontName write WriteFontName; + property FontSize read ReadFontSize write WriteFontSize; + property KernedPairs read ReadKernedPairs write WriteKernedPairs; + property NormalizedHeight read ReadNormalizedHeight write WriteNormalizedHeight; + property PresetShape read ReadPresetShape write WritePresetShape; + property PresetTextEffect read ReadPresetTextEffect write WritePresetTextEffect; + property RotatedChars read ReadRotatedChars write WriteRotatedChars; + property Text read ReadText write WriteText; + property Tracking read ReadTracking write WriteTracking; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadFontBold(); + function WriteFontBold(_value); + function ReadFontItalic(); + function WriteFontItalic(_value); + function ReadFontName(); + function WriteFontName(_value); + function ReadFontSize(); + function WriteFontSize(_value); + function ReadKernedPairs(); + function WriteKernedPairs(_value); + function ReadNormalizedHeight(); + function WriteNormalizedHeight(_value); + function ReadPresetShape(); + function WritePresetShape(_value); + function ReadPresetTextEffect(); + function WritePresetTextEffect(_value); + function ReadRotatedChars(); + function WriteRotatedChars(_value); + function ReadText(); + function WriteText(_value); + function ReadTracking(); + function WriteTracking(_value); +end; + +type TextFrame = class(VbaBase) +public + function Init(); + +public + // methods + function BreakForwardLink(); + function DeleteText(); + function ValidLinkTarget(TargetTextFrame); + + // properties + property AutoSize read ReadAutoSize write WriteAutoSize; + property ContainingRange read ReadContainingRange; + property HasText read ReadHasText; + property HorizontalAnchor read ReadHorizontalAnchor write WriteHorizontalAnchor; + property MarginBottom read ReadMarginBottom write WriteMarginBottom; + property MarginLeft read ReadMarginLeft write WriteMarginLeft; + property MarginRight read ReadMarginRight write WriteMarginRight; + property MarginTop read ReadMarginTop write WriteMarginTop; + property Next read ReadNext; + property NoTextRotation read ReadNoTextRotation write WriteNoTextRotation; + property Orientation read ReadOrientation write WriteOrientation; + property Overflowing read ReadOverflowing; + property PathFormat read ReadPathFormat write WritePathFormat; + property Previous read ReadPrevious; + property TextRange read ReadTextRange; + property ThreeD read ReadThreeD; + property VerticalAnchor read ReadVerticalAnchor write WriteVerticalAnchor; + property WarpFormat read ReadWarpFormat write WriteWarpFormat; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadAutoSize(); + function WriteAutoSize(_value); + function ReadContainingRange(); + function ReadHasText(); + function ReadHorizontalAnchor(); + function WriteHorizontalAnchor(_value); + function ReadMarginBottom(); + function WriteMarginBottom(_value); + function ReadMarginLeft(); + function WriteMarginLeft(_value); + function ReadMarginRight(); + function WriteMarginRight(_value); + function ReadMarginTop(); + function WriteMarginTop(_value); + function ReadNext(); + function ReadNoTextRotation(); + function WriteNoTextRotation(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadOverflowing(); + function ReadPathFormat(); + function WritePathFormat(_value); + function ReadPrevious(); + function ReadTextRange(); + function ReadThreeD(); + function ReadVerticalAnchor(); + function WriteVerticalAnchor(_value); + function ReadWarpFormat(); + function WriteWarpFormat(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); +end; + +type TextInput = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + function EditType(Type, Default, Format, Enabled); + + // properties + property Default read ReadDefault write WriteDefault; + property Format read ReadFormat; + property Type read ReadType; + property Valid read ReadValid; + property Width read ReadWidth write WriteWidth; + function ReadDefault(); + function WriteDefault(_value); + function ReadFormat(); + function ReadType(); + function ReadValid(); + function ReadWidth(); + function WriteWidth(_value); +end; + +type TextRetrievalMode = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Duplicate read ReadDuplicate; + property IncludeFieldCodes read ReadIncludeFieldCodes write WriteIncludeFieldCodes; + property IncludeHiddenText read ReadIncludeHiddenText write WriteIncludeHiddenText; + property ViewType read ReadViewType write WriteViewType; + function ReadDuplicate(); + function ReadIncludeFieldCodes(); + function WriteIncludeFieldCodes(_value); + function ReadIncludeHiddenText(); + function WriteIncludeHiddenText(_value); + function ReadViewType(); + function WriteViewType(_value); +end; + +type ThreeDFormat = class(VbaBase) +public + function Init(); + +public + // methods + function IncrementRotationHorizontal(Increment); + function IncrementRotationVertical(Increment); + function IncrementRotationX(Increment); + function IncrementRotationY(Increment); + function IncrementRotationZ(Increment); + function ResetRotation(); + function SetExtrusionDirection(PresetExtrusionDirection); + function SetPresetCamera(PresetCamera); + function SetThreeDFormat(PresetThreeDFormat); + + // properties + property BevelBottomDepth read ReadBevelBottomDepth write WriteBevelBottomDepth; + property BevelBottomInset read ReadBevelBottomInset write WriteBevelBottomInset; + property BevelBottomType read ReadBevelBottomType write WriteBevelBottomType; + property BevelTopDepth read ReadBevelTopDepth write WriteBevelTopDepth; + property BevelTopInset read ReadBevelTopInset write WriteBevelTopInset; + property BevelTopType read ReadBevelTopType write WriteBevelTopType; + property ContourColor read ReadContourColor write WriteContourColor; + property ContourWidth read ReadContourWidth write WriteContourWidth; + property Depth read ReadDepth write WriteDepth; + property ExtrusionColor read ReadExtrusionColor; + property ExtrusionColorType read ReadExtrusionColorType write WriteExtrusionColorType; + property FieldOfView read ReadFieldOfView write WriteFieldOfView; + property LightAngle read ReadLightAngle write WriteLightAngle; + property Perspective read ReadPerspective write WritePerspective; + property PresetCamera read ReadPresetCamera; + property PresetExtrusionDirection read ReadPresetExtrusionDirection write WritePresetExtrusionDirection; + property PresetLighting read ReadPresetLighting write WritePresetLighting; + property PresetLightingDirection read ReadPresetLightingDirection write WritePresetLightingDirection; + property PresetLightingSoftness read ReadPresetLightingSoftness write WritePresetLightingSoftness; + property PresetMaterial read ReadPresetMaterial write WritePresetMaterial; + property PresetThreeDFormat read ReadPresetThreeDFormat; + property ProjectText read ReadProjectText write WriteProjectText; + property RotationX read ReadRotationX write WriteRotationX; + property RotationY read ReadRotationY write WriteRotationY; + property RotationZ read ReadRotationZ write WriteRotationZ; + property Visible read ReadVisible write WriteVisible; + property Z read ReadZ write WriteZ; + function ReadBevelBottomDepth(); + function WriteBevelBottomDepth(_value); + function ReadBevelBottomInset(); + function WriteBevelBottomInset(_value); + function ReadBevelBottomType(); + function WriteBevelBottomType(_value); + function ReadBevelTopDepth(); + function WriteBevelTopDepth(_value); + function ReadBevelTopInset(); + function WriteBevelTopInset(_value); + function ReadBevelTopType(); + function WriteBevelTopType(_value); + function ReadContourColor(); + function WriteContourColor(_value); + function ReadContourWidth(); + function WriteContourWidth(_value); + function ReadDepth(); + function WriteDepth(_value); + function ReadExtrusionColor(); + function ReadExtrusionColorType(); + function WriteExtrusionColorType(_value); + function ReadFieldOfView(); + function WriteFieldOfView(_value); + function ReadLightAngle(); + function WriteLightAngle(_value); + function ReadPerspective(); + function WritePerspective(_value); + function ReadPresetCamera(); + function ReadPresetExtrusionDirection(); + function WritePresetExtrusionDirection(_value); + function ReadPresetLighting(); + function WritePresetLighting(_value); + function ReadPresetLightingDirection(); + function WritePresetLightingDirection(_value); + function ReadPresetLightingSoftness(); + function WritePresetLightingSoftness(_value); + function ReadPresetMaterial(); + function WritePresetMaterial(_value); + function ReadPresetThreeDFormat(); + function ReadProjectText(); + function WriteProjectText(_value); + function ReadRotationX(); + function WriteRotationX(_value); + function ReadRotationY(); + function WriteRotationY(_value); + function ReadRotationZ(); + function WriteRotationZ(_value); + function ReadVisible(); + function WriteVisible(_value); + function ReadZ(); + function WriteZ(_value); +end; + +type TickLabels = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property Depth read ReadDepth; + property Font read ReadFont; + property Format read ReadFormat; + property MultiLevel read ReadMultiLevel write WriteMultiLevel; + property Name read ReadName; + property NumberFormat read ReadNumberFormat write WriteNumberFormat; + property NumberFormatLinked read ReadNumberFormatLinked write WriteNumberFormatLinked; + property NumberFormatLocal read ReadNumberFormatLocal write WriteNumberFormatLocal; + property Offset read ReadOffset write WriteOffset; + property Orientation read ReadOrientation write WriteOrientation; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadDepth(); + function ReadFont(); + function ReadFormat(); + function ReadMultiLevel(); + function WriteMultiLevel(_value); + function ReadName(); + function ReadNumberFormat(); + function WriteNumberFormat(_value); + function ReadNumberFormatLinked(); + function WriteNumberFormatLinked(_value); + function ReadNumberFormatLocal(); + function WriteNumberFormatLocal(_value); + function ReadOffset(); + function WriteOffset(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); +end; + +type Trendline = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Delete(); + function Select(); + + // properties + property Backward2 read ReadBackward2 write WriteBackward2; + property Border read ReadBorder; + property DataLabel read ReadDataLabel; + property DisplayEquation read ReadDisplayEquation write WriteDisplayEquation; + property DisplayRSquared read ReadDisplayRSquared write WriteDisplayRSquared; + property Format read ReadFormat; + property Forward2 read ReadForward2 write WriteForward2; + property Index read ReadIndex; + property Intercept read ReadIntercept write WriteIntercept; + property InterceptIsAuto read ReadInterceptIsAuto write WriteInterceptIsAuto; + property Name read ReadName write WriteName; + property NameIsAuto read ReadNameIsAuto write WriteNameIsAuto; + property Order read ReadOrder write WriteOrder; + property Period read ReadPeriod write WritePeriod; + property Type read ReadType write WriteType; + function ReadBackward2(); + function WriteBackward2(_value); + function ReadBorder(); + function ReadDataLabel(); + function ReadDisplayEquation(); + function WriteDisplayEquation(_value); + function ReadDisplayRSquared(); + function WriteDisplayRSquared(_value); + function ReadFormat(); + function ReadForward2(); + function WriteForward2(_value); + function ReadIndex(); + function ReadIntercept(); + function WriteIntercept(_value); + function ReadInterceptIsAuto(); + function WriteInterceptIsAuto(_value); + function ReadName(); + function WriteName(_value); + function ReadNameIsAuto(); + function WriteNameIsAuto(_value); + function ReadOrder(); + function WriteOrder(_value); + function ReadPeriod(); + function WritePeriod(_value); + function ReadType(); + function WriteType(_value); +end; + +type Trendlines = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Type, Order, Period, Forward, Backward, Intercept, DisplayEquation, DisplayRSquared, Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type TwoInitialCapsException = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + function ReadIndex(); + function ReadName(); +end; + +type TwoInitialCapsExceptions = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type UndoRecord = class(VbaBase) +public + function Init(); + +public + // methods + function EndCustomRecord(); + function StartCustomRecord(Name); + + // properties + property CustomRecordLevel read ReadCustomRecordLevel; + property CustomRecordName read ReadCustomRecordName; + property IsRecordingCustomRecord read ReadIsRecordingCustomRecord; + function ReadCustomRecordLevel(); + function ReadCustomRecordName(); + function ReadIsRecordingCustomRecord(); +end; + +type UpBars = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Fill read ReadFill; + property Format read ReadFormat; + property Interior read ReadInterior; + property Name read ReadName; + function ReadBorder(); + function ReadFill(); + function ReadFormat(); + function ReadInterior(); + function ReadName(); +end; + +type Variable = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + property Value read ReadValue write WriteValue; + function ReadIndex(); + function ReadName(); + function ReadValue(); + function WriteValue(_value); +end; + +type Variables = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Value); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Version = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Open(); + + // properties + property Comment read ReadComment; + property Date read ReadDate; + property Index read ReadIndex; + property SavedBy read ReadSavedBy; + function ReadComment(); + function ReadDate(); + function ReadIndex(); + function ReadSavedBy(); +end; + +type View = class(VbaBase) +public + function Init(); + +public + // methods + function CollapseAllHeadings(); + function CollapseOutline(Range); + function ExpandAllHeadings(); + function ExpandOutline(Range); + function NextHeaderFooter(); + function PreviousHeaderFooter(); + function ShowAllHeadings(); + function ShowHeading(Level); + function .'PageMovementType'(); + + // properties + property ColumnWidth read ReadColumnWidth write WriteColumnWidth; + property ConflictMode read ReadConflictMode write WriteConflictMode; + property DisplayBackgrounds read ReadDisplayBackgrounds write WriteDisplayBackgrounds; + property DisplayPageBoundaries read ReadDisplayPageBoundaries write WriteDisplayPageBoundaries; + property Draft read ReadDraft write WriteDraft; + property FieldShading read ReadFieldShading write WriteFieldShading; + property FullScreen read ReadFullScreen write WriteFullScreen; + property Magnifier read ReadMagnifier write WriteMagnifier; + property MailMergeDataView read ReadMailMergeDataView write WriteMailMergeDataView; + property MarkupMode read ReadMarkupMode write WriteMarkupMode; + property PageColor read ReadPageColor write WritePageColor; + property Panning read ReadPanning write WritePanning; + property ReadingLayout read ReadReadingLayout; + property ReadingLayoutActualView read ReadReadingLayoutActualView; + property ReadingLayoutTruncateMargins read ReadReadingLayoutTruncateMargins write WriteReadingLayoutTruncateMargins; + property RevisionsBalloonShowConnectingLines read ReadRevisionsBalloonShowConnectingLines write WriteRevisionsBalloonShowConnectingLines; + property RevisionsBalloonSide read ReadRevisionsBalloonSide; + property RevisionsBalloonWidth read ReadRevisionsBalloonWidth write WriteRevisionsBalloonWidth; + property RevisionsBalloonWidthType read ReadRevisionsBalloonWidthType write WriteRevisionsBalloonWidthType; + property RevisionsFilter read ReadRevisionsFilter; + property SeekView read ReadSeekView write WriteSeekView; + property ShadeEditableRanges read ReadShadeEditableRanges write WriteShadeEditableRanges; + property ShowAll read ReadShowAll write WriteShowAll; + property ShowBookmarks read ReadShowBookmarks write WriteShowBookmarks; + property ShowComments read ReadShowComments write WriteShowComments; + property ShowCropMarks read ReadShowCropMarks write WriteShowCropMarks; + property ShowDrawings read ReadShowDrawings write WriteShowDrawings; + property ShowFieldCodes read ReadShowFieldCodes write WriteShowFieldCodes; + property ShowFirstLineOnly read ReadShowFirstLineOnly write WriteShowFirstLineOnly; + property ShowFormat read ReadShowFormat write WriteShowFormat; + property ShowFormatChanges read ReadShowFormatChanges write WriteShowFormatChanges; + property ShowHiddenText read ReadShowHiddenText write WriteShowHiddenText; + property ShowHighlight read ReadShowHighlight write WriteShowHighlight; + property ShowHyphens read ReadShowHyphens write WriteShowHyphens; + property ShowInkAnnotations read ReadShowInkAnnotations write WriteShowInkAnnotations; + property ShowInsertionsAndDeletions read ReadShowInsertionsAndDeletions write WriteShowInsertionsAndDeletions; + property ShowMainTextLayer read ReadShowMainTextLayer write WriteShowMainTextLayer; + property ShowMarkupAreaHighlight read ReadShowMarkupAreaHighlight write WriteShowMarkupAreaHighlight; + property ShowObjectAnchors read ReadShowObjectAnchors write WriteShowObjectAnchors; + property ShowOptionalBreaks read ReadShowOptionalBreaks write WriteShowOptionalBreaks; + property ShowOtherAuthors read ReadShowOtherAuthors write WriteShowOtherAuthors; + property ShowParagraphs read ReadShowParagraphs write WriteShowParagraphs; + property ShowPicturePlaceHolders read ReadShowPicturePlaceHolders write WriteShowPicturePlaceHolders; + property ShowRevisionsAndComments read ReadShowRevisionsAndComments write WriteShowRevisionsAndComments; + property ShowSpaces read ReadShowSpaces write WriteShowSpaces; + property ShowTabs read ReadShowTabs write WriteShowTabs; + property ShowTextBoundaries read ReadShowTextBoundaries write WriteShowTextBoundaries; + property ShowXMLMarkup read ReadShowXMLMarkup; + property SplitSpecial read ReadSplitSpecial write WriteSplitSpecial; + property TableGridlines read ReadTableGridlines write WriteTableGridlines; + property Type read ReadType write WriteType; + property WrapToWindow read ReadWrapToWindow write WriteWrapToWindow; + property Zoom read ReadZoom; + function ReadColumnWidth(); + function WriteColumnWidth(_value); + function ReadConflictMode(); + function WriteConflictMode(_value); + function ReadDisplayBackgrounds(); + function WriteDisplayBackgrounds(_value); + function ReadDisplayPageBoundaries(); + function WriteDisplayPageBoundaries(_value); + function ReadDraft(); + function WriteDraft(_value); + function ReadFieldShading(); + function WriteFieldShading(_value); + function ReadFullScreen(); + function WriteFullScreen(_value); + function ReadMagnifier(); + function WriteMagnifier(_value); + function ReadMailMergeDataView(); + function WriteMailMergeDataView(_value); + function ReadMarkupMode(); + function WriteMarkupMode(_value); + function ReadPageColor(); + function WritePageColor(_value); + function ReadPanning(); + function WritePanning(_value); + function ReadReadingLayout(); + function ReadReadingLayoutActualView(); + function ReadReadingLayoutTruncateMargins(); + function WriteReadingLayoutTruncateMargins(_value); + function ReadRevisionsBalloonShowConnectingLines(); + function WriteRevisionsBalloonShowConnectingLines(_value); + function ReadRevisionsBalloonSide(); + function ReadRevisionsBalloonWidth(); + function WriteRevisionsBalloonWidth(_value); + function ReadRevisionsBalloonWidthType(); + function WriteRevisionsBalloonWidthType(_value); + function ReadRevisionsFilter(); + function ReadSeekView(); + function WriteSeekView(_value); + function ReadShadeEditableRanges(); + function WriteShadeEditableRanges(_value); + function ReadShowAll(); + function WriteShowAll(_value); + function ReadShowBookmarks(); + function WriteShowBookmarks(_value); + function ReadShowComments(); + function WriteShowComments(_value); + function ReadShowCropMarks(); + function WriteShowCropMarks(_value); + function ReadShowDrawings(); + function WriteShowDrawings(_value); + function ReadShowFieldCodes(); + function WriteShowFieldCodes(_value); + function ReadShowFirstLineOnly(); + function WriteShowFirstLineOnly(_value); + function ReadShowFormat(); + function WriteShowFormat(_value); + function ReadShowFormatChanges(); + function WriteShowFormatChanges(_value); + function ReadShowHiddenText(); + function WriteShowHiddenText(_value); + function ReadShowHighlight(); + function WriteShowHighlight(_value); + function ReadShowHyphens(); + function WriteShowHyphens(_value); + function ReadShowInkAnnotations(); + function WriteShowInkAnnotations(_value); + function ReadShowInsertionsAndDeletions(); + function WriteShowInsertionsAndDeletions(_value); + function ReadShowMainTextLayer(); + function WriteShowMainTextLayer(_value); + function ReadShowMarkupAreaHighlight(); + function WriteShowMarkupAreaHighlight(_value); + function ReadShowObjectAnchors(); + function WriteShowObjectAnchors(_value); + function ReadShowOptionalBreaks(); + function WriteShowOptionalBreaks(_value); + function ReadShowOtherAuthors(); + function WriteShowOtherAuthors(_value); + function ReadShowParagraphs(); + function WriteShowParagraphs(_value); + function ReadShowPicturePlaceHolders(); + function WriteShowPicturePlaceHolders(_value); + function ReadShowRevisionsAndComments(); + function WriteShowRevisionsAndComments(_value); + function ReadShowSpaces(); + function WriteShowSpaces(_value); + function ReadShowTabs(); + function WriteShowTabs(_value); + function ReadShowTextBoundaries(); + function WriteShowTextBoundaries(_value); + function ReadShowXMLMarkup(); + function ReadSplitSpecial(); + function WriteSplitSpecial(_value); + function ReadTableGridlines(); + function WriteTableGridlines(_value); + function ReadType(); + function WriteType(_value); + function ReadWrapToWindow(); + function WriteWrapToWindow(_value); + function ReadZoom(); +end; + +type Walls = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Paste(); + function Select(); + + // properties + property Format read ReadFormat; + property Name read ReadName; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit read ReadPictureUnit write WritePictureUnit; + property Thickness read ReadThickness write WriteThickness; + function ReadFormat(); + function ReadName(); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit(); + function WritePictureUnit(_value); + function ReadThickness(); + function WriteThickness(_value); +end; + +type WebOptions = class(VbaBase) +public + function Init(); + +public + // methods + function UseDefaultFolderSuffix(); + + // properties + property AllowPNG read ReadAllowPNG write WriteAllowPNG; + property BrowserLevel read ReadBrowserLevel write WriteBrowserLevel; + property Encoding read ReadEncoding write WriteEncoding; + property FolderSuffix read ReadFolderSuffix; + property OptimizeForBrowser read ReadOptimizeForBrowser write WriteOptimizeForBrowser; + property OrganizeInFolder read ReadOrganizeInFolder write WriteOrganizeInFolder; + property PixelsPerInch read ReadPixelsPerInch write WritePixelsPerInch; + property RelyOnCSS read ReadRelyOnCSS write WriteRelyOnCSS; + property RelyOnVML read ReadRelyOnVML write WriteRelyOnVML; + property ScreenSize read ReadScreenSize write WriteScreenSize; + property TargetBrowser read ReadTargetBrowser write WriteTargetBrowser; + property UseLongFileNames read ReadUseLongFileNames write WriteUseLongFileNames; + function ReadAllowPNG(); + function WriteAllowPNG(_value); + function ReadBrowserLevel(); + function WriteBrowserLevel(_value); + function ReadEncoding(); + function WriteEncoding(_value); + function ReadFolderSuffix(); + function ReadOptimizeForBrowser(); + function WriteOptimizeForBrowser(_value); + function ReadOrganizeInFolder(); + function WriteOrganizeInFolder(_value); + function ReadPixelsPerInch(); + function WritePixelsPerInch(_value); + function ReadRelyOnCSS(); + function WriteRelyOnCSS(_value); + function ReadRelyOnVML(); + function WriteRelyOnVML(_value); + function ReadScreenSize(); + function WriteScreenSize(_value); + function ReadTargetBrowser(); + function WriteTargetBrowser(_value); + function ReadUseLongFileNames(); + function WriteUseLongFileNames(_value); +end; + +type Window = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function Close(SaveChanges, RouteDocument); + function GetPoint(ScreenPixelsLeft, ScreenPixelsTop, ScreenPixelsWidth, ScreenPixelsHeight, obj); + function LargeScroll(Down, Up, ToRight, ToLeft); + function NewWindow(); + function PageScroll(Down, Up); + function PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight); + function RangeFromPoint(x, y); + function ScrollIntoView(Obj, Start); + function SetFocus(); + function SmallScroll(Down, Up, ToRight, ToLeft); + function ToggleRibbon(); + + // properties + property Active read ReadActive; + property ActivePane read ReadActivePane; + property Caption read ReadCaption write WriteCaption; + property DisplayHorizontalScrollBar read ReadDisplayHorizontalScrollBar write WriteDisplayHorizontalScrollBar; + property DisplayLeftScrollBar read ReadDisplayLeftScrollBar write WriteDisplayLeftScrollBar; + property DisplayRightRuler read ReadDisplayRightRuler write WriteDisplayRightRuler; + property DisplayRulers read ReadDisplayRulers write WriteDisplayRulers; + property DisplayScreenTips read ReadDisplayScreenTips write WriteDisplayScreenTips; + property DisplayVerticalRuler read ReadDisplayVerticalRuler write WriteDisplayVerticalRuler; + property DisplayVerticalScrollBar read ReadDisplayVerticalScrollBar write WriteDisplayVerticalScrollBar; + property Document read ReadDocument; + property DocumentMap read ReadDocumentMap write WriteDocumentMap; + property EnvelopeVisible read ReadEnvelopeVisible write WriteEnvelopeVisible; + property Height read ReadHeight write WriteHeight; + property HorizontalPercentScrolled read ReadHorizontalPercentScrolled write WriteHorizontalPercentScrolled; + property HWnd read ReadHWnd; + property IMEMode read ReadIMEMode write WriteIMEMode; + property Index read ReadIndex; + property Left read ReadLeft write WriteLeft; + property Next read ReadNext; + property Panes read ReadPanes; + property Previous read ReadPrevious; + property Selection read ReadSelection; + property ShowSourceDocuments read ReadShowSourceDocuments write WriteShowSourceDocuments; + property Split read ReadSplit write WriteSplit; + property SplitVertical read ReadSplitVertical write WriteSplitVertical; + property StyleAreaWidth read ReadStyleAreaWidth write WriteStyleAreaWidth; + property Thumbnails read ReadThumbnails; + property Top read ReadTop write WriteTop; + property Type read ReadType; + property UsableHeight read ReadUsableHeight; + property UsableWidth read ReadUsableWidth; + property VerticalPercentScrolled read ReadVerticalPercentScrolled write WriteVerticalPercentScrolled; + property View read ReadView; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property WindowNumber read ReadWindowNumber; + property WindowState read ReadWindowState write WriteWindowState; + function ReadActive(); + function ReadActivePane(); + function ReadCaption(); + function WriteCaption(_value); + function ReadDisplayHorizontalScrollBar(); + function WriteDisplayHorizontalScrollBar(_value); + function ReadDisplayLeftScrollBar(); + function WriteDisplayLeftScrollBar(_value); + function ReadDisplayRightRuler(); + function WriteDisplayRightRuler(_value); + function ReadDisplayRulers(); + function WriteDisplayRulers(_value); + function ReadDisplayScreenTips(); + function WriteDisplayScreenTips(_value); + function ReadDisplayVerticalRuler(); + function WriteDisplayVerticalRuler(_value); + function ReadDisplayVerticalScrollBar(); + function WriteDisplayVerticalScrollBar(_value); + function ReadDocument(); + function ReadDocumentMap(); + function WriteDocumentMap(_value); + function ReadEnvelopeVisible(); + function WriteEnvelopeVisible(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadHorizontalPercentScrolled(); + function WriteHorizontalPercentScrolled(_value); + function ReadHWnd(); + function ReadIMEMode(); + function WriteIMEMode(_value); + function ReadIndex(); + function ReadLeft(); + function WriteLeft(_value); + function ReadNext(); + function ReadPanes(); + function ReadPrevious(); + function ReadSelection(); + function ReadShowSourceDocuments(); + function WriteShowSourceDocuments(_value); + function ReadSplit(); + function WriteSplit(_value); + function ReadSplitVertical(); + function WriteSplitVertical(_value); + function ReadStyleAreaWidth(); + function WriteStyleAreaWidth(_value); + function ReadThumbnails(); + function ReadTop(); + function WriteTop(_value); + function ReadType(); + function ReadUsableHeight(); + function ReadUsableWidth(); + function ReadVerticalPercentScrolled(); + function WriteVerticalPercentScrolled(_value); + function ReadView(); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWindowNumber(); + function ReadWindowState(); + function WriteWindowState(_value); +end; + +type Windows = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Window); + function Arrange(ArrangeStyle); + function BreakSideBySide(); + function CompareSideBySideWith(Document); + function Item(Index); + function ResetPositionsSideBySide(); + + // properties + property Count read ReadCount; + property SyncScrollingSideBySide read ReadSyncScrollingSideBySide write WriteSyncScrollingSideBySide; + function ReadCount(); + function ReadSyncScrollingSideBySide(); + function WriteSyncScrollingSideBySide(_value); +end; + +type Words = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + property First read ReadFirst; + property Last read ReadLast; + function ReadCount(); + function ReadFirst(); + function ReadLast(); +end; + +type WrapFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AllowOverlap read ReadAllowOverlap write WriteAllowOverlap; + property DistanceBottom read ReadDistanceBottom write WriteDistanceBottom; + property DistanceLeft read ReadDistanceLeft write WriteDistanceLeft; + property DistanceRight read ReadDistanceRight write WriteDistanceRight; + property DistanceTop read ReadDistanceTop write WriteDistanceTop; + property Side read ReadSide write WriteSide; + property Type read ReadType write WriteType; + function ReadAllowOverlap(); + function WriteAllowOverlap(_value); + function ReadDistanceBottom(); + function WriteDistanceBottom(_value); + function ReadDistanceLeft(); + function WriteDistanceLeft(_value); + function ReadDistanceRight(); + function WriteDistanceRight(_value); + function ReadDistanceTop(); + function WriteDistanceTop(_value); + function ReadSide(); + function WriteSide(_value); + function ReadType(); + function WriteType(_value); +end; + +type XMLMapping = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function SetMapping(XPath, PrefixMapping, Source); + function SetMappingByNode(Node); + function Add(Path, NamespaceURI, Alias, InstallForAllUsers); + function AttachToDocument(Document); + function Delete(); + function InstallManifest(Path, InstallForAllUsers); + function Item(Index); + function Location(AllUsers); + + // properties + property CustomXMLNode read ReadCustomXMLNode; + property CustomXMLPart read ReadCustomXMLPart; + property IsMapped read ReadIsMapped; + property PrefixMappings read ReadPrefixMappings; + property XPath read ReadXPath; + property Alias read ReadAlias; + property Count read ReadCount; + property DefaultTransform read ReadDefaultTransform; + property URI read ReadURI; + property XSLTransforms read ReadXSLTransforms; + function ReadCustomXMLNode(); + function ReadCustomXMLPart(); + function ReadIsMapped(); + function ReadPrefixMappings(); + function ReadXPath(); + function ReadAlias(); + function ReadCount(); + function ReadDefaultTransform(); + function ReadURI(); + function ReadXSLTransforms(); +end; + +type XMLNode = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function RemoveChild(ChildElement); + function SelectNodes(XPath, PrefixMapping, FastSearchSkippingTextNodes); + function SelectSingleNode(XPath, PrefixMapping, FastSearchSkippingTextNodes); + function SetValidationError(Status, ErrorText, ClearedAutomatically); + function Validate(); + function ValidationErrorText(Advanced); + function XML(DataOnly); + + // properties + property Attributes read ReadAttributes; + property BaseName read ReadBaseName; + property ChildNodes read ReadChildNodes; + property FirstChild read ReadFirstChild; + property HasChildNodes read ReadHasChildNodes; + property LastChild read ReadLastChild; + property Level read ReadLevel; + property NamespaceURI read ReadNamespaceURI; + property NextSibling read ReadNextSibling; + property NodeType read ReadNodeType; + property NodeValue read ReadNodeValue write WriteNodeValue; + property OwnerDocument read ReadOwnerDocument; + property ParentNode read ReadParentNode; + property PlaceholderText read ReadPlaceholderText; + property PreviousSibling read ReadPreviousSibling; + property Range read ReadRange; + property Text read ReadText write WriteText; + property ValidationStatus read ReadValidationStatus; + property WordOpenXML read ReadWordOpenXML; + function ReadAttributes(); + function ReadBaseName(); + function ReadChildNodes(); + function ReadFirstChild(); + function ReadHasChildNodes(); + function ReadLastChild(); + function ReadLevel(); + function ReadNamespaceURI(); + function ReadNextSibling(); + function ReadNodeType(); + function ReadNodeValue(); + function WriteNodeValue(_value); + function ReadOwnerDocument(); + function ReadParentNode(); + function ReadPlaceholderText(); + function ReadPreviousSibling(); + function ReadRange(); + function ReadText(); + function WriteText(_value); + function ReadValidationStatus(); + function ReadWordOpenXML(); +end; + +type XMLNodes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type XMLSchemaReference = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Reload(); + + // properties + property Location read ReadLocation; + property NamespaceURI read ReadNamespaceURI; + function ReadLocation(); + function ReadNamespaceURI(); +end; + +type XMLSchemaReferences = class(VbaBase) +public + function Init(); + +public + // methods + function Add(NamespaceURI, Alias, FileName, InstallForAllUsers); + function Item(Index); + function Validate(); + + // properties + property Count read ReadCount; + property HideValidationErrors read ReadHideValidationErrors write WriteHideValidationErrors; + property IgnoreMixedContent read ReadIgnoreMixedContent write WriteIgnoreMixedContent; + property ShowPlaceholderText read ReadShowPlaceholderText write WriteShowPlaceholderText; + function ReadCount(); + function ReadHideValidationErrors(); + function WriteHideValidationErrors(_value); + function ReadIgnoreMixedContent(); + function WriteIgnoreMixedContent(_value); + function ReadShowPlaceholderText(); + function WriteShowPlaceholderText(_value); +end; + +type XSLTransform = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Location, Alias, InstallForAllUsers); + function Delete(); + function Item(Index); + function Location(AllUsers); + + // properties + property Alias read ReadAlias; + property Count read ReadCount; + property ID read ReadID; + function ReadAlias(); + function ReadCount(); + function ReadID(); +end; + +type Zoom = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property PageColumns read ReadPageColumns write WritePageColumns; + property PageFit read ReadPageFit write WritePageFit; + property PageRows read ReadPageRows write WritePageRows; + property Percentage read ReadPercentage write WritePercentage; + function ReadPageColumns(); + function WritePageColumns(_value); + function ReadPageFit(); + function WritePageFit(_value); + function ReadPageRows(); + function WritePageRows(_value); + function ReadPercentage(); + function WritePercentage(_value); +end; + +implementation + +// ============== Application实现 ================= // +function Application.Create(); +begin + class(VbaBase).Create(self, self, random(100000000)); + {self.}Init(); +end; + +function Application.Init(); +begin + documents_ := new Documents(self, {self.}Application, {self.}Creator); + documents_.Init(); +end; + +// properties +function Application.ReadDocuments(index: string_or_integer); +begin + return ifnil(index) ? documents_ : documents_.Item(index); +end; + +// ============== Document实现 ================= // +function Document.Init(components: DocxComponents; collection: Collection; full_name: string); +begin + components_ := components; + collection_ := collection; + full_name_ := full_name; + file_name_ := extractFileName(full_name); + document_ := components_.Document; + document_.Deserialize(); + + tables_ := nil; + paragraphs_ := nil; +end; + +// methods +function Document.Activate(); +begin + collection_.SetActivation(extractFileName(full_name_)); +end; + +function Document.Close(SaveChanges: WdSaveOptions; OriginalFormat: WdOriginalFormat; RouteDocxDocument: boolean); +begin + if ifnil(SaveChanges) then SaveChanges := DocxEnumerations.wdDoNotSaveChanges; + case SaveChanges of + DocxEnumerations.wdDoNotSaveChanges: + begin + collection_.RemoveCollection(file_name_); + end + DocxEnumerations.wdPromptToSaveChanges: + begin + write("Save changes(yes/no):"); + r := read(0, "*"); + if r = "yes" then {self.}Close(DocxEnumerations.wdSaveChanges); + else if r = "no" then {self.}Close(DocxEnumerations.wdDoNotSaveChanges); + end + DocxEnumerations.wdSaveChanges: + begin + [err, msg] := components_.Save(); + if not err then collection_.RemoveCollection(file_name_); + end + end; +end; + +function Document.Save(); +begin + components_.Save(); +end; + +function Document.SaveAs2(FileName: string; FileFormat: WdSaveFormat; LockComments: boolean = false; Password: string; AddToRecentFiles: boolean = true; WritePassword: string; + ReadOnlyRecommended: boolean = false; EmbedTrueTypeFonts: boolean; SaveNativePictureFormat: boolean; SaveFormsData: boolean; + SaveAsAOCELetter: boolean; Encoding: MsoEncoding; InsertLineBreaks: boolean; AllowSubstitutions: boolean = false; + Lineending: WdLineEndingType = DocxEnumerations.wdCRLF; AddBiDiMarks: boolean; CompatibilityMode: WdCompatibilityMode); +begin + components_.SetPassword(Password); + components_.SaveAs("", FileName); +end; + +function Document.Range(Start, _End): Range; +begin + // Range[0, 1) 左开右闭 +end; + +// properties +function Document.ReadFullName(); +begin + return full_name_; +end; + +function Document.ReadName(); +begin + return file_name_; +end; + +function Document.WritePassword(_value: string); +begin + components_.Zip().SetPassword(_value); +end; + +function Document.ReadPath(); +begin + return extractFileDir(full_name_); +end; + +function Document.ReadTables(index: integer); +begin + if ifnil(tables_) then + begin + tables_ := new Tables(self, {self.}Application, {self.}Creator); + tables_.Init(components_); + end + return ifInt(index) or ifInt64(index) ? tables_ : tables_.Item(index); +end; + +function Document.ReadParagraphs(index: integer); +begin + if ifnil(paragraphs_) then + begin + paragraphs_ := new Paragraphs(self, {self.}Application, {self.}Creator); + paragraphs_.Init(components_); + end + return ifInt(index) or ifInt64(index) ? paragraphs_ : paragraphs_.Item(index); +end; + +function Document.ReadTablesOfContents(); +begin +end; + +function Document.ReadInlineShapes(); +begin + if ifnil(tables_) then + begin + tables_ := new Tables(self, {self.}Application, {self.}Creator); + tables_.Init(components_); + end + return ifInt(index) or ifInt64(index) ? tables_ : tables_.Item(index); +end; + +function Documents.Init(); +begin + collection_ := new Collection(); +end; + +// ============== Documents实现 ================= // +function Documents.AddDocument(components: DocxComponents; full_name: string): Document; +begin + name := extractFileName(full_name); + document := new Document(self, {self.}Application, {self.}Creator); + document.Init(components, collection_, full_name); + collection_.AddCollection(document, name); + return document; +end; + +function Operator Documents.[](index: string_or_integer): Document; +begin + return {self.}Item(index); +end; + +function Documents.GetActivation(): Document; +begin + return collection_.GetActivation(); +end; + +// methods +function Documents.Add(Template, NewTemplate, DocumentType, Visible): Document; +begin + components := new DocxComponents(); + components.NewFile(); + return AddDocument(components, collection_.CalNewName("文档")); +end; + +function Documents.Close(SaveChanges, OriginalFormat, RouteDocument); +begin + for i:=1 to {self.}Count do + {self.}Item(i).Close(SaveChanges, OriginalFormat, RouteDocument); +end; + +function Documents.Item(Index: string_or_integer): Document; +begin + return collection_[index]; +end; + +function Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, + PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, + Encoding, Visible, OpenConflictDocument, OpenAndRepair, DocumentDirection, NoEncodingDialog); +begin + components := new DocxComponents(); + [err, msg] := components.Open("", FileName, PasswordDocument); + if err then raise "open docx file error!"; + return {self.}AddDocument(components, comments.Zip().FileName()); +end; + +function Documents.Save(NoPrompt, OriginalFormat); +begin + for i:=1 to {self.}Count do + {self.}Item(i).Save(); +end; + +// properties +function Documents.ReadCount(); +begin + return collection_.GetCount(); +end; + +// ============== Paragraph实现 ================= // +function Paragraph.Init(components: DocxComponents; p: P; index: integer); +begin + components_ := components; + p_ := p; + index_ := index; +end; + +// methods +function Paragraph.Next(Count: integer); +begin + return {self.}Parent.Item(index_ + Count) +end; + +function Paragraph.Previous(Count: integer); +begin + return {self.}Parent.Item(index_ - Count); +end; + +// properties +function Paragraph.ReadRange(); +begin +end; + +function Paragraph.ReadFormat(); +begin + return self; +end; + +function Paragraph.WriteFormat(_value); +begin +end; + +// ============== Paragraphs实现 ================= // +function Paragraphs.Init(components: DocxComponents); +begin + components_ := components; + paragraphs_ := array(); + elements := components_.Document.Elements(); + {self.}InitParagraphs(elements); +end; + +function Paragraphs.InitParagraphs(elements: array of OpenXmlElement); +begin + for i,element in elements do + begin + if element.ElementName = "w:p" then + begin + obj := new Paragraph(self, {self.}Application, {self.}Creator); + obj.Init(components_, element, i+1); + paragraphs_[length(paragraphs_)] := obj; + end + else if element.ElementName = "w:tbl" then + begin + trs := element.Trs(); + for _,tr in trs do + begin + tcs := tr.Tcs(); + for _,tc in tcs do + InitPs(tc.Elements()); + end + end + end +end + +function Operator Paragraphs.[](index: integer); +begin + return {self.}Item(index); +end; + +// methods +function Paragraphs.Add(Range); +begin +end; + +function Paragraphs.Item(Index: integer); +begin + return paragraphs_[Index - 1]; +end; + +function Paragraphs.ReadCount(); +begin + return length(paragraphs_); +end; + +function Paragraphs.ReadFirst(); +begin + return {self.}Item(1); +end; + +function Paragraphs.ReadLast(); +begin + return {self.}Item({self.}Count); +end; + +end. diff --git a/openxml/OpenXmlAttribute.tsf b/openxml/OpenXmlAttribute.tsf index 7c86233..0380da5 100644 --- a/openxml/OpenXmlAttribute.tsf +++ b/openxml/OpenXmlAttribute.tsf @@ -3,11 +3,16 @@ public function Create(_prefix: string; _local_name: string);overload; function Create(_prefix: string; _local_name: string; _value: any);overload; + property NamespaceUri read Value write Value; + public LocalName: string; Prefix: string; ElementName: string; Value: any; + +protected + namespace_uri_: string; end; function OpenXmlAttribute.Create(_prefix: string; _local_name: string);overload; diff --git a/openxml/OpenXmlElement.tsf b/openxml/OpenXmlElement.tsf index 00fbbc8..b8ea433 100644 --- a/openxml/OpenXmlElement.tsf +++ b/openxml/OpenXmlElement.tsf @@ -13,8 +13,8 @@ public function GetNode(): XmlNode; function Elements(): array of tslobj; function Attributes(): array of OpenXmlAttribute; + function Xmlns(_prefix: string): string; - // 增删改查接口 -- 暂不实现 public function AppendChild(_obj: tslobj); // OpenXmlElement or OpenXmlPcdata function InsertAfter(_obj: tslobj; _pos_obj: tslobj); @@ -36,6 +36,7 @@ protected // child_elements_: array of tslobj; // 子节点元素 sorted_child_: tableArray; container_: TSOfficeContainer; + xmlns_: tableArray; end; function OpenXmlElement.Create(_node: XmlNode);overload; @@ -45,6 +46,7 @@ begin if pos then {self.}Create(nil, node_name[:pos-1], node_name[pos+1:]); else {self.}Create(nil, nil, node_name); {self.}InitNode(_node); + xmlns_ := array(); end; function OpenXmlElement.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; @@ -55,6 +57,7 @@ begin {self.}XmlNode := nil; {self.}ElementName := ifString({self.}Prefix) and {self.}Prefix <> "" ? format("%s:%s", {self.}Prefix, {self.}LocalName) : {self.}LocalName; {self.}Init(); + xmlns_ := array(); end; function OpenXmlElement.InitNode(_node: XmlNode);virtual; @@ -109,6 +112,12 @@ begin attrs := {self.}XmlNode.Attributes(); for k, v in attrs do begin + pos := pos("xmlns", k); + if pos then + begin + xmlns_[k] := k = "xmlns" ? new OpenXmlAttribute("", "xmlns", v) : new OpenXmlattribute("xmlns", k[pos+6:], v); + continue; + end pf := attributes_pf_[k]; if ifnil(pf) then continue; pf.Do(v); @@ -120,6 +129,9 @@ end; function OpenXmlElement.Serialize(); begin + // xmlns + for k, v in xmlns_ do + {self.}GetNode().SetAttribute(v.ElementName, v.Value); // Attributes for k, v in attributes_ do if not ifnil(v.Value) then {self.}GetNode().SetAttribute(v.ElementName, v.Value); @@ -162,6 +174,17 @@ begin return tmp_arr; end; +function OpenXmlElement.Xmlns(_prefix: string): string; +begin + k := ifnil(_prefix) ? "xmlns" : "xmlns:" + _prefix; + if tslassigning then + begin + if ifnil(xmlns_[k]) then + xmlns_[k] := ifnil(_prefix) ? new OpenXmlAttribute("", "xmlns", nil) : new OpenXmlAttribute("xmlns", _prefix, nil); + end + return xmlns_[k]; +end; + function OpenXmlElement.Elements(): array of tslobj; begin return container_.Get(); diff --git a/pptx/Components@PPTX.tsf b/pptx/PptxComponents.tsf similarity index 85% rename from pptx/Components@PPTX.tsf rename to pptx/PptxComponents.tsf index 59edd8b..4868b88 100644 --- a/pptx/Components@PPTX.tsf +++ b/pptx/PptxComponents.tsf @@ -1,4 +1,4 @@ -type Components = class(TSComponentsBase) +type PptxComponents = class(TSComponentsBase) public function Create(); function Init();override; @@ -58,15 +58,14 @@ private table_styles_: TblStyleLst; view_props_: ViewPr; content_types_: Types; - end; -function Components.Create(); +function PptxComponents.Create(); begin Class(TSComponentsBase).Create(); end; -function Components.Init();override; +function PptxComponents.Init();override; begin conf_ := array ( @@ -105,7 +104,7 @@ begin content_types_ := nil; end; -function Components.NewObject(_name: string): tslobj;override; +function PptxComponents.NewObject(_name: string): tslobj;override; begin case _name of "rels", "presentation_rels", "slide_layout_rels", "slide_master_rels", "slide_rels": @@ -135,82 +134,82 @@ begin end; end; -function Components.ReadRels(); +function PptxComponents.ReadRels(); begin return {self.}SetProp(rels_, "rels"); end; -function Components.ReadApp(); +function PptxComponents.ReadApp(); begin return {self.}SetProp(app_, "app"); end; -function Components.ReadCore(); +function PptxComponents.ReadCore(); begin return {self.}SetProp(core_, "core"); end; -function Components.ReadPresentationRels(); +function PptxComponents.ReadPresentationRels(); begin return {self.}SetProp(presentation_rels_, "presentation_rels"); end; -function Components.ReadSlideLayouts(_index: integer); +function PptxComponents.ReadSlideLayouts(_index: integer); begin return {self.}SetPropArr(slide_layout_array_, "slide_layout", _index); end; -function Components.ReadSlideLayoutRels(_index: integer); +function PptxComponents.ReadSlideLayoutRels(_index: integer); begin return {self.}SetPropArr(slide_layout_rels_array_, "slide_layout_rels", _index); end; -function Components.ReadSlideMasters(_index: integer); +function PptxComponents.ReadSlideMasters(_index: integer); begin return {self.}SetPropArr(slide_master_array_, "slide_master", _index); end; -function Components.ReadSlideMasterRels(_index: integer); +function PptxComponents.ReadSlideMasterRels(_index: integer); begin return {self.}SetPropArr(slide_master_rels_array_, "slide_master_rels", _index); end; -function Components.ReadSlides(_index: integer); +function PptxComponents.ReadSlides(_index: integer); begin return {self.}SetPropArr(slide_array_, "slide", _index); end; -function Components.ReadSlideRels(_index: integer); +function PptxComponents.ReadSlideRels(_index: integer); begin return {self.}SetPropArr(slide_rels_array_, "slide_rels", _index); end; -function Components.ReadThemes(_index: integer); +function PptxComponents.ReadThemes(_index: integer); begin return {self.}SetPropArr(theme_array_, "theme", _index); end; -function Components.ReadPresentation(); +function PptxComponents.ReadPresentation(); begin return {self.}SetProp(presentation_, "presentation"); end; -function Components.ReadPresProps(); +function PptxComponents.ReadPresProps(); begin return {self.}SetProp(pres_props_, "pres_props"); end; -function Components.ReadTableStyles(); +function PptxComponents.ReadTableStyles(); begin return {self.}SetProp(table_styles_, "table_styles"); end; -function Components.ReadViewProps(); +function PptxComponents.ReadViewProps(); begin return {self.}SetProp(view_props_, "view_props"); end; -function Components.ReadContentTypes(); +function PptxComponents.ReadContentTypes(); begin return {self.}SetProp(content_types_, "content_types"); end; diff --git a/pptx/PptxEnumerations.tsf b/pptx/PptxEnumerations.tsf new file mode 100644 index 0000000..9fb2590 --- /dev/null +++ b/pptx/PptxEnumerations.tsf @@ -0,0 +1,7539 @@ +unit PptxEnumerations; +interface + + // MsoAnimAccumulate + function msoAnimAccumulateAlways(); + function msoAnimAccumulateNone(); + + // MsoAnimAdditive + function msoAnimAdditiveAddBase(); + function msoAnimAdditiveAddSum(); + + // MsoAnimAfterEffect + function msoAnimAfterEffectDim(); + function msoAnimAfterEffectHide(); + function msoAnimAfterEffectHideOnNextClick(); + function msoAnimAfterEffectMixed(); + function msoAnimAfterEffectNone(); + + // MsoAnimateByLevel + function msoAnimateChartAllAtOnce(); + function msoAnimateChartByCategory(); + function msoAnimateChartByCategoryElements(); + function msoAnimateChartBySeries(); + function msoAnimateChartBySeriesElements(); + function msoAnimateDiagramAllAtOnce(); + function msoAnimateDiagramBreadthByLevel(); + function msoAnimateDiagramBreadthByNode(); + function msoAnimateDiagramClockwise(); + function msoAnimateDiagramClockwiseIn(); + function msoAnimateDiagramClockwiseOut(); + function msoAnimateDiagramCounterClockwise(); + function msoAnimateDiagramCounterClockwiseIn(); + function msoAnimateDiagramCounterClockwiseOut(); + function msoAnimateDiagramDepthByBranch(); + function msoAnimateDiagramDepthByNode(); + function msoAnimateDiagramDown(); + function msoAnimateDiagramInByRing(); + function msoAnimateDiagramOutByRing(); + function msoAnimateDiagramUp(); + function msoAnimateLevelMixed(); + function msoAnimateLevelNone(); + function msoAnimateTextByAllLevels(); + function msoAnimateTextByFifthLevel(); + function msoAnimateTextByFirstLevel(); + function msoAnimateTextByFourthLevel(); + function msoAnimateTextBySecondLevel(); + function msoAnimateTextByThirdLevel(); + + // MsoAnimCommandType + function msoAnimCommandTypeCall(); + function msoAnimCommandTypeEvent(); + function msoAnimCommandTypeVerb(); + + // MsoAnimDirection + function msoAnimDirectionAcross(); + function msoAnimDirectionBottom(); + function msoAnimDirectionBottomLeft(); + function msoAnimDirectionBottomRight(); + function msoAnimDirectionCenter(); + function msoAnimDirectionClockwise(); + function msoAnimDirectionCounterclockwise(); + function msoAnimDirectionCycleClockwise(); + function msoAnimDirectionCycleCounterclockwise(); + function msoAnimDirectionDown(); + function msoAnimDirectionDownLeft(); + function msoAnimDirectionDownRight(); + function msoAnimDirectionFontAllCaps(); + function msoAnimDirectionFontBold(); + function msoAnimDirectionFontItalic(); + function msoAnimDirectionFontShadow(); + function msoAnimDirectionFontStrikethrough(); + function msoAnimDirectionFontUnderline(); + function msoAnimDirectionGradual(); + function msoAnimDirectionHorizontal(); + function msoAnimDirectionHorizontalIn(); + function msoAnimDirectionHorizontalOut(); + function msoAnimDirectionIn(); + function msoAnimDirectionInBottom(); + function msoAnimDirectionInCenter(); + function msoAnimDirectionInSlightly(); + function msoAnimDirectionInstant(); + function msoAnimDirectionLeft(); + function msoAnimDirectionNone(); + function msoAnimDirectionOrdinalMask(); + function msoAnimDirectionOut(); + function msoAnimDirectionOutBottom(); + function msoAnimDirectionOutCenter(); + function msoAnimDirectionOutSlightly(); + function msoAnimDirectionRight(); + function msoAnimDirectionSlightly(); + function msoAnimDirectionTop(); + function msoAnimDirectionTopLeft(); + function msoAnimDirectionTopRight(); + function msoAnimDirectionUp(); + function msoAnimDirectionUpLeft(); + function msoAnimDirectionUpRight(); + function msoAnimDirectionVertical(); + function msoAnimDirectionVerticalIn(); + function msoAnimDirectionVerticalOut(); + + // MsoAnimEffect + function msoAnimEffectAppear(); + function msoAnimEffectArcUp(); + function msoAnimEffectAscend(); + function msoAnimEffectBlast(); + function msoAnimEffectBlinds(); + function msoAnimEffectBoldFlash(); + function msoAnimEffectBoldReveal(); + function msoAnimEffectBoomerang(); + function msoAnimEffectBounce(); + function msoAnimEffectBox(); + function msoAnimEffectBrushOnColor(); + function msoAnimEffectBrushOnUnderline(); + function msoAnimEffectCenterRevolve(); + function msoAnimEffectChangeFillColor(); + function msoAnimEffectChangeFont(); + function msoAnimEffectChangeFontColor(); + function msoAnimEffectChangeFontSize(); + function msoAnimEffectChangeFontStyle(); + function msoAnimEffectChangeLineColor(); + function msoAnimEffectCheckerboard(); + function msoAnimEffectCircle(); + function msoAnimEffectColorBlend(); + function msoAnimEffectColorReveal(); + function msoAnimEffectColorWave(); + function msoAnimEffectComplementaryColor(); + function msoAnimEffectComplementaryColor2(); + function msoAnimEffectContrastingColor(); + function msoAnimEffectCrawl(); + function msoAnimEffectCredits(); + function msoAnimEffectCustom(); + function msoAnimEffectDarken(); + function msoAnimEffectDesaturate(); + function msoAnimEffectDescend(); + function msoAnimEffectDiamond(); + function msoAnimEffectDissolve(); + function msoAnimEffectEaseIn(); + function msoAnimEffectExpand(); + function msoAnimEffectFade(); + function msoAnimEffectFadedSwivel(); + function msoAnimEffectFadedZoom(); + function msoAnimEffectFlashBulb(); + function msoAnimEffectFlashOnce(); + function msoAnimEffectFlicker(); + function msoAnimEffectFlip(); + function msoAnimEffectFloat(); + function msoAnimEffectFly(); + function msoAnimEffectFold(); + function msoAnimEffectGlide(); + function msoAnimEffectGrowAndTurn(); + function msoAnimEffectGrowShrink(); + function msoAnimEffectGrowWithColor(); + function msoAnimEffectLighten(); + function msoAnimEffectLightSpeed(); + function msoAnimEffectMediaPause(); + function msoAnimEffectMediaPlay(); + function msoAnimEffectMediaStop(); + function msoAnimEffectPath4PointStar(); + function msoAnimEffectPath5PointStar(); + function msoAnimEffectPath6PointStar(); + function msoAnimEffectPath8PointStar(); + function msoAnimEffectPathArcDown(); + function msoAnimEffectPathArcLeft(); + function msoAnimEffectPathArcRight(); + function msoAnimEffectPathArcUp(); + function msoAnimEffectPathBean(); + function msoAnimEffectPathBounceLeft(); + function msoAnimEffectPathBounceRight(); + function msoAnimEffectPathBuzzsaw(); + function msoAnimEffectPathCircle(); + function msoAnimEffectPathCrescentMoon(); + function msoAnimEffectPathCurvedSquare(); + function msoAnimEffectPathCurvedX(); + function msoAnimEffectPathCurvyLeft(); + function msoAnimEffectPathCurvyRight(); + function msoAnimEffectPathCurvyStar(); + function msoAnimEffectPathDecayingWave(); + function msoAnimEffectPathDiagonalDownRight(); + function msoAnimEffectPathDiagonalUpRight(); + function msoAnimEffectPathDiamond(); + function msoAnimEffectPathDown(); + function msoAnimEffectPathEqualTriangle(); + function msoAnimEffectPathFigure8Four(); + function msoAnimEffectPathFootball(); + function msoAnimEffectPathFunnel(); + function msoAnimEffectPathHeart(); + function msoAnimEffectPathHeartbeat(); + function msoAnimEffectPathHexagon(); + function msoAnimEffectPathHorizontalFigure8(); + function msoAnimEffectPathInvertedSquare(); + function msoAnimEffectPathInvertedTriangle(); + function msoAnimEffectPathLeft(); + function msoAnimEffectPathLoopdeLoop(); + function msoAnimEffectPathNeutron(); + function msoAnimEffectPathOctagon(); + function msoAnimEffectPathParallelogram(); + function msoAnimEffectPathPeanut(); + function msoAnimEffectPathPentagon(); + function msoAnimEffectPathPlus(); + function msoAnimEffectPathPointyStar(); + function msoAnimEffectPathRight(); + function msoAnimEffectPathRightTriangle(); + function msoAnimEffectPathSCurve1(); + function msoAnimEffectPathSCurve2(); + function msoAnimEffectPathSineWave(); + function msoAnimEffectPathSpiralLeft(); + function msoAnimEffectPathSpiralRight(); + function msoAnimEffectPathSpring(); + function msoAnimEffectPathSquare(); + function msoAnimEffectPathStairsDown(); + function msoAnimEffectPathSwoosh(); + function msoAnimEffectPathTeardrop(); + function msoAnimEffectPathTrapezoid(); + function msoAnimEffectPathTurnDown(); + function msoAnimEffectPathTurnRight(); + function msoAnimEffectPathTurnUp(); + function msoAnimEffectPathTurnUpRight(); + function msoAnimEffectPathUp(); + function msoAnimEffectPathVerticalFigure8(); + function msoAnimEffectPathWave(); + function msoAnimEffectPathZigzag(); + function msoAnimEffectPeek(); + function msoAnimEffectPinwheel(); + function msoAnimEffectPlus(); + function msoAnimEffectRandomBars(); + function msoAnimEffectRandomEffects(); + function msoAnimEffectRiseUp(); + function msoAnimEffectShimmer(); + function msoAnimEffectSling(); + function msoAnimEffectSpin(); + function msoAnimEffectSpinner(); + function msoAnimEffectSpiral(); + function msoAnimEffectSplit(); + function msoAnimEffectStretch(); + function msoAnimEffectStretchy(); + function msoAnimEffectStrips(); + function msoAnimEffectStyleEmphasis(); + function msoAnimEffectSwish(); + function msoAnimEffectSwivel(); + function msoAnimEffectTeeter(); + function msoAnimEffectThinLine(); + function msoAnimEffectTransparency(); + function msoAnimEffectUnfold(); + function msoAnimEffectVerticalGrow(); + function msoAnimEffectWave(); + function msoAnimEffectWedge(); + function msoAnimEffectWheel(); + function msoAnimEffectWhip(); + function msoAnimEffectWipe(); + function msoAnimEffectZip(); + function msoAnimEffectZoom(); + + // MsoAnimEffectAfter + function msoAnimEffectAfterFreeze(); + function msoAnimEffectAfterHold(); + function msoAnimEffectAfterRemove(); + function msoAnimEffectAfterTransition(); + + // MsoAnimEffectRestart + function msoAnimEffectRestartAlways(); + function msoAnimEffectRestartNever(); + function msoAnimEffectRestartWhenOff(); + + // MsoAnimFilterEffectSubtype + function msoAnimFilterEffectSubtypeAcross(); + function msoAnimFilterEffectSubtypeDown(); + function msoAnimFilterEffectSubtypeDownLeft(); + function msoAnimFilterEffectSubtypeDownRight(); + function msoAnimFilterEffectSubtypeFromBottom(); + function msoAnimFilterEffectSubtypeFromLeft(); + function msoAnimFilterEffectSubtypeFromRight(); + function msoAnimFilterEffectSubtypeFromTop(); + function msoAnimFilterEffectSubtypeHorizontal(); + function msoAnimFilterEffectSubtypeIn(); + function msoAnimFilterEffectSubtypeInHorizontal(); + function msoAnimFilterEffectSubtypeInVertical(); + function msoAnimFilterEffectSubtypeLeft(); + function msoAnimFilterEffectSubtypeNone(); + function msoAnimFilterEffectSubtypeOut(); + function msoAnimFilterEffectSubtypeOutHorizontal(); + function msoAnimFilterEffectSubtypeOutVertical(); + function msoAnimFilterEffectSubtypeRight(); + function msoAnimFilterEffectSubtypeSpokes1(); + function msoAnimFilterEffectSubtypeSpokes2(); + function msoAnimFilterEffectSubtypeSpokes3(); + function msoAnimFilterEffectSubtypeSpokes4(); + function msoAnimFilterEffectSubtypeSpokes8(); + function msoAnimFilterEffectSubtypeUp(); + function msoAnimFilterEffectSubtypeUpLeft(); + function msoAnimFilterEffectSubtypeUpRight(); + function msoAnimFilterEffectSubtypeVertical(); + + // MsoAnimFilterEffectType + function msoAnimFilterEffectTypeBarn(); + function msoAnimFilterEffectTypeBlinds(); + function msoAnimFilterEffectTypeBox(); + function msoAnimFilterEffectTypeCheckerboard(); + function msoAnimFilterEffectTypeCircle(); + function msoAnimFilterEffectTypeDiamond(); + function msoAnimFilterEffectTypeDissolve(); + function msoAnimFilterEffectTypeFade(); + function msoAnimFilterEffectTypeImage(); + function msoAnimFilterEffectTypeNone(); + function msoAnimFilterEffectTypePixelate(); + function msoAnimFilterEffectTypePlus(); + function msoAnimFilterEffectTypeRandomBar(); + function msoAnimFilterEffectTypeSlide(); + function msoAnimFilterEffectTypeStretch(); + function msoAnimFilterEffectTypeStrips(); + function msoAnimFilterEffectTypeWedge(); + function msoAnimFilterEffectTypeWheel(); + function msoAnimFilterEffectTypeWipe(); + + // MsoAnimProperty + function msoAnimColor(); + function msoAnimHeight(); + function msoAnimNone(); + function msoAnimOpacity(); + function msoAnimRotation(); + function msoAnimShapeFillBackColor(); + function msoAnimShapeFillColor(); + function msoAnimShapeFillOn(); + function msoAnimShapeFillOpacity(); + function msoAnimShapeLineColor(); + function msoAnimShapeLineOn(); + function msoAnimShapePictureBrightness(); + function msoAnimShapePictureContrast(); + function msoAnimShapePictureGamma(); + function msoAnimShapePictureGrayscale(); + function msoAnimShapeShadowColor(); + function msoAnimShapeShadowOffsetX(); + function msoAnimShapeShadowOffsetY(); + function msoAnimShapeShadowOn(); + function msoAnimShapeShadowOpacity(); + function msoAnimShapeShadowType(); + function msoAnimTextBulletCharacter(); + function msoAnimTextBulletColor(); + function msoAnimTextBulletFontName(); + function msoAnimTextBulletNumber(); + function msoAnimTextBulletRelativeSize(); + function msoAnimTextBulletStyle(); + function msoAnimTextBulletType(); + function msoAnimTextFontBold(); + function msoAnimTextFontColor(); + function msoAnimTextFontEmboss(); + function msoAnimTextFontItalic(); + function msoAnimTextFontName(); + function msoAnimTextFontShadow(); + function msoAnimTextFontSize(); + function msoAnimTextFontStrikeThrough(); + function msoAnimTextFontSubscript(); + function msoAnimTextFontSuperscript(); + function msoAnimTextFontUnderline(); + function msoAnimVisibility(); + function msoAnimWidth(); + function msoAnimX(); + function msoAnimY(); + + // MsoAnimTextUnitEffect + function msoAnimTextUnitEffectByCharacter(); + function msoAnimTextUnitEffectByParagraph(); + function msoAnimTextUnitEffectByWord(); + function msoAnimTextUnitEffectMixed(); + + // MsoAnimTriggerType + function msoAnimTriggerAfterPrevious(); + function msoAnimTriggerMixed(); + function msoAnimTriggerNone(); + function msoAnimTriggerOnPageClick(); + function msoAnimTriggerOnShapeClick(); + function msoAnimTriggerWithPrevious(); + function msoAnimTriggerOnMediaBookmark(); + + // MsoAnimType + function msoAnimTypeColor(); + function msoAnimTypeCommand(); + function msoAnimTypeFilter(); + function msoAnimTypeMixed(); + function msoAnimTypeMotion(); + function msoAnimTypeNone(); + function msoAnimTypeProperty(); + function msoAnimTypeRotation(); + function msoAnimTypeScale(); + function msoAnimTypeSet(); + + // MsoClickState + function msoClickStateAfterAllAnimations(); + function msoClickStateBeforeAutomaticAnimations(); + + // PpActionType + function ppActionEndShow(); + function ppActionFirstSlide(); + function ppActionHyperlink(); + function ppActionLastSlide(); + function ppActionLastSlideViewed(); + function ppActionMixed(); + function ppActionNamedSlideShow(); + function ppActionNextSlide(); + function ppActionNone(); + function ppActionOLEVerb(); + function ppActionPlay(); + function ppActionPreviousSlide(); + function ppActionRunMacro(); + function ppActionRunProgram(); + + // PpAdvanceMode + function ppAdvanceModeMixed(); + function ppAdvanceOnClick(); + function ppAdvanceOnTime(); + + // PpAfterEffect + function ppAfterEffectDim(); + function ppAfterEffectHide(); + function ppAfterEffectHideOnClick(); + function ppAfterEffectMixed(); + function ppAfterEffectNothing(); + + // PpAlertLevel + function ppAlertsAll(); + function ppAlertsNone(); + + // PpArrangeStyle + function ppArrangeCascade(); + function ppArrangeTiled(); + + // PpAutoSize + function ppAutoSizeMixed(); + function ppAutoSizeNone(); + function ppAutoSizeShapeToFitText(); + + // PpBaselineAlignment + function ppBaselineAlignBaseline(); + function ppBaselineAlignCenter(); + function ppBaselineAlignFarEast50(); + function ppBaselineAlignMixed(); + function ppBaselineAlignTop(); + + // PpBorderType + function ppBorderBottom(); + function ppBorderDiagonalDown(); + function ppBorderDiagonalUp(); + function ppBorderLeft(); + function ppBorderRight(); + function ppBorderTop(); + + // PpBulletType + function ppBulletMixed(); + function ppBulletNone(); + function ppBulletNumbered(); + function ppBulletPicture(); + function ppBulletUnnumbered(); + + // PpChangeCase + function ppCaseLower(); + function ppCaseSentence(); + function ppCaseTitle(); + function ppCaseToggle(); + function ppCaseUpper(); + + // PpChartUnitEffect + function ppAnimateByCategory(); + function ppAnimateByCategoryElements(); + function ppAnimateBySeries(); + function ppAnimateBySeriesElements(); + function ppAnimateChartAllAtOnce(); + function ppAnimateChartMixed(); + + // PpCheckInVersionType + function ppCheckInMajorVersion(); + function ppCheckInMinorVersion(); + function ppCheckInOverwriteVersion(); + + // PpColorSchemeIndex + function ppAccent1(); + function ppAccent2(); + function ppAccent3(); + function ppBackground(); + function ppFill(); + function ppForeground(); + function ppNotSchemeColor(); + function ppSchemeColorMixed(); + function ppShadow(); + function ppTitle(); + + // PpDateTimeFormat + function ppDateTimeddddMMMMddyyyy(); + function ppDateTimedMMMMyyyy(); + function ppDateTimedMMMyy(); + function ppDateTimeFigureOut(); + function ppDateTimeFormatMixed(); + function ppDateTimeHmm(); + function ppDateTimehmmAMPM(); + function ppDateTimeHmmss(); + function ppDateTimehmmssAMPM(); + function ppDateTimeMdyy(); + function ppDateTimeMMddyyHmm(); + function ppDateTimeMMddyyhmmAMPM(); + function ppDateTimeMMMMdyyyy(); + function ppDateTimeMMMMyy(); + function ppDateTimeMMyy(); + function ppDateTimeUAQ1(); + function ppDateTimeUAQ2(); + function ppDateTimeUAQ3(); + function ppDateTimeUAQ4(); + function ppDateTimeUAQ5(); + function ppDateTimeUAQ6(); + function ppDateTimeUAQ7(); + + // PpDirection + function ppDirectionLeftToRight(); + function ppDirectionMixed(); + function ppDirectionRightToLeft(); + + // PpEntryEffect + function ppEffectAppear(); + function ppEffectBlindsHorizontal(); + function ppEffectBlindsVertical(); + function ppEffectBoxDown(); + function ppEffectBoxIn(); + function ppEffectBoxLeft(); + function ppEffectBoxOut(); + function ppEffectBoxRight(); + function ppEffectBoxUp(); + function ppEffectCheckerboardAcross(); + function ppEffectCheckerboardDown(); + function ppEffectCircleOut(); + function ppEffectCombHorizontal(); + function ppEffectCombVertical(); + function ppEffectConveyorLeft(); + function ppEffectConveyorRight(); + function ppEffectCoverDown(); + function ppEffectCoverLeft(); + function ppEffectCoverLeftDown(); + function ppEffectCoverLeftUp(); + function ppEffectCoverRight(); + function ppEffectCoverRightDown(); + function ppEffectCoverRightUp(); + function ppEffectCoverUp(); + function ppEffectCrawlFromDown(); + function ppEffectCrawlFromLeft(); + function ppEffectCrawlFromRight(); + function ppEffectCrawlFromUp(); + function ppEffectCubeDown(); + function ppEffectCubeLeft(); + function ppEffectCubeRight(); + function ppEffectCubeUp(); + function ppEffectCut(); + function ppEffectCutThroughBlack(); + function ppEffectDiamondOut(); + function ppEffectDissolve(); + function ppEffectDoorsHorizontal(); + function ppEffectDoorsVertical(); + function ppEffectFade(); + function ppEffectFadeSmoothly(); + function ppEffectFerrisWheelLeft(); + function ppEffectFerrisWheelRight(); + function ppEffectFlashbulb(); + function ppEffectFlashOnceFast(); + function ppEffectFlashOnceMedium(); + function ppEffectFlashOnceSlow(); + function ppEffectFlipDown(); + function ppEffectFlipLeft(); + function ppEffectFlipRight(); + function ppEffectFlipUp(); + function ppEffectFlyFromBottom(); + function ppEffectFlyFromBottomLeft(); + function ppEffectFlyFromBottomRight(); + function ppEffectFlyFromLeft(); + function ppEffectFlyFromRight(); + function ppEffectFlyFromTop(); + function ppEffectFlyFromTopLeft(); + function ppEffectFlyFromTopRight(); + function ppEffectFlyThroughIn(); + function ppEffectFlyThroughInBounce(); + function ppEffectFlyThroughOut(); + function ppEffectFlyThroughOutBounce(); + function ppEffectGalleryLeft(); + function ppEffectGalleryRight(); + function ppEffectGlitterDiamondDown(); + function ppEffectGlitterDiamondLeft(); + function ppEffectGlitterDiamondRight(); + function ppEffectGlitterDiamondUp(); + function ppEffectGlitterHexagonDown(); + function ppEffectGlitterHexagonLeft(); + function ppEffectGlitterHexagonRight(); + function ppEffectGlitterHexagonUp(); + function ppEffectHoneycomb(); + function ppEffectMixed(); + function ppEffectNewsflash(); + function ppEffectNone(); + function ppEffectOrbitDown(); + function ppEffectOrbitLeft(); + function ppEffectOrbitRight(); + function ppEffectOrbitUp(); + function ppEffectPanDown(); + function ppEffectPanLeft(); + function ppEffectPanRight(); + function ppEffectPanUp(); + function ppEffectPeekFromDown(); + function ppEffectPeekFromLeft(); + function ppEffectPeekFromRight(); + function ppEffectPeekFromUp(); + function ppEffectPlusOut(); + function ppEffectPushDown(); + function ppEffectPushLeft(); + function ppEffectPushRight(); + function ppEffectPushUp(); + function ppEffectRandom(); + function ppEffectRandomBarsHorizontal(); + function ppEffectRandomBarsVertical(); + function ppEffectRevealBlackLeft(); + function ppEffectRevealBlackRight(); + function ppEffectRevealSmoothLeft(); + function ppEffectRevealSmoothRight(); + function ppEffectRippleCenter(); + function ppEffectRippleLeftDown(); + function ppEffectRippleLeftUp(); + function ppEffectRippleRightDown(); + function ppEffectRippleRightUp(); + function ppEffectRotateDown(); + function ppEffectRotateLeft(); + function ppEffectRotateRight(); + function ppEffectRotateUp(); + function ppEffectShredRectangleIn(); + function ppEffectShredRectangleOut(); + function ppEffectShredStripsIn(); + function ppEffectShredStripsOut(); + function ppEffectSpiral(); + function ppEffectSplitHorizontalIn(); + function ppEffectSplitHorizontalOut(); + function ppEffectSplitVerticalIn(); + function ppEffectSplitVerticalOut(); + function ppEffectStretchAcross(); + function ppEffectStretchDown(); + function ppEffectStretchLeft(); + function ppEffectStretchRight(); + function ppEffectStretchUp(); + function ppEffectStripsDownLeft(); + function ppEffectStripsDownRight(); + function ppEffectStripsLeftDown(); + function ppEffectStripsLeftUp(); + function ppEffectStripsRightDown(); + function ppEffectStripsRightUp(); + function ppEffectStripsUpLeft(); + function ppEffectStripsUpRight(); + function ppEffectSwitchDown(); + function ppEffectSwitchLeft(); + function ppEffectSwitchRight(); + function ppEffectSwitchUp(); + function ppEffectSwivel(); + function ppEffectUncoverDown(); + function ppEffectUncoverLeft(); + function ppEffectUncoverLeftDown(); + function ppEffectUncoverLeftUp(); + function ppEffectUncoverRight(); + function ppEffectUncoverRightDown(); + function ppEffectUncoverRightUp(); + function ppEffectUncoverUp(); + function ppEffectVortexDown(); + function ppEffectVortexLeft(); + function ppEffectVortexRight(); + function ppEffectVortexUp(); + function ppEffectWarpIn(); + function ppEffectWarpOut(); + function ppEffectWedge(); + function ppEffectWheel1Spoke(); + function ppEffectWheel2Spokes(); + function ppEffectWheel3Spokes(); + function ppEffectWheel4Spokes(); + function ppEffectWheel8Spokes(); + function ppEffectWheelReverse1Spoke(); + function ppEffectWindowHorizontal(); + function ppEffectWindowVertical(); + function ppEffectWipeDown(); + function ppEffectWipeLeft(); + function ppEffectWipeRight(); + function ppEffectWipeUp(); + function ppEffectZoomBottom(); + function ppEffectZoomCenter(); + function ppEffectZoomIn(); + function ppEffectZoomInSlightly(); + function ppEffectZoomOut(); + function ppEffectZoomOutSlightly(); + + // PpFarEastLineBreakLevel + function ppFarEastLineBreakLevelCustom(); + function ppFarEastLineBreakLevelNormal(); + function ppFarEastLineBreakLevelStrict(); + + // PpFixedFormatIntent + function ppFixedFormatIntentPrint(); + function ppFixedFormatIntentScreen(); + + // PpFixedFormatType + function ppFixedFormatTypePDF(); + function ppFixedFormatTypeXPS(); + + // PpFollowColors + function ppFollowColorsMixed(); + function ppFollowColorsNone(); + function ppFollowColorsScheme(); + function ppFollowColorsTextAndBackground(); + + // PpFrameColors + function ppFrameColorsBlackTextOnWhite(); + function ppFrameColorsBrowserColors(); + function ppFrameColorsPresentationSchemeAccentColor(); + function ppFrameColorsPresentationSchemeTextColor(); + function ppFrameColorsWhiteTextOnBlack(); + + // PpGuideOrientation + function ppHorizontalGuide(); + function ppVerticalGuide(); + + // PpHTMLVersion + function ppHTMLAutodetect(); + function ppHTMLDual(); + function ppHTMLv3(); + function ppHTMLv4(); + + // PpIndentControl + function ppIndentControlMixed(); + function ppIndentKeepAttr(); + function ppIndentReplaceAttr(); + + // PpMediaTaskStatus + function ppMediaTaskStatusNone(); + function ppMediaTaskStatusInProgress(); + function ppMediaTaskStatusQueued(); + function ppMediaTaskStatusDone(); + function ppMediaTaskStatusFailed(); + + // PpMediaType + function ppMediaTypeMixed(); + function ppMediaTypeMovie(); + function ppMediaTypeOther(); + function ppMediaTypeSound(); + + // PpMouseActivation + function ppMouseClick(); + function ppMouseOver(); + + // PpNumberedBulletStyle + function ppBulletAlphaLCParenBoth(); + function ppBulletAlphaLCParenRight(); + function ppBulletAlphaLCPeriod(); + function ppBulletAlphaUCParenBoth(); + function ppBulletAlphaUCParenRight(); + function ppBulletAlphaUCPeriod(); + function ppBulletArabicAbjadDash(); + function ppBulletArabicAlphaDash(); + function ppBulletArabicDBPeriod(); + function ppBulletArabicDBPlain(); + function ppBulletArabicParenBoth(); + function ppBulletArabicParenRight(); + function ppBulletArabicPeriod(); + function ppBulletArabicPlain(); + function ppBulletCircleNumDBPlain(); + function ppBulletCircleNumWDBlackPlain(); + function ppBulletCircleNumWDWhitePlain(); + function ppBulletHebrewAlphaDash(); + function ppBulletHindiAlpha1Period(); + function ppBulletHindiAlphaPeriod(); + function ppBulletHindiNumParenRight(); + function ppBulletHindiNumPeriod(); + function ppBulletKanjiKoreanPeriod(); + function ppBulletKanjiKoreanPlain(); + function ppBulletKanjiSimpChinDBPeriod(); + function ppBulletRomanLCParenBoth(); + function ppBulletRomanLCParenRight(); + function ppBulletRomanLCPeriod(); + function ppBulletRomanUCParenBoth(); + function ppBulletRomanUCParenRight(); + function ppBulletRomanUCPeriod(); + function ppBulletSimpChinPeriod(); + function ppBulletSimpChinPlain(); + function ppBulletStyleMixed(); + function ppBulletThaiAlphaParenBoth(); + function ppBulletThaiAlphaParenRight(); + function ppBulletThaiAlphaPeriod(); + function ppBulletThaiNumParenBoth(); + function ppBulletThaiNumParenRight(); + function ppBulletThaiNumPeriod(); + function ppBulletTradChinPeriod(); + function ppBulletTradChinPlain(); + + // PpParagraphAlignment + function ppAlignCenter(); + function ppAlignDistribute(); + function ppAlignJustify(); + function ppAlignJustifyLow(); + function ppAlignLeft(); + function ppAlignmentMixed(); + function ppAlignRight(); + function ppAlignThaiDistribute(); + + // PpPasteDataType + function ppPasteBitmap(); + function ppPasteDefault(); + function ppPasteEnhancedMetafile(); + function ppPasteGIF(); + function ppPasteHTML(); + function ppPasteJPG(); + function ppPasteMetafilePicture(); + function ppPasteOLEObject(); + function ppPastePNG(); + function ppPasteRTF(); + function ppPasteShape(); + function ppPasteText(); + + // PpPlaceholderType + function ppPlaceholderMixed(); + function ppPlaceholderTitle(); + function ppPlaceholderBody(); + function ppPlaceholderCenterTitle(); + function ppPlaceholderSubtitle(); + function ppPlaceholderVerticalTitle(); + function ppPlaceholderVerticalBody(); + function ppPlaceholderObject(); + function ppPlaceholderChart(); + function ppPlaceholderBitmap(); + function ppPlaceholderMediaClip(); + function ppPlaceholderOrgChart(); + function ppPlaceholderTable(); + function ppPlaceholderSlideNumber(); + function ppPlaceholderHeader(); + function ppPlaceholderFooter(); + function ppPlaceholderDate(); + function ppPlaceholderVerticalObject(); + function ppPlaceholderPicture(); + function ppPlaceholderCameo(); + + // PpPlayerState + function ppPlaying(); + function ppPaused(); + function ppStopped(); + function ppNotReady(); + + // PpPrintColorType + function ppPrintBlackAndWhite(); + function ppPrintColor(); + function ppPrintPureBlackAndWhite(); + + // PpPrintHandoutOrder + function ppPrintHandoutHorizontalFirst(); + function ppPrintHandoutVerticalFirst(); + + // PpPrintOutputType + function ppPrintOutputBuildSlides(); + function ppPrintOutputFourSlideHandouts(); + function ppPrintOutputNineSlideHandouts(); + function ppPrintOutputNotesPages(); + function ppPrintOutputOneSlideHandouts(); + function ppPrintOutputOutline(); + function ppPrintOutputSixSlideHandouts(); + function ppPrintOutputSlides(); + function ppPrintOutputThreeSlideHandouts(); + function ppPrintOutputTwoSlideHandouts(); + + // PpPrintRangeType + function ppPrintAll(); + function ppPrintCurrent(); + function ppPrintNamedSlideShow(); + function ppPrintSelection(); + function ppPrintSlideRange(); + + // PpProtectedViewCloseReason + function ppProtectedViewCloseNormal(); + function ppProtectedViewCloseEdit(); + function ppProtectedViewCloseForced(); + + // PpPublishSourceType + function ppPublishAll(); + function ppPublishNamedSlideShow(); + function ppPublishSlideRange(); + + // PpRemoveDocInfoType + function ppRDIAll(); + function ppRDIAtMentions(); + function ppRDIComments(); + function ppRDIContentType(); + function ppRDIDocumentManagementPolicy(); + function ppRDIDocumentProperties(); + function ppRDIDocumentServerProperties(); + function ppRDIDocumentWorkspace(); + function ppRDIInkAnnotations(); + function ppRDIPublishPath(); + function ppRDIRemovePersonalInformation(); + function ppRDISlideUpdateInformation(); + + // PpResampleMediaProfile + function ppResampleMediaProfileCustom(); + function ppResampleMediaProfileSmall(); + function ppResampleMediaProfileSmaller(); + function ppResampleMediaProfileSmallest(); + + // PpRevisionInfo + function ppRevisionInfoBaseline(); + function ppRevisionInfoMerged(); + function ppRevisionInfoNone(); + + // PpSaveAsFileType + function ppSaveAsAddIn(); + function ppSaveAsAnimatedGIF(); + function ppSaveAsBMP(); + function ppSaveAsDefault(); + function ppSaveAsEMF(); + function ppSaveAsExternalConverter(); + function ppSaveAsGIF(); + function ppSaveAsJPG(); + function ppSaveAsMetaFile(); + function ppSaveAsMP4(); + function ppSaveAsOpenDocumentPresentation(); + function ppSaveAsOpenXMLAddin(); + function ppSaveAsOpenXMLPicturePresentation(); + function ppSaveAsOpenXMLPresentation(); + function ppSaveAsOpenXMLPresentationMacroEnabled(); + function ppSaveAsOpenXMLShow(); + function ppSaveAsOpenXMLShowMacroEnabled(); + function ppSaveAsOpenXMLTemplate(); + function ppSaveAsOpenXMLTemplateMacroEnabled(); + function ppSaveAsOpenXMLTheme(); + function ppSaveAsPDF(); + function ppSaveAsPNG(); + function ppSaveAsPresentation(); + function ppSaveAsRTF(); + function ppSaveAsShow(); + function ppSaveAsStrictOpenXMLPresentation(); + function ppSaveAsTemplate(); + function ppSaveAsTIF(); + function ppSaveAsWMV(); + function ppSaveAsXMLPresentation(); + function ppSaveAsXPS(); + + // PpSelectionType + function ppSelectionNone(); + function ppSelectionShapes(); + function ppSelectionSlides(); + function ppSelectionText(); + + // PpSlideLayout + function ppLayoutBlank(); + function ppLayoutChart(); + function ppLayoutChartAndText(); + function ppLayoutClipArtAndText(); + function ppLayoutClipArtAndVerticalText(); + function ppLayoutComparison(); + function ppLayoutContentWithCaption(); + function ppLayoutCustom(); + function ppLayoutFourObjects(); + function ppLayoutLargeObject(); + function ppLayoutMediaClipAndText(); + function ppLayoutMixed(); + function ppLayoutObject(); + function ppLayoutObjectAndText(); + function ppLayoutObjectAndTwoObjects(); + function ppLayoutObjectOverText(); + function ppLayoutOrgchart(); + function ppLayoutPictureWithCaption(); + function ppLayoutSectionHeader(); + function ppLayoutTable(); + function ppLayoutText(); + function ppLayoutTextAndChart(); + function ppLayoutTextAndClipArt(); + function ppLayoutTextAndMediaClip(); + function ppLayoutTextAndObject(); + function ppLayoutTextAndTwoObjects(); + function ppLayoutTextOverObject(); + function ppLayoutTitle(); + function ppLayoutTitleOnly(); + function ppLayoutTwoColumnText(); + function ppLayoutTwoObjects(); + function ppLayoutTwoObjectsAndObject(); + function ppLayoutTwoObjectsAndText(); + function ppLayoutTwoObjectsOverText(); + function ppLayoutVerticalText(); + function ppLayoutVerticalTitleAndText(); + function ppLayoutVerticalTitleAndTextOverChart(); + + // PpSlideShowAdvanceMode + function ppSlideShowManualAdvance(); + function ppSlideShowRehearseNewTimings(); + function ppSlideShowUseSlideTimings(); + + // PpSlideShowPointerType + function ppSlideShowPointerAlwaysHidden(); + function ppSlideShowPointerArrow(); + function ppSlideShowPointerAutoArrow(); + function ppSlideShowPointerEraser(); + function ppSlideShowPointerNone(); + function ppSlideShowPointerPen(); + + // PpSlideShowRangeType + function ppShowAll(); + function ppShowNamedSlideShow(); + function ppShowSlideRange(); + + // PpSlideShowState + function ppSlideShowBlackScreen(); + function ppSlideShowDone(); + function ppSlideShowPaused(); + function ppSlideShowRunning(); + function ppSlideShowWhiteScreen(); + + // PpSlideShowType + function ppShowTypeKiosk(); + function ppShowTypeSpeaker(); + function ppShowTypeWindow(); + function ppShowTypeWindow2(); + + // PpSlideSizeType + function ppSlideSize35MM(); + function ppSlideSizeA3Paper(); + function ppSlideSizeA4Paper(); + function ppSlideSizeB4ISOPaper(); + function ppSlideSizeB4JISPaper(); + function ppSlideSizeB5ISOPaper(); + function ppSlideSizeB5JISPaper(); + function ppSlideSizeBanner(); + function ppSlideSizeCustom(); + function ppSlideSizeHagakiCard(); + function ppSlideSizeLedgerPaper(); + function ppSlideSizeLetterPaper(); + function ppSlideSizeOnScreen(); + function ppSlideSizeOverhead(); + + // PpSoundEffectType + function ppSoundEffectsMixed(); + function ppSoundFile(); + function ppSoundNone(); + function ppSoundStopPrevious(); + + // PpSoundFormatType + function ppSoundFormatCDAudio(); + function ppSoundFormatMIDI(); + function ppSoundFormatMixed(); + function ppSoundFormatNone(); + function ppSoundFormatWAV(); + + // PpTabStopType + function ppTabStopCenter(); + function ppTabStopDecimal(); + function ppTabStopLeft(); + function ppTabStopMixed(); + function ppTabStopRight(); + + // PpTextLevelEffect + function ppAnimateByAllLevels(); + function ppAnimateByFifthLevel(); + function ppAnimateByFirstLevel(); + function ppAnimateByFourthLevel(); + function ppAnimateBySecondLevel(); + function ppAnimateByThirdLevel(); + function ppAnimateLevelMixed(); + function ppAnimateLevelNone(); + + // PpTextStyleType + function ppBodyStyle(); + function ppDefaultStyle(); + function ppTitleStyle(); + + // PpTextUnitEffect + function ppAnimateByCharacter(); + function ppAnimateByParagraph(); + function ppAnimateByWord(); + function ppAnimateUnitMixed(); + + // PpTransitionSpeed + function ppTransitionSpeedFast(); + function ppTransitionSpeedMedium(); + function ppTransitionSpeedMixed(); + function ppTransitionSpeedSlow(); + + // PpUpdateOption + function ppUpdateOptionAutomatic(); + function ppUpdateOptionManual(); + function ppUpdateOptionMixed(); + + // PpViewType + function ppViewHandoutMaster(); + function ppViewMasterThumbnails(); + function ppViewNormal(); + function ppViewNotesMaster(); + function ppViewNotesPage(); + function ppViewOutline(); + function ppViewPrintPreview(); + function ppViewSlide(); + function ppViewSlideMaster(); + function ppViewSlideSorter(); + function ppViewThumbnails(); + function ppViewTitleMaster(); + + // PpWindowState + function ppWindowMaximized(); + function ppWindowMinimized(); + function ppWindowNormal(); + + // XlAxisCrosses + function xlAxisCrossesAutomatic(); + function xlAxisCrossesCustom(); + function xlAxisCrossesMaximum(); + function xlAxisCrossesMinimum(); + + // XlAxisGroup + function xlPrimary(); + function xlSecondary(); + + // XlAxisType + function xlCategory(); + function xlSeriesAxis(); + function xlValue(); + + // XlBackground + function xlBackgroundAutomatic(); + function xlBackgroundOpaque(); + function xlBackgroundTransparent(); + + // XlBarShape + function xlBox(); + function xlConeToMax(); + function xlConeToPoint(); + function xlCylinder(); + function xlPyramidToMax(); + function xlPyramidToPoint(); + + // XlBinsType + function xlBinsTypeAutomatic(); + function xlBinsTypeCategorical(); + function xlBinsTypeManual(); + function xlBinsTypeBinSize(); + function xlBinsTypeBinCount(); + + // XlBorderWeight + function xlHairline(); + function xlMedium(); + function xlThick(); + function xlThin(); + + // XlCategoryLabelLevel + function xlCategoryLabelLevelAll(); + function xlCategoryLabelLevelCustom(); + function xlCategoryLabelLevelNone(); + + // XlCategoryType + function xlAutomaticScale(); + function xlCategoryScale(); + function xlTimeScale(); + + // XlChartElementPosition + function xlChartElementPositionAutomatic(); + function xlChartElementPositionCustom(); + + // XlChartGallery + function xlAnyGallery(); + function xlBuiltIn(); + function xlUserDefined(); + + // XlChartItem + function xlAxis(); + function xlAxisTitle(); + function xlChartArea(); + function xlChartTitle(); + function xlCorners(); + function xlDataLabel(); + function xlDataTable(); + function xlDisplayUnitLabel(); + function xlDownBars(); + function xlDropLines(); + function xlErrorBars(); + function xlFloor(); + function xlHiLoLines(); + function xlLeaderLines(); + function xlLegend(); + function xlLegendEntry(); + function xlLegendKey(); + function xlMajorGridlines(); + function xlMinorGridlines(); + function xlNothing(); + function xlPivotChartDropZone(); + function xlPivotChartFieldButton(); + function xlPlotArea(); + function xlRadarAxisLabels(); + function xlSeries(); + function xlSeriesLines(); + function xlShape(); + function xlTrendline(); + function xlUpBars(); + function xlWalls(); + function xlXErrorBars(); + function xlYErrorBars(); + + // XlChartPicturePlacement + function xlAllFaces(); + function xlEnd(); + function xlEndSides(); + function xlFront(); + function xlFrontEnd(); + function xlFrontSides(); + function xlSides(); + + // XlChartPictureType + function xlStack(); + function xlStackScale(); + function xlStretch(); + + // XlChartSplitType + function xlSplitByCustomSplit(); + function xlSplitByPercentValue(); + function xlSplitByPosition(); + function xlSplitByValue(); + + // XlColorIndex + function xlColorIndexAutomatic(); + function xlColorIndexNone(); + + // XlConstants + function xl3DBar(); + function xl3DSurface(); + function xlAbove(); + function xlAutomatic(); + function xlBar(); + function xlBelow(); + function xlBoth(); + function xlBottom(); + function xlCenter(); + function xlChecker(); + function xlCircle(); + function xlColumn(); + function xlCombination(); + function xlCorner(); + function xlCrissCross(); + function xlCross(); + function xlCustom(); + function xlDefaultAutoFormat(); + function xlDiamond(); + function xlDistributed(); + function xlFill(); + function xlFixedValue(); + function xlGeneral(); + function xlGray16(); + function xlGray25(); + function xlGray50(); + function xlGray75(); + function xlGray8(); + function xlGrid(); + function xlHigh(); + function xlInside(); + function xlJustify(); + function xlLeft(); + function xlLightDown(); + function xlLightHorizontal(); + function xlLightUp(); + function xlLightVertical(); + function xlLow(); + function xlMaximum(); + function xlMinimum(); + function xlMinusValues(); + function xlNextToAxis(); + function xlNone(); + function xlOpaque(); + function xlOutside(); + function xlPercent(); + function xlPlus(); + function xlPlusValues(); + function xlRight(); + function xlScale(); + function xlSemiGray75(); + function xlShowLabel(); + function xlShowLabelAndPercent(); + function xlShowPercent(); + function xlShowValue(); + function xlSingle(); + function xlSolid(); + function xlSquare(); + function xlStar(); + function xlStError(); + function xlTop(); + function xlTransparent(); + function xlTriangle(); + + // XlCopyPictureFormat + function xlBitmap(); + function xlPicture(); + + // XlDataLabelPosition + function xlLabelPositionAbove(); + function xlLabelPositionBelow(); + function xlLabelPositionBestFit(); + function xlLabelPositionCenter(); + function xlLabelPositionCustom(); + function xlLabelPositionInsideBase(); + function xlLabelPositionInsideEnd(); + function xlLabelPositionLeft(); + function xlLabelPositionMixed(); + function xlLabelPositionOutsideEnd(); + function xlLabelPositionRight(); + + // XlDataLabelSeparator + function xlDataLabelSeparatorDefault(); + + // XlDataLabelsType + function xlDataLabelsShowBubbleSizes(); + function xlDataLabelsShowLabel(); + function xlDataLabelsShowLabelAndPercent(); + function xlDataLabelsShowNone(); + function xlDataLabelsShowPercent(); + function xlDataLabelsShowValue(); + + // XlDisplayBlanksAs + function xlInterpolated(); + function xlNotPlotted(); + function xlZero(); + + // XlDisplayUnit + function xlHundredMillions(); + function xlHundreds(); + function xlHundredThousands(); + function xlMillionMillions(); + function xlMillions(); + function xlTenMillions(); + function xlTenThousands(); + function xlThousandMillions(); + function xlThousands(); + + // XlEndStyleCap + function xlCap(); + function xlNoCap(); + + // XlErrorBarDirection + function xlChartX(); + function xlChartY(); + + // XlErrorBarInclude + function xlErrorBarIncludeBoth(); + function xlErrorBarIncludeMinusValues(); + function xlErrorBarIncludeNone(); + function xlErrorBarIncludePlusValues(); + + // XlErrorBarType + function xlErrorBarTypeCustom(); + function xlErrorBarTypeFixedValue(); + function xlErrorBarTypePercent(); + function xlErrorBarTypeStDev(); + function xlErrorBarTypeStError(); + + // XlHAlign + function xlHAlignCenter(); + function xlHAlignCenterAcrossSelection(); + function xlHAlignDistributed(); + function xlHAlignFill(); + function xlHAlignGeneral(); + function xlHAlignJustify(); + function xlHAlignLeft(); + function xlHAlignRight(); + + // XlLegendPosition + function xlLegendPositionBottom(); + function xlLegendPositionCorner(); + function xlLegendPositionCustom(); + function xlLegendPositionLeft(); + function xlLegendPositionRight(); + function xlLegendPositionTop(); + + // XlLineStyle + function xlContinuous(); + function xlDash(); + function xlDashDot(); + function xlDashDotDot(); + function xlDot(); + function xlDouble(); + function xlLineStyleNone(); + function xlSlantDashDot(); + + // XlMarkerStyle + function xlMarkerStyleAutomatic(); + function xlMarkerStyleCircle(); + function xlMarkerStyleDash(); + function xlMarkerStyleDiamond(); + function xlMarkerStyleDot(); + function xlMarkerStyleNone(); + function xlMarkerStylePicture(); + function xlMarkerStylePlus(); + function xlMarkerStyleSquare(); + function xlMarkerStyleStar(); + function xlMarkerStyleTriangle(); + function xlMarkerStyleX(); + + // XlOrientation + function xlDownward(); + function xlHorizontal(); + function xlUpward(); + function xlVertical(); + + // XlParentDataLabelOptions + function xlParentDataLabelOptionsNone(); + function xlParentDataLabelOptionsBanner(); + function xlParentDataLabelOptionsOverlapping(); + + // XlPattern + function xlPatternAutomatic(); + function xlPatternChecker(); + function xlPatternCrissCross(); + function xlPatternDown(); + function xlPatternGray16(); + function xlPatternGray25(); + function xlPatternGray50(); + function xlPatternGray75(); + function xlPatternGray8(); + function xlPatternGrid(); + function xlPatternHorizontal(); + function xlPatternLightDown(); + function xlPatternLightHorizontal(); + function xlPatternLightUp(); + function xlPatternLightVertical(); + function xlPatternLinearGradient(); + function xlPatternNone(); + function xlPatternRectangularGradient(); + function xlPatternSemiGray75(); + function xlPatternSolid(); + function xlPatternUp(); + function xlPatternVertical(); + + // XlPictureAppearance + function xlPrinter(); + function xlScreen(); + + // XlPieSliceIndex + function xlCenterPoint(); + function xlInnerCenterPoint(); + function xlInnerClockwisePoint(); + function xlInnerCounterClockwisePoint(); + function xlMidClockwiseRadiusPoint(); + function xlMidCounterClockwiseRadiusPoint(); + function xlOuterCenterPoint(); + function xlOuterClockwisePoint(); + function xlOuterCounterClockwisePoint(); + + // XlPieSliceLocation + function xlHorizontalCoordinate(); + function xlVerticalCoordinate(); + + // XlPivotFieldOrientation + function xlColumnField(); + function xlDataField(); + function xlHidden(); + function xlPageField(); + function xlRowField(); + + // XlReadingOrder + function xlContext(); + function xlLTR(); + function xlRTL(); + + // XlRgbColor + function xlAliceBlue(); + function xlAntiqueWhite(); + function xlAqua(); + function xlAquamarine(); + function xlAzure(); + function xlBeige(); + function xlBisque(); + function xlBlack(); + function xlBlanchedAlmond(); + function xlBlue(); + function xlBlueViolet(); + function xlBrown(); + function xlBurlyWood(); + function xlCadetBlue(); + function xlChartreuse(); + function xlCoral(); + function xlCornflowerBlue(); + function xlCornsilk(); + function xlCrimson(); + function xlDarkBlue(); + function xlDarkCyan(); + function xlDarkGoldenrod(); + function xlDarkGray(); + function xlDarkGreen(); + function xlDarkGrey(); + function xlDarkKhaki(); + function xlDarkMagenta(); + function xlDarkOliveGreen(); + function xlDarkOrange(); + function xlDarkOrchid(); + function xlDarkRed(); + function xlDarkSalmon(); + function xlDarkSeaGreen(); + function xlDarkSlateBlue(); + function xlDarkSlateGray(); + function xlDarkSlateGrey(); + function xlDarkTurquoise(); + function xlDarkViolet(); + function xlDeepPink(); + function xlDeepSkyBlue(); + function xlDimGray(); + function xlDimGrey(); + function xlDodgerBlue(); + function xlFireBrick(); + function xlFloralWhite(); + function xlForestGreen(); + function xlFuchsia(); + function xlGainsboro(); + function xlGhostWhite(); + function xlGold(); + function xlGoldenrod(); + function xlGray(); + function xlGreen(); + function xlGreenYellow(); + function xlGrey(); + function xlHoneydew(); + function xlHotPink(); + function xlIndianRed(); + function xlIndigo(); + function xlIvory(); + function xlKhaki(); + function xlLavender(); + function xlLavenderBlush(); + function xlLawnGreen(); + function xlLemonChiffon(); + function xlLightBlue(); + function xlLightCoral(); + function xlLightCyan(); + function xlLightGoldenrodYellow(); + function xlLightGray(); + function xlLightGreen(); + function xlLightGrey(); + function xlLightPink(); + function xlLightSalmon(); + function xlLightSeaGreen(); + function xlLightSkyBlue(); + function xlLightSlateGray(); + function xlLightSlateGrey(); + function xlLightSteelBlue(); + function xlLightYellow(); + function xlLime(); + function xlLimeGreen(); + function xlLinen(); + function xlMaroon(); + function xlMediumAquamarine(); + function xlMediumBlue(); + function xlMediumOrchid(); + function xlMediumPurple(); + function xlMediumSeaGreen(); + function xlMediumSlateBlue(); + function xlMediumSpringGreen(); + function xlMediumTurquoise(); + function xlMediumVioletRed(); + function xlMidnightBlue(); + function xlMintCream(); + function xlMistyRose(); + function xlMoccasin(); + function xlNavajoWhite(); + function xlNavy(); + function xlNavyBlue(); + function xlOldLace(); + function xlOlive(); + function xlOliveDrab(); + function xlOrange(); + function xlOrangeRed(); + function xlOrchid(); + function xlPaleGoldenrod(); + function xlPaleGreen(); + function xlPaleTurquoise(); + function xlPaleVioletRed(); + function xlPapayaWhip(); + function xlPeachPuff(); + function xlPeru(); + function xlPink(); + function xlPlum(); + function xlPowderBlue(); + function xlPurple(); + function xlRed(); + function xlRosyBrown(); + function xlRoyalBlue(); + function xlSalmon(); + function xlSandyBrown(); + function xlSeaGreen(); + function xlSeashell(); + function xlSienna(); + function xlSilver(); + function xlSkyBlue(); + function xlSlateBlue(); + function xlSlateGray(); + function xlSlateGrey(); + function xlSnow(); + function xlSpringGreen(); + function xlSteelBlue(); + function xlTan(); + function xlTeal(); + function xlThistle(); + function xlTomato(); + function xlTurquoise(); + function xlViolet(); + function xlWheat(); + function xlWhite(); + function xlWhiteSmoke(); + function xlYellow(); + function xlYellowGreen(); + + // XlRowCol + function xlColumns(); + function xlRows(); + + // XlScaleType + function xlScaleLinear(); + function xlScaleLogarithmic(); + + // XlSeriesNameLevel + function xlSeriesNameLevelAll(); + function xlSeriesNameLevelCustom(); + function xlSeriesNameLevelNone(); + + // XlSizeRepresents + function xlSizeIsArea(); + function xlSizeIsWidth(); + + // XlTickLabelOrientation + function xlTickLabelOrientationAutomatic(); + function xlTickLabelOrientationDownward(); + function xlTickLabelOrientationHorizontal(); + function xlTickLabelOrientationUpward(); + function xlTickLabelOrientationVertical(); + + // XlTickLabelPosition + function xlTickLabelPositionHigh(); + function xlTickLabelPositionLow(); + function xlTickLabelPositionNextToAxis(); + function xlTickLabelPositionNone(); + + // XlTickMark + function xlTickMarkCross(); + function xlTickMarkInside(); + function xlTickMarkNone(); + function xlTickMarkOutside(); + + // XlTimeUnit + function xlDays(); + function xlMonths(); + function xlYears(); + + // XlTrendlineType + function xlExponential(); + function xlLinear(); + function xlLogarithmic(); + function xlMovingAvg(); + function xlPolynomial(); + function xlPower(); + + // XlUnderlineStyle + function xlUnderlineStyleDouble(); + function xlUnderlineStyleDoubleAccounting(); + function xlUnderlineStyleNone(); + function xlUnderlineStyleSingle(); + function xlUnderlineStyleSingleAccounting(); + + // XlVAlign + function xlVAlignBottom(); + function xlVAlignCenter(); + function xlVAlignDistributed(); + function xlVAlignJustify(); + function xlVAlignTop(); + +implementation + + // MsoAnimAccumulate + function msoAnimAccumulateAlways(); + begin + return 2; + end; + function msoAnimAccumulateNone(); + begin + return 1; + end; + + // MsoAnimAdditive + function msoAnimAdditiveAddBase(); + begin + return 1; + end; + function msoAnimAdditiveAddSum(); + begin + return 2; + end; + + // MsoAnimAfterEffect + function msoAnimAfterEffectDim(); + begin + return 1; + end; + function msoAnimAfterEffectHide(); + begin + return 2; + end; + function msoAnimAfterEffectHideOnNextClick(); + begin + return 3; + end; + function msoAnimAfterEffectMixed(); + begin + return -1; + end; + function msoAnimAfterEffectNone(); + begin + return 0; + end; + + // MsoAnimateByLevel + function msoAnimateChartAllAtOnce(); + begin + return 7; + end; + function msoAnimateChartByCategory(); + begin + return 8; + end; + function msoAnimateChartByCategoryElements(); + begin + return 9; + end; + function msoAnimateChartBySeries(); + begin + return 10; + end; + function msoAnimateChartBySeriesElements(); + begin + return 11; + end; + function msoAnimateDiagramAllAtOnce(); + begin + return 12; + end; + function msoAnimateDiagramBreadthByLevel(); + begin + return 16; + end; + function msoAnimateDiagramBreadthByNode(); + begin + return 15; + end; + function msoAnimateDiagramClockwise(); + begin + return 17; + end; + function msoAnimateDiagramClockwiseIn(); + begin + return 18; + end; + function msoAnimateDiagramClockwiseOut(); + begin + return 19; + end; + function msoAnimateDiagramCounterClockwise(); + begin + return 20; + end; + function msoAnimateDiagramCounterClockwiseIn(); + begin + return 21; + end; + function msoAnimateDiagramCounterClockwiseOut(); + begin + return 22; + end; + function msoAnimateDiagramDepthByBranch(); + begin + return 14; + end; + function msoAnimateDiagramDepthByNode(); + begin + return 13; + end; + function msoAnimateDiagramDown(); + begin + return 26; + end; + function msoAnimateDiagramInByRing(); + begin + return 23; + end; + function msoAnimateDiagramOutByRing(); + begin + return 24; + end; + function msoAnimateDiagramUp(); + begin + return 25; + end; + function msoAnimateLevelMixed(); + begin + return -1; + end; + function msoAnimateLevelNone(); + begin + return 0; + end; + function msoAnimateTextByAllLevels(); + begin + return 1; + end; + function msoAnimateTextByFifthLevel(); + begin + return 6; + end; + function msoAnimateTextByFirstLevel(); + begin + return 2; + end; + function msoAnimateTextByFourthLevel(); + begin + return 5; + end; + function msoAnimateTextBySecondLevel(); + begin + return 3; + end; + function msoAnimateTextByThirdLevel(); + begin + return 4; + end; + + // MsoAnimCommandType + function msoAnimCommandTypeCall(); + begin + return 1; + end; + function msoAnimCommandTypeEvent(); + begin + return 0; + end; + function msoAnimCommandTypeVerb(); + begin + return 2; + end; + + // MsoAnimDirection + function msoAnimDirectionAcross(); + begin + return 18; + end; + function msoAnimDirectionBottom(); + begin + return 11; + end; + function msoAnimDirectionBottomLeft(); + begin + return 15; + end; + function msoAnimDirectionBottomRight(); + begin + return 14; + end; + function msoAnimDirectionCenter(); + begin + return 28; + end; + function msoAnimDirectionClockwise(); + begin + return 21; + end; + function msoAnimDirectionCounterclockwise(); + begin + return 22; + end; + function msoAnimDirectionCycleClockwise(); + begin + return 43; + end; + function msoAnimDirectionCycleCounterclockwise(); + begin + return 44; + end; + function msoAnimDirectionDown(); + begin + return 3; + end; + function msoAnimDirectionDownLeft(); + begin + return 9; + end; + function msoAnimDirectionDownRight(); + begin + return 8; + end; + function msoAnimDirectionFontAllCaps(); + begin + return 40; + end; + function msoAnimDirectionFontBold(); + begin + return 35; + end; + function msoAnimDirectionFontItalic(); + begin + return 36; + end; + function msoAnimDirectionFontShadow(); + begin + return 39; + end; + function msoAnimDirectionFontStrikethrough(); + begin + return 38; + end; + function msoAnimDirectionFontUnderline(); + begin + return 37; + end; + function msoAnimDirectionGradual(); + begin + return 42; + end; + function msoAnimDirectionHorizontal(); + begin + return 16; + end; + function msoAnimDirectionHorizontalIn(); + begin + return 23; + end; + function msoAnimDirectionHorizontalOut(); + begin + return 24; + end; + function msoAnimDirectionIn(); + begin + return 19; + end; + function msoAnimDirectionInBottom(); + begin + return 31; + end; + function msoAnimDirectionInCenter(); + begin + return 30; + end; + function msoAnimDirectionInSlightly(); + begin + return 29; + end; + function msoAnimDirectionInstant(); + begin + return 41; + end; + function msoAnimDirectionLeft(); + begin + return 4; + end; + function msoAnimDirectionNone(); + begin + return 0; + end; + function msoAnimDirectionOrdinalMask(); + begin + return 5; + end; + function msoAnimDirectionOut(); + begin + return 20; + end; + function msoAnimDirectionOutBottom(); + begin + return 34; + end; + function msoAnimDirectionOutCenter(); + begin + return 33; + end; + function msoAnimDirectionOutSlightly(); + begin + return 32; + end; + function msoAnimDirectionRight(); + begin + return 2; + end; + function msoAnimDirectionSlightly(); + begin + return 27; + end; + function msoAnimDirectionTop(); + begin + return 10; + end; + function msoAnimDirectionTopLeft(); + begin + return 12; + end; + function msoAnimDirectionTopRight(); + begin + return 13; + end; + function msoAnimDirectionUp(); + begin + return 1; + end; + function msoAnimDirectionUpLeft(); + begin + return 6; + end; + function msoAnimDirectionUpRight(); + begin + return 7; + end; + function msoAnimDirectionVertical(); + begin + return 17; + end; + function msoAnimDirectionVerticalIn(); + begin + return 25; + end; + function msoAnimDirectionVerticalOut(); + begin + return 26; + end; + + // MsoAnimEffect + function msoAnimEffectAppear(); + begin + return 1; + end; + function msoAnimEffectArcUp(); + begin + return 47; + end; + function msoAnimEffectAscend(); + begin + return 39; + end; + function msoAnimEffectBlast(); + begin + return 64; + end; + function msoAnimEffectBlinds(); + begin + return 3; + end; + function msoAnimEffectBoldFlash(); + begin + return 63; + end; + function msoAnimEffectBoldReveal(); + begin + return 65; + end; + function msoAnimEffectBoomerang(); + begin + return 25; + end; + function msoAnimEffectBounce(); + begin + return 26; + end; + function msoAnimEffectBox(); + begin + return 4; + end; + function msoAnimEffectBrushOnColor(); + begin + return 66; + end; + function msoAnimEffectBrushOnUnderline(); + begin + return 67; + end; + function msoAnimEffectCenterRevolve(); + begin + return 40; + end; + function msoAnimEffectChangeFillColor(); + begin + return 54; + end; + function msoAnimEffectChangeFont(); + begin + return 55; + end; + function msoAnimEffectChangeFontColor(); + begin + return 56; + end; + function msoAnimEffectChangeFontSize(); + begin + return 57; + end; + function msoAnimEffectChangeFontStyle(); + begin + return 58; + end; + function msoAnimEffectChangeLineColor(); + begin + return 60; + end; + function msoAnimEffectCheckerboard(); + begin + return 5; + end; + function msoAnimEffectCircle(); + begin + return 6; + end; + function msoAnimEffectColorBlend(); + begin + return 68; + end; + function msoAnimEffectColorReveal(); + begin + return 27; + end; + function msoAnimEffectColorWave(); + begin + return 69; + end; + function msoAnimEffectComplementaryColor(); + begin + return 70; + end; + function msoAnimEffectComplementaryColor2(); + begin + return 71; + end; + function msoAnimEffectContrastingColor(); + begin + return 72; + end; + function msoAnimEffectCrawl(); + begin + return 7; + end; + function msoAnimEffectCredits(); + begin + return 28; + end; + function msoAnimEffectCustom(); + begin + return 0; + end; + function msoAnimEffectDarken(); + begin + return 73; + end; + function msoAnimEffectDesaturate(); + begin + return 74; + end; + function msoAnimEffectDescend(); + begin + return 42; + end; + function msoAnimEffectDiamond(); + begin + return 8; + end; + function msoAnimEffectDissolve(); + begin + return 9; + end; + function msoAnimEffectEaseIn(); + begin + return 29; + end; + function msoAnimEffectExpand(); + begin + return 50; + end; + function msoAnimEffectFade(); + begin + return 10; + end; + function msoAnimEffectFadedSwivel(); + begin + return 41; + end; + function msoAnimEffectFadedZoom(); + begin + return 48; + end; + function msoAnimEffectFlashBulb(); + begin + return 75; + end; + function msoAnimEffectFlashOnce(); + begin + return 11; + end; + function msoAnimEffectFlicker(); + begin + return 76; + end; + function msoAnimEffectFlip(); + begin + return 51; + end; + function msoAnimEffectFloat(); + begin + return 30; + end; + function msoAnimEffectFly(); + begin + return 2; + end; + function msoAnimEffectFold(); + begin + return 53; + end; + function msoAnimEffectGlide(); + begin + return 49; + end; + function msoAnimEffectGrowAndTurn(); + begin + return 31; + end; + function msoAnimEffectGrowShrink(); + begin + return 59; + end; + function msoAnimEffectGrowWithColor(); + begin + return 77; + end; + function msoAnimEffectLighten(); + begin + return 78; + end; + function msoAnimEffectLightSpeed(); + begin + return 32; + end; + function msoAnimEffectMediaPause(); + begin + return 84; + end; + function msoAnimEffectMediaPlay(); + begin + return 83; + end; + function msoAnimEffectMediaStop(); + begin + return 85; + end; + function msoAnimEffectPath4PointStar(); + begin + return 101; + end; + function msoAnimEffectPath5PointStar(); + begin + return 90; + end; + function msoAnimEffectPath6PointStar(); + begin + return 96; + end; + function msoAnimEffectPath8PointStar(); + begin + return 102; + end; + function msoAnimEffectPathArcDown(); + begin + return 122; + end; + function msoAnimEffectPathArcLeft(); + begin + return 136; + end; + function msoAnimEffectPathArcRight(); + begin + return 143; + end; + function msoAnimEffectPathArcUp(); + begin + return 129; + end; + function msoAnimEffectPathBean(); + begin + return 116; + end; + function msoAnimEffectPathBounceLeft(); + begin + return 126; + end; + function msoAnimEffectPathBounceRight(); + begin + return 139; + end; + function msoAnimEffectPathBuzzsaw(); + begin + return 110; + end; + function msoAnimEffectPathCircle(); + begin + return 86; + end; + function msoAnimEffectPathCrescentMoon(); + begin + return 91; + end; + function msoAnimEffectPathCurvedSquare(); + begin + return 105; + end; + function msoAnimEffectPathCurvedX(); + begin + return 106; + end; + function msoAnimEffectPathCurvyLeft(); + begin + return 133; + end; + function msoAnimEffectPathCurvyRight(); + begin + return 146; + end; + function msoAnimEffectPathCurvyStar(); + begin + return 108; + end; + function msoAnimEffectPathDecayingWave(); + begin + return 145; + end; + function msoAnimEffectPathDiagonalDownRight(); + begin + return 134; + end; + function msoAnimEffectPathDiagonalUpRight(); + begin + return 141; + end; + function msoAnimEffectPathDiamond(); + begin + return 88; + end; + function msoAnimEffectPathDown(); + begin + return 127; + end; + function msoAnimEffectPathEqualTriangle(); + begin + return 98; + end; + function msoAnimEffectPathFigure8Four(); + begin + return 113; + end; + function msoAnimEffectPathFootball(); + begin + return 97; + end; + function msoAnimEffectPathFunnel(); + begin + return 137; + end; + function msoAnimEffectPathHeart(); + begin + return 94; + end; + function msoAnimEffectPathHeartbeat(); + begin + return 130; + end; + function msoAnimEffectPathHexagon(); + begin + return 89; + end; + function msoAnimEffectPathHorizontalFigure8(); + begin + return 111; + end; + function msoAnimEffectPathInvertedSquare(); + begin + return 119; + end; + function msoAnimEffectPathInvertedTriangle(); + begin + return 118; + end; + function msoAnimEffectPathLeft(); + begin + return 120; + end; + function msoAnimEffectPathLoopdeLoop(); + begin + return 109; + end; + function msoAnimEffectPathNeutron(); + begin + return 114; + end; + function msoAnimEffectPathOctagon(); + begin + return 95; + end; + function msoAnimEffectPathParallelogram(); + begin + return 99; + end; + function msoAnimEffectPathPeanut(); + begin + return 112; + end; + function msoAnimEffectPathPentagon(); + begin + return 100; + end; + function msoAnimEffectPathPlus(); + begin + return 117; + end; + function msoAnimEffectPathPointyStar(); + begin + return 104; + end; + function msoAnimEffectPathRight(); + begin + return 149; + end; + function msoAnimEffectPathRightTriangle(); + begin + return 87; + end; + function msoAnimEffectPathSCurve1(); + begin + return 144; + end; + function msoAnimEffectPathSCurve2(); + begin + return 124; + end; + function msoAnimEffectPathSineWave(); + begin + return 125; + end; + function msoAnimEffectPathSpiralLeft(); + begin + return 140; + end; + function msoAnimEffectPathSpiralRight(); + begin + return 131; + end; + function msoAnimEffectPathSpring(); + begin + return 138; + end; + function msoAnimEffectPathSquare(); + begin + return 92; + end; + function msoAnimEffectPathStairsDown(); + begin + return 147; + end; + function msoAnimEffectPathSwoosh(); + begin + return 115; + end; + function msoAnimEffectPathTeardrop(); + begin + return 103; + end; + function msoAnimEffectPathTrapezoid(); + begin + return 93; + end; + function msoAnimEffectPathTurnDown(); + begin + return 135; + end; + function msoAnimEffectPathTurnRight(); + begin + return 121; + end; + function msoAnimEffectPathTurnUp(); + begin + return 128; + end; + function msoAnimEffectPathTurnUpRight(); + begin + return 142; + end; + function msoAnimEffectPathUp(); + begin + return 148; + end; + function msoAnimEffectPathVerticalFigure8(); + begin + return 107; + end; + function msoAnimEffectPathWave(); + begin + return 132; + end; + function msoAnimEffectPathZigzag(); + begin + return 123; + end; + function msoAnimEffectPeek(); + begin + return 12; + end; + function msoAnimEffectPinwheel(); + begin + return 33; + end; + function msoAnimEffectPlus(); + begin + return 13; + end; + function msoAnimEffectRandomBars(); + begin + return 14; + end; + function msoAnimEffectRandomEffects(); + begin + return 24; + end; + function msoAnimEffectRiseUp(); + begin + return 34; + end; + function msoAnimEffectShimmer(); + begin + return 52; + end; + function msoAnimEffectSling(); + begin + return 43; + end; + function msoAnimEffectSpin(); + begin + return 61; + end; + function msoAnimEffectSpinner(); + begin + return 44; + end; + function msoAnimEffectSpiral(); + begin + return 15; + end; + function msoAnimEffectSplit(); + begin + return 16; + end; + function msoAnimEffectStretch(); + begin + return 17; + end; + function msoAnimEffectStretchy(); + begin + return 45; + end; + function msoAnimEffectStrips(); + begin + return 18; + end; + function msoAnimEffectStyleEmphasis(); + begin + return 79; + end; + function msoAnimEffectSwish(); + begin + return 35; + end; + function msoAnimEffectSwivel(); + begin + return 19; + end; + function msoAnimEffectTeeter(); + begin + return 80; + end; + function msoAnimEffectThinLine(); + begin + return 36; + end; + function msoAnimEffectTransparency(); + begin + return 62; + end; + function msoAnimEffectUnfold(); + begin + return 37; + end; + function msoAnimEffectVerticalGrow(); + begin + return 81; + end; + function msoAnimEffectWave(); + begin + return 82; + end; + function msoAnimEffectWedge(); + begin + return 20; + end; + function msoAnimEffectWheel(); + begin + return 21; + end; + function msoAnimEffectWhip(); + begin + return 38; + end; + function msoAnimEffectWipe(); + begin + return 22; + end; + function msoAnimEffectZip(); + begin + return 46; + end; + function msoAnimEffectZoom(); + begin + return 23; + end; + + // MsoAnimEffectAfter + function msoAnimEffectAfterFreeze(); + begin + return 1; + end; + function msoAnimEffectAfterHold(); + begin + return 3; + end; + function msoAnimEffectAfterRemove(); + begin + return 2; + end; + function msoAnimEffectAfterTransition(); + begin + return 4; + end; + + // MsoAnimEffectRestart + function msoAnimEffectRestartAlways(); + begin + return 1; + end; + function msoAnimEffectRestartNever(); + begin + return 3; + end; + function msoAnimEffectRestartWhenOff(); + begin + return 2; + end; + + // MsoAnimFilterEffectSubtype + function msoAnimFilterEffectSubtypeAcross(); + begin + return 9; + end; + function msoAnimFilterEffectSubtypeDown(); + begin + return 25; + end; + function msoAnimFilterEffectSubtypeDownLeft(); + begin + return 14; + end; + function msoAnimFilterEffectSubtypeDownRight(); + begin + return 16; + end; + function msoAnimFilterEffectSubtypeFromBottom(); + begin + return 13; + end; + function msoAnimFilterEffectSubtypeFromLeft(); + begin + return 10; + end; + function msoAnimFilterEffectSubtypeFromRight(); + begin + return 11; + end; + function msoAnimFilterEffectSubtypeFromTop(); + begin + return 12; + end; + function msoAnimFilterEffectSubtypeHorizontal(); + begin + return 5; + end; + function msoAnimFilterEffectSubtypeIn(); + begin + return 7; + end; + function msoAnimFilterEffectSubtypeInHorizontal(); + begin + return 3; + end; + function msoAnimFilterEffectSubtypeInVertical(); + begin + return 1; + end; + function msoAnimFilterEffectSubtypeLeft(); + begin + return 23; + end; + function msoAnimFilterEffectSubtypeNone(); + begin + return 0; + end; + function msoAnimFilterEffectSubtypeOut(); + begin + return 8; + end; + function msoAnimFilterEffectSubtypeOutHorizontal(); + begin + return 4; + end; + function msoAnimFilterEffectSubtypeOutVertical(); + begin + return 2; + end; + function msoAnimFilterEffectSubtypeRight(); + begin + return 24; + end; + function msoAnimFilterEffectSubtypeSpokes1(); + begin + return 18; + end; + function msoAnimFilterEffectSubtypeSpokes2(); + begin + return 19; + end; + function msoAnimFilterEffectSubtypeSpokes3(); + begin + return 20; + end; + function msoAnimFilterEffectSubtypeSpokes4(); + begin + return 21; + end; + function msoAnimFilterEffectSubtypeSpokes8(); + begin + return 22; + end; + function msoAnimFilterEffectSubtypeUp(); + begin + return 26; + end; + function msoAnimFilterEffectSubtypeUpLeft(); + begin + return 15; + end; + function msoAnimFilterEffectSubtypeUpRight(); + begin + return 17; + end; + function msoAnimFilterEffectSubtypeVertical(); + begin + return 6; + end; + + // MsoAnimFilterEffectType + function msoAnimFilterEffectTypeBarn(); + begin + return 1; + end; + function msoAnimFilterEffectTypeBlinds(); + begin + return 2; + end; + function msoAnimFilterEffectTypeBox(); + begin + return 3; + end; + function msoAnimFilterEffectTypeCheckerboard(); + begin + return 4; + end; + function msoAnimFilterEffectTypeCircle(); + begin + return 5; + end; + function msoAnimFilterEffectTypeDiamond(); + begin + return 6; + end; + function msoAnimFilterEffectTypeDissolve(); + begin + return 7; + end; + function msoAnimFilterEffectTypeFade(); + begin + return 8; + end; + function msoAnimFilterEffectTypeImage(); + begin + return 9; + end; + function msoAnimFilterEffectTypeNone(); + begin + return 0; + end; + function msoAnimFilterEffectTypePixelate(); + begin + return 10; + end; + function msoAnimFilterEffectTypePlus(); + begin + return 11; + end; + function msoAnimFilterEffectTypeRandomBar(); + begin + return 12; + end; + function msoAnimFilterEffectTypeSlide(); + begin + return 13; + end; + function msoAnimFilterEffectTypeStretch(); + begin + return 14; + end; + function msoAnimFilterEffectTypeStrips(); + begin + return 15; + end; + function msoAnimFilterEffectTypeWedge(); + begin + return 16; + end; + function msoAnimFilterEffectTypeWheel(); + begin + return 17; + end; + function msoAnimFilterEffectTypeWipe(); + begin + return 18; + end; + + // MsoAnimProperty + function msoAnimColor(); + begin + return 7; + end; + function msoAnimHeight(); + begin + return 4; + end; + function msoAnimNone(); + begin + return 0; + end; + function msoAnimOpacity(); + begin + return 5; + end; + function msoAnimRotation(); + begin + return 6; + end; + function msoAnimShapeFillBackColor(); + begin + return 1007; + end; + function msoAnimShapeFillColor(); + begin + return 1005; + end; + function msoAnimShapeFillOn(); + begin + return 1004; + end; + function msoAnimShapeFillOpacity(); + begin + return 1006; + end; + function msoAnimShapeLineColor(); + begin + return 1009; + end; + function msoAnimShapeLineOn(); + begin + return 1008; + end; + function msoAnimShapePictureBrightness(); + begin + return 1001; + end; + function msoAnimShapePictureContrast(); + begin + return 1000; + end; + function msoAnimShapePictureGamma(); + begin + return 1002; + end; + function msoAnimShapePictureGrayscale(); + begin + return 1003; + end; + function msoAnimShapeShadowColor(); + begin + return 1012; + end; + function msoAnimShapeShadowOffsetX(); + begin + return 1014; + end; + function msoAnimShapeShadowOffsetY(); + begin + return 1015; + end; + function msoAnimShapeShadowOn(); + begin + return 1010; + end; + function msoAnimShapeShadowOpacity(); + begin + return 1013; + end; + function msoAnimShapeShadowType(); + begin + return 1011; + end; + function msoAnimTextBulletCharacter(); + begin + return 111; + end; + function msoAnimTextBulletColor(); + begin + return 114; + end; + function msoAnimTextBulletFontName(); + begin + return 112; + end; + function msoAnimTextBulletNumber(); + begin + return 113; + end; + function msoAnimTextBulletRelativeSize(); + begin + return 115; + end; + function msoAnimTextBulletStyle(); + begin + return 116; + end; + function msoAnimTextBulletType(); + begin + return 117; + end; + function msoAnimTextFontBold(); + begin + return 100; + end; + function msoAnimTextFontColor(); + begin + return 101; + end; + function msoAnimTextFontEmboss(); + begin + return 102; + end; + function msoAnimTextFontItalic(); + begin + return 103; + end; + function msoAnimTextFontName(); + begin + return 104; + end; + function msoAnimTextFontShadow(); + begin + return 105; + end; + function msoAnimTextFontSize(); + begin + return 106; + end; + function msoAnimTextFontStrikeThrough(); + begin + return 110; + end; + function msoAnimTextFontSubscript(); + begin + return 107; + end; + function msoAnimTextFontSuperscript(); + begin + return 108; + end; + function msoAnimTextFontUnderline(); + begin + return 109; + end; + function msoAnimVisibility(); + begin + return 8; + end; + function msoAnimWidth(); + begin + return 3; + end; + function msoAnimX(); + begin + return 1; + end; + function msoAnimY(); + begin + return 2; + end; + + // MsoAnimTextUnitEffect + function msoAnimTextUnitEffectByCharacter(); + begin + return 1; + end; + function msoAnimTextUnitEffectByParagraph(); + begin + return 0; + end; + function msoAnimTextUnitEffectByWord(); + begin + return 2; + end; + function msoAnimTextUnitEffectMixed(); + begin + return -1; + end; + + // MsoAnimTriggerType + function msoAnimTriggerAfterPrevious(); + begin + return 3; + end; + function msoAnimTriggerMixed(); + begin + return -1; + end; + function msoAnimTriggerNone(); + begin + return 0; + end; + function msoAnimTriggerOnPageClick(); + begin + return 1; + end; + function msoAnimTriggerOnShapeClick(); + begin + return 4; + end; + function msoAnimTriggerWithPrevious(); + begin + return 2; + end; + function msoAnimTriggerOnMediaBookmark(); + begin + return 5; + end; + + // MsoAnimType + function msoAnimTypeColor(); + begin + return 2; + end; + function msoAnimTypeCommand(); + begin + return 6; + end; + function msoAnimTypeFilter(); + begin + return 7; + end; + function msoAnimTypeMixed(); + begin + return -2; + end; + function msoAnimTypeMotion(); + begin + return 1; + end; + function msoAnimTypeNone(); + begin + return 0; + end; + function msoAnimTypeProperty(); + begin + return 5; + end; + function msoAnimTypeRotation(); + begin + return 4; + end; + function msoAnimTypeScale(); + begin + return 3; + end; + function msoAnimTypeSet(); + begin + return 8; + end; + + // MsoClickState + function msoClickStateAfterAllAnimations(); + begin + return -2; + end; + function msoClickStateBeforeAutomaticAnimations(); + begin + return -1; + end; + + // PpActionType + function ppActionEndShow(); + begin + return 6; + end; + function ppActionFirstSlide(); + begin + return 3; + end; + function ppActionHyperlink(); + begin + return 7; + end; + function ppActionLastSlide(); + begin + return 4; + end; + function ppActionLastSlideViewed(); + begin + return 5; + end; + function ppActionMixed(); + begin + return -2; + end; + function ppActionNamedSlideShow(); + begin + return 10; + end; + function ppActionNextSlide(); + begin + return 1; + end; + function ppActionNone(); + begin + return 0; + end; + function ppActionOLEVerb(); + begin + return 11; + end; + function ppActionPlay(); + begin + return 12; + end; + function ppActionPreviousSlide(); + begin + return 2; + end; + function ppActionRunMacro(); + begin + return 8; + end; + function ppActionRunProgram(); + begin + return 9; + end; + + // PpAdvanceMode + function ppAdvanceModeMixed(); + begin + return -2; + end; + function ppAdvanceOnClick(); + begin + return 1; + end; + function ppAdvanceOnTime(); + begin + return 2; + end; + + // PpAfterEffect + function ppAfterEffectDim(); + begin + return 2; + end; + function ppAfterEffectHide(); + begin + return 1; + end; + function ppAfterEffectHideOnClick(); + begin + return 3; + end; + function ppAfterEffectMixed(); + begin + return -2; + end; + function ppAfterEffectNothing(); + begin + return 0; + end; + + // PpAlertLevel + function ppAlertsAll(); + begin + return 2; + end; + function ppAlertsNone(); + begin + return 1; + end; + + // PpArrangeStyle + function ppArrangeCascade(); + begin + return 2; + end; + function ppArrangeTiled(); + begin + return 1; + end; + + // PpAutoSize + function ppAutoSizeMixed(); + begin + return -2; + end; + function ppAutoSizeNone(); + begin + return 0; + end; + function ppAutoSizeShapeToFitText(); + begin + return 1; + end; + + // PpBaselineAlignment + function ppBaselineAlignBaseline(); + begin + return 1; + end; + function ppBaselineAlignCenter(); + begin + return 3; + end; + function ppBaselineAlignFarEast50(); + begin + return 4; + end; + function ppBaselineAlignMixed(); + begin + return -2; + end; + function ppBaselineAlignTop(); + begin + return 2; + end; + + // PpBorderType + function ppBorderBottom(); + begin + return 3; + end; + function ppBorderDiagonalDown(); + begin + return 5; + end; + function ppBorderDiagonalUp(); + begin + return 6; + end; + function ppBorderLeft(); + begin + return 2; + end; + function ppBorderRight(); + begin + return 4; + end; + function ppBorderTop(); + begin + return 1; + end; + + // PpBulletType + function ppBulletMixed(); + begin + return -2; + end; + function ppBulletNone(); + begin + return 0; + end; + function ppBulletNumbered(); + begin + return 2; + end; + function ppBulletPicture(); + begin + return 3; + end; + function ppBulletUnnumbered(); + begin + return 1; + end; + + // PpChangeCase + function ppCaseLower(); + begin + return 2; + end; + function ppCaseSentence(); + begin + return 1; + end; + function ppCaseTitle(); + begin + return 4; + end; + function ppCaseToggle(); + begin + return 5; + end; + function ppCaseUpper(); + begin + return 3; + end; + + // PpChartUnitEffect + function ppAnimateByCategory(); + begin + return 2; + end; + function ppAnimateByCategoryElements(); + begin + return 4; + end; + function ppAnimateBySeries(); + begin + return 1; + end; + function ppAnimateBySeriesElements(); + begin + return 3; + end; + function ppAnimateChartAllAtOnce(); + begin + return 5; + end; + function ppAnimateChartMixed(); + begin + return -2; + end; + + // PpCheckInVersionType + function ppCheckInMajorVersion(); + begin + return 1; + end; + function ppCheckInMinorVersion(); + begin + return 0; + end; + function ppCheckInOverwriteVersion(); + begin + return 2; + end; + + // PpColorSchemeIndex + function ppAccent1(); + begin + return 6; + end; + function ppAccent2(); + begin + return 7; + end; + function ppAccent3(); + begin + return 8; + end; + function ppBackground(); + begin + return 1; + end; + function ppFill(); + begin + return 5; + end; + function ppForeground(); + begin + return 2; + end; + function ppNotSchemeColor(); + begin + return 0; + end; + function ppSchemeColorMixed(); + begin + return -2; + end; + function ppShadow(); + begin + return 3; + end; + function ppTitle(); + begin + return 4; + end; + + // PpDateTimeFormat + function ppDateTimeddddMMMMddyyyy(); + begin + return 2; + end; + function ppDateTimedMMMMyyyy(); + begin + return 3; + end; + function ppDateTimedMMMyy(); + begin + return 5; + end; + function ppDateTimeFigureOut(); + begin + return 14; + end; + function ppDateTimeFormatMixed(); + begin + return -2; + end; + function ppDateTimeHmm(); + begin + return 10; + end; + function ppDateTimehmmAMPM(); + begin + return 12; + end; + function ppDateTimeHmmss(); + begin + return 11; + end; + function ppDateTimehmmssAMPM(); + begin + return 13; + end; + function ppDateTimeMdyy(); + begin + return 1; + end; + function ppDateTimeMMddyyHmm(); + begin + return 8; + end; + function ppDateTimeMMddyyhmmAMPM(); + begin + return 9; + end; + function ppDateTimeMMMMdyyyy(); + begin + return 4; + end; + function ppDateTimeMMMMyy(); + begin + return 6; + end; + function ppDateTimeMMyy(); + begin + return 7; + end; + function ppDateTimeUAQ1(); + begin + return 15; + end; + function ppDateTimeUAQ2(); + begin + return 16; + end; + function ppDateTimeUAQ3(); + begin + return 17; + end; + function ppDateTimeUAQ4(); + begin + return 18; + end; + function ppDateTimeUAQ5(); + begin + return 19; + end; + function ppDateTimeUAQ6(); + begin + return 20; + end; + function ppDateTimeUAQ7(); + begin + return 21; + end; + + // PpDirection + function ppDirectionLeftToRight(); + begin + return 1; + end; + function ppDirectionMixed(); + begin + return -2; + end; + function ppDirectionRightToLeft(); + begin + return 2; + end; + + // PpEntryEffect + function ppEffectAppear(); + begin + return 3844; + end; + function ppEffectBlindsHorizontal(); + begin + return 769; + end; + function ppEffectBlindsVertical(); + begin + return 770; + end; + function ppEffectBoxDown(); + begin + return 3925; + end; + function ppEffectBoxIn(); + begin + return 3074; + end; + function ppEffectBoxLeft(); + begin + return 3922; + end; + function ppEffectBoxOut(); + begin + return 3073; + end; + function ppEffectBoxRight(); + begin + return 3924; + end; + function ppEffectBoxUp(); + begin + return 3923; + end; + function ppEffectCheckerboardAcross(); + begin + return 1025; + end; + function ppEffectCheckerboardDown(); + begin + return 1026; + end; + function ppEffectCircleOut(); + begin + return 3845; + end; + function ppEffectCombHorizontal(); + begin + return 3847; + end; + function ppEffectCombVertical(); + begin + return 3848; + end; + function ppEffectConveyorLeft(); + begin + return 3882; + end; + function ppEffectConveyorRight(); + begin + return 3883; + end; + function ppEffectCoverDown(); + begin + return 1284; + end; + function ppEffectCoverLeft(); + begin + return 1281; + end; + function ppEffectCoverLeftDown(); + begin + return 1287; + end; + function ppEffectCoverLeftUp(); + begin + return 1285; + end; + function ppEffectCoverRight(); + begin + return 1283; + end; + function ppEffectCoverRightDown(); + begin + return 1288; + end; + function ppEffectCoverRightUp(); + begin + return 1286; + end; + function ppEffectCoverUp(); + begin + return 1282; + end; + function ppEffectCrawlFromDown(); + begin + return 3344; + end; + function ppEffectCrawlFromLeft(); + begin + return 3341; + end; + function ppEffectCrawlFromRight(); + begin + return 3343; + end; + function ppEffectCrawlFromUp(); + begin + return 3342; + end; + function ppEffectCubeDown(); + begin + return 3917; + end; + function ppEffectCubeLeft(); + begin + return 3914; + end; + function ppEffectCubeRight(); + begin + return 3916; + end; + function ppEffectCubeUp(); + begin + return 3915; + end; + function ppEffectCut(); + begin + return 257; + end; + function ppEffectCutThroughBlack(); + begin + return 258; + end; + function ppEffectDiamondOut(); + begin + return 3846; + end; + function ppEffectDissolve(); + begin + return 1537; + end; + function ppEffectDoorsHorizontal(); + begin + return 3885; + end; + function ppEffectDoorsVertical(); + begin + return 3884; + end; + function ppEffectFade(); + begin + return 1793; + end; + function ppEffectFadeSmoothly(); + begin + return 3849; + end; + function ppEffectFerrisWheelLeft(); + begin + return 3899; + end; + function ppEffectFerrisWheelRight(); + begin + return 3900; + end; + function ppEffectFlashbulb(); + begin + return 3909; + end; + function ppEffectFlashOnceFast(); + begin + return 3841; + end; + function ppEffectFlashOnceMedium(); + begin + return 3842; + end; + function ppEffectFlashOnceSlow(); + begin + return 3843; + end; + function ppEffectFlipDown(); + begin + return 3908; + end; + function ppEffectFlipLeft(); + begin + return 3905; + end; + function ppEffectFlipRight(); + begin + return 3907; + end; + function ppEffectFlipUp(); + begin + return 3906; + end; + function ppEffectFlyFromBottom(); + begin + return 3332; + end; + function ppEffectFlyFromBottomLeft(); + begin + return 3335; + end; + function ppEffectFlyFromBottomRight(); + begin + return 3336; + end; + function ppEffectFlyFromLeft(); + begin + return 3329; + end; + function ppEffectFlyFromRight(); + begin + return 3331; + end; + function ppEffectFlyFromTop(); + begin + return 3330; + end; + function ppEffectFlyFromTopLeft(); + begin + return 3333; + end; + function ppEffectFlyFromTopRight(); + begin + return 3334; + end; + function ppEffectFlyThroughIn(); + begin + return 3890; + end; + function ppEffectFlyThroughInBounce(); + begin + return 3892; + end; + function ppEffectFlyThroughOut(); + begin + return 3891; + end; + function ppEffectFlyThroughOutBounce(); + begin + return 3893; + end; + function ppEffectGalleryLeft(); + begin + return 3880; + end; + function ppEffectGalleryRight(); + begin + return 3881; + end; + function ppEffectGlitterDiamondDown(); + begin + return 3875; + end; + function ppEffectGlitterDiamondLeft(); + begin + return 3872; + end; + function ppEffectGlitterDiamondRight(); + begin + return 3874; + end; + function ppEffectGlitterDiamondUp(); + begin + return 3873; + end; + function ppEffectGlitterHexagonDown(); + begin + return 3879; + end; + function ppEffectGlitterHexagonLeft(); + begin + return 3876; + end; + function ppEffectGlitterHexagonRight(); + begin + return 3878; + end; + function ppEffectGlitterHexagonUp(); + begin + return 3877; + end; + function ppEffectHoneycomb(); + begin + return 3898; + end; + function ppEffectMixed(); + begin + return -2; + end; + function ppEffectNewsflash(); + begin + return 3850; + end; + function ppEffectNone(); + begin + return 0; + end; + function ppEffectOrbitDown(); + begin + return 3929; + end; + function ppEffectOrbitLeft(); + begin + return 3926; + end; + function ppEffectOrbitRight(); + begin + return 3928; + end; + function ppEffectOrbitUp(); + begin + return 3927; + end; + function ppEffectPanDown(); + begin + return 3933; + end; + function ppEffectPanLeft(); + begin + return 3930; + end; + function ppEffectPanRight(); + begin + return 3932; + end; + function ppEffectPanUp(); + begin + return 3931; + end; + function ppEffectPeekFromDown(); + begin + return 3338; + end; + function ppEffectPeekFromLeft(); + begin + return 3337; + end; + function ppEffectPeekFromRight(); + begin + return 3339; + end; + function ppEffectPeekFromUp(); + begin + return 3340; + end; + function ppEffectPlusOut(); + begin + return 3851; + end; + function ppEffectPushDown(); + begin + return 3852; + end; + function ppEffectPushLeft(); + begin + return 3853; + end; + function ppEffectPushRight(); + begin + return 3854; + end; + function ppEffectPushUp(); + begin + return 3855; + end; + function ppEffectRandom(); + begin + return 513; + end; + function ppEffectRandomBarsHorizontal(); + begin + return 2305; + end; + function ppEffectRandomBarsVertical(); + begin + return 2306; + end; + function ppEffectRevealBlackLeft(); + begin + return 3896; + end; + function ppEffectRevealBlackRight(); + begin + return 3897; + end; + function ppEffectRevealSmoothLeft(); + begin + return 3894; + end; + function ppEffectRevealSmoothRight(); + begin + return 3895; + end; + function ppEffectRippleCenter(); + begin + return 3867; + end; + function ppEffectRippleLeftDown(); + begin + return 3870; + end; + function ppEffectRippleLeftUp(); + begin + return 3869; + end; + function ppEffectRippleRightDown(); + begin + return 3871; + end; + function ppEffectRippleRightUp(); + begin + return 3868; + end; + function ppEffectRotateDown(); + begin + return 3921; + end; + function ppEffectRotateLeft(); + begin + return 3918; + end; + function ppEffectRotateRight(); + begin + return 3920; + end; + function ppEffectRotateUp(); + begin + return 3919; + end; + function ppEffectShredRectangleIn(); + begin + return 3912; + end; + function ppEffectShredRectangleOut(); + begin + return 3913; + end; + function ppEffectShredStripsIn(); + begin + return 3910; + end; + function ppEffectShredStripsOut(); + begin + return 3911; + end; + function ppEffectSpiral(); + begin + return 3357; + end; + function ppEffectSplitHorizontalIn(); + begin + return 3586; + end; + function ppEffectSplitHorizontalOut(); + begin + return 3585; + end; + function ppEffectSplitVerticalIn(); + begin + return 3588; + end; + function ppEffectSplitVerticalOut(); + begin + return 3587; + end; + function ppEffectStretchAcross(); + begin + return 3351; + end; + function ppEffectStretchDown(); + begin + return 3355; + end; + function ppEffectStretchLeft(); + begin + return 3352; + end; + function ppEffectStretchRight(); + begin + return 3354; + end; + function ppEffectStretchUp(); + begin + return 3353; + end; + function ppEffectStripsDownLeft(); + begin + return 2563; + end; + function ppEffectStripsDownRight(); + begin + return 2564; + end; + function ppEffectStripsLeftDown(); + begin + return 2567; + end; + function ppEffectStripsLeftUp(); + begin + return 2565; + end; + function ppEffectStripsRightDown(); + begin + return 2568; + end; + function ppEffectStripsRightUp(); + begin + return 2566; + end; + function ppEffectStripsUpLeft(); + begin + return 2561; + end; + function ppEffectStripsUpRight(); + begin + return 2562; + end; + function ppEffectSwitchDown(); + begin + return 3904; + end; + function ppEffectSwitchLeft(); + begin + return 3901; + end; + function ppEffectSwitchRight(); + begin + return 3903; + end; + function ppEffectSwitchUp(); + begin + return 3902; + end; + function ppEffectSwivel(); + begin + return 3356; + end; + function ppEffectUncoverDown(); + begin + return 2052; + end; + function ppEffectUncoverLeft(); + begin + return 2049; + end; + function ppEffectUncoverLeftDown(); + begin + return 2055; + end; + function ppEffectUncoverLeftUp(); + begin + return 2053; + end; + function ppEffectUncoverRight(); + begin + return 2051; + end; + function ppEffectUncoverRightDown(); + begin + return 2056; + end; + function ppEffectUncoverRightUp(); + begin + return 2054; + end; + function ppEffectUncoverUp(); + begin + return 2050; + end; + function ppEffectVortexDown(); + begin + return 3866; + end; + function ppEffectVortexLeft(); + begin + return 3863; + end; + function ppEffectVortexRight(); + begin + return 3865; + end; + function ppEffectVortexUp(); + begin + return 3864; + end; + function ppEffectWarpIn(); + begin + return 3888; + end; + function ppEffectWarpOut(); + begin + return 3889; + end; + function ppEffectWedge(); + begin + return 3856; + end; + function ppEffectWheel1Spoke(); + begin + return 3857; + end; + function ppEffectWheel2Spokes(); + begin + return 3858; + end; + function ppEffectWheel3Spokes(); + begin + return 3859; + end; + function ppEffectWheel4Spokes(); + begin + return 3860; + end; + function ppEffectWheel8Spokes(); + begin + return 3861; + end; + function ppEffectWheelReverse1Spoke(); + begin + return 3862; + end; + function ppEffectWindowHorizontal(); + begin + return 3887; + end; + function ppEffectWindowVertical(); + begin + return 3886; + end; + function ppEffectWipeDown(); + begin + return 2820; + end; + function ppEffectWipeLeft(); + begin + return 2817; + end; + function ppEffectWipeRight(); + begin + return 2819; + end; + function ppEffectWipeUp(); + begin + return 2818; + end; + function ppEffectZoomBottom(); + begin + return 3350; + end; + function ppEffectZoomCenter(); + begin + return 3349; + end; + function ppEffectZoomIn(); + begin + return 3345; + end; + function ppEffectZoomInSlightly(); + begin + return 3346; + end; + function ppEffectZoomOut(); + begin + return 3347; + end; + function ppEffectZoomOutSlightly(); + begin + return 3348; + end; + + // PpFarEastLineBreakLevel + function ppFarEastLineBreakLevelCustom(); + begin + return 3; + end; + function ppFarEastLineBreakLevelNormal(); + begin + return 1; + end; + function ppFarEastLineBreakLevelStrict(); + begin + return 2; + end; + + // PpFixedFormatIntent + function ppFixedFormatIntentPrint(); + begin + return 2; + end; + function ppFixedFormatIntentScreen(); + begin + return 1; + end; + + // PpFixedFormatType + function ppFixedFormatTypePDF(); + begin + return 2; + end; + function ppFixedFormatTypeXPS(); + begin + return 1; + end; + + // PpFollowColors + function ppFollowColorsMixed(); + begin + return -2; + end; + function ppFollowColorsNone(); + begin + return 0; + end; + function ppFollowColorsScheme(); + begin + return 1; + end; + function ppFollowColorsTextAndBackground(); + begin + return 2; + end; + + // PpFrameColors + function ppFrameColorsBlackTextOnWhite(); + begin + return 5; + end; + function ppFrameColorsBrowserColors(); + begin + return 1; + end; + function ppFrameColorsPresentationSchemeAccentColor(); + begin + return 3; + end; + function ppFrameColorsPresentationSchemeTextColor(); + begin + return 2; + end; + function ppFrameColorsWhiteTextOnBlack(); + begin + return 4; + end; + + // PpGuideOrientation + function ppHorizontalGuide(); + begin + return 1; + end; + function ppVerticalGuide(); + begin + return 2; + end; + + // PpHTMLVersion + function ppHTMLAutodetect(); + begin + return 4; + end; + function ppHTMLDual(); + begin + return 3; + end; + function ppHTMLv3(); + begin + return 1; + end; + function ppHTMLv4(); + begin + return 2; + end; + + // PpIndentControl + function ppIndentControlMixed(); + begin + return -2; + end; + function ppIndentKeepAttr(); + begin + return 2; + end; + function ppIndentReplaceAttr(); + begin + return 1; + end; + + // PpMediaTaskStatus + function ppMediaTaskStatusNone(); + begin + return 0; + end; + function ppMediaTaskStatusInProgress(); + begin + return 1; + end; + function ppMediaTaskStatusQueued(); + begin + return 2; + end; + function ppMediaTaskStatusDone(); + begin + return 3; + end; + function ppMediaTaskStatusFailed(); + begin + return 4; + end; + + // PpMediaType + function ppMediaTypeMixed(); + begin + return -2; + end; + function ppMediaTypeMovie(); + begin + return 3; + end; + function ppMediaTypeOther(); + begin + return 1; + end; + function ppMediaTypeSound(); + begin + return 2; + end; + + // PpMouseActivation + function ppMouseClick(); + begin + return 1; + end; + function ppMouseOver(); + begin + return 2; + end; + + // PpNumberedBulletStyle + function ppBulletAlphaLCParenBoth(); + begin + return 8; + end; + function ppBulletAlphaLCParenRight(); + begin + return 9; + end; + function ppBulletAlphaLCPeriod(); + begin + return 0; + end; + function ppBulletAlphaUCParenBoth(); + begin + return 10; + end; + function ppBulletAlphaUCParenRight(); + begin + return 11; + end; + function ppBulletAlphaUCPeriod(); + begin + return 1; + end; + function ppBulletArabicAbjadDash(); + begin + return 24; + end; + function ppBulletArabicAlphaDash(); + begin + return 23; + end; + function ppBulletArabicDBPeriod(); + begin + return 29; + end; + function ppBulletArabicDBPlain(); + begin + return 28; + end; + function ppBulletArabicParenBoth(); + begin + return 12; + end; + function ppBulletArabicParenRight(); + begin + return 2; + end; + function ppBulletArabicPeriod(); + begin + return 3; + end; + function ppBulletArabicPlain(); + begin + return 13; + end; + function ppBulletCircleNumDBPlain(); + begin + return 18; + end; + function ppBulletCircleNumWDBlackPlain(); + begin + return 20; + end; + function ppBulletCircleNumWDWhitePlain(); + begin + return 19; + end; + function ppBulletHebrewAlphaDash(); + begin + return 25; + end; + function ppBulletHindiAlpha1Period(); + begin + return 40; + end; + function ppBulletHindiAlphaPeriod(); + begin + return 36; + end; + function ppBulletHindiNumParenRight(); + begin + return 39; + end; + function ppBulletHindiNumPeriod(); + begin + return 37; + end; + function ppBulletKanjiKoreanPeriod(); + begin + return 27; + end; + function ppBulletKanjiKoreanPlain(); + begin + return 26; + end; + function ppBulletKanjiSimpChinDBPeriod(); + begin + return 38; + end; + function ppBulletRomanLCParenBoth(); + begin + return 4; + end; + function ppBulletRomanLCParenRight(); + begin + return 5; + end; + function ppBulletRomanLCPeriod(); + begin + return 6; + end; + function ppBulletRomanUCParenBoth(); + begin + return 14; + end; + function ppBulletRomanUCParenRight(); + begin + return 15; + end; + function ppBulletRomanUCPeriod(); + begin + return 7; + end; + function ppBulletSimpChinPeriod(); + begin + return 17; + end; + function ppBulletSimpChinPlain(); + begin + return 16; + end; + function ppBulletStyleMixed(); + begin + return -2; + end; + function ppBulletThaiAlphaParenBoth(); + begin + return 32; + end; + function ppBulletThaiAlphaParenRight(); + begin + return 31; + end; + function ppBulletThaiAlphaPeriod(); + begin + return 30; + end; + function ppBulletThaiNumParenBoth(); + begin + return 35; + end; + function ppBulletThaiNumParenRight(); + begin + return 34; + end; + function ppBulletThaiNumPeriod(); + begin + return 33; + end; + function ppBulletTradChinPeriod(); + begin + return 22; + end; + function ppBulletTradChinPlain(); + begin + return 21; + end; + + // PpParagraphAlignment + function ppAlignCenter(); + begin + return 2; + end; + function ppAlignDistribute(); + begin + return 5; + end; + function ppAlignJustify(); + begin + return 4; + end; + function ppAlignJustifyLow(); + begin + return 7; + end; + function ppAlignLeft(); + begin + return 1; + end; + function ppAlignmentMixed(); + begin + return -2; + end; + function ppAlignRight(); + begin + return 3; + end; + function ppAlignThaiDistribute(); + begin + return 6; + end; + + // PpPasteDataType + function ppPasteBitmap(); + begin + return 1; + end; + function ppPasteDefault(); + begin + return 0; + end; + function ppPasteEnhancedMetafile(); + begin + return 2; + end; + function ppPasteGIF(); + begin + return 4; + end; + function ppPasteHTML(); + begin + return 8; + end; + function ppPasteJPG(); + begin + return 5; + end; + function ppPasteMetafilePicture(); + begin + return 3; + end; + function ppPasteOLEObject(); + begin + return 10; + end; + function ppPastePNG(); + begin + return 6; + end; + function ppPasteRTF(); + begin + return 9; + end; + function ppPasteShape(); + begin + return 11; + end; + function ppPasteText(); + begin + return 7; + end; + + // PpPlaceholderType + function ppPlaceholderMixed(); + begin + return -2; + end; + function ppPlaceholderTitle(); + begin + return 1; + end; + function ppPlaceholderBody(); + begin + return 2; + end; + function ppPlaceholderCenterTitle(); + begin + return 3; + end; + function ppPlaceholderSubtitle(); + begin + return 4; + end; + function ppPlaceholderVerticalTitle(); + begin + return 5; + end; + function ppPlaceholderVerticalBody(); + begin + return 6; + end; + function ppPlaceholderObject(); + begin + return 7; + end; + function ppPlaceholderChart(); + begin + return 8; + end; + function ppPlaceholderBitmap(); + begin + return 9; + end; + function ppPlaceholderMediaClip(); + begin + return 10; + end; + function ppPlaceholderOrgChart(); + begin + return 11; + end; + function ppPlaceholderTable(); + begin + return 12; + end; + function ppPlaceholderSlideNumber(); + begin + return 13; + end; + function ppPlaceholderHeader(); + begin + return 14; + end; + function ppPlaceholderFooter(); + begin + return 15; + end; + function ppPlaceholderDate(); + begin + return 16; + end; + function ppPlaceholderVerticalObject(); + begin + return 17; + end; + function ppPlaceholderPicture(); + begin + return 18; + end; + function ppPlaceholderCameo(); + begin + return 19; + end; + + // PpPlayerState + function ppPlaying(); + begin + return 0; + end; + function ppPaused(); + begin + return 1; + end; + function ppStopped(); + begin + return 2; + end; + function ppNotReady(); + begin + return 3; + end; + + // PpPrintColorType + function ppPrintBlackAndWhite(); + begin + return 2; + end; + function ppPrintColor(); + begin + return 1; + end; + function ppPrintPureBlackAndWhite(); + begin + return 3; + end; + + // PpPrintHandoutOrder + function ppPrintHandoutHorizontalFirst(); + begin + return 2; + end; + function ppPrintHandoutVerticalFirst(); + begin + return 1; + end; + + // PpPrintOutputType + function ppPrintOutputBuildSlides(); + begin + return 7; + end; + function ppPrintOutputFourSlideHandouts(); + begin + return 8; + end; + function ppPrintOutputNineSlideHandouts(); + begin + return 9; + end; + function ppPrintOutputNotesPages(); + begin + return 5; + end; + function ppPrintOutputOneSlideHandouts(); + begin + return 10; + end; + function ppPrintOutputOutline(); + begin + return 6; + end; + function ppPrintOutputSixSlideHandouts(); + begin + return 4; + end; + function ppPrintOutputSlides(); + begin + return 1; + end; + function ppPrintOutputThreeSlideHandouts(); + begin + return 3; + end; + function ppPrintOutputTwoSlideHandouts(); + begin + return 2; + end; + + // PpPrintRangeType + function ppPrintAll(); + begin + return 1; + end; + function ppPrintCurrent(); + begin + return 3; + end; + function ppPrintNamedSlideShow(); + begin + return 5; + end; + function ppPrintSelection(); + begin + return 2; + end; + function ppPrintSlideRange(); + begin + return 4; + end; + + // PpProtectedViewCloseReason + function ppProtectedViewCloseNormal(); + begin + return 0; + end; + function ppProtectedViewCloseEdit(); + begin + return 1; + end; + function ppProtectedViewCloseForced(); + begin + return 2; + end; + + // PpPublishSourceType + function ppPublishAll(); + begin + return 1; + end; + function ppPublishNamedSlideShow(); + begin + return 3; + end; + function ppPublishSlideRange(); + begin + return 2; + end; + + // PpRemoveDocInfoType + function ppRDIAll(); + begin + return 99; + end; + function ppRDIAtMentions(); + begin + return 18; + end; + function ppRDIComments(); + begin + return 1; + end; + function ppRDIContentType(); + begin + return 16; + end; + function ppRDIDocumentManagementPolicy(); + begin + return 15; + end; + function ppRDIDocumentProperties(); + begin + return 8; + end; + function ppRDIDocumentServerProperties(); + begin + return 14; + end; + function ppRDIDocumentWorkspace(); + begin + return 10; + end; + function ppRDIInkAnnotations(); + begin + return 11; + end; + function ppRDIPublishPath(); + begin + return 13; + end; + function ppRDIRemovePersonalInformation(); + begin + return 4; + end; + function ppRDISlideUpdateInformation(); + begin + return 17; + end; + + // PpResampleMediaProfile + function ppResampleMediaProfileCustom(); + begin + return 1; + end; + function ppResampleMediaProfileSmall(); + begin + return 2; + end; + function ppResampleMediaProfileSmaller(); + begin + return 3; + end; + function ppResampleMediaProfileSmallest(); + begin + return 4; + end; + + // PpRevisionInfo + function ppRevisionInfoBaseline(); + begin + return 1; + end; + function ppRevisionInfoMerged(); + begin + return 2; + end; + function ppRevisionInfoNone(); + begin + return 0; + end; + + // PpSaveAsFileType + function ppSaveAsAddIn(); + begin + return 8; + end; + function ppSaveAsAnimatedGIF(); + begin + return 40; + end; + function ppSaveAsBMP(); + begin + return 19; + end; + function ppSaveAsDefault(); + begin + return 11; + end; + function ppSaveAsEMF(); + begin + return 23; + end; + function ppSaveAsExternalConverter(); + begin + return 64000; + end; + function ppSaveAsGIF(); + begin + return 16; + end; + function ppSaveAsJPG(); + begin + return 17; + end; + function ppSaveAsMetaFile(); + begin + return 15; + end; + function ppSaveAsMP4(); + begin + return 39; + end; + function ppSaveAsOpenDocumentPresentation(); + begin + return 35; + end; + function ppSaveAsOpenXMLAddin(); + begin + return 30; + end; + function ppSaveAsOpenXMLPicturePresentation(); + begin + return 36; + end; + function ppSaveAsOpenXMLPresentation(); + begin + return 24; + end; + function ppSaveAsOpenXMLPresentationMacroEnabled(); + begin + return 25; + end; + function ppSaveAsOpenXMLShow(); + begin + return 28; + end; + function ppSaveAsOpenXMLShowMacroEnabled(); + begin + return 29; + end; + function ppSaveAsOpenXMLTemplate(); + begin + return 26; + end; + function ppSaveAsOpenXMLTemplateMacroEnabled(); + begin + return 27; + end; + function ppSaveAsOpenXMLTheme(); + begin + return 31; + end; + function ppSaveAsPDF(); + begin + return 32; + end; + function ppSaveAsPNG(); + begin + return 18; + end; + function ppSaveAsPresentation(); + begin + return 1; + end; + function ppSaveAsRTF(); + begin + return 6; + end; + function ppSaveAsShow(); + begin + return 7; + end; + function ppSaveAsStrictOpenXMLPresentation(); + begin + return 38; + end; + function ppSaveAsTemplate(); + begin + return 5; + end; + function ppSaveAsTIF(); + begin + return 21; + end; + function ppSaveAsWMV(); + begin + return 37; + end; + function ppSaveAsXMLPresentation(); + begin + return 34; + end; + function ppSaveAsXPS(); + begin + return 33; + end; + + // PpSelectionType + function ppSelectionNone(); + begin + return 0; + end; + function ppSelectionShapes(); + begin + return 2; + end; + function ppSelectionSlides(); + begin + return 1; + end; + function ppSelectionText(); + begin + return 3; + end; + + // PpSlideLayout + function ppLayoutBlank(); + begin + return 12; + end; + function ppLayoutChart(); + begin + return 8; + end; + function ppLayoutChartAndText(); + begin + return 6; + end; + function ppLayoutClipArtAndText(); + begin + return 10; + end; + function ppLayoutClipArtAndVerticalText(); + begin + return 26; + end; + function ppLayoutComparison(); + begin + return 34; + end; + function ppLayoutContentWithCaption(); + begin + return 35; + end; + function ppLayoutCustom(); + begin + return 32; + end; + function ppLayoutFourObjects(); + begin + return 24; + end; + function ppLayoutLargeObject(); + begin + return 15; + end; + function ppLayoutMediaClipAndText(); + begin + return 18; + end; + function ppLayoutMixed(); + begin + return -2; + end; + function ppLayoutObject(); + begin + return 16; + end; + function ppLayoutObjectAndText(); + begin + return 14; + end; + function ppLayoutObjectAndTwoObjects(); + begin + return 30; + end; + function ppLayoutObjectOverText(); + begin + return 19; + end; + function ppLayoutOrgchart(); + begin + return 7; + end; + function ppLayoutPictureWithCaption(); + begin + return 36; + end; + function ppLayoutSectionHeader(); + begin + return 33; + end; + function ppLayoutTable(); + begin + return 4; + end; + function ppLayoutText(); + begin + return 2; + end; + function ppLayoutTextAndChart(); + begin + return 5; + end; + function ppLayoutTextAndClipArt(); + begin + return 9; + end; + function ppLayoutTextAndMediaClip(); + begin + return 17; + end; + function ppLayoutTextAndObject(); + begin + return 13; + end; + function ppLayoutTextAndTwoObjects(); + begin + return 21; + end; + function ppLayoutTextOverObject(); + begin + return 20; + end; + function ppLayoutTitle(); + begin + return 1; + end; + function ppLayoutTitleOnly(); + begin + return 11; + end; + function ppLayoutTwoColumnText(); + begin + return 3; + end; + function ppLayoutTwoObjects(); + begin + return 29; + end; + function ppLayoutTwoObjectsAndObject(); + begin + return 31; + end; + function ppLayoutTwoObjectsAndText(); + begin + return 22; + end; + function ppLayoutTwoObjectsOverText(); + begin + return 23; + end; + function ppLayoutVerticalText(); + begin + return 25; + end; + function ppLayoutVerticalTitleAndText(); + begin + return 27; + end; + function ppLayoutVerticalTitleAndTextOverChart(); + begin + return 28; + end; + + // PpSlideShowAdvanceMode + function ppSlideShowManualAdvance(); + begin + return 1; + end; + function ppSlideShowRehearseNewTimings(); + begin + return 3; + end; + function ppSlideShowUseSlideTimings(); + begin + return 2; + end; + + // PpSlideShowPointerType + function ppSlideShowPointerAlwaysHidden(); + begin + return 3; + end; + function ppSlideShowPointerArrow(); + begin + return 1; + end; + function ppSlideShowPointerAutoArrow(); + begin + return 4; + end; + function ppSlideShowPointerEraser(); + begin + return 5; + end; + function ppSlideShowPointerNone(); + begin + return 0; + end; + function ppSlideShowPointerPen(); + begin + return 2; + end; + + // PpSlideShowRangeType + function ppShowAll(); + begin + return 1; + end; + function ppShowNamedSlideShow(); + begin + return 3; + end; + function ppShowSlideRange(); + begin + return 2; + end; + + // PpSlideShowState + function ppSlideShowBlackScreen(); + begin + return 3; + end; + function ppSlideShowDone(); + begin + return 5; + end; + function ppSlideShowPaused(); + begin + return 2; + end; + function ppSlideShowRunning(); + begin + return 1; + end; + function ppSlideShowWhiteScreen(); + begin + return 4; + end; + + // PpSlideShowType + function ppShowTypeKiosk(); + begin + return 3; + end; + function ppShowTypeSpeaker(); + begin + return 1; + end; + function ppShowTypeWindow(); + begin + return 2; + end; + function ppShowTypeWindow2(); + begin + return 4; + end; + + // PpSlideSizeType + function ppSlideSize35MM(); + begin + return 4; + end; + function ppSlideSizeA3Paper(); + begin + return 9; + end; + function ppSlideSizeA4Paper(); + begin + return 3; + end; + function ppSlideSizeB4ISOPaper(); + begin + return 10; + end; + function ppSlideSizeB4JISPaper(); + begin + return 12; + end; + function ppSlideSizeB5ISOPaper(); + begin + return 11; + end; + function ppSlideSizeB5JISPaper(); + begin + return 13; + end; + function ppSlideSizeBanner(); + begin + return 6; + end; + function ppSlideSizeCustom(); + begin + return 7; + end; + function ppSlideSizeHagakiCard(); + begin + return 14; + end; + function ppSlideSizeLedgerPaper(); + begin + return 8; + end; + function ppSlideSizeLetterPaper(); + begin + return 2; + end; + function ppSlideSizeOnScreen(); + begin + return 1; + end; + function ppSlideSizeOverhead(); + begin + return 5; + end; + + // PpSoundEffectType + function ppSoundEffectsMixed(); + begin + return -2; + end; + function ppSoundFile(); + begin + return 2; + end; + function ppSoundNone(); + begin + return 0; + end; + function ppSoundStopPrevious(); + begin + return 1; + end; + + // PpSoundFormatType + function ppSoundFormatCDAudio(); + begin + return 3; + end; + function ppSoundFormatMIDI(); + begin + return 2; + end; + function ppSoundFormatMixed(); + begin + return -2; + end; + function ppSoundFormatNone(); + begin + return 0; + end; + function ppSoundFormatWAV(); + begin + return 1; + end; + + // PpTabStopType + function ppTabStopCenter(); + begin + return 2; + end; + function ppTabStopDecimal(); + begin + return 4; + end; + function ppTabStopLeft(); + begin + return 1; + end; + function ppTabStopMixed(); + begin + return -2; + end; + function ppTabStopRight(); + begin + return 3; + end; + + // PpTextLevelEffect + function ppAnimateByAllLevels(); + begin + return 16; + end; + function ppAnimateByFifthLevel(); + begin + return 5; + end; + function ppAnimateByFirstLevel(); + begin + return 1; + end; + function ppAnimateByFourthLevel(); + begin + return 4; + end; + function ppAnimateBySecondLevel(); + begin + return 2; + end; + function ppAnimateByThirdLevel(); + begin + return 3; + end; + function ppAnimateLevelMixed(); + begin + return -2; + end; + function ppAnimateLevelNone(); + begin + return 0; + end; + + // PpTextStyleType + function ppBodyStyle(); + begin + return 3; + end; + function ppDefaultStyle(); + begin + return 1; + end; + function ppTitleStyle(); + begin + return 2; + end; + + // PpTextUnitEffect + function ppAnimateByCharacter(); + begin + return 2; + end; + function ppAnimateByParagraph(); + begin + return 0; + end; + function ppAnimateByWord(); + begin + return 1; + end; + function ppAnimateUnitMixed(); + begin + return -2; + end; + + // PpTransitionSpeed + function ppTransitionSpeedFast(); + begin + return 3; + end; + function ppTransitionSpeedMedium(); + begin + return 2; + end; + function ppTransitionSpeedMixed(); + begin + return -2; + end; + function ppTransitionSpeedSlow(); + begin + return 1; + end; + + // PpUpdateOption + function ppUpdateOptionAutomatic(); + begin + return 2; + end; + function ppUpdateOptionManual(); + begin + return 1; + end; + function ppUpdateOptionMixed(); + begin + return -2; + end; + + // PpViewType + function ppViewHandoutMaster(); + begin + return 4; + end; + function ppViewMasterThumbnails(); + begin + return 12; + end; + function ppViewNormal(); + begin + return 9; + end; + function ppViewNotesMaster(); + begin + return 5; + end; + function ppViewNotesPage(); + begin + return 3; + end; + function ppViewOutline(); + begin + return 6; + end; + function ppViewPrintPreview(); + begin + return 10; + end; + function ppViewSlide(); + begin + return 1; + end; + function ppViewSlideMaster(); + begin + return 2; + end; + function ppViewSlideSorter(); + begin + return 7; + end; + function ppViewThumbnails(); + begin + return 11; + end; + function ppViewTitleMaster(); + begin + return 8; + end; + + // PpWindowState + function ppWindowMaximized(); + begin + return 3; + end; + function ppWindowMinimized(); + begin + return 2; + end; + function ppWindowNormal(); + begin + return 1; + end; + + // XlAxisCrosses + function xlAxisCrossesAutomatic(); + begin + return -4105; + end; + function xlAxisCrossesCustom(); + begin + return -4114; + end; + function xlAxisCrossesMaximum(); + begin + return 2; + end; + function xlAxisCrossesMinimum(); + begin + return 4; + end; + + // XlAxisGroup + function xlPrimary(); + begin + return 1; + end; + function xlSecondary(); + begin + return 2; + end; + + // XlAxisType + function xlCategory(); + begin + return 1; + end; + function xlSeriesAxis(); + begin + return 3; + end; + function xlValue(); + begin + return 2; + end; + + // XlBackground + function xlBackgroundAutomatic(); + begin + return -4105; + end; + function xlBackgroundOpaque(); + begin + return 3; + end; + function xlBackgroundTransparent(); + begin + return 2; + end; + + // XlBarShape + function xlBox(); + begin + return 0; + end; + function xlConeToMax(); + begin + return 5; + end; + function xlConeToPoint(); + begin + return 4; + end; + function xlCylinder(); + begin + return 3; + end; + function xlPyramidToMax(); + begin + return 2; + end; + function xlPyramidToPoint(); + begin + return 1; + end; + + // XlBinsType + function xlBinsTypeAutomatic(); + begin + return 0; + end; + function xlBinsTypeCategorical(); + begin + return 1; + end; + function xlBinsTypeManual(); + begin + return 2; + end; + function xlBinsTypeBinSize(); + begin + return 3; + end; + function xlBinsTypeBinCount(); + begin + return 4; + end; + + // XlBorderWeight + function xlHairline(); + begin + return 1; + end; + function xlMedium(); + begin + return -4138; + end; + function xlThick(); + begin + return 4; + end; + function xlThin(); + begin + return 2; + end; + + // XlCategoryLabelLevel + function xlCategoryLabelLevelAll(); + begin + return -1; + end; + function xlCategoryLabelLevelCustom(); + begin + return -2; + end; + function xlCategoryLabelLevelNone(); + begin + return -3; + end; + + // XlCategoryType + function xlAutomaticScale(); + begin + return -4105; + end; + function xlCategoryScale(); + begin + return 2; + end; + function xlTimeScale(); + begin + return 3; + end; + + // XlChartElementPosition + function xlChartElementPositionAutomatic(); + begin + return -4105; + end; + function xlChartElementPositionCustom(); + begin + return -4114; + end; + + // XlChartGallery + function xlAnyGallery(); + begin + return 23; + end; + function xlBuiltIn(); + begin + return 21; + end; + function xlUserDefined(); + begin + return 22; + end; + + // XlChartItem + function xlAxis(); + begin + return 21; + end; + function xlAxisTitle(); + begin + return 17; + end; + function xlChartArea(); + begin + return 2; + end; + function xlChartTitle(); + begin + return 4; + end; + function xlCorners(); + begin + return 6; + end; + function xlDataLabel(); + begin + return 0; + end; + function xlDataTable(); + begin + return 7; + end; + function xlDisplayUnitLabel(); + begin + return 30; + end; + function xlDownBars(); + begin + return 20; + end; + function xlDropLines(); + begin + return 26; + end; + function xlErrorBars(); + begin + return 9; + end; + function xlFloor(); + begin + return 23; + end; + function xlHiLoLines(); + begin + return 25; + end; + function xlLeaderLines(); + begin + return 29; + end; + function xlLegend(); + begin + return 24; + end; + function xlLegendEntry(); + begin + return 12; + end; + function xlLegendKey(); + begin + return 13; + end; + function xlMajorGridlines(); + begin + return 15; + end; + function xlMinorGridlines(); + begin + return 16; + end; + function xlNothing(); + begin + return 28; + end; + function xlPivotChartDropZone(); + begin + return 32; + end; + function xlPivotChartFieldButton(); + begin + return 31; + end; + function xlPlotArea(); + begin + return 19; + end; + function xlRadarAxisLabels(); + begin + return 27; + end; + function xlSeries(); + begin + return 3; + end; + function xlSeriesLines(); + begin + return 22; + end; + function xlShape(); + begin + return 14; + end; + function xlTrendline(); + begin + return 8; + end; + function xlUpBars(); + begin + return 18; + end; + function xlWalls(); + begin + return 5; + end; + function xlXErrorBars(); + begin + return 10; + end; + function xlYErrorBars(); + begin + return 11; + end; + + // XlChartPicturePlacement + function xlAllFaces(); + begin + return 7; + end; + function xlEnd(); + begin + return 2; + end; + function xlEndSides(); + begin + return 3; + end; + function xlFront(); + begin + return 4; + end; + function xlFrontEnd(); + begin + return 6; + end; + function xlFrontSides(); + begin + return 5; + end; + function xlSides(); + begin + return 1; + end; + + // XlChartPictureType + function xlStack(); + begin + return 2; + end; + function xlStackScale(); + begin + return 3; + end; + function xlStretch(); + begin + return 1; + end; + + // XlChartSplitType + function xlSplitByCustomSplit(); + begin + return 4; + end; + function xlSplitByPercentValue(); + begin + return 3; + end; + function xlSplitByPosition(); + begin + return 1; + end; + function xlSplitByValue(); + begin + return 2; + end; + + // XlColorIndex + function xlColorIndexAutomatic(); + begin + return -4105; + end; + function xlColorIndexNone(); + begin + return -4142; + end; + + // XlConstants + function xl3DBar(); + begin + return -4099; + end; + function xl3DSurface(); + begin + return -4103; + end; + function xlAbove(); + begin + return 0; + end; + function xlAutomatic(); + begin + return -4105; + end; + function xlBar(); + begin + return 2; + end; + function xlBelow(); + begin + return 1; + end; + function xlBoth(); + begin + return 1; + end; + function xlBottom(); + begin + return -4107; + end; + function xlCenter(); + begin + return -4108; + end; + function xlChecker(); + begin + return 9; + end; + function xlCircle(); + begin + return 8; + end; + function xlColumn(); + begin + return 3; + end; + function xlCombination(); + begin + return -4111; + end; + function xlCorner(); + begin + return 2; + end; + function xlCrissCross(); + begin + return 16; + end; + function xlCross(); + begin + return 4; + end; + function xlCustom(); + begin + return -4114; + end; + function xlDefaultAutoFormat(); + begin + return -1; + end; + function xlDiamond(); + begin + return 2; + end; + function xlDistributed(); + begin + return -4117; + end; + function xlFill(); + begin + return 5; + end; + function xlFixedValue(); + begin + return 1; + end; + function xlGeneral(); + begin + return 1; + end; + function xlGray16(); + begin + return 17; + end; + function xlGray25(); + begin + return -4124; + end; + function xlGray50(); + begin + return -4125; + end; + function xlGray75(); + begin + return -4126; + end; + function xlGray8(); + begin + return 18; + end; + function xlGrid(); + begin + return 15; + end; + function xlHigh(); + begin + return -4127; + end; + function xlInside(); + begin + return 2; + end; + function xlJustify(); + begin + return -4130; + end; + function xlLeft(); + begin + return -4131; + end; + function xlLightDown(); + begin + return 13; + end; + function xlLightHorizontal(); + begin + return 11; + end; + function xlLightUp(); + begin + return 14; + end; + function xlLightVertical(); + begin + return 12; + end; + function xlLow(); + begin + return -4134; + end; + function xlMaximum(); + begin + return 2; + end; + function xlMinimum(); + begin + return 4; + end; + function xlMinusValues(); + begin + return 3; + end; + function xlNextToAxis(); + begin + return 4; + end; + function xlNone(); + begin + return -4142; + end; + function xlOpaque(); + begin + return 3; + end; + function xlOutside(); + begin + return 3; + end; + function xlPercent(); + begin + return 2; + end; + function xlPlus(); + begin + return 9; + end; + function xlPlusValues(); + begin + return 2; + end; + function xlRight(); + begin + return -4152; + end; + function xlScale(); + begin + return 3; + end; + function xlSemiGray75(); + begin + return 10; + end; + function xlShowLabel(); + begin + return 4; + end; + function xlShowLabelAndPercent(); + begin + return 5; + end; + function xlShowPercent(); + begin + return 3; + end; + function xlShowValue(); + begin + return 2; + end; + function xlSingle(); + begin + return 2; + end; + function xlSolid(); + begin + return 1; + end; + function xlSquare(); + begin + return 1; + end; + function xlStar(); + begin + return 5; + end; + function xlStError(); + begin + return 4; + end; + function xlTop(); + begin + return -4160; + end; + function xlTransparent(); + begin + return 2; + end; + function xlTriangle(); + begin + return 3; + end; + + // XlCopyPictureFormat + function xlBitmap(); + begin + return 2; + end; + function xlPicture(); + begin + return -4147; + end; + + // XlDataLabelPosition + function xlLabelPositionAbove(); + begin + return 0; + end; + function xlLabelPositionBelow(); + begin + return 1; + end; + function xlLabelPositionBestFit(); + begin + return 5; + end; + function xlLabelPositionCenter(); + begin + return -4108; + end; + function xlLabelPositionCustom(); + begin + return 7; + end; + function xlLabelPositionInsideBase(); + begin + return 4; + end; + function xlLabelPositionInsideEnd(); + begin + return 3; + end; + function xlLabelPositionLeft(); + begin + return -4131; + end; + function xlLabelPositionMixed(); + begin + return 6; + end; + function xlLabelPositionOutsideEnd(); + begin + return 2; + end; + function xlLabelPositionRight(); + begin + return -4152; + end; + + // XlDataLabelSeparator + function xlDataLabelSeparatorDefault(); + begin + return 1; + end; + + // XlDataLabelsType + function xlDataLabelsShowBubbleSizes(); + begin + return 6; + end; + function xlDataLabelsShowLabel(); + begin + return 4; + end; + function xlDataLabelsShowLabelAndPercent(); + begin + return 5; + end; + function xlDataLabelsShowNone(); + begin + return -4142; + end; + function xlDataLabelsShowPercent(); + begin + return 3; + end; + function xlDataLabelsShowValue(); + begin + return 2; + end; + + // XlDisplayBlanksAs + function xlInterpolated(); + begin + return 3; + end; + function xlNotPlotted(); + begin + return 1; + end; + function xlZero(); + begin + return 2; + end; + + // XlDisplayUnit + function xlHundredMillions(); + begin + return -8; + end; + function xlHundreds(); + begin + return -2; + end; + function xlHundredThousands(); + begin + return -5; + end; + function xlMillionMillions(); + begin + return -10; + end; + function xlMillions(); + begin + return -6; + end; + function xlTenMillions(); + begin + return -7; + end; + function xlTenThousands(); + begin + return -4; + end; + function xlThousandMillions(); + begin + return -9; + end; + function xlThousands(); + begin + return -3; + end; + + // XlEndStyleCap + function xlCap(); + begin + return 1; + end; + function xlNoCap(); + begin + return 2; + end; + + // XlErrorBarDirection + function xlChartX(); + begin + return -4168; + end; + function xlChartY(); + begin + return 1; + end; + + // XlErrorBarInclude + function xlErrorBarIncludeBoth(); + begin + return 1; + end; + function xlErrorBarIncludeMinusValues(); + begin + return 3; + end; + function xlErrorBarIncludeNone(); + begin + return -4142; + end; + function xlErrorBarIncludePlusValues(); + begin + return 2; + end; + + // XlErrorBarType + function xlErrorBarTypeCustom(); + begin + return -4114; + end; + function xlErrorBarTypeFixedValue(); + begin + return 1; + end; + function xlErrorBarTypePercent(); + begin + return 2; + end; + function xlErrorBarTypeStDev(); + begin + return -4155; + end; + function xlErrorBarTypeStError(); + begin + return 4; + end; + + // XlHAlign + function xlHAlignCenter(); + begin + return -4108; + end; + function xlHAlignCenterAcrossSelection(); + begin + return 7; + end; + function xlHAlignDistributed(); + begin + return -4117; + end; + function xlHAlignFill(); + begin + return 5; + end; + function xlHAlignGeneral(); + begin + return 1; + end; + function xlHAlignJustify(); + begin + return -4130; + end; + function xlHAlignLeft(); + begin + return -4131; + end; + function xlHAlignRight(); + begin + return -4152; + end; + + // XlLegendPosition + function xlLegendPositionBottom(); + begin + return -4107; + end; + function xlLegendPositionCorner(); + begin + return 2; + end; + function xlLegendPositionCustom(); + begin + return -4161; + end; + function xlLegendPositionLeft(); + begin + return -4131; + end; + function xlLegendPositionRight(); + begin + return -4152; + end; + function xlLegendPositionTop(); + begin + return -4160; + end; + + // XlLineStyle + function xlContinuous(); + begin + return 1; + end; + function xlDash(); + begin + return -4115; + end; + function xlDashDot(); + begin + return 4; + end; + function xlDashDotDot(); + begin + return 5; + end; + function xlDot(); + begin + return -4118; + end; + function xlDouble(); + begin + return -4119; + end; + function xlLineStyleNone(); + begin + return -4142; + end; + function xlSlantDashDot(); + begin + return 13; + end; + + // XlMarkerStyle + function xlMarkerStyleAutomatic(); + begin + return -4105; + end; + function xlMarkerStyleCircle(); + begin + return 8; + end; + function xlMarkerStyleDash(); + begin + return -4115; + end; + function xlMarkerStyleDiamond(); + begin + return 2; + end; + function xlMarkerStyleDot(); + begin + return -4118; + end; + function xlMarkerStyleNone(); + begin + return -4142; + end; + function xlMarkerStylePicture(); + begin + return -4147; + end; + function xlMarkerStylePlus(); + begin + return 9; + end; + function xlMarkerStyleSquare(); + begin + return 1; + end; + function xlMarkerStyleStar(); + begin + return 5; + end; + function xlMarkerStyleTriangle(); + begin + return 3; + end; + function xlMarkerStyleX(); + begin + return -4168; + end; + + // XlOrientation + function xlDownward(); + begin + return -4170; + end; + function xlHorizontal(); + begin + return -4128; + end; + function xlUpward(); + begin + return -4171; + end; + function xlVertical(); + begin + return -4166; + end; + + // XlParentDataLabelOptions + function xlParentDataLabelOptionsNone(); + begin + return 0; + end; + function xlParentDataLabelOptionsBanner(); + begin + return 1; + end; + function xlParentDataLabelOptionsOverlapping(); + begin + return 2; + end; + + // XlPattern + function xlPatternAutomatic(); + begin + return -4105; + end; + function xlPatternChecker(); + begin + return 9; + end; + function xlPatternCrissCross(); + begin + return 16; + end; + function xlPatternDown(); + begin + return -4121; + end; + function xlPatternGray16(); + begin + return 17; + end; + function xlPatternGray25(); + begin + return -4124; + end; + function xlPatternGray50(); + begin + return -4125; + end; + function xlPatternGray75(); + begin + return -4126; + end; + function xlPatternGray8(); + begin + return 18; + end; + function xlPatternGrid(); + begin + return 15; + end; + function xlPatternHorizontal(); + begin + return -4128; + end; + function xlPatternLightDown(); + begin + return 13; + end; + function xlPatternLightHorizontal(); + begin + return 11; + end; + function xlPatternLightUp(); + begin + return 14; + end; + function xlPatternLightVertical(); + begin + return 12; + end; + function xlPatternLinearGradient(); + begin + return 4000; + end; + function xlPatternNone(); + begin + return -4142; + end; + function xlPatternRectangularGradient(); + begin + return 4001; + end; + function xlPatternSemiGray75(); + begin + return 10; + end; + function xlPatternSolid(); + begin + return 1; + end; + function xlPatternUp(); + begin + return -4162; + end; + function xlPatternVertical(); + begin + return -4166; + end; + + // XlPictureAppearance + function xlPrinter(); + begin + return 2; + end; + function xlScreen(); + begin + return 1; + end; + + // XlPieSliceIndex + function xlCenterPoint(); + begin + return 5; + end; + function xlInnerCenterPoint(); + begin + return 8; + end; + function xlInnerClockwisePoint(); + begin + return 7; + end; + function xlInnerCounterClockwisePoint(); + begin + return 9; + end; + function xlMidClockwiseRadiusPoint(); + begin + return 4; + end; + function xlMidCounterClockwiseRadiusPoint(); + begin + return 6; + end; + function xlOuterCenterPoint(); + begin + return 2; + end; + function xlOuterClockwisePoint(); + begin + return 3; + end; + function xlOuterCounterClockwisePoint(); + begin + return 1; + end; + + // XlPieSliceLocation + function xlHorizontalCoordinate(); + begin + return 1; + end; + function xlVerticalCoordinate(); + begin + return 2; + end; + + // XlPivotFieldOrientation + function xlColumnField(); + begin + return 2; + end; + function xlDataField(); + begin + return 4; + end; + function xlHidden(); + begin + return 0; + end; + function xlPageField(); + begin + return 3; + end; + function xlRowField(); + begin + return 1; + end; + + // XlReadingOrder + function xlContext(); + begin + return -5002; + end; + function xlLTR(); + begin + return -5003; + end; + function xlRTL(); + begin + return -5004; + end; + + // XlRgbColor + function xlAliceBlue(); + begin + return 16775408; + end; + function xlAntiqueWhite(); + begin + return 14150650; + end; + function xlAqua(); + begin + return 16776960; + end; + function xlAquamarine(); + begin + return 13959039; + end; + function xlAzure(); + begin + return 16777200; + end; + function xlBeige(); + begin + return 14480885; + end; + function xlBisque(); + begin + return 12903679; + end; + function xlBlack(); + begin + return 0; + end; + function xlBlanchedAlmond(); + begin + return 13495295; + end; + function xlBlue(); + begin + return 16711680; + end; + function xlBlueViolet(); + begin + return 14822282; + end; + function xlBrown(); + begin + return 2763429; + end; + function xlBurlyWood(); + begin + return 8894686; + end; + function xlCadetBlue(); + begin + return 10526303; + end; + function xlChartreuse(); + begin + return 65407; + end; + function xlCoral(); + begin + return 5275647; + end; + function xlCornflowerBlue(); + begin + return 15570276; + end; + function xlCornsilk(); + begin + return 14481663; + end; + function xlCrimson(); + begin + return 3937500; + end; + function xlDarkBlue(); + begin + return 9109504; + end; + function xlDarkCyan(); + begin + return 9145088; + end; + function xlDarkGoldenrod(); + begin + return 755384; + end; + function xlDarkGray(); + begin + return 11119017; + end; + function xlDarkGreen(); + begin + return 25600; + end; + function xlDarkGrey(); + begin + return 11119017; + end; + function xlDarkKhaki(); + begin + return 7059389; + end; + function xlDarkMagenta(); + begin + return 9109643; + end; + function xlDarkOliveGreen(); + begin + return 3107669; + end; + function xlDarkOrange(); + begin + return 36095; + end; + function xlDarkOrchid(); + begin + return 13382297; + end; + function xlDarkRed(); + begin + return 139; + end; + function xlDarkSalmon(); + begin + return 8034025; + end; + function xlDarkSeaGreen(); + begin + return 9419919; + end; + function xlDarkSlateBlue(); + begin + return 9125192; + end; + function xlDarkSlateGray(); + begin + return 5197615; + end; + function xlDarkSlateGrey(); + begin + return 5197615; + end; + function xlDarkTurquoise(); + begin + return 13749760; + end; + function xlDarkViolet(); + begin + return 13828244; + end; + function xlDeepPink(); + begin + return 9639167; + end; + function xlDeepSkyBlue(); + begin + return 16760576; + end; + function xlDimGray(); + begin + return 6908265; + end; + function xlDimGrey(); + begin + return 6908265; + end; + function xlDodgerBlue(); + begin + return 16748574; + end; + function xlFireBrick(); + begin + return 2237106; + end; + function xlFloralWhite(); + begin + return 15792895; + end; + function xlForestGreen(); + begin + return 2263842; + end; + function xlFuchsia(); + begin + return 16711935; + end; + function xlGainsboro(); + begin + return 14474460; + end; + function xlGhostWhite(); + begin + return 16775416; + end; + function xlGold(); + begin + return 55295; + end; + function xlGoldenrod(); + begin + return 2139610; + end; + function xlGray(); + begin + return 8421504; + end; + function xlGreen(); + begin + return 32768; + end; + function xlGreenYellow(); + begin + return 3145645; + end; + function xlGrey(); + begin + return 8421504; + end; + function xlHoneydew(); + begin + return 15794160; + end; + function xlHotPink(); + begin + return 11823615; + end; + function xlIndianRed(); + begin + return 6053069; + end; + function xlIndigo(); + begin + return 8519755; + end; + function xlIvory(); + begin + return 15794175; + end; + function xlKhaki(); + begin + return 9234160; + end; + function xlLavender(); + begin + return 16443110; + end; + function xlLavenderBlush(); + begin + return 16118015; + end; + function xlLawnGreen(); + begin + return 64636; + end; + function xlLemonChiffon(); + begin + return 13499135; + end; + function xlLightBlue(); + begin + return 15128749; + end; + function xlLightCoral(); + begin + return 8421616; + end; + function xlLightCyan(); + begin + return 9145088; + end; + function xlLightGoldenrodYellow(); + begin + return 13826810; + end; + function xlLightGray(); + begin + return 13882323; + end; + function xlLightGreen(); + begin + return 9498256; + end; + function xlLightGrey(); + begin + return 13882323; + end; + function xlLightPink(); + begin + return 12695295; + end; + function xlLightSalmon(); + begin + return 8036607; + end; + function xlLightSeaGreen(); + begin + return 11186720; + end; + function xlLightSkyBlue(); + begin + return 16436871; + end; + function xlLightSlateGray(); + begin + return 10061943; + end; + function xlLightSlateGrey(); + begin + return 10061943; + end; + function xlLightSteelBlue(); + begin + return 14599344; + end; + function xlLightYellow(); + begin + return 14745599; + end; + function xlLime(); + begin + return 65280; + end; + function xlLimeGreen(); + begin + return 3329330; + end; + function xlLinen(); + begin + return 15134970; + end; + function xlMaroon(); + begin + return 128; + end; + function xlMediumAquamarine(); + begin + return 11206502; + end; + function xlMediumBlue(); + begin + return 13434880; + end; + function xlMediumOrchid(); + begin + return 13850042; + end; + function xlMediumPurple(); + begin + return 14381203; + end; + function xlMediumSeaGreen(); + begin + return 7451452; + end; + function xlMediumSlateBlue(); + begin + return 15624315; + end; + function xlMediumSpringGreen(); + begin + return 10156544; + end; + function xlMediumTurquoise(); + begin + return 13422920; + end; + function xlMediumVioletRed(); + begin + return 8721863; + end; + function xlMidnightBlue(); + begin + return 7346457; + end; + function xlMintCream(); + begin + return 16449525; + end; + function xlMistyRose(); + begin + return 14804223; + end; + function xlMoccasin(); + begin + return 11920639; + end; + function xlNavajoWhite(); + begin + return 11394815; + end; + function xlNavy(); + begin + return 8388608; + end; + function xlNavyBlue(); + begin + return 8388608; + end; + function xlOldLace(); + begin + return 15136253; + end; + function xlOlive(); + begin + return 32896; + end; + function xlOliveDrab(); + begin + return 2330219; + end; + function xlOrange(); + begin + return 42495; + end; + function xlOrangeRed(); + begin + return 17919; + end; + function xlOrchid(); + begin + return 14053594; + end; + function xlPaleGoldenrod(); + begin + return 7071982; + end; + function xlPaleGreen(); + begin + return 10025880; + end; + function xlPaleTurquoise(); + begin + return 15658671; + end; + function xlPaleVioletRed(); + begin + return 9662683; + end; + function xlPapayaWhip(); + begin + return 14020607; + end; + function xlPeachPuff(); + begin + return 12180223; + end; + function xlPeru(); + begin + return 4163021; + end; + function xlPink(); + begin + return 13353215; + end; + function xlPlum(); + begin + return 14524637; + end; + function xlPowderBlue(); + begin + return 15130800; + end; + function xlPurple(); + begin + return 8388736; + end; + function xlRed(); + begin + return 255; + end; + function xlRosyBrown(); + begin + return 9408444; + end; + function xlRoyalBlue(); + begin + return 14772545; + end; + function xlSalmon(); + begin + return 7504122; + end; + function xlSandyBrown(); + begin + return 6333684; + end; + function xlSeaGreen(); + begin + return 5737262; + end; + function xlSeashell(); + begin + return 15660543; + end; + function xlSienna(); + begin + return 2970272; + end; + function xlSilver(); + begin + return 12632256; + end; + function xlSkyBlue(); + begin + return 15453831; + end; + function xlSlateBlue(); + begin + return 13458026; + end; + function xlSlateGray(); + begin + return 9470064; + end; + function xlSlateGrey(); + begin + return 9470064; + end; + function xlSnow(); + begin + return 16448255; + end; + function xlSpringGreen(); + begin + return 8388352; + end; + function xlSteelBlue(); + begin + return 11829830; + end; + function xlTan(); + begin + return 9221330; + end; + function xlTeal(); + begin + return 8421376; + end; + function xlThistle(); + begin + return 14204888; + end; + function xlTomato(); + begin + return 4678655; + end; + function xlTurquoise(); + begin + return 13688896; + end; + function xlViolet(); + begin + return 15631086; + end; + function xlWheat(); + begin + return 11788021; + end; + function xlWhite(); + begin + return 16777215; + end; + function xlWhiteSmoke(); + begin + return 16119285; + end; + function xlYellow(); + begin + return 65535; + end; + function xlYellowGreen(); + begin + return 3329434; + end; + + // XlRowCol + function xlColumns(); + begin + return 2; + end; + function xlRows(); + begin + return 1; + end; + + // XlScaleType + function xlScaleLinear(); + begin + return -4132; + end; + function xlScaleLogarithmic(); + begin + return -4133; + end; + + // XlSeriesNameLevel + function xlSeriesNameLevelAll(); + begin + return -1; + end; + function xlSeriesNameLevelCustom(); + begin + return -2; + end; + function xlSeriesNameLevelNone(); + begin + return -3; + end; + + // XlSizeRepresents + function xlSizeIsArea(); + begin + return 1; + end; + function xlSizeIsWidth(); + begin + return 2; + end; + + // XlTickLabelOrientation + function xlTickLabelOrientationAutomatic(); + begin + return -4105; + end; + function xlTickLabelOrientationDownward(); + begin + return -4170; + end; + function xlTickLabelOrientationHorizontal(); + begin + return -4128; + end; + function xlTickLabelOrientationUpward(); + begin + return -4171; + end; + function xlTickLabelOrientationVertical(); + begin + return -4166; + end; + + // XlTickLabelPosition + function xlTickLabelPositionHigh(); + begin + return -4127; + end; + function xlTickLabelPositionLow(); + begin + return -4134; + end; + function xlTickLabelPositionNextToAxis(); + begin + return 4; + end; + function xlTickLabelPositionNone(); + begin + return -4142; + end; + + // XlTickMark + function xlTickMarkCross(); + begin + return 4; + end; + function xlTickMarkInside(); + begin + return 2; + end; + function xlTickMarkNone(); + begin + return -4142; + end; + function xlTickMarkOutside(); + begin + return 3; + end; + + // XlTimeUnit + function xlDays(); + begin + return 0; + end; + function xlMonths(); + begin + return 1; + end; + function xlYears(); + begin + return 2; + end; + + // XlTrendlineType + function xlExponential(); + begin + return 5; + end; + function xlLinear(); + begin + return -4132; + end; + function xlLogarithmic(); + begin + return -4133; + end; + function xlMovingAvg(); + begin + return 6; + end; + function xlPolynomial(); + begin + return 3; + end; + function xlPower(); + begin + return 4; + end; + + // XlUnderlineStyle + function xlUnderlineStyleDouble(); + begin + return -4119; + end; + function xlUnderlineStyleDoubleAccounting(); + begin + return 5; + end; + function xlUnderlineStyleNone(); + begin + return -4142; + end; + function xlUnderlineStyleSingle(); + begin + return 2; + end; + function xlUnderlineStyleSingleAccounting(); + begin + return 4; + end; + + // XlVAlign + function xlVAlignBottom(); + begin + return -4107; + end; + function xlVAlignCenter(); + begin + return -4108; + end; + function xlVAlignDistributed(); + begin + return -4117; + end; + function xlVAlignJustify(); + begin + return -4130; + end; + function xlVAlignTop(); + begin + return -4160; + end; + +end. diff --git a/pptx/PptxVba.tsf b/pptx/PptxVba.tsf new file mode 100644 index 0000000..79faf22 --- /dev/null +++ b/pptx/PptxVba.tsf @@ -0,0 +1,6114 @@ +unit PptxVba; +interface + +type ActionSetting = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Action read ReadAction write WriteAction; + property ActionVerb read ReadActionVerb write WriteActionVerb; + property AnimateAction read ReadAnimateAction write WriteAnimateAction; + property Hyperlink read ReadHyperlink; + property Run read ReadRun write WriteRun; + property ShowAndReturn read ReadShowAndReturn write WriteShowAndReturn; + property SlideShowName read ReadSlideShowName write WriteSlideShowName; + property SoundEffect read ReadSoundEffect; + function ReadAction(); + function WriteAction(_value); + function ReadActionVerb(); + function WriteActionVerb(_value); + function ReadAnimateAction(); + function WriteAnimateAction(_value); + function ReadHyperlink(); + function ReadRun(); + function WriteRun(_value); + function ReadShowAndReturn(); + function WriteShowAndReturn(_value); + function ReadSlideShowName(); + function WriteSlideShowName(_value); + function ReadSoundEffect(); +end; + +type ActionSettings = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type AddIn = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AutoLoad read ReadAutoLoad write WriteAutoLoad; + property FullName read ReadFullName; + property Loaded read ReadLoaded write WriteLoaded; + property Name read ReadName; + property Path read ReadPath; + property Registered read ReadRegistered write WriteRegistered; + function ReadAutoLoad(); + function WriteAutoLoad(_value); + function ReadFullName(); + function ReadLoaded(); + function WriteLoaded(_value); + function ReadName(); + function ReadPath(); + function ReadRegistered(); + function WriteRegistered(_value); +end; + +type AddIns = class(VbaBase) +public + function Init(); + +public + // methods + function Add(FileName); + function Item(Index); + function Remove(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Adjustments = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type AnimationBehavior = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Accumulate read ReadAccumulate write WriteAccumulate; + property Additive read ReadAdditive write WriteAdditive; + property ColorEffect read ReadColorEffect; + property CommandEffect read ReadCommandEffect; + property FilterEffect read ReadFilterEffect; + property MotionEffect read ReadMotionEffect; + property PropertyEffect read ReadPropertyEffect; + property RotationEffect read ReadRotationEffect; + property ScaleEffect read ReadScaleEffect; + property SetEffect read ReadSetEffect; + property Timing read ReadTiming; + property Type read ReadType write WriteType; + function ReadAccumulate(); + function WriteAccumulate(_value); + function ReadAdditive(); + function WriteAdditive(_value); + function ReadColorEffect(); + function ReadCommandEffect(); + function ReadFilterEffect(); + function ReadMotionEffect(); + function ReadPropertyEffect(); + function ReadRotationEffect(); + function ReadScaleEffect(); + function ReadSetEffect(); + function ReadTiming(); + function ReadType(); + function WriteType(_value); +end; + +type AnimationBehaviors = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Type, Index); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type AnimationPoint = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Formula read ReadFormula write WriteFormula; + property Time read ReadTime write WriteTime; + property Value read ReadValue write WriteValue; + function ReadFormula(); + function WriteFormula(_value); + function ReadTime(); + function WriteTime(_value); + function ReadValue(); + function WriteValue(_value); +end; + +type AnimationPoints = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Index); + function Item(Index); + + // properties + property Count read ReadCount; + property Smooth read ReadSmooth write WriteSmooth; + function ReadCount(); + function ReadSmooth(); + function WriteSmooth(_value); +end; + +type AnimationSettings = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AdvanceMode read ReadAdvanceMode write WriteAdvanceMode; + property AdvanceTime read ReadAdvanceTime write WriteAdvanceTime; + property AfterEffect read ReadAfterEffect write WriteAfterEffect; + property Animate read ReadAnimate write WriteAnimate; + property AnimateBackground read ReadAnimateBackground write WriteAnimateBackground; + property AnimateTextInReverse read ReadAnimateTextInReverse write WriteAnimateTextInReverse; + property AnimationOrder read ReadAnimationOrder write WriteAnimationOrder; + property ChartUnitEffect read ReadChartUnitEffect write WriteChartUnitEffect; + property DimColor read ReadDimColor write WriteDimColor; + property EntryEffect read ReadEntryEffect write WriteEntryEffect; + property PlaySettings read ReadPlaySettings; + property SoundEffect read ReadSoundEffect; + property TextLevelEffect read ReadTextLevelEffect write WriteTextLevelEffect; + property TextUnitEffect read ReadTextUnitEffect write WriteTextUnitEffect; + function ReadAdvanceMode(); + function WriteAdvanceMode(_value); + function ReadAdvanceTime(); + function WriteAdvanceTime(_value); + function ReadAfterEffect(); + function WriteAfterEffect(_value); + function ReadAnimate(); + function WriteAnimate(_value); + function ReadAnimateBackground(); + function WriteAnimateBackground(_value); + function ReadAnimateTextInReverse(); + function WriteAnimateTextInReverse(_value); + function ReadAnimationOrder(); + function WriteAnimationOrder(_value); + function ReadChartUnitEffect(); + function WriteChartUnitEffect(_value); + function ReadDimColor(); + function WriteDimColor(_value); + function ReadEntryEffect(); + function WriteEntryEffect(_value); + function ReadPlaySettings(); + function ReadSoundEffect(); + function ReadTextLevelEffect(); + function WriteTextLevelEffect(_value); + function ReadTextUnitEffect(); + function WriteTextUnitEffect(_value); +end; + +type Application = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function Help(HelpFile, ContextID); + function OpenThemeFile(themeFileName); + function Quit(); + function Run(MacroName, safeArrayOfParams); + function StartNewUndoEntry(); + function FileConverters(Index1, Index2); + function FileDialog(Type); + + // properties + property Active read ReadActive; + property ActiveEncryptionSession read ReadActiveEncryptionSession; + property ActivePresentation read ReadActivePresentation; + property ActivePrinter read ReadActivePrinter; + property ActiveProtectedViewWindow read ReadActiveProtectedViewWindow; + property ActiveWindow read ReadActiveWindow; + property AddIns read ReadAddIns; + property Assistance read ReadAssistance; + property AutoCorrect read ReadAutoCorrect; + property AutomationSecurity read ReadAutomationSecurity write WriteAutomationSecurity; + property Build read ReadBuild; + property Caption read ReadCaption write WriteCaption; + property ChartDataPointTrack read ReadChartDataPointTrack write WriteChartDataPointTrack; + property COMAddIns read ReadCOMAddIns; + property CommandBars read ReadCommandBars; + property DisplayAlerts read ReadDisplayAlerts write WriteDisplayAlerts; + property DisplayDocumentInformationPanel read ReadDisplayDocumentInformationPanel write WriteDisplayDocumentInformationPanel; + property DisplayGridLines read ReadDisplayGridLines write WriteDisplayGridLines; + property DisplayGuides read ReadDisplayGuides; + property FeatureInstall read ReadFeatureInstall write WriteFeatureInstall; + property FileValidation read ReadFileValidation write WriteFileValidation; + property Height read ReadHeight write WriteHeight; + property IsSandboxed read ReadIsSandboxed; + property LanguageSettings read ReadLanguageSettings; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property NewPresentation read ReadNewPresentation; + property OperatingSystem read ReadOperatingSystem; + property Options read ReadOptions; + property Path read ReadPath; + property Presentations read ReadPresentations; + property ProductCode read ReadProductCode; + property ProtectedViewWindows read ReadProtectedViewWindows; + property SensitivityLabelPolicy read ReadSensitivityLabelPolicy; + property ShowStartupDialog read ReadShowStartupDialog write WriteShowStartupDialog; + property ShowWindowsInTaskbar read ReadShowWindowsInTaskbar write WriteShowWindowsInTaskbar; + property SlideShowWindows read ReadSlideShowWindows; + property SmartArtColors read ReadSmartArtColors; + property SmartArtLayouts read ReadSmartArtLayouts; + property SmartArtQuickStyles read ReadSmartArtQuickStyles; + property Top read ReadTop write WriteTop; + property VBE read ReadVBE; + property Version read ReadVersion; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property Windows read ReadWindows; + property WindowState read ReadWindowState write WriteWindowState; + function ReadActive(); + function ReadActiveEncryptionSession(); + function ReadActivePresentation(); + function ReadActivePrinter(); + function ReadActiveProtectedViewWindow(); + function ReadActiveWindow(); + function ReadAddIns(); + function ReadAssistance(); + function ReadAutoCorrect(); + function ReadAutomationSecurity(); + function WriteAutomationSecurity(_value); + function ReadBuild(); + function ReadCaption(); + function WriteCaption(_value); + function ReadChartDataPointTrack(); + function WriteChartDataPointTrack(_value); + function ReadCOMAddIns(); + function ReadCommandBars(); + function ReadDisplayAlerts(); + function WriteDisplayAlerts(_value); + function ReadDisplayDocumentInformationPanel(); + function WriteDisplayDocumentInformationPanel(_value); + function ReadDisplayGridLines(); + function WriteDisplayGridLines(_value); + function ReadDisplayGuides(); + function ReadFeatureInstall(); + function WriteFeatureInstall(_value); + function ReadFileValidation(); + function WriteFileValidation(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadIsSandboxed(); + function ReadLanguageSettings(); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadNewPresentation(); + function ReadOperatingSystem(); + function ReadOptions(); + function ReadPath(); + function ReadPresentations(); + function ReadProductCode(); + function ReadProtectedViewWindows(); + function ReadSensitivityLabelPolicy(); + function ReadShowStartupDialog(); + function WriteShowStartupDialog(_value); + function ReadShowWindowsInTaskbar(); + function WriteShowWindowsInTaskbar(_value); + function ReadSlideShowWindows(); + function ReadSmartArtColors(); + function ReadSmartArtLayouts(); + function ReadSmartArtQuickStyles(); + function ReadTop(); + function WriteTop(_value); + function ReadVBE(); + function ReadVersion(); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWindows(); + function ReadWindowState(); + function WriteWindowState(_value); +end; + +type AutoCorrect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property DisplayAutoCorrectOptions read ReadDisplayAutoCorrectOptions write WriteDisplayAutoCorrectOptions; + property DisplayAutoLayoutOptions read ReadDisplayAutoLayoutOptions write WriteDisplayAutoLayoutOptions; + function ReadDisplayAutoCorrectOptions(); + function WriteDisplayAutoCorrectOptions(_value); + function ReadDisplayAutoLayoutOptions(); + function WriteDisplayAutoLayoutOptions(_value); +end; + +type Axes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Type, AxisGroup); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Axis = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property AxisBetweenCategories read ReadAxisBetweenCategories write WriteAxisBetweenCategories; + property AxisGroup read ReadAxisGroup; + property AxisTitle read ReadAxisTitle; + property BaseUnit read ReadBaseUnit write WriteBaseUnit; + property BaseUnitIsAuto read ReadBaseUnitIsAuto write WriteBaseUnitIsAuto; + property Border read ReadBorder; + property CategoryNames read ReadCategoryNames write WriteCategoryNames; + property CategoryType read ReadCategoryType write WriteCategoryType; + property Crosses read ReadCrosses write WriteCrosses; + property CrossesAt read ReadCrossesAt write WriteCrossesAt; + property DisplayUnit read ReadDisplayUnit write WriteDisplayUnit; + property DisplayUnitCustom read ReadDisplayUnitCustom write WriteDisplayUnitCustom; + property DisplayUnitLabel read ReadDisplayUnitLabel; + property Format read ReadFormat; + property HasDisplayUnitLabel read ReadHasDisplayUnitLabel write WriteHasDisplayUnitLabel; + property HasMajorGridlines read ReadHasMajorGridlines write WriteHasMajorGridlines; + property HasMinorGridlines read ReadHasMinorGridlines write WriteHasMinorGridlines; + property HasTitle read ReadHasTitle write WriteHasTitle; + property Height read ReadHeight; + property Left read ReadLeft; + property LogBase read ReadLogBase write WriteLogBase; + property MajorGridlines read ReadMajorGridlines; + property MajorTickMark read ReadMajorTickMark write WriteMajorTickMark; + property MajorUnit read ReadMajorUnit write WriteMajorUnit; + property MajorUnitIsAuto read ReadMajorUnitIsAuto write WriteMajorUnitIsAuto; + property MajorUnitScale read ReadMajorUnitScale write WriteMajorUnitScale; + property MaximumScale read ReadMaximumScale write WriteMaximumScale; + property MaximumScaleIsAuto read ReadMaximumScaleIsAuto write WriteMaximumScaleIsAuto; + property MinimumScale read ReadMinimumScale write WriteMinimumScale; + property MinimumScaleIsAuto read ReadMinimumScaleIsAuto write WriteMinimumScaleIsAuto; + property MinorGridlines read ReadMinorGridlines; + property MinorTickMark read ReadMinorTickMark write WriteMinorTickMark; + property MinorUnit read ReadMinorUnit write WriteMinorUnit; + property MinorUnitIsAuto read ReadMinorUnitIsAuto write WriteMinorUnitIsAuto; + property MinorUnitScale read ReadMinorUnitScale write WriteMinorUnitScale; + property ReversePlotOrder read ReadReversePlotOrder write WriteReversePlotOrder; + property ScaleType read ReadScaleType write WriteScaleType; + property TickLabelPosition read ReadTickLabelPosition write WriteTickLabelPosition; + property TickLabels read ReadTickLabels; + property TickLabelSpacing read ReadTickLabelSpacing write WriteTickLabelSpacing; + property TickLabelSpacingIsAuto read ReadTickLabelSpacingIsAuto write WriteTickLabelSpacingIsAuto; + property TickMarkSpacing read ReadTickMarkSpacing write WriteTickMarkSpacing; + property Top read ReadTop; + property Type read ReadType; + property Width read ReadWidth; + function ReadAxisBetweenCategories(); + function WriteAxisBetweenCategories(_value); + function ReadAxisGroup(); + function ReadAxisTitle(); + function ReadBaseUnit(); + function WriteBaseUnit(_value); + function ReadBaseUnitIsAuto(); + function WriteBaseUnitIsAuto(_value); + function ReadBorder(); + function ReadCategoryNames(); + function WriteCategoryNames(_value); + function ReadCategoryType(); + function WriteCategoryType(_value); + function ReadCrosses(); + function WriteCrosses(_value); + function ReadCrossesAt(); + function WriteCrossesAt(_value); + function ReadDisplayUnit(); + function WriteDisplayUnit(_value); + function ReadDisplayUnitCustom(); + function WriteDisplayUnitCustom(_value); + function ReadDisplayUnitLabel(); + function ReadFormat(); + function ReadHasDisplayUnitLabel(); + function WriteHasDisplayUnitLabel(_value); + function ReadHasMajorGridlines(); + function WriteHasMajorGridlines(_value); + function ReadHasMinorGridlines(); + function WriteHasMinorGridlines(_value); + function ReadHasTitle(); + function WriteHasTitle(_value); + function ReadHeight(); + function ReadLeft(); + function ReadLogBase(); + function WriteLogBase(_value); + function ReadMajorGridlines(); + function ReadMajorTickMark(); + function WriteMajorTickMark(_value); + function ReadMajorUnit(); + function WriteMajorUnit(_value); + function ReadMajorUnitIsAuto(); + function WriteMajorUnitIsAuto(_value); + function ReadMajorUnitScale(); + function WriteMajorUnitScale(_value); + function ReadMaximumScale(); + function WriteMaximumScale(_value); + function ReadMaximumScaleIsAuto(); + function WriteMaximumScaleIsAuto(_value); + function ReadMinimumScale(); + function WriteMinimumScale(_value); + function ReadMinimumScaleIsAuto(); + function WriteMinimumScaleIsAuto(_value); + function ReadMinorGridlines(); + function ReadMinorTickMark(); + function WriteMinorTickMark(_value); + function ReadMinorUnit(); + function WriteMinorUnit(_value); + function ReadMinorUnitIsAuto(); + function WriteMinorUnitIsAuto(_value); + function ReadMinorUnitScale(); + function WriteMinorUnitScale(_value); + function ReadReversePlotOrder(); + function WriteReversePlotOrder(_value); + function ReadScaleType(); + function WriteScaleType(_value); + function ReadTickLabelPosition(); + function WriteTickLabelPosition(_value); + function ReadTickLabels(); + function ReadTickLabelSpacing(); + function WriteTickLabelSpacing(_value); + function ReadTickLabelSpacingIsAuto(); + function WriteTickLabelSpacingIsAuto(_value); + function ReadTickMarkSpacing(); + function WriteTickMarkSpacing(_value); + function ReadTop(); + function ReadType(); + function ReadWidth(); +end; + +type AxisTitle = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property IncludeInLayout read ReadIncludeInLayout write WriteIncludeInLayout; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Shadow read ReadShadow write WriteShadow; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth; + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadIncludeInLayout(); + function WriteIncludeInLayout(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); +end; + +type Borders = class(VbaBase) +public + function Init(); + +public + // methods + function Item(BorderType); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Broadcast = class(VbaBase) +public + function Init(); + +public + // methods + function AddMeetingNotes(notesUrl, notesWacUrl); + function End(); + function Pause(); + function Resume(); + function Start(serverUrl); + + // properties + property AttendeeUrl read ReadAttendeeUrl; + property Capabilities read ReadCapabilities; + property IsBroadcasting read ReadIsBroadcasting; + property PresenterServiceUrl read ReadPresenterServiceUrl; + property SessionID read ReadSessionID; + property State read ReadState; + function ReadAttendeeUrl(); + function ReadCapabilities(); + function ReadIsBroadcasting(); + function ReadPresenterServiceUrl(); + function ReadSessionID(); + function ReadState(); +end; + +type BulletFormat = class(VbaBase) +public + function Init(); + +public + // methods + function Picture(); + + // properties + property Character read ReadCharacter write WriteCharacter; + property Font read ReadFont; + property Number read ReadNumber; + property RelativeSize read ReadRelativeSize write WriteRelativeSize; + property StartValue read ReadStartValue write WriteStartValue; + property Style read ReadStyle write WriteStyle; + property Type read ReadType write WriteType; + property UseTextColor read ReadUseTextColor write WriteUseTextColor; + property UseTextFont read ReadUseTextFont write WriteUseTextFont; + function ReadCharacter(); + function WriteCharacter(_value); + function ReadFont(); + function ReadNumber(); + function ReadRelativeSize(); + function WriteRelativeSize(_value); + function ReadStartValue(); + function WriteStartValue(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadType(); + function WriteType(_value); + function ReadUseTextColor(); + function WriteUseTextColor(_value); + function ReadUseTextFont(); + function WriteUseTextFont(_value); +end; + +type CalloutFormat = class(VbaBase) +public + function Init(); + +public + // methods + function AutomaticLength(); + function CustomDrop(Drop); + function CustomLength(Length); + function PresetDrop(DropType); + + // properties + property Accent read ReadAccent write WriteAccent; + property Angle read ReadAngle write WriteAngle; + property AutoAttach read ReadAutoAttach write WriteAutoAttach; + property AutoLength read ReadAutoLength; + property Border read ReadBorder write WriteBorder; + property Drop read ReadDrop; + property DropType read ReadDropType; + property Gap read ReadGap write WriteGap; + property Length read ReadLength; + property Type read ReadType write WriteType; + function ReadAccent(); + function WriteAccent(_value); + function ReadAngle(); + function WriteAngle(_value); + function ReadAutoAttach(); + function WriteAutoAttach(_value); + function ReadAutoLength(); + function ReadBorder(); + function WriteBorder(_value); + function ReadDrop(); + function ReadDropType(); + function ReadGap(); + function WriteGap(_value); + function ReadLength(); + function ReadType(); + function WriteType(_value); +end; + +type CategoryCollection = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Cell = class(VbaBase) +public + function Init(); + +public + // methods + function Merge(MergeTo); + function Select(); + function Split(NumRows, NumColumns); + + // properties + property Borders read ReadBorders; + property Selected read ReadSelected; + property Shape read ReadShape; + function ReadBorders(); + function ReadSelected(); + function ReadShape(); +end; + +type CellRange = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Borders read ReadBorders; + property Count read ReadCount; + function ReadBorders(); + function ReadCount(); +end; + +type Chart = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyChartTemplate(FileName); + function ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator); + function ApplyLayout(Layout, ChartType); + function Axes(Type, AxisGroup); + function ChartGroups(Index); + function ChartWizard(Source, Gallery, Format, PlotBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle); + function ClearToMatchColorStyle(); + function ClearToMatchStyle(); + function Copy(Before, After); + function CopyPicture(Appearance, Format, Size); + function Delete(); + function Export(FileName, FilterName, Interactive); + function FullSeriesCollection(Index); + function GetChartElement(x, y, ElementID, Arg1, Arg2); + function Paste(Type); + function Refresh(); + function SaveChartTemplate(FileName); + function Select(Replace); + function SeriesCollection(Index); + function SetBackgroundPicture(FileName); + function SetDefaultChart(Name); + function SetElement(Element); + function SetSourceData(Source, PlotBy); + function HasAxis(Index1, Index2); + + // properties + property AlternativeText read ReadAlternativeText write WriteAlternativeText; + property AutoScaling read ReadAutoScaling write WriteAutoScaling; + property BackWall read ReadBackWall; + property BarShape read ReadBarShape write WriteBarShape; + property CategoryLabelLevel read ReadCategoryLabelLevel write WriteCategoryLabelLevel; + property ChartArea read ReadChartArea; + property ChartColor read ReadChartColor write WriteChartColor; + property ChartData read ReadChartData; + property ChartStyle read ReadChartStyle write WriteChartStyle; + property ChartTitle read ReadChartTitle; + property ChartType read ReadChartType write WriteChartType; + property DataTable read ReadDataTable; + property DepthPercent read ReadDepthPercent write WriteDepthPercent; + property DisplayBlanksAs read ReadDisplayBlanksAs write WriteDisplayBlanksAs; + property Elevation read ReadElevation write WriteElevation; + property Floor read ReadFloor; + property Format read ReadFormat; + property GapDepth read ReadGapDepth write WriteGapDepth; + property HasDataTable read ReadHasDataTable write WriteHasDataTable; + property HasLegend read ReadHasLegend write WriteHasLegend; + property HasTitle read ReadHasTitle write WriteHasTitle; + property HeightPercent read ReadHeightPercent write WriteHeightPercent; + property Legend read ReadLegend; + property Name read ReadName write WriteName; + property Perspective read ReadPerspective write WritePerspective; + property PlotArea read ReadPlotArea; + property PlotBy read ReadPlotBy write WritePlotBy; + property PlotVisibleOnly read ReadPlotVisibleOnly write WritePlotVisibleOnly; + property RightAngleAxes read ReadRightAngleAxes write WriteRightAngleAxes; + property Rotation read ReadRotation write WriteRotation; + property SeriesNameLevel read ReadSeriesNameLevel write WriteSeriesNameLevel; + property Shapes read ReadShapes; + property ShowAllFieldButtons read ReadShowAllFieldButtons write WriteShowAllFieldButtons; + property ShowAxisFieldButtons read ReadShowAxisFieldButtons write WriteShowAxisFieldButtons; + property ShowDataLabelsOverMaximum read ReadShowDataLabelsOverMaximum write WriteShowDataLabelsOverMaximum; + property ShowLegendFieldButtons read ReadShowLegendFieldButtons write WriteShowLegendFieldButtons; + property ShowReportFilterFieldButtons read ReadShowReportFilterFieldButtons write WriteShowReportFilterFieldButtons; + property ShowValueFieldButtons read ReadShowValueFieldButtons write WriteShowValueFieldButtons; + property SideWall read ReadSideWall; + property Title read ReadTitle write WriteTitle; + property Walls read ReadWalls; + function ReadAlternativeText(); + function WriteAlternativeText(_value); + function ReadAutoScaling(); + function WriteAutoScaling(_value); + function ReadBackWall(); + function ReadBarShape(); + function WriteBarShape(_value); + function ReadCategoryLabelLevel(); + function WriteCategoryLabelLevel(_value); + function ReadChartArea(); + function ReadChartColor(); + function WriteChartColor(_value); + function ReadChartData(); + function ReadChartStyle(); + function WriteChartStyle(_value); + function ReadChartTitle(); + function ReadChartType(); + function WriteChartType(_value); + function ReadDataTable(); + function ReadDepthPercent(); + function WriteDepthPercent(_value); + function ReadDisplayBlanksAs(); + function WriteDisplayBlanksAs(_value); + function ReadElevation(); + function WriteElevation(_value); + function ReadFloor(); + function ReadFormat(); + function ReadGapDepth(); + function WriteGapDepth(_value); + function ReadHasDataTable(); + function WriteHasDataTable(_value); + function ReadHasLegend(); + function WriteHasLegend(_value); + function ReadHasTitle(); + function WriteHasTitle(_value); + function ReadHeightPercent(); + function WriteHeightPercent(_value); + function ReadLegend(); + function ReadName(); + function WriteName(_value); + function ReadPerspective(); + function WritePerspective(_value); + function ReadPlotArea(); + function ReadPlotBy(); + function WritePlotBy(_value); + function ReadPlotVisibleOnly(); + function WritePlotVisibleOnly(_value); + function ReadRightAngleAxes(); + function WriteRightAngleAxes(_value); + function ReadRotation(); + function WriteRotation(_value); + function ReadSeriesNameLevel(); + function WriteSeriesNameLevel(_value); + function ReadShapes(); + function ReadShowAllFieldButtons(); + function WriteShowAllFieldButtons(_value); + function ReadShowAxisFieldButtons(); + function WriteShowAxisFieldButtons(_value); + function ReadShowDataLabelsOverMaximum(); + function WriteShowDataLabelsOverMaximum(_value); + function ReadShowLegendFieldButtons(); + function WriteShowLegendFieldButtons(_value); + function ReadShowReportFilterFieldButtons(); + function WriteShowReportFilterFieldButtons(_value); + function ReadShowValueFieldButtons(); + function WriteShowValueFieldButtons(_value); + function ReadSideWall(); + function ReadTitle(); + function WriteTitle(_value); + function ReadWalls(); +end; + +type ChartArea = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + function ClearContents(); + function ClearFormats(); + function Copy(); + function Select(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight write WriteHeight; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Shadow read ReadShadow write WriteShadow; + property Top read ReadTop write WriteTop; + property Width read ReadWidth write WriteWidth; + function ReadFormat(); + function ReadHeight(); + function WriteHeight(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadShadow(); + function WriteShadow(_value); + function ReadTop(); + function WriteTop(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type ChartBorder = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Color read ReadColor write WriteColor; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property LineStyle read ReadLineStyle write WriteLineStyle; + property Weight read ReadWeight write WriteWeight; + function ReadColor(); + function WriteColor(_value); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadLineStyle(); + function WriteLineStyle(_value); + function ReadWeight(); + function WriteWeight(_value); +end; + +type ChartCategory = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property IsFiltered read ReadIsFiltered write WriteIsFiltered; + property Name read ReadName write WriteName; + function ReadIsFiltered(); + function WriteIsFiltered(_value); + function ReadName(); + function WriteName(_value); +end; + +type ChartCharacters = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Insert(String); + + // properties + property Caption read ReadCaption; + property Count read ReadCount; + property Font read ReadFont; + property PhoneticCharacters read ReadPhoneticCharacters write WritePhoneticCharacters; + property Text read ReadText write WriteText; + function ReadCaption(); + function ReadCount(); + function ReadFont(); + function ReadPhoneticCharacters(); + function WritePhoneticCharacters(_value); + function ReadText(); + function WriteText(_value); +end; + +type ChartData = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function ActivateChartDataWindow(); + function BreakLink(); + + // properties + property IsLinked read ReadIsLinked; + property Workbook read ReadWorkbook; + function ReadIsLinked(); + function ReadWorkbook(); +end; + +type ChartFont = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Background read ReadBackground write WriteBackground; + property Bold read ReadBold write WriteBold; + property Color read ReadColor write WriteColor; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property FontStyle read ReadFontStyle write WriteFontStyle; + property Italic read ReadItalic write WriteItalic; + property Name read ReadName write WriteName; + property Size read ReadSize write WriteSize; + property Strikethrough read ReadStrikethrough write WriteStrikethrough; + property Subscript read ReadSubscript write WriteSubscript; + property Superscript read ReadSuperscript write WriteSuperscript; + property Underline read ReadUnderline write WriteUnderline; + function ReadBackground(); + function WriteBackground(_value); + function ReadBold(); + function WriteBold(_value); + function ReadColor(); + function WriteColor(_value); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadFontStyle(); + function WriteFontStyle(_value); + function ReadItalic(); + function WriteItalic(_value); + function ReadName(); + function WriteName(_value); + function ReadSize(); + function WriteSize(_value); + function ReadStrikethrough(); + function WriteStrikethrough(_value); + function ReadSubscript(); + function WriteSubscript(_value); + function ReadSuperscript(); + function WriteSuperscript(_value); + function ReadUnderline(); + function WriteUnderline(_value); +end; + +type ChartFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Adjustments read ReadAdjustments; + property AutoShapeType read ReadAutoShapeType write WriteAutoShapeType; + property Fill read ReadFill; + property Glow read ReadGlow; + property Line read ReadLine; + property PictureFormat read ReadPictureFormat; + property Shadow read ReadShadow; + property SoftEdge read ReadSoftEdge; + property TextFrame2 read ReadTextFrame2; + property ThreeD read ReadThreeD; + function ReadAdjustments(); + function ReadAutoShapeType(); + function WriteAutoShapeType(_value); + function ReadFill(); + function ReadGlow(); + function ReadLine(); + function ReadPictureFormat(); + function ReadShadow(); + function ReadSoftEdge(); + function ReadTextFrame2(); + function ReadThreeD(); +end; + +type ChartGroup = class(VbaBase) +public + function Init(); + +public + // methods + function CategoryCollection(Index); + function FullCategoryCollection(Index); + function SeriesCollection(Index); + + // properties + property AxisGroup read ReadAxisGroup write WriteAxisGroup; + property BinsCountValue read ReadBinsCountValue write WriteBinsCountValue; + property BinsOverflowEnabled read ReadBinsOverflowEnabled write WriteBinsOverflowEnabled; + property BinsOverflowValue read ReadBinsOverflowValue write WriteBinsOverflowValue; + property BinsType read ReadBinsType write WriteBinsType; + property BinsUnderflowEnabled read ReadBinsUnderflowEnabled write WriteBinsUnderflowEnabled; + property BinsUnderflowValue read ReadBinsUnderflowValue write WriteBinsUnderflowValue; + property BinWidthValue read ReadBinWidthValue write WriteBinWidthValue; + property BubbleScale read ReadBubbleScale write WriteBubbleScale; + property DoughnutHoleSize read ReadDoughnutHoleSize write WriteDoughnutHoleSize; + property DownBars read ReadDownBars; + property DropLines read ReadDropLines; + property FirstSliceAngle read ReadFirstSliceAngle write WriteFirstSliceAngle; + property GapWidth read ReadGapWidth write WriteGapWidth; + property Has3DShading read ReadHas3DShading write WriteHas3DShading; + property HasDropLines read ReadHasDropLines write WriteHasDropLines; + property HasHiLoLines read ReadHasHiLoLines write WriteHasHiLoLines; + property HasRadarAxisLabels read ReadHasRadarAxisLabels write WriteHasRadarAxisLabels; + property HasSeriesLines read ReadHasSeriesLines write WriteHasSeriesLines; + property HasUpDownBars read ReadHasUpDownBars write WriteHasUpDownBars; + property HiLoLines read ReadHiLoLines; + property Index read ReadIndex; + property Overlap read ReadOverlap write WriteOverlap; + property RadarAxisLabels read ReadRadarAxisLabels; + property SecondPlotSize read ReadSecondPlotSize write WriteSecondPlotSize; + property SeriesLines read ReadSeriesLines; + property ShowNegativeBubbles read ReadShowNegativeBubbles write WriteShowNegativeBubbles; + property SizeRepresents read ReadSizeRepresents write WriteSizeRepresents; + property SplitType read ReadSplitType write WriteSplitType; + property SplitValue read ReadSplitValue write WriteSplitValue; + property UpBars read ReadUpBars; + property VaryByCategories read ReadVaryByCategories write WriteVaryByCategories; + function ReadAxisGroup(); + function WriteAxisGroup(_value); + function ReadBinsCountValue(); + function WriteBinsCountValue(_value); + function ReadBinsOverflowEnabled(); + function WriteBinsOverflowEnabled(_value); + function ReadBinsOverflowValue(); + function WriteBinsOverflowValue(_value); + function ReadBinsType(); + function WriteBinsType(_value); + function ReadBinsUnderflowEnabled(); + function WriteBinsUnderflowEnabled(_value); + function ReadBinsUnderflowValue(); + function WriteBinsUnderflowValue(_value); + function ReadBinWidthValue(); + function WriteBinWidthValue(_value); + function ReadBubbleScale(); + function WriteBubbleScale(_value); + function ReadDoughnutHoleSize(); + function WriteDoughnutHoleSize(_value); + function ReadDownBars(); + function ReadDropLines(); + function ReadFirstSliceAngle(); + function WriteFirstSliceAngle(_value); + function ReadGapWidth(); + function WriteGapWidth(_value); + function ReadHas3DShading(); + function WriteHas3DShading(_value); + function ReadHasDropLines(); + function WriteHasDropLines(_value); + function ReadHasHiLoLines(); + function WriteHasHiLoLines(_value); + function ReadHasRadarAxisLabels(); + function WriteHasRadarAxisLabels(_value); + function ReadHasSeriesLines(); + function WriteHasSeriesLines(_value); + function ReadHasUpDownBars(); + function WriteHasUpDownBars(_value); + function ReadHiLoLines(); + function ReadIndex(); + function ReadOverlap(); + function WriteOverlap(_value); + function ReadRadarAxisLabels(); + function ReadSecondPlotSize(); + function WriteSecondPlotSize(_value); + function ReadSeriesLines(); + function ReadShowNegativeBubbles(); + function WriteShowNegativeBubbles(_value); + function ReadSizeRepresents(); + function WriteSizeRepresents(_value); + function ReadSplitType(); + function WriteSplitType(_value); + function ReadSplitValue(); + function WriteSplitValue(_value); + function ReadUpBars(); + function ReadVaryByCategories(); + function WriteVaryByCategories(_value); +end; + +type ChartGroups = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ChartTitle = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight write WriteHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property IncludeInLayout read ReadIncludeInLayout write WriteIncludeInLayout; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Shadow read ReadShadow write WriteShadow; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth write WriteWidth; + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function WriteHeight(_value); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadIncludeInLayout(); + function WriteIncludeInLayout(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Coauthoring = class(VbaBase) +public + function Init(); + +public + // methods + function EndReview(); + + // properties + property FavorServerEditsDuringMerge read ReadFavorServerEditsDuringMerge write WriteFavorServerEditsDuringMerge; + property MergeMode read ReadMergeMode; + property PendingUpdates read ReadPendingUpdates; + function ReadFavorServerEditsDuringMerge(); + function WriteFavorServerEditsDuringMerge(_value); + function ReadMergeMode(); + function ReadPendingUpdates(); +end; + +type ColorEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property By read ReadBy; + property From read ReadFrom; + property To read ReadTo write WriteTo; + function ReadBy(); + function ReadFrom(); + function ReadTo(); + function WriteTo(_value); +end; + +type ColorFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Brightness read ReadBrightness write WriteBrightness; + property ObjectThemeColor read ReadObjectThemeColor write WriteObjectThemeColor; + property RGB read ReadRGB write WriteRGB; + property SchemeColor read ReadSchemeColor write WriteSchemeColor; + property TintAndShade read ReadTintAndShade write WriteTintAndShade; + property Type read ReadType; + function ReadBrightness(); + function WriteBrightness(_value); + function ReadObjectThemeColor(); + function WriteObjectThemeColor(_value); + function ReadRGB(); + function WriteRGB(_value); + function ReadSchemeColor(); + function WriteSchemeColor(_value); + function ReadTintAndShade(); + function WriteTintAndShade(_value); + function ReadType(); +end; + +type ColorScheme = class(VbaBase) +public + function Init(); + +public + // methods + function Colors(SchemeColor); + function Delete(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ColorSchemes = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Scheme); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Column = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Cells read ReadCells; + property Width read ReadWidth write WriteWidth; + function ReadCells(); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Columns = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeColumn); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CommandEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property bookmark read Readbookmark write Writebookmark; + property Command read ReadCommand write WriteCommand; + property Type read ReadType write WriteType; + function Readbookmark(); + function Writebookmark(_value); + function ReadCommand(); + function WriteCommand(_value); + function ReadType(); + function WriteType(_value); +end; + +type Comment = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Author read ReadAuthor; + property AuthorIndex read ReadAuthorIndex; + property AuthorInitials read ReadAuthorInitials; + property Collapsed read ReadCollapsed; + property DateTime read ReadDateTime; + property Left read ReadLeft; + property ProviderID read ReadProviderID; + property Replies read ReadReplies; + property Text read ReadText; + property TimeZoneBias read ReadTimeZoneBias; + property Top read ReadTop; + property UserID read ReadUserID; + function ReadAuthor(); + function ReadAuthorIndex(); + function ReadAuthorInitials(); + function ReadCollapsed(); + function ReadDateTime(); + function ReadLeft(); + function ReadProviderID(); + function ReadReplies(); + function ReadText(); + function ReadTimeZoneBias(); + function ReadTop(); + function ReadUserID(); +end; + +type Comments = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Left, Top, Author, AuthorInitials, Text); + function Add2(Left, Top, Author, AuthorInitials, Text, ProviderID, UserID); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ConnectorFormat = class(VbaBase) +public + function Init(); + +public + // methods + function BeginConnect(ConnectedShape, ConnectionSite); + function BeginDisconnect(); + function EndConnect(ConnectedShape, ConnectionSite); + function EndDisconnect(); + + // properties + property BeginConnected read ReadBeginConnected write WriteBeginConnected; + property BeginConnectedShape read ReadBeginConnectedShape; + property BeginConnectionSite read ReadBeginConnectionSite; + property EndConnected read ReadEndConnected; + property EndConnectedShape read ReadEndConnectedShape; + property EndConnectionSite read ReadEndConnectionSite; + property Type read ReadType write WriteType; + function ReadBeginConnected(); + function WriteBeginConnected(_value); + function ReadBeginConnectedShape(); + function ReadBeginConnectionSite(); + function ReadEndConnected(); + function ReadEndConnectedShape(); + function ReadEndConnectionSite(); + function ReadType(); + function WriteType(_value); +end; + +type CustomerData = class(VbaBase) +public + function Init(); + +public + // methods + function Add(); + function Delete(Id); + function Item(Id); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type CustomLayout = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function Duplicate(); + function MoveTo(toPos); + function Select(); + + // properties + property Background read ReadBackground; + property CustomerData read ReadCustomerData; + property Design read ReadDesign; + property DisplayMasterShapes read ReadDisplayMasterShapes write WriteDisplayMasterShapes; + property FollowMasterBackground read ReadFollowMasterBackground write WriteFollowMasterBackground; + property Guides read ReadGuides; + property HeadersFooters read ReadHeadersFooters; + property Height read ReadHeight; + property Hyperlinks read ReadHyperlinks; + property Index read ReadIndex; + property MatchingName read ReadMatchingName write WriteMatchingName; + property Name read ReadName write WriteName; + property Preserved read ReadPreserved write WritePreserved; + property Shapes read ReadShapes; + property SlideShowTransition read ReadSlideShowTransition; + property ThemeColorScheme read ReadThemeColorScheme; + property TimeLine read ReadTimeLine; + property Width read ReadWidth; + function ReadBackground(); + function ReadCustomerData(); + function ReadDesign(); + function ReadDisplayMasterShapes(); + function WriteDisplayMasterShapes(_value); + function ReadFollowMasterBackground(); + function WriteFollowMasterBackground(_value); + function ReadGuides(); + function ReadHeadersFooters(); + function ReadHeight(); + function ReadHyperlinks(); + function ReadIndex(); + function ReadMatchingName(); + function WriteMatchingName(_value); + function ReadName(); + function WriteName(_value); + function ReadPreserved(); + function WritePreserved(_value); + function ReadShapes(); + function ReadSlideShowTransition(); + function ReadThemeColorScheme(); + function ReadTimeLine(); + function ReadWidth(); +end; + +type CustomLayouts = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Index); + function Item(Index); + function Paste(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type DataLabel = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property AutoText read ReadAutoText write WriteAutoText; + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property NumberFormat read ReadNumberFormat write WriteNumberFormat; + property NumberFormatLinked read ReadNumberFormatLinked write WriteNumberFormatLinked; + property NumberFormatLocal read ReadNumberFormatLocal write WriteNumberFormatLocal; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Separator read ReadSeparator write WriteSeparator; + property Shadow read ReadShadow write WriteShadow; + property ShowBubbleSize read ReadShowBubbleSize write WriteShowBubbleSize; + property ShowCategoryName read ReadShowCategoryName write WriteShowCategoryName; + property ShowLegendKey read ReadShowLegendKey write WriteShowLegendKey; + property ShowPercentage read ReadShowPercentage write WriteShowPercentage; + property ShowRange read ReadShowRange write WriteShowRange; + property ShowSeriesName read ReadShowSeriesName write WriteShowSeriesName; + property ShowValue read ReadShowValue write WriteShowValue; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth; + function ReadAutoText(); + function WriteAutoText(_value); + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadNumberFormat(); + function WriteNumberFormat(_value); + function ReadNumberFormatLinked(); + function WriteNumberFormatLinked(_value); + function ReadNumberFormatLocal(); + function WriteNumberFormatLocal(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadSeparator(); + function WriteSeparator(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadShowBubbleSize(); + function WriteShowBubbleSize(_value); + function ReadShowCategoryName(); + function WriteShowCategoryName(_value); + function ReadShowLegendKey(); + function WriteShowLegendKey(_value); + function ReadShowPercentage(); + function WriteShowPercentage(_value); + function ReadShowRange(); + function WriteShowRange(_value); + function ReadShowSeriesName(); + function WriteShowSeriesName(_value); + function ReadShowValue(); + function WriteShowValue(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); +end; + +type DataLabels = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Item(Index); + function Propagate(Index); + function Select(); + + // properties + property AutoText read ReadAutoText write WriteAutoText; + property Count read ReadCount; + property Format read ReadFormat; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property Name read ReadName; + property NumberFormat read ReadNumberFormat write WriteNumberFormat; + property NumberFormatLinked read ReadNumberFormatLinked write WriteNumberFormatLinked; + property NumberFormatLocal read ReadNumberFormatLocal write WriteNumberFormatLocal; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Separator read ReadSeparator write WriteSeparator; + property Shadow read ReadShadow write WriteShadow; + property ShowBubbleSize read ReadShowBubbleSize write WriteShowBubbleSize; + property ShowCategoryName read ReadShowCategoryName write WriteShowCategoryName; + property ShowLegendKey read ReadShowLegendKey write WriteShowLegendKey; + property ShowPercentage read ReadShowPercentage write WriteShowPercentage; + property ShowRange read ReadShowRange write WriteShowRange; + property ShowSeriesName read ReadShowSeriesName write WriteShowSeriesName; + property ShowValue read ReadShowValue write WriteShowValue; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + function ReadAutoText(); + function WriteAutoText(_value); + function ReadCount(); + function ReadFormat(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadName(); + function ReadNumberFormat(); + function WriteNumberFormat(_value); + function ReadNumberFormatLinked(); + function WriteNumberFormatLinked(_value); + function ReadNumberFormatLocal(); + function WriteNumberFormatLocal(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadSeparator(); + function WriteSeparator(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadShowBubbleSize(); + function WriteShowBubbleSize(_value); + function ReadShowCategoryName(); + function WriteShowCategoryName(_value); + function ReadShowLegendKey(); + function WriteShowLegendKey(_value); + function ReadShowPercentage(); + function WriteShowPercentage(_value); + function ReadShowRange(); + function WriteShowRange(_value); + function ReadShowSeriesName(); + function WriteShowSeriesName(_value); + function ReadShowValue(); + function WriteShowValue(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); +end; + +type DataTable = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Font read ReadFont; + property Format read ReadFormat; + property HasBorderHorizontal read ReadHasBorderHorizontal write WriteHasBorderHorizontal; + property HasBorderOutline read ReadHasBorderOutline write WriteHasBorderOutline; + property HasBorderVertical read ReadHasBorderVertical write WriteHasBorderVertical; + property ShowLegendKey read ReadShowLegendKey write WriteShowLegendKey; + function ReadBorder(); + function ReadFont(); + function ReadFormat(); + function ReadHasBorderHorizontal(); + function WriteHasBorderHorizontal(_value); + function ReadHasBorderOutline(); + function WriteHasBorderOutline(_value); + function ReadHasBorderVertical(); + function WriteHasBorderVertical(_value); + function ReadShowLegendKey(); + function WriteShowLegendKey(_value); +end; + +type Design = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function MoveTo(toPos); + + // properties + property Index read ReadIndex; + property Name read ReadName write WriteName; + property Preserved read ReadPreserved write WritePreserved; + property SlideMaster read ReadSlideMaster; + function ReadIndex(); + function ReadName(); + function WriteName(_value); + function ReadPreserved(); + function WritePreserved(_value); + function ReadSlideMaster(); +end; + +type Designs = class(VbaBase) +public + function Init(); + +public + // methods + function Add(designName, Index); + function Clone(pOriginal, Index); + function Item(Index); + function Load(TemplateName, Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type DisplayUnitLabel = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + function Characters(Start, Length); + + // properties + property Caption read ReadCaption write WriteCaption; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Height read ReadHeight; + property HorizontalAlignment read ReadHorizontalAlignment write WriteHorizontalAlignment; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Orientation read ReadOrientation write WriteOrientation; + property Position read ReadPosition write WritePosition; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + property Shadow read ReadShadow write WriteShadow; + property Text read ReadText write WriteText; + property Top read ReadTop write WriteTop; + property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; + property Width read ReadWidth; + function ReadCaption(); + function WriteCaption(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHeight(); + function ReadHorizontalAlignment(); + function WriteHorizontalAlignment(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPosition(); + function WritePosition(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadText(); + function WriteText(_value); + function ReadTop(); + function WriteTop(_value); + function ReadVerticalAlignment(); + function WriteVerticalAlignment(_value); + function ReadWidth(); +end; + +type DocumentWindow = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function Close(); + function ExpandSection(sectionIndex, Expand); + function FitToPage(); + function IsSectionExpanded(sectionIndex); + function LargeScroll(Down, Up, ToRight, ToLeft); + function NewWindow(); + function PointsToScreenPixelsX(Points); + function PointsToScreenPixelsY(Points); + function RangeFromPoint(x, y); + function ScrollIntoView(Left, Top, Width, Height, Start); + function ShowInsertAppDialog(Filter); + function SmallScroll(Down, Up, ToRight, ToLeft); + + // properties + property Active read ReadActive; + property ActivePane read ReadActivePane; + property BlackAndWhite read ReadBlackAndWhite write WriteBlackAndWhite; + property Caption read ReadCaption; + property Height read ReadHeight write WriteHeight; + property Left read ReadLeft write WriteLeft; + property Panes read ReadPanes; + property Presentation read ReadPresentation; + property Selection read ReadSelection; + property SplitHorizontal read ReadSplitHorizontal write WriteSplitHorizontal; + property SplitVertical read ReadSplitVertical write WriteSplitVertical; + property Top read ReadTop write WriteTop; + property View read ReadView; + property ViewType read ReadViewType write WriteViewType; + property Width read ReadWidth write WriteWidth; + property WindowState read ReadWindowState write WriteWindowState; + function ReadActive(); + function ReadActivePane(); + function ReadBlackAndWhite(); + function WriteBlackAndWhite(_value); + function ReadCaption(); + function ReadHeight(); + function WriteHeight(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadPanes(); + function ReadPresentation(); + function ReadSelection(); + function ReadSplitHorizontal(); + function WriteSplitHorizontal(_value); + function ReadSplitVertical(); + function WriteSplitVertical(_value); + function ReadTop(); + function WriteTop(_value); + function ReadView(); + function ReadViewType(); + function WriteViewType(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWindowState(); + function WriteWindowState(_value); +end; + +type DocumentWindows = class(VbaBase) +public + function Init(); + +public + // methods + function Arrange(arrangeStyle); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type DownBars = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Format read ReadFormat; + property Name read ReadName; + function ReadFormat(); + function ReadName(); +end; + +type DropLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type Effect = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function MoveAfter(Effect); + function MoveBefore(Effect); + function MoveTo(toPos); + + // properties + property Behaviors read ReadBehaviors; + property DisplayName read ReadDisplayName; + property EffectInformation read ReadEffectInformation; + property EffectParameters read ReadEffectParameters; + property EffectType read ReadEffectType write WriteEffectType; + property Exit read ReadExit write WriteExit; + property Index read ReadIndex; + property Paragraph read ReadParagraph write WriteParagraph; + property Shape read ReadShape; + property TextRangeLength read ReadTextRangeLength write WriteTextRangeLength; + property TextRangeStart read ReadTextRangeStart write WriteTextRangeStart; + property Timing read ReadTiming; + function ReadBehaviors(); + function ReadDisplayName(); + function ReadEffectInformation(); + function ReadEffectParameters(); + function ReadEffectType(); + function WriteEffectType(_value); + function ReadExit(); + function WriteExit(_value); + function ReadIndex(); + function ReadParagraph(); + function WriteParagraph(_value); + function ReadShape(); + function ReadTextRangeLength(); + function WriteTextRangeLength(_value); + function ReadTextRangeStart(); + function WriteTextRangeStart(_value); + function ReadTiming(); +end; + +type EffectInformation = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AfterEffect read ReadAfterEffect; + property AnimateBackground read ReadAnimateBackground; + property AnimateTextInReverse read ReadAnimateTextInReverse write WriteAnimateTextInReverse; + property BuildByLevelEffect read ReadBuildByLevelEffect; + property Dim read ReadDim; + property PlaySettings read ReadPlaySettings; + property SoundEffect read ReadSoundEffect; + property TextUnitEffect read ReadTextUnitEffect; + function ReadAfterEffect(); + function ReadAnimateBackground(); + function ReadAnimateTextInReverse(); + function WriteAnimateTextInReverse(_value); + function ReadBuildByLevelEffect(); + function ReadDim(); + function ReadPlaySettings(); + function ReadSoundEffect(); + function ReadTextUnitEffect(); +end; + +type EffectParameters = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Amount read ReadAmount write WriteAmount; + property Color2 read ReadColor2; + property Direction read ReadDirection write WriteDirection; + property FontName read ReadFontName write WriteFontName; + property Relative read ReadRelative write WriteRelative; + property Size read ReadSize write WriteSize; + function ReadAmount(); + function WriteAmount(_value); + function ReadColor2(); + function ReadDirection(); + function WriteDirection(_value); + function ReadFontName(); + function WriteFontName(_value); + function ReadRelative(); + function WriteRelative(_value); + function ReadSize(); + function WriteSize(_value); +end; + +type ErrorBars = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property EndStyle read ReadEndStyle write WriteEndStyle; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadEndStyle(); + function WriteEndStyle(_value); + function ReadFormat(); + function ReadName(); +end; + +type ExtraColors = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Type); + function Clear(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type FileConverter = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property CanOpen read ReadCanOpen; + property CanSave read ReadCanSave; + property ClassName read ReadClassName; + property Extensions read ReadExtensions; + property FormatName read ReadFormatName; + property Name read ReadName; + property OpenFormat read ReadOpenFormat; + property Path read ReadPath; + property SaveFormat read ReadSaveFormat; + function ReadCanOpen(); + function ReadCanSave(); + function ReadClassName(); + function ReadExtensions(); + function ReadFormatName(); + function ReadName(); + function ReadOpenFormat(); + function ReadPath(); + function ReadSaveFormat(); +end; + +type FileConverters = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type FillFormat = class(VbaBase) +public + function Init(); + +public + // methods + function Background(); + function OneColorGradient(Style, Variant, Degree); + function Patterned(Pattern); + function PresetGradient(Style, Variant, PresetGradientType); + function PresetTextured(PresetTexture); + function Solid(); + function TwoColorGradient(Style, Variant); + function UserPicture(PictureFile); + function UserTextured(TextureFile); + + // properties + property BackColor read ReadBackColor write WriteBackColor; + property ForeColor read ReadForeColor write WriteForeColor; + property GradientAngle read ReadGradientAngle write WriteGradientAngle; + property GradientColorType read ReadGradientColorType; + property GradientDegree read ReadGradientDegree; + property GradientStops read ReadGradientStops; + property GradientStyle read ReadGradientStyle; + property GradientVariant read ReadGradientVariant; + property Pattern read ReadPattern; + property PictureEffects read ReadPictureEffects; + property PresetGradientType read ReadPresetGradientType; + property PresetTexture read ReadPresetTexture; + property RotateWithObject read ReadRotateWithObject write WriteRotateWithObject; + property TextureAlignment read ReadTextureAlignment write WriteTextureAlignment; + property TextureHorizontalScale read ReadTextureHorizontalScale write WriteTextureHorizontalScale; + property TextureName read ReadTextureName; + property TextureOffsetX read ReadTextureOffsetX write WriteTextureOffsetX; + property TextureOffsetY read ReadTextureOffsetY write WriteTextureOffsetY; + property TextureTile read ReadTextureTile write WriteTextureTile; + property TextureType read ReadTextureType; + property TextureVerticalScale read ReadTextureVerticalScale write WriteTextureVerticalScale; + property Transparency read ReadTransparency write WriteTransparency; + property Type read ReadType; + property Visible read ReadVisible write WriteVisible; + function ReadBackColor(); + function WriteBackColor(_value); + function ReadForeColor(); + function WriteForeColor(_value); + function ReadGradientAngle(); + function WriteGradientAngle(_value); + function ReadGradientColorType(); + function ReadGradientDegree(); + function ReadGradientStops(); + function ReadGradientStyle(); + function ReadGradientVariant(); + function ReadPattern(); + function ReadPictureEffects(); + function ReadPresetGradientType(); + function ReadPresetTexture(); + function ReadRotateWithObject(); + function WriteRotateWithObject(_value); + function ReadTextureAlignment(); + function WriteTextureAlignment(_value); + function ReadTextureHorizontalScale(); + function WriteTextureHorizontalScale(_value); + function ReadTextureName(); + function ReadTextureOffsetX(); + function WriteTextureOffsetX(_value); + function ReadTextureOffsetY(); + function WriteTextureOffsetY(_value); + function ReadTextureTile(); + function WriteTextureTile(_value); + function ReadTextureType(); + function ReadTextureVerticalScale(); + function WriteTextureVerticalScale(_value); + function ReadTransparency(); + function WriteTransparency(_value); + function ReadType(); + function ReadVisible(); + function WriteVisible(_value); +end; + +type FilterEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Reveal read ReadReveal write WriteReveal; + property Subtype read ReadSubtype write WriteSubtype; + property Type read ReadType write WriteType; + function ReadReveal(); + function WriteReveal(_value); + function ReadSubtype(); + function WriteSubtype(_value); + function ReadType(); + function WriteType(_value); +end; + +type Floor = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Paste(); + function Select(); + + // properties + property Format read ReadFormat; + property Name read ReadName; + property PictureType read ReadPictureType write WritePictureType; + property Thickness read ReadThickness write WriteThickness; + function ReadFormat(); + function ReadName(); + function ReadPictureType(); + function WritePictureType(_value); + function ReadThickness(); + function WriteThickness(_value); +end; + +type Font = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AutoRotateNumbers read ReadAutoRotateNumbers write WriteAutoRotateNumbers; + property BaselineOffset read ReadBaselineOffset write WriteBaselineOffset; + property Bold read ReadBold write WriteBold; + property Color read ReadColor write WriteColor; + property Embeddable read ReadEmbeddable; + property Embedded read ReadEmbedded; + property Emboss read ReadEmboss write WriteEmboss; + property Italic read ReadItalic write WriteItalic; + property Name read ReadName write WriteName; + property NameAscii read ReadNameAscii write WriteNameAscii; + property NameComplexScript read ReadNameComplexScript write WriteNameComplexScript; + property NameFarEast read ReadNameFarEast write WriteNameFarEast; + property NameOther read ReadNameOther write WriteNameOther; + property Shadow read ReadShadow write WriteShadow; + property Size read ReadSize write WriteSize; + property Subscript read ReadSubscript write WriteSubscript; + property Superscript read ReadSuperscript write WriteSuperscript; + property Underline read ReadUnderline write WriteUnderline; + function ReadAutoRotateNumbers(); + function WriteAutoRotateNumbers(_value); + function ReadBaselineOffset(); + function WriteBaselineOffset(_value); + function ReadBold(); + function WriteBold(_value); + function ReadColor(); + function WriteColor(_value); + function ReadEmbeddable(); + function ReadEmbedded(); + function ReadEmboss(); + function WriteEmboss(_value); + function ReadItalic(); + function WriteItalic(_value); + function ReadName(); + function WriteName(_value); + function ReadNameAscii(); + function WriteNameAscii(_value); + function ReadNameComplexScript(); + function WriteNameComplexScript(_value); + function ReadNameFarEast(); + function WriteNameFarEast(_value); + function ReadNameOther(); + function WriteNameOther(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadSize(); + function WriteSize(_value); + function ReadSubscript(); + function WriteSubscript(_value); + function ReadSuperscript(); + function WriteSuperscript(_value); + function ReadUnderline(); + function WriteUnderline(_value); +end; + +type Fonts = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + function Replace(Original, Replacement); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type FreeformBuilder = class(VbaBase) +public + function Init(); + +public + // methods + function AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3); + function ConvertToShape(); + + // properties +end; + +type FullSeriesCollection = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Gridlines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type GroupShapes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + function Range(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Guide = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Color read ReadColor; + property Orientation read ReadOrientation; + property Position read ReadPosition write WritePosition; + function ReadColor(); + function ReadOrientation(); + function ReadPosition(); + function WritePosition(_value); +end; + +type Guides = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Orientation, Position); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type HeaderFooter = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Format read ReadFormat write WriteFormat; + property Text read ReadText write WriteText; + property UseFormat read ReadUseFormat write WriteUseFormat; + property Visible read ReadVisible write WriteVisible; + function ReadFormat(); + function WriteFormat(_value); + function ReadText(); + function WriteText(_value); + function ReadUseFormat(); + function WriteUseFormat(_value); + function ReadVisible(); + function WriteVisible(_value); +end; + +type HeadersFooters = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + + // properties + property DateAndTime read ReadDateAndTime; + property DisplayOnTitleSlide read ReadDisplayOnTitleSlide write WriteDisplayOnTitleSlide; + property Footer read ReadFooter; + property Header read ReadHeader; + property SlideNumber read ReadSlideNumber; + function ReadDateAndTime(); + function ReadDisplayOnTitleSlide(); + function WriteDisplayOnTitleSlide(_value); + function ReadFooter(); + function ReadHeader(); + function ReadSlideNumber(); +end; + +type HiLoLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type Hyperlink = class(VbaBase) +public + function Init(); + +public + // methods + function AddToFavorites(); + function CreateNewDocument(FileName, EditNow, Overwrite); + function Delete(); + function Follow(); + + // properties + property Address read ReadAddress write WriteAddress; + property EmailSubject read ReadEmailSubject write WriteEmailSubject; + property ScreenTip read ReadScreenTip write WriteScreenTip; + property ShowAndReturn read ReadShowAndReturn write WriteShowAndReturn; + property SubAddress read ReadSubAddress write WriteSubAddress; + property TextToDisplay read ReadTextToDisplay write WriteTextToDisplay; + property Type read ReadType; + function ReadAddress(); + function WriteAddress(_value); + function ReadEmailSubject(); + function WriteEmailSubject(_value); + function ReadScreenTip(); + function WriteScreenTip(_value); + function ReadShowAndReturn(); + function WriteShowAndReturn(_value); + function ReadSubAddress(); + function WriteSubAddress(_value); + function ReadTextToDisplay(); + function WriteTextToDisplay(_value); + function ReadType(); +end; + +type Hyperlinks = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Interior = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Color read ReadColor write WriteColor; + property ColorIndex read ReadColorIndex write WriteColorIndex; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property Pattern read ReadPattern write WritePattern; + property PatternColor read ReadPatternColor write WritePatternColor; + property PatternColorIndex read ReadPatternColorIndex write WritePatternColorIndex; + function ReadColor(); + function WriteColor(_value); + function ReadColorIndex(); + function WriteColorIndex(_value); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadPattern(); + function WritePattern(_value); + function ReadPatternColor(); + function WritePatternColor(_value); + function ReadPatternColorIndex(); + function WritePatternColorIndex(_value); +end; + +type LeaderLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + function ReadBorder(); + function ReadFormat(); +end; + +type Legend = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + function Delete(); + function LegendEntries(); + function Select(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight write WriteHeight; + property IncludeInLayout read ReadIncludeInLayout write WriteIncludeInLayout; + property Left read ReadLeft; + property Name read ReadName; + property Position read ReadPosition write WritePosition; + property Shadow read ReadShadow write WriteShadow; + property Top read ReadTop write WriteTop; + property Width read ReadWidth write WriteWidth; + function ReadFormat(); + function ReadHeight(); + function WriteHeight(_value); + function ReadIncludeInLayout(); + function WriteIncludeInLayout(_value); + function ReadLeft(); + function ReadName(); + function ReadPosition(); + function WritePosition(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadTop(); + function WriteTop(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type LegendEntries = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type LegendEntry = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Font read ReadFont; + property Format read ReadFormat; + property Height read ReadHeight; + property Index read ReadIndex; + property Left read ReadLeft; + property LegendKey read ReadLegendKey; + property Top read ReadTop; + property Width read ReadWidth; + function ReadFont(); + function ReadFormat(); + function ReadHeight(); + function ReadIndex(); + function ReadLeft(); + function ReadLegendKey(); + function ReadTop(); + function ReadWidth(); +end; + +type LegendKey = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Delete(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property Left read ReadLeft; + property MarkerBackgroundColor read ReadMarkerBackgroundColor write WriteMarkerBackgroundColor; + property MarkerBackgroundColorIndex read ReadMarkerBackgroundColorIndex write WriteMarkerBackgroundColorIndex; + property MarkerForegroundColor read ReadMarkerForegroundColor write WriteMarkerForegroundColor; + property MarkerForegroundColorIndex read ReadMarkerForegroundColorIndex write WriteMarkerForegroundColorIndex; + property MarkerSize read ReadMarkerSize write WriteMarkerSize; + property MarkerStyle read ReadMarkerStyle write WriteMarkerStyle; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit2 read ReadPictureUnit2 write WritePictureUnit2; + property Shadow read ReadShadow write WriteShadow; + property Smooth read ReadSmooth write WriteSmooth; + property Top read ReadTop; + property Width read ReadWidth; + function ReadFormat(); + function ReadHeight(); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadLeft(); + function ReadMarkerBackgroundColor(); + function WriteMarkerBackgroundColor(_value); + function ReadMarkerBackgroundColorIndex(); + function WriteMarkerBackgroundColorIndex(_value); + function ReadMarkerForegroundColor(); + function WriteMarkerForegroundColor(_value); + function ReadMarkerForegroundColorIndex(); + function WriteMarkerForegroundColorIndex(_value); + function ReadMarkerSize(); + function WriteMarkerSize(_value); + function ReadMarkerStyle(); + function WriteMarkerStyle(_value); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit2(); + function WritePictureUnit2(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadSmooth(); + function WriteSmooth(_value); + function ReadTop(); + function ReadWidth(); +end; + +type LineFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property BackColor read ReadBackColor write WriteBackColor; + property BeginArrowheadLength read ReadBeginArrowheadLength write WriteBeginArrowheadLength; + property BeginArrowheadStyle read ReadBeginArrowheadStyle write WriteBeginArrowheadStyle; + property BeginArrowheadWidth read ReadBeginArrowheadWidth write WriteBeginArrowheadWidth; + property DashStyle read ReadDashStyle write WriteDashStyle; + property EndArrowheadLength read ReadEndArrowheadLength write WriteEndArrowheadLength; + property EndArrowheadStyle read ReadEndArrowheadStyle write WriteEndArrowheadStyle; + property EndArrowheadWidth read ReadEndArrowheadWidth write WriteEndArrowheadWidth; + property ForeColor read ReadForeColor write WriteForeColor; + property InsetPen read ReadInsetPen write WriteInsetPen; + property Pattern read ReadPattern write WritePattern; + property Style read ReadStyle write WriteStyle; + property Transparency read ReadTransparency write WriteTransparency; + property Visible read ReadVisible write WriteVisible; + property Weight read ReadWeight write WriteWeight; + function ReadBackColor(); + function WriteBackColor(_value); + function ReadBeginArrowheadLength(); + function WriteBeginArrowheadLength(_value); + function ReadBeginArrowheadStyle(); + function WriteBeginArrowheadStyle(_value); + function ReadBeginArrowheadWidth(); + function WriteBeginArrowheadWidth(_value); + function ReadDashStyle(); + function WriteDashStyle(_value); + function ReadEndArrowheadLength(); + function WriteEndArrowheadLength(_value); + function ReadEndArrowheadStyle(); + function WriteEndArrowheadStyle(_value); + function ReadEndArrowheadWidth(); + function WriteEndArrowheadWidth(_value); + function ReadForeColor(); + function WriteForeColor(_value); + function ReadInsetPen(); + function WriteInsetPen(_value); + function ReadPattern(); + function WritePattern(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTransparency(); + function WriteTransparency(_value); + function ReadVisible(); + function WriteVisible(_value); + function ReadWeight(); + function WriteWeight(_value); +end; + +type LinkFormat = class(VbaBase) +public + function Init(); + +public + // methods + function BreakLink(); + function Update(); + + // properties + property AutoUpdate read ReadAutoUpdate write WriteAutoUpdate; + property SourceFullName read ReadSourceFullName write WriteSourceFullName; + function ReadAutoUpdate(); + function WriteAutoUpdate(_value); + function ReadSourceFullName(); + function WriteSourceFullName(_value); +end; + +type Master = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyTheme(themeName); + function Delete(); + + // properties + property Background read ReadBackground; + property BackgroundStyle read ReadBackgroundStyle write WriteBackgroundStyle; + property ColorScheme read ReadColorScheme write WriteColorScheme; + property CustomerData read ReadCustomerData; + property CustomLayouts read ReadCustomLayouts; + property Design read ReadDesign; + property Guides read ReadGuides; + property HeadersFooters read ReadHeadersFooters; + property Height read ReadHeight write WriteHeight; + property Hyperlinks read ReadHyperlinks; + property Name read ReadName write WriteName; + property Shapes read ReadShapes; + property SlideShowTransition read ReadSlideShowTransition; + property TextStyles read ReadTextStyles; + property Theme read ReadTheme; + property TimeLine read ReadTimeLine; + property Width read ReadWidth; + function ReadBackground(); + function ReadBackgroundStyle(); + function WriteBackgroundStyle(_value); + function ReadColorScheme(); + function WriteColorScheme(_value); + function ReadCustomerData(); + function ReadCustomLayouts(); + function ReadDesign(); + function ReadGuides(); + function ReadHeadersFooters(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHyperlinks(); + function ReadName(); + function WriteName(_value); + function ReadShapes(); + function ReadSlideShowTransition(); + function ReadTextStyles(); + function ReadTheme(); + function ReadTimeLine(); + function ReadWidth(); +end; + +type MediaBookmark = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Index read ReadIndex; + property Name read ReadName; + property Position read ReadPosition; + function ReadIndex(); + function ReadName(); + function ReadPosition(); +end; + +type MediaBookmarks = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Position, Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type MediaFormat = class(VbaBase) +public + function Init(); + +public + // methods + function Resample(Trim, SampleHeight, SampleWidth, VideoFrameRate, AudioSamplingRate, VideoBitRate); + function ResampleFromProfile(profile); + function SetDisplayPicture(Position); + function SetDisplayPictureFromFile(FilePath); + + // properties + property AudioCompressionType read ReadAudioCompressionType; + property AudioSamplingRate read ReadAudioSamplingRate; + property EndPoint read ReadEndPoint write WriteEndPoint; + property FadeInDuration read ReadFadeInDuration write WriteFadeInDuration; + property FadeOutDuration read ReadFadeOutDuration write WriteFadeOutDuration; + property IsEmbedded read ReadIsEmbedded; + property IsLinked read ReadIsLinked; + property Length read ReadLength; + property MediaBookmarks read ReadMediaBookmarks; + property Muted read ReadMuted write WriteMuted; + property ResamplingStatus read ReadResamplingStatus; + property SampleHeight read ReadSampleHeight; + property SampleWidth read ReadSampleWidth; + property StartPoint read ReadStartPoint write WriteStartPoint; + property VideoCompressionType read ReadVideoCompressionType; + property VideoFrameRate read ReadVideoFrameRate; + property Volume read ReadVolume write WriteVolume; + function ReadAudioCompressionType(); + function ReadAudioSamplingRate(); + function ReadEndPoint(); + function WriteEndPoint(_value); + function ReadFadeInDuration(); + function WriteFadeInDuration(_value); + function ReadFadeOutDuration(); + function WriteFadeOutDuration(_value); + function ReadIsEmbedded(); + function ReadIsLinked(); + function ReadLength(); + function ReadMediaBookmarks(); + function ReadMuted(); + function WriteMuted(_value); + function ReadResamplingStatus(); + function ReadSampleHeight(); + function ReadSampleWidth(); + function ReadStartPoint(); + function WriteStartPoint(_value); + function ReadVideoCompressionType(); + function ReadVideoFrameRate(); + function ReadVolume(); + function WriteVolume(_value); +end; + +type MotionEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ByX read ReadByX write WriteByX; + property ByY read ReadByY write WriteByY; + property FromX read ReadFromX write WriteFromX; + property FromY read ReadFromY write WriteFromY; + property Path read ReadPath write WritePath; + property ToX read ReadToX write WriteToX; + property ToY read ReadToY write WriteToY; + function ReadByX(); + function WriteByX(_value); + function ReadByY(); + function WriteByY(_value); + function ReadFromX(); + function WriteFromX(_value); + function ReadFromY(); + function WriteFromY(_value); + function ReadPath(); + function WritePath(_value); + function ReadToX(); + function WriteToX(_value); + function ReadToY(); + function WriteToY(_value); +end; + +type NamedSlideShow = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property Count read ReadCount; + property Name read ReadName; + property SlideIDs read ReadSlideIDs; + function ReadCount(); + function ReadName(); + function ReadSlideIDs(); +end; + +type NamedSlideShows = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, SafeArrayOfSlideIDs); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ObjectVerbs = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type OLEFormat = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function DoVerb(Index); + + // properties + property FollowColors read ReadFollowColors write WriteFollowColors; + property Object read ReadObject; + property ObjectVerbs read ReadObjectVerbs; + property ProgID read ReadProgID; + function ReadFollowColors(); + function WriteFollowColors(_value); + function ReadObject(); + function ReadObjectVerbs(); + function ReadProgID(); +end; + +type Options = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property DisplayPasteOptions read ReadDisplayPasteOptions write WriteDisplayPasteOptions; + property ShowCoauthoringMergeChanges read ReadShowCoauthoringMergeChanges write WriteShowCoauthoringMergeChanges; + function ReadDisplayPasteOptions(); + function WriteDisplayPasteOptions(_value); + function ReadShowCoauthoringMergeChanges(); + function WriteShowCoauthoringMergeChanges(_value); +end; + +type PageSetup = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property FirstSlideNumber read ReadFirstSlideNumber write WriteFirstSlideNumber; + property NotesOrientation read ReadNotesOrientation write WriteNotesOrientation; + property SlideHeight read ReadSlideHeight write WriteSlideHeight; + property SlideOrientation read ReadSlideOrientation write WriteSlideOrientation; + property SlideSize read ReadSlideSize write WriteSlideSize; + property SlideWidth read ReadSlideWidth write WriteSlideWidth; + function ReadFirstSlideNumber(); + function WriteFirstSlideNumber(_value); + function ReadNotesOrientation(); + function WriteNotesOrientation(_value); + function ReadSlideHeight(); + function WriteSlideHeight(_value); + function ReadSlideOrientation(); + function WriteSlideOrientation(_value); + function ReadSlideSize(); + function WriteSlideSize(_value); + function ReadSlideWidth(); + function WriteSlideWidth(_value); +end; + +type Pane = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + + // properties + property Active read ReadActive; + property ViewType read ReadViewType; + function ReadActive(); + function ReadViewType(); +end; + +type Panes = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ParagraphFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property BaseLineAlignment read ReadBaseLineAlignment write WriteBaseLineAlignment; + property Bullet read ReadBullet; + property FarEastLineBreakControl read ReadFarEastLineBreakControl write WriteFarEastLineBreakControl; + property HangingPunctuation read ReadHangingPunctuation write WriteHangingPunctuation; + property LineRuleAfter read ReadLineRuleAfter write WriteLineRuleAfter; + property LineRuleBefore read ReadLineRuleBefore write WriteLineRuleBefore; + property LineRuleWithin read ReadLineRuleWithin write WriteLineRuleWithin; + property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter; + property SpaceBefore read ReadSpaceBefore write WriteSpaceBefore; + property SpaceWithin read ReadSpaceWithin write WriteSpaceWithin; + property TextDirection read ReadTextDirection write WriteTextDirection; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadBaseLineAlignment(); + function WriteBaseLineAlignment(_value); + function ReadBullet(); + function ReadFarEastLineBreakControl(); + function WriteFarEastLineBreakControl(_value); + function ReadHangingPunctuation(); + function WriteHangingPunctuation(_value); + function ReadLineRuleAfter(); + function WriteLineRuleAfter(_value); + function ReadLineRuleBefore(); + function WriteLineRuleBefore(_value); + function ReadLineRuleWithin(); + function WriteLineRuleWithin(_value); + function ReadSpaceAfter(); + function WriteSpaceAfter(_value); + function ReadSpaceBefore(); + function WriteSpaceBefore(_value); + function ReadSpaceWithin(); + function WriteSpaceWithin(_value); + function ReadTextDirection(); + function WriteTextDirection(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); +end; + +type PictureFormat = class(VbaBase) +public + function Init(); + +public + // methods + function IncrementBrightness(Increment); + function IncrementContrast(Increment); + + // properties + property Brightness read ReadBrightness write WriteBrightness; + property ColorType read ReadColorType write WriteColorType; + property Contrast read ReadContrast write WriteContrast; + property Crop read ReadCrop write WriteCrop; + property CropBottom read ReadCropBottom write WriteCropBottom; + property CropLeft read ReadCropLeft write WriteCropLeft; + property CropRight read ReadCropRight write WriteCropRight; + property CropTop read ReadCropTop write WriteCropTop; + property TransparencyColor read ReadTransparencyColor write WriteTransparencyColor; + property TransparentBackground read ReadTransparentBackground write WriteTransparentBackground; + function ReadBrightness(); + function WriteBrightness(_value); + function ReadColorType(); + function WriteColorType(_value); + function ReadContrast(); + function WriteContrast(_value); + function ReadCrop(); + function WriteCrop(_value); + function ReadCropBottom(); + function WriteCropBottom(_value); + function ReadCropLeft(); + function WriteCropLeft(_value); + function ReadCropRight(); + function WriteCropRight(_value); + function ReadCropTop(); + function WriteCropTop(_value); + function ReadTransparencyColor(); + function WriteTransparencyColor(_value); + function ReadTransparentBackground(); + function WriteTransparentBackground(_value); +end; + +type PlaceholderFormat = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ContainedType read ReadContainedType; + property Name read ReadName write WriteName; + property Type read ReadType; + function ReadContainedType(); + function ReadName(); + function WriteName(_value); + function ReadType(); +end; + +type Placeholders = class(VbaBase) +public + function Init(); + +public + // methods + function FindByName(Index); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Player = class(VbaBase) +public + function Init(); + +public + // methods + function GoToNextBookmark(); + function GoToPreviousBookmark(); + function Pause(); + function Play(); + function Stop(); + + // properties + property CurrentPosition read ReadCurrentPosition write WriteCurrentPosition; + property State read ReadState; + function ReadCurrentPosition(); + function WriteCurrentPosition(_value); + function ReadState(); +end; + +type PlaySettings = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ActionVerb read ReadActionVerb write WriteActionVerb; + property HideWhileNotPlaying read ReadHideWhileNotPlaying write WriteHideWhileNotPlaying; + property LoopUntilStopped read ReadLoopUntilStopped write WriteLoopUntilStopped; + property PauseAnimation read ReadPauseAnimation write WritePauseAnimation; + property PlayOnEntry read ReadPlayOnEntry write WritePlayOnEntry; + property RewindMovie read ReadRewindMovie write WriteRewindMovie; + property StopAfterSlides read ReadStopAfterSlides write WriteStopAfterSlides; + function ReadActionVerb(); + function WriteActionVerb(_value); + function ReadHideWhileNotPlaying(); + function WriteHideWhileNotPlaying(_value); + function ReadLoopUntilStopped(); + function WriteLoopUntilStopped(_value); + function ReadPauseAnimation(); + function WritePauseAnimation(_value); + function ReadPlayOnEntry(); + function WritePlayOnEntry(_value); + function ReadRewindMovie(); + function WriteRewindMovie(_value); + function ReadStopAfterSlides(); + function WriteStopAfterSlides(_value); +end; + +type PlotArea = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Select(); + + // properties + property Format read ReadFormat; + property Height read ReadHeight write WriteHeight; + property InsideHeight read ReadInsideHeight write WriteInsideHeight; + property InsideLeft read ReadInsideLeft write WriteInsideLeft; + property InsideTop read ReadInsideTop write WriteInsideTop; + property InsideWidth read ReadInsideWidth write WriteInsideWidth; + property Left read ReadLeft write WriteLeft; + property Name read ReadName; + property Position read ReadPosition write WritePosition; + property Top read ReadTop write WriteTop; + property Width read ReadWidth write WriteWidth; + function ReadFormat(); + function ReadHeight(); + function WriteHeight(_value); + function ReadInsideHeight(); + function WriteInsideHeight(_value); + function ReadInsideLeft(); + function WriteInsideLeft(_value); + function ReadInsideTop(); + function WriteInsideTop(_value); + function ReadInsideWidth(); + function WriteInsideWidth(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadName(); + function ReadPosition(); + function WritePosition(_value); + function ReadTop(); + function WriteTop(_value); + function ReadWidth(); + function WriteWidth(_value); +end; + +type Point = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator); + function ClearFormats(); + function Copy(); + function Delete(); + function Paste(); + function PieSliceLocation(loc, Index); + function Select(); + + // properties + property ApplyPictToEnd read ReadApplyPictToEnd write WriteApplyPictToEnd; + property ApplyPictToFront read ReadApplyPictToFront write WriteApplyPictToFront; + property ApplyPictToSides read ReadApplyPictToSides write WriteApplyPictToSides; + property DataLabel read ReadDataLabel; + property Explosion read ReadExplosion write WriteExplosion; + property Format read ReadFormat; + property Has3DEffect read ReadHas3DEffect write WriteHas3DEffect; + property HasDataLabel read ReadHasDataLabel write WriteHasDataLabel; + property Height read ReadHeight; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property IsTotal read ReadIsTotal write WriteIsTotal; + property Left read ReadLeft; + property MarkerBackgroundColor read ReadMarkerBackgroundColor write WriteMarkerBackgroundColor; + property MarkerBackgroundColorIndex read ReadMarkerBackgroundColorIndex write WriteMarkerBackgroundColorIndex; + property MarkerForegroundColor read ReadMarkerForegroundColor write WriteMarkerForegroundColor; + property MarkerForegroundColorIndex read ReadMarkerForegroundColorIndex write WriteMarkerForegroundColorIndex; + property MarkerSize read ReadMarkerSize write WriteMarkerSize; + property MarkerStyle read ReadMarkerStyle write WriteMarkerStyle; + property Name read ReadName; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit2 read ReadPictureUnit2 write WritePictureUnit2; + property SecondaryPlot read ReadSecondaryPlot write WriteSecondaryPlot; + property Shadow read ReadShadow write WriteShadow; + property Top read ReadTop; + property Width read ReadWidth; + function ReadApplyPictToEnd(); + function WriteApplyPictToEnd(_value); + function ReadApplyPictToFront(); + function WriteApplyPictToFront(_value); + function ReadApplyPictToSides(); + function WriteApplyPictToSides(_value); + function ReadDataLabel(); + function ReadExplosion(); + function WriteExplosion(_value); + function ReadFormat(); + function ReadHas3DEffect(); + function WriteHas3DEffect(_value); + function ReadHasDataLabel(); + function WriteHasDataLabel(_value); + function ReadHeight(); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadIsTotal(); + function WriteIsTotal(_value); + function ReadLeft(); + function ReadMarkerBackgroundColor(); + function WriteMarkerBackgroundColor(_value); + function ReadMarkerBackgroundColorIndex(); + function WriteMarkerBackgroundColorIndex(_value); + function ReadMarkerForegroundColor(); + function WriteMarkerForegroundColor(_value); + function ReadMarkerForegroundColorIndex(); + function WriteMarkerForegroundColorIndex(_value); + function ReadMarkerSize(); + function WriteMarkerSize(_value); + function ReadMarkerStyle(); + function WriteMarkerStyle(_value); + function ReadName(); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit2(); + function WritePictureUnit2(_value); + function ReadSecondaryPlot(); + function WriteSecondaryPlot(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadTop(); + function ReadWidth(); +end; + +type Points = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Presentation = class(VbaBase) +public + function Init(); + +public + // methods + function AcceptAll(); + function AddTitleMaster(); + function AddToFavorites(); + function ApplyTemplate(FileName); + function ApplyTemplate2(FileName, Variant); + function ApplyTheme(themeName); + function CanCheckIn(); + function CheckIn(SaveChanges, Comments, MakePublic); + function CheckInWithVersion(SaveChanges, Comments, MakePublic, VersionType); + function Close(); + function Convert2(FileName); + function CreateVideo(FileName, UseTimingsAndNarrations, DefaultSlideDuration, VertResolution, FramesPerSecond, Quality); + function EndReview(); + function EnsureAllMediaUpgraded(); + function Export(Path, FilterName, ScaleWidth, ScaleHeight); + function ExportAsFixedFormat(Path, FixedFormatType, Intent, FrameSlides, HandoutOrder, OutputType, PrintHiddenSlides, PrintRange, RangeType, SlideShowName, IncludeDocProperties, KeepIRMSettings, DocStructureTags, BitmapMissingFonts, UseISO190051, ExternalExporter); + function ExportAsFixedFormat2(Path, FixedFormatType, Intent, FrameSlides, HandoutOrder, OutputType, PrintHiddenSlides, PrintRange, RangeType, SlideShowName, IncludeDocProperties, KeepIRMSettings, DocStructureTags, BitmapMissingFonts, UseISO190051, IncludeMarkup, ExternalExporter); + function ExportAsFixedFormat3(Path, FixedFormatType, Intent, FrameSlides, HandoutOrder, OutputType, PrintHiddenSlides, PrintRange, RangeType, SlideShowName, IncludeDocProperties, KeepIRMSettings, DocStructureTags, BitmapMissingFonts, UseISO190051, IncludeMarkup, ExternalExporter, Bookmarks, DocumentMarkup, PromotedHyperlinkShape); + function FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo); + function GetWorkflowTasks(); + function GetWorkflowTemplates(); + function LockServerFile(); + function Merge(Path); + function MergeWithBaseline(withPresentation, baselinePresentation); + function NewWindow(); + function PrintOut(From, To, PrintToFile, Copies, Collate); + function PublishSlides(SlideLibraryUrl, Overwrite); + function RejectAll(); + function RemoveDocumentInformation(Type); + function Save(); + function SaveAs(FileName, FileFormat, EmbedFonts); + function SaveCopyAs(FileName, FileFormat, EmbedTrueTypeFonts); + function SaveCopyAs2(FileName, FileFormat, EmbedTrueTypeFonts, ReadOnlyRecommended); + function SendFaxOverInternet(Recipients, Subject, ShowMessage); + function SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, PasswordEncryptionFileProperties); + function UpdateLinks(); + + // properties + property AutoSaveOn read ReadAutoSaveOn write WriteAutoSaveOn; + property Broadcast read ReadBroadcast; + property BuiltInDocumentProperties read ReadBuiltInDocumentProperties; + property ChartDataPointTrack read ReadChartDataPointTrack write WriteChartDataPointTrack; + property Coauthoring read ReadCoauthoring; + property ColorSchemes read ReadColorSchemes; + property CommandBars read ReadCommandBars; + property Container read ReadContainer; + property ContentTypeProperties read ReadContentTypeProperties; + property CreateVideoStatus read ReadCreateVideoStatus; + property CustomDocumentProperties read ReadCustomDocumentProperties; + property CustomerData read ReadCustomerData; + property CustomXMLParts read ReadCustomXMLParts; + property DefaultLanguageID read ReadDefaultLanguageID write WriteDefaultLanguageID; + property DefaultShape read ReadDefaultShape; + property Designs read ReadDesigns; + property DisplayComments read ReadDisplayComments write WriteDisplayComments; + property DocumentInspectors read ReadDocumentInspectors; + property DocumentLibraryVersions read ReadDocumentLibraryVersions; + property EncryptionProvider read ReadEncryptionProvider write WriteEncryptionProvider; + property EnvelopeVisible read ReadEnvelopeVisible write WriteEnvelopeVisible; + property ExtraColors read ReadExtraColors; + property FarEastLineBreakLanguage read ReadFarEastLineBreakLanguage write WriteFarEastLineBreakLanguage; + property FarEastLineBreakLevel read ReadFarEastLineBreakLevel write WriteFarEastLineBreakLevel; + property Final read ReadFinal write WriteFinal; + property Fonts read ReadFonts; + property FullName read ReadFullName; + property GridDistance read ReadGridDistance write WriteGridDistance; + property Guides read ReadGuides; + property HandoutMaster read ReadHandoutMaster; + property HasHandoutMaster read ReadHasHandoutMaster; + property HasNotesMaster read ReadHasNotesMaster; + property HasTitleMaster read ReadHasTitleMaster; + property HasVBProject read ReadHasVBProject; + property InMergeMode read ReadInMergeMode; + property IsFullyDownloaded read ReadIsFullyDownloaded; + property LayoutDirection read ReadLayoutDirection write WriteLayoutDirection; + property Name read ReadName; + property NoLineBreakAfter read ReadNoLineBreakAfter write WriteNoLineBreakAfter; + property NoLineBreakBefore read ReadNoLineBreakBefore write WriteNoLineBreakBefore; + property NotesMaster read ReadNotesMaster; + property PageSetup read ReadPageSetup; + property Password read ReadPassword write WritePassword; + property PasswordEncryptionAlgorithm read ReadPasswordEncryptionAlgorithm; + property PasswordEncryptionFileProperties read ReadPasswordEncryptionFileProperties; + property PasswordEncryptionKeyLength read ReadPasswordEncryptionKeyLength; + property PasswordEncryptionProvider read ReadPasswordEncryptionProvider; + property Path read ReadPath; + property Permission read ReadPermission; + property PrintOptions read ReadPrintOptions; + property ReadOnly read ReadReadOnly; + property ReadOnlyRecommended read ReadReadOnlyRecommended; + property RemovePersonalInformation read ReadRemovePersonalInformation write WriteRemovePersonalInformation; + property Research read ReadResearch; + property Saved read ReadSaved write WriteSaved; + property SectionProperties read ReadSectionProperties; + property SensitivityLabel read ReadSensitivityLabel; + property ServerPolicy read ReadServerPolicy; + property SharedWorkspace read ReadSharedWorkspace; + property Signatures read ReadSignatures; + property SlideMaster read ReadSlideMaster; + property Slides read ReadSlides; + property SlideShowSettings read ReadSlideShowSettings; + property SlideShowWindow read ReadSlideShowWindow; + property SnapToGrid read ReadSnapToGrid write WriteSnapToGrid; + property Sync read ReadSync; + property Tags read ReadTags; + property TemplateName read ReadTemplateName; + property TitleMaster read ReadTitleMaster; + property VbaSigned read ReadVbaSigned; + property VBProject read ReadVBProject; + property Windows read ReadWindows; + property WritePassword read ReadWritePassword write WriteWritePassword; + function ReadAutoSaveOn(); + function WriteAutoSaveOn(_value); + function ReadBroadcast(); + function ReadBuiltInDocumentProperties(); + function ReadChartDataPointTrack(); + function WriteChartDataPointTrack(_value); + function ReadCoauthoring(); + function ReadColorSchemes(); + function ReadCommandBars(); + function ReadContainer(); + function ReadContentTypeProperties(); + function ReadCreateVideoStatus(); + function ReadCustomDocumentProperties(); + function ReadCustomerData(); + function ReadCustomXMLParts(); + function ReadDefaultLanguageID(); + function WriteDefaultLanguageID(_value); + function ReadDefaultShape(); + function ReadDesigns(); + function ReadDisplayComments(); + function WriteDisplayComments(_value); + function ReadDocumentInspectors(); + function ReadDocumentLibraryVersions(); + function ReadEncryptionProvider(); + function WriteEncryptionProvider(_value); + function ReadEnvelopeVisible(); + function WriteEnvelopeVisible(_value); + function ReadExtraColors(); + function ReadFarEastLineBreakLanguage(); + function WriteFarEastLineBreakLanguage(_value); + function ReadFarEastLineBreakLevel(); + function WriteFarEastLineBreakLevel(_value); + function ReadFinal(); + function WriteFinal(_value); + function ReadFonts(); + function ReadFullName(); + function ReadGridDistance(); + function WriteGridDistance(_value); + function ReadGuides(); + function ReadHandoutMaster(); + function ReadHasHandoutMaster(); + function ReadHasNotesMaster(); + function ReadHasTitleMaster(); + function ReadHasVBProject(); + function ReadInMergeMode(); + function ReadIsFullyDownloaded(); + function ReadLayoutDirection(); + function WriteLayoutDirection(_value); + function ReadName(); + function ReadNoLineBreakAfter(); + function WriteNoLineBreakAfter(_value); + function ReadNoLineBreakBefore(); + function WriteNoLineBreakBefore(_value); + function ReadNotesMaster(); + function ReadPageSetup(); + function ReadPassword(); + function WritePassword(_value); + function ReadPasswordEncryptionAlgorithm(); + function ReadPasswordEncryptionFileProperties(); + function ReadPasswordEncryptionKeyLength(); + function ReadPasswordEncryptionProvider(); + function ReadPath(); + function ReadPermission(); + function ReadPrintOptions(); + function ReadReadOnly(); + function ReadReadOnlyRecommended(); + function ReadRemovePersonalInformation(); + function WriteRemovePersonalInformation(_value); + function ReadResearch(); + function ReadSaved(); + function WriteSaved(_value); + function ReadSectionProperties(); + function ReadSensitivityLabel(); + function ReadServerPolicy(); + function ReadSharedWorkspace(); + function ReadSignatures(); + function ReadSlideMaster(); + function ReadSlides(); + function ReadSlideShowSettings(); + function ReadSlideShowWindow(); + function ReadSnapToGrid(); + function WriteSnapToGrid(_value); + function ReadSync(); + function ReadTags(); + function ReadTemplateName(); + function ReadTitleMaster(); + function ReadVbaSigned(); + function ReadVBProject(); + function ReadWindows(); + function ReadWritePassword(); + function WriteWritePassword(_value); +end; + +type Presentations = class(VbaBase) +public + function Init(); + +public + // methods + function Add(WithWindow); + function CanCheckOut(FileName); + function CheckOut(FileName); + function Item(Index); + function Open(FileName, ReadOnly, Untitled, WithWindow); + function Open2007(FileName, ReadOnly, Untitled, WithWindow, OpenAndRepair); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type PrintOptions = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ActivePrinter read ReadActivePrinter; + property Collate read ReadCollate write WriteCollate; + property FitToPage read ReadFitToPage write WriteFitToPage; + property FrameSlides read ReadFrameSlides write WriteFrameSlides; + property HandoutOrder read ReadHandoutOrder write WriteHandoutOrder; + property HighQuality read ReadHighQuality write WriteHighQuality; + property NumberOfCopies read ReadNumberOfCopies write WriteNumberOfCopies; + property OutputType read ReadOutputType write WriteOutputType; + property PrintColorType read ReadPrintColorType write WritePrintColorType; + property PrintComments read ReadPrintComments write WritePrintComments; + property PrintFontsAsGraphics read ReadPrintFontsAsGraphics write WritePrintFontsAsGraphics; + property PrintHiddenSlides read ReadPrintHiddenSlides write WritePrintHiddenSlides; + property PrintInBackground read ReadPrintInBackground write WritePrintInBackground; + property Ranges read ReadRanges; + property RangeType read ReadRangeType write WriteRangeType; + property sectionIndex read ReadsectionIndex write WritesectionIndex; + property SlideShowName read ReadSlideShowName write WriteSlideShowName; + function ReadActivePrinter(); + function ReadCollate(); + function WriteCollate(_value); + function ReadFitToPage(); + function WriteFitToPage(_value); + function ReadFrameSlides(); + function WriteFrameSlides(_value); + function ReadHandoutOrder(); + function WriteHandoutOrder(_value); + function ReadHighQuality(); + function WriteHighQuality(_value); + function ReadNumberOfCopies(); + function WriteNumberOfCopies(_value); + function ReadOutputType(); + function WriteOutputType(_value); + function ReadPrintColorType(); + function WritePrintColorType(_value); + function ReadPrintComments(); + function WritePrintComments(_value); + function ReadPrintFontsAsGraphics(); + function WritePrintFontsAsGraphics(_value); + function ReadPrintHiddenSlides(); + function WritePrintHiddenSlides(_value); + function ReadPrintInBackground(); + function WritePrintInBackground(_value); + function ReadRanges(); + function ReadRangeType(); + function WriteRangeType(_value); + function ReadsectionIndex(); + function WritesectionIndex(_value); + function ReadSlideShowName(); + function WriteSlideShowName(_value); +end; + +type PrintRange = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + + // properties + property End read ReadEnd; + property Start read ReadStart; + function ReadEnd(); + function ReadStart(); +end; + +type PrintRanges = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Start, End); + function ClearAll(); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type PropertyEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property From read ReadFrom write WriteFrom; + property Points read ReadPoints; + property property read Readproperty write Writeproperty; + property To read ReadTo write WriteTo; + function ReadFrom(); + function WriteFrom(_value); + function ReadPoints(); + function Readproperty(); + function Writeproperty(_value); + function ReadTo(); + function WriteTo(_value); +end; + +type ProtectedViewWindow = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + function Close(); + function Edit(ModifyPassword); + + // properties + property Active read ReadActive; + property Caption read ReadCaption; + property Height read ReadHeight write WriteHeight; + property Left read ReadLeft write WriteLeft; + property Presentation read ReadPresentation; + property SourceName read ReadSourceName; + property SourcePath read ReadSourcePath; + property Top read ReadTop write WriteTop; + property Width read ReadWidth write WriteWidth; + property WindowState read ReadWindowState write WriteWindowState; + function ReadActive(); + function ReadCaption(); + function ReadHeight(); + function WriteHeight(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadPresentation(); + function ReadSourceName(); + function ReadSourcePath(); + function ReadTop(); + function WriteTop(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadWindowState(); + function WriteWindowState(_value); +end; + +type ProtectedViewWindows = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + function Open(FileName, ReadPassword, OpenAndRepair); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type PublishObject = class(VbaBase) +public + function Init(); + +public + // methods + function Publish(); + + // properties + property FileName read ReadFileName write WriteFileName; + property HTMLVersion read ReadHTMLVersion write WriteHTMLVersion; + property RangeEnd read ReadRangeEnd write WriteRangeEnd; + property RangeStart read ReadRangeStart write WriteRangeStart; + property SlideShowName read ReadSlideShowName write WriteSlideShowName; + property SourceType read ReadSourceType write WriteSourceType; + property SpeakerNotes read ReadSpeakerNotes write WriteSpeakerNotes; + function ReadFileName(); + function WriteFileName(_value); + function ReadHTMLVersion(); + function WriteHTMLVersion(_value); + function ReadRangeEnd(); + function WriteRangeEnd(_value); + function ReadRangeStart(); + function WriteRangeStart(_value); + function ReadSlideShowName(); + function WriteSlideShowName(_value); + function ReadSourceType(); + function WriteSourceType(_value); + function ReadSpeakerNotes(); + function WriteSpeakerNotes(_value); +end; + +type PublishObjects = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ResampleMediaTask = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AudioCompressionType read ReadAudioCompressionType; + property AudioSamplingRate read ReadAudioSamplingRate; + property ContainerType read ReadContainerType; + property IsEmbedded read ReadIsEmbedded; + property IsLinked read ReadIsLinked; + property profile read Readprofile; + property SampleHeight read ReadSampleHeight; + property SampleWidth read ReadSampleWidth; + property Shape read ReadShape; + property VideoCompressionType read ReadVideoCompressionType; + property VideoFrameRate read ReadVideoFrameRate; + function ReadAudioCompressionType(); + function ReadAudioSamplingRate(); + function ReadContainerType(); + function ReadIsEmbedded(); + function ReadIsLinked(); + function Readprofile(); + function ReadSampleHeight(); + function ReadSampleWidth(); + function ReadShape(); + function ReadVideoCompressionType(); + function ReadVideoFrameRate(); +end; + +type ResampleMediaTasks = class(VbaBase) +public + function Init(); + +public + // methods + function Cancel(); + function Item(Index); + function Pause(); + function Resume(); + + // properties + property Count read ReadCount; + property PercentComplete read ReadPercentComplete; + function ReadCount(); + function ReadPercentComplete(); +end; + +type Research = class(VbaBase) +public + function Init(); + +public + // methods + function IsResearchService(ServiceID); + function Query(ServiceID, QueryString, QueryLanguage, UseSelection, RequeryContextXML, NewQueryContextXML, LaunchQuery); + function SetLanguagePair(Language1, Language2); + + // properties +end; + +type RGBColor = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property RGB read ReadRGB write WriteRGB; + function ReadRGB(); + function WriteRGB(_value); +end; + +type RotationEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property By read ReadBy write WriteBy; + property From read ReadFrom write WriteFrom; + property To read ReadTo write WriteTo; + function ReadBy(); + function WriteBy(_value); + function ReadFrom(); + function WriteFrom(_value); + function ReadTo(); + function WriteTo(_value); +end; + +type Row = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Cells read ReadCells; + property Height read ReadHeight write WriteHeight; + function ReadCells(); + function ReadHeight(); + function WriteHeight(_value); +end; + +type Rows = class(VbaBase) +public + function Init(); + +public + // methods + function Add(BeforeRow); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Ruler = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Levels read ReadLevels; + property TabStops read ReadTabStops; + function ReadLevels(); + function ReadTabStops(); +end; + +type RulerLevel = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property FirstMargin read ReadFirstMargin write WriteFirstMargin; + property LeftMargin read ReadLeftMargin write WriteLeftMargin; + function ReadFirstMargin(); + function WriteFirstMargin(_value); + function ReadLeftMargin(); + function WriteLeftMargin(_value); +end; + +type RulerLevels = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ScaleEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ByX read ReadByX write WriteByX; + property ByY read ReadByY write WriteByY; + property FromX read ReadFromX write WriteFromX; + property FromY read ReadFromY write WriteFromY; + property ToX read ReadToX write WriteToX; + property ToY read ReadToY write WriteToY; + function ReadByX(); + function WriteByX(_value); + function ReadByY(); + function WriteByY(_value); + function ReadFromX(); + function WriteFromX(_value); + function ReadFromY(); + function WriteFromY(_value); + function ReadToX(); + function WriteToX(_value); + function ReadToY(); + function WriteToY(_value); +end; + +type SectionProperties = class(VbaBase) +public + function Init(); + +public + // methods + function AddBeforeSlide(SlideIndex, sectionName); + function AddSection(sectionIndex, sectionName); + function Delete(sectionIndex, deleteSlides); + function FirstSlide(sectionIndex); + function Move(sectionIndex, toPos); + function Name(sectionIndex); + function Rename(sectionIndex, sectionName); + function SectionID(sectionIndex); + function SlidesCount(sectionIndex); + function Application(); + function Count(); + function Parent(); + + // properties +end; + +type Selection = class(VbaBase) +public + function Init(); + +public + // methods + function Copy(); + function Cut(); + function Delete(); + function Unselect(); + + // properties + property ChildShapeRange read ReadChildShapeRange; + property HasChildShapeRange read ReadHasChildShapeRange; + property ShapeRange read ReadShapeRange; + property SlideRange read ReadSlideRange; + property TextRange read ReadTextRange; + property TextRange2 read ReadTextRange2; + property Type read ReadType; + function ReadChildShapeRange(); + function ReadHasChildShapeRange(); + function ReadShapeRange(); + function ReadSlideRange(); + function ReadTextRange(); + function ReadTextRange2(); + function ReadType(); +end; + +type Sequence = class(VbaBase) +public + function Init(); + +public + // methods + function AddEffect(Shape, effectId, Level, trigger, Index); + function AddTriggerEffect(pShape, effectId, trigger, pTriggerShape, bookmark, Level); + function Clone(Effect, Index); + function ConvertToAfterEffect(Effect, After, DimColor, DimSchemeColor); + function ConvertToAnimateBackground(Effect, AnimateBackground); + function ConvertToAnimateInReverse(Effect, animateInReverse); + function ConvertToBuildLevel(Effect, Level); + function ConvertToTextUnitEffect(Effect, unitEffect); + function FindFirstAnimationFor(Shape); + function FindFirstAnimationForClick(click); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Sequences = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Index); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Series = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator); + function ClearFormats(); + function Copy(); + function DataLabels(Index); + function Delete(); + function ErrorBar(Direction, Include, Type, Amount, MinusValues); + function Paste(); + function Points(Index); + function Select(); + function Trendlines(Index); + + // properties + property ApplyPictToEnd read ReadApplyPictToEnd write WriteApplyPictToEnd; + property ApplyPictToFront read ReadApplyPictToFront write WriteApplyPictToFront; + property ApplyPictToSides read ReadApplyPictToSides write WriteApplyPictToSides; + property AxisGroup read ReadAxisGroup write WriteAxisGroup; + property BarShape read ReadBarShape write WriteBarShape; + property BubbleSizes read ReadBubbleSizes write WriteBubbleSizes; + property ChartType read ReadChartType write WriteChartType; + property ErrorBars read ReadErrorBars; + property Explosion read ReadExplosion write WriteExplosion; + property Format read ReadFormat; + property Formula read ReadFormula write WriteFormula; + property FormulaLocal read ReadFormulaLocal write WriteFormulaLocal; + property FormulaR1C1 read ReadFormulaR1C1 write WriteFormulaR1C1; + property FormulaR1C1Local read ReadFormulaR1C1Local write WriteFormulaR1C1Local; + property Has3DEffect read ReadHas3DEffect write WriteHas3DEffect; + property HasDataLabels read ReadHasDataLabels write WriteHasDataLabels; + property HasErrorBars read ReadHasErrorBars write WriteHasErrorBars; + property HasLeaderLines read ReadHasLeaderLines write WriteHasLeaderLines; + property InvertColor read ReadInvertColor write WriteInvertColor; + property InvertColorIndex read ReadInvertColorIndex write WriteInvertColorIndex; + property InvertIfNegative read ReadInvertIfNegative write WriteInvertIfNegative; + property IsFiltered read ReadIsFiltered write WriteIsFiltered; + property LeaderLines read ReadLeaderLines; + property MarkerBackgroundColor read ReadMarkerBackgroundColor write WriteMarkerBackgroundColor; + property MarkerBackgroundColorIndex read ReadMarkerBackgroundColorIndex write WriteMarkerBackgroundColorIndex; + property MarkerForegroundColor read ReadMarkerForegroundColor write WriteMarkerForegroundColor; + property MarkerForegroundColorIndex read ReadMarkerForegroundColorIndex write WriteMarkerForegroundColorIndex; + property MarkerSize read ReadMarkerSize write WriteMarkerSize; + property MarkerStyle read ReadMarkerStyle write WriteMarkerStyle; + property Name read ReadName write WriteName; + property ParentDataLabelOption read ReadParentDataLabelOption write WriteParentDataLabelOption; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit2 read ReadPictureUnit2 write WritePictureUnit2; + property PlotColorIndex read ReadPlotColorIndex; + property PlotOrder read ReadPlotOrder write WritePlotOrder; + property QuartileCalculationInclusiveMedian read ReadQuartileCalculationInclusiveMedian write WriteQuartileCalculationInclusiveMedian; + property Shadow read ReadShadow write WriteShadow; + property Smooth read ReadSmooth write WriteSmooth; + property Type read ReadType write WriteType; + property Values read ReadValues write WriteValues; + property XValues read ReadXValues write WriteXValues; + function ReadApplyPictToEnd(); + function WriteApplyPictToEnd(_value); + function ReadApplyPictToFront(); + function WriteApplyPictToFront(_value); + function ReadApplyPictToSides(); + function WriteApplyPictToSides(_value); + function ReadAxisGroup(); + function WriteAxisGroup(_value); + function ReadBarShape(); + function WriteBarShape(_value); + function ReadBubbleSizes(); + function WriteBubbleSizes(_value); + function ReadChartType(); + function WriteChartType(_value); + function ReadErrorBars(); + function ReadExplosion(); + function WriteExplosion(_value); + function ReadFormat(); + function ReadFormula(); + function WriteFormula(_value); + function ReadFormulaLocal(); + function WriteFormulaLocal(_value); + function ReadFormulaR1C1(); + function WriteFormulaR1C1(_value); + function ReadFormulaR1C1Local(); + function WriteFormulaR1C1Local(_value); + function ReadHas3DEffect(); + function WriteHas3DEffect(_value); + function ReadHasDataLabels(); + function WriteHasDataLabels(_value); + function ReadHasErrorBars(); + function WriteHasErrorBars(_value); + function ReadHasLeaderLines(); + function WriteHasLeaderLines(_value); + function ReadInvertColor(); + function WriteInvertColor(_value); + function ReadInvertColorIndex(); + function WriteInvertColorIndex(_value); + function ReadInvertIfNegative(); + function WriteInvertIfNegative(_value); + function ReadIsFiltered(); + function WriteIsFiltered(_value); + function ReadLeaderLines(); + function ReadMarkerBackgroundColor(); + function WriteMarkerBackgroundColor(_value); + function ReadMarkerBackgroundColorIndex(); + function WriteMarkerBackgroundColorIndex(_value); + function ReadMarkerForegroundColor(); + function WriteMarkerForegroundColor(_value); + function ReadMarkerForegroundColorIndex(); + function WriteMarkerForegroundColorIndex(_value); + function ReadMarkerSize(); + function WriteMarkerSize(_value); + function ReadMarkerStyle(); + function WriteMarkerStyle(_value); + function ReadName(); + function WriteName(_value); + function ReadParentDataLabelOption(); + function WriteParentDataLabelOption(_value); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit2(); + function WritePictureUnit2(_value); + function ReadPlotColorIndex(); + function ReadPlotOrder(); + function WritePlotOrder(_value); + function ReadQuartileCalculationInclusiveMedian(); + function WriteQuartileCalculationInclusiveMedian(_value); + function ReadShadow(); + function WriteShadow(_value); + function ReadSmooth(); + function WriteSmooth(_value); + function ReadType(); + function WriteType(_value); + function ReadValues(); + function WriteValues(_value); + function ReadXValues(); + function WriteXValues(_value); +end; + +type SeriesCollection = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Source, Rowcol, SeriesLabels, CategoryLabels, Replace); + function Extend(Source, Rowcol, CategoryLabels); + function Item(Index); + function NewSeries(); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type SeriesLines = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Border read ReadBorder; + property Format read ReadFormat; + property Name read ReadName; + function ReadBorder(); + function ReadFormat(); + function ReadName(); +end; + +type SetEffect = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property property read Readproperty write Writeproperty; + property To read ReadTo write WriteTo; + function Readproperty(); + function Writeproperty(_value); + function ReadTo(); + function WriteTo(_value); +end; + +type ShadowFormat = class(VbaBase) +public + function Init(); + +public + // methods + function IncrementOffsetX(Increment); + function IncrementOffsetY(Increment); + + // properties + property Blur read ReadBlur write WriteBlur; + property ForeColor read ReadForeColor write WriteForeColor; + property Obscured read ReadObscured write WriteObscured; + property OffsetX read ReadOffsetX write WriteOffsetX; + property OffsetY read ReadOffsetY write WriteOffsetY; + property RotateWithShape read ReadRotateWithShape write WriteRotateWithShape; + property Size read ReadSize write WriteSize; + property Style read ReadStyle write WriteStyle; + property Transparency read ReadTransparency write WriteTransparency; + property Type read ReadType write WriteType; + property Visible read ReadVisible write WriteVisible; + function ReadBlur(); + function WriteBlur(_value); + function ReadForeColor(); + function WriteForeColor(_value); + function ReadObscured(); + function WriteObscured(_value); + function ReadOffsetX(); + function WriteOffsetX(_value); + function ReadOffsetY(); + function WriteOffsetY(_value); + function ReadRotateWithShape(); + function WriteRotateWithShape(_value); + function ReadSize(); + function WriteSize(_value); + function ReadStyle(); + function WriteStyle(_value); + function ReadTransparency(); + function WriteTransparency(_value); + function ReadType(); + function WriteType(_value); + function ReadVisible(); + function WriteVisible(_value); +end; + +type Shape = class(VbaBase) +public + function Init(); + +public + // methods + function Apply(); + function ApplyAnimation(); + function ConvertTextToSmartArt(Layout); + function Copy(); + function Cut(); + function Delete(); + function Duplicate(); + function Export(Parameters); + function Flip(FlipCmd); + function IncrementLeft(Increment); + function IncrementRotation(Increment); + function IncrementTop(Increment); + function PickUp(); + function PickupAnimation(); + function RerouteConnections(); + function ScaleHeight(Factor, RelativeToOriginalSize, fScale); + function ScaleWidth(Factor, RelativeToOriginalSize, fScale); + function Select(Replace); + function SetShapesDefaultProperties(); + function Ungroup(); + function UpgradeMedia(); + function ZOrder(ZOrderCmd); + + // properties + property ActionSettings read ReadActionSettings; + property Adjustments read ReadAdjustments; + property AlternativeText read ReadAlternativeText write WriteAlternativeText; + property AnimationSettings read ReadAnimationSettings; + property AutoShapeType read ReadAutoShapeType write WriteAutoShapeType; + property BackgroundStyle read ReadBackgroundStyle write WriteBackgroundStyle; + property BlackWhiteMode read ReadBlackWhiteMode write WriteBlackWhiteMode; + property Callout read ReadCallout; + property Chart read ReadChart; + property Child read ReadChild; + property ConnectionSiteCount read ReadConnectionSiteCount; + property Connector read ReadConnector; + property ConnectorFormat read ReadConnectorFormat; + property CustomerData read ReadCustomerData; + property Decorative read ReadDecorative write WriteDecorative; + property Fill read ReadFill; + property Glow read ReadGlow; + property GraphicStyle read ReadGraphicStyle write WriteGraphicStyle; + property GroupItems read ReadGroupItems; + property HasChart read ReadHasChart; + property HasInkXML read ReadHasInkXML; + property HasSmartArt read ReadHasSmartArt; + property HasTable read ReadHasTable; + property HasTextFrame read ReadHasTextFrame; + property Height read ReadHeight write WriteHeight; + property HorizontalFlip read ReadHorizontalFlip; + property Id read ReadId; + property InkXML read ReadInkXML; + property IsNarration read ReadIsNarration write WriteIsNarration; + property Left read ReadLeft write WriteLeft; + property Line read ReadLine; + property LinkFormat read ReadLinkFormat; + property LockAspectRatio read ReadLockAspectRatio write WriteLockAspectRatio; + property MediaFormat read ReadMediaFormat; + property MediaType read ReadMediaType; + property Model3D read ReadModel3D; + property Name read ReadName write WriteName; + property Nodes read ReadNodes; + property OLEFormat read ReadOLEFormat; + property ParentGroup read ReadParentGroup; + property PictureFormat read ReadPictureFormat; + property PlaceholderFormat read ReadPlaceholderFormat; + property Reflection read ReadReflection; + property Rotation read ReadRotation write WriteRotation; + property Shadow read ReadShadow; + property ShapeStyle read ReadShapeStyle write WriteShapeStyle; + property SmartArt read ReadSmartArt; + property SoftEdge read ReadSoftEdge; + property Table read ReadTable; + property Tags read ReadTags; + property TextEffect read ReadTextEffect; + property TextFrame read ReadTextFrame; + property TextFrame2 read ReadTextFrame2; + property ThreeD read ReadThreeD; + property Title read ReadTitle; + property Top read ReadTop write WriteTop; + property Type read ReadType; + property VerticalFlip read ReadVerticalFlip; + property Vertices read ReadVertices; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property ZOrderPosition read ReadZOrderPosition; + function ReadActionSettings(); + function ReadAdjustments(); + function ReadAlternativeText(); + function WriteAlternativeText(_value); + function ReadAnimationSettings(); + function ReadAutoShapeType(); + function WriteAutoShapeType(_value); + function ReadBackgroundStyle(); + function WriteBackgroundStyle(_value); + function ReadBlackWhiteMode(); + function WriteBlackWhiteMode(_value); + function ReadCallout(); + function ReadChart(); + function ReadChild(); + function ReadConnectionSiteCount(); + function ReadConnector(); + function ReadConnectorFormat(); + function ReadCustomerData(); + function ReadDecorative(); + function WriteDecorative(_value); + function ReadFill(); + function ReadGlow(); + function ReadGraphicStyle(); + function WriteGraphicStyle(_value); + function ReadGroupItems(); + function ReadHasChart(); + function ReadHasInkXML(); + function ReadHasSmartArt(); + function ReadHasTable(); + function ReadHasTextFrame(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHorizontalFlip(); + function ReadId(); + function ReadInkXML(); + function ReadIsNarration(); + function WriteIsNarration(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadLine(); + function ReadLinkFormat(); + function ReadLockAspectRatio(); + function WriteLockAspectRatio(_value); + function ReadMediaFormat(); + function ReadMediaType(); + function ReadModel3D(); + function ReadName(); + function WriteName(_value); + function ReadNodes(); + function ReadOLEFormat(); + function ReadParentGroup(); + function ReadPictureFormat(); + function ReadPlaceholderFormat(); + function ReadReflection(); + function ReadRotation(); + function WriteRotation(_value); + function ReadShadow(); + function ReadShapeStyle(); + function WriteShapeStyle(_value); + function ReadSmartArt(); + function ReadSoftEdge(); + function ReadTable(); + function ReadTags(); + function ReadTextEffect(); + function ReadTextFrame(); + function ReadTextFrame2(); + function ReadThreeD(); + function ReadTitle(); + function ReadTop(); + function WriteTop(_value); + function ReadType(); + function ReadVerticalFlip(); + function ReadVertices(); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadZOrderPosition(); +end; + +type ShapeNode = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property EditingType read ReadEditingType; + property Points read ReadPoints; + property SegmentType read ReadSegmentType; + function ReadEditingType(); + function ReadPoints(); + function ReadSegmentType(); +end; + +type ShapeNodes = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(Index); + function Insert(Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3); + function Item(Index); + function SetEditingType(Index, EditingType); + function SetPosition(Index, X1, Y1); + function SetSegmentType(Index, SegmentType); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ShapeRange = class(VbaBase) +public + function Init(); + +public + // methods + function Align(AlignCmd, RelativeTo); + function Apply(); + function ApplyAnimation(); + function ConvertTextToSmartArt(Layout); + function Copy(); + function Cut(); + function Delete(); + function Distribute(DistributeCmd, RelativeTo); + function Duplicate(); + function Flip(FlipCmd); + function Group(); + function IncrementLeft(Increment); + function IncrementRotation(Increment); + function IncrementTop(Increment); + function Item(Index); + function MergeShapes(MergeCmd, PrimaryShape); + function PickUp(); + function PickupAnimation(); + function Regroup(); + function RerouteConnections(); + function ScaleHeight(Factor, RelativeToOriginalSize, fScale); + function ScaleWidth(Factor, RelativeToOriginalSize, fScale); + function Select(Replace); + function SetShapesDefaultProperties(); + function Ungroup(); + function UpgradeMedia(); + function ZOrder(ZOrderCmd); + + // properties + property ActionSettings read ReadActionSettings; + property Adjustments read ReadAdjustments; + property AlternativeText read ReadAlternativeText write WriteAlternativeText; + property AnimationSettings read ReadAnimationSettings; + property AutoShapeType read ReadAutoShapeType write WriteAutoShapeType; + property BackgroundStyle read ReadBackgroundStyle write WriteBackgroundStyle; + property BlackWhiteMode read ReadBlackWhiteMode write WriteBlackWhiteMode; + property Callout read ReadCallout; + property Chart read ReadChart; + property Child read ReadChild; + property ConnectionSiteCount read ReadConnectionSiteCount; + property Connector read ReadConnector; + property ConnectorFormat read ReadConnectorFormat; + property Count read ReadCount; + property CustomerData read ReadCustomerData; + property Decorative read ReadDecorative write WriteDecorative; + property Fill read ReadFill; + property Glow read ReadGlow; + property GraphicStyle read ReadGraphicStyle write WriteGraphicStyle; + property GroupItems read ReadGroupItems; + property HasChart read ReadHasChart; + property HasInkXML read ReadHasInkXML; + property HasSmartArt read ReadHasSmartArt; + property HasTable read ReadHasTable; + property HasTextFrame read ReadHasTextFrame; + property Height read ReadHeight write WriteHeight; + property HorizontalFlip read ReadHorizontalFlip; + property Id read ReadId; + property InkXML read ReadInkXML; + property IsNarration read ReadIsNarration write WriteIsNarration; + property Left read ReadLeft write WriteLeft; + property Line read ReadLine; + property LinkFormat read ReadLinkFormat; + property LockAspectRatio read ReadLockAspectRatio write WriteLockAspectRatio; + property MediaFormat read ReadMediaFormat; + property MediaType read ReadMediaType; + property Model3D read ReadModel3D; + property Name read ReadName write WriteName; + property Nodes read ReadNodes; + property OLEFormat read ReadOLEFormat; + property ParentGroup read ReadParentGroup; + property PictureFormat read ReadPictureFormat; + property PlaceholderFormat read ReadPlaceholderFormat; + property Reflection read ReadReflection; + property Rotation read ReadRotation write WriteRotation; + property Shadow read ReadShadow; + property ShapeStyle read ReadShapeStyle; + property SmartArt read ReadSmartArt; + property SoftEdge read ReadSoftEdge; + property Table read ReadTable; + property Tags read ReadTags; + property TextEffect read ReadTextEffect; + property TextFrame read ReadTextFrame; + property TextFrame2 read ReadTextFrame2; + property ThreeD read ReadThreeD; + property Title read ReadTitle; + property Top read ReadTop write WriteTop; + property Type read ReadType; + property VerticalFlip read ReadVerticalFlip; + property Vertices read ReadVertices; + property Visible read ReadVisible write WriteVisible; + property Width read ReadWidth write WriteWidth; + property ZOrderPosition read ReadZOrderPosition; + function ReadActionSettings(); + function ReadAdjustments(); + function ReadAlternativeText(); + function WriteAlternativeText(_value); + function ReadAnimationSettings(); + function ReadAutoShapeType(); + function WriteAutoShapeType(_value); + function ReadBackgroundStyle(); + function WriteBackgroundStyle(_value); + function ReadBlackWhiteMode(); + function WriteBlackWhiteMode(_value); + function ReadCallout(); + function ReadChart(); + function ReadChild(); + function ReadConnectionSiteCount(); + function ReadConnector(); + function ReadConnectorFormat(); + function ReadCount(); + function ReadCustomerData(); + function ReadDecorative(); + function WriteDecorative(_value); + function ReadFill(); + function ReadGlow(); + function ReadGraphicStyle(); + function WriteGraphicStyle(_value); + function ReadGroupItems(); + function ReadHasChart(); + function ReadHasInkXML(); + function ReadHasSmartArt(); + function ReadHasTable(); + function ReadHasTextFrame(); + function ReadHeight(); + function WriteHeight(_value); + function ReadHorizontalFlip(); + function ReadId(); + function ReadInkXML(); + function ReadIsNarration(); + function WriteIsNarration(_value); + function ReadLeft(); + function WriteLeft(_value); + function ReadLine(); + function ReadLinkFormat(); + function ReadLockAspectRatio(); + function WriteLockAspectRatio(_value); + function ReadMediaFormat(); + function ReadMediaType(); + function ReadModel3D(); + function ReadName(); + function WriteName(_value); + function ReadNodes(); + function ReadOLEFormat(); + function ReadParentGroup(); + function ReadPictureFormat(); + function ReadPlaceholderFormat(); + function ReadReflection(); + function ReadRotation(); + function WriteRotation(_value); + function ReadShadow(); + function ReadShapeStyle(); + function ReadSmartArt(); + function ReadSoftEdge(); + function ReadTable(); + function ReadTags(); + function ReadTextEffect(); + function ReadTextFrame(); + function ReadTextFrame2(); + function ReadThreeD(); + function ReadTitle(); + function ReadTop(); + function WriteTop(_value); + function ReadType(); + function ReadVerticalFlip(); + function ReadVertices(); + function ReadVisible(); + function WriteVisible(_value); + function ReadWidth(); + function WriteWidth(_value); + function ReadZOrderPosition(); +end; + +type Shapes = class(VbaBase) +public + function Init(); + +public + // methods + function AddCallout(Type, Left, Top, Width, Height); + function AddChart2(Style, Type, Left, Top, Width, Height, NewLayout); + function AddConnector(Type, BeginX, BeginY, EndX, EndY); + function AddCurve(SafeArrayOfPoints); + function AddInkShapeFromXML(InkXML, Left, Top, [Width], [Height]); + function AddLabel(Orientation, Left, Top, Width, Height); + function AddLine(BeginX, BeginY, EndX, EndY); + function AddMediaObject(FileName, Left, Top, Width, Height); + function AddMediaObject2(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height); + function AddMediaObjectFromEmbedTag(EmbedTag, Left, Top, Width, Height); + function AddOLEObject(Left, Top, Width, Height, ClassName, FileName, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link); + function AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height); + function AddPicture2(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, compress); + function AddPlaceholder(Type, Left, Top, Width, Height); + function AddPolyline(SafeArrayOfPoints); + function AddShape(Type, Left, Top, Width, Height); + function AddSmartArt(Layout, Left, Top, Width, Height); + function AddTable(NumRows, NumColumns, Left, Top, Width, Height); + function AddTextbox(Orientation, Left, Top, Width, Height); + function AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top); + function Add3DModel(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height); + function AddTitle(); + function BuildFreeform(EditingType, X1, Y1); + function Item(Index); + function Paste(); + function PasteSpecial(DataType, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link); + function Range(Index); + function SelectAll(); + + // properties + property Count read ReadCount; + property HasTitle read ReadHasTitle; + property Placeholders read ReadPlaceholders; + property Title read ReadTitle; + function ReadCount(); + function ReadHasTitle(); + function ReadPlaceholders(); + function ReadTitle(); +end; + +type Slide = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyTemplate(FileName); + function ApplyTemplate2(FileName, Variant); + function ApplyTheme(themeName); + function ApplyThemeColorScheme(themeColorSchemeName); + function Copy(); + function Cut(); + function Delete(); + function Duplicate(); + function Export(FileName, FilterName, ScaleWidth, ScaleHeight); + function MoveTo(toPos); + function MoveToSectionStart(toSection); + function PublishSlides(SlideLibraryUrl, Overwrite, UseSlideOrder); + function Select(); + + // properties + property Background read ReadBackground; + property BackgroundStyle read ReadBackgroundStyle write WriteBackgroundStyle; + property ColorScheme read ReadColorScheme write WriteColorScheme; + property Comments read ReadComments; + property CustomerData read ReadCustomerData; + property CustomLayout read ReadCustomLayout; + property Design read ReadDesign; + property DisplayMasterShapes read ReadDisplayMasterShapes write WriteDisplayMasterShapes; + property FollowMasterBackground read ReadFollowMasterBackground write WriteFollowMasterBackground; + property HasNotesPage read ReadHasNotesPage; + property HeadersFooters read ReadHeadersFooters; + property Hyperlinks read ReadHyperlinks; + property Layout read ReadLayout write WriteLayout; + property Master read ReadMaster; + property Name read ReadName write WriteName; + property NotesPage read ReadNotesPage; + property PrintSteps read ReadPrintSteps; + property sectionIndex read ReadsectionIndex; + property Shapes read ReadShapes; + property SlideID read ReadSlideID; + property SlideIndex read ReadSlideIndex; + property SlideNumber read ReadSlideNumber; + property SlideShowTransition read ReadSlideShowTransition; + property Tags read ReadTags; + property ThemeColorScheme read ReadThemeColorScheme; + property TimeLine read ReadTimeLine; + function ReadBackground(); + function ReadBackgroundStyle(); + function WriteBackgroundStyle(_value); + function ReadColorScheme(); + function WriteColorScheme(_value); + function ReadComments(); + function ReadCustomerData(); + function ReadCustomLayout(); + function ReadDesign(); + function ReadDisplayMasterShapes(); + function WriteDisplayMasterShapes(_value); + function ReadFollowMasterBackground(); + function WriteFollowMasterBackground(_value); + function ReadHasNotesPage(); + function ReadHeadersFooters(); + function ReadHyperlinks(); + function ReadLayout(); + function WriteLayout(_value); + function ReadMaster(); + function ReadName(); + function WriteName(_value); + function ReadNotesPage(); + function ReadPrintSteps(); + function ReadsectionIndex(); + function ReadShapes(); + function ReadSlideID(); + function ReadSlideIndex(); + function ReadSlideNumber(); + function ReadSlideShowTransition(); + function ReadTags(); + function ReadThemeColorScheme(); + function ReadTimeLine(); +end; + +type SlideNavigation = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Visible read ReadVisible write WriteVisible; + function ReadVisible(); + function WriteVisible(_value); +end; + +type SlideRange = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyTemplate(FileName); + function ApplyTemplate2(FileName, Variant); + function ApplyTheme(themeName); + function ApplyThemeColorScheme(themeColorSchemeName); + function Copy(); + function Cut(); + function Delete(); + function Duplicate(); + function Export(FileName, FilterName, ScaleWidth, ScaleHeight); + function Item(Index); + function MoveTo(toPos); + function MoveToSectionStart(toSection); + function PublishSlides(SlideLibraryUrl, Overwrite); + function Select(); + + // properties + property Background read ReadBackground; + property BackgroundStyle read ReadBackgroundStyle write WriteBackgroundStyle; + property ColorScheme read ReadColorScheme write WriteColorScheme; + property Comments read ReadComments; + property Count read ReadCount; + property CustomerData read ReadCustomerData; + property CustomLayout read ReadCustomLayout; + property Design read ReadDesign; + property DisplayMasterShapes read ReadDisplayMasterShapes write WriteDisplayMasterShapes; + property FollowMasterBackground read ReadFollowMasterBackground write WriteFollowMasterBackground; + property HasNotesPage read ReadHasNotesPage; + property HeadersFooters read ReadHeadersFooters; + property Hyperlinks read ReadHyperlinks; + property Layout read ReadLayout write WriteLayout; + property Master read ReadMaster; + property Name read ReadName write WriteName; + property NotesPage read ReadNotesPage; + property PrintSteps read ReadPrintSteps; + property sectionIndex read ReadsectionIndex; + property Shapes read ReadShapes; + property SlideID read ReadSlideID; + property SlideIndex read ReadSlideIndex; + property SlideNumber read ReadSlideNumber; + property SlideShowTransition read ReadSlideShowTransition; + property Tags read ReadTags; + property ThemeColorScheme read ReadThemeColorScheme; + property TimeLine read ReadTimeLine; + function ReadBackground(); + function ReadBackgroundStyle(); + function WriteBackgroundStyle(_value); + function ReadColorScheme(); + function WriteColorScheme(_value); + function ReadComments(); + function ReadCount(); + function ReadCustomerData(); + function ReadCustomLayout(); + function ReadDesign(); + function ReadDisplayMasterShapes(); + function WriteDisplayMasterShapes(_value); + function ReadFollowMasterBackground(); + function WriteFollowMasterBackground(_value); + function ReadHasNotesPage(); + function ReadHeadersFooters(); + function ReadHyperlinks(); + function ReadLayout(); + function WriteLayout(_value); + function ReadMaster(); + function ReadName(); + function WriteName(_value); + function ReadNotesPage(); + function ReadPrintSteps(); + function ReadsectionIndex(); + function ReadShapes(); + function ReadSlideID(); + function ReadSlideIndex(); + function ReadSlideNumber(); + function ReadSlideShowTransition(); + function ReadTags(); + function ReadThemeColorScheme(); + function ReadTimeLine(); +end; + +type Slides = class(VbaBase) +public + function Init(); + +public + // methods + function AddSlide(Index, pCustomLayout); + function FindBySlideID(SlideID); + function InsertFromFile(FileName, Index, SlideStart, SlideEnd); + function Item(Index); + function Paste(Index); + function Range(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type SlideShowSettings = class(VbaBase) +public + function Init(); + +public + // methods + function Run(); + + // properties + property AdvanceMode read ReadAdvanceMode write WriteAdvanceMode; + property EndingSlide read ReadEndingSlide write WriteEndingSlide; + property LoopUntilStopped read ReadLoopUntilStopped write WriteLoopUntilStopped; + property NamedSlideShows read ReadNamedSlideShows; + property PointerColor read ReadPointerColor; + property RangeType read ReadRangeType write WriteRangeType; + property ShowMediaControls read ReadShowMediaControls write WriteShowMediaControls; + property ShowPresenterView read ReadShowPresenterView write WriteShowPresenterView; + property ShowScrollbar read ReadShowScrollbar write WriteShowScrollbar; + property ShowType read ReadShowType write WriteShowType; + property ShowWithAnimation read ReadShowWithAnimation write WriteShowWithAnimation; + property ShowWithNarration read ReadShowWithNarration write WriteShowWithNarration; + property SlideShowName read ReadSlideShowName write WriteSlideShowName; + property StartingSlide read ReadStartingSlide write WriteStartingSlide; + function ReadAdvanceMode(); + function WriteAdvanceMode(_value); + function ReadEndingSlide(); + function WriteEndingSlide(_value); + function ReadLoopUntilStopped(); + function WriteLoopUntilStopped(_value); + function ReadNamedSlideShows(); + function ReadPointerColor(); + function ReadRangeType(); + function WriteRangeType(_value); + function ReadShowMediaControls(); + function WriteShowMediaControls(_value); + function ReadShowPresenterView(); + function WriteShowPresenterView(_value); + function ReadShowScrollbar(); + function WriteShowScrollbar(_value); + function ReadShowType(); + function WriteShowType(_value); + function ReadShowWithAnimation(); + function WriteShowWithAnimation(_value); + function ReadShowWithNarration(); + function WriteShowWithNarration(_value); + function ReadSlideShowName(); + function WriteSlideShowName(_value); + function ReadStartingSlide(); + function WriteStartingSlide(_value); +end; + +type SlideShowTransition = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property AdvanceOnClick read ReadAdvanceOnClick write WriteAdvanceOnClick; + property AdvanceOnTime read ReadAdvanceOnTime write WriteAdvanceOnTime; + property AdvanceTime read ReadAdvanceTime write WriteAdvanceTime; + property Duration read ReadDuration write WriteDuration; + property EntryEffect read ReadEntryEffect write WriteEntryEffect; + property Hidden read ReadHidden write WriteHidden; + property LoopSoundUntilNext read ReadLoopSoundUntilNext write WriteLoopSoundUntilNext; + property SoundEffect read ReadSoundEffect; + property Speed read ReadSpeed write WriteSpeed; + function ReadAdvanceOnClick(); + function WriteAdvanceOnClick(_value); + function ReadAdvanceOnTime(); + function WriteAdvanceOnTime(_value); + function ReadAdvanceTime(); + function WriteAdvanceTime(_value); + function ReadDuration(); + function WriteDuration(_value); + function ReadEntryEffect(); + function WriteEntryEffect(_value); + function ReadHidden(); + function WriteHidden(_value); + function ReadLoopSoundUntilNext(); + function WriteLoopSoundUntilNext(_value); + function ReadSoundEffect(); + function ReadSpeed(); + function WriteSpeed(_value); +end; + +type SlideShowView = class(VbaBase) +public + function Init(); + +public + // methods + function DrawLine(BeginX, BeginY, EndX, EndY); + function EndNamedShow(); + function EraseDrawing(); + function Exit(); + function First(); + function FirstAnimationIsAutomatic(); + function GetClickCount(); + function GetClickIndex(); + function GotoClick(Index); + function GotoNamedShow(SlideShowName); + function GotoSlide(Index, ResetSlide); + function Last(); + function Next(); + function Player(ShapeId); + function Previous(); + function ResetSlideTime(); + + // properties + property AcceleratorsEnabled read ReadAcceleratorsEnabled write WriteAcceleratorsEnabled; + property AdvanceMode read ReadAdvanceMode; + property CurrentShowPosition read ReadCurrentShowPosition; + property IsNamedShow read ReadIsNamedShow; + property LaserPointerEnabled read ReadLaserPointerEnabled write WriteLaserPointerEnabled; + property LastSlideViewed read ReadLastSlideViewed; + property MediaControlsHeight read ReadMediaControlsHeight; + property MediaControlsLeft read ReadMediaControlsLeft; + property MediaControlsTop read ReadMediaControlsTop; + property MediaControlsVisible read ReadMediaControlsVisible; + property MediaControlsWidth read ReadMediaControlsWidth; + property PointerColor read ReadPointerColor; + property PointerType read ReadPointerType write WritePointerType; + property PresentationElapsedTime read ReadPresentationElapsedTime; + property Slide read ReadSlide; + property SlideElapsedTime read ReadSlideElapsedTime write WriteSlideElapsedTime; + property SlideShowName read ReadSlideShowName; + property State read ReadState write WriteState; + property Zoom read ReadZoom; + function ReadAcceleratorsEnabled(); + function WriteAcceleratorsEnabled(_value); + function ReadAdvanceMode(); + function ReadCurrentShowPosition(); + function ReadIsNamedShow(); + function ReadLaserPointerEnabled(); + function WriteLaserPointerEnabled(_value); + function ReadLastSlideViewed(); + function ReadMediaControlsHeight(); + function ReadMediaControlsLeft(); + function ReadMediaControlsTop(); + function ReadMediaControlsVisible(); + function ReadMediaControlsWidth(); + function ReadPointerColor(); + function ReadPointerType(); + function WritePointerType(_value); + function ReadPresentationElapsedTime(); + function ReadSlide(); + function ReadSlideElapsedTime(); + function WriteSlideElapsedTime(_value); + function ReadSlideShowName(); + function ReadState(); + function WriteState(_value); + function ReadZoom(); +end; + +type SlideShowWindow = class(VbaBase) +public + function Init(); + +public + // methods + function Activate(); + + // properties + property Active read ReadActive; + property Height read ReadHeight write WriteHeight; + property IsFullScreen read ReadIsFullScreen; + property Left read ReadLeft write WriteLeft; + property Presentation read ReadPresentation; + property SlideNavigation read ReadSlideNavigation; + property Top read ReadTop write WriteTop; + property View read ReadView; + property Width read ReadWidth write WriteWidth; + function ReadActive(); + function ReadHeight(); + function WriteHeight(_value); + function ReadIsFullScreen(); + function ReadLeft(); + function WriteLeft(_value); + function ReadPresentation(); + function ReadSlideNavigation(); + function ReadTop(); + function WriteTop(_value); + function ReadView(); + function ReadWidth(); + function WriteWidth(_value); +end; + +type SlideShowWindows = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type SoundEffect = class(VbaBase) +public + function Init(); + +public + // methods + function ImportFromFile(FullName); + function Play(); + + // properties + property Name read ReadName write WriteName; + property Type read ReadType write WriteType; + function ReadName(); + function WriteName(_value); + function ReadType(); + function WriteType(_value); +end; + +type Table = class(VbaBase) +public + function Init(); + +public + // methods + function ApplyStyle(StyleID, SaveFormatting); + function Cell(Row, Column); + function ScaleProportionally(scale); + + // properties + property AlternativeText read ReadAlternativeText write WriteAlternativeText; + property Background read ReadBackground; + property Columns read ReadColumns; + property FirstCol read ReadFirstCol write WriteFirstCol; + property FirstRow read ReadFirstRow write WriteFirstRow; + property HorizBanding read ReadHorizBanding write WriteHorizBanding; + property LastCol read ReadLastCol write WriteLastCol; + property LastRow read ReadLastRow write WriteLastRow; + property Rows read ReadRows; + property Style read ReadStyle; + property TableDirection read ReadTableDirection write WriteTableDirection; + property Title read ReadTitle write WriteTitle; + property VertBanding read ReadVertBanding write WriteVertBanding; + function ReadAlternativeText(); + function WriteAlternativeText(_value); + function ReadBackground(); + function ReadColumns(); + function ReadFirstCol(); + function WriteFirstCol(_value); + function ReadFirstRow(); + function WriteFirstRow(_value); + function ReadHorizBanding(); + function WriteHorizBanding(_value); + function ReadLastCol(); + function WriteLastCol(_value); + function ReadLastRow(); + function WriteLastRow(_value); + function ReadRows(); + function ReadStyle(); + function ReadTableDirection(); + function WriteTableDirection(_value); + function ReadTitle(); + function WriteTitle(_value); + function ReadVertBanding(); + function WriteVertBanding(_value); +end; + +type TableBackground = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Fill read ReadFill; + property Picture read ReadPicture; + property Reflection read ReadReflection; + property Shadow read ReadShadow; + function ReadFill(); + function ReadPicture(); + function ReadReflection(); + function ReadShadow(); +end; + +type TableStyle = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Id read ReadId; + property Name read ReadName; + function ReadId(); + function ReadName(); +end; + +type TabStop = class(VbaBase) +public + function Init(); + +public + // methods + function Clear(); + + // properties + property Position read ReadPosition write WritePosition; + property Type read ReadType write WriteType; + function ReadPosition(); + function WritePosition(_value); + function ReadType(); + function WriteType(_value); +end; + +type TabStops = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Type, Position); + function Item(Index); + + // properties + property Count read ReadCount; + property DefaultSpacing read ReadDefaultSpacing write WriteDefaultSpacing; + function ReadCount(); + function ReadDefaultSpacing(); + function WriteDefaultSpacing(_value); +end; + +type Tags = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Name, Value); + function Delete(Name); + function Item(Name); + function Name(Index); + function Value(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type TextEffectFormat = class(VbaBase) +public + function Init(); + +public + // methods + function ToggleVerticalText(); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property FontBold read ReadFontBold write WriteFontBold; + property FontItalic read ReadFontItalic write WriteFontItalic; + property FontName read ReadFontName write WriteFontName; + property FontSize read ReadFontSize write WriteFontSize; + property KernedPairs read ReadKernedPairs write WriteKernedPairs; + property NormalizedHeight read ReadNormalizedHeight write WriteNormalizedHeight; + property PresetShape read ReadPresetShape write WritePresetShape; + property PresetTextEffect read ReadPresetTextEffect write WritePresetTextEffect; + property RotatedChars read ReadRotatedChars write WriteRotatedChars; + property Text read ReadText write WriteText; + property Tracking read ReadTracking write WriteTracking; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadFontBold(); + function WriteFontBold(_value); + function ReadFontItalic(); + function WriteFontItalic(_value); + function ReadFontName(); + function WriteFontName(_value); + function ReadFontSize(); + function WriteFontSize(_value); + function ReadKernedPairs(); + function WriteKernedPairs(_value); + function ReadNormalizedHeight(); + function WriteNormalizedHeight(_value); + function ReadPresetShape(); + function WritePresetShape(_value); + function ReadPresetTextEffect(); + function WritePresetTextEffect(_value); + function ReadRotatedChars(); + function WriteRotatedChars(_value); + function ReadText(); + function WriteText(_value); + function ReadTracking(); + function WriteTracking(_value); +end; + +type TextFrame = class(VbaBase) +public + function Init(); + +public + // methods + function DeleteText(); + + // properties + property AutoSize read ReadAutoSize write WriteAutoSize; + property HasText read ReadHasText; + property HorizontalAnchor read ReadHorizontalAnchor write WriteHorizontalAnchor; + property MarginBottom read ReadMarginBottom write WriteMarginBottom; + property MarginLeft read ReadMarginLeft write WriteMarginLeft; + property MarginRight read ReadMarginRight write WriteMarginRight; + property MarginTop read ReadMarginTop write WriteMarginTop; + property Orientation read ReadOrientation write WriteOrientation; + property Ruler read ReadRuler; + property TextRange read ReadTextRange; + property VerticalAnchor read ReadVerticalAnchor write WriteVerticalAnchor; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadAutoSize(); + function WriteAutoSize(_value); + function ReadHasText(); + function ReadHorizontalAnchor(); + function WriteHorizontalAnchor(_value); + function ReadMarginBottom(); + function WriteMarginBottom(_value); + function ReadMarginLeft(); + function WriteMarginLeft(_value); + function ReadMarginRight(); + function WriteMarginRight(_value); + function ReadMarginTop(); + function WriteMarginTop(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadRuler(); + function ReadTextRange(); + function ReadVerticalAnchor(); + function WriteVerticalAnchor(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); +end; + +type TextFrame2 = class(VbaBase) +public + function Init(); + +public + // methods + function DeleteText(); + + // properties + property AutoSize read ReadAutoSize write WriteAutoSize; + property Column read ReadColumn; + property HasText read ReadHasText; + property HorizontalAnchor read ReadHorizontalAnchor write WriteHorizontalAnchor; + property MarginBottom read ReadMarginBottom write WriteMarginBottom; + property MarginLeft read ReadMarginLeft write WriteMarginLeft; + property MarginRight read ReadMarginRight write WriteMarginRight; + property MarginTop read ReadMarginTop write WriteMarginTop; + property NoTextRotation read ReadNoTextRotation write WriteNoTextRotation; + property Orientation read ReadOrientation write WriteOrientation; + property PathFormat read ReadPathFormat write WritePathFormat; + property Ruler read ReadRuler; + property TextRange read ReadTextRange; + property ThreeD read ReadThreeD; + property VerticalAnchor read ReadVerticalAnchor write WriteVerticalAnchor; + property WarpFormat read ReadWarpFormat write WriteWarpFormat; + property WordArtFormat read ReadWordArtFormat write WriteWordArtFormat; + property WordWrap read ReadWordWrap write WriteWordWrap; + function ReadAutoSize(); + function WriteAutoSize(_value); + function ReadColumn(); + function ReadHasText(); + function ReadHorizontalAnchor(); + function WriteHorizontalAnchor(_value); + function ReadMarginBottom(); + function WriteMarginBottom(_value); + function ReadMarginLeft(); + function WriteMarginLeft(_value); + function ReadMarginRight(); + function WriteMarginRight(_value); + function ReadMarginTop(); + function WriteMarginTop(_value); + function ReadNoTextRotation(); + function WriteNoTextRotation(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadPathFormat(); + function WritePathFormat(_value); + function ReadRuler(); + function ReadTextRange(); + function ReadThreeD(); + function ReadVerticalAnchor(); + function WriteVerticalAnchor(_value); + function ReadWarpFormat(); + function WriteWarpFormat(_value); + function ReadWordArtFormat(); + function WriteWordArtFormat(_value); + function ReadWordWrap(); + function WriteWordWrap(_value); +end; + +type TextRange = class(VbaBase) +public + function Init(); + +public + // methods + function AddPeriods(); + function ChangeCase(Type); + function Characters(Start, Length); + function Copy(); + function Cut(); + function Delete(); + function Find(FindWhat, After, MatchCase, WholeWords); + function InsertAfter(NewText); + function InsertBefore(NewText); + function InsertDateTime(DateTimeFormat, InsertAsField); + function InsertSlideNumber(); + function InsertSymbol(FontName, CharNumber, UniCode); + function Lines(Start, Length); + function LtrRun(); + function Paragraphs(Start, Length); + function Paste(); + function PasteSpecial(DataType, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link); + function RemovePeriods(); + function Replace(FindWhat, ReplaceWhat, After, MatchCase, WholeWords); + function RotatedBounds(X1, Y1, X2, Y2, X3, Y3, X4, Y4); + function RtlRun(); + function Runs(Start, Length); + function Select(); + function Sentences(Start, Length); + function TrimText(); + function Words(Start, Length); + + // properties + property ActionSettings read ReadActionSettings; + property BoundHeight read ReadBoundHeight; + property BoundLeft read ReadBoundLeft; + property BoundTop read ReadBoundTop; + property BoundWidth read ReadBoundWidth; + property Count read ReadCount; + property Font read ReadFont; + property IndentLevel read ReadIndentLevel write WriteIndentLevel; + property LanguageID read ReadLanguageID write WriteLanguageID; + property Length read ReadLength; + property ParagraphFormat read ReadParagraphFormat; + property Start read ReadStart; + property Text read ReadText write WriteText; + function ReadActionSettings(); + function ReadBoundHeight(); + function ReadBoundLeft(); + function ReadBoundTop(); + function ReadBoundWidth(); + function ReadCount(); + function ReadFont(); + function ReadIndentLevel(); + function WriteIndentLevel(_value); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLength(); + function ReadParagraphFormat(); + function ReadStart(); + function ReadText(); + function WriteText(_value); +end; + +type TextRange2 = class(VbaBase) +public + function Init(); + +public + // methods + function AddPeriods(); + function ChangeCase(Type); + function Copy(); + function Cut(); + function Delete(); + function Find(FindWhat, After, MatchCase, WholeWords); + function InsertAfter(NewText); + function InsertBefore(NewText); + function InsertChartField(ChartFieldType, Formula, Position); + function InsertSymbol(FontName, CharNumber, Unicode); + function Item(Index); + function LtrRun(); + function Paste(); + function PasteSpecial(Format); + function RemovePeriods(); + function Replace(FindWhat, ReplaceWhat, After, MatchCase, WholeWords); + function RotatedBounds(X1, Y1, X2, Y2, X3, Y3, x4, y4); + function RtlRun(); + function Select(); + function TrimText(); + function Characters(Start, Length); + function Lines(Start, Length); + function MathZones(Start, Length); + function Paragraphs(Start, Length); + function Runs(Start, Length); + function Sentences(Start, Length); + function Words(Start, Length); + + // properties + property BoundHeight read ReadBoundHeight; + property BoundLeft read ReadBoundLeft; + property BoundTop read ReadBoundTop; + property BoundWidth read ReadBoundWidth; + property Count read ReadCount; + property Font read ReadFont; + property LanguageID read ReadLanguageID write WriteLanguageID; + property Length read ReadLength; + property ParagraphFormat read ReadParagraphFormat; + property Start read ReadStart; + property Text read ReadText write WriteText; + function ReadBoundHeight(); + function ReadBoundLeft(); + function ReadBoundTop(); + function ReadBoundWidth(); + function ReadCount(); + function ReadFont(); + function ReadLanguageID(); + function WriteLanguageID(_value); + function ReadLength(); + function ReadParagraphFormat(); + function ReadStart(); + function ReadText(); + function WriteText(_value); +end; + +type TextStyle = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Levels read ReadLevels; + property Ruler read ReadRuler; + property TextFrame read ReadTextFrame; + function ReadLevels(); + function ReadRuler(); + function ReadTextFrame(); +end; + +type TextStyleLevel = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Font read ReadFont; + property ParagraphFormat read ReadParagraphFormat; + function ReadFont(); + function ReadParagraphFormat(); +end; + +type TextStyleLevels = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type TextStyles = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Type); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type Theme = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property ThemeVariants read ReadThemeVariants; + function ReadThemeVariants(); +end; + +type ThemeVariant = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Height read ReadHeight; + property Id read ReadId; + property Name read ReadName; + property Width read ReadWidth; + function ReadHeight(); + function ReadId(); + function ReadName(); + function ReadWidth(); +end; + +type ThemeVariants = class(VbaBase) +public + function Init(); + +public + // methods + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type ThreeDFormat = class(VbaBase) +public + function Init(); + +public + // methods + function IncrementRotationHorizontal(Increment); + function IncrementRotationVertical(Increment); + function IncrementRotationX(Increment); + function IncrementRotationY(Increment); + function IncrementRotationZ(Increment); + function ResetRotation(); + function SetExtrusionDirection(PresetExtrusionDirection); + function SetPresetCamera(PresetCamera); + function SetThreeDFormat(PresetThreeDFormat); + + // properties + property BevelBottomDepth read ReadBevelBottomDepth write WriteBevelBottomDepth; + property BevelBottomInset read ReadBevelBottomInset write WriteBevelBottomInset; + property BevelBottomType read ReadBevelBottomType write WriteBevelBottomType; + property BevelTopDepth read ReadBevelTopDepth write WriteBevelTopDepth; + property BevelTopInset read ReadBevelTopInset write WriteBevelTopInset; + property BevelTopType read ReadBevelTopType write WriteBevelTopType; + property ContourColor read ReadContourColor; + property ContourWidth read ReadContourWidth write WriteContourWidth; + property Depth read ReadDepth write WriteDepth; + property ExtrusionColor read ReadExtrusionColor; + property ExtrusionColorType read ReadExtrusionColorType write WriteExtrusionColorType; + property FieldOfView read ReadFieldOfView write WriteFieldOfView; + property LightAngle read ReadLightAngle write WriteLightAngle; + property Perspective read ReadPerspective write WritePerspective; + property PresetCamera read ReadPresetCamera; + property PresetExtrusionDirection read ReadPresetExtrusionDirection; + property PresetLighting read ReadPresetLighting write WritePresetLighting; + property PresetLightingDirection read ReadPresetLightingDirection write WritePresetLightingDirection; + property PresetLightingSoftness read ReadPresetLightingSoftness write WritePresetLightingSoftness; + property PresetMaterial read ReadPresetMaterial write WritePresetMaterial; + property PresetThreeDFormat read ReadPresetThreeDFormat; + property ProjectText read ReadProjectText write WriteProjectText; + property RotationX read ReadRotationX write WriteRotationX; + property RotationY read ReadRotationY write WriteRotationY; + property RotationZ read ReadRotationZ write WriteRotationZ; + property Visible read ReadVisible write WriteVisible; + property Z read ReadZ write WriteZ; + function ReadBevelBottomDepth(); + function WriteBevelBottomDepth(_value); + function ReadBevelBottomInset(); + function WriteBevelBottomInset(_value); + function ReadBevelBottomType(); + function WriteBevelBottomType(_value); + function ReadBevelTopDepth(); + function WriteBevelTopDepth(_value); + function ReadBevelTopInset(); + function WriteBevelTopInset(_value); + function ReadBevelTopType(); + function WriteBevelTopType(_value); + function ReadContourColor(); + function ReadContourWidth(); + function WriteContourWidth(_value); + function ReadDepth(); + function WriteDepth(_value); + function ReadExtrusionColor(); + function ReadExtrusionColorType(); + function WriteExtrusionColorType(_value); + function ReadFieldOfView(); + function WriteFieldOfView(_value); + function ReadLightAngle(); + function WriteLightAngle(_value); + function ReadPerspective(); + function WritePerspective(_value); + function ReadPresetCamera(); + function ReadPresetExtrusionDirection(); + function ReadPresetLighting(); + function WritePresetLighting(_value); + function ReadPresetLightingDirection(); + function WritePresetLightingDirection(_value); + function ReadPresetLightingSoftness(); + function WritePresetLightingSoftness(_value); + function ReadPresetMaterial(); + function WritePresetMaterial(_value); + function ReadPresetThreeDFormat(); + function ReadProjectText(); + function WriteProjectText(_value); + function ReadRotationX(); + function WriteRotationX(_value); + function ReadRotationY(); + function WriteRotationY(_value); + function ReadRotationZ(); + function WriteRotationZ(_value); + function ReadVisible(); + function WriteVisible(_value); + function ReadZ(); + function WriteZ(_value); +end; + +type TickLabels = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Alignment read ReadAlignment write WriteAlignment; + property Depth read ReadDepth; + property Font read ReadFont; + property Format read ReadFormat; + property MultiLevel read ReadMultiLevel write WriteMultiLevel; + property Name read ReadName; + property NumberFormat read ReadNumberFormat write WriteNumberFormat; + property NumberFormatLinked read ReadNumberFormatLinked write WriteNumberFormatLinked; + property NumberFormatLocal read ReadNumberFormatLocal write WriteNumberFormatLocal; + property Offset read ReadOffset write WriteOffset; + property Orientation read ReadOrientation write WriteOrientation; + property ReadingOrder read ReadReadingOrder write WriteReadingOrder; + function ReadAlignment(); + function WriteAlignment(_value); + function ReadDepth(); + function ReadFont(); + function ReadFormat(); + function ReadMultiLevel(); + function WriteMultiLevel(_value); + function ReadName(); + function ReadNumberFormat(); + function WriteNumberFormat(_value); + function ReadNumberFormatLinked(); + function WriteNumberFormatLinked(_value); + function ReadNumberFormatLocal(); + function WriteNumberFormatLocal(_value); + function ReadOffset(); + function WriteOffset(_value); + function ReadOrientation(); + function WriteOrientation(_value); + function ReadReadingOrder(); + function WriteReadingOrder(_value); +end; + +type TimeLine = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property InteractiveSequences read ReadInteractiveSequences; + property MainSequence read ReadMainSequence; + function ReadInteractiveSequences(); + function ReadMainSequence(); +end; + +type Timing = class(VbaBase) +public + function Init(); + +public + // methods + + // properties + property Accelerate read ReadAccelerate write WriteAccelerate; + property AutoReverse read ReadAutoReverse write WriteAutoReverse; + property BounceEnd read ReadBounceEnd write WriteBounceEnd; + property BounceEndIntensity read ReadBounceEndIntensity write WriteBounceEndIntensity; + property Decelerate read ReadDecelerate write WriteDecelerate; + property Duration read ReadDuration write WriteDuration; + property RepeatCount read ReadRepeatCount write WriteRepeatCount; + property RepeatDuration read ReadRepeatDuration write WriteRepeatDuration; + property Restart read ReadRestart write WriteRestart; + property RewindAtEnd read ReadRewindAtEnd write WriteRewindAtEnd; + property SmoothEnd read ReadSmoothEnd write WriteSmoothEnd; + property SmoothStart read ReadSmoothStart write WriteSmoothStart; + property Speed read ReadSpeed write WriteSpeed; + property TriggerBookmark read ReadTriggerBookmark write WriteTriggerBookmark; + property TriggerDelayTime read ReadTriggerDelayTime write WriteTriggerDelayTime; + property TriggerShape read ReadTriggerShape write WriteTriggerShape; + property TriggerType read ReadTriggerType write WriteTriggerType; + function ReadAccelerate(); + function WriteAccelerate(_value); + function ReadAutoReverse(); + function WriteAutoReverse(_value); + function ReadBounceEnd(); + function WriteBounceEnd(_value); + function ReadBounceEndIntensity(); + function WriteBounceEndIntensity(_value); + function ReadDecelerate(); + function WriteDecelerate(_value); + function ReadDuration(); + function WriteDuration(_value); + function ReadRepeatCount(); + function WriteRepeatCount(_value); + function ReadRepeatDuration(); + function WriteRepeatDuration(_value); + function ReadRestart(); + function WriteRestart(_value); + function ReadRewindAtEnd(); + function WriteRewindAtEnd(_value); + function ReadSmoothEnd(); + function WriteSmoothEnd(_value); + function ReadSmoothStart(); + function WriteSmoothStart(_value); + function ReadSpeed(); + function WriteSpeed(_value); + function ReadTriggerBookmark(); + function WriteTriggerBookmark(_value); + function ReadTriggerDelayTime(); + function WriteTriggerDelayTime(_value); + function ReadTriggerShape(); + function WriteTriggerShape(_value); + function ReadTriggerType(); + function WriteTriggerType(_value); +end; + +type Trendline = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Delete(); + function Select(); + + // properties + property Backward2 read ReadBackward2 write WriteBackward2; + property Border read ReadBorder; + property DataLabel read ReadDataLabel; + property DisplayEquation read ReadDisplayEquation write WriteDisplayEquation; + property DisplayRSquared read ReadDisplayRSquared write WriteDisplayRSquared; + property Format read ReadFormat; + property Forward2 read ReadForward2 write WriteForward2; + property Index read ReadIndex; + property Intercept read ReadIntercept write WriteIntercept; + property InterceptIsAuto read ReadInterceptIsAuto write WriteInterceptIsAuto; + property Name read ReadName write WriteName; + property NameIsAuto read ReadNameIsAuto write WriteNameIsAuto; + property Order read ReadOrder write WriteOrder; + property Period read ReadPeriod write WritePeriod; + property Type read ReadType write WriteType; + function ReadBackward2(); + function WriteBackward2(_value); + function ReadBorder(); + function ReadDataLabel(); + function ReadDisplayEquation(); + function WriteDisplayEquation(_value); + function ReadDisplayRSquared(); + function WriteDisplayRSquared(_value); + function ReadFormat(); + function ReadForward2(); + function WriteForward2(_value); + function ReadIndex(); + function ReadIntercept(); + function WriteIntercept(_value); + function ReadInterceptIsAuto(); + function WriteInterceptIsAuto(_value); + function ReadName(); + function WriteName(_value); + function ReadNameIsAuto(); + function WriteNameIsAuto(_value); + function ReadOrder(); + function WriteOrder(_value); + function ReadPeriod(); + function WritePeriod(_value); + function ReadType(); + function WriteType(_value); +end; + +type Trendlines = class(VbaBase) +public + function Init(); + +public + // methods + function Add(Type, Order, Period, Forward, Backward, Intercept, DisplayEquation, DisplayRSquared, Name); + function Item(Index); + + // properties + property Count read ReadCount; + function ReadCount(); +end; + +type UpBars = class(VbaBase) +public + function Init(); + +public + // methods + function Delete(); + function Select(); + + // properties + property Fill read ReadFill; + property Format read ReadFormat; + property Name read ReadName; + function ReadFill(); + function ReadFormat(); + function ReadName(); +end; + +type View = class(VbaBase) +public + function Init(); + +public + // methods + function GotoSlide(Index); + function Paste(); + function PasteSpecial(DataType, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link); + function Player(ShapeId); + function PrintOut(From, To, PrintToFile, Copies, Collate); + + // properties + property DisplaySlideMiniature read ReadDisplaySlideMiniature write WriteDisplaySlideMiniature; + property MediaControlsHeight read ReadMediaControlsHeight; + property MediaControlsLeft read ReadMediaControlsLeft; + property MediaControlsTop read ReadMediaControlsTop; + property MediaControlsVisible read ReadMediaControlsVisible; + property MediaControlsWidth read ReadMediaControlsWidth; + property PrintOptions read ReadPrintOptions; + property Slide read ReadSlide write WriteSlide; + property Type read ReadType; + property Zoom read ReadZoom write WriteZoom; + property ZoomToFit read ReadZoomToFit write WriteZoomToFit; + function ReadDisplaySlideMiniature(); + function WriteDisplaySlideMiniature(_value); + function ReadMediaControlsHeight(); + function ReadMediaControlsLeft(); + function ReadMediaControlsTop(); + function ReadMediaControlsVisible(); + function ReadMediaControlsWidth(); + function ReadPrintOptions(); + function ReadSlide(); + function WriteSlide(_value); + function ReadType(); + function ReadZoom(); + function WriteZoom(_value); + function ReadZoomToFit(); + function WriteZoomToFit(_value); +end; + +type Walls = class(VbaBase) +public + function Init(); + +public + // methods + function ClearFormats(); + function Paste(); + function Select(); + + // properties + property Format read ReadFormat; + property Name read ReadName; + property PictureType read ReadPictureType write WritePictureType; + property PictureUnit read ReadPictureUnit write WritePictureUnit; + property Thickness read ReadThickness write WriteThickness; + function ReadFormat(); + function ReadName(); + function ReadPictureType(); + function WritePictureType(_value); + function ReadPictureUnit(); + function WritePictureUnit(_value); + function ReadThickness(); + function WriteThickness(_value); +end; + +implementation + +end. diff --git a/utils/TSComponentsBase.tsf b/utils/TSComponentsBase.tsf index ffda2f8..5ab4c18 100644 --- a/utils/TSComponentsBase.tsf +++ b/utils/TSComponentsBase.tsf @@ -4,8 +4,8 @@ public function Init();virtual; function InitZip(zip: ZipFile); function Open(alias: string; file: string; password: string): tableArray; - function Save(): tableArray; - function SaveAs(alias: string; file: string): tableArray; + function Save(): array of info; // array(err, errmsg) + function SaveAs(alias: string; file: string): array of info; function Zip(): ZipFile; protected diff --git a/utils/vba/Collection.tsf b/utils/vba/Collection.tsf new file mode 100644 index 0000000..ebd149e --- /dev/null +++ b/utils/vba/Collection.tsf @@ -0,0 +1,181 @@ +type Collection = class +public + function Create(); + function Operator[](index: stringORinteger): tslobj; + function SetIgnoreCase(value: boolean); + function SetActivation(value: tslobj); + function GetActivation(): tslobj; + function CalNewName(prefix: string): string; + function AddCollection(obj: tslobj; name: string); + function RemoveCollection(index: stringORinteger); + function GetCount(): integer; + +private + function CompareFunction(index: stringORinteger; data: tslobj): boolean; + +private + ignorecase_: boolean; // 忽略大小写 + container_: anycontainer; // 容器对象 + [weakref]activation_: tslobj; // 激活的对象 + [weakref]fp_; // 函数指针 -- 用来比较 +end; + +type LinkList = class +public + function Create(); + function Add(data: tslobj); + function Remove(index: stringORinteger; fp: functionPointer); + function Size(); + function Get(index: stringORinteger; fp: functionPointer); + +private + function Find(index: stringORinteger; fp: functionPointer); + +private + count_: integer; + head_: Node; + tail_: Node; + +end; + +// ============== 实现 ================= // +function Collection.Create(); +begin + container_ := new LinkList(); + ignorecase_ := false; + fp_ := thisFunction(CompareFunction); +end; + +function Operator Collection.[](index: stringORinteger): tslobj; +begin + ret := container_.Get(index, fp_); + return ret ? ret.obj : nil; +end; + +function Collection.SetIgnoreCase(value: boolean); +begin + ignorecase_ := value; +end; + +function Collection.SetActivation(value: tslobj); +begin + activation_ := self[value]; +end; + +function Collection.GetActivation(): tslobj; +begin + return activation_; +end; + +function Collection.CalNewName(prefix: string): string; +begin + len := {self.}GetCount() + 1; + name := prefix $ len; + while container_.Get(name, fp_) do + name := prefix $ ++len; + return name; +end; + +function Collection.AddCollection(obj: tslobj; name: string); +begin + data := new Data(); + data.obj := obj; + data.name := name; + data.index := {self.}GetCount() + 1; + container_.Add(data); +end; + +function Collection.RemoveCollection(index: stringORinteger); +begin + container_.Remove(index, fp_); +end; + +function Collection.GetCount(): integer; +begin + return container_.Size(); +end; + +function Collection.CompareFunction(index: stringORinteger; data: tslobj): boolean; +begin + return (ifNumber(index) and data.index = index) or + (ifString(index) and (data.name = index or (ignorecase_ and lowercase(data.name) = lowercase(index)))); +end; + +// 集合中需要记录的数据 +type Data = class + obj: tslobj; + name: string; + index: integer; +end; + +function LinkList.Create(); +begin + head_ := new Node(nil); + tail_ := head_; + count_ := 0; +end; + +function LinkList.Add(data: tslobj); +begin + node := new Node(data); + tail_.next := node; + node.prev := tail_; + tail_ := node; + count_ ++; +end; + +function LinkList.Remove(index: stringORinteger; fp: functionPointer); +begin + node := Find(index, fp); + if ifnil(node) then return; + if node = tail_ then + begin + tail_ := node.prev; + node.prev.next := nil; + end + else begin + node.prev.next := node.next; + node.next.prev := node.prev; + node := nil; + end + count_--; +end; + +function LinkList.Size(); +begin + return count_; +end; + +function LinkList.Find(index: stringORinteger; fp: functionPointer); +begin + node := head_.next; + while (node) do + begin + if (fp and fp.do(index, node.data)) or node.data = index then + return node; + node := node.next; + end + return nil; +end; + +function LinkList.Get(index: stringORinteger; fp: functionPointer); +begin + node := Find(index, fp); + return ifnil(node) ? nil : node.data; +end; + + +type Node = class +public + function Create(value: tslobj); + begin + data := value; + prev := nil; + next := nil; + end; + + data: tslobj; + [weakref]prev: Node; + next: Node; + +end; diff --git a/utils/vba/VbaBase.tsf b/utils/vba/VbaBase.tsf new file mode 100644 index 0000000..f6ea409 --- /dev/null +++ b/utils/vba/VbaBase.tsf @@ -0,0 +1,41 @@ +type VBABase = class +public + function Create(Par: tslobj; App: Application; Cre: integer); + +public + property Application read ReadApplication; + property Parent read ReadParent; + property Creator read ReadCreator; + function ReadApplication(); + function ReadParent(); + function ReadCreator(); +private + [weakref]parent_: tslobj; + [weakref]application_: Application; + creator_: integer; + +End; + +// ============== 实现 ================= // +function VBABase.Create(Par: tslobj; App: Application; Cre: integer); +begin + parent_ := Par; + application_ := App; + creator_ := Cre; +end; + +// properties +function VBABase.ReadApplication(); +begin + return application_; +end; + +function VBABase.ReadParent(); +begin + return parent_; +end; + +function VBABase.ReadCreator(); +begin + return creator_; +end; diff --git a/utils/vba/XlsxSheetData.tsf b/utils/vba/XlsxSheetData.tsf new file mode 100644 index 0000000..21d492c --- /dev/null +++ b/utils/vba/XlsxSheetData.tsf @@ -0,0 +1,64 @@ +type XlsxSheetData = class +public + function Create(sheet_data: SheetData); + function Operator[](index: integer): XlsxSheetDataRow; + function Cell(r: integer; c: integer): C; + function Rows(index: integer): XlsxSheetDataRow; + function Serialize(); + +private + rows_: array of XlsxSheetDataRow; + sheet_data_: SheetData; +end; + +function XlsxSheetData.Create(sheet_data: SheetData); +begin + rows_ := array(); + sheet_data_ := sheet_data; + rows := sheet_data.Rows(); + for i:=0 to length(rows)-1 do + begin + r := strToInt(rows[i].R); + rows_[r] := new XlsxSheetDataRow(rows[i]); + end + // println("rows = {}", rows_); +end; + +function Operator XlsxSheetData.[](index: integer): XlsxSheetDataRow; +begin + if ifnil(rows_[index]) and tslassigning then + begin + row := new Row(sheet_data_, "", "row"); + rows_[index] := new XlsxSheetDataRow(row); + pos := -1; + for k,_ in rows_ do // TODO：此处弊端是要遍历所有k，可考虑维护一个新array，用二分 + if pos < k and k < index then pos := k; + pos = -1 ? sheet_data_.AppendChild(row) : sheet_data_.InsertAfter(row, rows_[pos].Data()); + end + return rows_[index]; +end; + +function XlsxSheetData.Rows(index: integer): XlsxSheetDataRow; +begin + return self[index]; +end; + +function XlsxSheetData.Cell(r: integer; c: integer): C; +begin + bk := tslassigning; + tslassigning := 1; + c := self[r][c]; + tslassigning := bk; + return c; +end; + +function XlsxSheetData.Serialize(); +begin + for k,row in rows_ do + begin + r := row.Data(); + r.R := k; + row.Serialize(); + end + // sheet_data_.Serialize(); +end; diff --git a/utils/vba/XlsxSheetDataRow.tsf b/utils/vba/XlsxSheetDataRow.tsf new file mode 100644 index 0000000..516d398 --- /dev/null +++ b/utils/vba/XlsxSheetDataRow.tsf @@ -0,0 +1,63 @@ +type XlsxSheetDataRow = class +public + function Create(row: Row); + function Operator[](index: integer): XlsxSheetDataCol; + function Cols(index: integer): XlsxSheetDataCol; + function Data(): Row; + function Serialize(); + +public + row_: Row; + cols_: array of XlsxSheetDataCol; +end; + + +function XlsxSheetDataRow.Create(row: Row); +begin + row_ := row; + cols_ := array(); + cs := row.Cs(); + for i:=0 to length(cs)-1 do + begin + r := cs[i].R; + cell_name := SplitCellName(r); + index := ColumnNameToNumber(cell_name[1])[1]; + cols_[index] := cs[i]; + end + // println("cols_ = {}", cols_); +end; + +function Operator XlsxSheetDataRow.[](index: integer): XlsxSheetDataCol; +begin + if ifnil(cols_[index]) and tslassigning then + begin + col := new C(row_, "", "c"); + cols_[index] := col; + pos := -1; + for k,_ in cols_ do + if pos < k and k < index then pos := k; + pos = -1 ? row_.AppendChild(col) : row_.InsertAfter(col, cols_[pos]); + end + return cols_[index]; +end; + +function XlsxSheetDataRow.Cols(index: integer): XlsxSheetDataCol; +begin + return self[index]; +end; + +function XlsxSheetDataRow.Data(): Row; +begin + return row_; +end; + +function XlsxSheetDataRow.Serialize(); +begin + for k,c in cols_ do + begin + c.R := CoordinatesToCellName(k, row_.R)[1]; + c.Serialize(); + // println("c.R = {}, row.R = {}", c.R, row_.R); + end + row_.Serialize(); +end;